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

При формировании выборки мы передаем вторым параметром номер сообщения, которым эти данные будут переданы:

Процедура ЗаписатьСообщениеСИзменениями() Экспорт

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

   Каталог = КаталогВременныхФайлов();

   // Сформировать имя временного файла

   ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" +

       СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код) + "_" + СокрЛП(Ссылка.Код) + ".xml";

   // Создать объект записи XML

   //*** запись XML документов

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

   ЗаписьXML.ОткрытьФайл(ИмяФайла);

   ЗаписьXML.ЗаписатьОбъявлениеXML();

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

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

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

   Сообщить(" Номер сообщения; " + ЗаписьСообщения.НомерСообщения);

   // Получить выборку измененных данных

   //*** механизм регистрации изменений

   ВыборкаИзменений = ПланыОбмена.ВыбратьИзменения(

       ЗаписьСообщения.Получатель, ЗаписьСообщения.НомерСообщения);

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

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

   Сообщить("------------ Конец выгрузки ------------");

КонецПроцедуры [409]

Теперь осталось только перебрать выборку записей в цикле сериализовать их в открытый XML файл:

Процедура ЗаписатьСообщениеСИзменениями() Экспорт

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

   Каталог = КаталогВременныхФайлов();

   // Сформировать имя временного файла

   ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" +