Пока ВозможностьЧтенияXML(ЧтениеXML) Цикл
КонецЦикла;
ЧтениеСообщения.ЗакончитьЧтение();
ЧтениеXML.Закрыть();
УдалитьФайлы(ИмяФайла);
Сообщить("----- Конец загрузки---------- ");
КонецПроцедуры
Чтение данных выполняется в цикле, причем мы снова обращаемся к механизмам XML-сериализации и методом глобального контекста ЕЗозможностьЧтенияХМЦ) получаем очередной тип данных XML из объекта 4TeHneXML и определяем, имеется ли соответствующий тип 1С:Предприятия. В случае успеха выполнение цикла продолжается.
И первое, что нам нужно сделать - представить данные XML в виде некоторого значения, имеющего тип 1С:Предприятия. Для этого мы используем метод глобального контекста ПрочитатьХМЦ):
Процедура ПрочитатьСообщениеСИзменениями() Экспорт Каталог = КаталогВременныхФайлов();
// Сформировать имя файла
ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" + СокрЛП(Ссылка.Код) + "_" + СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код) + ".xml"; Файл = Новый Файл(ИмяФайла); Если Не Файл.Существует() Тогда
Возврат; КонецЕсли;
//*** Чтение документов XML // Попытаться открыть файл ЧтениеXML = Новый ЧтениеXML; Попытка
ЧтениеXML.ОткрытьФайл(ИмяФайла); Исключение
Сообщить("Невозможно открыть файл обмена данными.");
Возврат; КонецПопытки;
Сообщить("----- Загрузка из " + Строка(ЭтотОбъект) + "-------- *);
Сообщить(" - Считывается файл " + ИмяФайла);
// Загрузить из найденного файла //*** Инфраструктура сообщений ЧтениеСообщения = ПланыОбмена.СоздатьЧтениеСообщения();
//читать заголовок сообщения обмена данными - файла XML ЧтениеСообщения.НачатьЧтение(ЧтеииеXML);
// Сообщение предназначено не для этого узла
Если ЧтениеСообщения.Отправитель о Ссылка Тогда
ВызватьИсключение "Неверный узел"; КонецЕсли;
// Удаляемрегистрациюизменений
Использование основных объектов конфигурации
Обмен данными
// для узла отправителя сообщения
//*** служба регистрации изменений
ПланыОбмена.УдалитьРегастрациюИзменени(ЧтениеСообщения.Отправитель,
ЧтениеСообщения.НомерПринятого)-
// Читаем данные из сообщения
//*** XML-сериализация
Пока ВозможностьЧтенияXMLЧтениеХМЬ) Цикл
// Читаем очередное значение
Данные = ПрочитатьXML(ЧтениеXML);
КонецЦикла;
ЧтениеСообщения.ЗакончитьЧтениеО;
ЧтениеХМЬ.Закрыть();
УдалитьФайлы(ИмяФайла);
Сообщить("----- Конец загрузки---------- ");
КонецПроцедуры
В результате выполнения этого метода переменная «Данные» будет содержать объект 1С:Предприятия, соответствующий данным XML.
Теперь, после того, как объект 1С:Предприятия получен, следует разрешить возможную коллизию:
Процедура ПрочитатьСообщениеСИзменениями() Экспорт
Каталог = КаталогВремениыхФайлов();
// Сформировать имя файла
ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" + СокрЛП(Ссылка.Код) + "_" + СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код) + ".xml"
Файл = Новый Файл(ИмяФайла);
Если Не Файл.Существует() Тогда Возврат;
КонецЕсли;
//*** Чтение документов XML // Попытаться открыть файл ЧтениеXML = Новый ЧтениеXML; Попытка ЧтeниeXML.OткpытьФaйл(ИмяФaйлa);
Исключение Сообщить("Невозможно открыть файл обмена данными.");
Возврат;
КонецПопытки;
Сообщить("----- Загрузка из " + Строка(ЭтотОбъект) + "-------- ");
Сообщить(" - Считывается файл " + ИмяФайла);
// Загрузить из найденного файла //*** Инфраструктура сообщений ЧтениеСообщения = ПланыОбмена.СоздатьЧтениеСообщения();
//читать заголовок сообщения обмена данными - файла XML ЧтениеСообщения.НачатьЧтение(ЧтениеXML);
// Сообщение предназначено не для этого узла
Если ЧтениеСообщения.Отправитель <> Ссылка Тогда
ВызватьИсключение "Неверный узел"; КонецЕсли;
// Удаляем регистрацию изменений // для узла отправителя сообщения //*** служба регистрации изменений ПланьОбмена.УдалитьРегистрациюИзменений(ЧтениеСообщения.Отправитель,
ЧтениеСообщения.НомерПринятого);
// Читаем данные из сообщения
//*** XML-сериализация
Пока ВозможностьЧтенияXML(ЧтениеXML) Цикл
// Читаем очередное значение
Данные = ПрочитатьXMLЧтениеXML);
// Не переносим изменение полученное // в главный из неглавного // если есть регистрация изменения Если Не ЧтениеСообщения.Отправитель.Главный И