Jump to content

dev botao

Após atualizar o ACBr, as mensagens do PayGoWeb não aparecem na Tela do Operador


  • Este tópico foi criado há 936 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Fundadores

Este tópico lhe ajudará na resolução desse problema...

Se após atualizar o ACBr, você está tendo problemas de exibição das Mensagens do Operador/Cliente, isso se deve devido a uma mudança na API, que agora tem um parâmetro novo, com a indicação que a Mensagem deve ser exibida em Todas as telas...

Para ajustar os seus fontes, é bem simples, basta adicionar uma condição para Terminal = tmTodas

  • Exemplo para aplicações que usam o componente ACBrTEFD
procedure TFormPrincipal.PayGoWebExibeMensagem(Mensagem: String;
  Terminal: TACBrTEFPGWebAPITerminalMensagem; MilissegundosExibicao: Integer);
var
  FormExibeMensagem: TFormExibeMensagem;
begin
  if (Mensagem = '') then
  begin
    if (Terminal in [tmCliente, tmTodas]) then    // <--------- AQUI ----------
      MensagemTEF('',' ') ;
    if (Terminal in [tmOperador, tmTodas]) then
      MensagemTEF(' ','') ;
  end

  else if MilissegundosExibicao >= 0 then
  begin
    FormExibeMensagem := TFormExibeMensagem.Create(Self);
    try
      FormExibeMensagem.Mensagem := Mensagem;
      FormExibeMensagem.TempoEspera := MilissegundosExibicao;
      FormExibeMensagem.ShowModal;
    finally
      FormExibeMensagem.Free;
    end;
  end

  else
  begin
    if (Terminal in [tmCliente, tmTodas]) then      // <--------- AQUI ----------
      MensagemTEF('',Mensagem) ;
    if (Terminal in [tmOperador, tmTodas]) then
      MensagemTEF(Mensagem,'') ;
  end;
end;   

 

  • Exemplo para aplicações que usam o componente ACBrTEFAPI
procedure TFormPrincipal.ACBrTEFAPI1QuandoExibirMensagem(
  const Mensagem: String; Terminal: TACBrTEFAPITela;
  MilissegundosExibicao: Integer);
var
  FormExibeMensagem: TFormExibeMensagem;
begin
  if (Mensagem = '') then
  begin
    if (Terminal in [telaCliente, telaTodas]) then      // <--------- AQUI -----------
      MensagemTEF('',' ');
    if (Terminal in [telaOperador, telaTodas]) then
      MensagemTEF(' ','');
  end
  else if (MilissegundosExibicao >= 0) then
  begin
    FormExibeMensagem := TFormExibeMensagem.Create(Self);
    try
      FormExibeMensagem.Mensagem := Mensagem;
      FormExibeMensagem.TempoEspera := MilissegundosExibicao;
      FormExibeMensagem.ShowModal;
    finally
      FormExibeMensagem.Free;
    end;
  end
  else
  begin
    if (Terminal in [telaCliente, telaTodas]) then            // <--------- AQUI -----------
      MensagemTEF('',Mensagem);
    if (Terminal in [telaOperador, telaTodas]) then
      MensagemTEF(Mensagem,'');
  end;
end;  

 

  • Like 5
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.