[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1643
  • Last Modified:

Oracle Form 5

I want to supress the default message 'Do you want to save changes?' in Oracle Form 5. how to do that?

Thanks
Abdul Qadir Khan
0
aqk139
Asked:
aqk139
1 Solution
 
M-AliCommented:
When are you getting this message?

For suppressing normal messages in forms, you can set
:SYSTEM.MESSAGE_LEVEL := value

But prompts and vital error messages cannot be suppressed using this.

If you want to clear a form without saving use, CLEAR_FORM(NO_VALIDATE);


Ali
0
 
noriegaaCommented:
You could also use exit_form(no_validate); or simply exit(no_validate);
0
 
schudasamaCommented:
Hi,

This is how i have done and it works. Create a save button. In the when button_pressed trigger
declare
 al_button number;
 al_id ALERT := find_alert('caution');
begin
 if :global.insertupdateflag = 1 then
   (globally defined variable)
 set_alert_property('caution',alert_message_text,'Do You want to save the changes (Y/N) ?');
 set_alert_button_propert(al_id,alert_button1,label,'Yes');
 set_alert_button_property(al_id,alert_button2,label,'No');
 al_button := show_alert(al_id);
 if al_button = alert_button1 then
   goto commitblock;
 else
   goto endblock;

<<commitblock>>
:global.errcode = 0 then
 commit;
if :global.errcode = 1 then
 goto endblock;
end if;

<<endblock>>
null;

end

here the commitblock is where you are saving the changes. if the errorcode (errcode) is 0 then it will commit otherwise it will go to the endblock and wll not commit the changes.

Hope this will help you.

0
 
schudasamaCommented:
Hi,

This is how i have done and it works. Create a save button. In the when button_pressed trigger
declare
 al_button number;
 al_id ALERT := find_alert('caution');
begin
 if :global.insertupdateflag = 1 then
   (globally defined variable)
 set_alert_property('caution',alert_message_text,'Do You want to save the changes (Y/N) ?');
 set_alert_button_propert(al_id,alert_button1,label,'Yes');
 set_alert_button_property(al_id,alert_button2,label,'No');
 al_button := show_alert(al_id);
 if al_button = alert_button1 then
   goto commitblock;
 else
   goto endblock;

<<commitblock>>
:global.errcode = 0 then
 commit;
if :global.errcode = 1 then
 goto endblock;
end if;

<<endblock>>
null;

end

here the commitblock is where you are saving the changes. if the errorcode (errcode) is 0 then it will commit otherwise it will go to the endblock and wll not commit the changes.

Hope this will help you.

0
 
racherCommented:
Are you wanting to save and exit or cancel and exit?

Route all exiting via one form procedure
If you want to cancel and exit use EXIT_FORM(NO_VALIDATE) as suggested.
If you want to save and exit use COMMIT;
You may want to hide the messages
40400 : transaction complete: x records applied and saved
40401 : no changes to save
You can do this by putting something in the form on-message trigger that examines the MESSAGE_CODE and then supresses the messages that you want to supress.

Graham
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now