Каталог решений - Получение дерева подчиненности.

// Получение дерева подчиненности (родительские и подчиненные документы)
Функция ДеревоПодчиненности(Ссылка) Экспорт

    ДеревоДокументов = Новый ДеревоЗначений;
    ДеревоДокументов.Колонки.Добавить(«Ссылка»);
    ДеревоДокументов.Колонки.Добавить(«ДокументПредставление»);
    ДеревоДокументов.Колонки.Добавить(«Проведен»);
    ДеревоДокументов.Колонки.Добавить(«ПометкаУдаления»);
    ДеревоДокументов.Колонки.Добавить(«ВидДокумента»);
    мУжеВСписке = Новый Соответствие;

    мДерево = ДеревоДокументов;
    ВывестиРодительскиеДокументы(Ссылка, мУжеВСписке, мДерево);
    ВывестиПодчиненныеДокументы(мДерево, мУжеВСписке);

    Возврат ДеревоДокументов;

КонецФункции
//
Процедура ВывестиРодительскиеДокументы(ДокументСсылка, мУжеВСписке, мДерево)

    МетаданныеДокумента = ДокументСсылка.Метаданные();
    СписокРеквизитов = Новый СписокЗначений;

    Для Каждого Реквизит ИЗ МетаданныеДокумента.Реквизиты Цикл
        ТипыРеквизита = Реквизит.Тип.Типы();
        Для Каждого ТекущийТип ИЗ ТипыРеквизита Цикл
            МетаданныеРеквизита = Метаданные.НайтиПоТипу(ТекущийТип);

            Если МетаданныеРеквизита<>Неопределено И Метаданные.Документы.Содержит(МетаданныеРеквизита)
                И ПравоДоступа(«Чтение», МетаданныеРеквизита) Тогда
                Попытка
                    ЗначениеРеквизита = ДокументСсылка[Реквизит.Имя];
                Исключение
                    Прервать;
                КонецПопытки;
                ЕСли ЗначениеРеквизита<>Неопределено И НЕ ЗначениеРеквизита.Пустая() И ТипЗнч(ЗначениеРеквизита) = ТекущийТип
                    И мУжеВСписке[ЗначениеРеквизита] = Неопределено И СписокРеквизитов.НайтиПоЗначению(ДокументСсылка[Реквизит.Имя]) = Неопределено Тогда
                    СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ЗначениеРеквизита.Дата,«ДФ=yyyyMMddЧЧММсс»));
                КонецЕсли;
            КонецЕсли;

        КонецЦикла;
    КонецЦикла;

    Для Каждого ТЧ Из МетаданныеДокумента.ТабличныеЧасти Цикл
        СтрРеквизитов = «»;

        Попытка
            СодержимоеТЧ = ДокументСсылка[ТЧ.Имя].Выгрузить();
        Исключение
            Прервать;
        КонецПопытки;

        Для Каждого Реквизит ИЗ ТЧ.Реквизиты Цикл
            ТипыРеквизита = Реквизит.Тип.Типы();
            Для Каждого ТекущийТип ИЗ ТипыРеквизита Цикл
                МетаданныеРеквизита = Метаданные.НайтиПоТипу(ТекущийТип);
                Если МетаданныеРеквизита<>Неопределено И Метаданные.Документы.Содержит(МетаданныеРеквизита)
                    И ПравоДоступа(«Чтение», МетаданныеРеквизита) Тогда
                    СтрРеквизитов = СтрРеквизитов + ?(СтрРеквизитов = «», «», «, «) + Реквизит.Имя;
                    Прервать;
                КонецЕсли;
            КонецЦикла;
        КонецЦикла;

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

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

    Если СписокРеквизитов.Количество() = 1 Тогда
        ВывестиРодительскиеДокументы(СписокРеквизитов[0].Значение, мУжеВСписке, мДерево);
    ИначеЕсли СписокРеквизитов.Количество() > 1 Тогда
        ВывестиБезРодителей(СписокРеквизитов, мУжеВСписке, мДерево);
    КонецЕсли;

    СтрокаДерева = мДерево.Строки.Добавить();
    Запрос = Новый Запрос(«ВЫБРАТЬ РАЗРЕШЕННЫЕ Ссылка, Проведен, ПометкаУдаления, Представление, «»» + МетаданныеДокумента.Имя + «»» КАК Метаданные
    | ИЗ Документ.»+МетаданныеДокумента.Имя + » ГДЕ Ссылка = &Ссылка»);

    Запрос.УстановитьПараметр(«Ссылка», ДокументСсылка);

    Выборка  = Запрос.Выполнить().Выбрать();
    Если Выборка.Следующий() Тогда
        СтрокаДерева.Ссылка = Выборка.Ссылка;
        СтрокаДерева.ДокументПредставление = Выборка.Ссылка.Метаданные().Синоним + » » + Выборка.Ссылка.Номер;
        СтрокаДерева.Проведен = Выборка.Проведен;
        СтрокаДерева.ПометкаУдаления = Выборка.ПометкаУдаления;
        СтрокаДерева.ВидДокумента = Выборка.Метаданные;
    Иначе
        СтрокаДерева.Ссылка= ДокументСсылка;
    КонецЕсли;

    мДерево = СтрокаДерева;

