PROCEDURE Treeview1(oThis) LOCAL iCari iCari=ALLTRIM(OTHIS.PARENT.TNOPER.VALUE) IF !OTHIS.PARENT.SPINNER1.INIT(1) RETURN ENDIF oTHIS.Visible=.F. o = oTHIS.Nodes o.Clear oTHIS.Visible=.t. SELE GASYSCRIPT SELECT UMUM as keyid1,* ; FROM GASYSCRIPT ; WHERE ALLTRIM(NOPER)==iCARI ; ORDER BY KEYID1 ; INTO CURSOR SQL_Item SELECT SQL_Item GO TOP IF !EOF() IF JENIS$'AHMPBS' oNode=o.add(,1,ALLTRIM(NOPER)+'_',ALLTRIM(NOPER)+' '+ALLTRIM(NAPER),0) ELSE oNode=o.add(,1,ALLTRIM(NOPER)+'_',ALLTRIM(NAPER),0) ENDIF ELSE oNode=o.add(,1,ALLTRIM(NOPER)+'_',FULLPATH(OTHIS.PARENT.SPINNER1.TAG),0) ENDIF oNode.Sorted=.T. oNode.Expanded=.T. cParent=alltrim(iCari) SELECT * FROM GASYSCRIPT WHERE alltrim(umum)==iCari INTO CURSOR SQL_Root1 SELECT SQL_Root1 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=.T. endscan TUTUP('GASYSCRIPT','SQL_ROOT1') ENDPROC