Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 ноя 2024, 10:22

Группировка в регистре

Автор SW, 24 мар 2011, 16:38

0 Пользователей и 1 гость просматривают эту тему.

Flamepayne

Значит код просто недописан . . . Покажите, как Вы сформировали запрос и вывод по нему.

prog1c7.7

или неправильно написан

SW

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

   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Таб.ВывестиСекцию("Заголовок");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Пока Запрос.Группировка(1) = 1 Цикл
      пРеализатор = Запрос.Реализатор;
      пТовар = Запрос.Товар;
      пДата = Запрос.ТекущийДокумент.ДатаДок;
      пДокумент = Запрос.ТекущийДокумент;
      пПокупатель = Запрос.Покупатель;
      пСумма = Запрос.Сумма;
      Таб.ВывестиСекцию("Реализатор");
   КонецЦикла;
   Таб.ВывестиСекцию("Итого");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
КонецПроцедуры

вот запрос.

Flamepayne

А ну понятно. Группировка, то у вас одна, вот он и выводит по одному каждого. Добавьте в Текст Запроса | Группировка сумма; (Ну или др реквизит)
Тогда код:
Пока Запрос.Группировка("Реализатор") = 1 Цикл
   Пока Запрос.Группировка("Сумма") = 1 Цикл
      пРеализатор = Запрос.Реализатор;
      пТовар = Запрос.Товар;
      пДата = Запрос.ТекущийДокумент.ДатаДок;
      пДокумент = Запрос.ТекущийДокумент;
      пПокупатель = Запрос.Покупатель;
      пСумма = Запрос.Сумма;
      Таб.ВывестиСекцию("Реализатор");
   КонецЦикла;
КонецЦикла;

Теги:

Похожие темы (2)

Рейтинг@Mail.ru

Поиск