Мои шаблоны. Нахождение всех родителей в запросе

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

Родитель = Объект.СсылкаНаОбъект.Родитель;
	Пока Родитель <> Справочники[Родитель.метаданные().Имя].ПустаяСсылка() Цикл
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = (Строка(Родитель));
		Сообщение.Сообщить();
		Родитель = Родитель.Родитель; 
	КонецЦикла;

ВЫБРАТЬ
	Склады.Ссылка.Ссылка КАК Родитель
ИЗ
	Справочник.Склады КАК Склады
ГДЕ
	Склады.Ссылка = &МойСклад
ИТОГИ ПО
	Родитель ТОЛЬКО ИЕРАРХИЯ

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

Возврат Запрос.Текст;

	
КонецФункции