Подскажите как просто реализовать структуру подчиненности в самописной конфигурации. Может есть какая-нибудь статья в книге знаний?

Подсмотреть в типовой

рекурсией

(0) критерий + кусок кода
стырить из любой типовой

(0) Смотри в сторону критериев отбора. Там почти все средствами платформы, кода не так уж много.

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

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

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

&НаКлиенте
Процедура НайтиВСписке(Команда)
   
   ПараметрыФормы = Новый Структура("ТекущаяСтрока", Элементы.СвязанныеДокументы.ТекущиеДанные.Ссылка);
   ОткрытьФорму("Документ." + Элементы.СвязанныеДокументы.ТекущиеДанные.Ссылка.Метаданные().Имя + ".ФормаСписка", ПараметрыФормы);    
   
КонецПроцедуры

Процедура ЗаполнитьПредставление(Таблица)
   
   Для Каждого Строка Из Таблица Цикл
       Строка.Представление = Строка.Ссылка.Метаданные().Синоним;
   КонецЦикла;
   
КонецПроцедуры

&НаКлиенте
Процедура СвязанныеДокументыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
   
   ОткрытьЗначение(Элементы.СвязанныеДокументы.ТекущиеДанные.Ссылка);
   
КонецПроцедуры

Критерий отбора + Общий макет + ОбщаяФорма