Homologação SikTef Seq. 26

[ALA]

Senhores boa tarde. No teste 26 do SkiTef pede que:

1º Realize uma transação de débito

2º Ao solicitar para inserir ou passar o cartão, cancelar a operação pela aplicação..

No exemplo existe a opção de pressionar "Esc", para realizar esse procedimento, mas não esta funcionando. Existe algum evento que devo programar para isso funcionar....

[ALA]

Problema resolvido.

******************************************************************************

No click do botão CancelarResp =>    fCancelado  := True; // ala 31/07/207

*****************************************************************************

************************************************************************************************

No evento do ACBRTefD

procedure TForm1.ACBrTEFD1AguardaResp(Arquivo: string; SegundosTimeOut: Integer;   var Interromper: Boolean);
var
  Msg : String ;
begin
  Msg := '' ;
  if (ACBrTEFD1.GPAtual in [gpCliSiTef, gpVeSPague]) then   // É TEF dedicado ?
   begin                                                 
     //if (Arquivo = '23') and (not bCancelarResp.Visible) then  // Está aguardando Pin-Pad ?
     if (Arquivo = '23') and ( not  fCancelado) then  // Está aguardando Pin-Pad ?
     begin
        if ACBrTEFD1.TecladoBloqueado then
        begin
           ACBrTEFD1.BloquearMouseTeclado(False);  // Desbloqueia o Teclado
           // TODO: nesse ponto é necessário desbloquear o Teclado, mas permitir
           //       um clique apenas no botão cancelar.... FALTA CORRIGIR NO DEMO
        end ;

        Msg := 'Tecle "ESC" para cancelar.';
        bCancelarResp.Visible := True ;
        fCancelado := False;
     end;
   end
  else
     Msg := 'Aguardando: '+Arquivo+' '+IntToStr(SegundosTimeOut) ;

  if Msg <> '' then
     StatusBar1.Panels[2].Text := Msg;
  Application.ProcessMessages;

  if fCancelado then
  begin
     Interromper := True;
     fCancelado  := False; // ala 31/07/207
  end;
end;
**************************************************************************************