CREATE OR REPLACE TRIGGER ATUALIZA_NRSEQ_ROTFABRICA
BEFORE INSERT
ON ROTFABRICA FOR EACH ROW

DECLARE
   V_SEQUENCIAL VARCHAR2(20);

BEGIN
   NOVO_CODIGO_NT('ROTFABRICA'||:NEW.CDPRODUTO||:NEW.CDSUBPRODUTO, V_SEQUENCIAL, 1);
   :NEW.NRSEQROTFAB := LPAD(SUBSTR(V_SEQUENCIAL, 11, 10), 10, '0');
END;
/