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



    ДиалогФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

    ДиалогФайла.Фильтр = "Файл данных (*.xml)|*.xml";

    ДиалогФайла.ПолноеИмяФайла = "Retail_"+СтрЗаменить(Формат(Дата,"ДФ=dd.MM.yyyy"),".","-");

    Если ДиалогФайла.Выбрать() Тогда

        ИмяФайла = ДиалогФайла.ПолноеИмяФайла;

        Попытка

            ВыгрузитьДанные(ИмяФайла);

            ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);

            ДвоичныеДанные.Записать(ИмяФайла);

        Исключение

            Предупреждение("Внешний файл не сохранен

            |"+ОписаниеОшибки());

        КонецПопытки;

    КонецЕсли;



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



// процедура выгрузки 

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



    Обработка=Обработки.УниверсальныйОбменДаннымиXML.Создать();

    Обработка.РежимОбмена="Выгрузка";

    ВремФайл = ПолучитьИмяВременногоФайла("xml");

    МакетПравилОбмена = ПолучитьМакет("ПравилаВыгрузки");

    МакетПравилОбмена.Записать(ВремФайл);

    Обработка.ИмяФайлаПравилОбмена = ВремФайл;//ФайлПравилОбмена;

    Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;

    Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

    Обработка.ЗапоминатьЗагруженныеОбъекты = Истина;

    Обработка.ИспользоватьОтборПоДатеДляВсехОбъектов = Истина;

    СписокДок = Новый Массив;

    Для каждого Стр Из Документы Цикл

        Если НЕ Стр.Флаг Тогда

            Продолжить;

        КонецЕсли;

        СписокДок.Добавить(Стр.Реализация);

    КонецЦикла;

    Обработка.ДатаНачала = Дата;

    Обработка.ДатаОкончания = КонецДня(Дата);

    Обработка.ВыгружатьТолькоРазрешенные = Истина;

    Обработка.ИмяФайлаОбмена = ИмяФайлаОбмена;

    Обработка.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки = 0; // 0 - не снимать регистрацию, 1 - снимать регистрацию

    Обработка.ЗагрузитьПравилаОбмена();

    Обработка.Параметры.Вставить("Документы",СписокДок);

    Обработка.ВыполнитьВыгрузку();



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

  ОбработкаОбмена = Обработки.УниверсальныйОбменДаннымиXML.Создать();

    ОбработкаОбмена.ИмяФайлаОбмена = ФайлЗагрузки;

    ОбработкаОбмена.РежимОбмена = "Загрузка";

    ОбработкаОбмена.ОткрытьФайлЗагрузки(Истина);

    ОбработкаОбмена.АрхивироватьФайл = Ложь;;

    ОбработкаОбмена.ВыполнитьЗагрузку();

    ОбработкаОбмена = Неопределено;   

 Попытка

	УстановитьМонопольныйРежим(Истина);

Исключение

	Предупреждение("К базе подключены пользователи.Монопольный режим установить невозможно!", 7);

КонецПопытки;   

 Если МонопольныйРежим() Тогда

	Сообщить("Монопольный режим установлен");

КонецЕсли;   

 УстановитьМонопольныйРежим(Ложь);   

 Процедура Сформировать()

    Если МонопольныйРежим()=1 Тогда

        ВыгрузитьДанные();

    Иначе

        Предупреждение("Выгрузку данных необходимо производить в монопольном режиме");

        Возрат;

    КонецЕсли;

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