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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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