Процедура Импорт (пСтруктураПараметров = Неопределено) Экспорт
    лСоединение = Новый COMОбъект("ADODB.Connection");
    лКомманда = Новый COMОбъект("ADODB.Command");
    лНаборЗаписей = Новый COMОбъект("ADODB.RecordSet");
    лНаборЗаписейНумератор = Новый COMОбъект("ADODB.RecordSet");
    лСоединение.ConnectionString = "Driver={PostgreSQL ANSI};Server=" + пСтруктураПараметров.IPАдресСервера + ";Port=" + пСтруктураПараметров.Порт + ";Database=" + пСтруктураПараметров.ИмяБазыДанных + ";Uid=" + пСтруктураПараметров.ИмяПользователя + ";Pwd=" + пСтруктураПараметров.Пароль + ";";
        
    лСоединение.Open();        
    лКомманда.ActiveConnection = лСоединение;
        
    лКомманда.CommandText =
"   SELECT p.id as ID
|     FROM public.procedures p  
|     WHERE  p.kol >= 10000 
|   AND p.date >= to_date(’01.01.2020’, ‘dd.mm.yyyy’);
                        
лНаборЗаписей = лКомманда.Execute();               
                
Пока Не лНаборЗаписей.EOF Цикл 
        лЗапрос = Новый Запрос;
        лЗапрос.Текст = 
            "ВЫБРАТЬ
            |    Договора.Ссылка,
            |    Договора.Идентификатор,
            |    Договора.Дата,
            |    Подразделения.Код КАК КодПодразделения,
            |    Договора.Цена
            |ИЗ       Документ.Договора КАК Договора
            |           ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Подразделения КАК Подразделения
            |                            ПО Договора.Подразделение = Подразделения.Ссылка
            |ГДЕ
            |    Договора.Идентификатор = &ИдентификаторПостгресСкл";
    
               лЗапрос.УстановитьПараметр("ИдентификаторПостгресСкл ",лНаборЗаписей.Fields(0).Value);
               лРезультатЗапроса = лЗапрос.Выполнить().Выбрать();

        
      Если лРезультатЗапроса.Следующий() Тогда
                лСтруктураШапкиДокумента = Новый Структура;
                        лДокумент = Документы.Договора.СоздатьДокумент();
                лДокумент.Дата = лНаборЗаписей.Fields(1).Value;
                лДокумент.Идентификатор = лНаборЗаписей.Fields(0).Value;
                лДокумент.Дата = лНаборЗаписей.Fields(1).Value;
                лДокумент.Подразделение = Справочники.Подразделения.НайтиПоКоду(лНаборЗаписей.Fields(2).Value);
                лДокумент. Цена = лНаборЗаписей.Fields(3).Value;
                лДокумент.Записать();


        лНаборЗаписей.MoveNext();    
        
КонецЦикла