Процедура Выгрузка(Элемент) Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы ЗаписьXML = Новый ЗаписьXML(); ЗаписьXML.ОткрытьФайл(Путь + "выгрузка.xml"); Узел = ПланыОбмена.Поставка.НайтиПоКоду("Маг1"); ЗапСообщения = ПланыОбмена.СоздатьЗаписьСообщения(); ЗапСообщения.НачатьЗапись(ЗаписьXML, Узел); Выборка = ПланыОбмена.ВыбратьИзменения(Узел, ЗапСообщения.НомерСообщения); Пока Выборка.Следующий() Цикл Данные = Выборка.Получить(); Если ТипЗнч(Данные) = Тип("ДокументОбъект.РеализацияТоваров") Тогда ВыгрузкаРеализации(ЗаписьXML, Данные); Иначе // все остальные объекты ЗаписатьXML(ЗаписьXML, Данные); КонецЕсли; КонецЦикла; ЗапСообщения.ЗакончитьЗапись(); ЗаписьXML.Закрыть(); КонецПроцедуры Процедура ВыгрузкаРеализации(ЗаписьXML, Документ) ЗаписьXML.ЗаписатьНачалоЭлемента("DocumentObject.ПередачаТовара"); ЗаписатьXML(ЗаписьXML, Документ.Ссылка.УникальныйИдентификатор(), "Ref", НазначениеТипаXML.Явное); ЗаписатьXML(ЗаписьXML, Документ.ПометкаУдаления, "DeletionMark", НазначениеТипаXML.Явное); ЗаписатьXML(ЗаписьXML, Документ.ВалютаДокумента, "ВалютаДокумента", НазначениеТипаXML.Явное); // Остальные свойства документа. // Табличная часть. ЗаписьXML.ЗаписатьНачалоЭлемента("Товары"); Для Каждого ТекСтрока Из Документ.Товары Цикл ЗаписьXML.ЗаписатьНачалоЭлемента("Row"); ЗаписатьXML(ЗаписьXML, ТекСтрока.Номенклатура, "Номенклатура", НазначениеТипаXML.Явное); ЗаписатьXML(ЗаписьXML, ТекСтрока.Количество, "Количество", НазначениеТипаXML.Явное); // Остальные реквизиты табличной части. ЗаписьXML.ЗаписатьКонецЭлемента(); КонецЦикла; ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.ЗаписатьКонецЭлемента(); КонецПроцедуры Процедура Загрузка(Элемент) Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы ЧтениеXML = Новый ЧтениеXML(); ЧтениеXML.ОткрытьФайл(Путь + "выгрузка.xml"); ЧтСообщения = ПланыОбмена.СоздатьЧтениеСообщения(); ЧтСообщения.НачатьЧтение(ЧтениеXML); ПланыОбмена.УдалитьРегистрациюИзменений(ЧтСообщения.Отправитель, ЧтСообщения.НомерСообщения); Пока ВозможностьЧтенияДанных(ЧтениеXML) Цикл Данные = ПрочитатьДанные(ЧтениеXML); Если РазрешениеКоллизий(Данные) Тогда Данные.ОбменДанными.Отправитель = ЧтСообщения.Отправитель; Данные.ОбменДанными.Загрузка = Истина; Данные.Записать(); КонецЕсли; КонецЦикла; ЧтСообщения.ЗакончитьЧтение(); ЧтениеXML.Закрыть(); КонецПроцедуры Функция ВозможностьЧтенияДанных(ЧтениеXML) ТипXML = ПолучитьXMLТип(ЧтениеXML); Если ТипXML = Неопределено Тогда Возврат Ложь; КонецЕсли; Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда Возврат Истина; КонецЕсли; Возврат ВозможностьЧтенияXML(ЧтениеXML); КонецФункции Функция ПрочитатьДанные(ЧтениеXML) ТипXML = ПолучитьXMLТип(ЧтениеXML); Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда Возврат ЧтениеРеализации(ЧтениеXML); КонецЕсли; Возврат ПрочитатьXML(ЧтениеXML); КонецФункции Функция ЧтениеРеализации(ЧтениеXML) ЧтениеXML.Прочитать(); // Работа со ссылкой документа. ПолученнаяСсылка = ПрочитатьXML(ЧтениеXML); Док = Документы.ПоступлениеТоваров.ПолучитьСсылку(Новый УникальныйИдентификатор(ПолученнаяСсылка)); Документ = Док.ПолучитьОбъект(); Если Документ = Неопределено Тогда Документ = Документы.ПоступлениеТоваров.СоздатьДокумент(); Документ.УстановитьСсылкуНового(Док); Документ.Дата = ТекущаяДата; Документ.УстановитьНовыйНомер(); КонецЕсли; Документ.ПометкаУдаления = ПрочитатьXML(ЧтениеXML); Документ.ВалютаДокумента = ПрочитатьXML(ЧтениеXML); // Табличная часть "Товары. // Построчное чтение. ЧтениеXML.Прочитать(); Документ.Товары.Очистить(); Пока ЧтениеXML.Имя = "Row" Цикл // Позиционируемся на узле с номенклатурой. ЧтениеXML.Прочитать(); НоваяСтрока = Документ.Товары.Добавить(); НоваяСтрока.Номенклатура = ПрочитатьXML(ЧтениеXML); НоваяСтрока.Количество = ПрочитатьXML(ЧтениеXML); // Читаем конец узла Row. ЧтениеXML.Прочитать(); КонецЦикла; // Читаем конец табличной части. ЧтениеXML.Прочитать(); // Читаем конец документа. ЧтениеXML.Прочитать(); Возврат(Документ); КонецФункции Функция РазрешениеКоллизий(Данные) Если ТипЗнч(Данные) = Тип("ДокументОбъект.ПоступлениеТоваров") Тогда Если Не Данные.ЭтоНовый() Тогда СсылкаНаУзел = ПланыОбмена.Поставка.НайтиПоКоду("Опт"); Если ПланыОбмена.ИзменениеЗарегистрировано(СсылкаНаУзел, Данные) Тогда Возврат(Ложь); КонецЕсли; КонецЕсли; КонецЕсли; Возврат(Истина); КонецФункции