CREATE OR REPLACE PROCEDURE ARQUIVO_DACON(
   P_CDEMPRESA              IN EMPRESA.CDEMPRESA%TYPE,
   P_LIVRO                  IN NOTAFISCAL.NRLANCTONF%TYPE,
   P_DTINICIO               IN NOTAFISCAL.DTENTRSAID%TYPE,
   P_DTFIM                  IN NOTAFISCAL.DTENTRSAID%TYPE,
   P_DEMONSTRATIVO          IN VARCHAR2,
   P_VERSAO                 IN VARCHAR2,
   P_ENTREGA                IN VARCHAR2,
   P_SITESPECIAL            IN VARCHAR2,
   P_DESENQUADRA            IN VARCHAR2,
   P_QUALIFICACAO           IN VARCHAR2,
   P_ENTIDADE               IN VARCHAR2,
   P_INCLUSAO               IN VARCHAR2,
   P_DTEVENTO               IN DATE,
   P_PISPASEP               IN VARCHAR2,
   P_APCRED                 IN VARCHAR2,
   PISCOFALIQDIFCONTR       IN VARCHAR2,
   PISCOFALIQDIFSITTRIB     IN VARCHAR2,
   PISCOFALIQUNPRODCONTR    IN VARCHAR2,
   PISCOFALIQUNPRODSITTRIB  IN VARCHAR2,
   P_ADCONTR                IN VARCHAR2,
   P_DIFCONTR               IN VARCHAR2,
   P_CREDTRANSF             IN VARCHAR2,
   P_CREDDIF                IN VARCHAR2,
   P_DESCMES                IN VARCHAR2,
   P_METDET                 IN VARCHAR2,
   P_NRSEQARQMAG            IN ARQMAGNETICO.NRSEQARQMAG%TYPE)
AS

   V_CONTREG   NUMBER;
   V_CONTREG02 NUMBER;
   V_CONTREG03 NUMBER;
   V_CONTREG04 NUMBER;
   V_CONTREG05 NUMBER;
   V_CONTREG06 NUMBER;
   V_CONTREG07 NUMBER;
   V_CONTREG08 NUMBER;
   V_CONTREG09 NUMBER;
   V_CONTREG10 NUMBER;
   V_CONTREG13 NUMBER;
   V_CONTREG14 NUMBER;
   V_CONTREG15 NUMBER;
   V_CONTREG16 NUMBER;
   V_CONTREG17 NUMBER;
   V_CONTREG18 NUMBER;
   V_CONTREG19 NUMBER;
   V_CONTREG20 NUMBER;
   V_CONTREG23 NUMBER;
   V_CONTREG24 NUMBER;
   V_CONTREG25 NUMBER;
   V_CONTREG30 NUMBER;
   V_CONTREGT9 NUMBER;
   V_CONTGERAL NUMBER;
   V_CONTREG11 NUMBER;
   V_CONTREG12 NUMBER;
   V_CONTREG21 NUMBER;
   V_CONTREG22 NUMBER;

BEGIN
------------------------------------------/*HEADER E R01*/----------------------------------------------------------
   V_CONTREG := 0;
   V_CONTREG := ARQUIVO_DACON_R01(P_DTINICIO,P_DTFIM,P_DEMONSTRATIVO,P_CDEMPRESA,P_NRSEQARQMAG,
                                  P_ENTREGA,P_SITESPECIAL,P_DESENQUADRA,P_QUALIFICACAO,P_ENTIDADE,
                                  P_INCLUSAO,P_DTEVENTO,P_PISPASEP,P_APCRED,PISCOFALIQDIFCONTR,PISCOFALIQDIFSITTRIB,
                                  PISCOFALIQUNPRODCONTR,PISCOFALIQUNPRODSITTRIB,P_ADCONTR,P_DIFCONTR,
                                  P_CREDTRANSF,P_CREDDIF,P_DESCMES,P_METDET);

