Есть у кого готовое? что=то пошарился в типовых - не нашел (

тут писать-то на 5 минут

ВыбратьПодчиененые и заполнить в цикле?

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

Док = СоздатьОбъект("Документ");
Док.ВыбратьПодчиненныеДокументы(,,КомуПодчиненные);
Пока Док.ПолучитьДокумент()=1 Цикл
//...

не оно?

Функция  глВыбратьПодчиненные(ДокОснование,ВидПодчДокумента="", НачДата="",КонДата="", флПроведенные="") Экспорт
       ТекстЗапроса="
   |SELECT
   |    distinct
   |    Жур.IDDoc [Док $Документ],
   |    Жур.IDDocDef Док_вид
   |FROM
   |    _1SJourn Жур (nolock)
   |INNER JOIN
   |    _1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
   |                      Отбор. MDID = 0 AND
   |                    Отбор.ParentVal = :ВыбОснование* ";
   Если ПустоеЗначение(НачДата)=0 Тогда
       ТекстЗапроса=ТекстЗапроса+"
   |                    AND  Отбор.Child_Date_Time_IDDoc >:НачДата ";
   КонецЕсли;
   Если ПустоеЗначение(КонДата)=0 Тогда
       ТекстЗапроса=ТекстЗапроса+"
   |                    AND  Отбор.Child_Date_Time_IDDoc < :КонДата~";
   КонецЕсли;
ТекстЗапроса=ТекстЗапроса+"
   |where  Жур.ismark=0";
   Если ПустоеЗначение(флПроведенные)=0 Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |    and Жур.closed&1=:Проведенные";
   КонецЕсли;
   Если ПустоеЗначение(ВидПодчДокумента)=0 Тогда
   ТекстЗапроса=ТекстЗапроса+"
   |    and Жур.IDDocDef=$ВидДокумента."+ВидПодчДокумента;
   КонецЕсли;
   ТекстЗапроса=ТекстЗапроса+"    
   |order by Жур.iddoc
   |";
   рс=СоздатьОбъект("ODBCRecordset");
   Если ПустоеЗначение(НачДата)=0 Тогда
       рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
   КонецЕсли;
   Если ПустоеЗначение(КонДата)=0 Тогда
       рс.УстановитьТекстовыйПараметр("КонДата",КонДата);
   КонецЕсли;
   рс.УстановитьТекстовыйПараметр("ВыбОснование",ДокОснование);
   Если ПустоеЗначение(флПроведенные)=0 Тогда
       рс.УстановитьТекстовыйПараметр("Проведенные",флПроведенные);
   КонецЕсли;
   результат=рс.ВыполнитьИнструкцию(текстЗапроса);
   Возврат результат;
КонецФункции // глВыбратьПодчиненные

(3) спб
---
(1)(2)(4) там несколько уровней вложенности + защита от зацикливания

(6) ну-ка расскажи про зацикливание

(7) 2 документа ссылаются др на др

(7) в типовой ТиС посмотри.

(5) изварщенец :)

+9 обработка - ДеревоДокументов

ну или через другой подчиненный документ

(8) ну, элементарно проверяется по наличию в текущем списке

просто лениво писать и тестить, раз уже готовое есть

http://narod.ru/disk/38035195001/DrevoDokoff.ert.html

Из типовой ТиС
http://narod.ru/disk/38037755001/ДеревоДокументовТиС.ert.html

курите все бамбук любители типовых - ДеревоДокументов из Тис или Бух - кривое; строится только по реквизитам шапки и не защищает от зацикливания при наличии циклических ссылок

(17) У меня ни разу не зациклилось. Просвяти.

(10) почему извращенец? Удобно, если нужно найти, скажем, непроведенные документы определенного вида, созданные после даты....
(18) Было, но надо извращаться...

(18) зациклится, если применить (8)

(18) уже просветили...