Ler o Próximo Evento da Carta de Correção

[SISBLU Software]

Boa tarde, eu Faço a leitura do XML da NFe e do EVENTO de correção

Porém quando o cliente faz 2 eventos para a mesma nota, eu não consigo pegar os dados do 2 evento. Como posso pegar?

Aqui eu pego sempre o EVENTO 1: ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.nSeqEvento;

 

[BigWings]

4 minutos atrás, DAHA disse:

EVENTO 1: ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.nSeqEvento;

EVENTO 2: ACBrNFe1.EventoNFe.Evento.Items[1].InfEvento.nSeqEvento;

Mas porque está carregando mais de um evento? No caso da carta de correção apenas a última enviada é válida.

[SISBLU Software]

Então mas quando eu clico em CONSULTAR evento, ele traz o XML com todas as correçoes. EVENTO 1 e la em baixo o EVENTO 2

Então não consigo pegar a informação do evento 2.

 

sobre esse função retorna erro: Argument out of range

Somente funciona colocando: ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.nSeqEvento; ai me retorna (1)

[BigWings]

51 minutos atrás, DAHA disse:

sobre esse função retorna erro: Argument out of range

Somente funciona colocando: ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.nSeqEvento; ai me retorna (1)

Se teve o erro é por ter apenas um evento carregado, o índice máximo que pode informar é 0.

Você também pode colocar em um for:

for I := 0 to ACBrNFe1.EventoNFe.Evento.Count - 1 do
begin
  tpEv := ACBrNFe1.EventoNFe.Evento.Items[I].InfEvento.tpEvento;
  nSeq := ACBrNFe1.EventoNFe.Evento.Items[I].InfEvento.nSeqEvento;
end;