Novidades

  • Compatibilizado com a versão 1.3.02 do Reinf.
  • Implementado o retorno do evento "R-5001 - Informações de bases e tributos por evento".
  • Retornado na consulta dos eventos ['2010', '2020', '2040', '2050', '2060', '3010']
  • Corrigido o nome do evento de totalizador de R2099 para R5011

       Exemplo da consulta completa em Delphi:

 
          procedure Consultar();
        var 
        _RetConsulta: IspdRetConsultarLote;
        _RetConsultaItem: IspdRetConsultarLoteItem;
        _RetConsultaOcorrencia: IspdRetConsultarLoteOcorrencia;
        _RetItemRTomR5011: IspdRTomR5011;
        _RetItemRComlR5011: IspdRComlR5011;
        _RetItemRCPRBR5011: IspdRCPRBR5011;
        _RetItemRPrestR5011: IspdRPrestR5011;
        _RetItemRRecRepADR5011: IspdRRecRepADR5011;
        _RetItemRTomR5001: IspdRTomR5001;
        _RetItemRComlR5001: IspdRComlR5001;
        _RetItemRCPRBR5001: IspdRCPRBR5001;
        _RetItemRPrestR5001: IspdRPrestR5001;
        _RetItemRRecRepADR5001: IspdRRecRepADR5001;
        _RetItemInfoCRTomR5001: IspdInfoCRTomR5001;
        _RetItemRRecEspetDespR5001: IspdRRecEspetDespR5001;

        _i, _j, _b: integer;
        begin
        _RetConsulta := FReinf.ConsultarLoteEventos(edtIdentificadorLote.Text);

        mmoXML.Lines.Clear;
        mmoXML.Lines.Add('### CONSULTA PROTOCOLO ###');
        mmoXML.Lines.Add('Número do Protocolo: ' + _RetConsulta.NumeroProtocolo);
        mmoXML.Lines.Add('Mensagem de Retorno: ' + _RetConsulta.Mensagem);
        mmoXML.Lines.Add('Status do Lote: ' + _RetConsulta.Status);

        for _i := 0 to _RetConsulta.Count - 1 do
        begin
            _RetConsultaItem := _RetConsulta.Eventos[_i];
            mmoXML.Lines.Add('    Evento: ' + IntToStr(_i + 1));
            mmoXML.Lines.Add('    Id Evento: ' + _RetConsultaItem.IdEvento);
            mmoXML.Lines.Add('    Número Recibo: ' + _RetConsultaItem.NumeroRecibo);
            mmoXML.Lines.Add('    Código de Status: ' + _RetConsultaItem.cStat);
            mmoXML.Lines.Add('    Mensagem: ' + _RetConsultaItem.Mensagem);
            mmoXML.Lines.Add('    Status do Evento: ' + _RetConsultaItem.Status);

            mmoXML.Lines.Add('     R5001');
            mmoXML.Lines.Add('      PeriodoApuracao: ' + _RetConsultaItem.R5001.PeriodoApuracao);
            mmoXML.Lines.Add('      NrInsc: ' + _RetConsultaItem.R5001.NrInsc);
            mmoXML.Lines.Add('      TpInsc: ' + _RetConsultaItem.R5001.TpInsc);
            mmoXML.Lines.Add('      NrRecArqBase: ' + _RetConsultaItem.R5001.NrRecArqBase);

            for _j := 0 to _RetConsultaItem.R5001.CountRTom - 1 do
            begin
            _RetItemRTomR5001 := (_RetConsultaItem.R5001.RTom[_j]);
            mmoXML.Lines.Add('      RTom:  ');
            mmoXML.Lines.Add('      CnpjPrestador: ' + _RetItemRTomR5001.CnpjPrestador);
            mmoXML.Lines.Add('      VlrTotalBaseRet: ' + _RetItemRTomR5001.VlrTotalBaseRet);
            for _b := 0 to _RetItemRTomR5001.CountInfoCRTom - 1 do
            begin
                _RetItemInfoCRTomR5001 := _RetItemRTomR5001.InfoCRTom[_b];
                mmoXML.Lines.Add('       InfoCRTOM: ');
                mmoXML.Lines.Add('        CRTom: ' + _RetItemInfoCRTomR5001.CRTom);
                mmoXML.Lines.Add('        VlrCRTom: ' + _RetItemInfoCRTomR5001.VlrCRTom);
                mmoXML.Lines.Add('        VlrCRTomSusp: ' + _RetItemInfoCRTomR5001.VlrCRTomSusp);
            end;

            end;
            for _j := 0 to _RetConsultaItem.R5001.CountRComl - 1 do
            begin
            _RetItemRComlR5001 := (_RetConsultaItem.R5001.RComl[_j]);
            mmoXML.Lines.Add('      RComl:  ');
            mmoXML.Lines.Add('      CRComl: ' + _RetItemRComlR5001.CRComl);
            mmoXML.Lines.Add('      VlrCRComl: ' + _RetItemRComlR5001.VlrCRComl);
            mmoXML.Lines.Add('      VlrCRComlSusp: ' + _RetItemRComlR5001.VlrCRComlSusp);

            end;
            for _j := 0 to _RetConsultaItem.R5001.CountRCPRB - 1 do
            begin
            _RetItemRCPRBR5001 := (_RetConsultaItem.R5001.RCPRB[_j]);
            mmoXML.Lines.Add('      RCPRB:  ');
            mmoXML.Lines.Add('      CRCPRB: ' + _RetItemRCPRBR5001.CRCPRB);
            mmoXML.Lines.Add('      VlrCRCPRB: ' + _RetItemRCPRBR5001.VlrCRCPRB);
            mmoXML.Lines.Add('      VlrCRCPRBSusp: ' + _RetItemRCPRBR5001.VlrCRCPRBSusp);
            end;

            for _j := 0 to _RetConsultaItem.R5001.CountRPrest - 1 do
            begin
            _RetItemRPrestR5001 := (_RetConsultaItem.R5001.RPrest[_j]);
            mmoXML.Lines.Add('      RPrest:  ');
            mmoXML.Lines.Add('      TpInscTomador: ' + _RetItemRPrestR5001.TpInscTomador);
            mmoXML.Lines.Add('      NrInscTomador: ' + _RetItemRPrestR5001.NrInscTomador);
            mmoXML.Lines.Add('      VlrTotalBaseRet: ' + _RetItemRPrestR5001.VlrTotalBaseRet);
            mmoXML.Lines.Add('      VlrTotalRetAdic: ' + _RetItemRPrestR5001.VlrTotalRetAdic);
            mmoXML.Lines.Add('      VlrTotalNRetPrinc: ' + _RetItemRPrestR5001.VlrTotalNRetPrinc);
            mmoXML.Lines.Add('      VlrTotalNRetAdic: ' + _RetItemRPrestR5001.VlrTotalNRetAdic);
            mmoXML.Lines.Add('      VlrTotalRetPrinc: ' + _RetItemRPrestR5001.VlrTotalRetPrinc);

            end;
            for _j := 0 to _RetConsultaItem.R5001.CountRRecRepAD - 1 do
            begin
            _RetItemRRecRepADR5001 := (_RetConsultaItem.R5001.RRecRepAD[_j]);
            mmoXML.Lines.Add('      RRecRepAD:  ');
            mmoXML.Lines.Add('      CnpjAssocDesp: ' + _RetItemRRecRepADR5001.CnpjAssocDesp);
            mmoXML.Lines.Add('      VlrTotalRep: ' + _RetItemRRecRepADR5001.VlrTotalRep);
            mmoXML.Lines.Add('      CRRecRepAD: ' + _RetItemRRecRepADR5001.CRRecRepAD);
            mmoXML.Lines.Add('      VlrCRRecRepAD: ' + _RetItemRRecRepADR5001.VlrCRRecRepAD);
            mmoXML.Lines.Add('      VlrCRRecRepADSusp: ' + _RetItemRRecRepADR5001.VlrCRRecRepADSusp);
            end;

            for _j := 0 to _RetConsultaItem.R5001.CountRRecEspetDesp - 1 do
            begin
            _RetItemRRecEspetDespR5001 := (_RetConsultaItem.R5001.RRecEspetDesp[_j]);
            mmoXML.Lines.Add('      RRecEspetDesp:  ');
            mmoXML.Lines.Add('      CRRecEspetDesp: ' + _RetItemRRecEspetDespR5001.CRRecEspetDesp);
            mmoXML.Lines.Add('      VlrReceitaTotal: ' + _RetItemRRecEspetDespR5001.VlrReceitaTotal);
            mmoXML.Lines.Add('      VlrCRRecEspetDesp: ' + _RetItemRRecEspetDespR5001.VlrCRRecEspetDesp);
            mmoXML.Lines.Add('      VlrCRRecEspetDespSusp: ' +
                _RetItemRRecEspetDespR5001.VlrCRRecEspetDespSusp);
            end;

            mmoXML.Lines.Add(sLineBreak);
            mmoXML.Lines.Add(sLineBreak);
            for _j := 0 to _RetConsultaItem.R5011.CountRTom - 1 do
            begin
            _RetItemRTomR5011 := (_RetConsultaItem.R5011.RTom[_j]);
            mmoXML.Lines.Add('      R5011 ');
            mmoXML.Lines.Add('      RTom:  ');
            mmoXML.Lines.Add('      CnpjPrestador: ' + _RetItemRTomR5011.CnpjPrestador);
            mmoXML.Lines.Add('      VlrTotalBaseRet: ' + _RetItemRTomR5011.VlrTotalBaseRet);
	    for _b := 0 to _RetItemRTomR5011.CountInfoCRTom - 1 do
            begin
                _RetItemInfoCRTomR5011 := _RetItemRTomR5011.InfoCRTom[_b];
                mmoXML.Lines.Add('       InfoCRTOM: ');
                mmoXML.Lines.Add('        CRTom: ' + _RetItemInfoCRTomR5011.CRTom);
                mmoXML.Lines.Add('        VlrCRTom: ' + _RetItemInfoCRTomR5011.VlrCRTom);
                mmoXML.Lines.Add('        VlrCRTomSusp: ' + _RetItemInfoCRTomR5011.VlrCRTomSusp);
            end;			         

            end;
            for _j := 0 to _RetConsultaItem.R5011.CountRComl - 1 do
            begin
            _RetItemRComlR5011 := (_RetConsultaItem.R5011.RComl[_j]);
            mmoXML.Lines.Add('      R5011 ');
            mmoXML.Lines.Add('      RComl:  ');
            mmoXML.Lines.Add('      VlrCPApur: ' + _RetItemRComlR5011.VlrCPApur);
            mmoXML.Lines.Add('      VlrRatApur: ' + _RetItemRComlR5011.VlrRatApur);
            mmoXML.Lines.Add('      VlrSenarApur: ' + _RetItemRComlR5011.VlrSenarApur);
            mmoXML.Lines.Add('      VlrCPSusp: ' + _RetItemRComlR5011.VlrCPSusp);
            mmoXML.Lines.Add('      VlrRatSusp: ' + _RetItemRComlR5011.VlrRatSusp);
            mmoXML.Lines.Add('      VlrSenarSusp: ' + _RetItemRComlR5011.VlrSenarSusp);
            end;
            for _j := 0 to _RetConsultaItem.R5011.CountRCPRB - 1 do
            begin
            _RetItemRCPRBR5011 := (_RetConsultaItem.R5011.RCPRB[_j]);
            mmoXML.Lines.Add('      R5011 ');
            mmoXML.Lines.Add('      RCPRB:  ');
            mmoXML.Lines.Add('      CodRec: ' + _RetItemRCPRBR5011.CodRec);
            mmoXML.Lines.Add('      VlrCPApurTotal: ' + _RetItemRCPRBR5011.VlrCPApurTotal);
            mmoXML.Lines.Add('      VlrCPRBSusp: ' + _RetItemRCPRBR5011.VlrCPRBSusp);
            end;
            for _j := 0 to _RetConsultaItem.R5011.CountRCPRB - 1 do
            begin
            _RetItemRCPRBR5011 := (_RetConsultaItem.R5011.RCPRB[_j]);
            mmoXML.Lines.Add('      R5011 ');
            mmoXML.Lines.Add('      RCPRB:  ');
            mmoXML.Lines.Add('      CodRec: ' + _RetItemRCPRBR5011.CodRec);
            mmoXML.Lines.Add('      VlrCPApurTotal: ' + _RetItemRCPRBR5011.VlrCPApurTotal);
            mmoXML.Lines.Add('      VlrCPRBSusp: ' + _RetItemRCPRBR5011.VlrCPRBSusp);
            end;
            for _j := 0 to _RetConsultaItem.R5011.CountRPrest - 1 do
            begin
            _RetItemRPrestR5011 := (_RetConsultaItem.R5011.RPrest[_j]);
            mmoXML.Lines.Add('      R5011 ');
            mmoXML.Lines.Add('      RPrest:  ');
            mmoXML.Lines.Add('      TpInscTomador: ' + _RetItemRPrestR5011.TpInscTomador);
            mmoXML.Lines.Add('      NrInscTomador: ' + _RetItemRPrestR5011.NrInscTomador);
            mmoXML.Lines.Add('      VlrTotalBaseRet: ' + _RetItemRPrestR5011.VlrTotalBaseRet);
            mmoXML.Lines.Add('      VlrTotalRetAdic: ' + _RetItemRPrestR5011.VlrTotalRetAdic);
            mmoXML.Lines.Add('      VlrTotalNRetPrinc: ' + _RetItemRPrestR5011.VlrTotalNRetPrinc);
            mmoXML.Lines.Add('      VlrTotalNRetAdic: ' + _RetItemRPrestR5011.VlrTotalNRetAdic);
            mmoXML.Lines.Add('      VlrTotalRetPrinc: ' + _RetItemRPrestR5011.VlrTotalRetPrinc);

            end;
            for _j := 0 to _RetConsultaItem.R5011.CountRRecRepAD - 1 do
            begin
            _RetItemRRecRepADR5011 := (_RetConsultaItem.R5011.RRecRepAD[_j]);
            mmoXML.Lines.Add('      R5011 ');
            mmoXML.Lines.Add('      RRecRepAD:  ');
            mmoXML.Lines.Add('      CnpjAssocDesp: ' + _RetItemRRecRepADR5011.CnpjAssocDesp);
            mmoXML.Lines.Add('      VlrTotalRep: ' + _RetItemRRecRepADR5011.VlrTotalRep);
            mmoXML.Lines.Add('      VlrTotalRet: ' + _RetItemRRecRepADR5011.VlrTotalRet);
            mmoXML.Lines.Add('      VlrTotalNRet: ' + _RetItemRRecRepADR5011.VlrTotalNRet);
            end;

            for _j := 0 to _RetConsultaItem.Count - 1 do
            begin
            _RetConsultaOcorrencia := _RetConsultaItem.Ocorrencias[_j];
            mmoXML.Lines.Add('        Ocorrencia: ' + IntToStr(_j + 1));
            mmoXML.Lines.Add('        Código: ' + _RetConsultaOcorrencia.Codigo);
            mmoXML.Lines.Add('        Descrição: ' + _RetConsultaOcorrencia.Descricao);
            end;
        end;
     end;