Найти родителя в запросе?

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

потом пишем:
Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;
Выборка = Запрос.Выполнить.Выбраьб();
Выборка.Следующий();
Родитель = Выборка.Ссылка;

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

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

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

 Возврат(СтрокаВыборки.ЦТЗ);

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

Функция ВовзратЦТЗ(Дата)
	
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |	Номенклатура.Ссылка КАК Номенклатура,
               |	ЕСТЬNULL(СхемыЦТЗ.ЦТЗ, ""нет"") КАК ЦТЗ,
               |	Номенклатура.Родитель КАК Родитель,
               |	Номенклатура.ЭтоГруппа КАК ЭтоГруппа
               |ИЗ
               |	Справочник.Номенклатура КАК Номенклатура
               |		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
               |			СхемыЦТЗ.Ссылка КАК Ссылка,
               |			ВЫБОР
               |				КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 1
               |					ТОГДА СхемыЦТЗ.Понедельник
               |				ИНАЧЕ ВЫБОР
               |						КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 2
               |							ТОГДА СхемыЦТЗ.Вторник
               |						ИНАЧЕ ВЫБОР
               |								КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 3
               |									ТОГДА СхемыЦТЗ.Среда
               |								ИНАЧЕ ВЫБОР
               |										КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 4
               |											ТОГДА СхемыЦТЗ.Четверг
               |										ИНАЧЕ ВЫБОР
               |												КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 5
               |													ТОГДА СхемыЦТЗ.Пятница
               |												ИНАЧЕ ВЫБОР
               |														КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 6
               |															ТОГДА СхемыЦТЗ.Суббота
               |														ИНАЧЕ ВЫБОР
               |																КОГДА ДЕНЬНЕДЕЛИ(&КонецПериода) = 7
               |																	ТОГДА СхемыЦТЗ.Воскресение
               |															КОНЕЦ
               |													КОНЕЦ
               |											КОНЕЦ
               |									КОНЕЦ
               |							КОНЕЦ
               |					КОНЕЦ
               |			КОНЕЦ КАК ЦТЗ
               |		ИЗ
               |			Справочник.СхемыЦТЗ КАК СхемыЦТЗ
               |		ГДЕ
               |			СхемыЦТЗ.ПометкаУдаления = ЛОЖЬ) КАК СхемыЦТЗ
               |		ПО Номенклатура.Родитель.СхемаЦТЗ.Ссылка = СхемыЦТЗ.Ссылка
               |ГДЕ
               |	Номенклатура.ПометкаУдаления = ЛОЖЬ";

Запрос.УстановитьПараметр("КонецПериода",Дата);		   
ВыборкаУник=Запрос.Выполнить().Выгрузить();

ТаблицаВирт=Новый ТаблицаЗначений();
Тип=Новый ОписаниеТипов("СправочникСсылка.Номенклатура");
ТаблицаВирт.Колонки.Добавить("Номенклатура",Тип);
Тип=Новый ОписаниеТипов("Число");
ТаблицаВирт.Колонки.Добавить("ЦТЗ",Тип);

Для Каждого СтрокаВыборки из ВыборкаУник Цикл 
    ОбработкаПрерыванияПользователя(); 
  Если СтрокаВыборки.ЭтоГруппа Тогда
   Продолжить;
  КонецЕсли;
    виртСтрока=ТаблицаВирт.Добавить();
    виртСтрока.Номенклатура=СтрокаВыборки.Номенклатура;
    ЦТЗ=ПолучитьСтрокуЦТЗ(СтрокаВыборки);
  виртСтрока.ЦТЗ=?(ТипЗнч(ЦТЗ)=Тип("Число"),ЦТЗ,0);
 КонецЦикла;
Возврат(ТаблицаВирт);
КонецФункции

ВЫБОР
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель
	КОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
		ТОГДА ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель
КОНЕЦ

Процедура ДобавитьВсеСтрокиПодразделения(аТаблицаРезультат, аИсходнаяТаблица, аПодразделение, аРодитель)

	НоваяСтрока = аТаблицаРезультат.Добавить();
	НоваяСтрока.Подразделение 	= аПодразделение;

	Если аРодитель = Справочники.ПодразделенияОрганизаций.ПустаяСсылка() тогда
		НоваяСтрока.Родитель 		= аПодразделение;
	Иначе	
		НоваяСтрока.Родитель 		= аРодитель;
		
        СтруктураПоиска = Новый Структура("Подразделение", аРодитель);
		СтрокиПоПодразделению = аИсходнаяТаблица.НайтиСтроки(СтруктураПоиска);
		Если СтрокиПоПодразделению.Количество() = 1 Тогда
			ДобавитьВсеСтрокиПодразделения(аТаблицаРезультат, аИсходнаяТаблица, аПодразделение, СтрокиПоПодразделению[0].Родитель);
		КонецЕсли;
	КонецЕсли;
		
КонецПроцедуры

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