Fórum Zebra ZPL #363269
26/08/2008
0
Estou precisando imprimir etiquetas de código de barras em uma impressora Zebra. Já notei que a linguagem desta impressora é ZPL mas ainda não peguei o jeito de usar os comandos. Quero imprimir direto para a impressora através do comando [b:55631c8cc8]TextFile // WriteLn[/b:55631c8cc8]. Já escrevi algo mas não obtive nenhuma resposta da impressora... nem mensagem de erro é retornada... Simplesmente nada.
VAR F : TextFile;
begin
AssignFile(F,´USB001´);
Rewrite(F);
Writeln(F, ´^XA´);
Writeln(F, ´^FO18,110´);
Writeln(F, ´^AF,N,10,20´ + ´^FD´ + ´< ´+´Loja: NOME LOJA >´ + ´^FS´);
Writeln(F, ´^FO01,145´);
Writeln(F, ´^AB,N,5,10 ^FD FAVOR MANTER ESTA ETIQUETA ^FS´);
Writeln(F, ´^FO01,160´);
Writeln(F, ´^AB,N,5,10 ^FD EM CASO DE TROCA. ^FS´);
Writeln(F, ´^FO10,192´);
Writeln(F, ´^AF,N,10,30^FD TAM: 40 ^FS´); //tamanho
Writeln(F, ´^FO13,234´);
Writeln(F, ´^AB,N,10,20´ + ´^FD´ + ´NOME DO PRODUTO´ +´^FS´);
Writeln(F, ´^FO13,264´); //
Writeln(F, ´^B2,60,Y,N^FD´ + ´0000000000017´ +´^FS´);
Writeln(F, ´^FO116,353´);
Writeln(F, ´^AB,N,10,20´ + ´^FD´ + ´000001´ +´^FS´);
Writeln(F, ´^FO13,378´);
Writeln(F, ´^GB245,90,4,B,1^FS´);
Writeln(F, ´^FO11,383´);
Writeln(F, ´^AB,N,11,11^FD R$^FS´);
Writeln(F, ´^FO40,409´); // Preço do produto
Writeln(F, ´^AF,N,30,30´ + ´^FD´ + ´99,00´ + ´^FS´);
Writeln(F, ´^XZ´);
Writeln(F,´P1´);
Closefile(F);
end;
Se alguem puder me dar uma força... se possível um código já escrito determinando o tamanho da etiqueta, quantida de etiquetas por linha e impressão de treis linhas: descrição do produto, código de barras e preço.
Desde já agradeço pela atenção e apoio.
Augusto.
VAR F : TextFile;
begin
AssignFile(F,´USB001´);
Rewrite(F);
Writeln(F, ´^XA´);
Writeln(F, ´^FO18,110´);
Writeln(F, ´^AF,N,10,20´ + ´^FD´ + ´< ´+´Loja: NOME LOJA >´ + ´^FS´);
Writeln(F, ´^FO01,145´);
Writeln(F, ´^AB,N,5,10 ^FD FAVOR MANTER ESTA ETIQUETA ^FS´);
Writeln(F, ´^FO01,160´);
Writeln(F, ´^AB,N,5,10 ^FD EM CASO DE TROCA. ^FS´);
Writeln(F, ´^FO10,192´);
Writeln(F, ´^AF,N,10,30^FD TAM: 40 ^FS´); //tamanho
Writeln(F, ´^FO13,234´);
Writeln(F, ´^AB,N,10,20´ + ´^FD´ + ´NOME DO PRODUTO´ +´^FS´);
Writeln(F, ´^FO13,264´); //
Writeln(F, ´^B2,60,Y,N^FD´ + ´0000000000017´ +´^FS´);
Writeln(F, ´^FO116,353´);
Writeln(F, ´^AB,N,10,20´ + ´^FD´ + ´000001´ +´^FS´);
Writeln(F, ´^FO13,378´);
Writeln(F, ´^GB245,90,4,B,1^FS´);
Writeln(F, ´^FO11,383´);
Writeln(F, ´^AB,N,11,11^FD R$^FS´);
Writeln(F, ´^FO40,409´); // Preço do produto
Writeln(F, ´^AF,N,30,30´ + ´^FD´ + ´99,00´ + ´^FS´);
Writeln(F, ´^XZ´);
Writeln(F,´P1´);
Closefile(F);
end;
Se alguem puder me dar uma força... se possível um código já escrito determinando o tamanho da etiqueta, quantida de etiquetas por linha e impressão de treis linhas: descrição do produto, código de barras e preço.
Desde já agradeço pela atenção e apoio.
Augusto.
Zangado
Curtir tópico
+ 0
Responder
Posts
27/08/2008
Marcosrocha
Ela não tem manual disponível? Na maioria dos casos o manual da impressora ajuda muito.
Responder
Gostei + 0
27/08/2008
Zangado
Marcos,
A documentação que acompanha a impressora é apenas a garantia, uma lista de autorizadas pela manutenção e um passo a passo para instalar o rolo de etiquetas... Sei que os comandos de impressão direta são ZPL (encontrei material na web) mas está bastante difícil formatar estes códigos para trabalhar com impressão direta no Delphi. Minha esperança é que algum companheiro já tenha enfrentado a questão e possa compartilhar conosco a solução encontrada.
Obrigado pelo apoio.
A documentação que acompanha a impressora é apenas a garantia, uma lista de autorizadas pela manutenção e um passo a passo para instalar o rolo de etiquetas... Sei que os comandos de impressão direta são ZPL (encontrei material na web) mas está bastante difícil formatar estes códigos para trabalhar com impressão direta no Delphi. Minha esperança é que algum companheiro já tenha enfrentado a questão e possa compartilhar conosco a solução encontrada.
Obrigado pelo apoio.
Responder
Gostei + 0
27/08/2008
Marcosrocha
Normalmente os fabricantes disponibilizam um manual para programadores e alguns até enviam programas de exemplo. Seria interessante você tentar entrar em contato com eles para ver se consegue. Caso negativo, poderemos tentar alguma coisa.
Responder
Gostei + 0
09/09/2008
Nasguone
Estou te enviando um exemplo que uso onde esta os dm(datamodules) vc pode alterar por uma string so para vc ver...
O codigo maior no comeco e um logo qualquer coisa me manda um mail que te envio a documentação ZPL e ZPLII
Com1.Open;
////////////////CARREGA LOGO PARA IMPRESSÃO
com1.WriteStr(´^XA~TA000~JSN^LT0^MMT^MNW^MTT^PON^PMN^LH0,0^JMA^PR2,2^MD0^JUS^LRN^CI0^XZ´);
com1.WriteStr(´~DG000.GRF,06144,024,´+´ ´+
´,:::::::::::::::::::::::::J03FhGF8J03FgQF7FNF8J03FgPFE3FNF8J03FgPF01FNF8J03FgOFA02FNF8J03FgNFC0H07FMF8J03FgNF´+
´80H07FMF8J03FgNFJ03FMF8J03FgNFA0H03FMF8J039FIFC0V03FJFC0I0NF8J038FIFC0V03FEBFFE0I0NF8J0381FHFC0V01F01FHFJ07FL´+
´F8J03B0FHFCFVF3E00FHF80H03FLF8J03D01FFC7FUF30H07FFC0H01FLF8J03B007FCFVFJ07FFC0I0MF8J03801FFC7FUFJ03FFE0I0DFKF´+
´8J0382FHFEFVFJ03FHFJ07FKF8J0381FHFC7FUFJ01FHFJ03FKF8J038FIFCFVF20I0IF80H03FKF8J039FE7FC7FRF3FF30I07FFC0H01FKF´+
´8J03A22FFCFRFE3FF30I03FFE0H02FKF8J038007FC7FQF01FF380H01FHFJ0LF8J039E0FFCFFE1FMF800FF3C0H01FHF80H0LF8J03F007F´+
´C7FE1FLFC0H05F1C0I0DFD80H07FJF8J03823FFEFFE3FLFJ03F3E20H0IFE0H03FJF8J03C1FHFC7FF1FLFJ03F3F0I07FFC0H03FJF8J03B´+
´8BFFCFFE1FLF80H01F3F80H03FFE0H01FJF8J039407FC7FE0FLFC0I0F1F80H01FHFJ0KF8J03802FFCFFE03FKFE0I0F3FE0H03FHF80H0K´+
´F8J038007FC7FF01FLFJ073FE0H01FHF80H07FIF8J03880FFCFFE00FLF80H0H3FE0I0IFC0H07FIF8J039FE7FC7FE007FKF80H0H1HFJ07´+
´FFC0H07FIF8J03BBEFFEFFE003FKFE0H013FF80H07FFE0H03FIF8J038007FC7FF0H07FJFC0I03FFC0H03FHFI01FIF8J03800FFCFFE0H0´+
´3FJFE0I03FFE0H03FHF8001FIF8J038007FC7FE0H01FKFJ03FFE0H01FHFJ0JF8J03B8AFFCFFE0I0LF80H03FHFI02FHF80H0JF8J039007´+
´FC7FF10H07FJFC0H01FHFJ0IFC0H07FHF8J038F8FFCFFE1C003FJFE0H01FHF80H0IFC0H07FHF8J038107FC7FE1C0H07FIFE0I0IFC0H07´+
´FFC0H07FHF8J03BBEFFEFFE3E2003FJFJ0IFE0H03FFE0H03FHF8J039107FC7FF1C1001FJFJ07FFE0H01FHFI03FHF8J03800FFCFFEBE38´+
´00FJF80H03FFE0H01FHFI03FHF8J038007FC7FHFC1C007FIFC0H03FHFI01FHFI01FHF8J0388AFFCFIFE3F003FIFE0H03FHF80H0IF8003´+
´FHF8J039047FC7FHFC1F8007FHFE0H01FHF80H07FFC0H0IF8J03E00FFCFIFE1FE007FIFJ0IF80H07FFC0H0IF8J038007FC7FFDC1FD007´+
´DFDF0I07FDC0H07FFC0H05FF8J038E3FFEFIFE3FF803FIF80H07FFE0H03FFE0H07FF8J039F7FFC7FHFC1FFC07FIFC0H07FFE0H01FFE0H´+
´07FF8J039FEFFCFIFE3FFC03FIFE0H03FHFI01FFE0H03FF8J038007FC7FHFC1FF007FIFE0H01FHFI01FHFI03FF8J03800FFCFIFE3FE00´+
´3FIFE0H01FHF80H0IFI03FF8J038007FC7FHFC1F0H07FJFI01FHF80H07FF0H01FF8J039FEFFCFHFBE1E0H03FJF80H0IFC0H0IF8001FF8´+
´J03D07FFC7FF1C180H07FJF80H07FFC0H07FF8001FF8J03E03FFEFFE3E30I03FJFC0H07FFE0H03FF8002FF8J03C00FFC7FF1C0J07FJFC´+
´0H03FFE0H03FFC0H0HF8J03828FFCFFE1E0J03FJFE0H03FFE0H03FFC0H0HF8J039FC7FC7FE1C0J07FJFE0H01FHFI01FFC0H07F8J03BFE´+
´FFCFFE380J03FKFI03FHFI03FFE0H0HF8J039FE7FC7FF0L07FKFI01FHFI01FFE0H07F8J038FCFFCFFE0L03FKFJ0IF80H0HFE0H07F8J03´+
´C707FC7FE0L07FKFJ07FF80H0HFE0H07F8J03BFAFFEFFE0L0MF20H0IFC200FHFI07F8J0397FHFC7FF0K01FLFJ07FFC0H07FF0H07F8J03´+
´83FHFCFFE0K03FLF20H03FFE0H0IFI03F8J03907FFC7FE0K07FLFJ03FFC0H07FF0H03F8J03F21FFCFFE0K0NF20H03FFE0H07FF8003F8J´+
´039007FC7FF0J01FMF30H01FFE0H07FF0H03F8J03803FFCFFE0J0OF38001FFE0H03FF8003F8J03807FFC7FE0J0OF10H01FHFI03FF8003´+
´F8J0383FHFEFFE0I03FNF38202FHFI03FF8003F8J039FIFC7FF0I07FNF380H0IFI03FF8003F8J039FEFFCFFE0I0HENF3C0H0IF8003FF8´+
´003F8J038007FC7FE0H01C01FLF1C0H07FF0H01FF8003F8J03AA0FFCFFE0H07800FLF3E0H0IF8003FF8003F8J039E07FC7FF001E0H07F´+
´KF3E0H07FF8001FFC003F8J03FC1FFCFFE00380H0MF3E0H07FF8001FF8003F8J03F03FFC7FE0070I07FKF1E0H07FF8001DFC007F8J03E´+
´2EFFEFFE00E0I07FKF3F0H03FF8003FF8027F8J038007FC7FF01C0I07FKF3F0H03FF8001FFC007F8J038H8HFCFFE0F80I03FKF3F0H03F´+
´F8001FF8007F8J03FFE7FC7FE0C0J07FKF1F0H03FF8001FF8007F8J03FJFCFFE3A0J03FKF3F8003FF8003FF800FF8J03FJFC7FF10K03F´+
´KF3F0H01FF8001FF800FF8J03FJFCFFE180J03FKF3F8003FF8003FF800FF8J03F07FFC7FF10K07FKF1F8001FF8001FF801FF8J03E03FF´+
´EFFE380J03FKF3F8003FF8003FFA03FF8J03C00FFC7FF10K07FKF3F8001FF8003FF003FF8J038A8FFCFFE180J03FKF3F8003FF8003FF0´+
´03FF8J039FC7FC7FHFL07FKF1F8001FF0H03FF007FF8J03BBEFFCFIF80J03FKF3F8003FF8003FE02FHF8J0391E7FC7FF0L03FKF3F8001´+
´FF0H07FE01FHF8J0383CFFCFFE0L03FKF3F8003FF0H0HFE03FHF8J03C105FC7FF0L07FKF1F8001FF0H07FC07DFF8J03EB2FFEFFE02AIA´+
´83FKF3F8003FE0H0HFE3FIF8J0399E7FC7FF07FIF87FKF3F8003FE001FF83FIF8J038H8HFCFFE0FJF83FKF3F8003FE001FF8FJF8J0380´+
´07FC7FF07FIF87FKF1F8003FC001FF1FJF8J03802FFCFFE0FJF83FKF3F8003FA023FMF8J039547FC7FF07FIF83FKF3F0H07F8003FMF8J´+
´039FEFFCFFE0FJF83FKF3F8007F8003FMF8J039FIFC7FF07FIF87FKF1F0H07F0H05FMF8J038FIFEFFE0FJF83FKF3F0H0HFI07FMF8J038´+
´3FHFC7FF07FIF87FKF3E0H0HFI07FMF8J039FIFCFFE0FJF83FJFE3E0H0FE0H0OF8J0387FHFC7FF07FIF87FKF1C001FE0H07FMF8J03A0F´+
´HFCFFE0FJF83FKF3E003FE0H0OF8J03D01FFC7FF07FIF83FKF38003FE0H07FMF8J03F00FFCFFE0FJF83FKF38003FE0H0OF8J038007FC7´+
´FF07E1FF87FKF10H07FC0H0OF8J0382FHFEFFE0FE1FF83FKF38007FE0H0OF8J0381FHFC7FF07E1FF87FIFEF30H07FC0H0OF8J038FIFCF´+
´FE0FE1FF83FIF8F30H0HFC0H0OF8J03975FFC7FF0041F407FHFC1F0I07FC0H0OF8J03A23FFCFFE0H01F803FHFA3F20H0HFE0H0OF8J03D´+
´C07FC7FF0H01F003FFC03F20H0HFC0H0OF8J03982FFCFFE0H01F803FF803F20H0HFC0H0OF8J039067FC7FF0H01F007FF001F0I0HFC0H0´+
´OF8J0380EFFEFFE0H01F803FE003F20H0HFE0H0OF8J03C107FC7FF0H01F007FC007F0I0HFC0H07FMF8J03EBFHFCFFE0H01F803F8007F0´+
´I0HFC0H0OF8J03821FFC7FF0H01F007F8007F0I0HFC0H07FMF8J03AE0FFCFFE0H01F803F8007F20H0HFE0H07FMF8J039C07FC7FF0H01F´+
´003F8007F0I0HFC0H07FMF8J03B8EFFCFFE0H01F803F8007F0I0HFE0H07FMF8J039047FC7FF0H01F007F8005F0I0HFC0H03FMF8J03C28´+
´FFEFFE0H01F803F8007F20H0HFE0H03FMF8J03E117FC7FF0H01F007F0H07F0I0HFE0H03FMF8J03FJFCFFE0H01F803F8007F0I0HFE0H03´+
´FMF8J03FJFC7FF0H01F007F0H07F0I07FF0H01FMF8J03FJFCFFE0H01F803F8003F20H0IFI03FMF8J039FE7FC7FF0H01F007F8003F0I07´+
´FF0H01FMF8J038AAFFCFFE0H01F803F8003F20H0IF80H0NF8J038007FC7FF0H01F007F8001F0I07FF80H0NF8J03800FFEFHF8001F807F´+
´8003F20H07FF80H0NF8J039447FC7FFC001F017F8003F20H07FFC0H07FLF8J039C8FFCFJFE1FJF8003F20H03FFC0H07FLF8J03FC0FFC7´+
´FIFE1FJF8001F10H03FFC0H07FLF8J03FE3FFCFHFHAE1FBAFF8003F30H03FFE0H03FLF8J039F27FC7FF00618007F8001F30H01FFE0H03´+
´FLF8J038AAFFCFFE00EB8003F8001F38001FFE0H03FLF8J038007FC7FE007F8007FC001F10H01FHFI01DFKF8J03800FFEFFE002A8003F´+
´C003F380H0IFJ0MF8J039047FC7FF0L07FC0H0F380H0IFJ0MF8J03B8EFFCFFE0L03FC0H0F380H0IF80H0MF8J03C007FC7FE0L07FC0H0F´+
´1C0H07FF80H07FKF8J03A20FFCFFE0L03FE0H0F3E0H07FF80H03FKF8J03871FFC7FF0L07FC0H073C0H07FFC0H03FKF8J038FIFCFFE0L0´+
´3FE0H073E0H03FFE0H03FKF8J03907FFC7FE0L07FE0H071E0H01DFE0H01FKF8J03E03FFEFFE0L03FE0H0H3F0H03FFE0I0LF8J03C00FFC´+
´7FF0L07FF0H0H3F0H01FHFJ0LF8J038A8FFCFFE0L03FF0H0H3F80H0IF80H0LF8J039FE7FC7FE0L07FF0H013F80H0IF80H05FJF8J03BFE´+
´7FCFFE0L03FF80033F80H0IFA0H03FJF8J039747FC7FF0L07FF80013FC0H07FFC0H01FJF8J03C00FFCFFE0K083FF80H03FE0H03FFE0H0´+
´1FJF8J03C01DFC7FE1505DDC7FFC0H01FC0H01FFE0I0KF8J03F23FFEFFE3F87FF83FFE0H03FE0H03FHF20H0KF8J039FE7FC7FF1F87FFC´+
´7FFC0H03FF0H01FHFJ07FIF8J03800FFCFFE1F8FHF83FFE0H03FF80H0IF80H03FIF8J038007FC7FE1F87FFC7FFE0H03FF80H0IFC0H01F´+
´IF8J03A02FFCFFE3F87FF83FHFI03FFA0H07FFE0H01FIF8J039747FC7FF1F87FFC7FHFI01FFC0H07FFE0I0JF8J038FEFFCFFE1F87FF83´+
´FHF8001FFE0H03FFE0I0JF8J03C00FFC7FE1F87FFC7FHF80H0FDE0H01FFD0I07FHF8J03E20FFEFFE3F87FF83FHF80H0IF2001FHF80H03´+
´FHF8J03E01FFC7FF5F87FFC7FHFC0H07FF0I0IFC0H01FHF8J03FAFHFCFJF87FF83FHFC0H0IF80H0IFC0H01FHF8J03F547FC7FIF87FF87´+
´FHFC0H07FF80H07FFC0I0IF8J03E02FFCFJF83FF83FHFE0H03FFE0H03FFE0I0IF8J038007FC7FIF81FF07FIFI01FFC0H01FHFJ07FF8J0´+
´38H8HFCFJF80FE03FIFI01FFE0H01FHF80H03FF8J039FE7FC7FIF805007FIFJ0DFD0I0IFC0H01FF8J03BFEFFEFJF80I03FIF8020FHF80´+
´H0IFE0I0HF8J03C547FC7FIF80I07FIFC0H07FF80H07FFE0I07F8J03E00FFCFJF80I03FIFC0H03FFC0H03FHFJ03F8J03F547FC7FIF80I´+
´07FIFC0H03FFC0H01FHFJ01F8J03FAEFFCFJF80I03FIFE0H03FFE0I0IFA0H03F8J03E01FFC7FIF80I07FJFI01FHFJ07FFC0I0F8J03C01´+
´FFCFJF80I03FJFJ0IF80H07FFE0I0F8J03C00FFC7FIF80I07FJFJ07FF80H01FHFJ018J03AFEFFEFJF80I07FJF80H03FFE0H03FHF80H03´+
´8J039FE7FC7FIF80I07FJFC0H03FFE0H01FHF8001F8J039FEFFCFJFC0I0LFE0H03FFE0I0IFC00FF8J03DFC7FC7FIFC0I0LFE0I0IFJ07F´+
´FE01FF8J03EF0FFCFJFE0H03FLFJ0IF80H03FHF3FHF8J03F707FC7FJFI07FLFJ07FFC0H01FHF7FHF8J03FF8FFCFKFE80FMFJ03FFE0I0M´+
´F8J039FC5FC7FIFDFDFDFLFJ01FFE0I07FJFD8J03AHAHFEFVF20H03FHFJ03FKF8J038007FC7FUF20I0IFJ07FKF8J03800FFCFVF280H07´+
´FF8003FLF8J038007FC7FUF10I03FFC007FLF8J03BFEFFCFVF3A0H03FFE03FMF8J03FF07FC7FUF3C0H01FHF1FNF8J03EFAFFCFVF3E0I0´+
´SF8J03801FFC7FUF1E0I05FQF8J03CE0FFEFVF3FA0H03FQF8J039807FC7FUF3F80H01FQF8J0398EFFCAVA3FC0H03FQF8J0380C7FC0V03´+
´DC001FRF8J03E127FE202020202020202023FF00FSF8J03E157FgGF03FSF8J03FgKFAFTF8J03FHFDFDFgUF8J03FhGF8,::::::::::::::::::::^XA^LL0406´);
com1.WriteStr(´^PW609´);
com1.WriteStr(´^FT370,495^XG000.GRF,1,1^FS´);
////////////////ENCERRA LOGO///////////////
///////QUADRO NEGRO ETIQUETA PEQUENA
com1.WriteStr(´^FX Quadro negro ^FS´);
com1.WriteStr(´^FO0,0´);
com1.WriteStr(´^GB565,100,250^FS´);
// COD BARRAS
com1.WriteStr(´^FO20,15´);
com1.WriteStr(´^BY2´);
com1.WriteStr(´^BCN,60,N´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqGerProd_Serial.AsString+´^FS ´);
// serial DA PEÇA
com1.WriteStr(´^FO20,75´);
com1.WriteStr(´^AEN,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqGerProd_Serial.AsString+´^FS´);
///////////veiculo/////////////////////////////////////////
com1.WriteStr(´^FO020,110´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+dm.cdEtqGerVEICULO.AsString+´^FS´);
// peça/cor
com1.WriteStr(´^FO20,135´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+dm.cdEtqGerPART_SHORT.AsString+´ / ´+dm.cdEtqGerColor_Name.AsString+´^FS´);
// Aço/Franja
if dm.cdEtqGerSTEEL.AsString = ´SIM´ then
begin
pecaco := ´PECA COM ACO´;
end;
if dm.cdEtqGerSTEEL.AsString = ´NAO´ then
begin
pecaco := ´PECA SEM ACO´;
end;
com1.WriteStr(´^FO20,165´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+pecaco+´ / ´+dm.cdEtqGerSunBand_Name.AsString+´^FS´);
// Edge
com1.WriteStr(´^FO20,195´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDEDGE:´+DM.cdEtqGerGlassEdge_Name.AsString+´^FS´);
// logo
com1.WriteStr(´^FO20,225´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDT.M:´+TRIM(dm.cdEtqGerLogo_Name.AsString)+´/´+TRIM(dm.cdEtqGerLogo_Desc.AsString)+´^FS´);
/// INICIA ENTRADA DESCRITIVA DA ETQ GRANDE
// DADOS ETIQUETA VEICULO ////////////////////////////////////////////
com1.WriteStr(´^FO520,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDPARTNUMBER:´+dm.cdEtqGerPARTNUMBER.AsString+´^FS´);
// DADOS ETIQUETA PEDIDO
com1.WriteStr(´^FO480,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqgerOrder_Code.AsString+´^FS´);
//////////////emite dados DATA///
com1.WriteStr(´^FO480,705´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DateToStr(dataconsulta)+´^FS´);
////////////////emite dados TMARK
com1.WriteStr(´^FO445,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDT.Mark:´+TRIM(dm.cdEtqgerLogo_Name.AsString)+´-´+TRIM(dm.cdEtqgerLogo_Desc.AsString)+´^FS´);
// RESPONSAVEIS PELA PEÇA
com1.WriteStr(´^FO390,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDRESP:_______________________^FS´);
// DADOS ETIQUETA PARTNUMBER
com1.WriteStr(´^FO350,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+dm.cdEtqGerVEICULO.AsString+´^FS´);
// DADOS ETIQUETA PECA TIPO
com1.WriteStr(´^FO310,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDTIPO:´+dm.cdEtqgerPART_SHORT.AsString+´^FS´);
// DADOS ETIQUETA PECA TIPO COM ACO
com1.WriteStr(´^FO310,450´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+pecaco+´^FS´);
// DADOS ETIQUETA EDGE
com1.WriteStr(´^FO270,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDEDGE:´+DM.cdEtqgerGlassEdge_Name.AsString+´^FS´);
// DADOS ETIQUETA COR
com1.WriteStr(´^FO230,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDCOR´+dm.cdEtqgerColor_Name.AsString+´^FS´);
// DADOS ETIQUETA FRANJA
com1.WriteStr(´^FO190,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDFRANJA´+dm.cdEtqgerSunBand_Name.AsString+´^FS´);
///////////////EMITE steel DA PEÇA
com1.WriteStr(´^FO150,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDStell:´+dm.cdETQgerSTEEL.AsString+´^FS´);
//COD BARRAS
com1.WriteStr(´^FO70,500´);
com1.WriteStr(´^BY2´);
com1.WriteStr(´^BCR,100,N´);
com1.WriteStr(´^FN´);
com1.WriteStr(´^FD´+DM.cdEtqgerProd_Serial.AsString+´^FS ´);
// SERIAL CÓD BARRAS;
com1.WriteStr(´^FO25,530´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqgerProd_Serial.AsString+´^FS ´);
/////////////ENCERRA ETQ GRANDE PEÇAS NORMAIS
com1.WriteStr(´^PQ1,0,1,Y^XZ´);
Sleep(2500);
com1.Close;
pnumetq := ´´;
end;
O codigo maior no comeco e um logo qualquer coisa me manda um mail que te envio a documentação ZPL e ZPLII
Com1.Open;
////////////////CARREGA LOGO PARA IMPRESSÃO
com1.WriteStr(´^XA~TA000~JSN^LT0^MMT^MNW^MTT^PON^PMN^LH0,0^JMA^PR2,2^MD0^JUS^LRN^CI0^XZ´);
com1.WriteStr(´~DG000.GRF,06144,024,´+´ ´+
´,:::::::::::::::::::::::::J03FhGF8J03FgQF7FNF8J03FgPFE3FNF8J03FgPF01FNF8J03FgOFA02FNF8J03FgNFC0H07FMF8J03FgNF´+
´80H07FMF8J03FgNFJ03FMF8J03FgNFA0H03FMF8J039FIFC0V03FJFC0I0NF8J038FIFC0V03FEBFFE0I0NF8J0381FHFC0V01F01FHFJ07FL´+
´F8J03B0FHFCFVF3E00FHF80H03FLF8J03D01FFC7FUF30H07FFC0H01FLF8J03B007FCFVFJ07FFC0I0MF8J03801FFC7FUFJ03FFE0I0DFKF´+
´8J0382FHFEFVFJ03FHFJ07FKF8J0381FHFC7FUFJ01FHFJ03FKF8J038FIFCFVF20I0IF80H03FKF8J039FE7FC7FRF3FF30I07FFC0H01FKF´+
´8J03A22FFCFRFE3FF30I03FFE0H02FKF8J038007FC7FQF01FF380H01FHFJ0LF8J039E0FFCFFE1FMF800FF3C0H01FHF80H0LF8J03F007F´+
´C7FE1FLFC0H05F1C0I0DFD80H07FJF8J03823FFEFFE3FLFJ03F3E20H0IFE0H03FJF8J03C1FHFC7FF1FLFJ03F3F0I07FFC0H03FJF8J03B´+
´8BFFCFFE1FLF80H01F3F80H03FFE0H01FJF8J039407FC7FE0FLFC0I0F1F80H01FHFJ0KF8J03802FFCFFE03FKFE0I0F3FE0H03FHF80H0K´+
´F8J038007FC7FF01FLFJ073FE0H01FHF80H07FIF8J03880FFCFFE00FLF80H0H3FE0I0IFC0H07FIF8J039FE7FC7FE007FKF80H0H1HFJ07´+
´FFC0H07FIF8J03BBEFFEFFE003FKFE0H013FF80H07FFE0H03FIF8J038007FC7FF0H07FJFC0I03FFC0H03FHFI01FIF8J03800FFCFFE0H0´+
´3FJFE0I03FFE0H03FHF8001FIF8J038007FC7FE0H01FKFJ03FFE0H01FHFJ0JF8J03B8AFFCFFE0I0LF80H03FHFI02FHF80H0JF8J039007´+
´FC7FF10H07FJFC0H01FHFJ0IFC0H07FHF8J038F8FFCFFE1C003FJFE0H01FHF80H0IFC0H07FHF8J038107FC7FE1C0H07FIFE0I0IFC0H07´+
´FFC0H07FHF8J03BBEFFEFFE3E2003FJFJ0IFE0H03FFE0H03FHF8J039107FC7FF1C1001FJFJ07FFE0H01FHFI03FHF8J03800FFCFFEBE38´+
´00FJF80H03FFE0H01FHFI03FHF8J038007FC7FHFC1C007FIFC0H03FHFI01FHFI01FHF8J0388AFFCFIFE3F003FIFE0H03FHF80H0IF8003´+
´FHF8J039047FC7FHFC1F8007FHFE0H01FHF80H07FFC0H0IF8J03E00FFCFIFE1FE007FIFJ0IF80H07FFC0H0IF8J038007FC7FFDC1FD007´+
´DFDF0I07FDC0H07FFC0H05FF8J038E3FFEFIFE3FF803FIF80H07FFE0H03FFE0H07FF8J039F7FFC7FHFC1FFC07FIFC0H07FFE0H01FFE0H´+
´07FF8J039FEFFCFIFE3FFC03FIFE0H03FHFI01FFE0H03FF8J038007FC7FHFC1FF007FIFE0H01FHFI01FHFI03FF8J03800FFCFIFE3FE00´+
´3FIFE0H01FHF80H0IFI03FF8J038007FC7FHFC1F0H07FJFI01FHF80H07FF0H01FF8J039FEFFCFHFBE1E0H03FJF80H0IFC0H0IF8001FF8´+
´J03D07FFC7FF1C180H07FJF80H07FFC0H07FF8001FF8J03E03FFEFFE3E30I03FJFC0H07FFE0H03FF8002FF8J03C00FFC7FF1C0J07FJFC´+
´0H03FFE0H03FFC0H0HF8J03828FFCFFE1E0J03FJFE0H03FFE0H03FFC0H0HF8J039FC7FC7FE1C0J07FJFE0H01FHFI01FFC0H07F8J03BFE´+
´FFCFFE380J03FKFI03FHFI03FFE0H0HF8J039FE7FC7FF0L07FKFI01FHFI01FFE0H07F8J038FCFFCFFE0L03FKFJ0IF80H0HFE0H07F8J03´+
´C707FC7FE0L07FKFJ07FF80H0HFE0H07F8J03BFAFFEFFE0L0MF20H0IFC200FHFI07F8J0397FHFC7FF0K01FLFJ07FFC0H07FF0H07F8J03´+
´83FHFCFFE0K03FLF20H03FFE0H0IFI03F8J03907FFC7FE0K07FLFJ03FFC0H07FF0H03F8J03F21FFCFFE0K0NF20H03FFE0H07FF8003F8J´+
´039007FC7FF0J01FMF30H01FFE0H07FF0H03F8J03803FFCFFE0J0OF38001FFE0H03FF8003F8J03807FFC7FE0J0OF10H01FHFI03FF8003´+
´F8J0383FHFEFFE0I03FNF38202FHFI03FF8003F8J039FIFC7FF0I07FNF380H0IFI03FF8003F8J039FEFFCFFE0I0HENF3C0H0IF8003FF8´+
´003F8J038007FC7FE0H01C01FLF1C0H07FF0H01FF8003F8J03AA0FFCFFE0H07800FLF3E0H0IF8003FF8003F8J039E07FC7FF001E0H07F´+
´KF3E0H07FF8001FFC003F8J03FC1FFCFFE00380H0MF3E0H07FF8001FF8003F8J03F03FFC7FE0070I07FKF1E0H07FF8001DFC007F8J03E´+
´2EFFEFFE00E0I07FKF3F0H03FF8003FF8027F8J038007FC7FF01C0I07FKF3F0H03FF8001FFC007F8J038H8HFCFFE0F80I03FKF3F0H03F´+
´F8001FF8007F8J03FFE7FC7FE0C0J07FKF1F0H03FF8001FF8007F8J03FJFCFFE3A0J03FKF3F8003FF8003FF800FF8J03FJFC7FF10K03F´+
´KF3F0H01FF8001FF800FF8J03FJFCFFE180J03FKF3F8003FF8003FF800FF8J03F07FFC7FF10K07FKF1F8001FF8001FF801FF8J03E03FF´+
´EFFE380J03FKF3F8003FF8003FFA03FF8J03C00FFC7FF10K07FKF3F8001FF8003FF003FF8J038A8FFCFFE180J03FKF3F8003FF8003FF0´+
´03FF8J039FC7FC7FHFL07FKF1F8001FF0H03FF007FF8J03BBEFFCFIF80J03FKF3F8003FF8003FE02FHF8J0391E7FC7FF0L03FKF3F8001´+
´FF0H07FE01FHF8J0383CFFCFFE0L03FKF3F8003FF0H0HFE03FHF8J03C105FC7FF0L07FKF1F8001FF0H07FC07DFF8J03EB2FFEFFE02AIA´+
´83FKF3F8003FE0H0HFE3FIF8J0399E7FC7FF07FIF87FKF3F8003FE001FF83FIF8J038H8HFCFFE0FJF83FKF3F8003FE001FF8FJF8J0380´+
´07FC7FF07FIF87FKF1F8003FC001FF1FJF8J03802FFCFFE0FJF83FKF3F8003FA023FMF8J039547FC7FF07FIF83FKF3F0H07F8003FMF8J´+
´039FEFFCFFE0FJF83FKF3F8007F8003FMF8J039FIFC7FF07FIF87FKF1F0H07F0H05FMF8J038FIFEFFE0FJF83FKF3F0H0HFI07FMF8J038´+
´3FHFC7FF07FIF87FKF3E0H0HFI07FMF8J039FIFCFFE0FJF83FJFE3E0H0FE0H0OF8J0387FHFC7FF07FIF87FKF1C001FE0H07FMF8J03A0F´+
´HFCFFE0FJF83FKF3E003FE0H0OF8J03D01FFC7FF07FIF83FKF38003FE0H07FMF8J03F00FFCFFE0FJF83FKF38003FE0H0OF8J038007FC7´+
´FF07E1FF87FKF10H07FC0H0OF8J0382FHFEFFE0FE1FF83FKF38007FE0H0OF8J0381FHFC7FF07E1FF87FIFEF30H07FC0H0OF8J038FIFCF´+
´FE0FE1FF83FIF8F30H0HFC0H0OF8J03975FFC7FF0041F407FHFC1F0I07FC0H0OF8J03A23FFCFFE0H01F803FHFA3F20H0HFE0H0OF8J03D´+
´C07FC7FF0H01F003FFC03F20H0HFC0H0OF8J03982FFCFFE0H01F803FF803F20H0HFC0H0OF8J039067FC7FF0H01F007FF001F0I0HFC0H0´+
´OF8J0380EFFEFFE0H01F803FE003F20H0HFE0H0OF8J03C107FC7FF0H01F007FC007F0I0HFC0H07FMF8J03EBFHFCFFE0H01F803F8007F0´+
´I0HFC0H0OF8J03821FFC7FF0H01F007F8007F0I0HFC0H07FMF8J03AE0FFCFFE0H01F803F8007F20H0HFE0H07FMF8J039C07FC7FF0H01F´+
´003F8007F0I0HFC0H07FMF8J03B8EFFCFFE0H01F803F8007F0I0HFE0H07FMF8J039047FC7FF0H01F007F8005F0I0HFC0H03FMF8J03C28´+
´FFEFFE0H01F803F8007F20H0HFE0H03FMF8J03E117FC7FF0H01F007F0H07F0I0HFE0H03FMF8J03FJFCFFE0H01F803F8007F0I0HFE0H03´+
´FMF8J03FJFC7FF0H01F007F0H07F0I07FF0H01FMF8J03FJFCFFE0H01F803F8003F20H0IFI03FMF8J039FE7FC7FF0H01F007F8003F0I07´+
´FF0H01FMF8J038AAFFCFFE0H01F803F8003F20H0IF80H0NF8J038007FC7FF0H01F007F8001F0I07FF80H0NF8J03800FFEFHF8001F807F´+
´8003F20H07FF80H0NF8J039447FC7FFC001F017F8003F20H07FFC0H07FLF8J039C8FFCFJFE1FJF8003F20H03FFC0H07FLF8J03FC0FFC7´+
´FIFE1FJF8001F10H03FFC0H07FLF8J03FE3FFCFHFHAE1FBAFF8003F30H03FFE0H03FLF8J039F27FC7FF00618007F8001F30H01FFE0H03´+
´FLF8J038AAFFCFFE00EB8003F8001F38001FFE0H03FLF8J038007FC7FE007F8007FC001F10H01FHFI01DFKF8J03800FFEFFE002A8003F´+
´C003F380H0IFJ0MF8J039047FC7FF0L07FC0H0F380H0IFJ0MF8J03B8EFFCFFE0L03FC0H0F380H0IF80H0MF8J03C007FC7FE0L07FC0H0F´+
´1C0H07FF80H07FKF8J03A20FFCFFE0L03FE0H0F3E0H07FF80H03FKF8J03871FFC7FF0L07FC0H073C0H07FFC0H03FKF8J038FIFCFFE0L0´+
´3FE0H073E0H03FFE0H03FKF8J03907FFC7FE0L07FE0H071E0H01DFE0H01FKF8J03E03FFEFFE0L03FE0H0H3F0H03FFE0I0LF8J03C00FFC´+
´7FF0L07FF0H0H3F0H01FHFJ0LF8J038A8FFCFFE0L03FF0H0H3F80H0IF80H0LF8J039FE7FC7FE0L07FF0H013F80H0IF80H05FJF8J03BFE´+
´7FCFFE0L03FF80033F80H0IFA0H03FJF8J039747FC7FF0L07FF80013FC0H07FFC0H01FJF8J03C00FFCFFE0K083FF80H03FE0H03FFE0H0´+
´1FJF8J03C01DFC7FE1505DDC7FFC0H01FC0H01FFE0I0KF8J03F23FFEFFE3F87FF83FFE0H03FE0H03FHF20H0KF8J039FE7FC7FF1F87FFC´+
´7FFC0H03FF0H01FHFJ07FIF8J03800FFCFFE1F8FHF83FFE0H03FF80H0IF80H03FIF8J038007FC7FE1F87FFC7FFE0H03FF80H0IFC0H01F´+
´IF8J03A02FFCFFE3F87FF83FHFI03FFA0H07FFE0H01FIF8J039747FC7FF1F87FFC7FHFI01FFC0H07FFE0I0JF8J038FEFFCFFE1F87FF83´+
´FHF8001FFE0H03FFE0I0JF8J03C00FFC7FE1F87FFC7FHF80H0FDE0H01FFD0I07FHF8J03E20FFEFFE3F87FF83FHF80H0IF2001FHF80H03´+
´FHF8J03E01FFC7FF5F87FFC7FHFC0H07FF0I0IFC0H01FHF8J03FAFHFCFJF87FF83FHFC0H0IF80H0IFC0H01FHF8J03F547FC7FIF87FF87´+
´FHFC0H07FF80H07FFC0I0IF8J03E02FFCFJF83FF83FHFE0H03FFE0H03FFE0I0IF8J038007FC7FIF81FF07FIFI01FFC0H01FHFJ07FF8J0´+
´38H8HFCFJF80FE03FIFI01FFE0H01FHF80H03FF8J039FE7FC7FIF805007FIFJ0DFD0I0IFC0H01FF8J03BFEFFEFJF80I03FIF8020FHF80´+
´H0IFE0I0HF8J03C547FC7FIF80I07FIFC0H07FF80H07FFE0I07F8J03E00FFCFJF80I03FIFC0H03FFC0H03FHFJ03F8J03F547FC7FIF80I´+
´07FIFC0H03FFC0H01FHFJ01F8J03FAEFFCFJF80I03FIFE0H03FFE0I0IFA0H03F8J03E01FFC7FIF80I07FJFI01FHFJ07FFC0I0F8J03C01´+
´FFCFJF80I03FJFJ0IF80H07FFE0I0F8J03C00FFC7FIF80I07FJFJ07FF80H01FHFJ018J03AFEFFEFJF80I07FJF80H03FFE0H03FHF80H03´+
´8J039FE7FC7FIF80I07FJFC0H03FFE0H01FHF8001F8J039FEFFCFJFC0I0LFE0H03FFE0I0IFC00FF8J03DFC7FC7FIFC0I0LFE0I0IFJ07F´+
´FE01FF8J03EF0FFCFJFE0H03FLFJ0IF80H03FHF3FHF8J03F707FC7FJFI07FLFJ07FFC0H01FHF7FHF8J03FF8FFCFKFE80FMFJ03FFE0I0M´+
´F8J039FC5FC7FIFDFDFDFLFJ01FFE0I07FJFD8J03AHAHFEFVF20H03FHFJ03FKF8J038007FC7FUF20I0IFJ07FKF8J03800FFCFVF280H07´+
´FF8003FLF8J038007FC7FUF10I03FFC007FLF8J03BFEFFCFVF3A0H03FFE03FMF8J03FF07FC7FUF3C0H01FHF1FNF8J03EFAFFCFVF3E0I0´+
´SF8J03801FFC7FUF1E0I05FQF8J03CE0FFEFVF3FA0H03FQF8J039807FC7FUF3F80H01FQF8J0398EFFCAVA3FC0H03FQF8J0380C7FC0V03´+
´DC001FRF8J03E127FE202020202020202023FF00FSF8J03E157FgGF03FSF8J03FgKFAFTF8J03FHFDFDFgUF8J03FhGF8,::::::::::::::::::::^XA^LL0406´);
com1.WriteStr(´^PW609´);
com1.WriteStr(´^FT370,495^XG000.GRF,1,1^FS´);
////////////////ENCERRA LOGO///////////////
///////QUADRO NEGRO ETIQUETA PEQUENA
com1.WriteStr(´^FX Quadro negro ^FS´);
com1.WriteStr(´^FO0,0´);
com1.WriteStr(´^GB565,100,250^FS´);
// COD BARRAS
com1.WriteStr(´^FO20,15´);
com1.WriteStr(´^BY2´);
com1.WriteStr(´^BCN,60,N´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqGerProd_Serial.AsString+´^FS ´);
// serial DA PEÇA
com1.WriteStr(´^FO20,75´);
com1.WriteStr(´^AEN,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqGerProd_Serial.AsString+´^FS´);
///////////veiculo/////////////////////////////////////////
com1.WriteStr(´^FO020,110´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+dm.cdEtqGerVEICULO.AsString+´^FS´);
// peça/cor
com1.WriteStr(´^FO20,135´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+dm.cdEtqGerPART_SHORT.AsString+´ / ´+dm.cdEtqGerColor_Name.AsString+´^FS´);
// Aço/Franja
if dm.cdEtqGerSTEEL.AsString = ´SIM´ then
begin
pecaco := ´PECA COM ACO´;
end;
if dm.cdEtqGerSTEEL.AsString = ´NAO´ then
begin
pecaco := ´PECA SEM ACO´;
end;
com1.WriteStr(´^FO20,165´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+pecaco+´ / ´+dm.cdEtqGerSunBand_Name.AsString+´^FS´);
// Edge
com1.WriteStr(´^FO20,195´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDEDGE:´+DM.cdEtqGerGlassEdge_Name.AsString+´^FS´);
// logo
com1.WriteStr(´^FO20,225´);
com1.WriteStr(´^AEN,15,08´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDT.M:´+TRIM(dm.cdEtqGerLogo_Name.AsString)+´/´+TRIM(dm.cdEtqGerLogo_Desc.AsString)+´^FS´);
/// INICIA ENTRADA DESCRITIVA DA ETQ GRANDE
// DADOS ETIQUETA VEICULO ////////////////////////////////////////////
com1.WriteStr(´^FO520,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDPARTNUMBER:´+dm.cdEtqGerPARTNUMBER.AsString+´^FS´);
// DADOS ETIQUETA PEDIDO
com1.WriteStr(´^FO480,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqgerOrder_Code.AsString+´^FS´);
//////////////emite dados DATA///
com1.WriteStr(´^FO480,705´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DateToStr(dataconsulta)+´^FS´);
////////////////emite dados TMARK
com1.WriteStr(´^FO445,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDT.Mark:´+TRIM(dm.cdEtqgerLogo_Name.AsString)+´-´+TRIM(dm.cdEtqgerLogo_Desc.AsString)+´^FS´);
// RESPONSAVEIS PELA PEÇA
com1.WriteStr(´^FO390,485´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDRESP:_______________________^FS´);
// DADOS ETIQUETA PARTNUMBER
com1.WriteStr(´^FO350,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+dm.cdEtqGerVEICULO.AsString+´^FS´);
// DADOS ETIQUETA PECA TIPO
com1.WriteStr(´^FO310,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDTIPO:´+dm.cdEtqgerPART_SHORT.AsString+´^FS´);
// DADOS ETIQUETA PECA TIPO COM ACO
com1.WriteStr(´^FO310,450´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+pecaco+´^FS´);
// DADOS ETIQUETA EDGE
com1.WriteStr(´^FO270,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDEDGE:´+DM.cdEtqgerGlassEdge_Name.AsString+´^FS´);
// DADOS ETIQUETA COR
com1.WriteStr(´^FO230,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDCOR´+dm.cdEtqgerColor_Name.AsString+´^FS´);
// DADOS ETIQUETA FRANJA
com1.WriteStr(´^FO190,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDFRANJA´+dm.cdEtqgerSunBand_Name.AsString+´^FS´);
///////////////EMITE steel DA PEÇA
com1.WriteStr(´^FO150,265´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FDStell:´+dm.cdETQgerSTEEL.AsString+´^FS´);
//COD BARRAS
com1.WriteStr(´^FO70,500´);
com1.WriteStr(´^BY2´);
com1.WriteStr(´^BCR,100,N´);
com1.WriteStr(´^FN´);
com1.WriteStr(´^FD´+DM.cdEtqgerProd_Serial.AsString+´^FS ´);
// SERIAL CÓD BARRAS;
com1.WriteStr(´^FO25,530´);
com1.WriteStr(´^AER,15,15´);
com1.WriteStr(´^FR´);
com1.WriteStr(´^FD´+DM.cdEtqgerProd_Serial.AsString+´^FS ´);
/////////////ENCERRA ETQ GRANDE PEÇAS NORMAIS
com1.WriteStr(´^PQ1,0,1,Y^XZ´);
Sleep(2500);
com1.Close;
pnumetq := ´´;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)