Marcelo Bill

Daniel Boa noite Obrigado por responder As alterações não foram satisfatórias. Não tenho muito tempo pra descobrir as coisas, pois como sabe, preciso testar isso durante o expediente comercial do cliente e mesmo assim, se demoro muito conectado com ele, acabo atrapalhando. Porém pela glória do Divino, tenho um outro cliente que tem duas Zebras. Uma em uso e outra de backup. Pedi a ele a impressora emprestada. A mesma chegará aqui na quinta Feira. Ai sim, vou acertar as coisa no componente pra que fique de forma adequada em todas as funções que correspondem a AcbrETQZplII. Hoje comecei a configurar as medidas la no cliente, depois de ter atualizado hoje de manhã. as Fontes de 1 a 8, praticamente não aparecem. A 9 tem mais ou menos 2 mm de altura. (Mas até ai, é problema da impressora) Seguindo as mesmas medidas, percebi que diferentemente do PPLA, quando coloquei que o tamanho da etiqueta era 500 (correspondente a 50 mm), ele não estava com a mesma correspondencia, tive que informar 450 para equivaler a etiqueta (50mm) Ou seja, em algumas funções estão de uma forma e em outras de outra forma. Mas não mexa nisso por minha causa. Vamos esperar chegar a impressora (que é novinha) e então vou fazer todos os testes possíveis para tentar ajudar na melhoria das configurações desse componente. Preciso desse componente em especial (bem redondinho), pois de agora em diante vou começar a apontar essa Marca para os clientes adquirirem. Devido o sistema de cabeça de impressão da Zebra ser recuado, isso evita a perda de etiqueta assim como na argox. Vi isso mas ainda preciso confirmar essa informação. por hora é só abraço boa noite

