* Исходные данные для тестирования
Create cursor test (sh C(4), inf c(4), recnext i)
Insert into test values ('1001','inf1',5)
Insert into test values ('1002','inf2',4)
Insert into test values ('1003','inf3',0)
Insert into test values ('1002','inf4',0)
Insert into test values ('1001','inf5',7)
Insert into test values ('1001','inf6',0)
Insert into test values ('1001','inf7',0)
Insert into test values ('1001','inf8',0)

* Получение выборки для ветки, начинающейся с записи с физическим номером 1
* Итоговый результат будет в курсоре curResult

Select * into cursor curResult readwrite from test where Recno() = 1 
do while _TALLY <> 0
    select curResult
    go bottom
    Insert into curResult select * from test where Recno() = curResult.recnext
enddo

PARAMETERS tnKEY
SELECT (THIS.ALIAS)
COUNT FOR Parentid = m.tnKEY
IF _TALLY=0&&&сам лист
   Create cursor (THIS.TEMP_CURS)  (ID i)
   INSERT INTO   (THIS.TEMP_CURS)  value(m.tnKEY)
ELSE&&&ветвь
   LOCAL ntRecno,tnID
   SELECT ID,.f. as IS_LIST FROM (THIS.ALIAS) WHERE parentid=m.tnKEY INTO CURSOR  (THIS.TEMP_CURS2) readwrite
   SELECT (THIS.TEMP_CURS2)
   SCAN 
      WAIT WINDOW 'Не висим. Что-то происходит с:-'+STR(ID) NOWAIT
      ntRecno=RECNO()&&&запоминаем позицию указателя
      tnID=ID
      INSERT  INTO (THIS.TEMP_CURS2) SELECT ID,.f. as IS_LIST FROM (THIS.ALIAS) WHERE parentid=m.tnID
      GO ntRecno
      IF _TALLY=0
         REPLACE IS_LIST WITH .T.
      ENDIF 
   ENDSCAN    
SELECT ID FROM (THIS.TEMP_CURS2) INTO CURSOR (THIS.TEMP_CURS) WHERE IS_LIST  
ENDIF 

* Сначала получаем выборку всех узлов по известному ID
Private pnLevel
pnLevel = 1

Select id, parentId, cast(m.pnLevel as int) as nLevel ;
from test ;
into cursor curRes readWrite ;
where id = m.tnKEY

do while _TALLY <> 0
    m.pnLevel = m.pnLevel + 1

    Insert into curRes (id, parentId, nLevel) ;
	select id, parentId, m.pnLevel ;
	from test ;
	where parentId in (select id from CurRes where nLevel = m.pnlevel - 1)
enddo

* Теперь из полученной "ветки" дерева отбираем только "листья"
* Или узлы, на которые нет ссылок ни у одного другого узла

select *
from curRes 
where not exists(select 'x' from curRes tab2 where tab2.ParentId = curRes.Id)