КУГС = ЭлементыФормы.Результат.КоличествоУровнейГруппировокСтрок();
Для а = 0 По КУГС Цикл//сворачиваем все группировки
ЭлементыФормы.Результат.ПоказатьУровеньГруппировокСтрок(КУГС - а);
КонецЦикла;
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.