Если для отчёта, тут неплохой пример:
Граф подчиненности документов

Не видел, как в приведенных выше ссылках сделано, но, чем черт не шутит - может, у меня по другому

	ИдНачДока13	= РадугаСервис.ЗначениеВДлиннуюСтрокуБД(ДокДерева);
	ИдНачДока9	= Прав(ИдНачДока13,9);
	ТабДоковSQL	= глИмяВременнойТаблицы(); //"#ТабДоков"; //

	ОщийРеквизитДокументОснование	= //SP158
	ОщийРеквизитСуммаДокумента		= "SP"+РадугаМД.ИДОбъекта(Метаданные.ОбщийРеквизитДокумента("СуммаДокумента"));

	ТекстЗапроса = "
	| Set NoCount On
	| Declare @ИдТемпДок13 Char(13), @ИдКореньДок13 Char(13), @ИдПустойДок Char(13)
	|
	| Set @ИдПустойДок = '   0     0   '
	| Set @ИдТемпДок13 = '"+ИдНачДока13+"'
	|
	| While @ИдТемпДок13 <> @ИдПустойДок Begin
	| 	Set @ИдКореньДок13 = @ИдТемпДок13
	| 	Set @ИдТемпДок13   =
	| 		(
	| 			Select Top 1 "+ОщийРеквизитДокументОснование+" ДокОснование From _1SJOURN (NoLock)
	| 			Where IDDOC = Right(@ИдКореньДок13,9)
	| 		)
	| End
	|
	| Select Cast(Right(@ИдПустойДок,9) As Char(9)) ИдРодителя9, @ИдПустойДок ИдРодителя13, Cast(Right(@ИдКореньДок13,9) As Char(9)) ИдПодчДок9, @ИдКореньДок13 ИдПодчДок13 Into "+ТабДоковSQL+"
	|
	| While 1 = 1 Begin
	|	  Insert Into "+ТабДоковSQL+" (ИдРодителя9, ИдРодителя13, ИдПодчДок9, ИдПодчДок13)
	| 	Select
	| 		ИдРодителя9, ИдРодителя13, ИдПодчДок9, ИдПодчДок13
	| 	From
	| 	(
	| 	 	Select Right(ИдПодчДок13,9) ИдРодителя9, ИдПодчДок13 ИдРодителя13, Right(CHILD_DATE_TIME_IDDOC, 9) ИдПодчДок9, Журнал.SP810 ИдПодчДок13
	|		  From _1SCRDOC (NoLock)
	| 	 	Inner Join "+ТабДоковSQL+" (NoLock) On MDID = 0 And ParentVal = 'O1'+ИдПодчДок13
	| 		Left Join _1SJOURN Журнал (NoLock) On Журнал.IDDOC = CHILDID
	| 	 	Where
	| 		ИдПодчДок13 Not In (Select ИдРодителя13 From "+ТабДоковSQL+" (NoLock))
	| 	) Выборка
	| 	Where
	| 	ИдПодчДок9 Not In (Select ИдРодителя9 From "+ТабДоковSQL+" (NoLock))
	| 	And ИдПодчДок9 Not In (Select ИдПодчДок9 From "+ТабДоковSQL+" (NoLock))
	| 	And dbo.ВозможностьПодчинения(ИдРодителя9, ИдПодчДок9) = 1
	|
	| 	If @@RowCount = 0
	| 		Break
	| End
	|
	|
	| Select ИдРодителя9, ИдПодчДок9, IdDocDef ВидПодчДок
	| , dbo.ПредставлениеДокумента(ИдПодчДок9,1,1) ПредставлениеДока
	| , (Case When IsMark = 1 Then 3 Else Case When Closed&1 = 1 Then 2 Else 1 End End) Признак
	| , "+ОщийРеквизитСуммаДокумента+" СуммаДокумента
	| From "+ТабДоковSQL+" (NoLock)
	| Left Join _1SJOURN (NoLock) On ИдПодчДок9 = IDDOC
	| Order By Date_Time_IDDOC
	|
	| Drop Table "+ТабДоковSQL+"
	|
	| ";
 

Спасибо всем за инфу
Все описанные методы используют следующее: поиск документа верхнего уровня, сефинг вниз по подчиненным документам, при этом число запросов в общем случае 2*ЧислоУровнейИерархии. Я делал также, алгоритм адаптирован к построению дерева, из предложенного взял поиск Документа основания через1С++. А если дерево подчиненности не нужно, нужен только список связанных документов, можно ли уменьшить общее число запросов (применяю это в модуле проведения, хочется ускорить)?

Если хочется ускорить, то может хранить данные в регистре а не выуживать их бегая по десяткам доков? Как считаешь?

mov68 писал(а) 30. Января 2008 :: 07:29:

Можно сложить все инструкции в один запрос. Скажем, так:

	рс = СоздатьОбъект("ODBCRecordSet");
	рс.УложитьСписокОбъектов(спВыбДоки, "#docs");
	рс.ВыполнитьИнструкцию("
		|set nocount on
		|while 1=1 begin
		|	insert #docs (val)
		|	select substring(parentval, 7, 9)
		|	from _1scrdoc (nolock)
		|		inner join #docs on childid = val
		|	where mdid = 0
		|		and substring(parentval, 7, 9) not in (select val from #docs)
		|	if @@rowcount = 0 break
		|end
		|while 1=1 begin
		|	insert #docs (val)
		|	select right(child_date_time_iddoc, 9)
		|	from _1scrdoc (nolock)
		|		inner join #docs on parentval like 'O1____' + val
		|	where mdid = 0
		|		and right(child_date_time_iddoc, 9) not in (select val from #docs)
		|	if @@rowcount = 0 break
		|end
		|set nocount off
		|");
	спДоки = рс.ВыполнитьИнструкцию("
		|select val [Док $Документ]
		|	, iddocdef Док_вид
		|from #docs
		|	inner join _1sjourn (nolock) on val = iddoc
		|", СоздатьОбъект("СписокЗначений")); 

Или так:

	рс.ВыполнитьИнструкцию("
		|set nocount on
		|declare @doccount integer
		|set @doccount = 1
		|while @doccount > 0 begin
		|	insert #docs (val)
		|	select right(child_date_time_iddoc, 9)
		|	from _1scrdoc (nolock)
		|		inner join #docs on parentval like 'O1____' + val
		|	where mdid = 0
		|		and right(child_date_time_iddoc, 9) not in (select val from #docs)
		|	set @doccount = @@rowcount
		|	insert #docs (val)
		|	select substring(parentval, 7, 9)
		|	from _1scrdoc (nolock)
		|		inner join #docs on childid = val
		|	where mdid = 0
		|		and substring(parentval, 7, 9) not in (select val from #docs)
		|	set @doccount = @doccount + @@rowcount
		|end
		|set nocount off
		|"); 

Во втором варианте, в общем случае, количество найденных документов будет больше, чем в первом.

kiruha писал(а) 30. Января 2008 :: 08:31:


Поделитесь реализацией, плиз...

Создать таблицу структуры:
- первый док сделки.
- текущий док сделки.

При записи документа писать в нее. А потом элементарным селектом доставать все документы.
Быстро и дешево.