Pular para o conteúdo principal

Método - Consultar os eventos - EFD-Reinf

Alyson Santos
Atualizado

ConsultarLoteEventos(aIdLoteEventos)

Para consultar um evento do EFD-Reinf que enviamos, utilizaremos o método ConsultarLoteEventos e informaremos o número de protocolo de um lote de eventos válido.

 

 

Método

 

ConsultarLoteEventos(const aIdLoteEventos: WideString): IspdReinfRetConsultarLote;

 

 

Parâmetros

 

Argumento Tipo Detalhes
aIdLoteEventos String Número de protocolo que é retornado no envio dos eventos

 

 

Retorno

 

Este método retornará um objeto do tipo IspdReinfRetConsultarLote com quatro níveis de retorno:

 

IspdReinfRetConsultarLote

 

Os campos a seguir são referentes ao Lote, onde é indicado o Status do lote na receita e suas principais informações. É dele que retiramos as informações para os demais níveis. Ele é demonstrado com a interface RetConsulta em nossos exemplos.

 

Campo Função Tipo Exemplo
Id Propriedade que retorna o Identificador de lote String 9f1100ff-e8d8-4ab3-80c5-063ca5fg7f9a
NumeroProtocolo Propriedade que retorna o protocolo de envio do evento String 1.2.201801.0000000000001110983
Mensagem Propriedade que retorna a mensagem gerada pela Receita String Lote processado com sucesso.
Status Propriedade que retorna o status atual do Lote String

EMPROCESSAMENTO

PROCESSADO

ERRO
XmlRetorno Propriedade que retorna o XML de resposta da Receita String XML de retorno
XmlEnviado Propriedade que retorna o XML de envio do evento String XML enviado
Eventos Propriedade que retorna os eventos do lote Propriedade que retorna as ocorrências do envio _RetConsultaItem := _RetConsulta.Eventos[1];
Ocorrencias Propriedade que retorna as ocorrências do envio Array _RetConsultaOcorrenciaEnvio := _RetConsulta.Ocorrencias[1];

 

 

IspdReinfRetConsultarLoteOcorrenciaEnvio

 

Dentro do campo ocorrências nós retiramos as informações referentes a erros ocorridos no lote. É possível verificar a descrição e em que local ocorreu o erro ou advertência. Ele é demonstrado com a interface RetConsultaOcorrenciaEnvio em nossos exemplos.

 

Campo Função Tipo Exemplo
Codigo Propriedade que retorna o código da situação desse evento String 609
Descricao Propriedade que retorna a descrição da ocorrência String Código inválido.
Tipo Propriedade que retorna o código do tipo de ocorrência String

1 - Erro

2 - Advertência

 

 

IspdReinfRetConsultarLoteItem

 

Dentro do campo eventos nós retiramos as informações dos eventos enviados a receita. É possível verificar a situação dos eventos, se eles foram autorizados ou não e suas principais informações. Ele é demonstrado com a interface RetConsultaItem em nossos exemplos.

 

Campo Função Tipo Exemplo
IdEvento Identificação do evento String ID1081871680000002018011010350000001
NumeroRecibo Recibo de autorização do evento String 1.2.0000000000010884662
cStat Código da situação desse evento String 201
Mensagem Mensagem referente ao código do evento String Sucesso.
Status Status do evento na receita String AUTORIZADO
Ocorrencias Ocorrências dos eventos Array _RetConsultaOcorrencia := _RetConsultaItem.Ocorrencias[1];
S5001 Informações das contribuições sociais por trabalhador, quando existir Array _RetConsultaItem.S5001
S5011 Informações das contribuições sociais consolidadas por contribuinte, quando existir Array _RetConsultaItem.S5011

 

 

IspdReinfRetConsultarLoteOcorrencia

 

Dentro do campo ocorrência nos eventos nós retiramos as informações referentes a erros ocorridos nos eventos. É possível verificar a descrição e em que local ocorreu o erro ou advertência. Ele é demonstrado com a interface RetConsultaOcorrencia em nossos exemplos.

 

Campo Função Tipo Exemplo
Codigo Propriedade que retorna o código da situação desse evento String 609
Descricao Propriedade que retorna a descrição da ocorrência String Código inválido.

 

 

Requisitos

 

Para consultar um evento, é necessário referenciar um número de protocolo válido.

 

 

Exemplos

 

Delphi

 

var

  Lote: IspdReinfRetConsultarLote;

  _i, _j, _k: Integer;

begin

 

Lote := Reinf.ConsultarLoteEventos(edtIDLote.Text);

 

mmRetorno.Lines.Clear;

mmRetorno.Lines.Add('Lote:');

mmRetorno.Lines.Add(' Número do Protocolo: ' + Lote.NumeroProtocolo);

mmRetorno.Lines.Add(' Mensagem de Retorno: ' + Lote.Mensagem);

mmRetorno.Lines.Add(' Status do Lote: ' + Lote.Status);

 

for _i := 0 to Lote.Count - 1 do

begin

 

mmRetorno.Lines.Add('Evento ' + IntToStr(_i+1) + ':');

mmRetorno.Lines.Add(' Id Evento: ' + Lote.Eventos[_i].IdEvento);

mmRetorno.Lines.Add(' Número Recibo: ' + Lote.Eventos[_i].NumeroRecibo);

mmRetorno.Lines.Add(' Código de Status: ' + Lote.Eventos[_i].cStat);

mmRetorno.Lines.Add(' Mensagem: ' + Lote.Eventos[_i].Mensagem);

