TEF com NFC-e OnAguardaResp

[Hetosoft Sistemas]

Estou usando o exemplo 

D:\Componentes\ACBr_XE6\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF 

para fazer tefdedicado com nfc-e, mais quando eu 

Inicializar gpCliSiTef, da erro "Evento OnAguardaResp não programado"

 

[Juliomar Marchetti]

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.

[Hetosoft Sistemas]

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;

[Juliomar Marchetti]

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

[Hetosoft Sistemas]

verdade, acho que to com versão antiga, porque quando compilo fala que o evento é incompativel e manda excluir o evento. vou atualizar tudo e testa, obrigadoooo.