PROCEDURE ItemAdd(o,cParent,nLevel) SELECT * FROM SQL_Item ; WHERE ALLTRIM(KEYID1)==ALLTRIM(cPARENT) ; INTO CURSOR ('SQL_'+TRANSFORM(nLevel)) SELECT ('SQL_'+TRANSFORM(nLevel)) SCAN IF JENIS$'AHMPBS' oNode=o.add(ALLTRIM(cParent)+'_',4,ALLTRIM(NOPER)+'_',ALLTRIM(NOPER)+' '+ALLTRIM(NAPER),0) ELSE oNode=o.add(ALLTRIM(cParent)+'_',4,ALLTRIM(NOPER)+'_',ALLTRIM(NAPER),0) ENDIF oNode.Sorted=.T. oNode.Expanded=.F. ItemAdd(o,ALLTRIM(Noper),nLevel+1) ENDSCAN TUTUP('SQL_'+TRANSFORM(nLevel)) ENDPROC