Количество объектов метаданных в базе

1С v8

14.02.12

✎

16:31

Если что нибудь стандартное типа обработки, что покажет сколько элементов каждого вида в базе. Например сколько номенклатур, сколько поступлений.
Чтоб не писать.
???

1 Beduin

14.02.12

✎

16:32

Есть.

2 LamerSuper

14.02.12

✎

16:32

Есть ли этого чуда название?

3 LamerSuper

14.02.12

✎

16:33

Фотку надеюсь не надо?

4 Maxus43

14.02.12

✎

16:36

типовое? сомневаюсь. а запрос такой сбацать 10 минут жеж

5 Fish

гуру

14.02.12

✎

16:37

(2) Например Универсальный подбор и обработка объектов

6 zak555

14.02.12

✎

16:37

КоллекцияОбъектовМетаданных.Количество (MetadataObjectCollection.Count)
КоллекцияОбъектовМетаданных (MetadataObjectCollection)
Количество (Count)
Синтаксис:

Количество()
Возвращаемое значение:

Тип: Число.

Описание:

Получает количество объектов описаний, входящих в коллекцию.

Доступность:

Сервер, толстый клиент, внешнее соединение.
Пример:

Для Каждого Регистр Из Метаданные.РегистрыБухгалтерии Цикл
Если Регистр.Ресурсы.Количество()=0 Тогда
Продолжить;
КонецЕсли;
// обработка ресурсов
// ...
КонецЦикла;

7 LamerSuper

14.02.12

✎

16:41

(5) Хотелось что нибудь одним списком типа
Справочник номенклатура - 1000 шт
Поступление товаров и услуг -500 шт

8 zak555

14.02.12

✎

16:43

(7) так тебе нужно сколько объектов ?

9 PR

14.02.12

✎

16:44

Совсем народ обленился.

10 guitar_player

14.02.12

✎

16:46

(0) у меня есть. писать 20мин с чаем и группированным табличным документом.

11 guitar_player

14.02.12

✎

16:46

(3) тебе нет, только ухудшит

12 LamerSuper

14.02.12

✎

18:03

Про 20 минут я знаю. Я просто еще на нескольких инструментах счас играю. Времени не очень хватает.

13 Petr28

14.02.12

✎

19:59

Можно так
<code>
текст = "";
для каждого эл из Метаданные.Справочники цикл
Если текст<>"" Тогда
текст = текст + " ОБЪЕДИНИТЬ ВСЕ "+Символы.ПС;
КонецЕсли;
текст = текст + " Выбрать """+эл.имя+""", количество(РАЗЛИЧНЫЕ тз.ссылка) из Справочник."+эл.имя +" КАК тз ";
конеццикла;
для каждого эл из Метаданные.документы цикл
Если текст<>"" Тогда
текст = текст + " ОБЪЕДИНИТЬ ВСЕ "+Символы.ПС;
КонецЕсли;
текст = текст + " Выбрать """+эл.имя+""", количество(РАЗЛИЧНЫЕ тз.ссылка) из Документ."+эл.имя +" КАК тз ";
конеццикла;
запрос = новый запрос(текст);
тз=запрос.Выполнить().Выгрузить();
</code>