Do you want to save changes you have made

Question

hi guys,,
I need ur help
I ve a form which retrieve employee data,,
there are 8 blocks in the form,,
i created a when mouse click trigger to show a LOV
declare
a boolean;
begin
a:=show_lov('TEST');
pc_execute; -- calling a procedure
END;
but it gives Do you want to save changes you have made?
and I tried to suppress this by setting system message level = 25
but no benifit,,
And if I write :
declare
a boolean;
begin
a:=show_lov('TEST');
GO_BLOCK('ORG_EMP_INCREMENT_HISTORY');
pc_execute; -- calling a procedure
END;
the message will disappear but the query will not execute all blocks
ANY suggestions
Best Regards

Answer 1

Al-Salmau Alikum We Rahamatu Allah We Barakatu...
if u wanna getting ur total records of emp block then do this as an example ...
FUNCTION query_count (p_block_name VARCHAR2) RETURN NUMBER
IS
  cnt NUMBER;
BEGIN
  GO_BLOCK(p_block_name);
  COUNT_QUERY;
  cnt := GET_BLOCK_PROPERTY(p_block_name, QUERY_HITS);
  IF FORM_SUCCESS THEN
    RETURN (cnt);
  ELSE
    MESSAGE('Error in getting Query Hits for block '||:SYSTEM.CURRENT_BLOCK);
    RAISE FORM_TRIGGER_FAILURE;
  END IF;
END;and notice the result in the status bar...
But if u wanna have data it's another issue...
so u have to do for example...
IF NOT Id_Null(blk_id) THEN 
    Set_Block_Property('block_name',DEFAULT_WHERE,'emp_id = ' || emp_id);  
   Execute_query;  
   ELSE       Message('You have a problem!');     
RAISE Form_Trigger_Failure;  
END IF; Hope this helps...
Regards,
Abdetu..