CREATE OR REPLACE FUNCTION ARQUIVO_DAC_90(
   P_CONTADOR    IN NUMBER,
   P_SEQMAGNET   IN VARCHAR
)
RETURN NUMBER
AS
   V_CONTADOR    NUMBER;
   V_INSERT      VARCHAR2(8);
BEGIN
   V_CONTADOR := NVL(P_CONTADOR,0);

      V_CONTADOR := NVL(V_CONTADOR,0)+1;
      V_INSERT := '90'||LPAD(V_CONTADOR,6,0);
      INSERT INTO ARQMAGNETICO
      (NRORDREGARQ, DSREGARQMAG, NRSEQARQMAG)
      VALUES
      (LPAD(V_CONTADOR, 10, '0'),V_INSERT,P_SEQMAGNET);

RETURN(LPAD(V_CONTADOR,10,0));      
END;
/


-- VERSAO --
BEGIN ATUVEROBJ('ARQUIVO_DAC_90','5.30.000'); END;
/

