0
Tata001
10.04.12
✎
14:03
|
Процедура СформироватьФайлВыгрузки() Экспорт
// Получим Универсальную обработку обмена данными XML
мУниверсальнаяВыгрузкаДанных = Обработки.УниверсальныйОбменДаннымиXML.Создать();
// Получим из макета правила обмена данными
УникальныйИдентификатор = Новый УникальныйИдентификатор();
ИмяВременногоФайлаПравилОбмена = КаталогВременныхФайлов() + УникальныйИдентификатор + ".xml";
МакетПравилОбмена = ПолучитьМакет("ПравилоОбмена");
МакетПравилОбмена.Записать(ИмяВременногоФайлаПравилОбмена);
Состояние(". . . Загрузка правил обмена . . .");
// Загрузка в универсальную обработку XML правил обмена
мУниверсальнаяВыгрузкаДанных.ИмяФайлаПравилОбмена = ИмяВременногоФайлаПравилОбмена;
мУниверсальнаяВыгрузкаДанных.РежимОбмена = "Выгрузка";
мУниверсальнаяВыгрузкаДанных.ЗагрузитьПравилаОбмена();
мУниверсальнаяВыгрузкаДанных.ИнициализироватьПервоначальныеЗначенияПараметров();
Состояние(". . . Удаление временного файла . . .");
// Удаляем временный файл правил и внешней обработки
Попытка
УдалитьФайлы(ИмяВременногоФайлаПравилОбмена);
Исключение
Сообщить("Ошибка в удалении временных файлов!", СтатусСообщения.Важное);
КонецПопытки;
мУниверсальнаяВыгрузкаДанных.ИмяФайлаОбмена = ИмяФайлаДанных;
мУниверсальнаяВыгрузкаДанных.Параметры.Вставить("БылоИсключение", ЛОЖЬ);
Для Каждого Стр Из мУниверсальнаяВыгрузкаДанных.ТаблицаНастройкиПараметров Цикл
Если Стр.Имя = "Сотрудник" Тогда
Стр.Значение = Сотрудник;
КонецЕсли;
КонецЦикла;
мУниверсальнаяВыгрузкаДанных.ВыполнитьВыгрузку();
КонецПроцедуры
|
|