Пример загрузки данных с помощью COMObject в 1С 8.2

Задача: Компания ООО «Альфа» занимается реализацией  различной бытовой техники. Логистический учет производится в ПО на «С Sharp» собственной разработки. Необходимо вытягивать информацию о продажах в 1С8.2.

Решение:

Для подключения к базам использовать COMObject.

Создаем обработку «ЗагрузкиИзЛогистическойСистемы».

Реквизиты формы: «СписокБаз» - если несколько систем учета (Например, для разных видов товара)[Справочник «БДПредприятия»], «ВыборПериода»[СтандартныйПериод], "ЗагруженныеДанные" [ДеревоЗначений].

 **********************************************************************

**************  Модуль Формы Обработки:  *********************************

Создаем команду «ЗагрузитьПродажуИзЛогистическойСистемы», создаем к ней обработчикДействия:

&НаКлиенте
Процедура ЗагрузитьПродажуИзЛогистическойСистемы (Команда)
    НачДата=ВыборПериода.ДатаНачала;
    КонДата=ВыборПериода.ДатаОкончания;
    // Процедура, которая с сервера запускает Модуль Менеджера Обработки
    ЗагрузкиИзЛогистическойСистемыСервер(НачДата,КонДата,Режим, СписокБаз);
КонецПроцедуры

&НаСервере
Процедура ВызовПроцМенеджераОбработкиССервераЗагрузить(НачДата,КонДата,Режим,ТекущееИмяБазы)
    ЗагруженныеДанные =0;
    Обработки.ЗагрузкиИзЛогистическойСистемы. ЗагрузитьПродажуИзЛогистическойСистемы(НачДата,КонДата, ЗагруженныеДанные, СписокБаз);
КонецПроцедуры

**********************************************************************

**********************************************************************

**********************************************************************

****** Общий модуль «ДляОбработокЗагрузкиСервер»  *************************

Галочки: Сервер, Вызов Сервера

// Данная функция возвращает дату для получения данных из БД в нужном формате
Функция ДатаДлязапроса(Дата) ЭКСПОРТ
    Возврат ""+фДата(УПВЗ(Год(Дата)))+"-"+фДата(Месяц(Дата))+"-"+фДата(День(Дата));
КонецФункции // ДатаДлязапроса()

Функция фДата(Д)    ЭКСПОРТ        
    Если СтрДлина(Д) < 2 Тогда
        Д = Строка("0"+Д)  
    КонецЕсли;
    Возврат Д;
КонецФункции

//Данная функция открывает доступ к Объекту COMObject, выполняет запрос
Функция ПолучитьИсточник(Source,Источник,db) ЭКСПОРТ
    db = Новый COMObject ("ADODB.Connection");
    db.ConnectionString = источник;
    db.Mode = 1;
    db.CommandTimeout = 0;
    попытка
        db.Open();
        Сообщить("db.Open() прошло");
    Исключение
        Сообщить("db.Open()не прошло:"+ОписаниеОшибки())
    КонецПопытки;
    Сообщить(Source );
    Возврат db.Execute(Source);
КонецФункции // ПолучитьИсточник()

//Функция  удаляет пробелы внутри значения
//Пробелы возникают из-за того, что восьмерка определяет некое значение как числовое
Функция УПВЗ(Д)      ЭКСПОРТ   
    //Ищем пробел в каждой позиции
    А="";
    Для сч=1 по StrLen(Д) Цикл
        А=А+trimall(Right(left(Д,Сч),1));        
    КонецЦикла;
    Возврат А;
КонецФункции

//Функция ПолучитьСсылкуНоменклатуры возвращает
Функция ПолучитьСсылкуНоменклатуры(КодЗЧ,НаименЗЧ,ПартНомер) ЭКСПОРТ
    НоменклатураСсылка=Справочники.Номенклатура.НайтиПоКоду(Trimall(КодЗЧ));
    Если  НоменклатураСсылка.Пустая() Тогда
        Номенклатура=Справочники.Номенклатура.СоздатьЭлемент(); 
        Номенклатура.Код=Trimall(КодЗЧ);
        Номенклатура.Наименование=Trimall(НаименЗЧ);
        Номенклатура.ПартНомер=trimall(ПартНомер);
        Номенклатура.Записать();
        НоменклатураСсылка=Номенклатура.Ссылка;
    КонецЕсли;           
    Возврат НоменклатураСсылка;
КонецФункции // ПолучитьСсылкуНоменклатуры()

