PROCEDURE Init_tree_roles IS
HTREE ITEM;
V_IGNORE NUMBER;
BEGIN
HTREE := FIND_ITEM('BL_TREE.MENU');
V_IGNORE := POPULATE_GROUP('RG_TREE_ROLES');
FTREE.SET_TREE_PROPERTY(HTREE, FTREE.RECORD_GROUP,'RG_TREE_ROLES');
:Ctrl.Node_Selected := Ftree.Get_Tree_Node_Property('BL_TREE.MENU', 1, Ftree.NODE_VALUE) ;
END;
grato
Branco