Документы:
Запрос = Новый Запрос;
Текст = "";
Для Каждого Документ Из Метаданные.Документы Цикл
Текст = Текст + "ВЫБРАТЬ " + Строка("""" + Документ.Имя + """") + " КАК Объект,
| СУММА(1) КАК Количество
| ИЗ Документ." + Документ.Имя + " КАК ОбъектМетаданных
| ГДЕ
| ОбъектМетаданных.Дата между &ДатаНачала и &ДатаОкончания
| ОБЪЕДИНИТЬ ";
КонецЦикла;
Запрос.УстановитьПараметр("ДатаНачала",?(ЗначениеЗаполнено(ДатаНачала),ДатаНачала,Дата("00010101")));
Запрос.УстановитьПараметр("ДатаОкончания",?(ЗначениеЗаполнено(ДатаОкончания),ДатаОкончания,КонецГода(ТекущаяДата())));
Запрос.Текст = Лев(Текст, СтрДлина(Текст) - СтрДлина(" ОБЪЕДИНИТЬ "));
ТЗ = Запрос.Выполнить().Выгрузить();
Справчоники:
Запрос = Новый Запрос;
Текст = "";
Для Каждого Справочник Из Метаданные.Справочники Цикл
Текст = Текст + "ВЫБРАТЬ " + Строка("""" + Справочник.Имя + """") + " КАК Объект,
| СУММА(1) КАК Количество
| ИЗ Справочник." + Справочник.Имя + " КАК ОбъектМетаданных
| ГДЕ НЕ ОбъектМетаданных.ПометкаУдаления
| ОБЪЕДИНИТЬ ";
КонецЦикла;
Запрос.Текст = Лев(Текст, СтрДлина(Текст) - СтрДлина(" ОБЪЕДИНИТЬ "));
ТЗ = Запрос.Выполнить().Выгрузить();
