G
Greenoren
Создал отчет с помощью универсального отчета, все работает, не получается сделать его "красивым"
получилось вот что:
необходимо чтобы было так:
Т е необходимо:
1) убрать лишнее из заголовка и чтобы он по умолчанию выводился
2) переместить расположение ресурсов (показателей) с колонок на строки
3) сделать заголовки колонок (ТС) вертикально расположенными
помогите советом или кодом
вот мой код
получилось вот что:

необходимо чтобы было так:

Т е необходимо:
1) убрать лишнее из заголовка и чтобы он по умолчанию выводился
2) переместить расположение ресурсов (показателей) с колонок на строки
3) сделать заголовки колонок (ТС) вертикально расположенными
помогите советом или кодом
вот мой код
Процедура УстановитьНачальныеНастройки(ДополнительныеПараметры = Неопределено) Экспорт
УниверсальныйОтчет.мНазваниеОтчета = СокрЛП(ЭтотОбъект.Метаданные().Синоним);
УниверсальныйОтчет.мВыбиратьИмяРегистра = Ложь;
// Описание исходного текста запроса.
ТекстЗапроса =
"ВЫБРАТЬ
| КонтрагентыОбороты.Контрагент.Наименование КАК Контрагент,
| КонтрагентыОбороты.ТС.Наименование КАК ТС,
| КонтрагентыОбороты.ВремяРаботыПриход КАК Работа,
| КонтрагентыОбороты.ВремяПростояПриход КАК Простой
|{ВЫБРАТЬ
| Контрагент,
| ТС,
| Работа,
| Простой}
|ИЗ
| РегистрНакопления.Контрагенты.Обороты(&ДатаНач, &ДатаКон, , ) КАК КонтрагентыОбороты
|ИТОГИ
| СУММА(Работа),
| СУММА(Простой)
|ПО
| ОБЩИЕ
|{ИТОГИ ПО
| Контрагент,
| ТС}";
УниверсальныйОтчет.ПостроительОтчета.Текст = ТекстЗапроса;
Пока УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки.Количество() > 0 Цикл
УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки.Удалить(УниверсальныйОтчет.
ПостроительОтчета.ИзмеренияСтроки[0]);
КонецЦикла;
УниверсальныйОтчет.мСтруктураПредставлениеПолей.Вставить("ТС", "ТС");
УниверсальныйОтчет.мСтруктураПредставлениеПолей.Вставить("Контрагент", "Контрагент");
УниверсальныйОтчет.УстановитьПредставленияПолей(УниверсальныйОтчет.мСтруктураПре
дставлениеПолей, УниверсальныйОтчет.ПостроительОтчета);
УниверсальныйОтчет.ДобавитьПоказатель("Работа", "Работа", Истина, "ЧДЦ=2");
УниверсальныйОтчет.ДобавитьПоказатель("Простой", "Простой", Истина, "ЧДЦ=2");
УниверсальныйОтчет.ДобавитьИзмерениеСтроки("Контрагент");
УниверсальныйОтчет.ДобавитьИзмерениеКолонки("ТС");
УниверсальныйОтчет.УстановитьНачальныеНастройки(Ложь);
УниверсальныйОтчет.ВыводитьДетальныеЗаписи = Истина;
УниверсальныйОтчет.ДобавитьДополнительноеПоле("ГосударственныйНомер");
УниверсальныйОтчет.ДобавитьДополнительноеПоле("Модель");
УниверсальныйОтчет.ДобавитьДополнительноеПоле("ГодВыпуска");
КонецПроцедуры // УстановитьНачальныеНастройки()
УниверсальныйОтчет.мНазваниеОтчета = СокрЛП(ЭтотОбъект.Метаданные().Синоним);
УниверсальныйОтчет.мВыбиратьИмяРегистра = Ложь;
// Описание исходного текста запроса.
ТекстЗапроса =
"ВЫБРАТЬ
| КонтрагентыОбороты.Контрагент.Наименование КАК Контрагент,
| КонтрагентыОбороты.ТС.Наименование КАК ТС,
| КонтрагентыОбороты.ВремяРаботыПриход КАК Работа,
| КонтрагентыОбороты.ВремяПростояПриход КАК Простой
|{ВЫБРАТЬ
| Контрагент,
| ТС,
| Работа,
| Простой}
|ИЗ
| РегистрНакопления.Контрагенты.Обороты(&ДатаНач, &ДатаКон, , ) КАК КонтрагентыОбороты
|ИТОГИ
| СУММА(Работа),
| СУММА(Простой)
|ПО
| ОБЩИЕ
|{ИТОГИ ПО
| Контрагент,
| ТС}";
УниверсальныйОтчет.ПостроительОтчета.Текст = ТекстЗапроса;
Пока УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки.Количество() > 0 Цикл
УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки.Удалить(УниверсальныйОтчет.
ПостроительОтчета.ИзмеренияСтроки[0]);
КонецЦикла;
УниверсальныйОтчет.мСтруктураПредставлениеПолей.Вставить("ТС", "ТС");
УниверсальныйОтчет.мСтруктураПредставлениеПолей.Вставить("Контрагент", "Контрагент");
УниверсальныйОтчет.УстановитьПредставленияПолей(УниверсальныйОтчет.мСтруктураПре
дставлениеПолей, УниверсальныйОтчет.ПостроительОтчета);
УниверсальныйОтчет.ДобавитьПоказатель("Работа", "Работа", Истина, "ЧДЦ=2");
УниверсальныйОтчет.ДобавитьПоказатель("Простой", "Простой", Истина, "ЧДЦ=2");
УниверсальныйОтчет.ДобавитьИзмерениеСтроки("Контрагент");
УниверсальныйОтчет.ДобавитьИзмерениеКолонки("ТС");
УниверсальныйОтчет.УстановитьНачальныеНастройки(Ложь);
УниверсальныйОтчет.ВыводитьДетальныеЗаписи = Истина;
УниверсальныйОтчет.ДобавитьДополнительноеПоле("ГосударственныйНомер");
УниверсальныйОтчет.ДобавитьДополнительноеПоле("Модель");
УниверсальныйОтчет.ДобавитьДополнительноеПоле("ГодВыпуска");
КонецПроцедуры // УстановитьНачальныеНастройки()