Проверить имя и владельца конкретного значения перечисления

Учебные задачи

Описание ПерваяГруппа подчинено перечислению АмортизационныеГруппы, а не напрямую корню конфигурации. Расширения исследуем без переключения.

Где и как запускать

Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.

Подготовка

  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. Идентификатор расширяемого объекта не является номером амортизационной группы.

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

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.