Количество строк в группировках универсального отчета

10.08.16

Разработка - Механизмы платформы 1С

Добавляем количество вложенных строк в группировки универсального отчета.

Однажды потребовалось в универсальном отчете вывести количество строк в группировках. Отчетов на базе универсального множество, может, кому пригодится.

Добавляем в модуле отчета в самом конце процедуры СформироватьОтчет() код:

	УниверсальныйОтчет.СформироватьОтчет(ТабличныйДокумент,,, ЭтотОбъект);

	//ДополнитьГруппировкиКоличествомВложенныхСтрок()
	//{  
		ВысотаШапки = ПолучитьВысотуШапки(ТабличныйДокумент);
		
		Группировки = УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки;
		РезультатЗапроса = УниверсальныйОтчет.ПолучитьРезультат();
		
		// Стартуем рекурсивный обход таблицы
		Выборка = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, Группировки[0].Имя);
		ДополнитьГруппировку(ТабличныйДокумент, Группировки, Выборка, 0, ВысотаШапки + 1, 0);
	//}
	
КонецПроцедуры // СформироватьОтчет()

И в конец модуля код самих функций:

////////////////////////////////////////////////////////////////////////////
// ФУНКЦИИ ДОПОЛНЕНИЯ ГРУППИРОВОК СТРОК

// Когда нет группировок колонок, то первая группировка строк двойная строка.
// Нужно сместиться на одну строку перед каждой группировкой первого уровня.
//
Функция ФиксСтрокПоГлубине(Глубина)
	
	Шаг = 0;
	
	Если Глубина = 0 И УниверсальныйОтчет.ПостроительОтчета.ИзмеренияКолонки.Количество() = 0 Тогда
		Шаг = 1;
	КонецЕсли;
	
	Возврат Шаг;
	
КонецФункции

// Дополняет ячейку количеством.
//
Процедура ВывестиКоличество(ТабличныйДокумент, НомерСтроки, Количество)
	
	Область = ТабличныйДокумент.Область(НомерСтроки, 2);
	Область.Текст = Область.Текст + "   (( " + Количество + " ))";
	
КонецПроцедуры	

// Рекурсивная процедура дополняет группировку количеством вложенных строк.
//
Процедура ДополнитьГруппировку(ТабличныйДокумент, Группировки, Выборка, Глубина, НомерСтроки, ПрошлоеКоличество)
	
	Если Глубина < Группировки.Количество() - 1 Тогда
		
		Пока Выборка.Следующий() Цикл
			
			// выбираем по следеющей группировке
			Выб = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, Группировки[Глубина + 1].Имя);
			
			// выводим количество в текущую строку
			Количество = Выб.Количество();
			ВывестиКоличество(ТабличныйДокумент, НомерСтроки, Количество);
			
			// шагаем на следующую и запускаемся рекурсивно
			НомерСтроки = НомерСтроки + 1;
			ДополнитьГруппировку(ТабличныйДокумент, Группировки, Выб, Глубина + 1, НомерСтроки, Количество);
			
			НомерСтроки = НомерСтроки + ФиксСтрокПоГлубине(Глубина);
			
		КонецЦикла;
		
	Иначе
		
		// находимся на дне дерева и нужно пропустить количество строк последнего уровня,
		// полученное на прошлом шаге.
		НомерСтроки = НомерСтроки + ПрошлоеКоличество;
		
	КонецЕсли;
	
КонецПроцедуры	

// Вычисляет высоту шапки отчета по области заголовка и группировкам.
//
Функция ПолучитьВысотуШапки(ТабличныйДокумент)
	
	ГруппКолонок = УниверсальныйОтчет.ПостроительОтчета.ИзмеренияКолонки.Количество();
	ГруппСтрок = УниверсальныйОтчет.ПостроительОтчета.ИзмеренияСтроки.Количество();
	
	Если ГруппКолонок > 0 Тогда
		ОбластьЗаголовка = ТабличныйДокумент.Области.Найти("Заголовок");
		ГруппСтрок = ?(ГруппСтрок < 3, 3, ГруппСтрок);
		ВысотаШапки = ОбластьЗаголовка.Низ + ГруппСтрок;
	Иначе
		ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаТаблицы");
		ВысотаШапки = ОбластьШапки.Низ + 1;
	КонецЕсли;

	Возврат ВысотаШапки;
	
КонецФункции

// ФУНКЦИИ ДОПОЛНЕНИЯ ГРУППИРОВОК СТРОК
////////////////////////////////////////////////////////////////////////////

Значения подогнаны для УТ 10.3, если макет в вашей конфигурации немного отличается, то подогнать смещения не составит труда.

Универсальный отчет

См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4620    dsdred    53    

73

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5309    YA_418728146    25    

64

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6436    dsdred    36    

112

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18504    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12111    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8849    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6288    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    16018    SeiOkami    31    

103
Оставьте свое сообщение