var
Msg: String;
begin
Msg := '';
if (ACBrTEFD.GPAtual in [gpCliSiTef, gpVeSPague, gpPayGoWeb]) then
begin //Alteração para evitar cancelamento com enter precionado no tef normal
// 23 = TEF | 52 = Pix e PicPay
if (Arquivo = '23') or (Arquivo = '52') then // Está aguardando Pin-Pad ?
begin
if ACBrTEFD.TecladoBloqueado then
ACBrTEFD.BloquearMouseTeclado(False); // Desbloqueia o Teclado
Msg := 'Tecle "ESC" para cancelar.';
end;
end
else
Msg := 'Aguardando: ' + Arquivo + ' ' + IntToStr(SegundosTimeOut);
Application.ProcessMessages;
if Msg <> '' then
if (ACBrTEFD.GPAtual in [gpCliSiTef, gpVeSPague, gpPayGoWeb]) then
LabelConfirmaValores.Caption := Msg
else
FCaixa.labelDescricaoProduto.Caption := Msg;
if CartaoCancelado then
Interromper := True;
end;
o código é esse acima, para o tef ou para quando exibir o qrcode em tela funciona certinho, mas quando joga o qrcode no pinpad que da o problema