[Yoja]

Добрый день!
Давно не работал с 1С, следовательно нужна Ваша помощь!!!

Имеем:
1.)
1П:Предприятие 7.7 для SQL (7.70.027)
Конфигурация
"Бухгалтерский учет" для Украины (7.70.252)

2.)
Выбрать кассовые операции (ПКО, РКО) за период с сортировкой по
а) касса
б) дата

3.)
Вот таблица, нужно заполнить поля

Ячейке присвоил имя ДОК, тип ячейки Выражение

4.)

//*******************************************
 Процедура Сформировать()  
     
    //это берем с формы
     Если (Число(Дата1) = 0) или (Число(Дата2) = 0) или (Дата1 > Дата2) Тогда
         Сообщить("Не правильно заполнен период","!");
         Возврат;
     КонецЕсли;
     
     Таб = СоздатьОбъект("Таблица");       
     Таб.ИсходнаяТаблица("RU_Таблица");
                                                              
     //Таб.Записать(КаталогИБ()+"ExtForms\002m.xls", 1);
     
         
     Запрос = СоздатьОбъект("Запрос");
       КодЗапроса =
       "
      |Период с Дата1 По Дата2;
      |Док = Документ.ПриходныйКассовый.ТекущийДокумент;
      ";
     
     Если Запрос.Выполнить(КодЗапроса) = 0 Тогда
         Сообщить("Ошибка обработки запроса","!");
         Возврат;
     КонецЕсли;
 
     Таб.ВывестиСекцию("ШапкаЗагаловок"); 
 
     //цикл ничего не выводит
     Пока Запрос.Группировка()  = 1 Цикл
         Таб.ВывестиСекцию("Секция_2");  
     КонецЦикла;
     
     Таб.Показать("Журнал операций: ("+Дата1+"-"+Дата2+")");
     
 КонецПроцедуры

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

[sava1]

добавить в запрос группировку по Док

[Yoja]

Исправил, результат тот же (ничего)

КодЗапроса ="
      |Период с Дата1 По Дата2;
      |Док = Документ.ПриходныйКассовый.ТекущийДокумент;
      |Группировка Док;";

Заметил, что цикл добавления Секции_2 проходит, но добавляются пустые строки

[sava1]

В цикле перебора дописать

Док = Запрос.Док

[Yoja]

Спасибо, уже сделал все заработало
Вот полный код:

Перем Запрос, КодЗапроса;
 Перем Док;
 
 Процедура ПриОткрытии()
     Сообщить("Обработка запущенна в:"+ТекущаяДата()+" "+ТекущееВремя());    
 КонецПроцедуры    
 
 
 //*******************************************
 Процедура Сформировать()  
     
     Если (Число(Дата1) = 0) или (Число(Дата2) = 0) или (Дата1 > Дата2) Тогда
         Сообщить("Не правильно заполнен период","!");
         Возврат;
     КонецЕсли;
     
     Таб = СоздатьОбъект("Таблица");       
     Таб.ИсходнаяТаблица("RU_Таблица");
                                                              
     Запрос = СоздатьОбъект("Запрос");
       КодЗапроса ="
      |Период с Дата1 По Дата2;
      |Док = Документ.ПриходныйКассовый.ТекущийДокумент;
      |Группировка Док без групп;";
     
     Если Запрос.Выполнить(КодЗапроса) = 0 Тогда
         Сообщить("Ошибка обработки запроса","!");
         Возврат;
     КонецЕсли;
                       
     Таб.ВывестиСекцию("ШапкаЗагаловок"); 
     Состояние("Заполнение выходной таблицы...");
     Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
     
     Пока Запрос.Группировка()  = 1 Цикл
         
         Таб.ВывестиСекцию("Секция_2");  
         Док = Запрос.Док;
         
     КонецЦикла;

[sava1]

   Таб.ВывестиСекцию("Секция_2");  
         Док = Запрос.Док;

поменять местами

[Yoja]

хорошо