Простой вывод вариантов настроек СКД в кнопку командной панели (обычное приложение)

Процедура СменитьВариантНастройки(Элемент,отчетОбъект) Экспорт
    
    ВыбранныйВариант = отчетОбъект.СхемаКомпоновкиДанных.ВариантыНастроек.Найти(Элемент.Имя);
    
    Если ВыбранныйВариант <> Неопределено Тогда
        
        отчетОбъект.КомпоновщикНастроек.ЗагрузитьНастройки(ВыбранныйВариант.Настройки);
        
    КонецЕсли;
    
КонецПроцедуры
///
Процедура СоздатьПунктВариантыНастроек(Форма,отчетОбъект) Экспорт 
    #Если толстыйКлиентОбычноеПриложение Тогда
        Если отчетОбъект.СхемаКомпоновкиДанных<>Неопределено Тогда
            //Создание пункта меню
            Если отчетОбъект.СхемаКомпоновкиДанных.ВариантыНастроек.Количество()<>0 Тогда
                Попытка
                    КнопкиДействияФормы = Форма.ЭлементыФормы.ДействияФормы.Кнопки;
                    НоваяКнопкаПодменю = КнопкиДействияФормы.Вставить(1,"МенюВариантыОтчетов", ТипКнопкиКоманднойПанели.Подменю, "Варианты отчетов");
                    
                    МассиСтрок=Новый Массив;
                    Для Каждого Вариант из отчетОбъект.СхемаКомпоновкиДанных.ВариантыНастроек Цикл
                        МассиСтрок.Добавить(Вариант.Имя);
                    КонецЦикла;
                    ПостроениеДереваСтруктурыНастроек(МассиСтрок,форма,отчетОбъект);
                Исключение
                КонецПопытки;
            КонецЕсли;
        КонецЕсли;
    #КонецЕсли
КонецПроцедуры
///
Процедура ПостроениеДереваСтруктурыНастроек(МассивСтрокРазбора,форма,Объект) 
    
    запрос=Новый Запрос;
    запрос.Текст="ВЫБРАТЬ
    |    ""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        "" КАК Элемент,
    |    ""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        "" КАК Родитель,
    |    ИСТИНА КАК ЭтоГруппа,
    |    1555 КАК Уровень,
    |    ""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        "" КАК Представление";
    ТзСоздание=запрос.Выполнить().Выгрузить().СкопироватьКолонки();
    
    индекс=1;
    ОбщийУровень=1;
    Для Каждого СтрокаМассива из МассивСтрокРазбора Цикл
        СтрокаОтработки=СтрЗаменить(СтрокаМассива,"__","*");
        чв=СтрЧислоВхождений(СтрокаОтработки,"*");
        Если чв=0 Тогда
            ДобавитьЭлемент(СтрокаМассива,СтрЗаменить(СтрокаМассива,"_"," "),,,форма,объект,Индекс);
        Иначе
            МассивРаздела=СтрРазделить(СтрокаОтработки,"*",ложь);
            КвоЭлементов=МассивРаздела.Количество();
            ТекЭлемем=1;
            ТекРодитель="";
            Для Каждого СтрокаРаздела из МассивРаздела Цикл
                Если ТекЭлемем=КвоЭлементов Тогда
                    СтрокаТз=ТзСоздание.Добавить();
                    Если ТекРодитель="" Тогда
                        СтрокаТз.элемент=СтрокаРаздела;
                    Иначе
                        СтрокаТз.элемент=ТекРодитель+"__"+СтрокаРаздела;
                    КонецЕсли;
                    СтрокаТз.Родитель=ТекРодитель;
                    СтрокаТз.уровень=ТекЭлемем;
                    СтрокаТз.этогруппа=ложь;
                    СтрокаТз.Представление=СтрЗаменить(СтрокаРаздела,"_"," ");
                Иначе
                    СтрокаТз=ТзСоздание.Добавить();
                    Если ТекРодитель="" Тогда
                        СтрокаТз.элемент=СтрокаРаздела;
                    Иначе
                        СтрокаТз.элемент=ТекРодитель+"__"+СтрокаРаздела;
                    КонецЕсли;
                    СтрокаТз.Родитель=ТекРодитель;
                    СтрокаТз.уровень=ТекЭлемем;
                    СтрокаТз.этогруппа=Истина;
                    СтрокаТз.Представление=СтрЗаменить(СтрокаРаздела,"_"," ");
                    ТекРодитель=СтрокаТз.элемент;
                КонецЕсли;
                ТекЭлемем=ТекЭлемем+1;
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
    
    ТзСоздание.Свернуть("Уровень,ЭтоГруппа,Представление,Элемент,Родитель");
    ТзСоздание.Сортировать("Уровень,ЭтоГруппа,Представление");
    Для Каждого СтрокаТз из ТзСоздание Цикл
        Если ОбщийУровень<>СтрокаТз.Уровень Тогда
            ОбщийУровень=СтрокаТз.Уровень;
            Индекс=1;
        КонецЕсли;
        ДобавитьЭлемент(СтрокаТз.элемент,СтрокаТз.Представление,СтрокаТз.ЭтоГруппа,СтрокаТз.Родитель,форма,Объект,индекс);
    КонецЦикла;
    
    
