P rogramm ZPLLOADIM
Das Programm ZPLLOADIM lädt ein im Flashspeicher des Druckers hinterlegtes Image mit Logo und erzeugt darin einen bei der DHL üblichen Barcode. Die Datei ZPLLoadIm.zpl wird im IFS gespeichert. Von dort kann sie an den Zebradrucker gesandt werden. Eine Direktausgabe über Outq finden Sie im nächsten Musterprogramm.
//**********************************************************************
// Program :?ZPLLOADIM
// Descriptions :?ZPL Test an image
// Programmer :?Toolmaker
// Creation Date :?30.01.2015
//**********************************************************************
// H E A D E R - S P E C I F I C A T I O N S
//**********************************************************************
H/COPY Qcpylesrc,H_SPECSPDF
//**********************************************************************
//F I L E S P E C I F I C A T I O N S
//**********************************************************************
// P R O T O T Y P I N G / C O P Y M E M B E R
//**********************************************************************
D/Include qprolesrc,zplsrvpgm
//**********************************************************************
// D E F I N I T I O N G L O B A L V A R I A B L E S
//**********************************************************************
d count s 10i 0
d rtn s 10i 0
//***********************************************************************
// M A I N P R O G R A M
//***********************************************************************
*INLR = *On;
ZPL_CreateLabel(count:'(*Labelname=/home/gsc/ZPLloadim.zpl)');
If Count=*zero;
Return;
Endif;
ZPL_Image(count:'(*name =tmsimage) +
(*memory =E)');
ZPL_BarCode(count:'(*bcdtype =IDENT) +
(*bcdvalue =26890604526) +
(*posx =50) +
(*height =250) +
(width =3) +
(*print =Y) +
(*posy =300)');
ZPL_CloseLabel(count);
rtn=dw_system('STMFTOPRTF OBJ(''/home/gsc/ZPLloadim.zpl'') +
DELETE(*NO) OUTQ(ZEBRANEU)');
Return;
Das Etikett sieht dann so aus:
Programm ZPLPOST270
Das Programm ZPLPost270 erzeugt die um 270° gedrehte Miniaturdarstellung eines Postetiketts. Die Ausgabe der Datei ZPLPost.zpl auf den Drucker erfolgt über die OUTQ Zebraneu.
//**********************************************************************
// Program :?ZPLPost270
// Descriptions :?Test graphic and ident barcode
// Programmer :?Toolmaker
// Creation Date :?26.02.2015
//**********************************************************************
// H E A D E R - S P E C I F I C A T I O N S
//**********************************************************************
H/COPY Qcpylesrc,H_SPECSPDF
//**********************************************************************
// F I L E S P E C I F I C A T I O N S
//**********************************************************************
// P R O T O T Y P I N G / C O P Y M E M B E R
//**********************************************************************
D/Include qprolesrc,zplsrvpgm
//**********************************************************************
// D E F I N I T I O N G L O B A L V A R I A B L E S
//**********************************************************************
d count s 10i 0
d rtn s 10i 0
//**********************************************************************
// M A I N P R O G R A M
//**********************************************************************
*INLR = *On;
ZPL_CreateLabel(count:'(*Labelname=/home/gsc/ZPLloadim.zpl)');
If Count = *zeros;
Return;
EndIf;
ZPL_graphic(count:'(*name =tms_270) +
(*posx =01) +
(*posy =200)+
(*memory =E)');
ZPL_TextLine(count:'(*text=Westendstrasse 34 86916 Kaufering) +
(*posx =85) +
(*posy =180) +
(*font =D) +
(*orientation=B) +
(*height =20) +
(*width =10)');
ZPL_BarCode(count:'(*bcdtype =IDENT) +
(*bcdvalue =8691610903400) +
(*orientation =B) +
(*posx =110) +
(*height =120) +
(*width =3) +
(*print =Y) +
(*posy =180)');
ZPL_TextLine(count:'(*text =Postpaket) +
(*posx =100) +
(*posy =30) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_TextLine(count:'(*text =4.6 KG) +
(*posx =130) +
(*posy =40) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_TextLine(count:'(*text =26-02-2015) +
(*posx =160) +
(*posy =20) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_TextLine(count:'(*text=LS-Nr. 11823) +
(*posx =190) +
(*posy =10) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_TextLine(count:'(*text=Mustermann GmbH) +
(*posx =300) +
(*posy =400) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_TextLine(count:'(*text=Industriestrasse 12) +
(*posx =340) +
(*posy =350) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_TextLine(count:'(*text=86316 Friedberg) +
(*posx =380) +
(*posy =400) +
(*font =D) +
(*orientation=B) +
(*height =28) +
(*width =12)');
ZPL_BarCode(count:'(*bcdtype=IDENT) +
(*bcdvalue =26890604526) +
(*posx =430) +
(*orientation=B) +
(*height =150) +
(*width =3) +
(*print =Y) +
(*posy =220)');
ZPL_CloseLabel(count);
rtn=dw_system('STMFTOPRTF OBJ(''/home/gsc/ZPLloadim.zpl'') +
DELETE(*NO) OUTQ(ZEBRANEU)');
Return;
Das Etikett sieht dann so aus:
Programm ZPLGS1128
Das Programm ZPLGS1128 erzeugt einen GS1-128 Barcode, der auch von der DHL verwendet wird. Damit keine Überschneidungen durch gleiche Dateinamen entstehen, wird der Dateiname mit einer Laufnummer gekoppelt. Diese wird aus der DTAARA DIRWEB/ZPLNEXTNO geholt. Die Quelle zur Erstellung dieser UDF ist in DIRWEB/QSQDSRC zu finden.
//*************************************************************************
// Program :?ZPLgs11288
// Descriptions :?Test GS1 128 mit eindeutiger Druckausgabe
// damit es im IFS keine Überschreibung geben kann.
// Programmer :?Toolmaker
// Creation Date :?23.02.2015
//*************************************************************************
// H E A D E R - S P E C I F I C A T I O N S
//*************************************************************************
H/COPY Qcpylesrc,H_SPECSPDF
//*************************************************************************
// F I L E S P E C I F I C A T I O N S
//*************************************************************************
// P R O T O T Y P I N G / C O P Y M E M B E R
//*************************************************************************
D/Include qprolesrc,zplsrvpgm
D/Include QCPYLESRC,D_Specs
D/Include QPROLESRC,DWSndPMsg
//*************************************************************************
// D E F I N I T I O N G L O B A L V A R I A B L E S
//*************************************************************************
d count s 10i 0
d rtn s 10i 0
d next s 10i 0
d FileName s 12A
//*************************************************************************
// S Q L O P T I O N S
//*************************************************************************
EXEC SQL Set Option Commit = *None, DatFmt = *ISO,
CLOSQLCSR = *ENDACTGRP, Naming = *SYS;
//*************************************************************************
// M A I N P R O G R A M
//*************************************************************************
*INLR = *ON;
Monitor;
Exec SQL Set :Next = Next Value For ZPLNEXTNO;
FileName='ZPL'+%trim(%char(Next))+'.txt';
ZPL_CreateLabel(count:'(*Labelname=/home/gsc/'+%Trim(filename)+')');
If Count = *ZeroS;
Return;
EndIf;
ZPL_TextLine(count:'(*text =Barcode Test) +
(*posx =50) +
(*posy =50) +
(*font =D) +
(*orientation=N) +
(*height =36) +
(*width =20)');
ZPL_TextLine(count:'(*text =GS1 128) +
(*posx =50) +
(*posy =90) +
(*font =D) +
(*orientation=N) +
(*height =36) +
(*width =20)');
ZPL_BarCode(count:'(*bcdtype =GS1128) +
(*bcdvalue =<01>95012345678903<3103>000123) +
(*posx =50) +
(*height =150) +
(*print =Y) +
(*UCC =Y) +
(*posy =200)');
ZPL_CloseLabel(count:' ');
rtn=dw_system('STMFTOPRTF OBJ(''/home/gsc/'+%trim(filename)+''') +
DELETE(*NO) OUTQ(ZEBRANEU)');
On-Error;
DW_SndEscMsg(PGMSDS.MsgTxt);
EndMon;
Return;
Das Etikett sieht so aus:
