ExibirMensagemPinPad via CliSiTef

CarlosAR · 3 Fevereiro, 2021

Boa tarde,

Sou novo na utilização do ACBr e do fórum, pesquisei e não sei bem se é este o local correto para informar uma possível correção.

No arquivo ACBrTEFDCliSiTef.pas na função ExibirMensagemPinPad retorna o erro "0 - Negada pelo autorizador", sendo que a mensagem é enviada corretamente.

Na respectiva função sugiro a seguinte alteração, uma vez que o manual de Especificação Técnica da CliSiTef na página 20 diz que o retorno de código "0" quer dizer "Sucesso na execução da função".

Antes:

procedure TACBrTEFDCliSiTef.ExibirMensagemPinPad(const MsgPinPad: String);
var
Ret: Integer;
Erro: String;
begin
Ret := DefineMensagemPermanentePinPad(MsgPinPad);
Erro := fSiTefAPI.TraduzirErro(Ret);
if (Erro <> '') then
raise EACBrTEFDErro.Create( ACBrStr(Erro) ) ;
end;

Depois:

procedure TACBrTEFDCliSiTef.ExibirMensagemPinPad(const MsgPinPad: String);
var
Ret: Integer;
Erro: String;
begin
Ret := DefineMensagemPermanentePinPad(MsgPinPad);
if Ret <> 0 then
Erro := fSiTefAPI.TraduzirErro(Ret);
if (Erro <> '') then
raise EACBrTEFDErro.Create( ACBrStr(Erro) ) ;
end;

Ou talvez uma correção na função TACBrTEFCliSiTefAPI.TraduzirErro para prever o recebimento do código "0".

Obrigado