ДатаКон=ТекущаяДата();    //реквизиты на форме
   ДатаНач=НачалоМесяца(ДатаКон);
   
   ТЗ="";
   Для Каждого Мет Из Метаданные.Документы Цикл
       ДокВыборка = Документы[Мет.Имя].Выбрать();
       Если ДокВыборка.Следующий() Тогда
           Если ТЗ<>"" Тогда
               ТЗ=ТЗ+" ОБЪЕДИНИТЬ ВСЕ "+Символы.ПС;
           КонецЕСли;    
               
           ТЗ=ТЗ+" ВЫБРАТЬ """+Мет.Имя+""" КАК ДокументИмя, """+Мет.Синоним+""" КАК ДокументСиноним, "+1+" КАК КоличВсего, "+0+" КАК КоличВПериоде ИЗ Документ."+Мет.Имя;
           ТЗ=ТЗ+" ОБЪЕДИНИТЬ ВСЕ "+Символы.ПС;
           ТЗ=ТЗ+" ВЫБРАТЬ """+Мет.Имя+""" КАК ДокументИмя, """+Мет.Синоним+""" КАК ДокументСиноним, "+0+" КАК КоличВсего, "+1+" КАК КоличВПериоде ИЗ Документ."+Мет.Имя;
           Если (ДатаНач>'00010101')ИЛИ(ДатаКон>'00010101') Тогда
               ТЗ=ТЗ+" ГДЕ ";
               Если (ДатаНач>'00010101') Тогда
                   ТЗ=ТЗ+" Документ."+Мет.Имя+".Дата >=&ДатаНач ";
               КонецЕСли;    
               Если (ДатаНач>'00010101')И(ДатаКон>'00010101') Тогда
                   ТЗ=ТЗ+" И ";
               КонецЕсли;    
               Если (ДатаКон>'00010101') Тогда
                   ТЗ=ТЗ+" Документ."+Мет.Имя+".Дата <=&ДатаКон ";
               КонецЕСли;
           КонецЕсли;    
       КонецЕсли;    
   КонецЦикла;
   //Сообщить(ТЗ);
   Запрос=Новый Запрос(ТЗ);
   ПараметрыЗапроса=Запрос.НайтиПараметры();
   Для Каждого Параметр Из ПараметрыЗапроса Цикл
       //Сообщить(Параметр.Имя);
       Если Параметр.Имя="ДатаНач" Тогда
           Запрос.УстановитьПараметр("ДатаНач",НачалоДня(ДатаНач));
       КонецЕсли;    
       Если Параметр.Имя="ДатаКон" Тогда
           Запрос.УстановитьПараметр("ДатаКон",КонецДня(ДатаКон));
       КонецЕсли;    
   КонецЦикла;    
   
   тбВидыДокументов=Новый ТаблицаЗначений;
   тбВидыДокументов=Запрос.Выполнить().Выгрузить();
   Если тбВидыДокументов.Количество()>0 Тогда
       тбВидыДокументов.Свернуть("ДокументИмя,ДокументСиноним","КоличВсего,КоличВПериоде");
       тбВидыДокументов.ВыбратьСтроку();
   КонецЕсли;

(0)
Похвастался?

Как бы сделать что бы запрос возвращал итоговые записи без детальных

Пипец... Зачем запросом выбирать все документы из базы?

Почему бы в запросе не сделать так?
ВЫБРАТЬ Количество(*)

ведь нужно только количество

(0) а зачем еще и выборка по документу ? смысл ее ?

а если база весит, например, 600ТБ, сколько лет будет этот реестр из базы высираться?

(0) делается (можно конструктором) текст запроса для одного документа (например "АвансовыйОтчет"), а потом
Запрос.Текст = Запрос.Текст + ?(ЗначениеЗаполнено(Запрос.Текст)," ОБЪЕДИНИТЬ ВСЕ ","") + СтрЗаменить(ТекстШаблона, "АвансовыйОтчет", Мет.Имя);

и да все условия уже в шаблон, никаких предварительных выборок и проверок дат

+(6) И что он вообще будет символизировать?

ник соответсвует ;)

(0) не обратил сначала внимания на установку параметров - это шедевр!

Исправил на Количество(*)

   ДатаКон=ТекущаяДата();    //реквизиты на форме
   ДатаНач=НачалоМесяца(ДатаКон);
   
   ТЗ="";
   Для Каждого Мет Из Метаданные.Документы Цикл
       ДокВыборка = Документы[Мет.Имя].Выбрать();
       Если ДокВыборка.Следующий() Тогда
           Если ТЗ<>"" Тогда
               ТЗ=ТЗ+" ОБЪЕДИНИТЬ ВСЕ "+Символы.ПС;
           КонецЕСли;    
               
           ТЗ=ТЗ+" ВЫБРАТЬ """+Мет.Имя+""" КАК ДокументИмя, """+Мет.Синоним+""" КАК ДокументСиноним, Количество(*) КАК КоличВсего, "+0+" КАК КоличВПериоде ИЗ Документ."+Мет.Имя;
           ТЗ=ТЗ+" ОБЪЕДИНИТЬ ВСЕ "+Символы.ПС;
           ТЗ=ТЗ+" ВЫБРАТЬ """+Мет.Имя+""" КАК ДокументИмя, """+Мет.Синоним+""" КАК ДокументСиноним, "+0+" КАК КоличВсего, Количество(*) КАК КоличВПериоде ИЗ Документ."+Мет.Имя;
           Если (ДатаНач>'00010101')ИЛИ(ДатаКон>'00010101') Тогда
               ТЗ=ТЗ+" ГДЕ ";
               Если (ДатаНач>'00010101') Тогда
                   ТЗ=ТЗ+" Документ."+Мет.Имя+".Дата >=&ДатаНач ";
               КонецЕСли;    
               Если (ДатаНач>'00010101')И(ДатаКон>'00010101') Тогда
                   ТЗ=ТЗ+" И ";
               КонецЕсли;    
               Если (ДатаКон>'00010101') Тогда
                   ТЗ=ТЗ+" Документ."+Мет.Имя+".Дата <=&ДатаКон ";
               КонецЕСли;
           КонецЕсли;    
       КонецЕсли;    
   КонецЦикла;
   //Сообщить(ТЗ);
   Запрос=Новый Запрос(ТЗ);
   ПараметрыЗапроса=Запрос.НайтиПараметры();
   Для Каждого Параметр Из ПараметрыЗапроса Цикл
       //Сообщить(Параметр.Имя);
       Если Параметр.Имя="ДатаНач" Тогда
           Запрос.УстановитьПараметр("ДатаНач",НачалоДня(ДатаНач));
       КонецЕсли;    
       Если Параметр.Имя="ДатаКон" Тогда
           Запрос.УстановитьПараметр("ДатаКон",КонецДня(ДатаКон));
       КонецЕсли;    
   КонецЦикла;    
   
   тбВидыДокументов=Новый ТаблицаЗначений;
   тбВидыДокументов=Запрос.Выполнить().Выгрузить();
   Если тбВидыДокументов.Количество()>0 Тогда
       тбВидыДокументов.Свернуть("ДокументИмя,ДокументСиноним","КоличВсего,КоличВПериоде");
       тбВидыДокументов.ВыбратьСтроку();
   КонецЕсли;

(7) а если даты на форме будут не заполнены?

Убить автора на лету лопатой.

(10) где именно "шедевр"?

(11) Прямо полегчало, да... Теперь у нас не кусок гуано, а кусок гуано со стразиком.

тему хорошо переименовали)

(11) Добавь ещё ИТОГИ

прям забросали какашками, нет что б подсказать конкретно

только САМ и помогает, остальные крутые

(0) О, то что надо, давно искал! Спасибо!!11

(18) как-то так:

Итоги = Новый Соответствие;
Для Каждого Мет Из Метаданные.Документы Цикл
 Запрос.Текст = "Выбрать количество(*) как колво ИЗ Документ." + Мет.имя;
 выб = Запрос.Выполнить().Выбрать();
 выб.следующий();
 итоги[мет.Имя] = выб.колво;
КонецЦикла;

(18) Что подсказать-то? Как получить число 42 в разрезе всей базы?

(22) допустим открываем реестр документов в торговле и хотим выбрать какие то виды документов, мы видим в том числе и те которые никогда не использовались, а мой реестр показывает только те которые использовались

(23) Переводчик! В зале есть переводчик?
Какая практическая польза от этой твоей цифры?

Шаблон =
   "ВЫБРАТЬ
   |    КОЛИЧЕСТВО(*) КАК КоличВсего,
   |    ""_Синоним_"" КАК Синоним,
   |    ""АвансовыйОтчет"" КАК ДокументИмя,
   |    СУММА(ВЫБОР
   |            КОГДА Док.Дата МЕЖДУ &Дата1 И &Дата2
   |                ТОГДА 1
   |            ИНАЧЕ 0
   |        КОНЕЦ) КАК КоличВПериоде
   |ИЗ
   |    Документ.АвансовыйОтчет КАК Док
   |
   |ИМЕЮЩИЕ
   |    КОЛИЧЕСТВО(*) <> 0";
   
   
   ТЗ = "";
   Для каждого МДДок Из Метаданные.Документы Цикл
       
       Подзапрос = СтрЗаменить(Шаблон, "АвансовыйОтчет", МДДок.Имя);
       Подзапрос = СтрЗаменить(Подзапрос, "_Синоним_", МДДок.Синоним);
       ТЗ = ТЗ + ?(ЗначениеЗаполнено(ТЗ), Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС,"") + Подзапрос;
       
   КонецЦикла;
   
   Запрос = Новый Запрос(ТЗ);
   Запрос.УстановитьПараметр("Дата1",Дата1);
   Запрос.УстановитьПараметр("Дата2",Дата2);
   тбВидыДокументов=Запрос.Выполнить().Выгрузить();
   тбВидыДокументов.ВыбратьСтроку();

(24) по этому реестру можно быстро оценить направление деятельности в незнакомой базе особенно если там используются редкие документы.

(26)
Может быть один документ, в котором 10000000 строк в ТЧ, и 1000 документов с одним реквизитом

(26) форум дружно поржал

(26) открой для себя базопузомер )))

(26)предполагается что Дата1 и Дата2 реквизиты на форме и могут быть не установлены

(30) для этих целей культурные люди СКД или на худой конец построитель используют

(29) владельцу джипа не нужен велик?

(31) Реестр документов в торговле сделан на СКД?

(24) ну как?.. открываешь, а там - татататам-татам - одна и та же херня, которую ты уже видет в 100499 других утэшках. Видишь и понимаешь - все по плану.

(33) ты ни хрена не понял...

(26) А, точно. В ЗУПе я увижу 100500 документов "Начисление заработной платы", глубокомысленно обдумаю эту информацию и сделаю неопровержимый вывод - в этой базе начисляют людям зарплату!

(36) Господа модераторы удалите тему плиз   Defender'у aka LINN эта обработка не нужна

пошёл я дальше делать то что не надо

(37),(38) на, держи, ты потерял: ,, - !