-----------------------------------------/*Tipo R02*/-----------------------------------------------------------------

   V_CONTREG02 := ARQUIVO_DACON_R02(P_CDEMPRESA, P_NRSEQARQMAG);

----------------------------------------/*Tipo R03*/------------------------------------------------------------------

   V_CONTREG03 := ARQUIVO_DACON_R03(P_CDEMPRESA, P_NRSEQARQMAG);


---------------------------------------/*Tipo R04*/--------------------------------------------------------------------

   V_CONTREG04 := ARQUIVO_DACON_R04(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG,PISCOFALIQDIFCONTR,PISCOFALIQDIFSITTRIB);

----------------------------------------/*Tipo R05*/------------------------------------------------------------------
   IF PISCOFALIQUNPRODCONTR = '1' THEN
      V_CONTREG05 := ARQUIVO_DACON_R05(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG);
   END IF;
---------------------------------------/*Tipo R06*/--------------------------------------------------------------------
   IF (P_PISPASEP = '1') OR(P_PISPASEP = '2') THEN
      V_CONTREG06 := ARQUIVO_DACON_R06(P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_NRSEQARQMAG, P_LIVRO);
   END IF;
---------------------------------------/*Tipo R07*/--------------------------------------------------------------------

   V_CONTREG07 := ARQUIVO_DACON_R07(P_PISPASEP,P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_LIVRO,P_NRSEQARQMAG);

--------------------------------------/*Tipo R08*/--------------------------------------------------------------------
   IF P_PISPASEP = '3' THEN
      V_CONTREG08 := ARQUIVO_DACON_R08(P_PISPASEP,P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_LIVRO,P_NRSEQARQMAG);
   END IF;
--------------------------------------/*Tipo R09*/---------------------------------------------------------------------
   IF PISCOFALIQDIFCONTR = '1' THEN
      V_CONTREG09 := ARQUIVO_DACON_R09( P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_NRSEQARQMAG);
   END IF;
--------------------------------------/*Tipo R10*/---------------------------------------------------------------------
   IF PISCOFALIQUNPRODCONTR = '1' THEN
      V_CONTREG10 := ARQUIVO_DACON_R10( P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_NRSEQARQMAG);
   END IF;
--------------------------------------/*Tipo R11*/---------------------------------------------------------------------
   IF (P_DIFCONTR = '1')  THEN
      V_CONTREG11 := ARQUIVO_DACON_R11(P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_NRSEQARQMAG,P_DIFCONTR);
   END IF;
--------------------------------------/*Tipo R12*/---------------------------------------------------------------------
   IF (P_DIFCONTR = '1')  THEN
      V_CONTREG12 := ARQUIVO_DACON_R12( P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_NRSEQARQMAG,P_DIFCONTR);
   END IF;
--------------------------------------/*Tipo R13*/---------------------------------------------------------------------
   IF (P_PISPASEP = '1') OR (P_PISPASEP = '2')THEN
      V_CONTREG13 := ARQUIVO_DACON_R13( P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_NRSEQARQMAG);
   END IF;
--------------------------------------/*Tipo R14*/---------------------------------------------------------------------
   IF (P_PISPASEP = '1') OR (P_PISPASEP = '2')THEN
      V_CONTREG14 := ARQUIVO_DACON_R14( P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_NRSEQARQMAG);
   END IF;
--------------------------------------/*Tipo R15*/---------------------------------------------------------------------

   V_CONTREG15 := ARQUIVO_DACON_R15(P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_NRSEQARQMAG,P_PISPASEP);

-------------------------------------/*Tipo R16*/---------------------------------------------------------------------
   IF (P_PISPASEP = '1') OR (P_PISPASEP = '2')THEN
      V_CONTREG16 := ARQUIVO_DACON_R16( P_CDEMPRESA,P_DTINICIO,P_DTFIM,P_LIVRO,P_NRSEQARQMAG);
   END IF;
