DECLARE
-- To store the tree
mytree ITEM;
-- To store the value of the node selected
-- value_of_mynode VARCHAR2(100);
-- To store the label of the node selected
label_of_mynode VARCHAR2(100);
BEGIN


-- Display message only when selecting the Tree
If (:System.trigger_node_selected = 'TRUE') then
-- Find out the tree
mytree := Find_Item('tree_block.tree8');
-- Get the value of the node clicked on.
-- value_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_VALUE);
label_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_LABEL);
:main.txtsection := label_of_mynode;

first_record;
GO_ITEM('subject');
--IF label_of_mynode = 'LM11KA1' THEN
	SELECT Subj_Code, Day
	INTO :main.subject, :main.day1
	FROM SubjSec
	WHERE Section = label_of_mynode
	ORDER BY Subj_Code ASC;

END IF;
EXCEPTION
	WHEN TOO_MANY_ROWS THEN
	Message('Error');
		WHEN NO_DATA_FOUND THEN
	Message('Error');
END;

DECLARE
-- To store the tree
mytree ITEM;
-- To store the value of the node selected
-- value_of_mynode VARCHAR2(100);
-- To store the label of the node selected
label_of_mynode VARCHAR2(100);
BEGIN


-- Display message only when selecting the Tree
If (:System.trigger_node_selected = 'TRUE') then
-- Find out the tree
mytree := Find_Item('tree_block.tree8');
-- Get the value of the node clicked on.
-- value_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_VALUE);
label_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_LABEL);
:main.txtsection := label_of_mynode;

	
	SET_BLOCK_PROPERTY('MAIN',ONETIME_WHERE,'subj_code='||:MAIN.subject);

--IF label_of_mynode = 'LM11KA1' THEN
	SELECT Subj_Code, Day
	INTO :main.subject, :main.day1
	FROM SubjSec
	WHERE Section = label_of_mynode
	ORDER BY Subj_Code ASC;

END IF;
EXCEPTION
	WHEN TOO_MANY_ROWS THEN
	Message('Error');
		WHEN NO_DATA_FOUND THEN
	Message('Error');
END;

     DECLARE
     	mytree ITEM;
     	label_of_mynode VARCHAR2(100);

	 /* Explicit declaration of a cursor */

  				
    CURSOR subjtyp_cur IS 
    SELECT subj_code, day 
    FROM subjsec 
    WHERE section = label_of_mynode;
  					
		
     BEGIN
     	
     
     	If (:System.trigger_node_selected = 'TRUE') then
-- Find out the tree
mytree := Find_Item('tree_block.tree8');
-- Get the value of the node clicked on.
-- value_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_VALUE);
label_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_LABEL);
:main.txtsection := label_of_mynode;
     	
     	end if;
     	
     	
        /* Check to see if cursor is already open. If not, open it. */
        IF NOT subjtyp_cur%ISOPEN
       THEN
          OPEN subjtyp_cur;
      END IF;

      /* Fetch row from cursor directly into an Oracle Forms item */
      
      FETCH subjtyp_cur INTO :main.subject, :main.day1;


       /* Close the cursor */
       CLOSE subjtyp_cur;
   END;

DECLARE
	mytree ITEM;
  label_of_mynode VARCHAR2(100);
  subject varchar2(100);
  day varchar2(100);
  
   CURSOR subj_cur IS
      SELECT subj_code, day
        FROM subjsec WHERE section = label_of_mynode;
				subj_rec subj_cur%ROWTYPE;

BEGIN
	     	IF (:System.trigger_node_selected = 'TRUE') then
					-- Find out the tree
					mytree := Find_Item('tree_block.tree8');
					-- Get the value of the node clicked on.
					-- value_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_VALUE);
					label_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_LABEL);
  				:main.txtsection := label_of_mynode;     	
     	END IF;
	

FOR subj_rec IN subj_cur
LOOP

	:main.subject := subj_rec.subj_code;
  :main.day1 := subj_rec.day;
  NEXT_RECORD;
 

END LOOP;

END;

EXCEPTION
	WHEN NO_DATA_FOUND THEN
	Message('Error');
END;

DECLARE
	mytree ITEM;
  label_of_mynode VARCHAR2(100);
  subject varchar2(100);
  day varchar2(100);
  
   CURSOR subj_cur IS
      SELECT subj_code, day
        FROM subjsec WHERE section = label_of_mynode;
		--		subj_rec subj_cur%ROWTYPE;

BEGIN
	     	IF (:System.trigger_node_selected = 'TRUE') then
					-- Find out the tree
					mytree := Find_Item('tree_block.tree8');
					-- Get the value of the node clicked on.
					-- value_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_VALUE);
					label_of_mynode := Ftree.Get_Tree_Node_Property(mytree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_LABEL);
  				:main.txtsection := label_of_mynode;     	
     	END IF;
	

FOR subj_rec IN subj_cur
LOOP
--	FETCH subj_cur INTO :main.subject, :main.day1;
	:main.subject := subj_rec.subj_code;
  :main.day1 := subj_rec.day;
	NEXT_RECORD;
  --SET_BLOCK_PROPERTY('MAIN', ONETIME_WHERE, 'subj_code = ' || :MAIN.subject);
END LOOP;

CLEAR_RECORD;


:SYSTEM.MESSAGE_LEVEL := '5';
UP;
IF NOT FORM_SUCCESS THEN
	Message('');
END IF;
:SYSTEM.SUPPRESS_WORKING := 'TRUE';
END;