PROCEDURE Treeview(oThis) LOCAL iCari iCari=UPPER(ALLTRIM(oThis.Parent.TCARI.Value)) IF EMPTY(ICARI) OTHIS.PARENT.TNOPER.VALUE='' TREEVIEW1(oTHIS) RETURN ENDIF IF !OTHIS.PARENT.SPINNER1.INIT(1) RETURN ENDIF oTHIS.Visible=.F. o = oTHIS.Nodes *oThis.BackColor=RGB(192,192,192) o.Clear oTHIS.Visible=.t. SELE GASYSCRIPT IF EMPTY(iCari) SELECT umum as keyid1,* ; FROM GASYSCRIPT ; ORDER BY KEYID1 ; INTO CURSOR SQL_Item READWRITE ELSE SELECT SPACE(10) as keyid1,* ; FROM GASYSCRIPT ; WHERE OCCURS(iCARI,UPPER(NOPER))>0 ; OR OCCURS(iCARI,UPPER(UMUM))>0 ; OR OCCURS(iCARI,UPPER(NAPER))>0 ; OR OCCURS(iCARI,UPPER(KODE))>0 ; OR OCCURS(iCARI,UPPER(NAMAPRG))>0 ; ORDER BY KEYID1 ; INTO CURSOR SQL_Item READWRITE ENDIF TUTUP('GASYSCRIPT') SELECT SQL_Item SELECT * FROM SQL_Item WHERE EMPTY(KEYID1) INTO CURSOR SQL_Root SELECT SQL_Root SCAN AddRoot(o) ItemAdd(o,ALLTRIM(NOPER),1) ENDSCAN TUTUP('SQL_ROOT','SQL_ITEM') ENDPROC

PROCEDURE Treeview0(oThis) LOCAL iCari iCari=ALLTRIM(OTHIS.PARENT.UMUM1.VALUE) IF !OTHIS.PARENT.SPINNER1.INIT(1) RETURN ENDIF oTHIS.Visible=.F. o = oTHIS.Nodes *oThis.BackColor=RGB(192,192,192) o.Clear oTHIS.Visible=.t. SELE GASYSCRIPT IF EMPTY(iCari) SELECT umum as keyid1,* ; FROM GASYSCRIPT ; ORDER BY KEYID1 ; INTO CURSOR SQL_Item READWRITE ELSE SELECT UMUM as keyid1,* ; FROM GASYSCRIPT ; WHERE ALLTRIM(NOPER)=iCARI ; ORDER BY KEYID1 ; INTO CURSOR SQL_Item READWRITE ENDIF TUTUP('GASYSCRIPT') SELECT SQL_Item SELECT * FROM SQL_Item WHERE EMPTY(KEYID1) INTO CURSOR SQL_Root SELECT SQL_Root SCAN AddRoot(o) ItemAdd(o,ALLTRIM(NOPER),1) ENDSCAN TUTUP('SQL_ROOT','SQL_ITEM') ENDPROC

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