Расшифровка отчета СКД этим же отчетом, но другой схемой на 8.3 УФ

Функция ДобавитьИВыполнитьРасшифровку(Расшифровка,ДополнительныеДействия)
	
	ВыполненноеДействие = Неопределено;
	ОбработкаРасшифровки = Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
	Настройки = ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,,ДополнительныеДействия);
	
    Если Настройки <> Неопределено Тогда
		
		КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
		ЭлементыФормы.Результат.Очистить();
		СкомпоноватьРезультат(ЭлементыФормы.Результат,ДанныеРасшифровки); 
		Возврат Неопределено;
		
	КонецЕсли;
	
	Возврат ?(ТипЗнч(ВыполненноеДействие) = Тип("ДействиеОбработкиРасшифровкиКомпоновкиДанных"),Неопределено,ВыполненноеДействие);
	
КонецФункции


Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка, ДополнительныеПараметры)
	
	ПолеРасшифровки = ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0];
	ВыполненноеДействие = Неопределено;
	
	Если ПолеРасшифровки.Поле = "Товар" Тогда
		
		СтандартнаяОбработка = Ложь;
		ДополнительныеДействия = Новый СписокЗначений;
        ДополнительныеДействия.Добавить(0,"Обороты по товару");
        ДополнительныеДействия.Добавить(1,"Обороты по товарам полный форш");
		ВыполненноеДействие = ДобавитьИВыполнитьРасшифровку(Расшифровка,ДополнительныеДействия);
		
	КонецЕсли;	
	
	Если ТипЗнч(ВыполненноеДействие) = Тип("Число") Тогда
		
		
		СКДРегистратор = ПолучитьМакет("Макет");
		
		Настройки = СКДРегистратор.НастройкиПоУмолчанию;
		
		Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачалоПериода"
					, КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода").Значение);
		Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода"
					, КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода").Значение);
					
					
		Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Товар"
			, ?(ВыполненноеДействие, МаркированныйТовар, ПолеРасшифровки.Значение));
			
		Если ВыполненноеДействие Тогда 	
			Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Контрагент", Справочники.Контрагенты.ПустаяСсылка())	
		Иначе 
			
			ИндексРП = Расшифровка - 1;
			Пока ИндексРП Цикл
				
				ПоляРасш = ДанныеРасшифровки.Элементы[ИндексРП];
				Если ТипЗнч(ПоляРасш) = Тип("ЭлементРасшифровкиКомпоновкиДанныхПоля") Тогда 
					
					ПолеРасш = ПоляРасш.ПолучитьПоля()[0];
					Если ПолеРасш.Поле = "ЮрЛицо" Тогда 
						
						Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Контрагент", ПолеРасш.Значение);
						Прервать;
						
					КонецЕсли;	
					
				КонецЕсли;	
				ИндексРП = ИндексРП - 1;
				
			КонецЦикла;	
			
		КонецЕсли;	
		

		Результат = Новый ТабличныйДокумент;
		Результат.ТолькоПросмотр = Истина;
		Результат.ОтображатьСетку = Ложь;
		Результат.ОтображатьЗаголовки = Ложь;
		
		РегистраторДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
		
		ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
		ПроцессорКомпоновки.Инициализировать(КомпоновщикМакета.Выполнить(СКДРегистратор, Настройки, РегистраторДанныеРасшифровки)
					,, РегистраторДанныеРасшифровки);
		ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
		
		ПроцессорВывода.УстановитьДокумент(Результат);	
		ПроцессорВывода.Вывести(ПроцессорКомпоновки);
		
		
			
		
		Если ВыполненноеДействие Тогда 	
			
			файл = КаталогВременныхФайлов() + "Регистраторы.XLSX";
			Результат.Записать(файл, ТипФайлаТабличногоДокумента.XLSX);
			Сообщить("Создан файл - " + файл);
			
		Иначе 	
			
			Для ОбХ = 1 По Результат.ШиринаТаблицы Цикл 
				Для ОбУ = 1 По Результат.ВысотаТаблицы Цикл 
					
					Область = Результат.Область(ОбХ, ОбУ);
					Если ТипЗнч(Область.Расшифровка) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда 
						
						ЭлементРасшифровка = РегистраторДанныеРасшифровки.Элементы[Область.Расшифровка];
						Если ТипЗнч(ЭлементРасшифровка) = Тип("ЭлементРасшифровкиКомпоновкиДанныхПоля") Тогда 
							Область.Расшифровка = ЭлементРасшифровка.ПолучитьПоля()[0].Значение;
						КонецЕсли;	
						
					КонецЕсли;	
					
				КонецЦикла;	
				
			КонецЦикла;	
			
			Результат.Показать("Регистраторы для товара: " + ПолеРасшифровки.Значение);
		КонецЕсли;	
		
	КонецЕсли

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