Реализация обмена по организации в УТ

Имеем следующее: Работающая информационная база на основе конфигурации «Управление торговлей для Казахстана, ред. 3», в основном используемая для торговых операций в городе А. Решили открыть филиал в городе Б. Выбирали между 3 вариантами:

1. работа в режиме управляемого приложения (тонкий клиент) (отпал из-за неустойчивого канала связи)

2. работа в терминальном режиме (отпал из-за возможного постоянного конфликта блокировок, проблемы с обновлением)

3. РИБ

Выбрали РИБ (по нашему мнению самый отлаженный и надёжный способ работы при больших нагрузках). Реализацию возложили на меня.

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

Описываю алгоритм:

1) Работа в режиме конфигуратор. Скопировал план обмена «Полный» (так как есть объекты которые должны быть только в региональных базах). Переименовал в «План обмена». Добавил реквизит «организация» с типом справочникссылка. организация

2) Откорректировал состав обмениваемых данных. В общих объектах (справочники, константы, планы видов характеристик) поставил авторегистрация=разрешить. В остальных поставил авторегистрация=запретить.

3) В общих модулях создал глобальный общий модуль «ОбменПоОрганизации» . Текст модуля в файле «Общий модуль».  Для выкладывания текст большой.

Процедура обРегистрацияИзменений(Объект) Экспорт
ГлавныйУзел = ПланыОбмена.ГлавныйУзел();
Если ГлавныйУзел=Неопределено Тогда    //это центральная база
ПланОбмена = ПланыОбмена.ПланОбмена.Выбрать();
Пока ПланОбмена.Следующий() Цикл
//В сам себя не отправляем
Если ПланОбмена = ПланыОбмена.ПланОбмена.ЭтотУзел() тогда
Продолжить;
КонецЕсли;
Если ПланОбмена.НомерОтправленного = 0 и ПланОбмена.НомерПринятого = 0 Тогда
// Похоже на главный. Хотя не факт.
Продолжить;
КонецЕсли;
//Некое хитрое условие
Если обОтправлятьОбъектВУзел(Объект, ПланОбмена) Тогда
//Объект.ОбменДанными.Получатели.Добавить(ПланОбмена.Ссылка);
Попытка
Объект.ОбменДанными.Получатели.Добавить(ПланОбмена.Ссылка);
//ПланыОбмена.ЗарегистрироватьИзменения(ПланОбмена.Ссылка,Объект);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецЦикла;
попытка
Объект.ОбменДанными.Получатели.Добавить(ПланыОбмена.ПланОбмена.ЭтотУзел());
исключение
конецпопытки;
Иначе
//изменен периферийный объект в базе создания

Объект.ОбменДанными.Получатели.Добавить(ГлавныйУзел);
//ПланыОбмена.ЗарегистрироватьИзменения(ГлавныйУзел,Объект);
КонецЕсли;
КонецПроцедуры

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

Если Рег = Неопределено Тогда
//Если регистратор неопределен, то не отправляем никуда
Если ЕстьРеквизитДокумента("Организация", Объект) Тогда
Если Объект.Отбор.Организация.Значение = ПланОбмена.Организация Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
Иначе
// Нет реквизита организация значит уходит однозначно.
Возврат Истина;
КонецЕсли;
Иначе
Если ЕстьРеквизитДокумента("Организация", Объект) Тогда
Если Рег.Организация = ПланОбмена.Организация Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
Иначе
// Нет реквизита организация значит уходит однозначно.
Возврат Истина;
КонецЕсли;


КонецЕсли;


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

КонецЕсли;

КонецФункции

// Позволяет определить есть ли среди реквизитов шапки документа
// реквизит с переданным именем.
//
// Параметры:
//  ИмяРеквизита - строковое имя искомого реквизита,
//  МетаданныеДокумента - объект описания метаданных документа, среди реквизитов которого производится поиск.
//
// Возвращаемое значение:
//  Истина - нашли реквизит с таким именем, Ложь - не нашли.
//
Функция ЕстьРеквизитДокумента(ИмяРеквизита, Объект) Экспорт

ТипОбъекта = ОпределитьТипОбъекта(Объект);
МетаданныеДокумента = Объект.Метаданные();

Если ТипОбъекта="Документ" тогда
Если МетаданныеДокумента.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;
ИначеЕсли ТипОбъекта="РегистрСведений" тогда
Если МетаданныеДокумента.Измерения.Найти(ИмяРеквизита) = Неопределено Тогда
Если МетаданныеДокумента.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;
Иначе
Возврат Истина;
КонецЕсли;

ИначеЕсли ТипОбъекта="РегистрНакопления" тогда
Если МетаданныеДокумента.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;

Иначе
Возврат Ложь;

КонецЕсли;


КонецФункции // ЕстьРеквизитДокумента()

Функция ОпределитьТипОбъекта(Объект)

Класс = Объект.Метаданные().ПолноеИмя();
Класс = Лев(Класс, Найти(Класс, ".")-1);

Возврат Класс;

КонецФункции

4) Затем в объектах, где данные нужно фильтровать и объект включен в состав обмена (документы, регистры) необходимо в модулях объектов в процедуре приЗаписи добавить вызов процедуры обРегистрацияИзменений().

Если ЭтотОбъект.ОбменДанными.Получатели.АвтоЗаполнение и не ЭтотОбъект.ОбменДанными.Загрузка Тогда
        обРегистрацияИзменений(ЭтотОбъект) ;
КонецЕсли;

5) Подчиненный узел создал копированием оригинала и удалением документов, юзеров. Затем сделал рокировку планов обмена (подмена кодов узла). Установил главный узел.
6) Почистил регистрацию изменений на всякий случай. Нужно учитывать если объект хоть где-то удаляется, то он удаляется и в остальных узлах!!!
7) Затем при первоначальном начале работы подчиненного узла убрал вызов помощника настройки обмена.

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