Ошибка при выполнении обработчика приполученииданныхотподчиненного

Процедура ПриПолученииДанныхОтПодчиненного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад)

  ТипДанных = ТипЗнч(ЭлементДанных);

  Если Строка(ТипДанных)=»Удаление объекта» Тогда

      НЭ = Новый Массив(1);

      НЭ.Добавить(ЭлементДанных.Ссылка);

      ТЗ = НайтиПоСсылкам(НЭ);

      Если ТЗ.Количество()<>0 Тогда

             Сообщить(ЭлементДанных+» не может быть удален.Он восстановится во всех базах.»);

           ПланыОбмена.ЗарегистрироватьИзменения(ПланыОбмена.Полный.НайтиПоКоду(«НЧ»),ЭлементДанных.Ссылка);

           ПолучениеЭлемента.Игнорировать();

           //ОтправкаНазад = Истина;

      КонецЕсли;

  КонецЕсли;      

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

НЭ = Новый Массив(1);

мне не понравилось, что создаётся не пустой массив, т.е. там уже есть 1 элемент а потом ты добавляешь ещё один.

Последний шаг:

ПланыОбмена.ЗарегистрироватьИзменения(ПланыОбмена.Полный.НайтиПоКоду(«НЧ»),ЭлементДанных.Ссылка);

(12) Где смотрел «пример»?

Должно быть:

Занятие 24 761

В начале процедуры мы вызываем диалог выбора каталога, в который будет помещен образ информационной базы, и затем вызываем процедуру СоздатьНачальныйОбразНаСервере(), исполняющуюся на сервере без контекста, в которой вызывается метод СоздатьНачаль-

ныйОбраз() объекта ПланыОбменаМенеджер.

Именно этот метод и позволяет нам создать образ для подчиненного узла распределенной информационной базы. В первом параметре метода передается ссылка на узел (реквизит формы ПолеВводаОтделение), для которого мы хотим создать начальный образ, а во втором – строка соединения, указывающая информационную базу

(листинг 24.28).

Листинг 24.28. Процедура «СоздатьНачальныйОбразНаСервере»

&НаСервереБезКонтекста Процедура СоздатьНачальныйОбразНаСервере(Узел, КаталогСоединения)

ПланыОбмена.СоздатьНачальныйОбраз(Узел, «File =»»» + КаталогСоединения + «»»»);

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

Теперь создадим обработчик команды Записать изменения.

Текст обработчика будет выглядеть следующим образом

(листинг 24.29).

Листинг 24.29. Обработчик нажатия кнопки «Записать изменения»

&НаКлиенте Процедура ЗаписатьИзменения(Команда)

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); Диалог.Заголовок = «Укажите файл обмена:»; Если Диалог.Выбрать() Тогда

ЗаписатьИзмененияНаСервере(ПолеВводаОтделение, Диалог.ПолноеИмяФайла);

Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «Запись изменений завершена.»; Сообщение.Сообщить();

КонецЕсли;

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

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

ЗаписатьИзмененияНаСервере(), исполняющуюся на сервере без контекста. В первом параметре метода передается ссылка на узел (реквизит формы ПолеВводаОтделение), для которого будет производиться запись изменений.

Но при создании сообщения в многопользовательском режиме могут быть конфликты блокировок между транзакцией, в которой данные

Занятие 24 763

помещаются в сообщение, и транзакциями, выполняемыми другими пользователями. Для снижения вероятности возникновения таких конфликтов можно задать значение этого параметра, отличное от значения по умолчанию. Чем меньше значение параметра, тем меньше вероятностьконфликтаблокировок,новышевероятностьпомещения в сообщение несогласованных данных.

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

И последним мы создадим обработчик команды Прочитать изменения.

Текст обработчика будет выглядеть следующим образом

(листинг 24.31).

Листинг 24.31. Обработчик нажатия кнопки «Прочитать изменения»

&НаКлиенте Процедура ПрочитатьИзменения(Команда)

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Заголовок = «Укажите файл обмена:»; Если Диалог.Выбрать() Тогда

ПрочитатьИзмененияНаСервере(Диалог.ПолноеИмяФайла);

Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «Чтение изменений завершено.»; Сообщение.Сообщить();

КонецЕсли;

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

Вначале процедуры мы снова вызываем диалог выбора имени файла, который будет прочитан, и затем вызываем процедуру ПрочитатьИзмененияНаСервере(), исполняющуюся на сервере без контекста.

Вэтой процедуре мы создаем объект ЧтениеXML для работы с этим файлом. Затем создаем объект ЧтениеСообщенияОбмена для чтения сообщения, содержащегося в указанном файле.

Затем методом ПрочитатьИзменения() объекта ПланыОбменаМе-

неджер мы читаем полученное сообщение.

В заключение процедуры мы завершаем чтение сообщения обмена и  закрываем файл (листинг 24.32).

Рис. 24.29. Настройка командного интерфейса основного раздела для администратора

Занятие 24 765

настройку начальной страницы (Открыть рабочую область начальной страницы) из контекстного меню корня дерева объектов конфигурации.

