Отделить дочерние подсистемы от объектов состава раздела

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

Подсистемы описывает вложенные разделы, Состав — связанные объекты. Проверяем родителя ребёнка, не принимая первый объект состава за подраздел.

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

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

Подготовка

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

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

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

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

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

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

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

  1. Считаем две разные коллекции.

  2. У дочернего раздела родитель — выбранная подсистема, не корень конфигурации.

  3. Отсутствие детей обрабатывается естественно: цикл не выполняется.

  4. Проверяем число пройденных детей, не создаём вложенные подсистемы.

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

  1. Последнее сравнение даёт Истина и при нуле детей.

  2. Для каждого существующего ребёнка сравнение родителя даёт Истина; сверяйте дерево Конфигуратора.

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

Разделены иерархия разделов и состав объектов.

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

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

  2. Этот урок не рекурсивный обход всей конфигурации и не подсчёт всех потомков.

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

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

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

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

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