В начало

Процедура Выгрузка

 

Процедура Выгрузка (Элемент)

 

            Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы

 

            ЗаписьXML = Новый ЗаписьXML ();

            ЗаписьXML.ОткрытьФайл (Путь + "выгрузка.xml");

            Узел = ПланыОбмена.Поставка.НайтиПоКоду ("Маг1");

 

            ЗапСообщения = ПланыОбмена.СоздатьЗаписьСообщения ();

            ЗапСообщения.НачатьЗапись (ЗаписьXML, Узел);

 

            Выборка = ПланыОбмена.ВыбратьИзменения (Узел, ЗапСообщения.НомерСообщения);

 

            Пока Выборка.Следующий () Цикл

                        Данные = Выборка.Получить ();

 

                        Если ТипЗнч (Данные) = Тип ("ДокументОбъект.РеализацияТоваров") Тогда

                                   ВыгрузкаРеализации (ЗаписьXML, Данные);

           

                        Иначе // все остальные объекты

                                   ЗаписатьXML (ЗаписьXML, Данные);

                        КонецЕсли;

            КонецЦикла;

 

            ЗапСообщения.ЗакончитьЗапись ();

            ЗаписьXML.Закрыть ();

 

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