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