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

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

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

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

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

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

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

КонецПроцедуры

Теперь мы обратимся к механизмам инфраструктуры сообщений и создадим новый объект ЗаписьСообщенияОбмена, метод которого НачатьЗапись() позволяет, кроме всего прочего, создать очередной номер сообщения и записать заголовок сообщения в XML. В конце процедуры мы опять же закончим запись сообщения:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецПроцедуры

После этого, чтобы получить данные, которые необходимо сохранить в этом файле, мы обратимся к механизму регистрации изменений и получим выборку из записей регистрации изменений, предназначенных данному узлу.