Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Criar Um Repositório Com Modelos De Comandos Para Etiquetas Comuns?

jotalinux2

Por jotalinux2
em ACBrSerial

 Compartilhar
  • Este tópico foi criado há 1946 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

jotalinux2 Newbie

jotalinux2

Postado
Postado (editado)

Olá a todos,

Pretendo criar um Wizard visual para desenhar etiquetas e gerar modelos e codigos tanto em Acbr qnto em comando Pl2 como o ZebraDesing.

 

Gostaria de propor um lugar para compartilhar blocos de codigos comuns para modelos de etiquetas:

Modelo Impressora :

Tamanho/Modelo Etiqueta:

Imagem de exemplo:

Bloco de Código para gerar na impressora.

 

Ex:

Argox:  Modelo = etqPpla

Gondola_100mm_x_32mm_3_Colunas

Sem imagem de exemplo:

Codigo:

                ImprimirTexto(orNormal, 2, 1, 2, 180, 15, Etiqueta.Descr);
                ImprimirTexto(orNormal, 2, 1, 1, 140, 15, 'R$ ' + Etiqueta.Valor);
                ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 10, Etiqueta.Barras, 70);
 
                ImprimirTexto(orNormal, 2, 1, 2, 180, 315, Etiqueta.Descr);
                ImprimirTexto(orNormal, 2, 1, 1, 140, 315, 'R$ ' + Etiqueta.Valor);
                ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 315, Etiqueta.Barras, 70);
 
                ImprimirTexto(orNormal, 2, 1, 2, 180, 620, Etiqueta.Descr);
                ImprimirTexto(orNormal, 2, 1, 1, 140, 620, 'R$ ' + Etiqueta.Valor);
                ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 620, Etiqueta.Barras, 70);
 
 
Zebra:  epl2

Gondola_100mm_x_32mm_3_Colunas

Sem imagem de exemplo:

 
                ImprimirTexto(orNormal, 2, 1, 3, 15, 55, Etiqueta.Descr);
                ImprimirTexto(orNormal, 2, 1, 1, 80, 55, 'R$ ' + Etiqueta.Valor);
                ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 55, Etiqueta.Barras, 080, becSIM);
 
                ImprimirTexto(orNormal, 2, 1, 3, 15, 365, Etiqueta.Descr);
                ImprimirTexto(orNormal, 2, 1, 1, 80, 365, 'R$ ' + Etiqueta.Valor);
                ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 365, Etiqueta.Barras, 080, becSIM);
 
                ImprimirTexto(orNormal, 2, 1, 3, 15, 670, Etiqueta.Descr);
                ImprimirTexto(orNormal, 2, 1, 1, 80, 670, 'R$ ' + Etiqueta.Valor);
                ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 670, Etiqueta.Barras, 080, becSIM);
 
 
 
 
Argox: etqPpla 
Gondola_100mm_x_32mm_Simples 
        
            FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 190, 5, Centraliza(Etiqueta.Descr, 8) );            
            FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 32, 0, Etiqueta.Barras, 90, becSIM);
            FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
            FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 4, 15, 450, Etiqueta.Valor);
 
//OU centralizada em 3 linhas
sHorizontal   := retornaHorizontal(Etiqueta.BarCode, Etiqueta.Barras);
            //Original Code: Descricao, valor e barras centralizadas horizontalmente
            FACbrEtiqueta.ImprimirTexto(orNormal, 3, 1, 2, 0220, 0080,Centraliza(Etiqueta.Descr, 3));
            FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '9', '3', 0010, StrToInt(sHorizontal), Etiqueta.Barras, 100, becSIM);
            FACbrEtiqueta.ImprimirTexto(orNormal, 5, 1, 1, 0150, 0080, centraliza('R$ ' + Copy(Etiqueta.Valor, 0, 8), 5));
 
 
 
Zebra :epl2 
Gondola_100mm_x_32mm_Simples 
         
            FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 15, 55, Centraliza(Etiqueta.Descr, 8));
            FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 95, 55, Etiqueta.Barras, 90, becSIM);
            FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$');
            FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 5, 85, 515, Etiqueta.Valor);
 
 
Caso tenham modelos para trocar me enviem no email: [email protected]
 
Obrigado.
Editado por jotalinux2
  • Curtir 2
Link para o comentário
Compartilhar em outros sites
  • 4 semanas depois ...
armizimm Contributor

armizimm

Postado
Postado (editado)

Tenho dois modelos que utilizo, porem não uso o ACBREQT, seguem os código.

 

ARGOX - Etiqueta de pé de gondola - (Amarelinha com preço do Item)

// Etiqueta ARGOX 3 Colunas

