ОбъектМетаданных: Задача.Формы

Проверить основные и дополнительные формы трёх разных объектов

Ищем настройки ролей формы, не открывая формы процесса, задачи или узла. Отсутствие явно заданной формы не означает отсутствие стандартного интерфейса.

Подготовка

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

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

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

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

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

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

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

1. Порядок ролей: основная объекта, списка, выбора, затем дополнительные объекта, списка, выбора.

2. Формы — общая коллекция описаний, а шесть свойств — ссылки на формы по ролям.

3. Каждую ссылку проверяем на Неопределено до ПолноеИмя.

4. Объекты и формы не создаём, ОткрытьФорму не вызываем.

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

1. В XML у Задание заданы ФормаБизнесПроцесса и ФормаСписка, у ЗадачаИсполнителя — ФормаЗадачи и ФормаСписка; у Мобильные основные роли не заданы.

2. Для каждой схемы получены шесть строк ролей независимо от наличия форм; отсутствующие формы обработаны без исключения.

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

Найдены реальные роли форм для дальнейшего чтения их модулей.

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

1. Стандартная генерируемая форма и явно заданная форма — не одно и то же.

2. Свойство не доказывает, что пользователь увидит именно эту форму при всех параметрах открытия и расширениях.

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