Доброго времени суток, помогите разобраться начинающему программисту.
Суть проблемы такова ,сделал отчет для ПУБ Украина ,не могу в нем вывести с разбивкой по периодам.
как такое можно сделать..
Сам отчет прикрепил
Вот код модуля
Функция УстДоступность()
Форма.фДокументы.Видимость(фКлиенты);
Форма.фМесяц.Видимость(фКлиенты);
Форма.фНеделя.Видимость(фКлиенты);
Форма.фДень.Видимость(фКлиенты);
Форма.фДетали.Видимость(фКлиенты);
КонецФункции
//*******************************************
// Процедура генерации запроса Сформировать.
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Дата = Документ.РасходнаяНакладная.ДатаДок;
|Фирма = Документ.РасходнаяНакладная.Фирма;
|Контрагент = Документ.РасходнаяНакладная.Контрагент;
|Менеджер = Документ.РасходнаяНакладная.Отпустил;
|СуммаБезНДС = Документ.РасходнаяНакладная.СуммаБезНДС;
|СуммаСНДС = Документ.РасходнаяНакладная.СуммаСНДС;
|ТекДок = Документ.РасходнаяНакладная.ТекущийДокумент;
|Функция ИтБезНДС = Сумма(СуммаБезНДС);
|Функция ИтСНДС = Сумма(СуммаСНДС);
|Группировка Менеджер без групп;
|"//}}ЗАПРОС
;
Если фКлиенты=1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|Группировка Контрагент без групп;
|"//}}ЗАПРОС
;
КонецЕсли;
Если фДокументы=1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|Группировка ТекДок;
|"//}}ЗАПРОС
;
КонецЕсли;
Если фДень=1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|Группировка День;
|"//}}ЗАПРОС
;
КонецЕсли; ;
Если фНеделя=1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|Группировка Неделя;
|"//}}ЗАПРОС
;
КонецЕсли; ;
Если фМесяц=1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|Группировка Месяц;
|"//}}ЗАПРОС
;
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|Условие(Менеджер в ВыбМенеджер);
|Условие(Фирма в ВыбФирма);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок|Менеджер_");
Таб.ПрисоединитьСекцию("Заголовок|ЗаголовокС");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
Таб.ВывестиСекцию("Менеджер|Менеджер_");
Таб.ПрисоединитьСекцию("Менеджер|СуммаСНДС");
Если фКлиенты=1 Тогда
Пока Запрос.Группировка(2) = 1 Цикл
Таб.ВывестиСекцию("Контрагент|Менеджер_");
Таб.ПрисоединитьСекцию("Контрагент|СуммаСНДС");
Если фДокументы=1 Тогда
Пока Запрос.Группировка(3) = 1 Цикл
Таб.ВывестиСекцию("Документ|Менеджер_");
Таб.ПрисоединитьСекцию("Документ|СуммаСНДС");
Если фНеделя=1 Тогда
Пока Запрос.Группировка(6) = 1 Цикл
Таб.ВывестиСекцию("Строка|Менеджер_");
Таб.ПрисоединитьСекцию("Строка|СуммаСНДС");
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
//Таб.ВывестиСекцию("Итого");
//
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Процедура ПриОткрытии()
ВыбФирма=Константа.БазФирма;
КонецПроцедуры
Спасибо огромное ,помог в решение вопроса CheBurator
отчет формируется с помощью этого https://infostart.ru/public/14794/ Очень полезная вещь для отчетов.
Спасибо огромное ,помог в решение вопроса CheBurator
отчет формируется с помощью этого https://infostart.ru/public/14794/ Очень полезная вещь для отчетов.