Установить программную расшифровку в отчете СКД

Всем привет!

Нужно установить программную расшифровку, чтобы на основании одной схемы при кликании на количество открывалась другая схема

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

СтандартнаяОбработка=Ложь;
Форма = ЭтотОбъект.ПолучитьФорму();

ЛСхемаКомпоновкиДанных = ЭтотОбъект.ПолучитьМакет("МакетРасшифровки");
ДанныеРасшифровки1 = Новый ДанныеРасшифровкиКомпоновкиДанных;

КомпоновщикНастроек1 = Новый КомпоновщикНастроекКомпоновкиДанных;
ИсточникДоступныхНастроек1 = Новый ИсточникДоступныхНастроекКомпоновкиДанных(лСхемаКомпоновкиДанных);
//
КомпоновщикНастроек1.Инициализировать(ИсточникДоступныхНастроек1);

НастройкиКомпоновкиДанных1 = ЛСхемаКомпоновкиДанных.НастройкиПоУмолчанию;
КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпоновкиДанных1);

КомпоновщикМакета1 = Новый КомпоновщикМакетаКомпоновкиДанных;
Настройки1 = КомпоновщикНастроек1.Настройки;

ПараметрСКД = Настройки1.ПараметрыДанных.Элементы.Найти("НачалоПериода");

ПараметрСКД.Использование = Истина;
ПараметрСКД.Значение = НачалоМесяца(ТекущаяДата());

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

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


//Формируем макет, с помощью компоновщика макета

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

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



Результат = Форма.ЭлементыФормы.Результат;
Результат.Очистить();


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

//ЭлементыФормы.ДействияФормы.Кнопки.Отбор.Пометка = Ложь;

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