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

[Daniel Simoes]

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;