Процедура КнопкаВыполнитьНажатие(Кнопка)
Макет = ПолучитьМакет("Макет");
ТабДок = ЭлементыФормы.ТабДок;
ТабДок.Очистить();
ОбластьШапки = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(ОбластьШапки);
ОбластьСтроки = Макет.ПолучитьОбласть("Строка");
ОбщееКоличество = 0;
Для каждого Справочник Из Метаданные.Справочники Цикл
Запрос = Новый Запрос("Выбрать * Из Справочник."+Справочник.Имя+"");
КоличествоЭлементов = Запрос.Выполнить().Выбрать().Количество();
Если КоличествоЭлементов <> 0 Тогда
ОбластьСтроки.Параметры.ВидОбъекта = "Справочник";
ОбластьСтроки.Параметры.Объект = Справочник.Имя;
ОбластьСтроки.Параметры.Количество = КоличествоЭлементов;
ТабДок.Вывести(ОбластьСтроки);
ОбщееКоличество = ОбщееКоличество + КоличествоЭлементов;
КонецЕсли;
КонецЦикла;
Для каждого Документ Из Метаданные.Документы Цикл
Запрос = Новый Запрос("Выбрать * Из Документ."+Документ.Имя+"");
КоличествоЭлементов = Запрос.Выполнить().Выбрать().Количество();
Если КоличествоЭлементов <> 0 Тогда
ОбластьСтроки.Параметры.ВидОбъекта = "Документ";
ОбластьСтроки.Параметры.Объект = Документ.Имя;
ОбластьСтроки.Параметры.Количество = КоличествоЭлементов;
ТабДок.Вывести(ОбластьСтроки);
ОбщееКоличество = ОбщееКоличество + КоличествоЭлементов;
КонецЕсли;
КонецЦикла;
ОбластьИтого = Макет.ПолучитьОбласть("Итого");
ОбластьИтого.Параметры.ОбщееКоличество = ОбщееКоличество;
ТабДок.Вывести(ОбластьИтого);
ТабДок.Показать();
КонецПроцедуры
Показать
Пожелание автору - сделайте пожалуйста понавороченнее. С отборами, с графиками и прочей удобностью... Иначе смысла нету от публикации....