PROCEDURE AddRoot(o) 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 oNode.Sorted=.T. oNode.Expanded=.F. ENDPROC