Duplicidade Ct-E, Exibir Informações Referente.

[Binho Biatheski]

Olá, bom dia,

 

Estou tratando os erros de retorno ao enviar CT-e conforme abaixo:

...

try

    ACBrCTe.Enviar(liCTe);

Except

    on E: Exception do

     begin

         if (Pos('Duplicidade', E.Message)<>0) then

          begin

              ACBrCTe.WebServices.Consulta.CTeChave := copy(E.Message, Pos('[chCTe:', e.Message) + 7,44);

              ACBrCTe.WebServices.Consulta.Executar;

 

Através da chave informada consigo consultar os dados no site, tem como salvar o xml pelo ACBr? Gostaria de exibir as informações do Ct-e original, tentei com o RetornoWS.

 

//  memo1.Lines.Add(ACBrCTe.WebServices.Consulta.RetornoWS);

//  memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'temp.xml');

// ACBrCte.Conhecimentos.LoadFromFile(ExtractFilePath(Application.ExeName)+'temp.xml');