mmRetorno.Lines.Add(' Status do Evento: ' + Lote.Eventos[_i].Status + #13#10);

 

for _j := 0 to Lote.Eventos[_i].Count -1 do

begin

 

mmRetorno.Lines.Add(' Ocorrencia ' + IntToStr(_j+1) + ':');

mmRetorno.Lines.Add(' Código: ' + Lote.Eventos[_i].Ocorrencias[_j].Codigo);

mmRetorno.Lines.Add(' Descrição: ' + Lote.Eventos[_i].Ocorrencias[_j].Descricao);

 

end;

 

end;

 

for _k := 0 to Lote.CountOcorrencias - 1 do

begin

 

mmRetorno.Lines.Add('Lote:');

mmRetorno.Lines.Add(' Codigo: ' + Lote.Ocorrencias[_k].Codigo);

mmRetorno.Lines.Add(' Tipo: ' + Lote.Ocorrencias[_k].Tipo);

mmRetorno.Lines.Add(' Descrição: ' + Lote.Ocorrencias[_k].Descricao);

 

end;

 

C#

 

ReinfClientX.IspdReinfRetConsultarLote Lote;

 

Lote = Reinf.ConsultarLoteEventos(edtIDLote.Text);

 

mmXML.Text = "Lote:" + Environment.NewLine;

mmXML.Text += " Número do Protocolo: " + Lote.NumeroProtocolo + Environment.NewLine;

mmXML.Text += " Mensagem de Retorno: " + Lote.Mensagem + Environment.NewLine;

mmXML.Text += " Status do Lote: " + Lote.Status + Environment.NewLine;

 

mmXML.Text += Environment.NewLine;

 

for (var k = 0; k < Lote.CountOcorrencias(); k++)

{

mmXML.Text = "Lote:" + Environment.NewLine;

mmXML.Text += " Codigo: " + Lote.Ocorrencias[k].Codigo + Environment.NewLine;

mmXML.Text += " Tipo: " + Lote.Ocorrencias[k].Tipo + Environment.NewLine;

mmXML.Text += " Descrição: " + Lote.Ocorrencias[k].Descricao + Environment.NewLine + Environment.NewLine;

}

 

for (var i = 0; i < Lote.Count(); i++)

{

mmXML.Text = "Evento:" + Environment.NewLine;

mmXML.Text += " Id Evento: " + Lote.Eventos[i].IdEvento + Environment.NewLine;

mmXML.Text += " Número Recibo: " + Lote.Eventos[i].NumeroRecibo + Environment.NewLine;

mmXML.Text += " Código de Status: " + Lote.Eventos[i].cStat + Environment.NewLine;

mmXML.Text += " Mensagem: " + Lote.Eventos[i].Mensagem + Environment.NewLine;

mmXML.Text += " Status do Evento: " + Lote.Eventos[i].Status + Environment.NewLine;

 

mmXML.Text += Environment.NewLine;

 

for (var j = 0; j < Lote.Eventos[i].Count(); j++)

{

mmXML.Text += " Ocorrência: " + (j + 1).ToString() + Environment.NewLine;

mmXML.Text += " Código: " + Lote.Eventos[i].Ocorrencias[j].Codigo + Environment.NewLine;

mmXML.Text += " Descrição: " + Lote.Eventos[i].Ocorrencias[j].Descricao + Environment.NewLine;

}

 

Visual Basic 6

 

Dim Lote As spdReinfRetConsultarLote

Dim i, j, k As Integer

 

Set Lote = Reinf.ConsultarLoteEventos(edtIDLote.Text)

 

mmXML.Text = "Lote:" & vbNewLine

mmXML.Text = mmXML.Text & " Número do Protocolo: " & Lote.NumeroProtocolo & vbNewLine

mmXML.Text = mmXML.Text & " Mensagem de Retorno: " & Lote.Mensagem & vbNewLine

mmXML.Text = mmXML.Text & " Status do Lote: " & Lote.Status & vbNewLine

 

For i = 0 To Lote.Count - 1

 

mmXML.Text = mmXML.Text & "Evento: " & Lote.Eventos(i).IdEvento & vbNewLine

mmXML.Text = mmXML.Text & " Número Recibo: " & Lote.Eventos(i).NumeroRecibo & vbNewLine

mmXML.Text = mmXML.Text & " Código de Status: " & Lote.Eventos(i).cStat & vbNewLine

mmXML.Text = mmXML.Text & " Mensagem: " & Lote.Eventos(i).Mensagem & vbNewLine

mmXML.Text = mmXML.Text & " Status do Evento: " & Lote.Eventos(i).Status & vbNewLine & vbNewLine

 

For j = 0 To Lote.Eventos(i).Count - 1

 

mmXML.Text = mmXML.Text & " Código: " & Lote.Eventos(i).Ocorrencias(j).Codigo & vbNewLine

mmXML.Text = mmXML.Text & " Descrição: " & Lote.Eventos(i).Ocorrencias(j).Descricao & vbNewLine

Next

Next

 

For k = 0 To Lote.CountOcorrencias - 1

 

mmXML.Text = "Lote:" & vbNewLine

mmXML.Text = mmXML.Text & " Codigo: " & Lote.Eventos(i).Ocorrencias(j).Envio.Codigo & vbNewLine

mmXML.Text = mmXML.Text & " Tipo: " & Lote.Eventos(i).Ocorrencias(j).Envio.Tipo & vbNewLine

mmXML.Text = mmXML.Text & " Descrição: " & Lote.Eventos(i).Ocorrencias(j).Envio.Descricao & vbNewLine & vbNewLine

 

Next

 

Artigos relacionados

Comentários

0 comentário

Por favor, entre para comentar.