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

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

	ИдНачДока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:


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

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

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

mov68 писал(а) 31. Января 2008 :: 11:38:


Именно так.
Найти первый документ сделки - довольно быстрая операция. Причем, этот первый документ можно искать тоже в этой таблице, используя IDDOC документа-основания. Если документа основания нет - то и искать ничего не надо.
Единственно, надо продумать - что хотим увидеть, когда документ находится в табличной части другого документа.

Не завидую тому кто придет сопровождать творение автора

Еще один вопрос, при таком подходе, если документа основания нет, то желательно в таблицу прописать строку текущий документ - текущий документ ? Ведь мы заранее не знаем, будет ли вводиться на основании и корень не будет присутствовать в таблице. Или эту проверку лучше оставить программной?

berezdetsky писал(а) 30. Января 2008 :: 10:43:


И в первом и во втором вариантах возвращаемое значение вообще не список. В чем может быть засада?

Извиняюсь, такое выдавалось, если пытался получить список в тот же список, который передавал. Если точно брать как у тебя по тексту, то в обоих вариантах возвращает пустой список

mov68 писал(а) 31. Января 2008 :: 14:00:

хм.. Вот обработка, на которой я проверял этот код. 1С++ v2.0.3.3.

mov68 писал(а) 31. Января 2008 :: 14:39:

На анализе какой строки кода основан этот вывод?

Пока замеров не сделал, но мне кажется, при всем удобстве однократного запроса, по времени тормознее, если делать несколькими по каждому уровню подчиненности от корня.

Сделал
Вариант нескольких запросов 13.78
Первый вариант одного запроса 32.41
Второй вариант одного запроса 32.31

База SQL, SQL на том же компе, что и база, монопольно.

При реальной загрузке попробую (нужно несколько дней, вносить изменения в основную базу получается раз в сутки )