Histórico da Página

// definition areado treeview
{utp/ut-treeview4gltreeview.i}

// procedure areacarregando o componente treeview
PROCEDURE AfterDisplayFieldsafterDisplayFields :
    IF  NOT VALID-HANDLE(h-treeview4gltreeview) THEN DO:
        // instancia o treeview
         RUN utp/ut-treeview4gltreeview.w PERSISTENT SET h-treeview4gltreeview.
   
       // inicializaIndica oa treeviewFrame "Pai" do componente
       RUN initializeObjectsetParentFrame IN h-4gltreeview (INPUT FRAME fPage0:HANDLE).

      // inicializa o treeview
      RUN initializeObject IN h-4gltreeview.
   
       // faz a subscricao do evento de click dentro do treeview
          SUBSCRIBESUBSCRIBE TO "tvNodeEvent" IN h-treeview4gltreeview.
   
       // repositionareposiciona o treeview 
       RUN repositionObject IN h-treeview4gltreeview ( 26.6535 , 12.3000 ) NO-ERROR.

       // ajusta o tamanho do componentetreeview 
       RUN resizeObject IN h-treeview4gltreeview ( 1410.3570 , 28.00 ) NO-ERROR.
    END.

     // carrega os itens do treeview
    RUN pi-loadNodes.
    
    // faz o refresh do treeview
    RUN pi-atualizaTreeview IN THIS-PROCEDURE.   

    // coloca o cursor no treeview
    RUN applyEntry IN h-treeview4gltreeview (INPUT ""). 
END PROCEDURE.

// esta procedure sera executada toda vez que ocorrer um evento de click em um determinado nó
PROCEDURE pi-ClickTreeView :
    MESSAGE c-codigo-node VIEW_AS ALERT-BOX.
END PROCEDURE.

// retira o treeview da memoria
PROCEDURE beforeDestroyInterface :
   IF VALID-HANDLE(h-treeview4gltreeview) THEN DO:
      RUN destroyObject IN h-treeview4gltreeview.
      DELETE PROCEDURE h-treeview4gltreeview NO-ERROR.
   END.     

   RETURN "OK":U.
END PROCEDURE.