В начало

Прочитать сообщение с изменениями

 

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

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

           

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

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

                                       "Message" +

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

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

                                       ".xml";

                                              

            Файл = Новый Файл (ИмяФайла);

            Если Не Файл.Существует () Тогда

              Возврат;

            КонецЕсли;

           

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

            //Чтение XML-файлов

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

            ЧтениеXML = Новый ЧтениеXML;

            Попытка

                        ЧтениеXML.ОткрытьФайл (ИмяФайла);

            Исключение

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

                        Сообщение.Текст = "Невозможно открыть файл!";

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

                        Возврат;

            КонецПопытки;

           

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

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

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

           

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

            Сообщение.Текст = "Считывается файл: " + ИмяФайла;

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

 

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

            //Загрузить из XML-файла

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

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

            ЧтениеСообщения.НачатьЧтение (ЧтениеXML);

           

            Если ЧтениеСообщения.Отправитель <> Ссылка Тогда

                        ВызватьИсключение "Неверный узел!";

            КонецЕсли;

           

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

            //Удалить регистрацию изменений

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

            ПланыОбмена.УдалитьРегистрациюИзменений(ЧтениеСообщения.Отправитель,

                                                                                                                                  ЧтениеСообщения.НомерПринятого);

                                                                                                                                

            //============================                                                                                        //Чтение данных из сообщения

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

            Пока ВозможностьЧтенияXML (ЧтениеXML) Цикл

                        Данные = ПрочитатьXML (ЧтениеXML);

            КонецЦикла;

           

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

            ЧтениеXML.Закрыть();

            УдалитьФайлы (ИмяФайла);

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

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

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

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