Hello everybuddy
i am trying to run this form .It is ok with the compilation but in the run time ,it is giving an error which is "FRM 41039 :Invalid Alert ID 0".The control is entering into the first if block (if mrcdcnt <> 0 then) . I am getting this error twice back to back.
Declare
chk_button number;
mrcdcnt number;
IO_ALERT ALERT :=Find_Alert('generic_alert');
BUSS_ALERT ALERT := Find_Alert('generic_alert');
Begin
mrcdcnt:=0;
select count(*) into mrcdcnt from suplr_mstr where suplr_mstr.suplrid=:BLKSUPLRMSTR.TXTSUPLRID;
-- message(mrcdcnt);
if mrcdcnt <> 0 then
message('Enter Suppliers unique identity number');
set_alert_property('IO_ALERT',title,'Primery Key Violation');
set_alert_property('IO_ALART',Alert_message_text,' Supplier`s ID number already exists');
chk_button := show_alert('IO_ALERT');
RAISE FORM_TRIGGER_FAILURE;
end if;
if not:BLKSUPLRMSTR.TXTSUPLRID > 0 then
message(:BLKSUPLRMSTR.TXTSUPLRID);
message('Enter supplier`s identity number.');
set_alert_property('BUSS_ALERT',title,'Business rule violation');
set_alert_property('BUSS_ALERT',alert_message_text ,'Supplier`s ID number should be a possitive integer');
chk_button:=show_alert('BUSS_ALERT');
RAISE FORM_TRIGGER_FAILURE;
end if;
END;
Can any one please help me.