Retorno de descrição de evento consulta webservice

[Adriano Luiz de Souza]

Bom Dia a Todos ! Estou fazendo uma consulta de uma NFe pela chave mas no retorno das informações não consegui obter a informação da TAG descEvento localizada no nó procEventoNFe, evento, InfEvento, detEvento. Pelas propriedades do componente ACBrNFe só consegui acesso a RetEvento na qual não retorna a informação que eu preciso. Gostaria de saber se tem alguma forma de recuperar essa informação que está dentro de DescEvento em DetEvento que diz "Registro Passagem NFe". Em anexo o XML do retorno da consulta e abaixo a maneira que eu faço a recuperação dos dados.

Muito obrigado pela atenção

Adriano

 

  NFe.WebServices.Consulta.NFeChave := chaveEdit.Text;
  NFe.WebServices.Consulta.Executar;

  MemoResp.Lines.Text :=  UTF8Encode(NFe.WebServices.Consulta.RetWS);
  LoadXML(MemoResp, WBResposta, path_tmp );

  cstatEdit.Text            := IntToStr( NFe.WebServices.Consulta.protNFe.cStat );
  ds_situacaoEdit.Text      := NFe.WebServices.Consulta.protNFe.xMotivo;

  eventoCDS.Append;
  eventoCDScstat.AsInteger      := NFe.WebServices.Consulta.protNFe.cStat;
  eventoCDSdt_evento.AsDateTime := NFe.WebServices.Consulta.protNFe.dhRecbto;
  eventoCDSds_evento.AsString   := NFe.WebServices.Consulta.protNFe.xMotivo;
  eventoCDStp_evento.AsString   := '';
  eventoCDS.Post;

 

  if NFe.WebServices.Consulta.retCancNFe.cStat = 101 then
  begin
    msgInformacao( 'NFe cancelada');
    cstatEdit.Text            := IntToStr( NFe.WebServices.Consulta.retCancNFe.cStat );
    ds_situacaoEdit.Text      := NFe.WebServices.Consulta.retCancNFe.xMotivo;
  end;

  for i := 0 to NFe.WebServices.Consulta.procEventoNFe.Count-1 do
  begin
    if NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpEvento = teCancelamento then
    begin
      cstatEdit.Text            := IntToStr( NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.cStat );
      ds_situacaoEdit.Text      := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento;
      msgInformacao( 'NFe cancelada');
    end;
    eventoCDS.Append;
    eventoCDScstat.AsInteger      := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.cStat;
    eventoCDSdt_evento.AsDateTime := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.dhEvento;
    eventoCDStp_evento.AsString   := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.TipoEvento;
    eventoCDSds_evento.AsString   := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento;
    eventoCDS.Post;
  end;
  eventoCDS.First;

tmp.xml