К сожалению, в платформе 1С8 нет возможности выполнять запросы к метаданным.
А при анализе конфигурации порой хочется получить список всех справочников или всех реквизитов документов, которые содержат определенный тип.
Для таких целей программисты обычно пишут обход дерева метаданных.
Я тоже так раньше делал, но потом написал универсальную функцию обхода дерева.
Она не слишком шустрая, т.к. использует команду « Выполнить » для отбора результата, но в таких задачах шустрость не всегда нужна.
Вот код функции, обходящей метаданные:
Функция ОбойтиМетаданные (П, Код)
//Обходит метаданные, выбирая код отбора.
Для Каждого Класс ИЗ МДКласc Цикл
ОбойтиМетаданныеСлуж(П, Описание, Код);
Если П.Пропустить Тогда
Если Класс=»Константы» Тогда
Для Каждого МДАтрибут ИЗ Метаданные.Константы Цикл
ОбойтиМетаданныеСлуж(П, Описание, Код);
Для Каждого МДВид ИЗ Метаданные[Класс] Цикл
Описание.Вставить («Вид», МДВид.Имя );
Описание.Вставить («Уровень», «Вид»);
Описание.Вставить («Синоним», МДВид.Синоним );
ОбойтиМетаданныеСлуж (П, Описание, Код);
Если П.Пропустить Тогда
Для Каждого МДАтрибут ИЗ МДВид.Реквизиты Цикл
Описание.Вставить («Уровень», «Атрибут»);
Описание.Вставить («Атрибут», МДАтрибут.Имя );
Описание.Вставить («Синоним», МДАтрибут.Синоним );
Описание.Вставить (» ТипАтрибута «, МДАтрибут.Тип );
Описание.Вставить (» ВидАтрибута «, «Реквизит»);
ОбойтиМетаданныеСлуж (П, Описание, Код);
Для Каждого МДАтрибут ИЗ МДВид.Измерения Цикл
Описание.Вставить («Уровень», «Атрибут»);
Описание.Вставить («Атрибут», МДАтрибут.Имя );
Описание.Вставить («Синоним», МДАтрибут.Синоним );
Описание.Вставить (» ТипАтрибута «, МДАтрибут.Тип );
Описание.Вставить (» ВидАтрибута «, «Измерение»);
ОбойтиМетаданныеСлуж (П, Описание, Код);
Для Каждого МДАтрибут ИЗ МДВид.Ресурсы Цикл
Описание.Вставить («Уровень», «Атрибут»);
Описание.Вставить («Атрибут», МДАтрибут.Имя );
Описание.Вставить («Синоним», МДАтрибут.Синоним );
Описание.Вставить (» ТипАтрибута «, МДАтрибут.Тип );
Описание.Вставить (» ВидАтрибута «, «Ресурс»);
ОбойтиМетаданныеСлуж (П, Описание, Код);
Функция ОбойтиМетаданныеСлуж(П, Описание, Код)
Если Р = истина Тогда
П — это пустая структура, в нее в будет добавлена таблица значений с результатом в поле «ТЗ».
Код — это условие отбора записей из метаданных.
Для функции метаданные представляются как плоская таблица с колонками:
Атрибут — имя реквизита объекта (для уровня «Атрибут»)
ТипАтрибута — тип значения реквизита объекта (для уровня «Атрибут»)
ВидАтрибута — «Реквизит», «Измерение», «Ресурс» (для уровня «Атрибут»)
Синоним — синоним текущего метаданного , если он задан (для уровня «Вид» или «Атрибут»)
Уровень — уровень текущей записи, т.е. что описывает текущая запись «Класс», «Вид» или «Атрибут»
Т.е., по сути, метаданные рассматриваются как иерархический справочник с уровнями иерархии: Класс, затем Вид, затем Атрибут.
Выражение для код записывается на языке 1С, где Описание — текущая запись метаданных, если в переменную Р возвращается истина, то осуществляется отбор.
Пример отбора реквизитов, содержащих тип ХранилищеЗначения :
Код = «Р = Описание.Уровень = «»Атрибут»» И Описание.ТипАтрибута.СодержитТип(Тип(«»ХранилищеЗначения»»))»;
Пример получения списка всех справочников:
Код = «Р = Описание.Уровень = «»Вид»» И Описание.Класс = «Справочники»;
Запрос к метаданным использован также в следующих моих разработках:
· Проверка размера данных в хранилищах значений
· Анализ прав доступа
Конечно, обработку можно ускорить, избавиться от В ыполнить , но пока и в таком виде она неплохо справляется.
Как видно, не все объекты метаданных поддерживаются, например, нет бизнес-процессов, но основные типы есть, остальные можно прикрутить. 😉
Будут идеи — пишите, а может берите, и подтачивайте под свои нужды, а потом шлите мне исправления. Если что, опубликую.
Область применения: управляемое приложение, мобильное приложение, обычное приложение.
1. В тех случаях, когда известен тип объекта метаданного (справочник, документ, и т.п.), то получение метаданных объекта конфигурации следует выполнять с помощью метода Метаданные этого объекта (или ссылки для объектов ссылочного типа), а не путем обращения к свойству глобального контекста Метаданные , так как второй способ существенно более медленный.
2. В тех случаях, когда тип объекта метаданного заранее неизвестен, рекомендуется воспользоваться методом НайтиПоТипу , например:
// Получить полное имя объекта метаданных вида «Справочник.Номенклатура», «Документ.ПриходнаяНакладная» по переданной ссылке.
ИмяОбъектаМетаданного = Метаданные.НайтиПоТипу(ТипЗнч(Ссылка)).ПолноеИмя();
При написании небольших автоматизированных тестов часто надо обойти всю конфигурацию и проверить, например, для всех форм какое-нибудь свойство. Это всё легко делается через свойство глобального контекста «Метаданные», но чтоб дорбаться до обхода реквизитов надо написать кучу вложенных циклов. При этом код становится слабочитаемым и слабомодифицируемым.
Ниже приведен небольшой модуль, который решает задачу легко и удобно. Создана специальная функция РазвернутьСтрокуОбходаМетаданных, которая может по строке типа «Метаданные.Справочники.*.Реквизиты.*» построить массив строк с перечислением всех реквизитов всех справочников. При помощи этой и нескольких других функций в экспортных функциях модуля реализованы вполне прикладные задачи — получение всех реквизитов, всех макетов, всех форм конфигурации и построение таблицы всех составных типов.
