paygo web Limpar mensagem PinPad

[Rui Menezes Desenvolvedor]

Bom dia,

 

no ACbrPaygo Web , como faco para limpar mensagem  no pin pad

desde ja agradeco

[Daniel Simoes]

Experimente usar o exemplo abaixo, porém enviando uma String vazia...

procedure TFormPrincipal.btMsgPinPadClick(Sender: TObject);
var
  Msg: String;
begin
  Msg := 'PROJETO ACBR|'+FormatDateTimeBr(now,'DD/MM HH:NN:SS');
  ACBrTEFD1.ExibirMensagemPinPad(Msg);
end;  

 

[Rui Menezes Desenvolvedor]

22 horas atrás, Daniel Simoes disse:

Experimente usar o exemplo abaixo, porém enviando uma String vazia...

procedure TFormPrincipal.btMsgPinPadClick(Sender: TObject);
var
  Msg: String;
begin
  Msg := 'PROJETO ACBR|'+FormatDateTimeBr(now,'DD/MM HH:NN:SS');
  ACBrTEFD1.ExibirMensagemPinPad(Msg);
end;  

 

essa propriedade ExibirMensagemPinPad  não tem ela,  parece que foi removida do fonte , acbrtefd.pas 

Editado 26 Novembro, 2020 por Rui Menezes Desenvolvedor

[Rui Menezes Desenvolvedor]

Olha só o  que esta acontecendo ,  o usuário efetua a venda chama  a função cartão ,  na hora de inserir o cartão ele cancela no pinpad e o mesmo fica com a mensagem  OPERAÇÃO CANCELADA e não limpa ate que efetue outra venda com cartão. 

[Juliomar Marchetti]

Note que na aplicação de exemplo tem a chamada da função para mudar a msg no pinpad em alguns eventos do componente

verifica e tente colocar ela nos locais indicados

[Rui Menezes Desenvolvedor]

Nao sei se e o correto mas adicionei um linha de codigo na unit ACBrTEFGoWebComum linha 1459, foi o que resolveu , ou não  deveria mostra  mensagem de erro no pinpad., 

1453   // ERRO //
1454   if (Trim(MsgError) <> '') then
1455    begin
1456     ExibirMensagem(MsgError, tmOperador, CMilissegundosMensagem);
1457     MsgPinPad := ObterInfo(PWINFO_CNCPPMSG);

1459     if trim(MsgPinPad)='OPERACAO        CANCELADA' then  MsgPinPad:='';

1460      if (Trim(MsgPinPad) <> '') then
 1461     begin
 1462        GravarLog('xPW_iPPDisplay( '+MsgPinPad+' )');
  1463       iRetPP := xPW_iPPDisplay( PAnsiChar(AnsiString(MsgPinPad)) );
  1464       GravarLog('  '+PWRETToString(iRetPP));
  1465    end;

   1466   AbortarTransacao;
  1467    if (iRet = PWRET_OK) then
  1468       iRet := PWRET_INVCALL;
  1469    end;

 

 

Editado 26 Novembro, 2020 por Rui Menezes Desenvolvedor

[Daniel Simoes]

Não é muito bom, fazer IFs baseados em String... pois se eles mudarem a mensagem, o seu código quebra...

Por favor verifique o seguinte:
- Seus fontes estão atualizados ?  (repare que houve mudanças recentes, relacionadas a isso)
- O método "ExibirMensagemPinPad", existe sim no componente... basta abrir o TEFDemoNF, e conferir o código do botão "Msg PinPad"