Cartão Inválido

[Itajahy]

Estou com problema, todos os cartões de credito que testo aparecem como inválidos , uso Win8, já testei cartões validos e todos estão dando mensagem de inválido.

estou usando o simulador sitef com o Demo do ACBrTEFD, segue o log. Testei uma outra aplicação de teste que tenho, o cartão passou. Alguém tem ideia do que possa ser? 

 

CliSiTef .txt

[Juliomar Marchetti]

Bom dia

você deve de entrar em contato com o pessoal da Sitef para orientar sobre as configurações necessárias para o funcionamento do Simulador deles!

[Itajahy]

Senhores,

o problema do cartão invalido no demo Tef do ACBR, no procedimento:

 

procedure ACBrTEFD1CliSiTefObtemCampo(Titulo: string; TamanhoMinimo,

      TamanhoMaximo, TipoCampo: Integer;

      Operacao: TACBrTEFDCliSiTefOperacaoCampo; var Resposta: AnsiString;

      var Digitado, VoltarMenu: Boolean);

 

que é amarrado ao evento onObtemCampo.

 

No demo o campo resposta está String e ele espera AnsiString, causando assim o erro.

[Juliomar Marchetti]

Por favor anexe o fonte alterado que subimos ao svn a correção~!

[Itajahy]

Segue em anexo o fonte, alterei a unit principal do demo.

 

Unit1.pas

Unit1.pas