Ir para conteúdo
  • Cadastre-se

dev botao

OnChangeEStado não é disparado após finalizar cupom


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

Recommended Posts

Amigos, estou usando o evento OnChangeEstado para que eu possa saber o estado atual da impressora e o anterior, sem ficar indo toda hora na impressora, com o seguinte código:


  Funcoes.EstadoAtualECF := EstadoAtual;

  Funcoes.EstadoAnteriorECF := EstadoAnterior;

Pois bem.. através das variáveis eu habilito/desabilito algumas coisas.. eis que ao finalizar o cupom, o evento não é acionado.. permanecendo no estado de Venda.. mas o mais interessante é que se eu consultar o estado através do componente, ele me retorna como Livre...

O que pode ser que está acontecendo?

Obrigado

[]s

Link para o comentário
Compartilhar em outros sites

Acabei de atualizar, e testar e realmente não passa lá..

estou usando assim para fechar:


if UsouTEF then

    begin

      DM.ACBrTEFD1.ImprimirTransacoesPendentes;

      DM.ACBrTEFD1.FinalizarCupom;

    end

    else

      DM.ACBrECF.FechaCupom(AnsiString(Funcoes.VerificaPersonal('MSG_FINALCUPOM')), 0);

Usando ou Não o TEF ele não passa no evento..

[]s

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Parece estar tudo normal pelo teu log, inclusive pelo que vi no log o ACBrECF consulta o estado após o fechamento do cupom.

Você testou pelo ECFTeste? ele agora tem um painel na barra de status que mostra o estado anterior e o atual.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

procedure TForm1.AtualizaMemos(VerificaEstado : Boolean = true) ;
begin
  mEnviado.Text := Converte( ACBrECF1.ComandoEnviado );
  mResp.Lines.Add( Converte( ACBrECF1.RespostaComando) );
  mResp.Lines.Add('- + - + - + - + - + - + - + - + - + - + - + -') ;
//  if VerificaEstado then
//     StatusBar1.Panels[0].Text :=  EstadoECF ;
end;

 

Se voce deixar assim, ja não funciona mais o OnChangeEstado

 

Ps: Estou usando uma Elgin

Editado por DanielSanTB
Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...