СКД

// Модуль объекта отчета "ОтчетПоЛогистамИВодителям"

// Процедура формирования отчета
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    // Отключаем стандартную обработку СКД
    СтандартнаяОбработка = Ложь;
    
    // Получаем параметры отчета из настроек компоновщика
    КомпоновщикНастроек.ЗагрузитьНастройки(КомпоновщикНастроек.ПолучитьНастройки());
    Параметры = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы;
    
    // Получаем параметр периода
    ПериодПараметр = Параметры.Найти("Период");
    Если ПериодПараметр <> Неопределено Тогда
        Период = ПериодПараметр.Значение;
        НачалоПериода = Период.ДатаНачала;
        КонецПериода = Период.ДатаОкончания;
    Иначе
        НачалоПериода = ДобавитьМесяц(НачалоМесяца(ТекущаяДата()), -12);
        КонецПериода = КонецМесяца(ТекущаяДата());
    КонецЕсли;
    
    // Получаем параметр отбора по логисту
    ОтборЛогист = Неопределено;
    ЛогистПараметр = Параметры.Найти("Логист");
    Если ЛогистПараметр <> Неопределено И ЗначениеЗаполнено(ЛогистПараметр.Значение) Тогда
        ОтборЛогист = ЛогистПараметр.Значение;
    КонецЕсли;
    
    // Формируем табличный документ
    ТабДок = СформироватьОтчет(НачалоПериода, КонецПериода, ОтборЛогист);
    
    // Передаем табличный документ для вывода
    ДокументРезультат.Очистить();
    ДокументРезультат.Вывести(ТабДок);
КонецПроцедуры

