CREATE OR REPLACE FUNCTION ARQUIVO_GIM_RN_01(
   P_DTFINAL      IN NOTAFISCAL.DTEMISSAO%TYPE,
   P_CDINSCESTA   IN NOTAFISCAL.CDINSCESTA%TYPE,
   P_GIM          IN NOTAFISCAL.IDENTRSAIDOP%TYPE,
   P_NRSEQARQMAG  IN ARQMAGNETICO.NRSEQARQMAG%TYPE) RETURN VARCHAR

AS
   V_DADOS_10     VARCHAR2(4000);
   V_CONTADOR     NUMBER;
BEGIN
   V_DADOS_10 := TO_CHAR(P_DTFINAL, 'mm')||
                 TO_CHAR(P_DTFINAL, 'YYYY')||
                 LPAD(SUBSTR(NVL(P_CDINSCESTA,'0'),1,9), 9, '0')||
                 'N';

   V_CONTADOR := NVL(V_CONTADOR,0)+1;
   INSERT INTO ARQMAGNETICO
     (NRORDREGARQ, DSREGARQMAG, NRSEQARQMAG)
   VALUES
     (RPAD('01',10,'0'), V_DADOS_10, P_NRSEQARQMAG);

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

-- VERSAO --
BEGIN ATUVEROBJ('ARQUIVO_GIM_RN_01','5.05.024'); END;
/