Создадим форму списка плана обмена Отделения. Добавим формы списка планов обмена Филиалы и Отделения в левую часть начальной страницы и зададим видимость этих форм только для роли Админи-

стратор (рис. 24.30).

Рис. 24.30. Настройка начальной страницы для администратора

Теперь выполним пример программного обмена данными.

подсказка

При выполнении примера обмена данными нужно правильно задавать узел, в который записываются и от которого принимаются изменения. Например, после изменения данных в центральной базе в списке узлов плана обмена нужно выбрать подчиненный узел, которому будут передаваться данные (например, Отделение), и нажать кнопку Записать изменения. А в базе узла, в который будут загружаться данные, в списке узлов плана обмена нужно выбрать узел, из которого данные были выгружены (например, Центральная база), и нажать кнопку Прочитать

изменения.

766 1С:Предприятие 8.3. Практическое пособие разработчика

Запустим «1С:Предприятие» для пользователя с ролью Администратор. Откроется начальная страница приложения (рис. 24.31).

Рис. 24.31. Начальная страница «1С:Предприятия» для администратора

Из командной панели раздела Главное, из подменю Сервис откроем форму обработки Обмен с отделениями. Выберем в поле ввода Отделение узел обмена Отделение, для которого мы хотим создать начальный образ нашей информационной базы (рис. 24.32).

Затем выполним команду Создать начальный образ. Создадим каталог, куда будет выгружен начальный образ информационной базы, и  укажем его в диалоге выбора каталога.

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

Затем откроем базу отделения (куда был выгружен начальный образ центральной базы) в конфигураторе. Создадим в ней пользователя с  ролью Администратор и запустим «1С:Предприятие». На  начальной странице в форме Обмен с отделениями выберем в поле

Занятие 24 767

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

Рис. 24.32. Пример программного обмена с отделениями

Убедимся, что сотрудник центральной базы (с префиксом кода ЦБ) присутствует в базе отделения.

Следует лишь сделать несколько заключительных замечаний.

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

ПриОтправкеДанныхГлавному(),ПриОтправкеДанныхПодчиненному(),ПриПолученииДанныхОтГлавного(),

ПриПолученииДанныхОтПодчиненного().

Эти события будут вызываться для каждого элемента данных, включаемого в сообщение.

Работу этих событий можно увидеть, добавив в модуль объекта План обмена Отделения следующий текст (листинг 24.33).

768 1С:Предприятие 8.3. Практическое пособие разработчика

Листинг 24.33. Просмотр работы событий объекта «ПланОбменаОбъект»

Процедура ПриОтправкеДанныхГлавному(ЭлементДанных, ОтправкаЭлемента)

Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «ПриОтправкеДанныхГлавному » + ЭлементДанных; Сообщение.Сообщить();

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

Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента)

Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «ПриОтправкеДанныхПодчиненному » + ЭлементДанных; Сообщение.Сообщить();

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

Процедура ПриПолученииДанныхОтГлавного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад)

Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «ПриПолученииДанныхОтГлавного » + ЭлементДанных; Сообщение.Сообщить();

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

Процедура ПриПолученииДанныхОтПодчиненного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад)

Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «ПриПолученииДанныхОтПодчиненного » + ЭлементДанных; Сообщение.Сообщить();

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

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

Параметр ОтправкаЭлемента позволяет управлять тем, какая информация будет помещена в сообщение. Он может принимать три значения:

Авто – значение по умолчанию. Указывает на то, что элемент данных будет помещен в сообщение;

Удалить – в сообщение будет помещено значение, предназначенное для удаления этого элемента данных;

Игнорировать – в сообщение не будет помещено ничего, связанного с этим элементом данных.

Занятие 24 769

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

Авто – значение по умолчанию. Если элемент данных получен от главного узла, он будет записан всегда. Если элемент данных получен от подчиненного узла, он будет записан, только если не зарегистрированы изменения для этого элемента данных;

Принять – полученный элемент данных будет записан всегда;

Игнорировать – проигнорировать получение элемента данных и  ничего не записывать.

Также в событиях получения данных существует третий параметр –

ОтправкаНазад, имеющий тип Булево.

Этот параметр позволяет выполнять принудительную регистрацию изменений для полученного элемента данных в базе-получателе.

Такая необходимость может возникнуть, например, когда при приеме данных от узла-отправителя обнаружено, что полученные данные противоречивы (например, в узле-отправителе была допущена ошибка при изменении данных).

Тогда мы можем проигнорировать присланные изменения и, установив флажок ОтправкаНазад, вызвать принудительную регистрацию изменений полученного элемента данных в нашей базе для узла-отправителя.

В результате последующего обмена состояние этого элемента данных в узле-отправителе будет установлено таким же, как и в нашей базе.

Изменение структуры узлов

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

Для этого следует использовать метод УстановитьГлавныйУзел()

объекта ПланыОбменаМенеджер.

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

// В информационной базе Узла1. ПланыОбменаМенеджер.УстановитьГлавныйУзел(Неопределено);