O problema é que o arquivo da AMEX não está sendo retornado no padrão correto...
o ACBrTEFD tem um tratamento específico para essa situação... Veja a procedure Inicilizar abaixo, onde diz: { Verificando se o arquivo de Resposta é invalido ou seja, gerado quando clica-se em 9 - CANCELAR sem selecionar nenhuma Bandeira }
procedure TACBrTEFDClass.Inicializar;
begin
if Inicializado then exit ;
ApagaEVerifica( ArqTemp ); // Apagando Arquivo Temporario anterior //
ApagaEVerifica( ArqReq ); // Apagando Arquivo de Requisicao anterior //
ApagaEVerifica( ArqSTS ); // Apagando Arquivo de Status anterior //
fpInicializado := True ;
GravaLog( Name +' Inicializado' );
{ Verificando se o arquivo de Resposta é invalido ou seja, gerado quando
clica-se em 9 - CANCELAR sem selecionar nenhuma Bandeira }
if FileExists( ArqResp ) then
begin
Resp.LeArquivo( ArqResp );
if UpperCase(Resp.Conteudo.LeInformacao(9,0).AsString) = 'FF' then
ApagaEVerifica( ArqResp );
Resp.Clear;
end ;
CancelarTransacoesPendentesClass ;
VerificaAtivo;
end;
A resposta do REDECARD:
Ou seja, não tem FF na resposta do AMEX
Não seria um BUG deles ??