Процедура ЗаполнениеДокументовИзДереваЗначений(ВидДокумента,НазваниеТабличнойЧасти,ДеревоЗначений)  ЭКСПОРТ
    Для каждого Строка Из ДеревоЗначений.Строки Цикл 
        Док=Документы[ВидДокумента].НайтиПоНомеру(Строка.Номер,Строка.дата);
        Если Док.Пустая() Тогда
            ДокОбъект       = Документы[ВидДокумента].СоздатьДокумент();
            ДокОбъект.Номер = Строка.Номер;
        Иначе
            ДокОбъект       = Док.ПолучитьОбъект(); 
        КонецЕсли;
        // РучныеИзменения – это булевый реквизит шапки документа, если он Истина, тогда система при загрузке данных НЕ заменяет документ.
        // все остальные документы, у которых данный флаг = ЛОЖЬ, полностью обновляются.
        Если НЕ ДокОбъект.РучныеИзменения Тогда
            ЗаполнитьЗначенияСвойств(ДокОбъект,Строка);
            Если ЗначениеЗаполнено(НазваниеТабличнойЧасти) ТОгда
                ТЧ=ДокОбъект[НазваниеТабличнойЧасти];
                ТЧ.Очистить();
                Для каждого Подстрока  Из Строка.Строки  Цикл
                    ТекТЧ=ТЧ.Добавить();   
                    ЗаполнитьЗначенияСвойств(ТекТЧ ,Подстрока) ;
                КонецЦикла;
            КонецЕсли;
            Попытка                
                ДокОбъект.Записать();
            Исключение
                Сообщить("Документ "+ВидДокумента+" "+Строка.Номер+" "+Строка.дата+" "+ОписаниеОшибки());
            КонецПопытки;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

**********************************************************************

**********************************************************************

**********************************************************************

**************** Модуль Менеджера Обработки *****************************

Процедура  ЗагрузитьПродажуИзЛогистическойСистемы (НачДата,КонДата,ДЗ,ТекущееИмяБазы) Экспорт
    Сообщить("Начали: "+Формат(ТекущаяДата(), "ДЛФ=В"));
    Источник="DRIVER=SQL Server;SERVER=ИМЯСЕРВЕРА;UID=ЛОГИН;PWD=ПАРОЛЬ;DATABASE="+ТекущееИмяБазы;

    //Пример запроса
    Source="SELECT *
    |FROM TABLE1 as T1
    |INNER JOIN TABLE2 as T2 on (T2.Реквизит1='0') and  Т2.Реквизит2=T1.Реквизит1
    |LEFT OUTER JOIN TABLE3  as T3 ON T2.Реквизит3=Т3.Реквизит1
    |WHERE   (Т1.OpenDate BETWEEN '"+ДляОбработокЗагрузкиСервер.ДатаДлязапроса(НачДата)+" 00:00:00' and '"+ДляОбработокЗагрузкиСервер.ДатаДлязапроса(КонДата)+" 23:59:59')
    |order by T1.OpenDate";

    db="";
    rs=ДляОбработокЗагрузкиСервер.ПолучитьИсточник(Source,Источник,db);

    // это колонки, которые будут выгружены в Дерево значений на форму
    // кроме того в самом реквизите формы «ЗагруженныеДанные» необходимо создать такие же реквизиты.
    ДЗ=Новый ДеревоЗначений;
    ДЗ.Колонки.Добавить("Номер");
    ДЗ.Колонки.Добавить("Дата");
    ДЗ.Колонки.Добавить("Контрагент");
    ДЗ.Колонки.Добавить("Договор");
    ДЗ.Колонки.Добавить("Подразделение");
    ДЗ.Колонки.Добавить("Сумма");
    //И т.д. по необходимости.
    ТекНомер="";
    Пока rs.eof()=0  Цикл
        //Получаем данные из выборки
        Номер =  rs.Fields("Номер").Value;
        Если ТекНомер<>Номер   Тогда
            Реквизит1  =  rs.Fields("Реквизит1").Value;
            Реквизит2  =  ДляОбработокЗагрузкиСервер.УПВЗ(rs.Fields("Реквизит2").Value);
            Реквизит3  =  ДляОбработокЗагрузкиСервер.УПВЗ(rs.Fields("Реквизит3").Value);
            //Заполняем ДеревоЗначений 1 уровень
            НоваяСтрока=ДЗ.Строки.Добавить();
            НоваяСтрока.Дата  =  Реквизит1;
            НоваяСтрока.Номер =  Реквизит2;                                              
        КонецЕсли;
        //Заполняем ДеревоЗначений 2 уровень
        ПодчиненнаяСтрока  =  НоваяСтрока.Строки.Добавить();
        ПодчиненнаяСтрока.Номенклатура   = ДляОбработокЗагрузкиСервер.ПолучитьСсылкуНоменклатуры(Реквизит3);
        ТекНомер  = Номер;
        //Следующая Запись
        rs.movenext();
    КонецЦикла;
    //Закрываем выборку
    db.Close();
    //тут указываем свои наименования
    ВидДокумента="Продажа";
    НазваниеТабличнойЧасти="Товары";
    ДляОбработокЗагрузкиСервер.ЗаполнениеДокументовИзДереваЗначений(ВидДокумента,НазваниеТабличнойЧасти,ДЗ);
    Сообщить("Все!   "+Формат(ТекущаяДата(), "ДЛФ=В"));
КонецПроцедуры

**********************************************************************

**********************************************************************

После загрузки данных на Форме будет сформирован список в виде дерева значений из загруженных документов.

Я надеюсь, что для Вас была интересна и познавательна данная заметка.