Форум программистов [Powered by Invision Power Board]

Код

Макет = ОтчетОбъект.ПолучитьМакет("РейтингУслуг");
    Запрос = Новый Запрос;
    Запрос.Текст =  
    "ВЫБРАТЬ
    |    СпрНоменклатура.Ссылка КАК Услуга,
    |    СпрНоменклатура.Представление КАК Представление,
    |    ПродажиОбороты.ВыручкаОборот КАК Выручка
    |ИЗ
    |    Справочник.Номенклатура КАК СпрНоменклатура
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты(&ДатаНачала, &ДатаОкончания) КАК ПродажиОбороты
    |        ПО (ПродажиОбороты.Номенклатура = СпрНоменклатура.Ссылка)
    |ГДЕ
    |    СпрНоменклатура.ЭтоГруппа = ЛОЖЬ
    |    И СпрНоменклатура.ВидНоменклатуры = &ВидНоменклатуры
    |
    |УПОРЯДОЧИТЬ ПО
    |    Выручка УБЫВ
    |ИТОГИ СУММА(Выручка) ПО  
    |    ОБЩИЕ";
 
    Запрос.УстановитьПараметр("ВидНоменклатуры", Перечисления.ВидыНоменклатуры.Услуга);
    Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
    Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);
 
    Результат = Запрос.Выполнить();
 
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
    ОбластьВыручка = Макет.ПолучитьОбласть("Выручка");
    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
 
    ТабДок.Очистить();
    ТабДок.Вывести(ОбластьЗаголовок);
    ТабДок.Вывести(ОбластьШапкаТаблицы);
    ТабДок.НачатьАвтогруппировкуСтрок();
 
    ВыборкаВыручка = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
 
    Пока ВыборкаВыручка.Следующий() Цикл
        ОбластьВыручка.Параметры.Заполнить(ВыборкаВыручка);
        ТабДок.Вывести(ОбластьВыручка, ВыборкаВыручка.Уровень());
 
        ВыборкаДетали = ВыборкаВыручка.Выбрать();
 
        Пока ВыборкаДетали.Следующий() Цикл
            ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
            ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
        КонецЦикла;
    КонецЦикла;
 
    ТабДок.ЗакончитьАвтогруппировкуСтрок();
    ТабДок.Вывести(ОбластьПодвалТаблицы);
    ТабДок.Вывести(ОбластьПодвал);