limpar tree

[aline_plr]

Olá pessoal...

Gostaria de saber como faz para limpar todos elementos de um tree de uma só vez ?

[dr_gori]

Acho que você pode usar DELETE_TREE_NODE.
(tem um exemplo no help do forms)

Ai basta colocar o nodo principal.

Selecionar tudo

/*  

** Built-in:  DELETE_TREE_NODE 
*/

-- This code finds a node with the label "Zetie"
-- and deletes it and all of its children.

DECLARE
   htree         ITEM;
   delete_node   FTREE.NODE;
BEGIN
   -- Find the tree itself.
   htree := Find_Item('tree_block.htree3');

   -- Find the node with a label of "Zetie".
   -- Start searching from the root of the tree.
   delete_node := Ftree.Find_Tree_Node(htree,
                                       'Zetie',

                                       Ftree.FIND_NEXT,
                                       Ftree.NODE_LABEL,
                                       Ftree.ROOT_NODE,
                                       Ftree.ROOT_NODE);

   -- Delete the node and all of its children.
   IF NOT Ftree.ID_NULL(delete_node) then
      Ftree.Delete_Tree_Node(htree, delete_node);
   END IF;
END;