В начало

Сообщение с изменениями

 

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

            Сообщение = Новый СообщениеПользователю;

            Сообщение.Текст = "Выгрузка в узел " + Строка (ЭтотОбъект);

            Сообщение.Сообщить();

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

           

            ИмяФайла = Каталог +

                       ?(Прав (Каталог, 1) = "\", "", "\") +

                                      "Message" +

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

                                      СокрЛП (Ссылка.Код) + ".xml";

                                     

            //===================                

            //Создаем XML-файл           

            //===================

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

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

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

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

           

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

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

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

            Сообщение = Новый СообщениеПользователю;

            Сообщение.Текст = "Номер сообщения: " + ЗаписьСообщения.НомерСообщения;

            Сообщение.Сообщить ();

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

           

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

            ВыборкаИзменений = ПланыОбмена.ВыбратьИзменения(ЗаписьСообщения.Получатель,

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

            Пока  ВыборкаИзменений.Следующий () Цикл

                        ЗаписатьXML (ЗаписьXML, ВыборкаИзменений.Получить());

            КонецЦикла;

                       

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

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

           

            Сообщение = Новый СообщениеПользователю;

            Сообщение.Текст = "Конец выгрузки";

            Сообщение.Сообщить ();

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