Impressão SAT - Elgin9

[IdealB]

Pessoal, após atualizar o ACBr, a impressão do cupom SAT ficou completamente desconfigurada.

Alguém esta passando por isso?

Impressora: Elgin9
Extrato: TACBrSATExtratoESCPOS

 

grato.

[Juliomar Marchetti]

Então as fotos ficaram boas mas não deu detalhes pra que saibamos o que houve?

um passo a passo ou algo semelhante!

[IdealB]

Só atualizei para o ACBr da trunk2. Alterei algumas propriedades que foram removidas.

O envio está perfeito, apenas a impressão desconfigurou e não imprime o Código de Barras nem QrCode.

 

 

[Juliomar Marchetti]

como assim alterou propriedades que foram removidas?

como falei muito vago.. precisa detalhar ou pegar o xml que imprimiu e trazer pra poder ver

[IdealB]

Vamos lá...

Na alteração para o trunk2, o componente Extrato ganhou uma nova propriedade chamada PosPrinter que por sua vez ganhou o componente Device que era da propriedade Extrato. Basicamente essas foram as alterações que fiz.

Estava assim:

  FExtrato.Device.Porta := FECFConfig.Porta;
  FExtrato.Device.Ativar;

mudou para:

  FExtrato.PosPrinter.Device.Porta := FECFConfig.Porta;
  FExtrato.PosPrinter.Device.Ativar;

Clientes meus que ainda NÂO atualizei, estão imprimindo o cupom normalmente pois não tinha migrado ainda para a trunk2.

Peguei um XML validado que está imprimindo na versão antigo do meu sistema e tentei reimprimi-lo na nova versão(compilado com na trunk2) e o resultado é a imagem acima.

[Daniel Simoes]

Estude os fontes do SATTeste.exe e PosPrinterTeste.exe... Faça testes de impressão com os mesmos...

provavelmente você não configurou o ACBrPosPrinter corretamente...

[IdealB]

Daniel, obrigado pelo retorno porem, ja tinha feito o teste com o SATTeste e o resultado foi o mesmo.

Lembrando que também o SATTeste tive que fazer algumas alterações. As mesmas citadas acima, propriedade Device movida para o objeto PosPrinter
Abaixo o código utilizado.

Detalhe:
Minha impressora é a Elgin i9 no qual foi instalada e compartilhada. Para apontar a impressora no componente, uso o compartilhamento.Funcionava antes da trunk2.
 

Alguém vê algo de errado?

 

ACBrSAT1 := TACBrSAT.Create(Self) ;
ACBrSATExtratoESCPOS1 := TACBrSATExtratoESCPOS.Create(ACBrSAT1) ;

With ACBrSAT1 do begin
  Extrato := ACBrSATExtratoESCPOS1;
  NomeDLL := 'SAT.DLL';
  Config.infCFe_versaoDadosEnt := 0.06;
  Config.ide_numeroCaixa := 0;
  Config.ide_tpAmb := taHomologacao;
  Config.emit_cRegTrib := RTSimplesNacional;
  Config.emit_cRegTribISSQN := RTISSMicroempresaMunicipal;
  Config.emit_indRatISSQN := irSim;
  Config.EhUTF8 := True;
  Config.PaginaDeCodigo := 65001;
  Rede.tipoInter := infETHE;
  Rede.seg := segNONE;
  Rede.tipoLan := lanDHCP;
  Rede.proxy := 0;
  Rede.proxy_porta := 0;
end;
with ACBrSATExtratoESCPOS1 do begin
  Mask_qCom := '0.0000';
  Mask_vUnCom := '0.000';
end ;

ACBrSAT1.CFe.LoadFromFile('CFe35150708723218000186599000029450000210787640.xml');
ACBrSATExtratoESCPOS1.PosPrinter.Device.Porta := '\\Compartilhamento\NomeImpressora';
ACBrSATExtratoESCPOS1.PosPrinter.Device.Ativar;
ACBrSATExtratoESCPOS1.ImprimeQRCode := True;

ACBrSAT1.ImprimirExtrato;

 

[IdealB]

Uma duvida:

Qual seria a string de saída produzido pelo ACBr para a impressora?

Abaixo está a string enviada para a impressora:

