Impressão de etiquetas saindo errada depois da atualização

[carlessoflu]

Boa tarde!

Depois que fiz a atualização do componente essa semana, a impressão de etiquetas do meu programa está saindo totalmente errada. Não alterei nada no código de impressão.

Vou anexar uma imagem de como era impresso antes de atualizar e depois como ficou:

Nessa foto mostra a impressão que fiz (antes de atualizar o sistema), imprimi 6 etiquetas, saiu normal, as duas primeiras linhas. Logo depois atualizei o sistema e mandei imprimir de novo, ai saiu desse jeito (parte de cima da imagem).

Alguém sabe o que pode ser? foi alterado algo no sistema de impressão do ACBrETQ?

[leandroaoa]

boa tarde foi criada uma nova propriedade para a unidade de medida. Altere ele pois o padrao vem em milimetros. 

Unidade      := etqMilimetros; //etqMilimetros, etqPolegadas, etqDots

ImprimirTexto(orNormal, 2, 1, 3, 5, 20, trim(FormConfig.Edit30.text));

 

[carlessoflu]

Já está em milimetros. 

qual era o padrão antes? Dots?

[Hexa Info]

Estou com o mesmo problema, após atualização esta saindo fora das posições

[Hexa Info]

22 minutos atrás, Hexa disse:

Estou com o mesmo problema, após atualização esta saindo fora das posições

Ta saindo fora demais, não alterei em nada

[carlessoflu]

37 minutos atrás, Hexa disse:

Ta saindo fora demais, não alterei em nada

O meu também, está totalmente errado.

Já alterei a unidade conforme o Leandro falou, mas mesmo assim continua errado.

 

[leandroaoa]

tem que alterar ex.:      ImprimirBarras(orNormal, 'D', 2, 2, 40, 5, trim(clientdataset2.fieldbyname('barra').asstring), 60, BecNAO);

                               como tem que ficar agora ImprimirBarras(orNormal,'D', 2, 2, 4, 5, trim(clientdataset2.fieldbyname('barra').asstring), 6, BecNAO);

desse forma funcionou pra mim.  pois 60 milimetro = 6 cm. entao o seu codigo saira com 6 cm de impressao igual a imagem postada acima. o 40 milimetro e a altura de onde vai comercar a imprimir na etiqueta entao 40 milimetro = 4 cm.
 

Editado 7 Fevereiro, 2018 por leandroaoa

[Hexa Info]

Aterei na unit ACBrETQPpla.pas

function TACBrETQPpla.ConverterUnidade(AValue: Integer): Integer;
begin
  if (Unidade = etqDots) then
    Result := inherited ConverterUnidade(etqMilimetros, AValue);

  // REMOVIDO 07/02/2018
  //Result := AValue * 10;

  // ADD. 07/02/2018
  Result := AValue;

  if (Unidade = etqPolegadas) then
    Result := Result * 10;
end;

* Desta forma não precisei alterar minhas posições no sistema

[carlessoflu]

Fiz conforme o Hexa falou e deu certo.

Mas será que não vai causar nenhum problema não futuramente?

[leandroaoa]

da uma olhada aqui nesse post 

o Daniel ja havia mexido. mas e melhor vc deixa la as suas alterações para analise.

[armando.boza]

Realmente, atualizei os fontes semana passada e me deparei com esse problema hoje com um cliente.

Esse tipo de ajuste é complicado pois envolve ajustar várias programações de modelos de etiquetas.

[Daniel Simoes]

Milímetro é uma unidade única e o componente deve respeitá-lo 

Talvez o seu código anterior estivesse em Dots

[armando.boza]

Quando montei a tela de impressão de etiquetas não tinha essa propriedade de unidade, pelo menos que me lembre não kkkk

Na impressão eu utilizo assim:

with ACBrETQ do
begin
  // ROLO 2 COLUNAS 30 x 50 mm
  ImprimirTexto(orNormal, 2, 1, 1, 210, 50, copy(LimpaAcentuacao(qProdutosNOMEIMPRESSAO_PRO.AsString), 1, 30));
  ImprimirTexto(orNormal, 2, 1, 1, 210, 595, copy(LimpaAcentuacao(qProdutosNOMEIMPRESSAO_PRO.AsString), 1, 30));
end;

Desse jeito é dots? milímetro?

[Daniel Simoes]

Aguarde alguns instantes... vou introduzir a unidade de medida Décimo  de Milimetro

