Histórico da Página

DEFINE VARIABLE chTreeView  AS COM-HANDLE       NO-UNDO.

DEFINE VARIABLE CtrlFrame   AS WIDGET-HANDLE    

define variable chTreeView    as com-handle                     no-undo.

NO-UNDO.

DEFINE VARIABLE chCtrlFrame AS COMPONENT-HANDLE NO-UNDO.

// Definições Treeview

{utp/ut-4gltreeview.i}

Carrega o OCX através da procedure "

control_load

".

Criar um procedure como exemplo da "carregaTreeView"
apresentada no tópico de exemplo

.

CREATE CONTROL-FRAME CtrlFrame ASSIGN

       FRAME           = FRAME fpage0:HANDLE

       ROW             = 2.46

       COLUMN          = 1

       HEIGHT          = 13.5

       WIDTH           = 31

       HIDDEN          = no

       SENSITIVE       = yes.

RUN repositionObject IN h-4gltreeview (2.46, 1.00).    

RUN resizeObject IN h-4gltreeview ( 13.5, 31.00).

define variable pop-menu       as widget-handle

 no-undo.

create menu pop-menu
    assign popup-only = true
    title = "POPUP":u.

       CtrlFrame:popup-menu     = pop-menu

PROCEDURE pi-CtrlPopupTreeview :

....

END PROCEDURE.

APPLY "Entry":U TO CtrlFrame.

ChTreeView:Nodes:Clear().

RUN emptyTree IN h-4gltreeview.

do i-cont = 1 to chTreeView:Nodes:Count:

  assign chTreeView:Nodes(i-cont):Expanded = l-expande.

end.

RUN expandBranch IN h-4gltreeview (c-codigo-node).

RUN pi-atualizaTreeview.

assign chTreeView:SelectedItem = chTreeView:Nodes(1).

if not error-status:error then
  

 run CtrlFrame.TreeView.NodeClick 
           (input chTreeView:Nodes:Item("i" + string(1))).

IF chTreeView:Nodes:COUNT > 0 THEN DO:

 RUN piExcel IN THIS-PROCEDURE.

END.

IF DYNAMIC-FUNCTION('hasNodes' IN h-4gltreeview) THEN DO:

 RUN piExcel IN THIS-PROCEDURE.

END.

APPLY "ENTRY":U TO btExcel IN FRAME fPage0.

if chTreeView:SelectedItem:Expanded = false then cExpande

c-tag-tree = chTreeView:SelectedItem:key().

assign rRow

 = to-rowid(c-codigo-node).

PROCEDURE CtrlFrame.TreeView.NodeClick :

...

END PROCEDURE.

PROCEDURE pi-ClickTreeView :

....

END PROCEDURE.

chTreeView:Nodes:Add (,, "i" + string(i-cont), 
string(ttDados.cod-oficial) 
+ " - " + ttDados.desc-dimensao, i-img) .

RUN pi-create-node (cNodeId, cNodeIdPai,
 string(ttDados.cod-oficial) + " - " 
+ ttDados.desc-dimensao, cImage, "") NO-ERROR.

assign chTreeView:Nodes:Item ("i" + string(i-cont)):Tag = 
string(rowid(ttDados)) 
+ ",1," + string(ttDados.r-rowid).

assign rRowid

 = to-rowid(entry(1,chTreeView:SelectedItem:Tag)).

DYNAMIC-FUNCTION('setNodeTag' IN h-4gltreeview, 
cNodeId, ttDados.p-image).

assign rRow = to-rowid(entry(1,
DYNAMIC-FUNCTION('getNodeTag' IN h-4gltreeview, c-codigo-node))).

Criar um relacionamento entre a

TreeView e a TempTable de Negócio

assign rRow

 = to-rowid(entry(1,chTreeView:SelectedItem:Tag))

assign rRow       = to-rowid(c-codigo-node).