tef Abortar Transação TEF pela Aplicação

[JrLopes]

 Bom dia,

 Estou fazendo o roteiro da Software Express usando o ACBrTEFD + CliSitef via DLL.

 Na sequência 26 pede que a aplicação tenha um atalho ou botão para cancelar a transação enquanto aguarda a senha no pinpad.
 No exemplo do TEFD tem a seguinte anotação:
// TODO: nesse ponto é necessário desbloquear o Teclado, mas permitir
//       um clique apenas no botão cancelar.... FALTA CORRIGIR NO DEMO

Já existe alguma forma de fazer esse cancelamento ou alguém tem alguma dica de como implementar esse processo estou travado nesse ponto do roteiro. 

Obrigado   

Editado 27 Junho, 2019 por JrLopes

[Daniel Simoes]

tente

  ACBrTEFD1.BloquearMouseTeclado(False)

 

[JrLopes]

 Bom dia @Daniel Simoes 
 O evento OnAguardaResp do TEFD já estava com essa linha de código, eu já estava perdendo os poucos cabelos que eu tinha com essa situação mas acabei de resolver, a gente se desespera mas no final a resposta acaba sendo simples, basicamente um IF matou a questão, não sei se é a melhor solução mas resolveu certinho a questão do roteiro.  

Obrigado !!!!

procedure TfrmOpTEF.TEFDAguardaResp(Arquivo: string; SegundosTimeOut: Integer;var Interromper: Boolean);
begin
  Application.ProcessMessages;
  if (TEFD.GPAtual in [gpCliSiTef, gpVeSPague]) then   // É TEF dedicado ?
  begin
    if (Arquivo = '23') and (not btCancelar.Visible) then  // Está aguardando Pin-Pad ?
    begin
      if TEFD.TecladoBloqueado then
      begin
        TEFD.BloquearMouseTeclado(False); // Desbloqueia o Teclado
      end;

      btCancelar.Visible := True;
      btCancelar.SetFocus;
      cancelar := False;
      Application.ProcessMessages;
    end
      else
    begin
      Application.ProcessMessages;
      if cancelar = True then
      begin
        btCancelar.Visible := False;
        Interromper := True;
        cancelar    := False;
      end
        else
      begin
        cancelar := False;
        Exit;
      end;
    end;
  end;
  Application.ProcessMessages;
end;

 

[Daniel Simoes]

Parece ser isso mesmo... se desejar modificar o Demo, para que isso fique mais claro, eu posso subir os ajustes para o SVN...

 

[JrLopes]

13 minutos atrás, Daniel Simoes disse:

Parece ser isso mesmo... se desejar modificar o Demo, para que isso fique mais claro, eu posso subir os ajustes para o SVN...

 

 Vou providenciar então, mesmo no exemplo do Demo muda pouca coisa !!!