Ошибка при вызове метода контекста начатьчтение неизвестный получатель

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Перем РегистрацияВНовыйУзел Экспорт;
 
Процедура ПриЗаписи(Отказ)
    
    Если РегистрацияВНовыйУзел Тогда
        // Регистрация изменений всех данных для узла
        ПланыОбмена.ЗарегистрироватьИзменения(Ссылка);
    КонецЕсли;
    
КонецПроцедуры
 
Процедура ПередЗаписью(Отказ)
    
    РегистрацияВНовыйУзел = ЭтоНовый();
    
КонецПроцедуры

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

&НаКлиенте
Процедура ЗапуститьВыгрузкуXML(Команда)
    
    ОбработаемВыгрузкуНаСервере();
    
КонецПроцедуры
 
 
&НаСервере
Процедура ОбработаемВыгрузкуНаСервере()
 
    ВыборкаУзлов = ПланыОбмена.ОбменСЦО.Выбрать();
    Пока ВыборкаУзлов.Следующий() Цикл
        // Произвести обмен данными со всеми узлами, кроме текущего (ЭтотУзел) и кроме тех у 
        //которых нет галочки быстрого отключения обмена
        Если ВыборкаУзлов.Ссылка <> ПланыОбмена.ОбменСЦО.ЭтотУзел() И ВыборкаУзлов.ВыполнятьОбмен = Истина Тогда
            УзелОбъекта = ВыборкаУзлов.ПолучитьОбъект();
            // Сформировать сообщение
            УзелОбъекта.ЗаписатьСообщениеСИзменениями();
        КонецЕсли;
    КонецЦикла;
 
КонецПроцедуры // ОбработаемВыгрузкуНаСервере();¶()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

Процедура ПрочитатьСообщениеСИзменениями() Экспорт
    Каталог = КаталогВременныхФайлов();
    // Сформировать имя файла
    ИмяФайла = Каталог +?(Прав(Каталог, 1) = "", "", "") + "Message" 
                    + СокрЛП(Ссылка.Код) + "_" + 
                    СокрЛП(ПланыОбмена.ОбменСЦО.ЭтотУзел().Код) + ".xml";
    Файл = Новый Файл(ИмяФайла);
    Если Не Файл.Существует() Тогда
        Возврат;
    КонецЕсли;
    // *** Чтение документов XML    
    // Попытаться открыть файл
    ЧтениеXML = Новый ЧтениеXML;
    Попытка 
        ЧтениеXML.ОткрытьФайл(ИмяФайла);
    Исключение 
        Сообщить("Невозможно открыть файл обмена данными.");
        Возврат;
    КонецПопытки;
    Сообщить("-------- Загрузка из " + Строка(ЭтотОбъект) + "------------");
    Сообщить(" - Считывается файл " + ИмяФайла);
    // Загрузить из найденного файла
    // *** Инфраструктура сообщений
    ЧтениеСообщения = ПланыОбмена.СоздатьЧтениеСообщения();
    // Читать заголовок сообщения обмена данными - файла XML
    ЧтениеСообщения.НачатьЧтение(ЧтениеXML);
    // Сообщение предназначено не для этого узла
    Если ЧтениеСообщения.Отправитель <> Ссылка Тогда
        ВызватьИсключение "Неверный узел";
    КонецЕсли;
    // Удаляем регистрацию изменений
    // для узла отправителя сообщения
    // *** Служба регистрации изменений
    ПланыОбмена.УдалитьРегистрациюИзменений(ЧтениеСообщения.Отправитель,ЧтениеСообщения.НомерПринятого);
    // Читаем данные из сообщения
    // *** XML-сериализация
    Пока ВозможностьЧтенияXML(ЧтениеXML) Цикл
        // Читаем очередное значение
        Данные = ПрочитатьXML(ЧтениеXML);    
        // Записать полученные данные
        Данные.ОбменДанными.Отправитель = ЧтениеСообщения.Отправитель;
        Данные.ОбменДанными.Загрузка = Истина;
        Данные.Записать();
    КонецЦикла;
    ЧтениеСообщения.ЗакончитьЧтение();
    ЧтениеXML.Закрыть();
    УдалитьФайлы(ИмяФайла);
    Сообщить("-------- Конец загрузки------------");
КонецПроцедуры

1
2
3
4
5
6
7
8
9

Каталог = КаталогВременныхФайлов();
    // Сформировать имя файла
    ИмяФайла = Каталог +?(Прав(Каталог, 1) = "", "", "") + "Message" 
                    + СокрЛП(Ссылка.Код) + "_" + 
                    СокрЛП(ПланыОбмена.ОбменСЦО.ЭтотУзел().Код) + ".xml";
    Файл = Новый Файл(ИмяФайла);
    Если Не Файл.Существует() Тогда
        Возврат;
    КонецЕсли;

1

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