Obter valor do TpEvento do CTE de cancelamento

[DelphiUser]

estou com duvidas para obter o valor do cte de cancelamento, não consigo obter o valor do <tpevento>. estou tentando usar essa função no ACBR, está errada ou não estou conseguindo usar corretamente.

 

evento := TpEventoToStr(ACBrCTe.Eventocte.Evento.items[2].RetInfEvento.tpevento);
 

[Juliomar Marchetti]

Me diz uma coisa se tu tá enviando o evento, no caso tu já sabe qual o evento que foi certo? ou é outra coisa?

mas sim funciona.

agora me diz uma coisa vi ali Items[2] tu tem certeza que só tem 2 itens?

[DelphiUser]

na verdade estou querendo pegar o evento do xml, para poder comparar com o 110111 pra poder entrar na função, está errado assim? eu procurei mas não consegui achar nenhum que mostrasse como pegar o tpevento do xml.

 

e quanto aos itens, sao apenas esses aqui:

Editado 21 Maio, 2021 por DelphiUser

[Juliomar Marchetti]

Falo dali , tem dois items nessa lista? veja se não tem, mais ou menos e está em outro a informação

[DelphiUser]

ah sim, no caso seria apenas 1 item mesmo que quero, que no caso seria o <tpevento> do xml, achei que aquele indice era o RetInfEvento da imagem que mostrei

[BigWings]

Essa rotina você dispara depois de qual método do componente?

[DelphiUser]

estou colocando após o LoadFromFile. aqui da pra ter uma noção melhor

[BigWings]

Agora, DelphiUser disse:

estou colocando após o LoadFromFile. aqui da pra ter uma noção melhor

O XML que você está carregando contém os eventos?

[DelphiUser]

1 minuto atrás, BigWings disse:

O XML que você está carregando contém os eventos?

contem sim, segue a parte que contem o InfEvento e o <tpevento>

 

[BigWings]

Como se trata do XML do evento e não do CTe, você tem que carregar da seguinte forma:

ACBrCTe1.EventoCTe.Evento.Clear;
ACBrCTe1.EventoCTe.LerXML(sPathArquivo);

if ACBrCTe1.EventoCTe.Evento.Items[0].RetInfEvento.tpEvento = teCancelamento then
  ShowMessage('Evento é do tipo 110111-cancelamento');

 

[DelphiUser]

9 minutos atrás, BigWings disse:

Como se trata do XML do evento e não do CTe, você tem que carregar da seguinte forma:

ACBrCTe1.EventoCTe.Evento.Clear;
ACBrCTe1.EventoCTe.LerXML(sPathArquivo);

if ACBrCTe1.EventoCTe.Evento.Items[0].RetInfEvento.tpEvento = teCancelamento then
  ShowMessage('Evento é do tipo 110111-cancelamento');

 

Funcionou agora, percebi o que estava fazendo errado. Obrigado pela Ajuda

[BigWings]

Obrigado por reportar.

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