четверг, 2 февраля 2017 г.

Програмная загрузка данных обработкой "УниверсальныйОбменДаннымиXML" (с логом загрузки)

ИмяФайлаДанных          = ПолучитьИмяВременногоФайла();
ИмяФайлаПротоколаОбмена = ПолучитьИмяВременногоФайла();

ОбработкаОбъект = Обработки.УниверсальныйОбменДаннымиXML.Создать();
ОбработкаОбъект.РежимОбмена             = "Загрузка";
ОбработкаОбъект.ИмяФайлаОбмена          = ИмяФайлаДанных;
ОбработкаОбъект.ИмяФайлаПротоколаОбмена = ИмяФайлаПротоколаОбмена;

ОбработкаОбъект.ВыводВПротоколИнформационныхСообщений = Ложь;
ОбработкаОбъект.ВыводВПротоколСообщенийОбОшибках      = Истина;

Если ОбработкаОбъект.ВыполнитьДействияПередЧтениемДанных(Data.Получить()) Тогда

ОбработкаОбъект.ПроизвестиЧтениеДанных();
ОбработкаОбъект.ВыполнитьДействияПослеЗавершенияЧтенияДанных(); 

Если ОбработкаОбъект.ФлагОшибки Тогда

Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ИмяФайлаПротоколаОбмена, "windows-1251");

мОписаниеОшибки = Текст.ПолучитьТекст(); 

ЗаписьЖурналаРегистрации("Обмен данными.Загрузка." + Метаданные.ПланыОбмена.ОбменПартКом83_TopLog.Синоним,
УровеньЖурналаРегистрации.Ошибка, Метаданные.ПланыОбмена.ОбменПартКом83_TopLog, , мОписаниеОшибки);

Текст = Неопределено;

КонецЕсли;
КонецЕсли;      

УдалитьФайлы(ИмяФайлаПротоколаОбмена);
УдалитьФайлы(ИмяФайлаДанных);

Если ОбработкаОбъект.ФлагОшибки Тогда
ВызватьИсключение мОписаниеОшибки;
КонецЕсли;

Комментариев нет:

Отправить комментарий