Создание процедуры чтения данных - часть 11

Возврат;

КонецЕсли;

//*** Чтение документов XML

// Попытаться открыть файл

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

Попытка

ЧтениеXML.ОткрытьФайл(ИмяФайла);

Исключение

Сообщить("Невозможно открыть файл обмена данными.");

Возврат;

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

Сообщить("------- Загрузка из " + Строка(ЭтотОбъект) + "-------");

Сообщить(" - Считывается файл " + ИмяФайла);

// Загрузить из найденного файла

//*** Инфраструктура сообщений

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

//читать заголовок сообщения обмена данными - файла XML

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

// Сообщение предназначено не для этого узла

Если ЧтениеСообщения.Отправитель <> Ссылка Тогда

ВызватьИсключение "Неверный узел";

КонецЕсли;

// Удаляем регистрацию изменений

// для узла отправителя сообщения

//*** служба регистрации изменений [420]

ПланыОбмена.УдалитьРегистрациюИзменений(

ЧтениеСообщения.Отправитель, ЧтениеСообщения.НомерПринятого);

// Читаем данные из сообщения

//*** XML-сериалшация

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

// Читаем очередное значение

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

// Не переносим изменение полученное в главный из неглавного

// если есть регистрация изменения

Если Не ЧтениеСообщения.Отправитель.Главный И