create sequence SEQUENCE_BUDGETUPDATERECORD
/
create trigger TIB_BUDGETUPDATERECORD before insert
on BUDGETUPDATERECORD for each row
declare
integrity_error exception;
errno integer;
errmsg char(200);
dummy integer;
found boolean;
begin
-- Column "ID" uses sequence SEQUENCE_BUDGETUPDATERECORD
select SEQUENCE_BUDGETUPDATERECORD.NEXTVAL INTO :new.ID from dual;
-- Errors handling
exception
when integrity_error then
raise_application_error(errno, errmsg);
end;
/