Código: Selecionar todos
//
// Imprime etiquetas
// Para impressora ZEBRA GK420T - 1
//
Procedure fImprimirZEBRAGK1(vCodigo, vQtd, vDescri, vVenda)
Local i:= 0, cPrinter:= GetPrinter(), cLinha1:= SUBSTR(vDescri, 01, 25), cLinha2:= SUBSTR(vDescri, 26, 25)
If int(vQtd / 2) # vQtd
vQtd+= 1
Endif
If Empty(cPrinter)
MsgStop([ATENÇÃO! Não Existe uma Impressora Selecionada!], [Erro])
Return (Nil)
Endif
If [Z] $ UPPER(cPrinter)
For i:= 1 to (vQtd / 2)
Setalternate([COD_BARRA.TXT])
// Inicia Etiquetas
? "^XA"
//////////////
// 2a Coluna// USAR 2 cLinha DE 25 CARACTER PARA DESCRIÇÃO
//////////////
// Preço 2/2
? "^FO030,030"
? "^A0I,30,25^FD"+alltrim(vCodigo)+" - R$ "+vVenda+"^FS"
? "^FO001,060" // Posição na Etiqueta
? "^FB280,1,," // AcLinhamento a Direira
? "^A0I,20,20^FD"+cLinha2+"^FS" // Texto
? "^FO001,080"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha1+"^FS"
// Preço 1/2
? "^FO030,140"
? "^A0I,30,25^FD"+alltrim(vCodigo)+" - R$ "+vVenda+"^FS"
? "^FO001,170"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha2+"^FS"
? "^FO000,190"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha1+"^FS"
// Código de Barras 1/2
? "^BY2,3,45^FO030,275^BCI,,Y,N^FD"+alltrim(vCodigo)+"^FS"
? "^FO001,330"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha2+"^FS"
? "^FO001,350"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha1+"^FS"
// Imagem em Hexadecimal
? "^FO010,380^GFA,06272,06272,00028,:Z64:eJztWFFr21YU1sW19eLFDtirC07dn5CwUSfQzTc0bl5jFtENIuQS2F5tanI7WHpjDHtM9tg99W9sL6tKxvJSQh4iNtgyewSax8kPxQqxdHeutLi2dBUkw9qH5ShXyD75+PjOp3uOZEm6jvcYt6/I3b0it3hFrjB2vf/HabFhlWZK6aXDxdO+s/hN4XRXLhQbkFttbeaaW+VU+cbCg/mvmmSeZDdT8sc5nvvl3mnx8W7zsPkKcK+L+0sHgMvcu/0Ecj/nUK52A2G0MruSrUrVWfRd0kjmckeQOywmio9lpFOOOzP/XOo8S/3+wU+f/ga5B7lEDnKYrADfo0ZrIZFNfZb/8u66JCEX9y3SH3Fcb1Ff2n82c/H9649eQa5aRMVauoZr6S9WCtVC9Va1kK7dqtbSkpQ5GCb+7g8rO5W984PuqeUsOoV084ezzV1JSi2vo9VG46b0obxwPwV8861srtm4v5nihSleUbXc5QXC/JyFYxQjHNI9H8ar/X8OyoJxmVMFEQVHBBEFp0zEQ/ccn48OovJNKmP2hL6d8Soxk59GfOMp1DfHv6LP/WzDt/ryhjI6NMM2lGMlCo7cnJAHAluR+NS5MXlU1U7UDTU+HyEsIp+SH7PP5n/r8fUNOOUU+sA97WQKffxuGUTVN+afzdcU/jFe0+j6NuAOA3WWaq/NqXRSnwM5Dqgws+Ln24IcEDll2igTNsn3L46VfDjXv9lZpCja87x2lH/4JuBfG9benoAPAviYfEDMMg3Wk+M6Z8yqCPxDqmajvspKdvD+5Lj2hbieCPYC2iaUCfaDi3sh9g/B3kNd41cm2H8urstMMR8sOoB6hvAxX11G+mCdc//E+jrnIfWErSebLJRvz6IC/7CENEMpHVfW4JPPP931/cWwJOADHOwFupUxg3we7kcnE6LPVmfVhBmmr80SllAfbHQECsPruefX99Y/A+5PgX8vPWxDxNeHjY7IU2E9Pc7hvEgfO1FtpJpZkT4PZ2VFfIwRiqiZFfFdeHxS0D9F+ZoZWls7loL+gQeuRkcK8MF+/wR6y0u4CPDBfof/Z3/B5Avog/4CfcXuw+QL6HNmpBLgzhnboQF91J0MzGtqMfqnBofSZV4XjdM/B7xVx+Lz/LNh7l1GnPnA3NEQTx+3TzPejIZg9PkH5RzE5QN9GrM1246vDz4TRmPrg6nHDGpjQ0kqetC/LiydOTLrUR/fgKwOKMOkJZN6kG8fVo8NEz6cOgfWLdsaw+oGUnFQn+4uCwX4QBkGgZg0kIgvBKfkt6F/bivbWFmTFBz0z8OZWMjHF6nXw/h6rNejfn3bqoo1WCrG4fp0sxLKt9woh+prWxW/PlsxcNcwsIGO8gL/PFzHKoXyJVpyqD55mBH45+rbSG4kw/Q5GUcO8A08vpa8FcanD0ss4dcHj5wYHjzxel5BYf5ZJdYJ3J+MLMPuwzAbkIDvgOuDWdT261PpCe8ueE3lDgr3n25Spgf4qNs5cd1bfj6H43rAWaf+/slM6JsYvMM4xD8YgWbdz8e9g7VMSONOiH8dxqw7fn2qe1tieIT5XArxj+OkED4ZqKQQ/2SASDTQP7ltOAnWSWL/ehk+0MR8fLQTAV9IP5t4f4g9H8ZjiveH2PMvPt+716f4Yor3v3ehTwpExN8n/P4ZU/w+4UUUnF8dj/+S7zquI2L8A703y0s=:C21C"
//////////////
// 1a Coluna//
//////////////
// Preço 1/2
? "^FO370,030"
? "^A0I,30,25^FD"+alltrim(vCodigo)+" - R$ "+vVenda+"^FS"
? "^FO325,060"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha2+"^FS"
? "^FO325,080"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha1+"^FS"
// Preço 1/1
? "^FO370,140"
? "^A0I,30,25^FD"+alltrim(vCodigo)+" - R$ "+vVenda+"^FS"
? "^FO325,170"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha2+"^FS"
? "^FO325,190"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha1+"^FS"
// Código de Barras 2/2
? "^BY2,3,45^FO370,275^BCI,,Y,N^FD"+alltrim(vCodigo)+"^FS"
? "^FO325,330"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha2+"^FS"
? "^FO325,350"
? "^FB280,1,,"
? "^A0I,20,20^FD"+cLinha1+"^FS"
// Imagem em Hexadecimal
? "^FO350,380^GFA,06272,06272,00028,:Z64:eJztWFFr21YU1sW19eLFDtirC07dn5CwUSfQzTc0bl5jFtENIuQS2F5tanI7WHpjDHtM9tg99W9sL6tKxvJSQh4iNtgyewSax8kPxQqxdHeutLi2dBUkw9qH5ShXyD75+PjOp3uOZEm6jvcYt6/I3b0it3hFrjB2vf/HabFhlWZK6aXDxdO+s/hN4XRXLhQbkFttbeaaW+VU+cbCg/mvmmSeZDdT8sc5nvvl3mnx8W7zsPkKcK+L+0sHgMvcu/0Ecj/nUK52A2G0MruSrUrVWfRd0kjmckeQOywmio9lpFOOOzP/XOo8S/3+wU+f/ga5B7lEDnKYrADfo0ZrIZFNfZb/8u66JCEX9y3SH3Fcb1Ff2n82c/H9649eQa5aRMVauoZr6S9WCtVC9Va1kK7dqtbSkpQ5GCb+7g8rO5W984PuqeUsOoV084ezzV1JSi2vo9VG46b0obxwPwV8861srtm4v5nihSleUbXc5QXC/JyFYxQjHNI9H8ar/X8OyoJxmVMFEQVHBBEFp0zEQ/ccn48OovJNKmP2hL6d8Soxk59GfOMp1DfHv6LP/WzDt/ryhjI6NMM2lGMlCo7cnJAHAluR+NS5MXlU1U7UDTU+HyEsIp+SH7PP5n/r8fUNOOUU+sA97WQKffxuGUTVN+afzdcU/jFe0+j6NuAOA3WWaq/NqXRSnwM5Dqgws+Ln24IcEDll2igTNsn3L46VfDjXv9lZpCja87x2lH/4JuBfG9benoAPAviYfEDMMg3Wk+M6Z8yqCPxDqmajvspKdvD+5Lj2hbieCPYC2iaUCfaDi3sh9g/B3kNd41cm2H8urstMMR8sOoB6hvAxX11G+mCdc//E+jrnIfWErSebLJRvz6IC/7CENEMpHVfW4JPPP931/cWwJOADHOwFupUxg3we7kcnE6LPVmfVhBmmr80SllAfbHQECsPruefX99Y/A+5PgX8vPWxDxNeHjY7IU2E9Pc7hvEgfO1FtpJpZkT4PZ2VFfIwRiqiZFfFdeHxS0D9F+ZoZWls7loL+gQeuRkcK8MF+/wR6y0u4CPDBfof/Z3/B5Avog/4CfcXuw+QL6HNmpBLgzhnboQF91J0MzGtqMfqnBofSZV4XjdM/B7xVx+Lz/LNh7l1GnPnA3NEQTx+3TzPejIZg9PkH5RzE5QN9GrM1246vDz4TRmPrg6nHDGpjQ0kqetC/LiydOTLrUR/fgKwOKMOkJZN6kG8fVo8NEz6cOgfWLdsaw+oGUnFQn+4uCwX4QBkGgZg0kIgvBKfkt6F/bivbWFmTFBz0z8OZWMjHF6nXw/h6rNejfn3bqoo1WCrG4fp0sxLKt9woh+prWxW/PlsxcNcwsIGO8gL/PFzHKoXyJVpyqD55mBH45+rbSG4kw/Q5GUcO8A08vpa8FcanD0ss4dcHj5wYHjzxel5BYf5ZJdYJ3J+MLMPuwzAbkIDvgOuDWdT261PpCe8ueE3lDgr3n25Spgf4qNs5cd1bfj6H43rAWaf+/slM6JsYvMM4xD8YgWbdz8e9g7VMSONOiH8dxqw7fn2qe1tieIT5XArxj+OkED4ZqKQQ/2SASDTQP7ltOAnWSWL/ehk+0MR8fLQTAV9IP5t4f4g9H8ZjiveH2PMvPt+716f4Yor3v3ehTwpExN8n/P4ZU/w+4UUUnF8dj/+S7zquI2L8A703y0s=:C21C"
// Termina Etiquetas
? "^XZ"
Setalternate()
WIN_PrintFileRaw(cPrinter, [COD_BARRA.TXT], [BARRA])
ferase([COD_BARRA.TXT])
Next
Setalternate()
WIN_PrintFileRaw(cPrinter, [COD_BARRA.TXT], [BARRA])
Else
MsgStop([A impressora padrão não é ZEBRA.], [Erro])
Return (Nil)
SET DEFA TO &CAMINHO
Endif
SET DEFA TO &CAMINHO
Return (Nil)