AcbrSatEscPos Daruma Dr700

[Lucas Alves]

Boa noite a todos

 

Estou tentando imprimir um extrato Resumido do Sat na Impressora Daruma Dr700 e  me retorna somente Comunication erro5: Acesso negado.

 

estou usando a dll da daruma na pota com2 Serial.

 

Esou passando algo errado ?

 

ACBrSAT1.Extrato := ACBrSATExtratoESCPOS1;
ACBrPosPrinter1.Desativar;
ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo( 3 );
ACBrPosPrinter1.PaginaDeCodigo := TACBrPosPaginaCodigo( 2 );
ACBrPosPrinter1.Porta := vSat_PrinterPorta;
ACBrPosPrinter1.ColunasFonteNormal := 48;
ACBrPosPrinter1.LinhasEntreCupons := 0;
ACBrPosPrinter1.EspacoEntreLinhas := 0;
ACBrSATExtratoESCPOS1.ImprimeQRCode := True;
ACBrSATExtratoESCPOS1.ImprimeEmUmaLinha := True

ACBrSAT1.ImprimirExtratoResumido;

[Daniel Simoes]

O componente ACBrPosPrinter, não faz uso da DLL da Daruma...

 

[Lucas Alves]

Entendi Daniel, eu uso a Dll para demais impressões e funciona corretamente, mas quando eu mando imprimir o extrato esta dando comunication erro 5, isso e porque não esta conseguindo liberar na porta. No acbrPosPrinter ControlePorta setei para True.

Nao Precisa colocar o AcbrPosPrinter.Ativar nao ?

[Régys Silveira]

24 minutos atrás, Lucas Alves disse:

Entendi Daniel, eu uso a Dll para demais impressões e funciona corretamente, mas quando eu mando imprimir o extrato esta dando comunication erro 5, isso e porque não esta conseguindo liberar na porta. No acbrPosPrinter ControlePorta setei para True.

Nao Precisa colocar o AcbrPosPrinter.Ativar nao ?

Então é isso, a DLL está bloqueando a porta é o componente não consegue conectar, ou você utiliza somente o componente ou acha uma configuração ou forma de fazer com que a DLL não trave a porta.

[Daniel Simoes]

Realmente não faz sentido usar ambos... 

Talvez a DLL tenha uma opção parecida com o "ControlePorta" do ACBrPosPrinter

Como vantagem, o ACBrPosPrinter é compatível com vários equipamentos...

Rode o PosPrinterTeste, e veja todas as "Tags" em ação 

[Lucas Alves]

Para eu usar o PosPrinter entao teria que modificar todo o sistema onde usa a chamada da dll e usar somente o PosPrinter. Estava pensando em criar o arquivo extrato.txt do sat e depois imprimir o arquivo. Mas parece que ele imprime somente algumas partes do arquivo somente o cabeçalho me parece.

3011290316175909.txt

[geanjesus]

Ola Lucas, va no diretorio do seu executavel onde deve  estar o darumaframework.xml

abra-o  com o notepad e abaixo procure pela chave <ControleAutomatico>  , deve estar com 0(zero),  entao mude para 1(um)  e salve o arquivo...

e vai resolver seu problema....

se esta chave tiver com zero, ela vai segurar a porta serial, se tiver com 1 , vai usar e fechar a porta liberando-a...ok?

e mais ou menos o que o acbr faz com o ControlePorta = true...

Editado 31 Março, 2016 por geanjesus

[geanjesus]

Para Dr700 mudar abaixo de <DUAL>, mas eu costumo mudar todas as chaves <ControleAutomatico> no arquivo xml para 1

[Lucas Alves]

Gean fiz conforme o que voce passou mas estou criando o arquivo.txt e imprimo ele via .bat pois o erro de porta parou mas nao imprime, mas criei um .bat e imprimiu aqui, valew.

 

Me deparei com um outro probleminha aqui, em meu ambiente de teste aqui o arquivo sai com o Qrcode, ja no cliente nao sai o mesmo, tem que hailitar alguma coisa la no Tanca ?

[Daniel Simoes]

Quem imprime o QRCode é a impressora... o SAT não tem nenhuma relação direta com isso...

[Lucas Alves]

Compreendo Daniel, mas como falei, eu mando gerar o arquivo o meu aqui de teste nas ultimas linhas gera o Qrcode ja no cliente nao Gera.

ACBrPosPrinter1.Desativar;
      ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo( vSat_PrinterModelo );
      ACBrPosPrinter1.PaginaDeCodigo := TACBrPosPaginaCodigo( 2 );
      //ACBrPosPrinter1.Porta := vSat_PrinterPorta;
      ACBrPosPrinter1.Porta := ExtractFilePath(Application.ExeName)+'sat\'+vPedido+'.txt';
      ACBrPosPrinter1.ControlePorta := True;
      ACBrPosPrinter1.ColunasFonteNormal  := 48;
      ACBrPosPrinter1.LinhasEntreCupons   := 0;
      ACBrPosPrinter1.EspacoEntreLinhas   := 0;
      ACBrSATExtratoESCPOS1.ImprimeQRCode := True;
      ACBrSATExtratoESCPOS1.ImprimeEmUmaLinha := True;

Principal.ACBrSAT1.ImprimirExtrato;

 

Segue em anexo os dois arquivos.

Ambiente de Teste.txt

cliente.txt

[geanjesus]

Me parece , que no seu cliente as configuracoes da impressora , nao estao corretas..Verifique...

na daruma dr700 , para poder imprimir qrcode, algumas precisam de ajustes...pelo programa da propria daruma...