forms6i

[rao]

Hi Gurus

i have written the following procedure which is successfully compiled.
i am executing in two ways.first one,i have written it in when-button-pressed trigger and it is working fine in a single form and the other thing what i am doing is i have got a control block where in i am calling this block via the actual form through the deptno.this is not working why is that please let me know
one more question along with this,how to supress the message do you want to save the changes you have made.whats the level of this message.
the actual form consists of deptno,dname,loc and a save button.
the control block consist of text_item i have named it as carrier and i have got a save button.please help me out i have to submit it tommorrow

PROCEDURE SAVE_TICKET_INFO IS
v_deptno dept.deptno%type;
v_dname dept.dname%type;
ECODE NUMBER;
EMMSG VARCHAR2(80);
alt number;

BEGIN
alt := show_alert('save');
--:dept.dname := v_dname;
SELECT dname INTO v_dname FROM DEPT WHERE DEPTNO = v_deptno;
if alt = alert_button1 then

UPDATE dept set dname = v_dname
WHERE deptno = v_deptno;
commit;
clear_form;
else
exit_form;
end if;
--MESSAGE('THE DEPTNO IS ' ||v_deptno);
--MESSAGE('THE DEPTNO IS ' ||v_deptno);
EXCEPTION
WHEN OTHERS THEN
ECODE := SQLCODE;
EMMSG := SQLERRM;
--MESSAGE(ECODE||'-'||EMMSG);
--MESSAGE(ECODE||'-'||EMMSG);
END;

[rao]

Originally posted by rao
Hi Gurus

i have written the following procedure which is successfully compiled.
i am executing in two ways.first one,i have written it in when-button-pressed trigger and it is working fine in a single form and the other thing what i am doing is i have got a control block where in i am calling this block via the actual form through the deptno,i am calling this procedure under the save button.this is not working why is that please let me know
one more question along with this,how to supress the message do you want to save the changes you have made.whats the level of this message.
the actual form consists of deptno,dname,loc and a save button.
the control block consist of text_item i have named it as carrier and i have got a save button.please help me out i have to submit it tommorrow

PROCEDURE SAVE_TICKET_INFO IS
v_deptno dept.deptno%type;
v_dname dept.dname%type;
ECODE NUMBER;
EMMSG VARCHAR2(80);
alt number;

BEGIN
alt := show_alert('save');
--:dept.dname := v_dname;
SELECT dname INTO v_dname FROM DEPT WHERE DEPTNO = v_deptno;
if alt = alert_button1 then

UPDATE dept set dname = v_dname
WHERE deptno = v_deptno;
commit;
clear_form;
else
exit_form;
end if;
--MESSAGE('THE DEPTNO IS ' ||v_deptno);
--MESSAGE('THE DEPTNO IS ' ||v_deptno);
EXCEPTION
WHEN OTHERS THEN
ECODE := SQLCODE;
EMMSG := SQLERRM;
--MESSAGE(ECODE||'-'||EMMSG);
--MESSAGE(ECODE||'-'||EMMSG);
END;

[stecal]

on-message trigger

if msgnum = whatever or msgtype = whatever then
null;

Off the top of my head, I think it is FRM-40501, but you can check that.

Check whether msgnum and msgtype are the correct variable names. I'm sure you're using some textbook, so look for info on on-message. Some messages/errors can't be suppressed unless you set a parameter (various errors have values of <25 and so on; lower valued messages can be suppressed).

[rao]

Hi,

I have written the above procedure and compiled successfully,when i use this as pl/sql block in an when button pressed trigger it is executing and other thing what i am doing is i have put the same pl/sql bloc into procedure and is compiled successfully.i am trying to execute via the control block i.e when i press a deptno it will take me a control block where in i have placed carrier anmd a save button.what ever i enter into carrier that should go and sit in the dname and when i press the save button it should get updated in the database.This is not happenning please let me know on this.It will be a great help.
Thanks