ОбъектМетаданных: ХранилищеНастроек.ПринадлежностьОбъекта

Найти описание хранилища вариантов отчётов КА2

Читаем подтверждённые имя/синоним/комментарий и отдельно диагностируем принадлежность и влияние расширений.

Подготовка

1. Отдельная учебная копия КА2 Progress из C:\claude\KA2\Progress\XML_CF_KA2_PROGRESS, конфигурация КомплекснаяАвтоматизация 2.5.20.75, платформа 8.5.1.1343. Код не изменяет исходную выгрузку.

2. Создайте серверный общий модуль УчебныеМетаданныеХранилища с флагом Сервер. Каждый урок — отдельный полный текст с процедурой ВыполнитьПример() Экспорт.

3. Подтверждённый источник: SettingsStorages\ХранилищеВариантовОтчетов.xml. Формы находятся в SettingsStorages\ХранилищеВариантовОтчетов\Forms, модуль менеджера — в Ext\ManagerModule.bsl.

4. Из серверной команды учебной обработки вызовите УчебныеМетаданныеХранилища.ВыполнитьПример(). Метаданные — описание схемы, не менеджер чтения/сохранения пользовательских вариантов.

5. Уроки только читают описание: не открывают штатные формы, не выполняют модуль менеджера, не загружают отчётные варианты и не меняют настройки пользователя.

6. Проверки формы/количества основаны на этой выгрузке. При другой версии или расширениях перепроверьте источник, не изменяйте активную конфигурацию ради совпадения чисел.

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

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

1. Проверяем имя/версию конфигурации перед поиском, поэтому пример не подставляет похожее хранилище из УНФ или другой КА2.

2. Найти может вернуть Неопределено; отсутствие проверяется до чтения свойств.

3. Имя — техническое, Синоним — пользовательский, Комментарий в XML пуст. Не используем синоним как ключ поиска.

4. Родитель относится к объекту метаданных конфигурации, не к пользователю настройки.

5. Принадлежность/расширение читаем диагностически: подключённые расширения могут отличаться от исходной выгрузки.

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

1. Четыре сравнения Истина для подтверждённого источника и родителя.

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

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

Найден конкретный объект метаданных и показана его идентичность, не содержимое сохранённых вариантов.

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

1. ОбъектМетаданных: ХранилищеНастроек не имеет Сохранить как менеджер хранилища.

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

3. Тип/принадлежность не является разрешением менять объект рабочей конфигурации.

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