Имя: Пароль:
1C
1С v8
Как запросом получить список всех типов документов, которые есть в базе?
,
0 memogolik
 
17.04.12
09:31
Сабж.
Можно ли такой запрос написать, чтобы не список документов в конфе, а именно список документов, которые присутствуют в базе с количеством >=1
Заранее спасибо.
1 YF
 
17.04.12
09:32
(0) Можно
2 Никола_
Питерский
 
17.04.12
09:32
можно
3 butterbean
 
17.04.12
09:32
цикл по метаданным с набиванием текста запроса
4 ZanderZ
 
17.04.12
09:34
(0) разрешаю пиши
5 WebberNSK
 
17.04.12
09:40
(1),(2),(4) ппц тролли...
6 memogolik
 
17.04.12
09:53
Ну так запрос или хотя бы с какой стороны к нему подойти можно обозначить?)
7 butterbean
 
17.04.12
09:54
(6)
ВЫБРАТЬ Реализация ИЗ Документ.Реализация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ПоступлениеИЗ Документ.Поступление

и т.д.
8 butterbean
 
17.04.12
09:54
(7)+ т.е.
ВЫБРАТЬ "Реализация" ИЗ Документ.Реализация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ "Поступление" ИЗ Документ.Поступление
9 mikecool
 
17.04.12
09:55
(5) Д'артаньян? не признал )
10 Капитан Смоллет
 
17.04.12
09:55
11 Torquader
 
17.04.12
09:56
(8) Неужели всё в один запрос будет проще, чем отдельный запрос по каждому документу ?
12 Serg_1960
 
17.04.12
09:56
не троллю, но... Все объекты в одном запросе - "А зачем?"(с)
13 butterbean
 
17.04.12
09:56
(11) чо??
14 DimVad
 
17.04.12
09:57
У меня вот такой код завалялся:

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

   Для Каждого Стр_ Из тз Цикл
       Если Стр_.Кол = 0 И НЕ ВыводитьНулевые Тогда
           Продолжить;
       КонецЕсли;
       
       Сообщить(Стр_.Спр + " - " + Стр_.Кол);
   КонецЦикла;
   
КонецПроцедуры
15 MaxS
 
17.04.12
10:02
Готовая простая универсальная обработка, показывает какие есть заполненные документы и справочники.
http://infostart.ru/public/15800/
16 memogolik
 
17.04.12
10:05
Всем огромное спасибо, друзья!