Код

Перем тзГруппСтрок;

//{--- Группы Строк
Процедура ДобавитьГруппыСтрок() Экспорт
	тзГруппСтрок.ВыбратьСтроки();
	Пока тзГруппСтрок.ПолучитьСтроку() = 1 Цикл
		ТабЭлемент.Документ.ДобавитьГруппуСтрок(тзГруппСтрок.Нач, тзГруппСтрок.Кон);
	КонецЦикла;

	ТабЭлемент.ОтображатьСтруктуру = 1;
	ТабЭлемент.Документ.ПоказатьУровеньГруппировокСтрок(3);
	ТабЭлемент.Документ.ПоказатьУровеньГруппировокСтрок(2);
	ТабЭлемент.Документ.ПоказатьУровеньГруппировокСтрок(1);
	ТабЭлемент.Обновить();
КонецПроцедуры

Функция ОткрытьГруппуСтрок(чНачСтр) Экспорт
	тзГруппСтрок.НоваяСтрока();
		тзГруппСтрок.Нач = чНачСтр;

	Возврат тзГруппСтрок.НомерСтроки;
КонецФункции

Функция ЗакрытьГруппуСтрок(чКонСтр) Экспорт
	кс = тзГруппСтрок.КоличествоСтрок();
	й = кс;
	флНашлиОткрытуюГруппу = 0;
	Пока (й >= 1) и (флНашлиОткрытуюГруппу = 0) Цикл
	    тзГруппСтрок.ПолучитьСтрокуПоНомеру(й);
		Если ПустоеЗначение(тзГруппСтрок.Кон) = 1 Тогда
			Если тзГруппСтрок.Нач < чКонСтр Тогда
				тзГруппСтрок.Кон = чКонСтр;
			Иначе
				тзГруппСтрок.Кон = чКонСтр;//тзГруппСтрок.Нач + 1;
			КонецЕсли;
			флНашлиОткрытуюГруппу = тзГруппСтрок.НомерСтроки;
		КонецЕсли;
		й=й-1;
	КонецЦикла;
КонецФункции

Функция ЕстьОткрытыеГруппыСтрок() Экспорт
	Если ПустоеЗначение(тзГруппСтрок) = 1 Тогда
		Возврат 0;
	Иначе
		Возврат 1;
	КонецЕсли;
КонецФункции

//}

Процедура ПриОткрытии()
тзГруппСтрок = СоздатьОбъект("ТаблицаЗначений");
	тзГруппСтрок.НоваяКолонка("Нач");
	тзГруппСтрок.НоваяКолонка("Кон");
КонецПроцедуры


 

Код

таб.ВывестиСекцию("Группировка");
ОткрытьГруппуСтрок(таб.ВысотаТаблицы()+1);
//Цикл по элементам текущей группировки
Для й = 1 по КоличествоЭлементовТекущейГруппировки Цикл
   таб.ВывестиСекцию("элемент");
КонецЦикла;
ЗакрытьГруппуСтрок(таб.ВысотаТаблицы());
ДобавитьГруппуСтрок();