Retieve the related childern to the selected Tree Node

Question

Hello all,
From here i got the folowing code,it helps me to retrieve the whole record which is related to the selected node in
WHEN-TREE-NODE-SELECTED Trigger :
declare  
     rank   number := 0;
begin 
     rank :=
     ftree.get_tree_node_property('TREE_BLOCK_TEST.TREE13', 
         :system.trigger_node, ftree.node_depth);
          if rank >= 1  then
                   GO_BLOCK ('INSP_EQUIPMENT_TYPE');
                  set_block_property ('INSP_EQUIPMENT_TYPE', default_where, 
                        'EQUIPMENT_TYPE_D='||ftree.get_tree_node_property('TREE_BLOCK_TEST.TREE13', 
                           :system.trigger_node, ftree.node_value)); 
                                    Execute_Query(No_ValiDATE);     
          end if;
          end; What i want to do is to retieve not only the current record for the selected node but aslo the related childern in the tree to this node.
Could anyboady help me pls. ?!
Regards,
Abdetu..

Answer 1

Hi Tony,
what i am trying to do is to display all childern related to the parent 's node selected from the tree that's works fine..
But i want to display the related datablock selected to the child itself the following can't do that can u help me doing it pls...!
DECLARE
     rank number := 0;
     HTREE$ ITEM := Find_Item('TREE_BLOCK_TEST.TREE13');
BEGIN
IF :SYSTEM.TRIGGER_NODE_SELECTED = 'TRUE' THEN
     rank :=     ftree.get_tree_node_property
     ('TREE_BLOCK_TEST.TREE13',:system.trigger_node, ftree.node_depth);
     if rank = 1 then
     set_block_property ('INSP_EQUIPMENT_TYPE', default_where
          , 'parent_id='||ftree.get_tree_node_property('TREE_BLOCK_TEST.TREE13',
          :system.trigger_node, ftree.node_value));
                    GO_BLOCK ('INSP_EQUIPMENT_TYPE');
                    Execute_Query(No_ValiDATE);     
     elsif rank > 1 then
          set_block_property ('INSP_EQUIPMENT_TYPE', default_where
          ,'EQUIPMENT_TYPE_D='||ftree.get_tree_node_property('TREE_BLOCK_TEST.TREE13',
          :system.trigger_node, ftree.node_value));
     else
     :INSP_EQUIPMENT_TYPE.EQUIPMENT_TYPE :=
FTREE.GET_TREE_NODE_PROPERTY(HTREE$, :SYSTEM.TRIGGER_NODE, FTREE.NODE_LABEL);
     END IF;
     END IF;
     END;