AssignFile(ETQ,Dm.Lpt_Etiquetas);

Rewrite(ETQ);

Writeln(ETQ,#2'L'); // limpa impressao

Writeln(ETQ,#2'm'); // milimetro - n polegada

Writeln(ETQ,'D11'); // TAMANHO PADRAO PARA PIXS

Writeln(ETQ,'c0100'); // largua12 da entiqueta

Writeln(ETQ,'H10'); // teperatura max20

// etiqueta da Esquerda

WriteLn(Etq,'122200001900010 ' + Copy(Descricao.Text, 1,24 ));

Writeln(ETQ,'122100001580010 ' + Copy(Descricao.Text,25,45));

Writeln(ETQ,'1F4206000430013' + CodBarras.Text ); //EAN13

Writeln(ETQ,'141100000100290R$');

If Promocao.Checked Then Begin

Writeln(ETQ,'134400000100385' + Tabela2.Text);

Writeln(ETQ,'111100000020020Promocao ate ' +PromoVcto.Text);

end else Begin

Writeln(ETQ,'134400000100385' + Tabela3.Text);

Writeln(ETQ,'111100000020020' + Dm.Hoje);

end;

Writeln(ETQ,'Q0001'); // Quantidade de Linhas

Writeln(ETQ,#2'E'); // Inicia a impressao

Writeln(ETQ,#2'f700'); // CORTA E VOLTA f = feed 700=pixels

System.CloseFile(ETQ);

Etiqueta 3 colunas como as da imagem, respectivamente ARGOX e ZEBRA. http://www.isoft-br.com.br/etq.jpg

CDS.First;

while Not Cds.Eof do Begin

// Etiqueta ARGOX 3 Colunas

AssignFile(ETQ,Dm.Lpt_Etiquetas);

Rewrite(ETQ);

Writeln(ETQ,#2'L'); // limpa impressao

Writeln(ETQ,#2'm'); // milimetro - n polegada

Writeln(ETQ,'D11'); // TAMANHO PADRAO PARA PIXS

Writeln(ETQ,'c0100'); // largua12 da entiqueta

Writeln(ETQ,'H5'); // teperatura max20

If (Trim(CDS.Fields[1].AsString) <> '') Then Begin

// etiqueta da Esquerda

WriteLn(Etq,'121100002380020' + RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))));

Writeln(ETQ,'121100002050020' + RemoveAcento(Alinha( CDS.Fields[1].AsString ,' ',21,2)));

Writeln(ETQ,'121100001750020' + Alinha( Copy( RemoveAcento( CDS.Fields[2].AsString ),22,30),' ',21,2));

Writeln(ETQ,'121100001380020' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) );

Writeln(ETQ,'1F4206000430045' + CDS.Fields[4].AsString ); //EAN13

If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'112200000020020' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString);

If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'112200000020020' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString);

If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'121100000020020' + 'PAV: ' + CDS.Fields[5].AsString

+' / PAP: ' + CDS.Fields[6].AsString);

end;

CDS.Next;

If CDS.Eof Then Begin

Writeln(ETQ,'Q0001'); // Quantidade de Linhas

Writeln(ETQ,#2'E'); // Inicia a impressao

Writeln(ETQ,#2'f700'); // CORTA E VOLTA f = feed 700=pixels

System.CloseFile(ETQ);

Break;

end;

If (Trim(CDS.Fields[1].AsString) <> '') Then Begin

// etiqueta do meio

WriteLn(Etq,'121100002380383' + RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))));

Writeln(ETQ,'121100002050383' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2));

Writeln(ETQ,'121100001750383' + Alinha( RemoveAcento( Copy( CDS.Fields[2].AsString ,22,30)),' ',21,2));

Writeln(ETQ,'121100001380383' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) );

Writeln(ETQ,'1F4206000430393' + CDS.Fields[4].AsString ); //EAN13

If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'112200000020383' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString);

If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'112200000020383' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString);

If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'121100000020383' + 'PAV: ' + CDS.Fields[5].AsString

+' / PPAP: ' + CDS.Fields[6].AsString

);

end;

Writeln(ETQ,'Q0001'); // Quantidade de Linhas

