transfer data from called form to calling form [message #561624] |
Tue, 24 July 2012 06:37 |
|
oraclehi
Messages: 41 Registered: July 2012 Location: India
|
Member |
|
|
hi, i have two forms 1st lit_ackn on which there is ackn button through this i go to the 2nd form lit_ackn_details. in 2nd form i have two radio button accept and reject. if i don't want to go through any radio button and want to simply exit through exit masterbutton but it is not working on first click, it works on 2nd click only. and how can i send value from 2nd form to 1st form after exit.
coding of exit_code
PROCEDURE exit_code IS
BEGIN
declare
form_name varchar2(60);
answer number;
answer1 number;
exit_function exception;
begin
if :system.form_status='CHANGED' then
set_alert_property('confirm_alert',title,'Save Changes');
set_alert_property('confirm_alert',alert_message_text,'Would you like to make Changes Permanent ?');
answer := show_alert('confirm_alert');
if answer=ALERT_BUTTON1 then
do_key('commit_form');
IF NOT Form_Success THEN
RAISE Form_Trigger_Failure;
END IF;
if :system.form_status <> 'QUERY' then
set_alert_property('confirm_alert',title,'Quit Without Saving');
set_alert_property('confirm_alert',alert_message_text,'Errors Encountered while saving. Quit Without Saving ?');
answer1 := show_alert('confirm_alert');
if answer1=ALERT_BUTTON1 then
form_name:=get_application_property(current_form_name);
set_form_property(form_name,validation,property_false);
exit_form(No_Validate);
set_form_property(form_name,validation,property_true);
elsif answer1=ALERT_BUTTON2 or answer1=ALERT_BUTTON3 then
raise form_trigger_failure;
end if;
else
form_name:=get_application_property(current_form_name);
set_form_property(form_name,validation,property_false);
exit_form;
set_form_property(form_name,validation,property_true);
end if;
elsif answer=ALERT_BUTTON3 then
raise form_trigger_failure;
elsif answer=ALERT_BUTTON2 then
form_name:=get_application_property(current_form_name);
set_form_property(form_name,validation,property_false);
exit_form(No_Commit);
set_form_property(form_name,validation,property_true);
end if;
else
form_name:=get_application_property(current_form_name);
set_form_property(form_name,validation,property_false);
exit_form;
set_form_property(form_name,validation,property_true);
end if;
end;
END;
|
|
|
|
|
|
|
|
|
|
|
|