DECLARE
v_def_where VARCHAR2(500);
v_block VARCHAR2(30);
BEGIN
Tree_Control.Node_Activated;
IF ( Tree_Control.n_curr_parent_node = 0 ) THEN -- Dept Selected
v_block := 'REGIST_DET';
v_def_where := Get_Block_Property(v_block,DEFAULT_WHERE);
Set_Block_Property('REGIST_DET',DEFAULT_WHERE, 'CPID = '||TO_NUMBER(Tree_Control.v_curr_value));
Go_Block('REGIST_DET');
ELSE -- Employee selected.
v_block := 'REGIST_DET';
v_def_where := Get_Block_Property(v_block,DEFAULT_WHERE);
Set_Block_Property('REGIST_DET',DEFAULT_WHERE, 'CPID = '||TO_NUMBER(Tree_Control.v_curr_value));
Go_Block('REGIST_DET');
END IF;
--Execute_Query;
-- Reset the DEF_WHERE on the block.
Set_Block_Property(v_block,DEFAULT_WHERE, v_def_where);
Go_Item('REGIST_DET.MEDICIN');
END;
i am using this code in When tree Node Activiated. It works fine. But when i place this code in when mouse double click and expand the tree it gives me error:
FRM-47307: Cannot get the properties of the tree root node.
please advised.
[Updated on: Sun, 29 June 2014 06:28]
Report message to a moderator