Writeln(ETQ,#2'E'); // Inicia a impressao

Writeln(ETQ,#2'f700'); // CORTA E VOLTA f900

CloseFile(ETQ);

CDS.Next;

Coluna.Value := 1;

end;

end;

6:begin

CDS.First;

while Not Cds.Eof do Begin

// Etiqueta Zebra ling. ZPL 3 Colunas

(*

- Altura do text

| Largura do text

| |

^FT202,47^A0N,28,28^FH\^FD" TEXTO "^FS

| |

| - Posição Vertical

|

|-POsição Horizontal

*)

AssignFile(ETQ,Dm.Lpt_Etiquetas);

Rewrite(ETQ);

Writeln(ETQ,'^XA'); // Inicia a etiqueta

Writeln(ETQ,'^LH0,0'); // Cordenada para impressão

Writeln(ETQ,'^MD8'); // Temperatura da cabeça de Impressão

Writeln(ETQ,'^MNY'); // Etiqueta com separação (Espaço em branco ) entre elas Y-Sim N-Não

If (Trim(CDS.Fields[1].AsString) <> '') Then Begin

// etiqueta da Esquerda

Writeln(ETQ,'^FT002,035^A0N,20,32^FD' +RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))) +'^FS');

Writeln(ETQ,'^FT002,055^AAN,18,10^FD' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2) +'^FS');

Writeln(ETQ,'^FT002,073^AAN,18,10^FD' + Alinha( RemoveAcento( Copy( CDS.Fields[1].AsString ,22,30)),' ',21,2) +'^FS');

Writeln(ETQ,'^FT002,093^AAN,18,10^FD' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) +'^FS');

Writeln(ETQ,'^FO040,121^BY2.3^BEN,40,Y,N^FD'+CDS.Fields[4].AsString+'^FS');

If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'^FT002,112^AAN,18,10^FD' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString +'^FS');

If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'^FT002,112^AAN,18,10^FD' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString +'^FS');

If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'^FT002,112^AAN,18,10^FD' + 'AV: ' + CDS.Fields[5].AsString

+' / AP: ' + CDS.Fields[6].AsString

+'^FS' );

end;

CDS.Next;

If CDS.Eof Then Begin

Writeln(ETQ,'^XZ');

System.CloseFile(ETQ);

Break;

end;

If (Trim(CDS.Fields[1].AsString) <> '') Then Begin

// etiqueta do meio

Writeln(ETQ,'^FT298,035^A0N,20,32^FD' +RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))) +'^FS');

Writeln(ETQ,'^FT298,055^AAN,18,10^FD' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2) +'^FS');

Writeln(ETQ,'^FT298,073^AAN,18,10^FD' + Alinha( RemoveAcento( Copy( CDS.Fields[1].AsString ,22,30)),' ',21,2) +'^FS');

Writeln(ETQ,'^FT298,093^AAN,18,10^FD' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) +'^FS');

Writeln(ETQ,'^FO335,121^BY2.3^BEN,40,Y,N^FD'+CDS.Fields[4].AsString+'^FS');

If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'^FT298,112^AAN,18,10^FD' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString +'^FS');

If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'^FT298,112^AAN,18,10^FD' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString +'^FS');

If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'^FT298,112^AAN,18,10^FD' + 'AV: ' + CDS.Fields[5].AsString

+' / AP: ' + CDS.Fields[6].AsString

+'^FS' );

end;

CDS.Next;

If CDS.Eof Then Begin

Writeln(ETQ,'^XZ');

System.CloseFile(ETQ);

Break;

end;

If (Trim(CDS.Fields[1].AsString) <> '') Then Begin

// etiqueta da Direita

Writeln(ETQ,'^FT590,035^A0N,20,32^FD' +RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))) +'^FS');

Writeln(ETQ,'^FT590,055^AAN,18,10^FD' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2) +'^FS');

Writeln(ETQ,'^FT590,073^AAN,18,10^FD' + Alinha( RemoveAcento( Copy( CDS.Fields[1].AsString ,22,30)),' ',21,2) +'^FS');

Writeln(ETQ,'^FT590,093^AAN,18,10^FD' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) +'^FS');

Writeln(ETQ,'^FO610,121^BY2.3^BEN,40,Y,N^FD'+CDS.Fields[4].AsString+'^FS');

If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'^FT590,112^AAN,18,10^FD' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString +'^FS');

If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'^FT590,112^AAN,18,10^FD' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString +'^FS');

If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'^FT590,112^AAN,18,10^FD' + 'AV: ' + CDS.Fields[5].AsString

+' / AP: ' + CDS.Fields[6].AsString

+'^FS' );

end;

Writeln(ETQ,'^XZ');

CloseFile(ETQ);

CDS.Next;

Coluna.Value := 1;

end;

end;

Editado por armizimm
Link para o comentário
Compartilhar em outros sites
  • 4 anos depois...
  • 5 meses depois ...
  • Administradores
Juliana Tamizou Veteran

Juliana Tamizou

Postado
  • Administradores
Postado

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites
  • Este tópico foi criado há 1946 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...