'</zera></ce></logo>'#$D#$A'<n>TANCA</n>'#$D#$A'<c>TANCA INFORMATICA EIRELI'#$D#$A'RUA ENGENHEIRO JORGE OLIVA 73  VILA MASCOTE-SAO PAULO-43620-600'#$D#$A'</ae><c>CNPJ:08.723.218/0001-86 IE:149626224113 IM:'#$D#$A'</linha_simples>'#$D#$A'</fn></ce><n>Extrato No. 000000'#$D#$A'CUPOM FISCAL ELETRÔNICO - SAT</n>'#$D#$A' '#$D#$A' = T E S T E ='#$D#$A' '#$D#$A'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'#$D#$A'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'#$D#$A'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'#$D#$A'</linha_simples>'#$D#$A'</ae><c>CPF/CNPJ do Consumidor: 05.481.336/0001-37'#$D#$A'Razão Social/Nome: D.J. SYSTEM'#$D#$A'</ae><c></linha_simples>'#$D#$A'#   COD   DESC   QTD   UN   VL UN R$    (VLTR R$)*    VL ITEM R$'#$D#$A'</linha_simples>'#$D#$A'</ae><c>001 ACBR001 Assinatura SAC         1 UN X 120,000 (14,40) 120,00'#$D#$A'</ae><c></ae><c>desconto           -1,00                                  119,00'#$D#$A'</ae><c>002 6291041500213 Outro produto Qu 1,1205 un X 1,210 (0,41) 1,36'#$D#$A'</ae><c></ae><c>acréscimo           +2,00                                   3,36'#$D#$A'</ae><c>003 abc123 ACBrSAT rules                  1,1205 un X 1,210 1,36'#$D#$A'<c>Subtotal                                                  122,72'#$D#$A'<c>Descontos                                                  -6,00'#$D#$A'<c>Acréscimos                                                 +2,00'#$D#$A'</ae></fn><e>TOTAL R$          118,72</e>'#$D#$A'<c>Dinheiro                                                   50,00'#$D#$A'<c>Cartão de Crédito                                         100,00'#$D#$A'<c>Troco R$                                                   31,28'#$D#$A'<c> '#$D#$A'<c>xCampo1-xTexto1'#$D#$A'</fn></linha_simples>'#$D#$A'DADOS PARA ENTREGA'#$D#$A'<c>logradouro 112233 complemento bairro municipio'#$D#$A'D.J. SYSTEM'#$D#$A'</fn></linha_simples>'#$D#$A'OBSERVAÇÕES DO CONTRIBUINTE'#$D#$A'<c>Acesse www.projetoacbr.com.br para obter mais'#$D#$A'informacoes sobre o componente ACBrSAT'#$D#$A'Precisa de um PAF-ECF homologado?'#$D#$A'Conheca o DJPDV - www.djpdv.com.br'#$D#$A'<c>*Valor aproximado dos tributos do item'#$D#$A'<c>Valor aproximado dos tributos deste cupom R$             <n>1,23'#$D#$A'</n>(conforme Lei Fed. 12.741/2012)'#$D#$A'</fn></linha_simples>'#$D#$A'</ce>SAT No. <n>900002945</n>'#$D#$A'22/07/2015 10:16:28'#$D#$A'<c>3515 0708 7232 1800 0186 5990 0002 9450 0002 1078 7640</fn>'#$D#$A'<code128c>35150708723218000186599000029450000210787640</code128c>'#$D#$A'<qrcode_tipo>2</qrcode_tipo><qrcode_error>0</qrcode_error><qrcode>35150708723218000186599000029450000210787640|20150722101628|118.72|05481336000137|IA0Nd8uj4OCv0llpxnHp/Gt4TfWqY+5JbpbXNWvRBaQ2XRjp+G4XpX65GwGOSenl7vFlewK5cHPcjRUQihqw0plpoN77DPaSg1yXzF0WkQdEjm9LlKXd5t9cM6cG4Ct7YQK2wEWXhz/YFnlCzzTrhIzwsVRdeCNdv8vwVJw4ozCMSYU8MNeF1HRlcTPQ84GgFfOKbJbtAlVvTGQOtC6ZHtSJuolkhAEmRtK23bIZB0KBGEyL3GIesw3LDv0ysYpK64weiPU0dM9OVnUqS26egyw4l17S7MwQdTjz3emBbW/vBDC3X1xzHDpWobY/otKaKHwZqBtjSBaUx/ueffap+A==</qrcode><qrcode_tipo>2</qrcode_tipo><qrcode_error>0</qrcode_error>'#$D#$A'</pular_linhas>'#$D#$A

[Alfeu]

Elgin 9I uso a configuração da EPSON, funciona corretamente.

[IdealB]

Resolvido, coisa boba como sempre:

Configurei como Epson e não como Elgin.

 FExtrato.PosPrinter.Modelo:= ppEscPosEpson; 

 

Obrigado Alfeu. Acabei de descobrir.

valew

[Daniel Simoes]

Se você tivesse estudado os fontes do Demo do ACBrPosPrinter, teria "matado" essa muito mais rápido...