Ler os Eventos

[marco_visao]

Boa Noite,

Estou precisando de ler todos os eventos do xml.

Exemplo: (Cancelamento....)

Eu sempre usei assim, Hoje dia 25/03/2019 parou de funcionar.

Rotina:

ACBrNFc.WebServices.Consulta.NFeChave := pchave;
ACBrNFc.WebServices.Consulta.Executar;

for I := 0 to ACBrNFc.WebServices.Consulta.procEventoNFe.Count -1 do
begin
    // Cancelamento
    (StrToInt64Def( TpEventoToStr(ACBrNFc.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.retEvento.Items.RetInfEvento.tpEvento) ,0) = 110111)
end    
    
Atenciosamente,

Marco Antonio.

[Felipe E. Resende Mesquita]

13 horas atrás, marco_visao disse:

 

Boa tarde, marco_visao.

Os fontes estão atualizados? Consegue reproduzir o erro com o demo na pasta exemplos?

[Aggille Sistemas de Gestão]

abri um chamado antes e o que eu coloquei lá reflete na questão dos eventos.. reparei que as consultas não estavam trazendo mais os eventos...o WebServices.Consulta.procEventoNFe.Count sempre vinha zero... 

na Unit pcnRetConsSitNfe, na linha 204 está gerando uma exception, porque no retorno não tem a tag cMsg... então ele gera a exception e vai pro Except , portanto não conclui o resto da consulta.. comentei essa linha e voltou a funcionar perfeitamente, trazendo certingo os procEventonfe... acho que ali deveria ter um try..except..proprio

                 try
                     protNFe.cMsg     := Leitor.rCampo(tcStr, 'cMsg');
                 except
                     protNFe.cMsg := 0;
                 end;
 

coloquem um ponto de parada nessa linha e vão ver que gera um exception...

esse código acima resolve situação

[marco_visao]

boa noite,

Já esta resolvido, atualizei os fonte hoje novamente ficou certo.

Obrigado a todos.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.