КонецПроцедуры
//
Процедура ВывестиПодчиненныеДокументы(СтрокаДерева, мУжеВСписке)

    ТекущийДокумент = СтрокаДерева.Ссылка;
    ТипДокумента = ТипЗнч(ТекущийДокумент);
    СтруктураРеквизитов = Новый ТаблицаЗначений;
    СтруктураРеквизитов.Колонки.Добавить(«ПутьКДанным»);
    СтруктураРеквизитов.Колонки.Добавить(«ИмяРеквизита»);

    Для каждого Док ИЗ Метаданные.Документы Цикл
        Если НЕ ПравоДоступа(«Чтение», Док) Тогда
            Продолжить;
        КонецЕсли;

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

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

    КонецЦикла;
    ТекстЗапроса = «»;
    Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл

        Если Найти(КлючИЗначение.ПутьКДанным, «.») = 0 Тогда

            ТекстЗапроса = ТекстЗапроса + «
            |Выбрать » + ?(ТекстЗапроса=«», «РАЗРЕШЕННЫЕ «, «») + «Ссылка, Ссылка.Дата Как ДатаДок, Представление, Проведен, ПометкаУдаления, «»»+ КлючИЗначение.ПутьКДанным +«»» КАК ВидДокумента ИЗ Документ.»+КлючИЗначение.ПутьКДанным+«
            |ГДЕ «+КлючИЗначение.ИмяРеквизита+«=&ДокументОснование
            |ОБЪЕДИНИТЬ ВСЕ
            |»;

        Иначе
            ПозицияТочки = Найти(КлючИЗначение.ПутьКДанным, «.»);
            ТекстЗапроса = ТекстЗапроса + «
            |Выбрать » + ?(ТекстЗапроса=«», «РАЗРЕШЕННЫЕ «, «») + «Ссылка, Ссылка.Дата Как ДатаДок, Ссылка.Представление,  Ссылка.Проведен, Ссылка.ПометкаУдаления, «»»+ Лев(КлючИЗначение.ПутьКДанным, ПозицияТочки—1) +«»» КАК ВидДокумента ИЗ Документ.»+КлючИЗначение.ПутьКДанным+«
            |ГДЕ «+КлючИЗначение.ИмяРеквизита+«=&ДокументОснование
            |ОБЪЕДИНИТЬ ВСЕ
            |»;

        КонецЕсли;
    КонецЦикла;

    Если ТекстЗапроса=«» Тогда
        Возврат;
    КонецЕсли;

    ТекстЗапроса = Лев (ТекстЗапроса, СтрДлина(ТекстЗапроса)-15);
    ТекстЗапроса = ТекстЗапроса+ «
    |УПОРЯДОЧИТЬ ПО  ДатаДок»;

    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр(«ДокументОснование», ТекущийДокумент);
    Выборка = Запрос.Выполнить().Выбрать();

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

КонецПроцедуры
//
Процедура ВывестиБезРодителей(СписокДокументов, мУжеВСписке, мДерево)

    Для Каждого ЭлементСписка Из СписокДокументов Цикл

        МетаданныеДокумента = ЭлементСписка.Значение.Метаданные();

        Запрос = Новый Запрос(«ВЫБРАТЬ РАЗРЕШЕННЫЕ Ссылка, Проведен, ПометкаУдаления, Представление, «»» + МетаданныеДокумента.Имя + «»» КАК Метаданные
        | ИЗ Документ.»+МетаданныеДокумента.Имя + » ГДЕ Ссылка = &Ссылка»);

        Запрос.УстановитьПараметр(«Ссылка», ЭлементСписка.Значение);

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

    мДерево = СтрокаДерева;

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