AcbrTefD CAPPTA ao aprovar a venda a tela some

[jeffdelphi]

Depois que atualizei os componentes, quando passo o cartão e é aprovado, a tela principal do PDV some, fica oculta e só sai no CTRL+ALT+DEL, alguém já passou por isso? na versão anterior funciona normalmente.

[Daniel Simoes]

Verifique esse questão da imagem abaixo... conforme demonstrado no Demo do ACBr

Observe que agora a API retorna tmTodas, para exibição em todas as Telas

[jeffdelphi]

Estou usando ainda o AcbrTEFD!!

[Daniel Simoes]

o mesmo se aplica.. veja os fontes do projeto TEFDemoNF

[jeffdelphi]

Não tem a opcao Terminal!!

 

[cristianocruzzz]

Parece que no exemplo que o @Daniel Simoes falou, tem o tipo da operação, que indica o que fazer.
 

procedure TFormPrincipal.ACBrTEFD1ExibeMsg(Operacao: TACBrTEFDOperacaoMensagem;
  Mensagem: String; var AModalResult: TModalResult);
var
   Fim : TDateTime;
   OldMensagem : String;
begin
  case Operacao of
    opmOK:
      begin
        if ACBrTEFD1.GPAtual = gpPayGoWeb then
          PayGoWebExibeMensagem( Mensagem, tmOperador, CMilissegundosMensagem)
        else
          AModalResult := MessageDlg( Mensagem, mtInformation, [mbOK], 0);
      end;

    opmYesNo:
       AModalResult := MessageDlg( Mensagem, mtConfirmation, [mbYes, mbNo], 0);

    opmExibirMsgOperador:
      MensagemTEF(Mensagem,'') ;

    opmRemoverMsgOperador:
      MensagemTEF(' ','') ;

    opmExibirMsgCliente:
      MensagemTEF('', Mensagem) ;

    opmRemoverMsgCliente:
      MensagemTEF('', ' ') ;

    opmDestaqueVia:
      begin
        OldMensagem := lMensagemOperador.Caption;
        try
          { Aguardando 3 segundos }
          Fim := IncSecond(now, 3)  ;
          repeat
            MensagemTEF(Mensagem + ' ' + IntToStr(SecondsBetween(Fim,now)), '');
            Sleep(200) ;
          until (now > Fim) ;
        finally
          MensagemTEF(OldMensagem, '');
        end;
      end;
  end;
end;

Repara o case Operacao.
opmExibirMsgOperador, opmRemoverMsgOperador
opmExibirMsgCliente, opmRemoverMsgCliente

Editado 8 Dezembro, 2021 por cristianocruzzz

[Daniel Simoes]

Humm.. se você usa Troca de Arquivos (TXT).. verifique se está configurado como gpPayGo...

Motivo: todos os campos que são específicos da documentação da PayGo, migraram para essa Classe