В начало

Процедура Загрузка

 

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

 

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

 

            ЧтениеXML = Новый ЧтениеXML ();

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

           

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

            ЧтСообщения.НачатьЧтение (ЧтениеXML);

 

            ПланыОбмена.УдалитьРегистрациюИзменений (ЧтСообщения.Отправитель, ЧтСообщения.НомерСообщения);

 

            Пока ВозможностьЧтенияДанных (ЧтениеXML) Цикл

                        Данные = ПрочитатьДанные (ЧтениеXML);

                       

                        Если РазрешениеКоллизий (Данные) Тогда

                                   Данные.ОбменДанными.Отправитель = ЧтСообщения.Отправитель;

                                   Данные.ОбменДанными.Загрузка = Истина;

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

                        КонецЕсли;

            КонецЦикла;

 

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

            ЧтениеXML.Закрыть ();

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