WHEN-TREE-NODE-SELECTED  (TRIGGER)

declare
	htree item;
	node_value varchar2(100);
	node_value1 varchar2(100);
	node_value2 varchar2(100);
	current_node FTREE.NODE;
	parent_node FTREE.NODE;
	node_count number;
	num_selected number;
	fm_nm varchar2(50); 
begin
	htree:=Find_Item('std_blk.txt_tree');
	IF :system.trigger_node_selected = 'TRUE' THEN
	num_selected:=Ftree.Get_Tree_Property(htree,Ftree.SELECTION_COUNT);
	current_node:=Ftree.Get_Tree_Selection(htree,num_selected);
	node_value:=Ftree.Get_Tree_Node_Property(htree,Current_node,Ftree.Node_Label);	
		
	--parent_node := Ftree.Get_Tree_Node_Parent(htree, :SYSTEM.TRIGGER_NODE);
		
	select frg_name into fm_nm from tree2 where frg_detail = INITCAP(LTRIM(RTRIM(node_value)));
	call_form(:global.path_name||fm_nm||'.fmx',no_hide);
		
/*	elsif :SYSTEM.TRIGGER_NODE_SELECTED in('FALSE') then
  null;
	*/
END IF;
end;



WHEN-NEW-FORM-INSTANCE

DECLARE
	
   htree         ITEM;
   top_node      FTREE.NODE;
   new_node      FTREE.NODE;
   item_value    VARCHAR2(30);
   RG RECORDGROUP;
   RGDATA varchar2(40):= 'special';
   po number;
BEGIN
	:global.path_name := 'O:\Executables\';
   htree := Find_Item('std_blk.txt_tree');	       
   
        if id_null(RG) then
        	RG:=Create_Group_From_Query(RGDATA,'select 1, level, frg_detail, NULL, to_char(USER_ID) ' ||
             'from tree2 '                                     ||
             'connect by prior frg_child = frg_parent '                 ||
             'start with frg_parent is null');
        end if;
        po:=populate_group(RG);
        Ftree.Set_Tree_Property(htree,Ftree.RECORD_GROUP,RG);
END;
--TREE;
set_window_property(forms_mdi_window,window_state,maximize);
set_window_property('window1',title,'TREE');
	:GLOBAL.USER_ID:='P10015';
 PR_BACK_COLOR ;