jotalinux2 Postado 21 Fevereiro, 2014 Compartilhar Postado 21 Fevereiro, 2014 (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 21 Fevereiro, 2014 por jotalinux2 2 Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 26 Fevereiro, 2014 Fundadores Compartilhar Postado 26 Fevereiro, 2014 Muito boa a iniciativa... parabéns... Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
armizimm Postado 22 Março, 2014 Compartilhar Postado 22 Março, 2014 (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 22 Março, 2014 por armizimm Link para o comentário Compartilhar em outros sites More sharing options...
Hcinocencio Postado 26 Junho, 2018 Compartilhar Postado 26 Junho, 2018 Alguém ja conseguiu imprimir etiquetas com logomarca PCX na Argox OS 214 Plus? Estou precisando fazer isso com urgencia Link para o comentário Compartilhar em outros sites More sharing options...
Administradores Juliana Tamizou Postado 26 Dezembro, 2018 Administradores Compartilhar Postado 26 Dezembro, 2018 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. Juliana Tamizou Gerente de Projetos ACBr / Diretora de Marketing AFRAC Ajude o Projeto ACBr crescer - Seja Pro (15) 2105-0750 (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 More sharing options...
Recommended Posts