СКД Группировки кодом

Есть рабочий код, который делает группировку внутри группировки, а как сделать, чтобы следующая группировка была на том же уровне, что и предыдущая?

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

Настройки = КомпоновщикНастроек.Настройки;
Настройки.Структура.Очистить();
ОтчетГруппировка = "";
Настройки.Структура.Очистить();
Для каждого Стр Из ЭтотОбъект.КомпоновщикНастроек.Настройки.ДоступныеПоляГруппировок.Элементы Цикл
Если Стр.Ресурс Тогда
Продолжить;
КонецЕсли;
Если ОтчетГруппировка = "" Тогда
ОтчетГруппировка = Настройки.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
Иначе
ОтчетГруппировка = ОтчетГруппировка.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
КонецЕсли;
ОтчетГруппировка.Имя = Строка(Стр.Поле);
ОтчетГруппировка.Использование = Истина;

ПолеГруппировки = ОтчетГруппировка.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ПолеГруппировки.Использование = Истина;
ПолеГруппировки.Поле = Новый ПолеКомпоновкиДанных(Строка(Стр.Поле));
ПолеГруппировки.ТипГруппировки = ТипГруппировкиКомпоновкиДанных.Элементы;
ПолеГруппировки.ТипДополнения = ТипДополненияПериодаКомпоновкиДанных.БезДополнения;

ВыбранноеПоле = ОтчетГруппировка.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
ВыбранноеПоле.Поле = Новый ПолеКомпоновкиДанных(Строка(Стр.Поле));
Для каждого Стр2 Из ЭтотОбъект.КомпоновщикНастроек.Настройки.ДоступныеПоляГруппировок.Элементы Цикл
Если НЕ Стр2.Ресурс Тогда
Продолжить;
КонецЕсли;
ВыбранноеПоле = ОтчетГруппировка.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
ВыбранноеПоле.Поле = Новый ПолеКомпоновкиДанных(Строка(Стр2.Поле));
КонецЦикла;
КонецЦикла;

НастройкиСКД = КомпоновщикНастроек.ПолучитьНастройки();
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, НастройкиСКД, ДанныеРасшифровки);

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

КонецПроцедуры