SQL> @&1 SQL> /* @pregBD_Piezas.sql */ SQL> SET ECHO ON SQL> SQL> CREATE SEQUENCE seq_clvProv MINVALUE 100 START WITH 100; Secuencia creada. SQL> SQL> CREATE OR REPLACE TRIGGER insertaProv 2 BEFORE INSERT ON Proveedor 3 FOR EACH ROW 4 DECLARE clv NUMBER(9); 5 BEGIN 6 SELECT seq_clvProv.NEXTVAL INTO clv FROM DUAL; 7 :new.clvProv := clv; 8 END; 9 / Disparador creado. SQL> SHOW ERRORS TRIGGER insertaProv; No hay errores. SQL> SQL> INSERT INTO Proveedor(nombProv) VALUES ('Pepe'); 1 fila creada. SQL> SQL> SELECT * FROM Proveedor; CLVPROV NOMBPROV ---------- -------------------------------- 1 PEREZ 2 LOPEZ 3 MARTINEZ 100 Pepe SQL> SQL> DELETE FROM Proveedor WHERE clvProv > 99; 1 fila suprimida. SQL> SQL> DROP SEQUENCE seq_clvProv; Secuencia borrada. SQL> SQL> DROP TRIGGER insertaProv; Disparador borrado. SQL> set echo off fin de la ejecucion de K:\BD_2017\desarrollo\pruebas_ORACLE\BD_Piezas_nw\pregBD_Piezas_trigger.sql