Etiqueta de Gôndola totalmente desconfigurada...

[atlantisnanet]

Olá pessoal,

Eu uso o ACBrETQ no Delphi 7, sempre funcionou beleza, vejam na foto do link abaixo da esquerda um modelo, mas precisei fazer uma alteração e tive que atualizar o componente, e está imprimindo totalmente desconfigurado, vejam na parte direita da foto...

https://1drv.ms/u/s!AitDtfBbOBpzghA2JIu8KCFPWoVO

O que será que acontece?

Desde já agradeço aos amigos!

[Daniel Simoes]

https://www.projetoacbr.com.br/forum/topic/41358-impressão-de-etiquetas-saindo-errada-depois-da-atualização/?do=findComment&comment=274638

[atlantisnanet]

Olá Daniel

Mudei para etqDecimoDeMilimetros mas não adiantou... cliquei no link que me enviou, mas tá muito complicada a coisa lá... Veja como era o código meu antes:

  AtivarACBrETQ ;

  with ACBrETQ do
  begin
     if Modelo = etqPpla then
      begin
        //ImprimirTexto(orNormal, 2, 2, 2, 190, 5, 'BISCOITO MARILAN RECH 335G');
        ImprimirTexto(orNormal, 2, 2, 2, 190, 5, Copy(DBEdit2.Text,1,26));
        //ImprimirTexto(orNormal, 2, 2, 1, 158, 5, 'CHOC BRANCO');
        ImprimirTexto(orNormal, 2, 2, 1, 158, 5, Copy(DBEdit2.Text,27,11));
        //ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90, becSIM);
        ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, DBEdit3.Text, 90, becSIM);
        ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
        //ImprimirTexto(orNormal, 3, 4, 4, 15, 450, '20.59');
        ImprimirTexto(orNormal, 3, 4, 4, 15, 450, DBEdit4.Text);
      end
     else
      begin
        //ImprimirTexto(orNormal, 2, 2, 2, 15, 55, 'BISCOITO MARILAN RECH 335G');
        ImprimirTexto(orNormal, 2, 2, 2, 15, 55, Copy(DBEdit2.Text,1,26));
        //ImprimirTexto(orNormal, 3, 2, 1, 60, 55, 'CHOC BRANCO');
        ImprimirTexto(orNormal, 3, 2, 1, 60, 55, Copy(DBEdit2.Text,27,11));
        //ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, '7896003701685', 90, becSIM);
        ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, DBEdit3.Text, 90, becSIM);
        ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$');
        //ImprimirTexto(orNormal, 3, 4, 5, 85, 515, '20.59');
        ImprimirTexto(orNormal, 3, 4, 5, 85, 515, DBEdit4.Text);
      end ;

     //Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
     //Imprimir(StrToInt('1'), StrToInt('600')); {Máximo 779}
     Imprimir(StrToInt('1'), StrToInt('600'));
     Desativar;
  end;

Não é mais fácil me passar um exemplo de como devo fazer? É uma etiqueta simples como mandei na foto.

Desde já agradeço!

[Daniel Simoes]

10 minutos atrás, atlantisnanet disse:

Não é mais fácil me passar um exemplo de como devo fazer? É uma etiqueta simples como mandei na foto.

Isso já existe... Veja o Demo do ACBrETQ, na pasta Exemplos

Talvez você não tenha atualizado seus fontes...

1 hora atrás, Daniel Simoes disse:

Notei que o método TACBrETQPpla.ConverterUnidade poderia ficar com um valor indefinido, o que poderia explicar esses problemas.. apliquei uma possível correção..

[atlantisnanet]

Beleza Daniel, copiei o exemplo e adaptei aqui, mas está cortando o topo do valor do produto... Veja na foto do link:

https://1drv.ms/u/s!AitDtfBbOBpzghFyZpwr7slMeWrc

Meu código está assim, como altero para ajustar?

  AtivarACBrETQ ;

  with ACBrETQ do
  begin

     if Modelo in [etqPpla, etqPplb] then
      begin
        ImprimirTexto(orNormal, 2, 2, 2, 3, 3, Copy(DBEdit2.Text,1,26), 0, True);
        //ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, DBEdit3.Text, 10, becSIM);
        ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
        ImprimirTexto(orNormal, 3, 4, 4, 15, 50, DBEdit4.Text);
      end
     else  //if Modelo = etqZPLII then
      begin
        ImprimirTexto(orNormal, '0', 60, 60, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True);
        ImprimirTexto(orNormal, '0', 60, 60, 8, 3, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
        ImprimirTexto(orNormal, 'A', 100, 100, 18, 32, 'R$');
        ImprimirTexto(orNormal, 'A', 120, 120, 15, 50, '20,59');
      end;

     //ImprimirEtiquetaComCopiasEAvanco;
     Imprimir(StrToInt('1'), StrToInt('600'));
     Desativar;
  end;

Quase lá!

Desde já agradeço!

[Daniel Simoes]

Você atualizou os fontes pelo SVN?

[atlantisnanet]

Olá Daniel acabei de atualizar, recompilei e o preço desceu um pouco, alguns milímetros, mas ainda está cortando no topo.

[Daniel Simoes]

Qual é a sua impressora ? Qual o Modelo ? Qual a densidade em DPI ?

Aparentemente sua Impressora não detectou o GAP...

Tente um reset na Impressora...
Verifique se você inseriu a Etiqueta com o GAP no lado correto (veja o sensor na impressora)

[atlantisnanet]

O modelo é Argox OS-214plus, bem padrão do comércio mesmo. Densidade não sei, vou ver se acho o manual, vou tentar resetar aqui.

[atlantisnanet]

Veja no foto do link abaixo, a etiqueta está perfeitamente alinhada na impressora:

https://1drv.ms/u/s!AitDtfBbOBpzghLmIEpWcMqC-3mv

Inclusive na versão antiga do componente imprime perfeitamente. Tentei resetar a impressora, o resultado foi o mesmo.

Continua cortando o preço do produto, veja marquei na foto.

Que coisa não? Desde já agradeço a ajuda!

[Daniel Simoes]

Acho que é apenas a questão de ajustar corretamente as coordenadas para essa etiqueta, nos comandos enviados...

[atlantisnanet]

Certo... Descobri aqui como ajustar as posições e os tamanhos, envio aqui abaixo um código extremamente simples para ajudar quem tiver o mesmo problema, as posições ficaram perfeitas, fiz até uma legenda ali para facilitar:

AtivarACBrETQ ;

with ACBrETQ do
begin

If Modelo in [etqPpla, etqPplb] then
begin
ImprimirTexto(orNormal, 2, 2, 2, 3, 3, Copy(DBEdit2.Text,1,26), 0, True);
ImprimirTexto(orNormal, 2, 2, 1, 10, 3, Copy(DBEdit2.Text,27,11));
ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, DBEdit3.Text, 10, becSIM);
ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
{LEGENDA: ImprimirTexto(orNormal, [Tamanho da Fonte], [Largura da Fonte], [Altura da Fonte],
[Posição da Fonte no Topo], [Posição da Fonte na Esquerda], [Preço do Produto]);}
ImprimirTexto(orNormal, 3, 4, 4, 10, 50, DBEdit4.Text);
end;

Imprimir(StrToInt('1'), StrToInt('600'));
Desativar;

end;

Valeu!