ОбъектМетаданных: Задача.РасширениеКонфигурации

Проверить происхождение схем процесса, задачи и плана обмена

Родитель метаданных не является ответственным сотрудником, владельцем задачи или узлом обмена. Сверяем структуру и влияние расширений.

Подготовка

1. Запускайте в учебной копии конфигурации. Примеры читают структуру метаданных, но не создают объекты, не записывают регистры и не проводят документы.

2. Сверяйте вывод с деревом конфигурации в Конфигураторе. Имена, длины и настройки в УНФ, КА2, БП, УТ 11 и УТ 10.3 могут различаться.

3. Имена объектов взяты из XML КА2 Progress: C:\claude\KA2\Progress\XML_CF_KA2_PROGRESS. Исходные XML не изменяйте. Выполняйте код только в своей учебной копии соответствующей конфигурации.

4. В другой конфигурации предварительно найдите аналогичный объект в Конфигураторе и замените только строку имени в поиске. Отсутствие имени обрабатывается до чтения свойств; оно не доказывает отсутствие аналогичной возможности.

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

Процесс = Метаданные.БизнесПроцессы.Найти("Задание");
Если Процесс = Неопределено Тогда
    ВызватьИсключение "В учебной конфигурации отсутствует БизнесПроцессы.Задание";
КонецЕсли;
Задача = Метаданные.Задачи.Найти("ЗадачаИсполнителя");
Если Задача = Неопределено Тогда
    ВызватьИсключение "В учебной конфигурации отсутствует Задачи.ЗадачаИсполнителя";
КонецЕсли;
План = Метаданные.ПланыОбмена.Найти("Мобильные");
Если План = Неопределено Тогда
    ВызватьИсключение "В учебной конфигурации отсутствует ПланыОбмена.Мобильные";
КонецЕсли;
Описания = Новый Массив;
Описания.Добавить(Процесс);
Описания.Добавить(Задача);
Описания.Добавить(План);
Для Каждого Описание Из Описания Цикл
    Сообщить(СтрШаблон("%1: %2", Описание.ПолноеИмя(), Описание.Представление()));
    Сообщить("Комментарий: " + Описание.Комментарий);
    Сообщить(Описание.Родитель() = Метаданные);
    Сообщить(Описание.ПринадлежностьОбъекта);
    Сообщить(Описание.ОбъектРасширяемойКонфигурации);
    Сообщить("Изменён расширениями: " + Строка(Описание.ЕстьИзмененияРасширениямиКонфигурации()));
    Расширение = Описание.РасширениеКонфигурации();
    Если Расширение = Неопределено Тогда
        Сообщить("Описание не добавлено расширением по этому методу");
    Иначе
        Сообщить("Добавившее расширение: " + Расширение.Имя);
    КонецЕсли;
КонецЦикла;

Разбор по шагам

1. Родитель корневого описания — конфигурация, не бизнес-объект.

2. Комментарий и Представление описывают схему для человека.

3. РасширениеКонфигурации и ЕстьИзмененияРасширениямиКонфигурации отвечают на разные вопросы: добавление и изменение.

4. Ни расширения, ни настройки поддержки соответствия в примере не меняются.

Как проверить результат

1. Три сравнения с Метаданные дают Истина для указанных корневых описаний.

2. В базе без расширений ветка с добавившим расширением не выполняется; факт изменения базового объекта расширением не требует ненулевого результата метода добавления.

Ожидаемый результат

Проверена идентичность схемы и корректно истолковано её происхождение.

На что обратить внимание

1. Флаги расширений не являются проверкой кода или конфликта бизнес-логики.

2. Не используйте идентификатор расширяемого объекта как номер внешнего заказа.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.