// Функция формирования отчета
Функция СформироватьОтчет(НачалоПериода, КонецПериода, ОтборЛогист = Неопределено)
    // Создаем табличный документ
    ТабДок = Новый ТабличныйДокумент;
    
    // Устанавливаем параметры печати ДО установки ключа параметров печати
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
     
    // Теперь устанавливаем ключ параметров печати
    ТабДок.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ОтчетПоЛогистамИВодителям";
    
    // Получаем макет отчета
    Макет = ПолучитьМакет("Макет");
    
    // Получаем области макета
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьЛогист = Макет.ПолучитьОбласть("Логист");
    ОбластьВодитель = Макет.ПолучитьОбласть("Водитель");
    ОбластьПоказатели = Макет.ПолучитьОбласть("Показатели");
    ОбластьИтогоПоЛогисту = Макет.ПолучитьОбласть("ИтогоПоЛогисту");
    ОбластьИтого = Макет.ПолучитьОбласть("Итого");
    
    // Заполняем заголовок
    ОбластьЗаголовок.Параметры.НачалоПериода = Формат(НачалоПериода, "ДЛФ=DD");
    ОбластьЗаголовок.Параметры.КонецПериода = Формат(КонецПериода, "ДЛФ=DD");
    
    // Добавляем информацию об отборе по логисту в заголовок
    Если ЗначениеЗаполнено(ОтборЛогист) Тогда
        ОбластьЗаголовок.Параметры.ОтборЛогист = "Логист: " + ОтборЛогист;
    Иначе
        ОбластьЗаголовок.Параметры.ОтборЛогист = "";
    КонецЕсли;
    
    ТабДок.Вывести(ОбластьЗаголовок);
    
    // Запрос для получения данных о логистах и их водителях
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
    Запрос.УстановитьПараметр("КонецПериода", КонецПериода);
    
    // Формируем текст запроса с учетом отбора по логисту
    ТекстЗапроса = 
    "ВЫБРАТЬ
    |   РегистрНакопления.ПоказателиРейсов.Логист КАК Логист,
    |   РегистрНакопления.ПоказателиРейсов.Логист.Наименование КАК ЛогистНаименование,
    |   РегистрНакопления.ПоказателиРейсов.Водитель КАК Водитель,
    |   РегистрНакопления.ПоказателиРейсов.Водитель.Наименование КАК ВодительНаименование,
    |   РегистрНакопления.ПоказателиРейсов.ТранспортноеСредство КАК ТранспортноеСредство,
    |   РегистрНакопления.ПоказателиРейсов.ТранспортноеСредство.Наименование КАК ТСНаименование,
    |   РегистрНакопления.ПоказателиРейсов.ТранспортноеСредство.ЦветКузова КАК ЦветКузова,
    |   СУММА(РегистрНакопления.ПоказателиРейсов.КоличествоРейсов) КАК КоличествоРейсов,
    |   СУММА(РегистрНакопления.ПоказателиРейсов.ПройденноеРасстояние) КАК ПройденноеРасстояние,
    |   СУММА(РегистрНакопления.ПоказателиРейсов.СуммаВыручки) КАК СуммаВыручки,
    |   СУММА(РегистрНакопления.ПоказателиРейсов.РасходТоплива) КАК РасходТоплива
    |ИЗ
    |   РегистрНакопления.ПоказателиРейсов КАК РегистрНакопления.ПоказателиРейсов
    |ГДЕ
    |   РегистрНакопления.ПоказателиРейсов.Период МЕЖДУ &НачалоПериода И &КонецПериода";
    
    // Добавляем условие отбора по логисту, если он указан
    Если ЗначениеЗаполнено(ОтборЛогист) Тогда
        Запрос.УстановитьПараметр("ОтборЛогист", ОтборЛогист);
        ТекстЗапроса = ТекстЗапроса + "
        |   И РегистрНакопления.ПоказателиРейсов.Логист = &ОтборЛогист";
    КонецЕсли;
    
    // Добавляем группировки и итоги
    ТекстЗапроса = ТекстЗапроса + "
    |
    |СГРУППИРОВАТЬ ПО
    |   РегистрНакопления.ПоказателиРейсов.Логист,
    |   РегистрНакопления.ПоказателиРейсов.Логист.Наименование,
    |   РегистрНакопления.ПоказателиРейсов.Водитель,
    |   РегистрНакопления.ПоказателиРейсов.Водитель.Наименование,
    |   РегистрНакопления.ПоказателиРейсов.ТранспортноеСредство,
    |   РегистрНакопления.ПоказателиРейсов.ТранспортноеСредство.Наименование,
    |   РегистрНакопления.ПоказателиРейсов.ТранспортноеСредство.ЦветКузова
    |
    |ИТОГИ ПО
    |   Логист,
    |   Водитель";
    
    Запрос.Текст = ТекстЗапроса;
    
    РезультатЗапроса = Запрос.Выполнить();
    
    // Проверяем, есть ли данные в результате запроса
    Если РезультатЗапроса.Пустой() Тогда
        // Если данных нет, выводим сообщение
        ОбластьПустойРезультат = Макет.ПолучитьОбласть("ПустойРезультат");
        ТабДок.Вывести(ОбластьПустойРезультат);
        Возврат ТабДок;
    КонецЕсли;
    
    // Цвета для выделения логистов
    ЦветаЛогистов = Новый Массив;
    ЦветаЛогистов.Добавить(WebЦвета.LightYellow);
    ЦветаЛогистов.Добавить(WebЦвета.LightGreen);
    ЦветаЛогистов.Добавить(WebЦвета.LightPink);
    ЦветаЛогистов.Добавить(WebЦвета.LightBlue);
    ЦветаЛогистов.Добавить(WebЦвета.LightCyan);
    
    // Определяем количество логистов для расчета ширины секций
    ВыборкаЛогистовКол = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Логист");
    КоличествоЛогистов = 0;
    
    Пока ВыборкаЛогистовКол.Следующий() Цикл
        КоличествоЛогистов = КоличествоЛогистов + 1;
    КонецЦикла;
    
    // Создаем таблицу с горизонтальными секциями
    // Первая строка - заголовки секций (логисты)
    СтрокаЛогистов = ТабДок.ПолучитьОбласть(1, 1, 1, 1).СкопироватьОбласть();
    ИндексЦвета = 0;
    
    // Обходим результат запроса по логистам
    ВыборкаЛогист = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Логист");
    
    // Создаем горизонтальные секции для каждого логиста
    Пока ВыборкаЛогист.Следующий() Цикл
        ИндексЦвета = ?(ИндексЦвета >= ЦветаЛогистов.Количество() - 1, 0, ИндексЦвета + 1);
        ТекущийЦвет = ЦветаЛогистов[ИндексЦвета];
        
        // Создаем секцию для логиста
        ОбластьЛогист.Параметры.Логист = ВыборкаЛогист.ЛогистНаименование;
        
        // Если это первый логист, выводим область
        Если ВыборкаЛогист.Номер() = 1 Тогда
            НачалоОбласти = ТабДок.НачалоОбласти();
            ТабДок.Вывести(ОбластьЛогист);
            КонецОбласти = ТабДок.КонецОбласти();
        Иначе
            // Иначе присоединяем горизонтально
            НачалоОбласти = ТабДок.НачалоОбласти();
            ТабДок.Присоединить(ОбластьЛогист);
            КонецОбласти = ТабДок.КонецОбласти();
        КонецЕсли;
        
        // Устанавливаем цвет фона для строки логиста
        ТабДок.УстановитьОбластьФона(НачалоОбласти, КонецОбласти, ТекущийЦвет);
        
        // Получаем водителей для текущего логиста
        ВыборкаВодитель = ВыборкаЛогист.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Водитель");
        
        // Определяем максимальное количество водителей для вертикального размера секции
        МаксСтрок = ВыборкаВодитель.Количество();
        
        // Сбрасываем выборку и обходим заново
        ВыборкаВодитель = ВыборкаЛогист.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Водитель");
        
        // Выводим заголовки для водителей
        ОбластьВодитель.Параметры.Водитель = "Водитель-ФИО";
        ОбластьВодитель.Параметры.ТС = "НомерТС";
        ОбластьВодитель.Параметры.ЦветКузова = "Цвет";
        
        // Если это первый логист, выводим область
        Если ВыборкаЛогист.Номер() = 1 Тогда
            НачалоОбласти = ТабДок.НачалоОбласти();
            ТабДок.Вывести(ОбластьВодитель);
            КонецОбласти = ТабДок.КонецОбласти();
        Иначе
            // Иначе присоединяем горизонтально
            НачалоОбласти = ТабДок.НачалоОбласти();
            ТабДок.Присоединить(ОбластьВодитель);
            КонецОбласти = ТабДок.КонецОбласти();
        КонецЕсли;
        
        // Устанавливаем цвет фона для заголовка водителей
        ТабДок.УстановитьОбластьФона(НачалоОбласти, КонецОбласти, ТекущийЦвет);
        
        // Выводим данные по водителям
        ТекНомерСтроки = 0;
        
        Пока ВыборкаВодитель.Следующий() Цикл
            ТекНомерСтроки = ТекНомерСтроки + 1;
            
            // Получаем детальные данные для водителя
            ВыборкаДетали = ВыборкаВодитель.Выбрать();
            
            // Если есть данные, заполняем параметры
            Если ВыборкаДетали.Следующий() Тогда
                ОбластьВодитель.Параметры.Водитель = ВыборкаВодитель.ВодительНаименование;
                ОбластьВодитель.Параметры.ТС = ВыборкаДетали.ТСНаименование;
                ОбластьВодитель.Параметры.ЦветКузова = ВыборкаДетали.ЦветКузова;
                
                // Если это первая строка для водителя и первый логист
                Если ТекНомерСтроки = 1 И ВыборкаЛогист.Номер() = 1 Тогда
                    ТабДок.Вывести(ОбластьВодитель);
                ИначеЕсли ТекНомерСтроки = 1 Тогда
                    // Если это первая строка для водителя, но не первый логист
                    ТабДок.Присоединить(ОбластьВодитель);
                ИначеЕсли ВыборкаЛогист.Номер() = 1 Тогда
                    // Если это не первая строка для водителя, но первый логист
                    ТабДок.ВывестиГоризонтальныйРазделительСтрок();
                    ТабДок.Вывести(ОбластьВодитель);
                Иначе
                    // Если это не первая строка для водителя и не первый логист
                    // Присоединяем по горизонтали к последней строке
                    ТабДок.Присоединить(ОбластьВодитель);
                КонецЕсли;
                
                // Выводим показатели для водителя
                ОбластьПоказатели.Параметры.КоличествоРейсов = ВыборкаДетали.КоличествоРейсов;
                ОбластьПоказатели.Параметры.ПройденноеРасстояние = ВыборкаДетали.ПройденноеРасстояние;
                ОбластьПоказатели.Параметры.СуммаВыручки = ВыборкаДетали.СуммаВыручки;
                ОбластьПоказатели.Параметры.РасходТоплива = ВыборкаДетали.РасходТоплива;
                
                // Выводим показатели под строкой водителя
                Если ТекНомерСтроки = 1 И ВыборкаЛогист.Номер() = 1 Тогда
                    ТабДок.Вывести(ОбластьПоказатели);
                ИначеЕсли ТекНомерСтроки = 1 Тогда
                    ТабДок.Присоединить(ОбластьПоказатели);
                ИначеЕсли ВыборкаЛогист.Номер() = 1 Тогда
                    ТабДок.ВывестиГоризонтальныйРазделительСтрок();
                    ТабДок.Вывести(ОбластьПоказатели);
                Иначе
                    ТабДок.Присоединить(ОбластьПоказатели);
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        
        // Выводим итоги по логисту
        ОбластьИтогоПоЛогисту.Параметры.ИтогоКоличествоРейсов = ВыборкаЛогист.КоличествоРейсов;
        ОбластьИтогоПоЛогисту.Параметры.ИтогоПройденноеРасстояние = ВыборкаЛогист.ПройденноеРасстояние;
        ОбластьИтогоПоЛогисту.Параметры.ИтогоСуммаВыручки = ВыборкаЛогист.СуммаВыручки;
        ОбластьИтогоПоЛогисту.Параметры.ИтогоРасходТоплива = ВыборкаЛогист.РасходТоплива;
        
        // Выводим итоги под водителями
        Если ВыборкаЛогист.Номер() = 1 Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтрок();
            НачалоОбласти = ТабДок.НачалоОбласти();
            ТабДок.Вывести(ОбластьИтогоПоЛогисту);
            КонецОбласти = ТабДок.КонецОбласти();
        Иначе
            НачалоОбласти = ТабДок.НачалоОбласти();
            ТабДок.Присоединить(ОбластьИтогоПоЛогисту);
            КонецОбласти = ТабДок.КонецОбласти();
        КонецЕсли;
        
        // Устанавливаем цвет фона для итогов
        ТабДок.УстановитьОбластьФона(НачалоОбласти, КонецОбласти, ТекущийЦвет);
    КонецЦикла;
    
    // Выводим общие итоги в нижней части отчета
    ТабДок.ВывестиГоризонтальныйРазделительСтрок();
    
    // Получаем общие итоги из корневой выборки запроса
    ВыборкаИтоги = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
    Если ВыборкаИтоги.Следующий() Тогда
        ОбщееКоличествоРейсов = ВыборкаИтоги.КоличествоРейсов;
        ОбщееПройденноеРасстояние = ВыборкаИтоги.ПройденноеРасстояние;
        ОбщаяСуммаВыручки = ВыборкаИтоги.СуммаВыручки;
        ОбщийРасходТоплива = ВыборкаИтоги.РасходТоплива;
        
        ОбластьИтого.Параметры.ОбщееКоличествоРейсов = ОбщееКоличествоРейсов;
        ОбластьИтого.Параметры.ОбщееПройденноеРасстояние = ОбщееПройденноеРасстояние;
        ОбластьИтого.Параметры.ОбщаяСуммаВыручки = ОбщаяСуммаВыручки;
        ОбластьИтого.Параметры.ОбщийРасходТоплива = ОбщийРасходТоплива;
        
        ТабДок.Вывести(ОбластьИтого);
    КонецЕсли;
    
    // Настройка параметров фиксации областей
    ТабДок.ФиксацияСверху = 2;
    
    Возврат ТабДок;
КонецФункции