CREATE OR REPLACE TRIGGER ATUALIZA_NRSEQ_ROTFABLOCAL
BEFORE INSERT
ON ROTFABLOCAL FOR EACH ROW

DECLARE
   V_SEQUENCIAL VARCHAR2(20);

BEGIN
   NOVO_CODIGO_NT('ROTFABLOCAL'||:NEW.CDFILIAL||:NEW.CDPRODUTO||:NEW.CDSUBPRODLOC, V_SEQUENCIAL, 1);
   :NEW.NRSEQROTFABLOC := LPAD(SUBSTR(V_SEQUENCIAL, 11, 10), 10, '0');
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ATUALIZA_NRSEQ_ROTFABLOCAL','6.39.030'); END;
/
