Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

TEF com NFC-e OnAguardaResp


hetoandrade
  • Este tópico foi criado há 1793 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Depende de qual a solução que tu está usando ele pode não estar programado esse evento que é necessário!

basta tu programar ele!

acho que no exemplo acbrtefd tem ele programado bastando adaptar.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Membros Pro

sim programei coloquei o mesmo do exemplo 

D:\Componentes\ACBr_XE6\Exemplos\ACBrTEFD\Delphi

mais mesmo assim, da o mesmo erro. e no demo exemplo do ACBrTEFD ta tudo ok,

 

 

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 ?
     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
     Interromper := True ;
end;

Link to comment
Share on other sites

  • Consultores

Olhe que tem um grupo que é do Sitef separado e tem um evento só pra ele desse.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.