Pular para o conteúdo principal

Método - Consultando IDs dos Eventos de um Lote - eSocial

Lucas Santos
Atualizado

ConsultarIdsEventoLote(aIdLote)

Para consultar os ID´s dos eventos de um determinado lote do eSocial que enviamos, utilizaremos o método ConsultarIdsEventoLote e informaremos o número de protocolo de um envio de lote válido.

 

 

Método

 

ConsultarIdsEventoLote(const aIdLote: WideString): IspdRetConsultarIdsEventosLote;

 

 

Parâmetros

 

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

 

 

Retorno

 

Este método retornará um objeto do tipo IspdRetConsultarIdsEventosLote com o seguinte retorno:

  • IdLote
  • NumeroProtocolo
  • Mensagem
  • Eventos

Abaixo segue o detalhamento do tipo IspdRetConsultarIdsEventosLote.

 

IspdRetConsultarIdsEventosLote

 

Os campos a seguir são referentes ao Lote, onde é indicado suas informações básicas e a lista dos eventos de determinado lote enviado.

 

Campo Função Tipo Exemplo
IdLote 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 de retorno do processamento String
Eventos retornados.
Eventos Propriedade que retorna  a lista dos eventos do lote IspdRetConsultarIdsEventosLoteItem  RetConsultaIdsEventoLoteItem := RetConsultaIdsEventoLote.Eventos[_i]
Count Função que retorno o número de eventos retornado na propriedade Eventos Integer 1

 

 

IspdRetConsultarIdsEventosLoteItem

 

Os campos a seguir são referentes ao Lote, onde é indicado suas informações básicas e a lista dos eventos de determinado lote enviado.

 

Campo Função Tipo Exemplo
IdEvento Propriedade que retorna o Identificador do evento String
ID1081871680000002020110915243209280

 

 

Requisitos

 

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

 

 

Exemplos

 

Delphi

 

var
RetConsultaIdsEventoLote: IspdRetConsultarIdsEventosLote;
RetConsultaIdsEventoLoteItem: IspdRetConsultarIdsEventosLoteItem;
_i: integer;

begin
RetConsultaIdsEventoLote := eSocial.ConsultarIdsEventoLote(edtIdLote.Text);

 

mmoRetorno.Lines.Clear;
mmoRetorno.Lines.Add('### CONSULTA IDS EVENTOS LOTE ###');
mmoRetorno.Lines.Add('Número do Protocolo: ' + RetConsultaIdsEventoLote.NumeroProtocolo);
mmoRetorno.Lines.Add('Mensagem de Retorno: ' + RetConsultaIdsEventoLote.Mensagem);

mmoRetorno.Lines.Add('Id do Lote: ' + RetConsultaIdsEventoLote.IdLote);

 

for _i := 0 to RetConsultaIdsEventoLote.Count - 1 do
begin
  RetConsultaIdsEventoLoteItem := RetConsultaIdsEventoLote.Eventos[_i];
  mmoRetorno.Lines.Add(' Evento: ' + IntToStr(_i + 1));
  mmoRetorno.Lines.Add(' Id Evento: ' + RetConsultaIdsEventoLoteItem.IdEvento);
end

 

C#

 

ESocialClientX.IspdRetConsultarIdsEventosLote Lote;

 

Lote = eSocial.ConsultarIdsEventoLote(edtIDLote.Text);

mmRetorno.Text = "Lote:" + Environment.NewLine;
mmRetorno.Text += " Número do Protocolo: " + Lote.NumeroProtocolo + Environment.NewLine;
mmRetorno.Text += " Mensagem de Retorno: " + Lote.Mensagem + Environment.NewLine;
mmRetorno.Text += " Id do Lote: " + Lote.IdLote + Environment.NewLine;
mmRetorno.Text += Environment.NewLine;


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

{

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

}

 

Visual Basic 6

 

Dim Lote As spdRetConsultarIdsEventosLote

Dim i As Integer


Set Lote = eSocial.ConsultarIdsEventoLote(edtIDLote.Text)

 

mmRetorno.Text = "Lote:" & vbNewLine

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

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

mmRetorno.Text = mmRetorno.Text & " Status do Lote: " & Lote.IdLote & vbNewLine

 

For i = 0 To Lote.Count - 1

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

Next

 

 

Artigos relacionados

Comentários

0 comentário

Por favor, entre para comentar.