8.х Подсчет кол-ва элементов в справочниках

Задача - подсчитать для всех справочников в конфигурации количество записей. Подумал и реализовал так:

Код:

	Для Каждого Справочник Из Метаданные.Справочники Цикл
ИмяСправочника = Справочник.Имя;
ЗапросКоличества = Новый Запрос;
ЗапросКоличества.Текст = "ВЫБРАТЬ
| Количество(Справочник.Код) КАК Всего
| ИЗ
| Справочник." + ИмяСправочника + " КАК Справочник";
Результат = ЗапросКоличества.Выполнить().Выбрать();

Пока Результат.Следующий() Цикл
КоличествоЗаписей = Результат.Всего;
КонецЦикла;
Сообщить("Число записей в справочнике " + ИмяСправочника + ": " + КоличествоЗаписей + " шт.");
КонецЦикла;

Но я уверен, что можно реализовать красивее. Например без запроса к БД. Справку полистал, но идей не прибавилось. Не поможете?

Нормальная реализация. Единственное, что я бы поправил - не у всех справочников есть код. Если такой встретится, будет ошибка. Так что лучше Справочник.Код поменять на Справочник.Ссылка.
Ну и с группами определиться нужно, считать их вместе с элементами или нет.

ASh, спасибо за советы, изменил. Теперь выглядит так:

Код:

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

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

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

Сообщить("Число записей в справочнике " + ИмяСправочника + ": " + КоличествоЗаписей + " шт.");
КонецЦикла;

Только остался вопрос - реквизит "Код" ведь обязательно должен быть у всех справочников, или нет?

Нет, код поле необязательное. Если установить длину кода равной 0, то такого поля не будет.

Он есть, но его длина может равнятся 0-лю.

Ясно, спасибо!