Имя: Пароль:
1C
1С v8
Количество объектов метаданных в базе
,
0 LamerSuper
 
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>