CREATE OR REPLACE PROCEDURE ARQUIVO_GIA_MS(
   P_CDIMPOSTO    IN IMPOSTO.CDIMPOSTO%TYPE,
   P_CDEMPRESA    IN EMPRESA.CDEMPRESA%TYPE,
   P_CDINSCESTA   IN NOTAFISCAL.CDINSCESTA%TYPE,
   P_DTINICIAL    IN NOTAFISCAL.DTENTRSAID%TYPE,
   P_DTFINAL      IN NOTAFISCAL.DTENTRSAID%TYPE,
   P_TPDEC        IN VARCHAR,
   P_PDEC         IN VARCHAR,
   P_REGEST       IN VARCHAR,
   P_SEQMAGNET    IN VARCHAR,
   P_QTDEFUNC     IN VARCHAR,
   P_FOLHAPGTO    IN VARCHAR,
   P_ENCARGOS     IN VARCHAR)
AS
   V_CONTADOR  VARCHAR2(10);
BEGIN
   V_CONTADOR := '0';

   V_CONTADOR := ARQUIVO_GIA_MS_00(P_CDINSCESTA,P_DTINICIAL,P_DTFINAL,P_TPDEC,P_PDEC,P_SEQMAGNET);

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

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

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


   IF P_REGEST = 'S' THEN
      V_CONTADOR := ARQUIVO_GIA_MS_05(P_CDEMPRESA,P_CDINSCESTA,P_CDIMPOSTO,P_DTINICIAL,P_DTFINAL,P_TPDEC,P_PDEC,V_CONTADOR,P_SEQMAGNET);
   END IF;

   V_CONTADOR := ARQUIVO_GIA_MS_08(P_CDEMPRESA,P_CDINSCESTA,P_CDIMPOSTO,P_DTINICIAL,P_DTFINAL,P_TPDEC,P_PDEC,V_CONTADOR,P_SEQMAGNET, P_QTDEFUNC, P_FOLHAPGTO, P_ENCARGOS);

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

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

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

   V_CONTADOR := ARQUIVO_GIA_MS_52(P_CDEMPRESA,P_CDINSCESTA,P_CDIMPOSTO,P_DTINICIAL,P_DTFINAL,P_TPDEC,P_PDEC,V_CONTADOR,P_SEQMAGNET);
END;
/

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

