ACBrTEFD - Interromper o fluxo de pagamento

[tisupport]

Boa tarde,

Estou utilizando o SitDemo e ACBrTEFD para homologação com SkyTef e me baseando no Demo ACBr para tal.

Estou tento dificuldade para interromper o fluxo de pagamento.

Quando pinpad está aguardando para inserir ou passar o cartão e eu clico no botão bCancelarResp nada acontece... A aplicação deveria questionar  "Operação Cancelada ?".

O evento OnClick do botão bCancelarResp está programado da seguinte forma:
   fCancelado := True ;
   bCancelarResp.Visible := False;

O evento OnAguardaResp está programado da seguinte maneira:
///////////////////////////////////////////////
var
  Msg : String ;
begin
  Msg := '' ;
  Application.ProcessMessages;
  if (ACBrTEFD1.GPAtual in [gpCliSiTef, gpVeSPague]) then   // É TEF dedicado ?
  begin
    if (Arquivo = '23') and (not bCancelarResp.Visible) then  // Está aguardando Pin-Pad ?
    begin
      if ACBrTEFD1.TecladoBloqueado then
      begin
        ACBrTEFD1.BloquearMouseTeclado(False); // Desbloqueia o Teclado
      end;

      Msg := 'Tecle "ESC" para cancelar.';
      bCancelarResp.Visible := True;
      bCancelarResp.SetFocus;
      fCancelado := False;
      Application.ProcessMessages;
    end else
    begin
      Application.ProcessMessages;
      if fCancelado = True then
      begin
        bCancelarResp.Visible := False;
        Interromper := True;
        fCancelado    := False;
      end else
      begin
        fCancelado := False;
        Exit;
      end;
    end;
  end else
  begin
     Msg := 'Aguardando: '+Arquivo+' '+IntToStr(SegundosTimeOut) ;
  end;

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

  Application.ProcessMessages;
///////////////////////////////////////////////

O que mais é necessário programar para que o fluxo seja cancelado ?

Obrigado à todos.

[tisupport]

Podem fechar o tópico...

Agradeço à todos mas já descobri onde está o erro.

 

 

[Juliana Tamizou]

Bom dia.

Que bom que  conseguiu solucionar, seria interessante citar também onde estava o problema para ficar como consulta para a comunidade.

Att.

[tisupport]

Bom dia

A minha lógica estava errada, havia um "fCancelado := False;" em local indevido...

Grato à todos

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.