Dimon1C
11 - 26.05.2009 - 10:47
|
(8) данные есть, т.к. даже этот запрос выдает данные по позициям номенклатуры Может не правильно вопрос задал, я имею ввиду итоги по дням для каждой группы номенклатуры Вот вся процедура: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с НачПериода по КонПериода; |Товар = Регистр.Продажи.Номенклатура; |Количество = Регистр.Продажи.Количество; |ПродСтоимость = Регистр.Продажи.ПродСтоимость; |Функция ПродСтоимостьСумма = Сумма(ПродСтоимость); |Группировка Товар; |Группировка День все; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; //Запрос.Выгрузить(тз, 3); // Подготовка к заполнению выходных форм данными запроса Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок|Начало"); Для ном = 0 По КонПериода-НачПериода Цикл День = НачПериода + ном; Таб.ПрисоединитьСекцию("Заголовок|ДеньПродажи"); КонецЦикла; Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл Таб.ВывестиСекцию("Строка|Начало"); Пока Запрос.Группировка(2) = 1 Цикл Таб.ПрисоединитьСекцию("Строка|ДеньПродажи"); КонецЦикла; КонецЦикла; Таб.ВывестиСекцию("Итого"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры
|