---------------------------------------/*Tipo R17*/--------------------------------------------------------------------

   V_CONTREG17 := ARQUIVO_DACON_R17(P_PISPASEP,P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_LIVRO,P_NRSEQARQMAG);

---------------------------------------/*Tipo R18*/--------------------------------------------------------------------

   V_CONTREG18 := ARQUIVO_DACON_R18(P_PISPASEP,P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_LIVRO,P_NRSEQARQMAG);

----------------------------------------/*Tipo R19*/------------------------------------------------------------------
   IF PISCOFALIQDIFCONTR = '1' THEN
      V_CONTREG19 := ARQUIVO_DACON_R19(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG);
   END IF;
----------------------------------------/*Tipo R20*/------------------------------------------------------------------
   IF PISCOFALIQUNPRODCONTR = '1' THEN
      V_CONTREG20 := ARQUIVO_DACON_R20(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG);
   END IF;
--------------------------------------/*Tipo R21*/---------------------------------------------------------------------
   IF (P_DIFCONTR = '1')  THEN
      V_CONTREG21 := ARQUIVO_DACON_R21(P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_NRSEQARQMAG,P_DIFCONTR);
   END IF;
--------------------------------------/*Tipo R22*/---------------------------------------------------------------------
   IF (P_DIFCONTR = '1')  THEN
      V_CONTREG22 := ARQUIVO_DACON_R22( P_DTINICIO,P_DTFIM,P_CDEMPRESA,P_NRSEQARQMAG,P_DIFCONTR);
   END IF;
----------------------------------------/*Tipo R23*/------------------------------------------------------------------
   IF (P_PISPASEP = '1') OR (P_PISPASEP = '2')THEN
      V_CONTREG23 := ARQUIVO_DACON_R23(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG);
   END IF;
----------------------------------------/*Tipo R24*/------------------------------------------------------------------
   IF (P_PISPASEP = '1') OR (P_PISPASEP = '2')THEN
      V_CONTREG24 := ARQUIVO_DACON_R24(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG);
   END IF;
----------------------------------------/*Tipo R25*/------------------------------------------------------------------

   V_CONTREG25 := ARQUIVO_DACON_R25(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG,P_PISPASEP);

----------------------------------------/*Tipo R30*/------------------------------------------------------------------

   V_CONTREG30 := ARQUIVO_DACON_R30(P_CDEMPRESA,P_DTINICIO,P_DTFIM, P_NRSEQARQMAG);

--------------------------------------/*Tipo RT9*/------------------------------------------------------------------

   V_CONTGERAL := (NVL(V_CONTREG,0)  + NVL(V_CONTREG02,0)  + NVL(V_CONTREG03,0) + NVL(V_CONTREG04,0)  +
                   NVL(V_CONTREG05,0) + NVL(V_CONTREG06,0)  + NVL(V_CONTREG07,0) + NVL(V_CONTREG08,0) +
                   NVL(V_CONTREG09,0) + NVL(V_CONTREG10,0)  +NVL(V_CONTREG13,0)  + NVL(V_CONTREG14,0) +
                   NVL(V_CONTREG15,0) + NVL(V_CONTREG16,0)  +NVL(V_CONTREG17,0)  + NVL(V_CONTREG18,0) +
                   NVL(V_CONTREG19,0) + NVL(V_CONTREG20,0)  +NVL(V_CONTREG23,0)  + NVL(V_CONTREG24,0) +
                   NVL(V_CONTREG25,0) + NVL(V_CONTREG30,0)  + NVL(V_CONTREG11,0) + NVL(V_CONTREG12,0) +
                   NVL(V_CONTREG21,0) + NVL(V_CONTREG22,0));


    ARQUIVO_DACON_T9(P_NRSEQARQMAG, V_CONTGERAL);

END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ARQUIVO_DACON','5.60.000'); END;
/

