--
-- WHEN-BUTTON-PRESSED trigger of :BLOCK1.Btn_exeqry_block2 (push button)
--
Declare
	-- variable to store the last query of block1
	v_where_block1  Varchar2(2000);
	-- variable to store the default where of block2
	default_block2 Varchar2(2000);
Begin
	-- Save the default_where
	default_block2 := get_block_property('BLOCK2', Default_Where);
	-- Check Whether we are in Normal mode (since the button is in block1, we can use :system.record_status
	If :SYSTEM.RECORD_STATUS = 'QUERY' Then
		-- Normal mode in block EMP? We can grep the 'WHERE' part of the last query executed in this block
		-- Beware that this will only work for simple queries, and not with queries 
		-- that include a second 'WHERE' keyword
	  v_where_block1 := Substr( get_block_property('BLOCK1',Last_Query)
	                          , instr(get_block_property('BLOCK1',Last_Query),'WHERE')+6
	                          , length(get_block_property('BLOCK1',Last_Query)));
	  If default_block2 is null Then
	  	set_block_property('BLOCK2', Default_Where, v_where_block1);
	  Else
	  	set_block_property('BLOCK2', Default_Where, default_block2||' AND '||v_where_block1);
	  End if;
	  Go_block('Block2');
	  Execute_Query;
	Else
		Message('Can''t help you...');pause;
	End If;
	-- Reset the Where Clause of block2
	set_block_property('BLOCK2', Default_Where, default_block2;
End;