Есть ли на восьмерке универсальная обработка которая показывает дерево подчиненности документа?

Лежит на itland.ru

http://itland.ru/rep/index.php?id=148

Сенкс :)

Хех вот только примерчик бы чтобы добавить к меню к кнопке действия выбор этого меню для всех документиков :)

Интересно, в ней отсутствует недостаток аналогичной обработки 7.7 - неверный показ дерева при подчинении одного документа сразу нескольким другим?

или другими словами - как это работает  при наличии нескольких корней дерева

В модуле формы документа:
Процедура ПриОткрытии()
  ЗаполнитьКнопкуДействия(ЭлементыФормы.ДействияФормы.Кнопки.Подменю,ЭтотОбъект);
КонецПроцедуры
------------------------
Процедура ДействияФормыДействиеДерево(Кнопка)

   Если Кнопка <> Неопределено Тогда // найти новое значение вида операции
       ПостроитьДерево(Ссылка);
   КонецЕсли;

КонецПроцедуры
------------------------

В общем модуле:

Процедура ЗаполнитьКнопкуДействия(ЭлементМеню,Объект) Экспорт
     //Пункт меню дерево
     Элемент = ЭлементМеню.Кнопки.Добавить("РазделительДерево", ТипКнопкиКоманднойПанели.Разделитель,,);
     Элемент = ЭлементМеню.Кнопки.Добавить("Дерево", ТипКнопкиКоманднойПанели.Действие,
                                   "Дерево", Новый Действие("ДействияФормыДействиеДерево"));
     Элемент.Картинка = БиблиотекаКартинок.Дерево;
КонецПроцедуры
--------------------------------
#ЕСЛИ КЛИЕНТ ТОГДА
Процедура ПостроитьДерево(Ссылка) Экспорт
   
   Если ЗначениеНеЗаполнено(Ссылка) Тогда
       Возврат;
   КонецЕсли;
   
   Форма = Отчеты.Дерево.Создать().ПолучитьФорму();
   Форма.СсылкаНаОбъект = Ссылка;
   Форма.Заголовок = Ссылка;
   Форма.Открыть();
   
КонецПроцедуры
#КОНЕЦЕСЛИ