Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Заполнение таблицы
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
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
Исправил, результат тот же (ничего) 09000000.gif
КодЗапроса ="
      |Период с Дата1 По Дата2;
      |Док = Документ.ПриходныйКассовый.ТекущийДокумент;
      |Группировка Док;";


Заметил, что цикл добавления Секции_2 проходит, но добавляются пустые строки
sava1
В цикле перебора дописать
Док = Запрос.Док
Yoja
Спасибо, уже сделал все заработало
Вот полный код:
Перем Запрос, КодЗапроса;
Перем Док;

Процедура ПриОткрытии()
     Сообщить("Обработка запущенна в:"+ТекущаяДата()+" "+ТекущееВремя());    
КонецПроцедуры    


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


поменять местами
Yoja
хорошо
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.