ACRbrTEFD (VeSPague) - Correção do cancelamento CNC

[giulianon]

Boa noite colegas!

Segue correção do cancelamento de uma transação com o VeSPague.

O parâmetro Resposta do evento ObtemCampo estava sendo passado ao AddParamString como AnsiString.

No caso do cancelamento, quando é solicitado usuário e senha, a informação repassada como resposta era "distorcida", acredito eu que pelo fato do AnsiString se eu não me engano ser menor que o String.

Exemplo:

Usuario informado na edit do form de coleta = Lojista

Senha informada na edit do form de coleta = Lojista

O que era enviado ao VeSPague

-- 29/03/12 11:43:45

TRANSMITINDO ->

automacao_coleta_sequencial="1"

automacao_coleta_informacao="L o j i"

automacao_coleta_retorno="0"

Na verdade esse problema acontecia com qualquer informação alfanúmerica com mais de 1 caracter, o que não acontece no processo de CRT já que a maioria as informações são coletadas via Menu e não campo.

Só alterei de AnsiString pra String e funcionou certinho.

Em anexo o arquivo com a correção para que o pessoal avalie e atualize no svn se estiver ok.

Abraço!

ACBrTEFDVeSPague.pas

[Daniel Simoes]

Oi Giuliano,

Qual é a versão do seu Delphi ?

[giulianon]

Oi Giuliano,

Qual é a versão do seu Delphi ?

Delphi XE Daniel.

[Daniel Simoes]

Notei que a modificação não afetou D7 e/ou Lazarus, portanto já subi para o SVN... obrigado pela correção

[giulianon]

Notei que a modificação não afetou D7 e/ou Lazarus, portanto já subi para o SVN... obrigado pela correção

Opa! Tranquilo então.

Obrigado Daniel!

Abraço!