Создание процедуры записи данных - часть 3
При формировании выборки мы передаем вторым параметром номер сообщения, которым эти данные будут переданы:
Процедура ЗаписатьСообщениеСИзменениями() Экспорт
Сообщить("------------ Выгрузка в узел" + Строка(ЭтотОбъект) + "------------");
Каталог = КаталогВременныхФайлов();
// Сформировать имя временного файла
ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" +
СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код) + "_" + СокрЛП(Ссылка.Код) + ".xml";
// Создать объект записи XML
//*** запись XML документов
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл(ИмяФайла);
ЗаписьXML.ЗаписатьОбъявлениеXML();
//*** инфраструктура сообщений
ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
ЗаписьСообщения.НачатьЗапись(ЗаписьXML, Ссылка);
Сообщить(" Номер сообщения; " + ЗаписьСообщения.НомерСообщения);
// Получить выборку измененных данных
//*** механизм регистрации изменений
ВыборкаИзменений = ПланыОбмена.ВыбратьИзменения(
ЗаписьСообщения.Получатель, ЗаписьСообщения.НомерСообщения);
ЗаписьСообщения.ЗакончитьЗапись();
ЗаписьXML.Закрыть();
Сообщить("------------ Конец выгрузки ------------");
КонецПроцедуры [409]
Теперь осталось только перебрать выборку записей в цикле сериализовать их в открытый XML файл:
Процедура ЗаписатьСообщениеСИзменениями() Экспорт
Сообщить("------------ Выгрузка в узел" + Строка(ЭтотОбъект) + "------------");
Каталог = КаталогВременныхФайлов();
// Сформировать имя временного файла
ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" +