ТекстЗапроса = "
       |Set NoCount ON
       |insert CONTRAENTRYTable_ext (state, accountnum, transdate, docnum, offsetaccountnum)
       |VALUES окрЛП(НомерДок)+"','"+СокрЛП(Кредитор.Код)+"')
       |Select scope_identity()
       |";
Запрос    = СоздатьОбъект("ODBCRecordset");
       БД    = СоздатьОбъект("ODBCDatabase");
       БД.Соединение(СокрЛП(Конфиг.ПолучитьСтроку(1)));
       Если БД.ЕстьСоединение() = 1 Тогда
           Запрос.УстБД(БД);
       Иначе
           Предупреждение("Не удается установить соединение");
       КонецЕсли;
       
       rs = Запрос.ВыполнитьСкалярный(ТекстЗапроса);  //тут номер записи будет