Erro ao ativar Demo com vesPague

[luciano_f]

Pessoal estou fazendo testes com o Demo do Acbr usando o VesPague em Background

Peguei a ultima versão do emulador da Bematech ativei a impressora na Porta COM1 e o demo do acbrTefd na COM2 quando vou ativar o gpVeSPague dá erro de "AccessViolation"

ativei o eurekaLog sobre o projeto para ver onde está o problema

Function TACBrTEFDVeSPague.DesConectar : Integer ;

begin

fSocket.CloseSocket; // o erro está na linha 725

Result := fSocket.LastError;

end;

Estou usando a ultima versão do "Client Simulator" do site "http://www.vespague.com.br/"

o Interessante que tinha feito testes com uma versão anterior do ACBRTEFD e estava funcionando mais com a versão 2.0 está dando esse erro.

[Juliomar Marchetti]

você está usando emulador de porta ou um cabo para fazer teste com o emulador?

[luciano_f]

Estou usando um Emulador de Porta e inclusive o esta fazendo os cupoms fiscais certinho.

[luciano_f]

Achei o erro está na procedure de inicialização do componente

procedure TACBrTEFDVeSPague.Inicializar;

var

Erro, Tentativas : Integer ;

begin

if Inicializado then exit ;

if not Assigned( OnExibeMenu ) then // o erro está aqui porque não tem nada no evento do Demo.

raise Exception.Create( ACBrStr('Evento "OnExibeMenu" não programado' ) ) ;

if not Assigned( OnObtemCampo ) then

raise Exception.Create( ACBrStr('Evento "OnObtemCampo" não programado' ) ) ;

[Daniel Simoes]

O erro é forçado por código...

se você não programar esses eventos o componente não funcionará corretamente...

Estude o código fonte do Demo do ACBrTEFD antes

[freitagnx]

Caraca, toh enroscado nessa situação, já estudei todo o código e não consigo aprumar... hehehe

Se puder clarear a mente deste pobre mortal...

Att.

Leonardo Freitag

[Daniel Simoes]

Não compreendi o que você quiz dizer...

Qual a msg de erro ?

[freitagnx]

Já resolvi, desculpe a postagem ruim...

Att..

Leonardo Freitag

[jairobernardesjunior]

BOM DIA SENHORES! 

 

estou tentando inicializar o acbrtefd e ocorreo seguinte erro neste comando -> ACBrTEFD1.Inicializar( TACBrTEFDTipo( 4 ) ); 

 

erro:   EVENTO "ONEXIBEMENU" NÃO PROGRAMADO

 

O código segue abaixa, se alguém puder me ajudar fico grato.

uso gpclisitef que é a posição 4.

 

  with frmlogon do

    begin

      ACBrTEFD1.TEFCliDTEF.NumVias := qryCaixas_numero_vias_tef.value;

      FmtStr(NumeroTerminal,'%.3d',[qryCaixas_numero_terminal_tef.value]);

      ACBrTEFD1.TEFCliDTEF.NumeroTerminal := NumeroTerminal;

      ACBrTEFD1.TEFCliDTEF.ArqResp := qryCaixas_path_arqresp_tef.value;

      ACBrTEFD1.TEFCliSiTef.Habilitado := true;

      ACBrTEFD1.AutoEfetuarPagamento := boolean(qryCaixas_auto_efetuar_pagamento_tef.Value);

      ACBrTEFD1.AutoFinalizarCupom := boolean(qryCaixas_auto_finaliza_cupom_tef.Value);

      ACBrTEFD1.MultiplosCartoes := boolean(qryCaixas_multiplos_cartoes_tef.Value);

      ACBrTEFD1.AutoAtivarGP := boolean(qryCaixas_auto_ativar_gp_tef.Value);

      ACBrTEFD1.CHQEmGerencial := boolean(qryCaixas_chq_emgerencial_tef.Value);

      ACBrTEFD1.EsperaSleep := qryCaixas_espera_sleep_tef.Value;

      ACBrTEFD1.EsperaSTS := qryCaixas_espera_sts_tef.Value;

    end;

 

  mResp.Lines.Add('' );

  mResp.Lines.Add('Inicializando: ' + 'gpCliSiTef' );

  ACBrTEFD1.Inicializar( TACBrTEFDTipo( 4 ) );   // MSG: EVENTO "ONEXIBEMENU" NÃO PROGRAMADO

  mResp.Lines.Add('ACBrTEFD.Inicializar Executado' );

[Juliomar Marchetti]

Bom dia!

em primeiro mesmo sendo no meio não é necessário escrever em caixa alta o texto pois entendemos!

e se perceber a mensagem está avisando que para usar o componente se faz obrigatório programar o evento do ACBrTEFD OnExibeMenu para que ele funcione!

sugiro olhar o DemoTEFD que existe na pasta exemplos e vai entender o funcionamento do mesmo!

[jairobernardesjunior]

Olá Juliomar, me desculpe, as fonte saiu em caixa alta porque eu copiei e colei.

 

Esse evento OnExibeMenu tem que estar no componente acbrtefd? No demo não existe esse evento.

[Juliomar Marchetti]

Existe sim! vai lá e confere no código da unit que você vai encontrar!

a menos que tenha modificado ele

[jairobernardesjunior]

Fiz Uma atualização fazer acbr Nesse momento e listei OS eventos que acbrtefd fazer demotefd, de Uma olhada.

[Juliomar Marchetti]

Certo e ali onde tem o TEFCliSitef tem um sinal de +

tentou clicar ?

[jairobernardesjunior]

Cara se tudo fosse tão simples assim.....

muito obrigado.