Работа с CSV. Чтение файла CSV через ADO в ТЗ в 1С 8.3

&НаСервере
Функция ПрочитатьCSVвТЗ_ADO(ИмяФайла, Разделитель=";", ЗаголовкиИзПервойСтроки = Ложь)

   ТЗ = Новый ТаблицаЗначений;
   ФайлCSV = Новый Файл(ИмяФайла);

   ADOConn =Новый COMОбъект("ADODB.Connection");
   ADOConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ФайлCSV.Путь+";Extended Properties=""text;HDR=No;IMEX=1;FMT=Delimited""");

   // Так как FMT=Delimited(;) не работает создадим schema.ini
  // https://docs.microsoft.com/en-us/sql/odbc/microsoft/schema-ini-file-text-file-driver?redirectedfrom=MSDN&view=sql-server-ver15
  // https://docs.microsoft.com/en-us/sql/odbc/microsoft/text-file-format-text-file-driver?redirectedfrom=MSDN&view=sql-server-ver15
   СхемаCSV= СтрШаблон("[%1]
    |ColNameHeader=%2
    |Format=Delimited(%3)", ФайлCSV.Имя, Формат(ЗаголовкиИзПервойСтроки, "БЛ=False; БИ=True"), Разделитель);
   ФайлСхемы = Новый ТекстовыйДокумент;
   ФайлСхемы.УстановитьТекст(СхемаCSV);
   ФайлСхемы.Записать(ФайлCSV.Путь + "Schema.ini", "CESU-8"); // UTF-8 без BOM

   ADORec=Новый COMОбъект("ADODB.Recordset");
   ADORec.ActiveConnection = ADOConn;
   ADORec.Open("select * from "+ФайлCSV.Имя, ADOConn);

   // определим имена колонок
   Для НомКолонки = 0 По ADORec.Fields.Count-1 Цикл
       ТЗ.Колонки.Добавить(ADORec.Fields(НомКолонки).Name);
   КонецЦикла;

   Сч=0;
   Пока НЕ ADORec.EOF() Цикл
       Сч=Сч+1;

       НоваяСтрока = ТЗ.Добавить();
       Для а=0 По ADORec.Fields.Count-1 Цикл
           НоваяСтрока[а] = ADORec.Fields(а).Value;
       КонецЦикла;

       ADORec.MoveNext();
   КонецЦикла;

   ADORec.Close();
   ADOConn.Close();

   Возврат ТЗ;

КонецФункции

Постановка задачи: в информационной системе имеется документ "Спецификация". На форме документа есть кнопка "Запрос цен". По нажатию этой кнопки должен создаться и заполниться документ "Запрос цен". Его заполненная форма должна открыться для редактирования пользователем, при этом документ не должен быть записан.

Итак, реализация задуманного:

&НаКлиенте
Процедура ЗапросЦен(Команда)
 
 ФормаНовогоЗапросаЦен = ПолучитьФорму("Документ.ЗапросЦен.Форма.ФормаДокумента");
 ДанныеФормы = ФормаНовогоЗапросаЦен.Объект;
 ЗаполнитьЗапросЦенНаСервере(ДанныеФормы); // Процедура, в которой на сервере заполняется объект документа. 
 КопироватьДанныеФормы(ДанныеФормы, ФормаНовогоЗапросаЦен.Объект); // Здесь данные заполненного объекта документа копируются в форму.
 ФормаНовогоЗапросаЦен.Открыть(); // Открываем заполненную форму.
 
КонецПроцедуры


Серверная процедура, в которой заполняется объект документа:

&НаСервере
Процедура ЗаполнитьЗапросЦен(ДанныеФормы)
 
 // В этой серверной процедуре заполняем объект. 
 ДанныеФормы.Организация = Объект.Организация;
 
 //... заполняем все необходимые реквизиты.
  
КонецПроцедуры


Для уменьшения объёма передаваемых данных между клиентом и сервером можно организовать серверную процедуру без передачи в неё контекста формы:

&НаСервереБезКонтекста
Процедура ЗаполнитьЗапросЦен(ДанныеФормы)

 // Получаем объект документа из данных формы
 НовыйЗапросЦен = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.ЗапросЦен"));
 // Или создаём новый документ:
 НовыйЗапросЦен = Документы.ЗапросЦен.СоздатьДокумент();

 // Заполняем реквизиты объекта документа
 НовыйЗапросЦен.Организация = Объект.Организация;
 
 //... заполняем все необходимые реквизиты.

 // Данные заполненного документа помещаем в объект формы
 ЗначениеВДанныеФормы(НовыйЗапросЦен,ДанныеФормы);

КонецФункции

Функция ОбъектМодифицирован(Объект, ПроверятьТабличныеЧасти = Истина, ПроверятьСтандартные = Истина) 
    
 Ссылка = Объект.Ссылка;
 Метаданное = Ссылка.Метаданные();
    
 Для каждого Реквизит из Метаданное.Реквизиты Цикл
  Если Объект[Реквизит.Имя] <> Ссылка[Реквизит.Имя] Тогда
   Возврат Истина;
  КонецЕсли;
 КонецЦикла;
    
 Если ПроверятьСтандартные Тогда
  Для каждого Реквизит из Метаданное.СтандартныеРеквизиты Цикл
   Если Объект[Реквизит.Имя] <> Ссылка[Реквизит.Имя] Тогда
    Возврат Истина;
   КонецЕсли;
  КонецЦикла;
 КонецЕсли;
    
    
    Если ПроверятьТабличныеЧасти Тогда
        Для каждого ТЧ из Метаданное.ТабличныеЧасти Цикл
            
            Если Объект[ТЧ.Имя].Количество() <> Ссылка[ТЧ.Имя].Количество() Тогда
                Возврат Истина;
            КонецЕсли;
                        
            Для Индекс = 0 по Объект[ТЧ.Имя].Количество()-1 Цикл
                ОбъектСтрокаТЧ = Объект[ТЧ.Имя][Индекс];
                СсылкаСтрокаТЧ = Ссылка[ТЧ.Имя][Индекс];
                Для каждого РеквизитТЧ из ТЧ.Реквизиты Цикл
                    Если ОбъектСтрокаТЧ[РеквизитТЧ.Имя] <> СсылкаСтрокаТЧ[РеквизитТЧ.Имя] Тогда
                        Возврат Истина;
                    КонецЕсли;
                КонецЦикла;
            КонецЦикла;
            
        КонецЦикла;        
    КонецЕсли;
    
    Возврат Ложь;
    
КонецФункции