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');