//--------------
Функция НайтиКорень(Док)
	// Эта Функция помогает формировать Дерево подчиненных документов
	
	СписокЗащитыОтЗацикливания.ДобавитьЗначение(Док);
	
	ВД=Док.Вид();
	КореньДок= 0 ;
	
	Для Н= 1  По Метаданные.Документ(ВД).РеквизитШапки() Цикл
		РеквДок=Док.ПолучитьАтрибут(Метаданные.Документ(ВД).РеквизитШапки(Н));
		Если ТипЗначенияСтр(РеквДок)="Документ" Тогда
			Если ПустоеЗначение(РеквДок)= 0  Тогда
				Если СписокЗащитыОтЗацикливания.НайтиЗначение(РеквДок)> 0  Тогда
					Продолжить;
				КонецЕсли;

				Если ПустоеЗначение(ВыбКонтрагент)= 0  Тогда
					Попытка
						Контрагент = РеквДок.Контрагент;
					Исключение
						Контрагент = ПолучитьПустоеЗначение("Справочник.Контрагенты");
					КонецПопытки;
					Если ВыбКонтрагент <> Контрагент Тогда
						Продолжить;
					КонецЕсли;
				КонецЕсли; 

				КореньДок=РеквДок;
				Прервать;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
	Если ПустоеЗначение(КореньДок)= 1  Тогда
		Возврат Док;
	Иначе
		Возврат НайтиКорень(КореньДок);
	КонецЕсли;
КонецФункции