TM-T81 SAT Código Barra[Resolvido]

[luisArruda]

Boa tarde a todos.

Sei da existência de zilhões de outros posts do assunto, mas nenhum relacionado a TM-T81 (ela se comporta de uma forma um pouco diferente da T20 da EPSON - pelo visto).

Utilizo: Delphi 2010 + trunk2 (commit 10280) | Epson TM-T81 (USB)

Utilizando o componente ACBrSATExtratoESCPOS (ligado a um ACBrPosPrinter) para fazer a impressão pelo compartilhamento (\\localhost\epson), ele não imprime o código de barras no extrado do SAT, fica um espaço em branco mesmo.

Já testei em outra impressora i9- ELGIN e em uma TM-T20 - Epson configurada com o modelo ppEscPosEpson e o código de barras saiu normalmente.

Verifiquei com o pessoal da Epson o que poderia estar incorreto para esta impressora, e me foi passado um exemplo básico, no qual o código de barras é impresso:

procedure TForm1.Button1Click(Sender: TObject);
var impressora : TextFile;
begin
  Assignfile(impressora, '\\dev01\EPSON_USB');
  Rewrite(impressora);
  Writeln(impressora, #29#119#2); //Seta o tamanho do código de barras
  Writeln(impressora, #29#72#1); //Seta o tamanho do código de barras
  Writeln(impressora, 'CODE128C');
  Write(impressora, #29#107#73#13'{C'#35#15#07#61#09#90#08#00#01#41#59); //CODE128C
  Write(impressora, #10); //Line Feed - Imprime texto
  Write(impressora, #29#107#73#13'{C'#90#00#00#83#00#00#44#24#22#64#50); //CODE128C
  Write(impressora, #10); //Line Feed -
  CloseFile(impressora);
end;

Enquanto código da função ComandoCodBarras da unit ACBrEscPosEpson.pas:

1a Linha: #$1D'w'#2#$1D'h('#$1D'H'#0#$1D'kI'#$18'{B3515076109900800014159'

2a Linha: #$1D'w'#2#$1D'h('#$1D'H'#0#$1D'kI'#$18'{B9000008300004424226450'

 

Fora o código de barras os outros comandos estão funcionando perfeitamente (inclusive fiz os testes no exemplo do ACBrPosPrinter, fora o code128, ficou tudo bonito - Parabéns o/)

Agradeço desde já o auxilio

[]'s

Editado 23 Outubro, 2015 por luisArruda

[Daniel Simoes]

Tente diminuir a largura da Barra para 1 ou 2

[Daniel Simoes]

Atualmente o ACBrSATExtratoEscPos usa o CODE128 e não o CODE128C

  FPosPrinter.Buffer.Add('<code128>'+copy(CFe.infCFe.ID,1,22)+'</code128>');
  FPosPrinter.Buffer.Add('<code128>'+copy(CFe.infCFe.ID,23,22)+'</code128>');

Isso porque quase nenhuma impressora suporta nativamente o CODE128C (que usa os Números em BCD)... Também notei que a maioria dos leitores tem dificuldades em processá-lo...

Anexe o Log gerado pelo TACBrPosPrinter... lá é registrado exatamente o que foi enviado para a Impressora

 

[luisArruda]

Daniel, segue o arquivo de log

log.txt

[Daniel Simoes]

Por padrão está sendo traduzido para CODE128B

-- 22/10 08:36:27:516 - TraduzirTagBloco(<code128>, $-=+ABC123abc) -> [GS]w[ETX][GS]h2[GS]H[NUL][GS]kI[15]{B$-=+ABC123abc

Verifique se esse equipamento suporta esse padrão... Experimente mudar nos fontes para <code128c>

[luisArruda]

Como <code128c> ele consegue imprimir se o texto tiver até 12 caracteres (em anexo o log, um item com 12 e outro com 13),

mas com o código abaixo ele imprime até 22 caracteres

Write(impressora, #29#107#73#13'{C'#35#15#07#61#09#90#08#00#01#41#59);

 

log_correto.txt

Editado 22 Outubro, 2015 por luisArruda
Envio do arquivo log correto.

[Daniel Simoes]

Apliquei modificações nos Fontes... que devem corrigir a impressão de CODE128c

Por favor atualize o SVN e teste com o PosPrinterTeste...

No ACBrSATExtratoEscPos ainda será necessário mudar a tag <code128> para <code128c>

[luisArruda]

Daniel, deu certo o 128c, ele conseguiu  imprimir até 24 caracteres.

Agora, acha possível essa implementação no ACBrSATExtratoEscPos, de uma forma que não atrapalhe as outras impressoras? talvez uma propriedade para informar o tipo do código de barras?

[Daniel Simoes]

Sim... estou trabalhando nisso nesse momento... Acho que uma propriedade será o mais simples...

O ideal é que cada Classe saiba se ela suporta o 128c ou não... e se não suportar, ela converta do 128c para 128 automaticamente...

[Daniel Simoes]

Aplicadas as seguintes modificações:

-- ACBrSATExtratoESCPOS --
[+] Adicionada a propriedade "ImprimeChaveEmUmaLinha: TAutoSimNao default rAuto"
    Se "rAuto", tenta a Impressão do CODE128 tipo C se o Modelo de impressora
    suportar.    (por: DSA)    

-- ACBrPosPrinter --
[*] Ajuste para correta impressão de CODE128c   (por: DSA)
    http://www.projetoacbr.com.br/forum/topic/25385-tm-t81-sat-código-barra/

[+] Adicionada a propriedade TagsNaoSuportadas: TStringList readonly.
    Permite verificar quais as tags o modelo selecionado não suporta.

-- ACBrEscPosEpson --
[*] Ajuste para considerar valor Default da largura da Barra como 2 (0=2)
    (por: DSA)

-- ACBrEscBematech, ACBrEscDiebold, ACBrEscDaruma --
[*] Ajustes para traduzir Tag de <code128a>, <code128b>, <code128c> para <code128>
[+] Adicionada <code128c> em TagsNaoSuportadas
    (por: DSA)

 

[luisArruda]

Daniel, atualizei os componentes, pelo demo do ACBrPosPrinter sem precisar configurar nada mais, ele imprimiu correto, imprimiu o 128B (apenas 20 caracteres, mas sem problemas quanto a isso, pois a impressora suporta o 128b mesmo)

 

Agora no ACBrSATExtratoESCPOS como pode ser visto no log ( log_ImprimeChaveEmUmaLinha_rAuto.txt), ele enviou o 128c, mas não quebrou a linha de forma automática, por isso não imprimiu (só cabem 22 caracteres no 128c e o código tem 44)

Configurando a propriedade ImprimeChaveEmUmaLinha para rNao percebi que ele consegue dividir a linha, mas nesse caso é usado o 128b (que só aceita 20 caracteres, ele envia 22 - meio código de barra -  log_ImprimeChaveEmUmaLinha_rNao.txt) 

 

Se precisar de mais algum teste, só pedir.

[]'s

Editado 23 Outubro, 2015 por luisArruda

[Daniel Simoes]

O código 128c irá reduzir a metade dos caracteres... ou seja, uma chave de 44 caracteres, será convertida em 22 bytes no 128c

Por favor forneça um manual com as informações técnicas desse equipamento...

[Daniel Simoes]

Enviei modificações para o SVN, que devem resolver o problema.. favor atualizar e testar

[luisArruda]

Daniel, atualizei o código e verifiquei a alteração que você fez, esta é a imagem do resultado: http://imgur.com/kEu5Ukr

Solicitei um manual técnico ao suporte da Epson, mas infelizmente eles me informaram não possuir tal documento.

Tomei a liberdade de alterar o ACBrSATExtratoESCPOS.pas, fiz a quebra das linhas e implementei no segundo código de barras do cancelamento a mesma lógica que você utilizou para passar o code128, o resultado http://imgur.com/6oa4oz7

Não estou conseguindo fazer o upload do .pas para você verificar (Você só tem permissão para fazer o uploade de 2mb.) vou tentar na próxima publicação.

[luisArruda]

Segue a unit alterada.

ACBrSATExtratoESCPOS.pas

[Daniel Simoes]

Porque você modificou essa linha abaixo ? (esse IF parece interpretar errado)

  ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or
                     ((ImprimeChaveEmUmaLinha = rAuto) and (Suporta128c = False));

 

[luisArruda]

Minha ideia foi só manter em uma linha caso a impressora não suporte 128c, 

IF linear com false é um problema mesmo... ou assim para forçar a divisão da linha com 128c, porque ele realmente não conseguiu imprimir esse código de barras.

ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or
					(ImprimeChaveEmUmaLinha = rAuto);

if (Suporta128c = False) then
	ChaveEmUmaLinha := False

 

[Daniel Simoes]

Qual o problema com o código original ?
 

  ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or
                     ((ImprimeChaveEmUmaLinha = rAuto) and Suporta128c);

Suporta128c já é boolean

[luisArruda]

Daniel, você tem razão, acabei de testar o em um Elgin i9 o code128c (ela consegue imprimir os 44 caracteres sem quebrar a linha), então o código correto é como você implementou mesmo:

ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or
                     ((ImprimeChaveEmUmaLinha = rAuto) and Suporta128c);

 

É alguma coisa da t81 o fato de não conseguir, vou implementar uma configuração no meu sistema mesmo para contornar essa impressora, em todo caso voltei como estava, deixei somente a implementação do segundo qrCode no cancelamento.

ACBrSATExtratoESCPOS.pas

Editado 23 Outubro, 2015 por luisArruda

[Daniel Simoes]

Obrigado pela contribuição... já enviei para o SVN

[Daniel Simoes]

Se você configurar

ImprimeChaveEmUmaLinha = rNao

deve funcionar mesmo para TM-T81