Получение значения расшифровки и значений вышестоящих группировок расшифровки в отчете СКД

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

    
        Данные = ПолучитьИзВременногоХранилища(ДанныеРасшифровки);
        Структура = Новый Структура;
	РекурсивноПолучитьРодителей(Данные.Элементы.Получить(Расшифровка), Структура);

&НаКлиенте
Функция ПолучитьСтруктуруРасшифровки(Расшифровка)
	
	СтруктураРасшифровки = Новый Структура;	    
	ЗаполнитьСтруктуруПолейРасшифровки(Расшифровка, СтруктураРасшифровки); 
	
	Возврат СтруктураРасшифровки;
	
КонецФункции 

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

МассивПолей = ПолеРодитель.ПолучитьРодителей()[0].ПолучитьПоля();

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

&НаСервере
Процедура РезультатОбработкаРасшифровкиНаСервере(Расшифровка)
	ДанныеРасшифровкиНаСервере = ПолучитьИзВременногоХранилища(ДанныеРасшифровки);
	ВывестиЗначениеГруппировки(ДанныеРасшифровкиНаСервере, Расшифровка, "");
КонецПроцедуры

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

&НаСервере
Процедура РезультатОбработкаРасшифровкиНаСервере(Расшифровка)
	ДанныеРасшифровкиНаСервере = ПолучитьИзВременногоХранилища(ДанныеРасшифровки);

	Попытка
		Касса = ДанныеРасшифровкиНаСервере.Элементы[Расшифровка].ПолучитьРодителей()[0].ПолучитьПоля()[1].Значение;
		//открыть расшифровку по кассе ...
	Исключение
	КонецПопытки;
КонецПроцедуры

Функция ИнформацияОТекущейРасшифровке(ДанныеРасшифровки, Расшифровка) Экспорт
	
	//https://infostart.ru/1c/articles/195432/    
	Р = Новый Структура("Поле, Значение");             
	Р.Вставить("Поля", Новый Соответствие());
	
	Поля = ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля();
	Если Поля.Количество() > 0 Тогда
		//ВывестиЗначениеГруппировки(ДанныеРасшифровки, Поля[0]);
		Поле = ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0];
		Р.Поле = Поле.Поле; Р.Значение = Поле.Значение;
	КонецЕсли;                                                           
	
	ЗаполнитьПоляРасшифровки(Р.Поля, ДанныеРасшифровки, Расшифровка);
	
	Возврат Р;
	
КонецФункции

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

&НаКлиенте
Процедура БС_ОтчетТабличныйДокументВыборВместо(Элемент, Область, СтандартнаяОбработка)
	Если ПроверкаТипаОтчетаПоТехнике() Тогда                        
		Расшифровка = Область.Расшифровка;
		Инфо = БС_ПолучитьИнформациюРасшифровки(Расшифровка); 
		Если Инфо.Поле = "ВычАвтопарк" Тогда
			ПоказатьЗначение(, Инфо.Значение);
		ИначеЕсли Инфо.Поле = "ВычВидТехники" Тогда
			ПоказатьЗначение(, Инфо.Поля["БС_ШаблонХарактеристик"]);
		КонецЕсли;
		СтандартнаяОбработка = ложь;
	КонецЕсли;
	ПродолжитьВызов(Элемент, Область, СтандартнаяОбработка);
КонецПроцедуры

Функция БС_ПолучитьИнформациюРасшифровки(Расшифровка)
	ДанныеРасшифровки = ПолучитьИзВременногоХранилища(ОтчетДанныеРасшифровки);
	
	Инфо = БС_С.ИнформацияОТекущейРасшифровке(ДанныеРасшифровки, Расшифровка);
	Возврат Инфо;
КонецФункции