Вставить строки в новое Дерево Значений с такой же иерархией как в старом

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

&НаСервере
Процедура ПоехалиРекурсировать(Дерево, НовоеДерево)
		
	СтрокиДЗ = Дерево.Строки;
	
	ПараметрыПоиска = Новый Структура;
	ПараметрыПоиска.Вставить("НеТиповой", Истина);
	
	Для Каждого ТекСтр Из СтрокиДЗ Цикл				
		
		МассивНайденных = ТекСтр.Строки.НайтиСтроки(ПараметрыПоиска, Истина);
		
		// И проверку еще на последний элемент потом элемент
				
		Если МассивНайденных.Количество() <> 0 Тогда
						
			НоваяСтрока = НовоеДерево.Строки.Добавить(); 
			
			ЗаполнитьЗначенияСвойств(НоваяСтрока, ТекСтр);
									
		КонецЕсли;
		
		ПоехалиРекурсировать(ТекСтр, НовоеДерево);
		
	КонецЦикла;
	
КонецПроцедуры