Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

Postado

A rotina abaixo configura o componente ACBRPOSPRINTER e uma vez ativado segue o processo de impressão linha a linha do cupom TEF (máximo 10 linhas)....
 If dm.ACBrPosPrinter1.Ativo then
    dm.ACBrPosPrinter1.Desativar;


  if dm.SQLTerminalAtivoTERMA100IMPRESSORANFCEMODELO.AsString = 'EPSON' then modeloimpressora := ppEscPosEpson
  else
  if dm.SQLTerminalAtivoTERMA100IMPRESSORANFCEMODELO.AsString = 'BEMATECH' then modeloimpressora := ppEscBematech
  else
  if dm.SQLTerminalAtivoTERMA100IMPRESSORANFCEMODELO.AsString = 'DARUMA' then modeloimpressora := ppEscDaruma
  else
  if dm.SQLTerminalAtivoTERMA100IMPRESSORANFCEMODELO.AsString = 'ELGIN' then modeloimpressora := ppEscElgin;

  // TODO Alex barbosa colocado para teste pois algumas daruma estavam se perdendo e nao imprimia todo o doc forum ACBr deu essa dica
  dm.ACBrPosPrinter1.Device.SendBytesInterval := 100;


  dm.ACBrPosPrinter1.Modelo        := modeloImpressora;
  dm.ACBrPosPrinter1.Device.Porta  := dm.SQLTerminalAtivoTERMA10IMPRESSORANFCEPORTA.AsString;
  dm.ACBrPosPrinter1.Device.Baud   := dm.SQLTerminalAtivoTERMA5IMPRESSORANFCEVELOCIDADE.AsInteger;
  dm.ACBrPosPrinter1.IgnorarTags   := False;
  dm.ACBrPosPrinter1.ControlePorta := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente

  dm.ACBrPosPrinter1.ColunasFonteNormal := (dm.SQLTerminalAtivoTERMIIMPRESSORANFCECOLUNAS.AsInteger);
  dm.ACBrPosPrinter1.LinhasEntreCupons   := (dm.SQLTerminalAtivoTERMIIMPRESSORANFCEPULOLINHAS.AsInteger);
  dm.ACBrPosPrinter1.CortaPapel := (dm.SQLTerminalAtivoTERMA1IMPRESSORANFCECORTAPAPEL.AsString = 'S');

  try
  dm.ACBrPosPrinter1.Ativar;
  except
    ShowMessage('Impressora Desligada\Desconectada. Reimprimir o cupom TEF através das Funções Administrativas!');
  end;

Ocorre algumas vezes nem sempre  que ao chegar no comando ativar, o sistema trava sem gerar exception, mesmo que estejamos tratando por um TRY EXCEPT, 

 

Há algum erro na rotina ou precisamos incluir algum comando ? 

 

temos a rotina do NFCE separado do EXE do checkout que tbm usa o ACBRPOS para imprimir a NFCE, que funcionou corretamente antes de travar o cupom TEF, não sei se faltou aqui algum comando de abrir fechar porta  ou algum outro comando 

  • Fundadores
Postado

Desculpe... não consegui compreender o problema...

Por favor tente reproduzir o problema, usando o Demo "PosPrinterTeste"... e poste um passo a passo...

Outra opção para investigarmos, é você criar pequeno Projeto de exemplo, onde o problema ocorra...

 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Postado
18 horas atrás, Daniel Simoes disse:

Desculpe... não consegui compreender o problema...

Por favor tente reproduzir o problema, usando o Demo "PosPrinterTeste"... e poste um passo a passo...

Outra opção para investigarmos, é você criar pequeno Projeto de exemplo, onde o problema ocorra...

 

ook, ja "resolvi"   

Descobri que sem o Try se só chamasse o    dm.ACBrPosPrinter1.Ativar;  dava o erro da imagem abaixo

image.thumb.png.f4f709df71f621e015de05348e05be3c.png

 

então deixei o try e só comentei o show conforme abaixo e foi!!

except
  //  ShowMessage('Impressora Desligada\Desconectada. Reimprimir o cupom TEF através das Funções Administrativas!');
  end;

 

Uma duvida o dm.ACBrPosPrinter1.ControlePorta := True;  ele ativa apenas na impressão ou nos comandos também?

Desconfio como ativo ele acima e depois dou dm.ACBrPosPrinter1.Ativar;  pode estar duplicando o comando? Se não é algo de ativar do acbr mesmo.

 

Postado
13 minutos atrás, Daniel Simoes disse:

Por favor verifique se não é algo semelhante ao reportado nesse tópico:

 

 

Realmente parece o mesmo problema mas é um tópico sem solução! Vou deixar assim como fiz, posi funcionou deixando o erro oculto!

 

Postado
2 minutos atrás, Daniel Simoes disse:

Perguntei porque no outro tópico o problema está melhor documentado.. e existe um passo a passo com o Demo... ainda pretendo investigar melhor o problema...

Gostaria , mas o tempo não permite, acredito se problema de porta mesmo, detalhe esse mercado são 7 caixas, 2 elgins , 2 epson e 3 daruma e da exatamente nas daruma, sempre fui fã daruma mas nestes ultimos anos estou ficando com um pé atraz

×
×
  • 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...