КонецПроцедуры
///
Процедура ДобавитьЭлемент(ИмяЭлемента,Представление,ЭтоГруппа=Ложь,Родитель="",форма,объект,Индекс)
    
    Если Родитель="" Тогда
        КнопкиДействияФормы = Форма.ЭлементыФормы.ДействияФормы.Кнопки.Найти("МенюВариантыОтчетов");
    Иначе
        //КнопкиДействияФормы = Форма.ЭлементыФормы.ДействияФормы.Кнопки.Найти(Родитель);
        КнопкиДействияФормы = ПолучитьКнопку(Форма,Родитель);
    КонецЕсли;
    Если ЭтоГруппа Тогда
        НоваяКнопкаПодменю = КнопкиДействияФормы.Кнопки.Добавить(ИмяЭлемента, ТипКнопкиКоманднойПанели.Подменю, Представление);
    Иначе
        НовоеДействие = Новый Действие("ВариантНастройки");
        НоваяКнопка = КнопкиДействияФормы.Кнопки.Добавить(ИмяЭлемента, ТипКнопкиКоманднойПанели.Действие, Представление, НовоеДействие);
    КонецЕсли;
    Индекс=индекс+1;
КонецПроцедуры
///
функция ПолучитьКнопку(Форма,имя)
    СтрокаОтработки=СтрЗаменить(имя,"__","*");
    чв=СтрЧислоВхождений(СтрокаОтработки,"*");
    Если чв=0 Тогда
        Кнопка=Форма.ЭлементыФормы.ДействияФормы.Кнопки.МенюВариантыОтчетов.Кнопки.Найти(имя);
    Иначе
        МассивРаздела=СтрРазделить(СтрокаОтработки,"*",ложь);
        ТекКнопка=Форма.ЭлементыФормы.ДействияФормы.Кнопки.МенюВариантыОтчетов;
        текстТекКнопка="";
        это1=Истина;
        Для Каждого СтрокаРаздела из МассивРаздела Цикл
            Если это1 Тогда
                текстТекКнопка=СтрокаРаздела;
                это1=Ложь;
            Иначе
                текстТекКнопка=текстТекКнопка+"__"+СтрокаРаздела;
            КонецЕсли;
            НовТекКнопка=ТекКнопка.Кнопки.Найти(текстТекКнопка);
            ТекКнопка=НовТекКнопка;
        КонецЦикла;
        Кнопка=ТекКнопка;
    КонецЕсли;
    Возврат Кнопка;
КонецФункции

 Процедура ПриОткрытии()
    УправлениеОтчетами.СоздатьПунктВариантыНастроек(ЭтаФорма,ЭтотОбъект);
КонецПроцедуры
Процедура ВариантНастройки(кнопка)
    УправлениеОтчетами.СменитьВариантНастройки(кнопка, ЭтотОбъект);
КонецПроцедуры