Se eu estou entendendo o componente. Como voce desligou o comando que altera Unidade ^MU. essa conversão de unidade deveria estar em todas as posições onde são necessárias, por exemplo, no imprimirTexto(Fonte,FonteH,FonteV, Coluna, Linha,etc... ConverterUnidade(Dotmm,Coluna)+ConverterUnidade(Dotmm,Linha); Algo desse tipo. De outra forma, o etqMilimetros, etqPolegas e EtqDots estaria sem uso. Não sei...

Eu de novo Analisando o ACBrETQZplII.pas, percebi que foram desligadas todas as conversões para Dotmm, então aparentemente vou ter que na minha aplicação usar o comando que converte o DotPix para Dotmm ConverterUnidade(UnidadeSaida); ? Amigo, me perdoe, eu não sou tão bom programador assim, estou tentando entender.

Daniel, acho que voce não entendeu. Eu NÃO tenho impressora pra testar vou usar aquele site pra testar. Mais um detalhe, acabei de atualizar o componente e percebi que o ComandoUnidade está todo comentado e tem um comentario Result := ''; // Todos os comandos são convertidos para etqDots; talvez seja isso que esteja encavalando todo o texto. Me responda se é isso. Ele não está respeitando o mm ?

Daniel Quando informei da desconfiguração do texto da etiqueta na ZPLII, voce me mandou uma unit que continha a correção. Bacana, tava tudo funcionando, mas ai percebi que voce subiu essa unit para o svn e com algumas modificações. no dia 29/12/2017 atualizei o acbr e disponibilizei a aplicação aos clientes. Como o inicio do ano a coisa é meio devagar, só agora é que a coisa está vindo a tona. Como ja sabe, não temos impressora Zebra pra testar a aplicação. Cliente reclamando que a etiqueta estava saindo um borrão . Foi então que percebi que voces mudaram o Fonte para String, para permitir letras A..Z. onde eu havia resolvido usando chr(73) Chr(65) enfim. Ai eu vi a mudança que foi feita na ComandoFonte foi eliminado a Orientação e trocado '^A' por '^CF' Agora a impressão ta saindo tudo uma em cima da outra. Veja a imagem. Já tentei aumentar o intervalo entre as linhas, mas não surtiu nenhuma diferença Voce tem ideia do que poderia fazer isso ?

Olá José Obrigado por responder. Infelizmente não consigo reproduzir ou simular o problema, pois estou a 200km do meu cliente. Meu cliente só volta a trabalhar amanhã. Assim dessa forma vou verificar se ainda se encontra com o problema. Uma outra ideia que tive, foi a de aumentar o tempo entre uma etiqueta e outra etiqueta, embora acredito que não seja o caso, pois essa impressora é a zebra profissional capacitada de bastante memória, diferente das argoxs. assim que tiver resposta do cliente volto a postar.

Não mudei mais nada além disso with acbrNFe.Configuracoes.Geral do begin SSLLib :=libWinCrypt; ExibirErroSchema :=True; FormaEmissao :=teNormal; ModeloDF :=moNFe; case AnsiIndexStr(NFe_Versao, ['3.0', '3.0', '3.0', '3.1', '4.0' ]) of 0:VersaoDF :=ve300; 1:VersaoDF :=ve300; 2:VersaoDF :=ve300; 3:VersaoDF :=ve310; 4:VersaoDF :=ve400; end; Salvar :=False;//True;// Salva os arquivos de envio e retorno do sefaz {IdCSC := edtIdToken.Text; CSC := edtToken.Text; } end; Agora fiz uma comparação no meu W10 e funcionou normalmente no cliente após eu deixar as opções da Internet assim Ufa, mais uma vez escapei de de problemas sem a CAPICOM muito obrigado

opa josé, o meu é W10 e sempre se atualiza quando existe atualização Aqui no meu funciona tudo certinho o Problema está neste cliente. estamos verificando essse fato de atualização agora tem alguma dica alem disso ou pode dizer o que mudou ?

Pessoal AcbrNFe atualizado em 28/12/2017 Fiz a seguinte alteração with acbrNFe.Configuracoes.Geral do begin SSLLib :=libWinCrypt; Somente isso, como tenho 3 sistemas, em dois deles já estão funcionando, no 3º sistema ta dando esse problema onde mesmo usando WinCrypt tá dando essa mensagem de classe não registrada. Já verifiquei o opções da internet e esta correto Tem alguma ideia do que está faltando pra viver sem CAPICOM.DLL ?

Bom dia Meu ultimo post foi sobre ACBrETQ que estava desconfigurado a formatação do Texto. Isso foi resolvido. Decidi abrir um outro tópico para perguntar se alguem tem ideia do motivo de pular etiquetas. Na minha Unit de impressão anterior ao qual estou usando agora, eu mandava imprimir primeiro a coluna da Esquerda e depois a da direito e também pulava etiqueta. Ainda na Unit anterior, eu passei a imprimir primeiro a coluna da Direita e por ultimo a coluna da esquerda e ai o problema resolveu. A questão é: alguma dificuldade com a impressora ? Isso acontece com qualquer marca, Argox, Zebra e qualquer linguagem, será que tem alguma fuga do ACBrETQ neste aspecto ? Vou tentar upar o Vídeo que o cliente me mandou. WhatsApp Video 2017-12-20 at 11.39.11.mp4

Daniel obrigado por responder então de fato acho que estamos no caminho certo amanha vamos rastrear a máquina inteira neste sentido obrigado

Pessoal Cliente usa dominio proprio, sempre funcionou direitinho. Ainda funciona direitinho, mas tem uma pulga atras da orelha que está dando o que falar. O cara tem 11 maquinas na rede dentre elas w7 e w10, e somente 1 maquina W7 não funciona o envio do email com ACBRMail. Incrível. Já executamos as seguintes operações: a- Desinstalamos todos e quaisquer Antivirus; b- Derrubamos e ou subimos o serviço do OutLook; c- Firewall totalmente desativado; d- Trocamos as DLLs Libeai.DLL e SSLeai.DLL por versão 8 e 14; Definitivamente são sabemos mais onde mexer. Só não mandamos formatar a maquina. Alguem tem mais alguma idéia ?

Como eu não consegui usar o barcode13, então pre-defini diretamente o codigo Impressora de acordo com o que estava capturando o componente. Como lhe disse anteriormente. É uma impressora Zebra mas com a linguagem EPL2 e não a ZPLII. Porém se voce me indicar como usar a barcode13 e as demais, vou poder criar uma única unit para impressão. Atualmente eu tenho 4 units . (PPLA,PPLB, EPL2 e ZPLII)

Daniel, muito bacana, com certeza agora a coisa ficou organizada, pois antes eu tinha que fica verificando o tipo de linguagem. O Único problema é que não consegui fazer uso desse barCode13 por exemplo. Tentei colocar ele na função ImprimirBarra(oNormal, barCode13,etc,etc) mas deu erro de compilação Ai então usei o codigo da propria EPL2 ImprimirBarra(oNormal, 'E30',etc,etc) Pode me dar a ultima dica pra matar de vez o problema? Alias, usando a EPL, acabei colocando o codigo "E30" direto na função e funcionou direitinho. Veja

Blz, funcionou, era isso mesmo, a regulagem está na Fonte e Multiplicadores Só tem um problema, depois dessa mudança não sei o motivo de o EAN13 não estar imprimindo Experimentei "E" no lugar de "F" ele até saiu, mas o "F" que representa EAN 13 não saiu mais Cara, num vai acreditar, a impressora chegou aqui, é uma Zebra, porem EPL2 (q. m.)

Cara, a programação aparentemente está correta. O que manda é que a Fonte é um tipo de Nome da Fonte exemplo: Arial, Courier, MsSanserif, etc, Mas o que manda mais em relação ao tamanho, é o multiplicador H e V Se eu usar a Fonte 65=A ou 66=B ou enfim o codigo Asc ele vai determinar que fonte eu quero, e dentro dessa fonte quem vai determinar o altura e Largura são os multiplicadores No meu Caso estou usando da seguinte forma Linha=5 Coluna=2 Fonte=65 MultipH=6 MultipV=3 Esse exemplo seria para o código do Produto, enquanto que para descrição eu usaria esse abaixo: Linha=8 Coluna=2 Fonte=65 MultipH=2 MultipV=1 Assim dessa forma, conforme o ONLINE está ficando XIK Agora estou agrandando o retorno da Cliente para testar essa configuração. Aparentemente a Unit ACBrZPLII.Pas que voce mandou para teste está correta. Aguarde até eu testar para afirmar isso ok Além disso, a impressora Física está a Caminho, dentro de uns 30 min deve estar por aqui, acho que hoje resolveremos essa parada.

Daniel Acho que encontrei a solução que queria a muito tempo kkk veja esse link http://labelary.com/viewer.html Fantastico, ajuda bastante, não é perfeito mas dá uma puta noção da etiqueta ONLINE

Daniel Conforme a Função ComandoFonte function TACBrETQZplII.ComandoFonte(aFonte: Integer; aOrientacao: TACBrETQOrientacao; aMultVertical, aMultHorizontal: Integer ): String; var cFonte: String; begin if (aMultVertical > 10) then raise Exception.Create('Multiplicador Vertical deve estar entre 1 e 10'); if (aMultHorizontal > 10) then raise Exception.Create('Multiplicador Horizontal deve estar entre 1 e 10'); //if aFonte < 10 then // cFonte := chr(48 + aFonte) //else // cFonte := chr(55 + aFonte); //if not CharInSet(cFonte, ['0'..'9','A'..'Z']) then // raise Exception.Create('Fonte deve estar entre 0 a 35'); if aFonte = 0 then cFonte := '' else cFonte := chr(aFonte); Result := '^A' + cFonte + ConverterOrientacao( aOrientacao ) + ',' + IntToStr(Max(aMultVertical,1)) + ',' + IntToStr(Max(aMultHorizontal,1)); end; Veja que neste caso, conforme lhe informei anteriormente, estava usando Fontes abaixo do numero 10, Sendo assim se eu usar a Fonte=65, vai ser retornado a Fonte "A" para o componente, onde, conforme o Manual a Fonte "A" é menor que a Fonte "D" conforme imagem a seguir A proposito, contatei o cliente e o mesmo está ausente, porem disponibilizar a impressora pra mim. Até o final do dia teremos novidades.

Puts, voce tem algum manual da ZEBRA nesses com a programação ZPLII fácil por ai ? Se tiver me manda pra eu dar uma estudada, tenho um cliente a 70km daqui e vou lá buscar

Boa tarde desculpe no retorno da resposta com relação a Unit que voce forneceu para testar Funcionou a questão do texto que estava desconfigurado, ficou perfeito Também está acatando o milimetro, legal No entanto, não consigo deixar um fonte menor que 4, se eu utilizo uma fonte 3, não imprime nada, se eu utilzo fonte 4 sai um texto semelhante courier 14 (algo do tipo) Fonte=4 Multip H=4 Multip V=4 a combinação que consegue sair impresso é essa, abaixo disso, não imprime nada Tem alguma outra forma de diminuir ?

Boa tarde desculpe no retorno da resposta com relação a Unit que voce forneceu para testar Funcionou a questão do texto que estava desconfigurado, ficou perfeito Também está acatando o milimetro, legal No entanto, não consigo deixar um fonte menor que 4, se eu utilizo uma fonte 3, não imprime nada, se eu utilzo fonte 4 sai um texto semelhante courier 14 (algo do tipo) Fonte=4 Multip H=4 Multip V=4 a combinação que consegue sair impresso é essa, abaixo disso, não imprime nada Tem alguma outra forma de diminuir ?

Daniel Não querendo te incomodar mas já incomodando. Por favor, me tire a dúvida de um questionamento muito antigo. Falando de PPLA e ZPLII que são as impressoras que meus clientes utilizam. Desde de quando eu comecei a usar o ACBrETQ, não faz diferença alguma se eu colocar a Unidade de Medida para milimetro que o componente parece que não respeita o milimetro. Ele acaba imprimindo não sei em qual unidade, mas a gente vai ajustando as medidas tais como linha, coluna, tamanho, etc até que a etiqueta fica apropriada. Normalmente eu pego a régua e vou medindo a etiqueta. Ex quero que a primeira linha seja impressa na (PPLA 50x35 cm 2 Col) ou (PPLA 500x350 mm 2 col). Oras se defini como milimetro, e eu definir que coluna será aos 3mm da esquerda da etiqueta, num funciona nem a pau, 3mm nem imprime, ai então eu criei uma regra pra resolver esse problema quando eu quero imprimir aos 3mm da esquerda da etiqueta eu multiplico 3 x 10 = 30, assim dessa forma ela imprime aos 3mm da esquerda da etiqueta. Esse problema acontecia também em impressora zera usando o ZPLII. Depois atualizei no dia 12/12/2017 após a refatoração total do ACBREtq, o ZPLII deu aquela confusão da formatação do texto porém ele estava acatando direitinho o mm. Percebi isso pq meu cliente reclamou a principio de estar imprimindo apenas o codigo do produto e num tamanho bem grande em bem distando das esquerda da etiqueta, ou seja, quando já estava configurada para 3mm x 10 =30, ele passou a respeitar o mm. Curiosamente abri o ACBrETQZPLII.pas (Original baixado pelo SVN) e comparei com a ACBrETQZPLII.pas que voce me mandou para testar. Percebi que no ACBrETQZPLII.pas (Original) no ComandoUnidade, as letras estão MAIUSCULAS tipo Dots = 'D'; Polegadas= 'I'; Milimetros = 'M' já no ACBrETQZPLII.pas (teste) no ComandoUnidade, as letras estão minusculas tipo Dots = 'd'; Polegadas= 'i'; Milimetros = 'm' Levando essa idéia em consideração, querendo mais do que nunca corrigir essa regra de multiplicar o mm x 10, alterei a ACBrETQPPLa.pas também para MAIUSCULAS, infelizmente não teve efeito algum. Então a minha dúvida cruel é essa, onde o componente converte essas medidas, afinal, se escolhi milimetros tem sair em milimetros voce não concorda? Me desculpe estar questionando esse detalhe, a questão que eu desenvolvi um Tabela dentro do banco de dados onde eu cadastro cada modelo de etiqueta (eu não, quer dizer, estou dando a oportunidade de) o meu cliente desenvolver a sua própria etiqueta, no tamanho que quiser, colocando os campos que quiser obviamente que campos pre-definidos por mim, sendo assim, fica dificil eu esplicar pro cara que é em milimetros porem ele precisa informar o mm x 10. Agradeço a atençaõ dispensada

Daniel Usei o WinMerge e já verifiquei o que foi alterado. Valeu

Vou testar, mas agora, só amanhã. Cliente já encerrou as operações por hoje. Pode informar o que foi modificado nessa Unit Anexo ? Se não puder tudo bem fico imensamente agradecido assim mesmo. E se funcionar, nossa, não saberia nem palavras além de muito obrigado

Daniel Veja como estão minhas configurações, vou mandar dois arquivos a) Unit que está imprimindo b- Parte do arquivo INI que armazena as configurações a Fonte estava como 20 o que voce pode localizar no Ini FONTE1=20 o que atualmente representa 2mm, e assim por diante Unit da impressao.txt Unit da impressao.txt