ИмяФайлаДанных = ПолучитьИмяВременногоФайла();
ИмяФайлаПротоколаОбмена = ПолучитьИмяВременногоФайла();
ОбработкаОбъект = Обработки.УниверсальныйОбменДаннымиXML.Создать();
ОбработкаОбъект.РежимОбмена = "Загрузка";
ОбработкаОбъект.ИмяФайлаОбмена = ИмяФайлаДанных;
ОбработкаОбъект.ИмяФайлаПротоколаОбмена = ИмяФайлаПротоколаОбмена;
ОбработкаОбъект.ВыводВПротоколИнформационныхСообщений = Ложь;
ОбработкаОбъект.ВыводВПротоколСообщенийОбОшибках = Истина;
Если ОбработкаОбъект.ВыполнитьДействияПередЧтениемДанных(Data.Получить()) Тогда
ОбработкаОбъект.ПроизвестиЧтениеДанных();
ОбработкаОбъект.ВыполнитьДействияПослеЗавершенияЧтенияДанных();
Если ОбработкаОбъект.ФлагОшибки Тогда
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ИмяФайлаПротоколаОбмена, "windows-1251");
мОписаниеОшибки = Текст.ПолучитьТекст();
ЗаписьЖурналаРегистрации("Обмен данными.Загрузка." + Метаданные.ПланыОбмена.ОбменПартКом83_TopLog.Синоним,
УровеньЖурналаРегистрации.Ошибка, Метаданные.ПланыОбмена.ОбменПартКом83_TopLog, , мОписаниеОшибки);
Текст = Неопределено;
КонецЕсли;
КонецЕсли;
УдалитьФайлы(ИмяФайлаПротоколаОбмена);
УдалитьФайлы(ИмяФайлаДанных);
Если ОбработкаОбъект.ФлагОшибки Тогда
ВызватьИсключение мОписаниеОшибки;
КонецЕсли;
ИмяФайлаПротоколаОбмена = ПолучитьИмяВременногоФайла();
ОбработкаОбъект = Обработки.УниверсальныйОбменДаннымиXML.Создать();
ОбработкаОбъект.РежимОбмена = "Загрузка";
ОбработкаОбъект.ИмяФайлаОбмена = ИмяФайлаДанных;
ОбработкаОбъект.ИмяФайлаПротоколаОбмена = ИмяФайлаПротоколаОбмена;
ОбработкаОбъект.ВыводВПротоколИнформационныхСообщений = Ложь;
ОбработкаОбъект.ВыводВПротоколСообщенийОбОшибках = Истина;
Если ОбработкаОбъект.ВыполнитьДействияПередЧтениемДанных(Data.Получить()) Тогда
ОбработкаОбъект.ПроизвестиЧтениеДанных();
ОбработкаОбъект.ВыполнитьДействияПослеЗавершенияЧтенияДанных();
Если ОбработкаОбъект.ФлагОшибки Тогда
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ИмяФайлаПротоколаОбмена, "windows-1251");
мОписаниеОшибки = Текст.ПолучитьТекст();
ЗаписьЖурналаРегистрации("Обмен данными.Загрузка." + Метаданные.ПланыОбмена.ОбменПартКом83_TopLog.Синоним,
УровеньЖурналаРегистрации.Ошибка, Метаданные.ПланыОбмена.ОбменПартКом83_TopLog, , мОписаниеОшибки);
Текст = Неопределено;
КонецЕсли;
КонецЕсли;
УдалитьФайлы(ИмяФайлаПротоколаОбмена);
УдалитьФайлы(ИмяФайлаДанных);
Если ОбработкаОбъект.ФлагОшибки Тогда
ВызватьИсключение мОписаниеОшибки;
КонецЕсли;
Комментариев нет:
Отправить комментарий