QRCode e Código de Barras na mesma etiqueta

[Aggille Sistemas de Gestão]

Tenho um cliente que precisa que saia um código de barras EAN128 e uo QRCore na mesma etiqueta..
A primeira etiqueta sai certa, a partir da segunda a largura do código de barras sai enorme... 
Estou usando uma impressora Zebra imprimindo com ZPLII...
Testei com o exemplo do ACBR e acontece a mesma coisa.. imprimo uma etiqueta, sai ok, imprimo um QRCode , e a proxima etiqueta sai com o codigo de barras errado
 

Seguem fotos de exemplo

 

 

[Aggille Sistemas de Gestão]

Lendo o manual, tem o comando BY que define a largura da barra fina e a relação entre elas..
provavelmente o que acontece é que depois de imprimor o qrcode ele mantêm a largura do QR para o codigo de barras
Vou testar aqui ocomando BY antes de imprimir o código de barras e já posto o resultado

[Aggille Sistemas de Gestão]

resolvi o problema.. 
O padrão ZPLII tem um comando específico pra ajustar a altura e a largura das barras, que deve ser emitido antes de imprimir o código de barras ( ^BY )
Então , na unit ACBrETQZplII criei um método ComandoTamanhoBarras( aBarraFina, aBarraLarga , aAlturaBarra:Integer ) que gera esse comando 
( parâmetro aBarraLarga não tem funcionalidade, pois o padrão zplII calcula a barra larga proporcionalmente ao tamanho da barra fina )

function TACBrETQZplII.ComandoTamanhoBarras(aBarraFina, aBarraLarga , aAlturaBarra:Integer): String;
begin
  result := '^BY' + intToStr( aBarraFina )+ ',,'+ intToStr( aAlturaBarra );
end;

E o método ComandoImprimirBarras ficou assim:

Result := ComandoCoordenadas(aVertical, aHorizontal) +
    ComandoTamanhoBarras(aBarraFina, aBarraLarga , aAlturaBarras ) +
    ComandoBarras(aTipoBarras, aOrientacao, aAlturaBarras, aExibeCodigo) +
    ComandoCampo(aTexto);

 Dessa forma funcionou perfeitamente

Segue em anexo a unit alterada, porém ela contém os métodos de gravação RFID que implementei em outra thread... 
Mas implementando as alterações acima funciona corretamente.

ACBrETQZplII.pas

[EMBarbosa]

Em 19/11/2020 at 10:01, Aggille Sistemas de Gestão disse:

resolvi o problema.. 
O padrão ZPLII tem um comando específico pra ajustar a altura e a largura das barras, que deve ser emitido antes de imprimir o código de barras ( ^BY )
Então , na unit ACBrETQZplII criei um método ComandoTamanhoBarras( aBarraFina, aBarraLarga , aAlturaBarra:Integer ) que gera esse comando 
( parâmetro aBarraLarga não tem funcionalidade, pois o padrão zplII calcula a barra larga proporcionalmente ao tamanho da barra fina )

function TACBrETQZplII.ComandoTamanhoBarras(aBarraFina, aBarraLarga , aAlturaBarra:Integer): String;
begin
  result := '^BY' + intToStr( aBarraFina )+ ',,'+ intToStr( aAlturaBarra );
end;

E o método ComandoImprimirBarras ficou assim:

Result := ComandoCoordenadas(aVertical, aHorizontal) +
    ComandoTamanhoBarras(aBarraFina, aBarraLarga , aAlturaBarras ) +
    ComandoBarras(aTipoBarras, aOrientacao, aAlturaBarras, aExibeCodigo) +
    ComandoCampo(aTexto);

 Dessa forma funcionou perfeitamente

Segue em anexo a unit alterada, porém ela contém os métodos de gravação RFID que implementei em outra thread... 
Mas implementando as alterações acima funciona corretamente.

ACBrETQZplII.pas 18 kB · 2 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.

Subi as alterações para o SVN na Revisão  21041.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Aggille Sistemas de Gestão]

Cliente ja esta usando em produção com.a implementacao que eu havia feito antes...vou atualizar e testar...obrigado..