При разработке универсальных инструментов в экосистеме 1С программисты часто сталкиваются с задачей создания одной обработки, которая должна бесперебойно работать в разных типовых решениях: УПП, УТП, Бухгалтерия или ERP. Основная сложность заключается в том, что разные конфигурации содержат разные наборы общих модулей и метаданных. Даже если мы поместим вызов специфического метода в условие Если...Тогда, система 1С при попытке сохранения или выполнения обработки проведет синтаксическую проверку и выдаст ошибку "Переменная не определена", обнаружив обращение к отсутствующему в данной базе общему модулю. В этой статье мы разберем, почему так происходит и как правильно реализовать "позднее связывание" в 1С.
Прежде чем мы перейдем к решениям, давайте проанализируем ситуацию. Платформа 1С выполняет компиляцию программного модуля перед его запуском. Компилятор проверяет наличие всех объектов, к которым идет прямое обращение в коде. Инструкция Если ИмяКонфигурации = "УПП" Тогда является логическим условием, которое вычисляется в момент выполнения, но проверка синтаксиса происходит до этого. Если в коде написано УправлениеЗатратами.Метод(), а модуля УправлениеЗатратами в текущей базе нет, конфигуратор не позволит даже сохранить такую обработку. Нам необходимо "спрятать" вызов от компилятора и сделать его динамическим.
Самый простой и универсальный способ обойти жесткую проверку синтаксиса — использовать встроенные функции для динамического исполнения кода. Поскольку текст команды передается в эти функции в виде строки, компилятор игнорирует его при предварительной проверке. Рассмотрим подробнее, как это реализовать на практике.
Для процедур, которые не возвращают значение, используем Выполнить:
Если ИмяКонфигурации() = "УправлениеПроизводственнымПредприятием" Тогда
ТекстКоманды = "УправлениеЗатратами.РассчитатьСебестоимость()";
Выполнить(ТекстКоманды);
КонецЕсли;
Если нам нужно получить результат функции (например, счета учета), воспользуемся функцией Вычислить. Разберем по шагам пример из обсуждения на форуме:
СчетаУчета = Неопределено;
Если ЭтоУПП_или_УТП Тогда
// Прямой вызов вызвал бы ошибку, поэтому используем строку
СчетаУчета = Вычислить("УправлениеЗатратами.ПолучитьСчетаУчетаСтатьиЗатрат()");
ИначеЕсли ЭтоБухгалтерия Тогда
СчетаУчета = Вычислить("БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом()");
КонецЕсли;
Важный нюанс: использование этих функций требует осторожности, так как ошибки в строке кода будут обнаружены только в момент выполнения. Рекомендуется всегда оборачивать такие вызовы в блок Попытка...Исключение.
Если ваши конфигурации построены на базе БСП (что характерно для большинства современных решений 1С), то правильнее и безопаснее использовать стандартные механизмы библиотеки. В модуле ОбщегоНазначения существуют специальные функции-обертки для динамических вызовов.
Проанализируем пример использования метода ВыполнитьМетодКонфигурации. Этот подход считается более "культурным" с точки зрения стандартов разработки 1С, так как он централизованно обрабатывает вопросы безопасности и контекста исполнения.
// Определяем имя модуля и метода в зависимости от логики
ИмяМодуля = "УправлениеЗатратами";
ИмяМетода = "ПолучитьСчетаУчетаСтатьиЗатрат";
// Проверяем наличие модуля в метаданных перед вызовом
Если Метаданные.ОбщиеМодули.Найти(ИмяМодуля) <> Неопределено Тогда
Результат = ОбщегоНазначения.ВыполнитьМетодКонфигурации(ИмяМодуля + "." + ИмяМетода, Параметры);
КонецЕсли;
Также в БСП есть полезная функция ОбщегоНазначения.ОбщийМодуль(), которая возвращает ссылку на программный интерфейс модуля по его имени в виде строки. Это позволяет писать гибкий код без использования Вычислить напрямую.
Вместо того чтобы полагаться на имя конфигурации (которое может быть изменено разработчиками), выясним причину наличия того или иного функционала через проверку метаданных. Это сделает вашу обработку по-настоящему "умной". Вы можете проверять наличие не только модулей, но и реквизитов, документов или регистров.
Рассмотрим пример проверки наличия реквизита в документе перед обращением к нему:
ДокументОбъект = Ссылка.ПолучитьОбъект();
МетаданныеДокумента = ДокументОбъект.Метаданные();
// Проверяем, есть ли в этой версии конфигурации нужный нам реквизит
Если МетаданныеДокумента.Реквизиты.Найти("Проект") <> Неопределено Тогда
ДокументОбъект.Проект = МойПроект;
КонецЕсли;
// Для общих модулей проверка выглядит так
Если Метаданные.ОбщиеМодули.Найти("ПроведениеСервер") <> Неопределено Тогда
// Модуль существует, можно использовать динамический вызов
КонецЕсли;
Для сложных мультиплатформенных обработок мы рекомендуем создать отдельную функцию-диспетчер внутри модуля обработки. Это позволит сосредоточить всю логику разделения по конфигурациям в одном месте, не загромождая основной алгоритм проверками.
Посмотрим на пример реализации такого диспетчера:
Функция ПолучитьДанныеКонфигурации(ТипДанных)
// Определяем тип конфигурации один раз при инициализации
Если ТипКонфигурации = "УПП" Тогда
Если ТипДанных = "СчетаУчета" Тогда
Возврат Вычислить("УправлениеЗатратами.ПолучитьСчетаУчетаСтатьиЗатрат()");
КонецЕсли;
ИначеЕсли ТипКонфигурации = "Бухгалтерия" Тогда
Если ТипДанных = "СчетаУчета" Тогда
Возврат Вычислить("БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом()");
КонецЕсли;
КонецЕсли;
Возврат Неопределено;
КонецФункции
Подведем итоги:
Выполнить()/Вычислить().ОбщегоНазначения.Метаданные перед вызовом, чтобы избежать ошибок времени выполнения (Runtime errors).Попытка...Исключение для защиты критических участков кода, работающих с динамическими вызовами.Следуя этим правилам, вы сможете создавать надежные и универсальные инструменты, которые будут успешно проходить синтаксический контроль в любой базе данных 1С, независимо от её версии и наполнения.