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

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

Segue a unit alterada. ACBrSATExtratoESCPOS.pas

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.

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

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?

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

Daniel, segue o arquivo de log log.txt

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

Boa noite. Consegui chegar até essa parte, dai pra frente creio que seja necessário estar logado no portal. http://www.sped.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=103

Daniel, você já ouviu falar do Tapatalk? Eu sei que o IPB 3 tinha o plug-in dele, agora o 4 não tenho certeza. http://forum.sosinvision.com.br/index.php?/topic/40847-download-tapatalk/ Por favor veja se é possível habilita lo, ele é uma mão na roda, facilita muito a vida dos fóruns. []'s

o Invision 4 ficou realmente bonito, mas essa pesquisa dele com "like or like" atrapalha demais

Opinião totalmente pessoal, tenho aqui um da DIMEP e um da URANO, o da DIMEP me pareceu bem mais comodo de se trabalhar, o da URANO perdia a comunicação com o computador do nada, era necessário reiniciar o equipamento com frequência, mas também devido a correria, não entrei em contato com o fabricante para tentar solucionar o ocorrido.

Armando, boa tarde, ainda não estou com clientes rodando, mas encontrei esse gerador da TANCA http://www.tanca.com.br/assets/conteudo/drivers/TS-1000/Gerador_Código_Vinculação_TS-1000.zip aparentemente a geração está correta.

Obrigado Daniel, debugando percebi que provavelmente estou gerando o arquivo errado mesmo, amanhã vou verificar quando estiver com o sat em mãos. Obrigado novamente. []`s