Процедура ДействияФормыВыгрузка(Кнопка)

    ДиалогФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
    ДиалогФайла.Фильтр = "Файл данных (*.xml)|*.xml";
    ДиалогФайла.ПолноеИмяФайла = "Retail_"+СтрЗаменить(Формат(Дата,"ДФ=dd.MM.yyyy"),".","-");
    Если ДиалогФайла.Выбрать() Тогда
        ИмяФайла = ДиалогФайла.ПолноеИмяФайла;
        Попытка
            ВыгрузитьДанные(ИмяФайла);
            ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);
            ДвоичныеДанные.Записать(ИмяФайла);
        Исключение
            Предупреждение("Внешний файл не сохранен
            |"+ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;

КонецПроцедуры

// процедура выгрузки 
Процедура ВыгрузитьДанные(ИмяФайлаОбмена)

    Обработка=Обработки.УниверсальныйОбменДаннымиXML.Создать();
    Обработка.РежимОбмена="Выгрузка";
    ВремФайл = ПолучитьИмяВременногоФайла("xml");
    МакетПравилОбмена = ПолучитьМакет("ПравилаВыгрузки");
    МакетПравилОбмена.Записать(ВремФайл);
    Обработка.ИмяФайлаПравилОбмена = ВремФайл;//ФайлПравилОбмена;
    Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;
    Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;
    Обработка.ЗапоминатьЗагруженныеОбъекты = Истина;
    Обработка.ИспользоватьОтборПоДатеДляВсехОбъектов = Истина;
    СписокДок = Новый Массив;
    Для каждого Стр Из Документы Цикл
        Если НЕ Стр.Флаг Тогда
            Продолжить;
        КонецЕсли;
        СписокДок.Добавить(Стр.Реализация);
    КонецЦикла;
    Обработка.ДатаНачала = Дата;
    Обработка.ДатаОкончания = КонецДня(Дата);
    Обработка.ВыгружатьТолькоРазрешенные = Истина;
    Обработка.ИмяФайлаОбмена = ИмяФайлаОбмена;
    Обработка.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки = 0; // 0 - не снимать регистрацию, 1 - снимать регистрацию
    Обработка.ЗагрузитьПравилаОбмена();
    Обработка.Параметры.Вставить("Документы",СписокДок);
    Обработка.ВыполнитьВыгрузку();

КонецПроцедуры   

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