create or replace trigger tri_savings_type
--before
before insert on savings_type
for each row
begin
select seq_saving_type.nextval into :new.saving_id from dual;
end;
CREATE OR REPLACE TRIGGER tri_saving_type BEFORE INSERT
ON savings_type FOR EACH ROW
DECLARE
INTEGRITY_ERROR EXCEPTION;
ERRNO INTEGER;
ERRMSG CHAR(200);
DUMMY INTEGER;
FOUND BOOLEAN;
BEGIN
SELECT seq_savings_type.NEXTVAL INTO :NEW.savings_id FROM DUAL;
-- ERRORS HANDLING
EXCEPTION
WHEN INTEGRITY_ERROR THEN
RAISE_APPLICATION_ERROR(ERRNO, ERRMSG);
END;