CREATE OR REPLACE PROCEDURE ARQUIVO_DAC( 
   P_CDIMPOSTO    IN IMPOSTO.CDIMPOSTO%TYPE, 
   P_CDEMPRESA    IN EMPRESA.CDEMPRESA%TYPE, 
   P_CDINSCESTA   IN EMPRESA.CDINSCESTA%TYPE, 
   P_DTINICIAL    IN NOTAFISCAL.DTENTRSAID%TYPE, 
   P_DTFINAL      IN NOTAFISCAL.DTENTRSAID%TYPE, 
   P_VERSAO       IN NOTAFISCAL.IDSTATUS%TYPE, 
   P_RELEASE      IN VARCHAR, 
   P_SBRELEASE    IN VARCHAR, 
   P_TPDEC        IN VARCHAR, 
   P_PDEC         IN VARCHAR, 
   P_INDMOV       IN VARCHAR, 
   P_INDENC       IN VARCHAR, 
   P_GUIA         IN VARCHAR, 
   P_APURAC       IN VARCHAR, 
   P_SISTEMA      IN VARCHAR, 
   P_CALC         IN VARCHAR, 
   P_GRUPPROD     IN VARCHAR, 
   P_AIDF         IN VARCHAR, 
   P_REGANUAL     IN VARCHAR, 
   P_SEQMAGNET    IN NOTAFISCAL.NRLANCTONF%TYPE) 
AS 
   V_SOMATOTAL  NUMBER; 
   V_CONTADOR   NUMBER; 
BEGIN 
   V_SOMATOTAL := 0;
   V_CONTADOR := NVL(ARQUIVO_DAC_INICIO(P_CDEMPRESA,P_CDINSCESTA,P_DTINICIAL,P_DTFINAL,P_VERSAO,P_RELEASE,P_SBRELEASE,P_TPDEC,P_PDEC,P_INDMOV,P_INDENC,P_SEQMAGNET),0);

   V_CONTADOR := ARQUIVO_DAC_21(P_CDEMPRESA,P_CDINSCESTA,P_CDIMPOSTO,P_DTINICIAL,P_DTFINAL,P_PDEC, V_CONTADOR,P_SEQMAGNET);

    V_CONTADOR  := ARQUIVO_DAC_31(P_CDEMPRESA,P_CDINSCESTA,P_CDIMPOSTO,P_DTINICIAL,P_DTFINAL,P_PDEC,V_CONTADOR,P_SEQMAGNET, P_INDMOV);

    V_CONTADOR := ARQUIVO_DAC_41(P_CDEMPRESA, P_CDINSCESTA, P_CDIMPOSTO, P_DTINICIAL, P_DTFINAL,P_GUIA, P_AIDF, V_CONTADOR, P_SEQMAGNET, P_INDMOV);

    IF P_REGANUAL = 'S' THEN
       V_CONTADOR := ARQUIVO_DAC_60(P_CDEMPRESA,P_CDINSCESTA,P_CDIMPOSTO,P_DTINICIAL,P_DTFINAL,P_APURAC,P_SISTEMA,P_CALC,P_GRUPPROD,V_CONTADOR,P_SEQMAGNET);
    END IF;
    
    V_CONTADOR := ARQUIVO_DAC_90(V_CONTADOR,P_SEQMAGNET);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ARQUIVO_DAC','5.30.030'); END;
/

