Каталог решений - Прокси-функции

Давайте рассмотрим такую ситуацию.

У нас две базы: одна основана на конфигурации «Управление торговлей» (далее по тексту УТ), а другая на конфигурации «Розница» (далее по тексту РТ). Между базами настроен типовой онлайн обмен. Обе конфигурации сняты с поддержки и мы вольны дорабатывать их как пожелаем. В базе «Розница» учет себестоимости не ведется.

Вдруг возникает необходимость определения себестоимости номенклатуры в базе РТ. Сразу скажу, что первая мысль которая приходит: «Наверное, в нашей архитектуре что-то не так!». Но сейчас мы не будем это обсуждать.

Вторая мысль, которая приходит: «Подключусь к базе УТ из базы РТ используя ComConnector и получу любые данные, которые потребуются». Если воплотить эту мысль в функцию ПолучитьСебестоимостьНоменклатуры(Номенклатура), реализованую в конфигурации РТ, то мы совершим 2 ошибки:

• Смешаем технические особенности написания кода при использовании ComConnector-а и требуемую логику работы
• Разместим логику работы не в подходящем месте — вдали от нужных данных

Как сделать лучше?

А давайте функцию по получению себестоимости реализуем в конфигурации УТ, в области видимости для внешних соединений (пусть это будет модуль внешнего соединения).

Процедура ПолучитьСебестоимостьНоменклатуры(Номенклатура) Экспорт
     //Понятная всем реализация алгоритма получения себестоимости номенклатуры
     Возврат Себестоимость;
КонецПроцедуры

В свою очередь, в конфигурации РТ добавим общий модуль «МодульПроксиУТ», и все описанные ниже функции разместим в нем. Слово «Прокси» в названии общего модуля — это напоминание того как на самом деле все устроено.

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

Процедура ПолучитьСоединениеУТ() Экспорт
     //Определяем данные для подключения к базе УТ и создаем соединение
     Соединитель = Новый COMObject("V82.COMConnector");
     Соединение = Соединитель.Connect(СтрокаПодключения);
     Возврат Соединение;
КонецПроцедуры

Функция ПолучитьУзелОбменаУТ()   
    //Можно придумать более изящный способ
    Возврат ПланыОбмена.ОбменУправлениеТорговлейРозничнаяТорговля.НайтиПоКоду("001");    
КонецФункции

Функция ПолучитьСсылкуУТ(СоединениеУТ, СсылкаРТ)
    Запрос = Новый Запрос();
    Запрос.Текст = "ВЫБРАТЬ
                   |    СоответствиеОбъектовДляОбмена.СобственнаяСсылка КАК СсылкаРТ,
                   |    СоответствиеОбъектовДляОбмена.СсылкаВДругойИБ КАК СтроковаяСсылкаУТ
                   |ИЗ
                   |    РегистрСведений.СоответствиеОбъектовДляОбмена КАК СоответствиеОбъектовДляОбмена
                   |ГДЕ
                   |    СоответствиеОбъектовДляОбмена.УзелОбмена = &УзелОбменаУТ
                   |    И СоответствиеОбъектовДляОбмена.СобственнаяСсылка = &СсылкаРТ";
    Запрос.УстановитьПараметр("СсылкаРТ", СсылкаРТ);
    Запрос.УстановитьПараметр("УзелОбменаУТ", ПолучитьУзелОбменаУТ());
    Выборка = Запрос.Выполнить().Выбрать();
    Если Выборка.Следующий() Тогда
        Возврат СоединениеУТ.ЗначениеИзСтрокиВнутр(Выборка.СтроковаяСсылкаУТ);
    Иначе
        ВызватьИсключение "Понятный текст исключения";
    КонецЕсли;   
КонецФункции

Как использовать?

Получение себестоимости номенклатуры в РТ станет красивым и понятным (про производительность и архитектурность я молчу).

В случае если нам нужно получить себестоимость по одной номенклатуре, то достаточно:

Себестоимость = МодульПроксиУТ.ПолучитьСебестоимостьНоменклатуры(Номенклатура);

В случае если нам нужно получить себестоимость сразу по нескольким номенклатурам, то прозрачность кода несколько теряется:

СоединениеУТ = МодульПроксиУТ.ПолучитьСоединениеУТ();
Себестоимость1 = МодульПроксиУТ.ПолучитьСебестоимостьНоменклатуры(Номенклатура1, СоединениеУТ);
Себестоимость2 = МодульПроксиУТ.ПолучитьСебестоимостьНоменклатуры(Номенклатура2, СоединениеУТ);

Особенности прокси-функции

• Количество параметров в прокси-функции на 1 больше чем в реальной — последним параметром передается необязательный параметр соединения
• Первый логический блок функции содержит код по установлению соединения, в случае, если его не установили ранее
• Второй логический блок функции содержит код для перевода входящих параметров в понятные для УТ объекты
• Третий логический блок функции содержит, собственно, вызов реальной функции.
• Четвертый логический блок функции содержит код для перевода результата в понятные для РТ объекты и возвращает результат.

Особенности реализации примера

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

Чего мы добились?

• Разделили технические особенности при работе с ComConnector-ом и основную логику работы
• Разместили код основной логики в правильном месте
• Ну и, как следствие, получили более понятный и удобный для поддержки код

Заключение

Статья не о том как получить себестоимость номенклатуры в РТ по данным УТ, а о том как, используя идею прокси-функций, писать более «чистый» код. Я считаю, что описанный подход нужно по возможности использовать всегда при интеграции с другими системами, а не только при использовании ComConnector-a.

Спасибо за внимание!