Сканирование объектов метаданных.

Это моя первая деятельность в 1С, поэтому буду рад услышать пожелания и предложения по данному отчету, однако уже на данном этапе разработки он вполне способен справиться с поставленной задачей.

Перебор объектов осуществляется циклом, в котором присутствует запрос для определения количества по каждому объекту. Данные заносятся в таблицу значений с последующей передачей е в отчет.

Для передачи параметров, конкретизирующих поиск используются реквизиты формы, так они видны отовсюду.

Часть кода отчета представлена ниже.

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
МетТаб = Новый ТаблицаЗначений;
ОтборМетаданных = Новый Структура;
МетТаб.Колонки.Добавить("ОбъектМетаданных");
МетТаб.Колонки.Добавить("Наименование");
МетТаб.Колонки.Добавить("Количество");
МетТаб.Колонки.Добавить("Организация");

Для Каждого Справочник Из Метаданные.Справочники Цикл
ИмяСправочника = Справочник.Имя;
СинонимОбъекта = Справочник.Синоним;

ТекстЗапроса = "ВЫБРАТЬ
| Количество(Справочник.Ссылка) КАК Всего
| ИЗ
| Справочник." + ИмяСправочника + " КАК Справочник";
Если (Справочник.Иерархический и Строка(Справочник.ВидИерархии) <> "ИерархияЭлементов") Тогда //Справочник.ВидИерархии
ТекстЗапроса = ТекстЗапроса + "
| ГДЕ Справочник.ЭтоГруппа = ЛОЖЬ";
КонецЕсли;

ЗапросКоличества = Новый Запрос(ТекстЗапроса);
Результат = ЗапросКоличества.Выполнить().Выбрать();
Если Результат.Следующий()Тогда
КоличествоЗаписей = Результат.Всего;
КонецЕсли;

Стр = МетТаб.Добавить();
Если СинонимОбъекта = "" Тогда
СинонимОбъекта = ИмяСправочника;
КонецЕсли;
Стр.ОбъектМетаданных = "Справочник";
Стр.Наименование = СинонимОбъекта;
Стр.Количество = КоличествоЗаписей;
Стр.Организация = "Без привязки";
КонецЦикла;


ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных; // Создаем данные расшифровки
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; // Создаем компоновщик макета
СхемаКомпоновкиДанных = ПолучитьМакет("Макет");
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, Новый Структура("ОтборМетаданных", МетТаб), ДанныеРасшифровки);

ДокументРезультат.Очистить();

// Выводим результат в табличный документ
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);

КонецПроцедуры