Многоуровневая нумерация в отчете СКД (программный вывод)

Реализация многоуровневой нумерации при программном выводе отчета СКД основываясь на его структуре.

Описание
Подробнее

Описание

Задача: нередко при разработке отчетов возникает необходимость многоуровневой нумерации элементов отчета в соответствии с его структурой. Система компоновки данных не предоставляет средств для решения этой задачи. Проблема усугубляется в случае отчетов с иерархической группировкой где количество уровней вложенности произвольно и заранее неизвестно.

Попытки решения данной задачи только средствами СКД успехом не увенчались. Поиск существующих решений желаемых результатов не принес:

вариант Ильи Васильева (swimdog) имеет ограничение по уровням вложенности и требует анализа выходного табличного документа для определения размещения номера;
вариант Алексея А (Isonic) с произвольной иерархией представляется неудобным в реализации так как вложенность заранее неизвестна и при изменении группировок придется переопределять значение поля иерархической нумерации;

Решение. Предлагаемое решение позволяет решить задачу многоуровневой нумерации путем формирования номера при поэлементном программном выводе отчета. Преимуществом решения является отсутствие привязки к структуре данных, уровень иерархии определяется вложенностью элементов поступающих от процессора компоновки. Для нумерации достаточно создать вычисляемое поле и добавить несложный код вычисления номера в вывод отчета. Настройка размещения и отображения поля осуществляется стандартными средствами СКД.

Фрагмент кода формирования иерархического номера:

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

			КонецЕсли
		КонецЕсли;
//}}
	    ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
	    ЭлементРезультата = ПроцессорКомпоновки.Следующий();
	КонецЦикла;
	ПроцессорВывода.ЗакончитьВывод()
КонецПроцедуры

Код функции ПолучитьМногоуровневыйНомерПоИерархии:

Функция ПолучитьМногоуровневыйНомерПоИерархии(УровеньОтчетаСКД, СтекНомеров);
	НомерНаУровне = СтекНомеров.Найти(УровеньОтчетаСКД, "Уровень");
			
	Если НомерНаУровне = Неопределено Тогда
		Стр = СтекНомеров.Добавить();
		Стр.Уровень = УровеньОтчетаСКД;
		Стр.Номер = 1;
	Иначе
		НомерНаУровне.Номер = НомерНаУровне.Номер + 1
	Конецесли;
			
	СтрНомерПоИерархии = "";
	
	НомераКУдалению = Новый Массив;
	Для Каждого Номер Из СтекНомеров Цикл
		Если Номер.Уровень <= УровеньОтчетаСКД Тогда
			СтрНомерПоИерархии = СтрНомерПоИерархии + Номер.Номер + ".";
		Иначе
			//Чистим элементы стека нижних уровней
			НомераКУдалению.Добавить(Номер);
		КонецЕсли
	КонецЦикла;
	Для каждого Номер Из НомераКУдалению Цикл
		СтекНомеров.Удалить(Номер);
	КонецЦикла;
	
	Возврат СтрНомерПоИерархии;
КонецФункции

Также вам потребуется функция "ПолучитьИменаПараметровВМакетеКомпоновкиПоИмениПоля" которую можно взять из статьи о установке собственных значений полей при программном выводе отчета СКД либо скачать пример отчета в котором "все включено".

P.S. Алгоритм разработан для иерархической нумерации по строкам отчета, но работает и при наличии группировок колонок. Вывод номера по колонкам не предусмотрен.

Огромная благодарность Денису Урянскому (dhurricane) за вдумчивое тестирование и подсказки.

Внешний отчет с примером иерархической нумерации тестировался на платформе 8.3.13.1644.

Обновление 16.01.2020: Перезагружен файл с примером. Просьба скачавшим связаться с автором для получения новой версии, либо самостоятельно обновить код функции ПолучитьИменаПараметровВМакетеКомпоновкиПоИмениПоля() из текста статьи про нее. В прежней реализации возможен несистематический пропуск параметров.

Каталог решений - Многоуровневая нумерация в отчете СКД (программный вывод)