// Получение дерева подчиненности (родительские и подчиненные документы)
Функция ДеревоПодчиненности(Ссылка) Экспорт
ДеревоДокументов = Новый ДеревоЗначений;
ДеревоДокументов.Колонки.Добавить("Ссылка");
ДеревоДокументов.Колонки.Добавить("ДокументПредставление");
ДеревоДокументов.Колонки.Добавить("Проведен");
ДеревоДокументов.Колонки.Добавить("ПометкаУдаления");
ДеревоДокументов.Колонки.Добавить("ВидДокумента");
мУжеВСписке = Новый Соответствие;
мДерево = ДеревоДокументов;
ВывестиРодительскиеДокументы(Ссылка, мУжеВСписке, мДерево);
ВывестиПодчиненныеДокументы(мДерево, мУжеВСписке);
Возврат ДеревоДокументов;
КонецФункции
//
Процедура ВывестиРодительскиеДокументы(ДокументСсылка, мУжеВСписке, мДерево)
МетаданныеДокумента = ДокументСсылка.Метаданные();
СписокРеквизитов = Новый СписокЗначений;
Для Каждого Реквизит ИЗ МетаданныеДокумента.Реквизиты Цикл
ТипыРеквизита = Реквизит.Тип.Типы();
Для Каждого ТекущийТип ИЗ ТипыРеквизита Цикл
МетаданныеРеквизита = Метаданные.НайтиПоТипу(ТекущийТип);
Если МетаданныеРеквизита<>Неопределено И Метаданные.Документы.Содержит(МетаданныеРеквизита)
И ПравоДоступа("Чтение", МетаданныеРеквизита) Тогда
Попытка
ЗначениеРеквизита = ДокументСсылка[Реквизит.Имя];
Исключение
Прервать;
КонецПопытки;
ЕСли ЗначениеРеквизита<>Неопределено И НЕ ЗначениеРеквизита.Пустая() И ТипЗнч(ЗначениеРеквизита) = ТекущийТип
И мУжеВСписке[ЗначениеРеквизита] = Неопределено И СписокРеквизитов.НайтиПоЗначению(ДокументСсылка[Реквизит.Имя]) = Неопределено Тогда
СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ЗначениеРеквизита.Дата,"ДФ=yyyyMMddЧЧММсс"));
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Для Каждого ТЧ Из МетаданныеДокумента.ТабличныеЧасти Цикл
СтрРеквизитов = "";
Попытка
СодержимоеТЧ = ДокументСсылка[ТЧ.Имя].Выгрузить();
Исключение
Прервать;
КонецПопытки;
Для Каждого Реквизит ИЗ ТЧ.Реквизиты Цикл
ТипыРеквизита = Реквизит.Тип.Типы();
Для Каждого ТекущийТип ИЗ ТипыРеквизита Цикл
МетаданныеРеквизита = Метаданные.НайтиПоТипу(ТекущийТип);
Если МетаданныеРеквизита<>Неопределено И Метаданные.Документы.Содержит(МетаданныеРеквизита)
И ПравоДоступа("Чтение", МетаданныеРеквизита) Тогда
СтрРеквизитов = СтрРеквизитов + ?(СтрРеквизитов = "", "", ", ") + Реквизит.Имя;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
СодержимоеТЧ.Свернуть(СтрРеквизитов);
Для Каждого КолонкаТЧ ИЗ СодержимоеТЧ.Колонки Цикл
Для Каждого СтрокаТЧ ИЗ СодержимоеТЧ Цикл
Попытка
ЗначениеРеквизита = СтрокаТЧ[КолонкаТЧ.Имя];
Исключение
Продолжить;
КонецПопытки;
МетаданныеЗначения = Метаданные.НайтиПоТипу(ТипЗнч(ЗначениеРеквизита));
Если МетаданныеЗначения = Неопределено Тогда
// базовый тип
Продолжить;
КонецЕсли;
ЕСли ЗначениеРеквизита<>Неопределено И НЕ ЗначениеРеквизита.Пустая()
И Метаданные.Документы.Содержит(МетаданныеЗначения)
И мУжеВСписке[ЗначениеРеквизита] = Неопределено Тогда
Если СписокРеквизитов.НайтиПоЗначению(ЗначениеРеквизита) = Неопределено Тогда
СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ЗначениеРеквизита.Дата,"ДФ=yyyyMMddЧЧММсс"));
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
СписокРеквизитов.СортироватьПоПредставлению();
мУжеВСписке.Вставить(ДокументСсылка, Истина);
Если СписокРеквизитов.Количество() = 1 Тогда
ВывестиРодительскиеДокументы(СписокРеквизитов[0].Значение, мУжеВСписке, мДерево);
ИначеЕсли СписокРеквизитов.Количество() > 1 Тогда
ВывестиБезРодителей(СписокРеквизитов, мУжеВСписке, мДерево);
КонецЕсли;
СтрокаДерева = мДерево.Строки.Добавить();
Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ Ссылка, Проведен, ПометкаУдаления, Представление, """ + МетаданныеДокумента.Имя + """ КАК Метаданные
| ИЗ Документ."+МетаданныеДокумента.Имя + " ГДЕ Ссылка = &Ссылка");
Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
СтрокаДерева.Ссылка = Выборка.Ссылка;
СтрокаДерева.ДокументПредставление = Выборка.Ссылка.Метаданные().Синоним + " " + Выборка.Ссылка.Номер;
СтрокаДерева.Проведен = Выборка.Проведен;
СтрокаДерева.ПометкаУдаления = Выборка.ПометкаУдаления;
СтрокаДерева.ВидДокумента = Выборка.Метаданные;
Иначе
СтрокаДерева.Ссылка= ДокументСсылка;
КонецЕсли;
мДерево = СтрокаДерева;
КонецПроцедуры
//
Процедура ВывестиПодчиненныеДокументы(СтрокаДерева, мУжеВСписке)
ТекущийДокумент = СтрокаДерева.Ссылка;
ТипДокумента = ТипЗнч(ТекущийДокумент);
СтруктураРеквизитов = Новый ТаблицаЗначений;
СтруктураРеквизитов.Колонки.Добавить("ПутьКДанным");
СтруктураРеквизитов.Колонки.Добавить("ИмяРеквизита");
Для каждого Док ИЗ Метаданные.Документы Цикл
Если НЕ ПравоДоступа("Чтение", Док) Тогда
Продолжить;
КонецЕсли;
Для Каждого Реквизит Из Док.Реквизиты Цикл
Если Реквизит.Тип.СодержитТип(ТипДокумента) Тогда
НовСтр = СтруктураРеквизитов.Добавить();
НовСтр.ПутьКДанным = Док.Имя;
НовСтр.ИмяРеквизита = Реквизит.Имя;
КонецЕсли;
КонецЦикла;
Для Каждого ТЧ ИЗ Док.ТабличныеЧасти Цикл
Для Каждого Реквизит Из ТЧ.Реквизиты Цикл
Если Реквизит.Тип.СодержитТип(ТипДокумента) Тогда
НовСтр = СтруктураРеквизитов.Добавить();
НовСтр.ПутьКДанным = Док.Имя+"."+ТЧ.Имя;
НовСтр.ИмяРеквизита = Реквизит.Имя;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
ТекстЗапроса = "";
Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
Если Найти(КлючИЗначение.ПутьКДанным, ".") = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|Выбрать " + ?(ТекстЗапроса="", "РАЗРЕШЕННЫЕ ", "") + "Ссылка, Ссылка.Дата Как ДатаДок, Представление, Проведен, ПометкаУдаления, """+ КлючИЗначение.ПутьКДанным +""" КАК ВидДокумента ИЗ Документ."+КлючИЗначение.ПутьКДанным+"
|ГДЕ "+КлючИЗначение.ИмяРеквизита+"=&ДокументОснование
|ОБЪЕДИНИТЬ ВСЕ
|";
Иначе
ПозицияТочки = Найти(КлючИЗначение.ПутьКДанным, ".");
ТекстЗапроса = ТекстЗапроса + "
|Выбрать " + ?(ТекстЗапроса="", "РАЗРЕШЕННЫЕ ", "") + "Ссылка, Ссылка.Дата Как ДатаДок, Ссылка.Представление, Ссылка.Проведен, Ссылка.ПометкаУдаления, """+ Лев(КлючИЗначение.ПутьКДанным, ПозицияТочки-1) +""" КАК ВидДокумента ИЗ Документ."+КлючИЗначение.ПутьКДанным+"
|ГДЕ "+КлючИЗначение.ИмяРеквизита+"=&ДокументОснование
|ОБЪЕДИНИТЬ ВСЕ
|";
КонецЕсли;
КонецЦикла;
Если ТекстЗапроса="" Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = Лев (ТекстЗапроса, СтрДлина(ТекстЗапроса)-15);
ТекстЗапроса = ТекстЗапроса+ "
|УПОРЯДОЧИТЬ ПО ДатаДок";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("ДокументОснование", ТекущийДокумент);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если мУжеВСписке[Выборка.Ссылка] = Неопределено Тогда
НоваяСтрока = СтрокаДерева.Строки.Добавить();
НоваяСтрока.Ссылка = Выборка.Ссылка;
НоваяСтрока.ДокументПредставление = Выборка.Ссылка.Метаданные().Синоним + " " + Выборка.Ссылка.Номер;
НоваяСтрока.Проведен = Выборка.Проведен;
НоваяСтрока.ПометкаУдаления = Выборка.ПометкаУдаления;
НоваяСтрока.ВидДокумента = Выборка.ВидДокумента;
мУжеВСписке.Вставить(Выборка.Ссылка, Истина);
ВывестиПодчиненныеДокументы(НоваяСтрока, мУжеВСписке);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
//
Процедура ВывестиБезРодителей(СписокДокументов, мУжеВСписке, мДерево)
Для Каждого ЭлементСписка Из СписокДокументов Цикл
МетаданныеДокумента = ЭлементСписка.Значение.Метаданные();
Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ Ссылка, Проведен, ПометкаУдаления, Представление, """ + МетаданныеДокумента.Имя + """ КАК Метаданные
| ИЗ Документ."+МетаданныеДокумента.Имя + " ГДЕ Ссылка = &Ссылка");
Запрос.УстановитьПараметр("Ссылка", ЭлементСписка.Значение);
Выборка = Запрос.Выполнить().Выбрать();
ЕСли Выборка.Следующий() Тогда
Если мУжеВСписке[Выборка.Ссылка] = Неопределено Тогда
СтрокаДерева = мДерево.Строки.Добавить();
СтрокаДерева.Ссылка= Выборка.Ссылка;
СтрокаДерева.ДокументПредставление = Выборка.Ссылка.Метаданные().Синоним + " " + Выборка.Ссылка.Номер;
СтрокаДерева.Проведен = Выборка.Проведен;
СтрокаДерева.ПометкаУдаления = Выборка.ПометкаУдаления;
СтрокаДерева.ВидДокумента = Выборка.Метаданные;
мУжеВСписке.Вставить(Выборка.Ссылка, Истина);
КонецЕсли;
КонецЕсли;
КонецЦикла;
мДерево = СтрокаДерева;
КонецПроцедуры
