Имя: Пароль:
1C
1C 7.7
v7: количество документов всего у которых есть проводки
0 jump if zero
 
01.11.11
10:43
Щас приходиться считать документы в цикле, а как сделать чтобы запрос сразу возвращал одну строчку с количеством документов

Запрос = СоздатьОбъект("Запрос");
ДатаНач = НачГода(РабочаяДата());
ДатаКон = КонГода(РабочаяДата());
 
   ТекстЗапроса = "
   |Период с ДатаНач по ДатаКон;
   |ОбрабатыватьДокументы Проведенные;
   |Операция = Операция.ТекущийДокумент;  
   |Функция КоличествоСчетчик = Счётчик(Операция);
   |Группировка Операция;";
   
КоличествоДокуменов =0;
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
  Пока Запрос.Группировка(1) = 1 Цикл
   //сообщить(""+Запрос.КоличествоСчетчик);
       
   КоличествоДокуменов =КоличествоДокуменов+1;
КонецЦикла;
КонецЕсли;

сообщить(КоличествоДокуменов);
1 МихаилМ
 
01.11.11
10:48
уберите |Группировка Операция;";
2 jump if zero
 
01.11.11
11:04
так не получается

даже в цикл не заходит
Пока Запрос.Группировка() = 1 Цикл
3 1Сергей
 
01.11.11
11:04
(2) а туда заходить и не надо
4 Мулька
 
01.11.11
11:05
БазоПузомер религия не позволяет юзать?
5 ДенисЧ
 
01.11.11
11:06
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
   сообщить(""+Запрос.КоличествоСчетчик);
6 jump if zero
 
01.11.11
11:07
(3) точно получилось

(4) не знаю что это.
7 Мулька
 
01.11.11
11:09
(6) Гугль в помощь БазоПузоМер.ert
8 jump if zero
 
01.11.11
11:17
(7)

нашел, спасибо
http://www.mista.ru/download1c/bazopuzo.zip
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.