Impressão sem dados no Evento MDFe usando o ACBrMDFe.EventoMDFe.LerXMLFromString

[RibaSoft]

Olá a todos.

Estou tentando imprimir eventos do MDFe, uso o mesmo padrão tanto no NFe, NFCe, CTe e todos funcionam porém ao tentar com o MDFe ele retorna vazio com mensagem de "cancelamento" mesmo sendo um evento de encerramento. Se eu uso o método auxM.EventoMDFe.LerXML funciona perfeitamente, mas se uso o auxM.EventoMDFe.LerXMLFromString não funciona.

Acabei de zerar o ACBr e o Lazarus do me PC e continua da mesma forma, estou desde sedo procurando nos tópicos e não achei nada que resolvesse.

var
  auxXML: string;
  auxM: TACBrMDFe;
  auxI: TACBrMDFeDAMDFeRL;
begin
  DataModulo.OpenSQL('SELECT XML FROM MDF_EVENTOS WHERE ID = 1);
  auxXML := DataModulo.Query.FieldByName('XML').AsString;

  try
    auxM := TACBrMDFe.Create(nil);
    auxM.EventoMDFe.LerXMLFromString(auxXML);

    try
      auxI := TACBrMDFeDAMDFeRL.Create(nil);
      auxM.DAMDFE := auxI;
      auxM.ImprimirEvento;
    finally
      FreeAndNil(auxI);
    end;
    
  finally
    FreeAndNil(auxM);
  end;
end;

Editado 5 Janeiro por RibaSoft

[RibaSoft]

Consegui descobrir aqui, eu estava pegando o retorno do evento de forma errada.

Estou usando esse agora e deu certo. "auxMDF.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML;".

Obrigado. Da minha parte pode fechar o Tópico.

[Alexandre de Paula]

Obrigado por reportar.

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