DECLARE
         htree ITEM;
         top_node FTREE.NODE ;
         new_node FTREE.NODE ;
         child_node FTREE.NODE ;
         child_node1 FTREE.NODE ;
         item_value VARCHAR2(30);
         dummy VARCHAR2(30);
                cursor prime_cur is SELECT RE,NAME FROM MANUE WHERE LENGTH (RE) = 2;
                 cursor child_cur(T varchar2) is SELECT RE ,NAME FROM MANUE WHERE LENGTH(RE)=4 AND SUBSTR(RE,1,2)=T;
                   cursor child_cur1(t1 varchar2) is SELECT RE,NAME FROM MANUE WHERE LENGTH(RE)=6 AND SUBSTR(RE,1,4)=t1;
     BEGIN
   
 
               htree := Find_Item('tmp.tree4');
            for dummy in prime_cur 
            loop 
                   	  new_node := Ftree.Add_Tree_Node
                   	  (htree,ftree.root_node,
                   	    Ftree.PARENT_OFFSET,
	                    Ftree.LAST_CHILD,
	                    Ftree.EXPANDED_NODE,
	                    dummy.name,
	                    'c:\ICONS\a',
	                    dummy.RE);

           for child in child_cur(dummy.RE) loop 
		                child_node := Ftree.Add_Tree_Node
		                (htree,new_node,
		                Ftree.PARENT_OFFSET,
		                Ftree.LAST_CHILD,
		                Ftree.EXPANDED_NODE,
		                child.name,
		                'f:\ICONS\GO',child.RE);
        		for child1 in child_cur1(child.RE) loop
   			
			              child_node1 := Ftree.Add_Tree_Node
			              (htree,CHILD_NODE,
			              Ftree.PARENT_OFFSET,
			              Ftree.LAST_CHILD,
			              Ftree.EXPANDED_NODE,
             			  child1.name,'f:\ICONS\GO',child1.RE);
                    
               	end loop;
                    	end loop;
            end loop;
            exception when others then 
            message(sqlerrm(sqlcode));

     END;

     if :SYSTEM.TRIGGER_NODE_SELECTED in('TRUE') then
            	DECLARE
              		a varchar2(100);
  	              b varchar2(100);
                	htree ITEM;
      	              node_value VARCHAR2(100);
                begin
	                htree := Find_Item('tmp.tree4');
	                node_value :=Ftree.Get_Tree_Node_Property
	                (htree, :SYSTEM.TRIGGER_NODE,
	                Ftree.NODE_VALUE);
	   if substr(node_value,1,2) in('01','02') then
        		select nvl(manue_NAME,'tt') into a from manue where RE=node_value;
	message(node_value);
	message(node_value);
	
		  message(a);
		  message(a);
		  if a='tt' then
			     CALL_FORM('c:\'||a||'.FMX', switch_menu => do_replace);
  		end if;
	        	elsif substr(node_value,1,2) in('03') then
			     select nvl(manue_name,'rr') into b from manue where RE=node_value;
			if b='rr' then
				Run_Product(REPORTS, 'c:\'||b||'.rep', ASYNCHRONOUS, RUNTIME, FILESYSTEM, 'A', NULL);
			end if;
			elsif substr(node_value,1,2) in('04') then
				exit_form;
			end if;
end;
elsif :SYSTEM.TRIGGER_NODE_SELECTED in('FALSE') then
	null;
	end if;