CREATE OR REPLACE PROCEDURE SPED_CONTABIL_MESTRE (
   P_NRSEQARQMAG  IN ARQMAGNETICO.NRSEQARQMAG%TYPE,
   P_CDEMPRESA    IN EMPRESA.CDEMPRESA%TYPE,
   P_DTREFERENCIA IN DATE,
   P_DSNATUREZA   IN VARCHAR2,
   P_IDESCRITURA  IN VARCHAR2,
   P_IDPLANCTBREF IN VARCHAR2,
   P_IDGERADEMCTB IN VARCHAR2,
   P_IDSPED       IN VARCHAR2) /* PARAMETRO QUE DEFINE SE SERA GERADO SPED OU FCONT */
IS
   V_NRORDREGARQ  INTEGER;
BEGIN

   SPED_CONTABIL_CABECALHO (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, P_IDESCRITURA, P_IDSPED, V_NRORDREGARQ);
   SPED_CONTABIL_PLANOCONTA (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, P_DSNATUREZA, P_IDPLANCTBREF, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);
   IF P_IDESCRITURA = 'G' THEN
      SPED_CONTABIL_HISTORICO (P_NRSEQARQMAG, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);
   END IF;
   SPED_CONTABIL_CENTROCUSTO (P_NRSEQARQMAG, P_DTREFERENCIA, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);
   SPED_CONTABIL_SALDO (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);

   SPED_CONTABIL_LANCAMENTO (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);
   SPED_CONTABIL_BALANCETE (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, V_NRORDREGARQ, P_IDSPED, P_IDESCRITURA, V_NRORDREGARQ);

   SPED_CONTABIL_DEMONSTRACOES (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, P_DSNATUREZA, P_IDGERADEMCTB, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);
   SPED_CONTABIL_ENCERRAMENTO (P_NRSEQARQMAG, P_CDEMPRESA, P_DTREFERENCIA, P_DSNATUREZA, V_NRORDREGARQ, P_IDSPED, V_NRORDREGARQ);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('SPED_CONTABIL_MESTRE','5.30.xxx'); END;
/