[Daniel Simoes]

Já no SVN...
 

Citar

-- ACBrETQClass --
[+] Adicionado suporte a Unidade "etqDecimoDeMilimetros".
    (por: DSA)

 

40 minutos atrás, armando.boza disse:

Desse jeito é dots? milímetro?

Depende de como você configurou o componente... mas pelas dimensões, parece ser Dots...

Usar Dots é complicado, porque pode variar dependendo da resolução da Impressora...

[Maurício Sareto]

Pessoal e no meu caso que não mechi nos meus códigos, configuro o componente como dots, milímetros, decimo de milímetros, polegadas e nem uma impressão sai como antes de atualizar os fontes, oque eu faço?

[Maurício Sareto]

Analisando os fontes percebi que independente do que é setado na propriedade Unidade, o create da classe sempre seta como Milímetros, é para ser assim mesmo?

[armando.boza]

Em 16/02/2018 at 12:49, Daniel Simoes disse:

Já no SVN...
 

 

Depende de como você configurou o componente... mas pelas dimensões, parece ser Dots...

Usar Dots é complicado, porque pode variar dependendo da resolução da Impressora...

Boa tarde Daniel.

Testei com o etqDecimoDeMilimetros que vc montou e mesmo assim não deu certo.

A única maneira que deu certo foi usando a unidade etqMilimetros e alterando a function ConverterUnidade do arquivo ACBrETQPpla (linha 344) para:

if (Unidade = etqDecimoDeMilimetros) then
  Result := AValue * 10
else
  Result := AValue;

Passando o Result := AValue dá certo.

Att

[Daniel Simoes]

Por favor reportem problemas, apenas com o Demo do ACBr.. caso contrário não irei analisar o caso...

[Maurício Sareto]

O grande problema Daniel é que foram feitas modificações no componente que afetaram todos os usuários do ACBrETq. Veja o meu caso, possuo 4 tipo de etiquetas homologadas no sistema, e não tenho todas elas fisicamente aqui na minha empresa, vou ter que ir atras dos clientes para pegar um rolo de etiquetas e fazer os ajustes no sistema, alguns clientes residem em outros estados. 

Com o demo não tem problema nenhum, pois os códigos já estão em conformidade com as novas alterações...

[Daniel Simoes]

O Demo está desrespeitando as medidas informadas ?

 

[Maurício Sareto]

O Demo esta ok, obrigado pela sua resposta...

[carlessoflu]

Resolvi o problema tirando o Result := AValue * 10; e deixando somente Result := AValue;  Porém acertou somente quando a impressora é PPLA, agora um outro cliente que tem uma impressora PPLB está com outro problema, não está imprimindo nada, as etiquetas passam como se estivessem imprimindo, porém ficam em branco, não imprime nada.

Alguém sabe o que pode ser?

[armando.boza]

18 minutos atrás, carlessoflu disse:

Resolvi o problema tirando o Result := AValue * 10; e deixando somente Result := AValue;  Porém acertou somente quando a impressora é PPLA, agora um outro cliente que tem uma impressora PPLB está com outro problema, não está imprimindo nada, as etiquetas passam como se estivessem imprimindo, porém ficam em branco, não imprime nada.

Alguém sabe o que pode ser?

Os fontes foram alterados em relação as medidas de impressão, estou com o mesmo problema. Até resolvi o problema da PPLA, igual vc fez, mas é paleativo, creio que teremos que ajustar todos os modelos programados dentro do sistema.

Pior que não temos impressora aqui pra testar e muito menos modelos de todos os formatos de rolos de etiquetas, vou ter que ir ajustando conforme os clientes forem reclamando.

[carlessoflu]

1 minuto atrás, armando.boza disse:

Os fontes foram alterados em relação as medidas de impressão, estou com o mesmo problema. Até resolvi o problema da PPLA, igual vc fez, mas é paleativo, creio que teremos que ajustar todos os modelos programados dentro do sistema.

Pior que não temos impressora aqui pra testar e muito menos modelos de todos os formatos de rolos de etiquetas, vou ter que ir ajustando conforme os clientes forem reclamando.

Pois é, estou com o mesmo problema, também não tenho as impressoras e nem as etiquetas, estou tendo que deixar a versão antiga do sistema nesses clientes, não posso atualizar enquanto não descobrir o problema. Se alguém tiver alguma sugestão agradeço.