Hallo *all,
ich habe ein (älteres) Ile-RPG-Programm ohne PRTF, also mit klassischen "O"-Ausgabebestimmungen im Programm.
Wie bekomme ich hier Barcode erzeugt?
Überhaupt nicht.
Barcode geht nur mit AFPDS/IPDS-PRTF's.
O-Bestimmungen können nur simple SCS-Drucke erzeugen.
Danke für die schnelle Antwort. Dann also PRTF erstellen (Grummel Grummel...)
Hier is ein altes Testprogram für SCS-definierte drucker mit O-spec nutzen. Die druckt auf ein Zebra Drucker.
*
* Sticky labels for attachment to boxes etc.
FPM010PTB O F 264 PRINTER
F OFLIND(*IN57)
*--------------------------------------------------------------------------------------------*
*
C Move '111' $labels 3
c move '222' $x1 3
c move 'TEstttt' $grno09 7
c move '29.04.08' $recdmy 8
C Move '20242222' Vndr09 8
C Movel 'advisenr1235'advn09 16
C Movel 'tref09111111'trex09 15
C Movel 'snam05353535'snam05 35
C Move '0136828 ' ordn09 8
C Movel '123456789123'trin09 15
C move '31.12.08' $expd 8
C movel '4521583078' item09 15
C Movel 'description' PDESCC 36
C movel '009-01000-1-'vcat09 20
C movel ' 108,000'$QTYR 12
C move 'ST' RUOM 2
c move '11' whsep1 2
c move '123456' bno160 6
c move '456789' bno260 6
*
c eval *in55 = *on
c except bclabel
c eval *inlr = *on
*--------------------------------------------------------------------------------------------*
*
* Bar code printer file
OPM010PTB E bclabel 1
*
* Define the print format
o '¬XA'
O E bclabel 1
o '¬DFPM010¬FS'
O E bclabel 1
o '¬PRC'
O E bclabel 1
o '¬LH0,35¬FS'
O E bclabel 1
o '¬LL1350¬PW900'
O E bclabel 1
o '¬MD5'
O E bclabel 1
o '¬MNN'
O E bclabel 1
o '¬FWr'
O E bclabel 1
o '¬CFr45,25¬FS'
O E bclabel 1
o '¬FO665,0¬a0¬FN10¬FS'
o '¬FO665,75¬Fn20¬FS'
o '¬FO665,260¬FN30¬FS'
d004 o* '¬FO665,360¬Fn40¬FS'
a004 o '¬FO645,360¬Ar,130,80'
a004 o '¬FN40¬FS'
c004 o '¬FO665,680¬FN50¬FS'
c004 o '¬FO665,740¬FN60¬FS'
c004 o '¬FO665,790¬FN70¬FS'
c004 o '¬FO665,825¬Fn80¬FS'
O E bclabel 1
o '¬FO595,0¬FN90¬FS'
o '¬FO595,75¬Fn100¬FS'
o '¬FO595,260¬FN110¬FS'
o '¬FO595,310¬Fn120¬FS'
o '¬FO595,680¬FN130¬FS'
o '¬FO595,740¬Fn140¬FS'
O E bclabel 1
o '¬FO525,0¬FN150¬FS'
o '¬FO525,680¬FN160¬FS'
o '¬FO525,740¬FN170¬FS'
O E bclabel 1
o '¬FO455,0¬FN180¬FS'
o '¬FO455,160¬FN190¬FS'
o '¬FO455,680¬FN200¬FS'
o '¬FO455,800¬FN210¬FS'
O E bclabel 1
o '¬FO315,0¬Ar,140,180'
o '¬FN230¬FS'
O E bclabel 1
o '¬FO280,130¬FN250¬FS'
O E bclabel 1
o '¬FO210,0¬FN240¬FS'
o '¬FO210,150¬FN260¬FS'
O E bclabel 1
o '¬FO140,0¬FN270¬FS'
o '¬FO140,190¬FN280¬FS'
o '¬FO140,360¬FN290¬FS'
O E bclabel 1
o '¬FO70,0¬FN300¬FS'
d004 o* '¬FO70,90¬FN310¬FS'
a004 o '¬FO10,90¬Ar,130,80'
a004 o '¬FN310¬FS'
d004 o* '¬FO70,150¬FN330¬FS'
a004 o '¬FO10,220¬Ar,130,80'
a004 o '¬FN330¬FS'
d004 o* '¬FO70,240¬FN340¬FS'
a004 o '¬FO10,500¬Ar,130,80'
a004 o '¬FN340¬FS'
o '¬FO160,675¬A0'
o '¬BCR,150,N,N¬FN320¬FS'
O E bclabel 1
o '¬XZ'
*
* Define the fields
O E bclabel 1
o '¬XA'
o '¬XFPM010.ZPL¬FS'
*
O E bclabel 1
o '¬FN70¬FDv.¬FS'
o '¬FN10¬FDWes:¬FS'
O '¬FN20¬FD'
o $grno09
o '¬FS'
o '¬FN30¬FDDatum:¬FS'
O '¬Fn40¬FD'
o $RECDMY
o '¬FS'
o '¬FN50¬FDAnz:¬FS'
O '¬FN60¬FD'
o $x1
o '¬FS'
O '¬FN80¬FD'
o $LABELS
o '¬FS'
*
O E bclabel 1
o '¬FN90¬FDLief:¬FS'
O '¬FN100¬FV'
o VNDR09
o '¬FS'
o '¬FN110¬FDLS:¬FS'
O '¬FN120¬FV'
o ADVN09
o '¬FS'
o '¬FN130¬FDRef:¬FS'
O '¬FN140¬FV'
o TREX09
o '¬FS'
*
O E bclabel 1
O '¬FN150¬FD'
o SNAM05
o '¬FS'
o '¬FN160¬FDBN:¬FS'
O '¬FN170¬FD'
o ORDN09
o '¬FS'
*
O E bclabel 1
o '¬FN180¬FDNachw. Ref:¬FS'
O '¬FN190¬FD'
o TRIN09
o '¬FS'
o '¬FN200¬FDVerf. Dat:¬FS'
O '¬FN210¬FD'
o $EXPD
o '¬FS'
*
O E bclabel 1
O 55 '¬FN230¬FD'
o 55 ITEM09
o 55 '¬FS'
*
O E bclabel 1
o '¬FN240¬FDNr. LfrnKat:¬FS'
o 55 '¬FN250¬FD'
o 55 PDESCC
o 55 '¬FS'
o '¬FN260¬FD'
o VCAT09
o '¬FS'
*
O E bclabel 1
o '¬FN270¬FDGesamt Menge:¬FS'
o '¬FN280¬FD'
o $QTYR
o '¬FS'
o '¬FN290¬FD'
o RUOM
o '¬FS'
*
O E bclabel 1
o 55 '¬FN300¬FDLager:¬FS'
o 55 '¬FN310¬FD'
o 55 WHSEP1
o 55 '¬FS'
o '¬FN330¬FD'
o BNO160
o '¬FS'
o '¬FN340¬FD'
o BNO260
o '¬FS'
O '¬FN320¬FD'
o ITEM09
o '¬FS'
O E bclabel 1
o '¬XZ'
*
* reset printer
O E bclabel 1
o '¬XA'
O E bclabel 1
o '¬LL100'
O E bclabel 1
o '¬FWn¬FS'
o '¬CFr45,25¬FS'
O E bclabel 1
o '¬XZ'
*--------------------------------------------------------------------------------------------*
Zebra hat eine eigene Druckersprache und benötigt daher keine PRTF.
Deshalb klappt das da ja auch.
Ich habe vor vielen jahren mal mit Binärdaten/ESC Sequenzen (CVTDTA) Barcode erzeugt. Das ist dann aber Druckerabhänging bzw. wenn mann PCL nimmt einigermaßen Kompatibel. Ist aber nicht zu empfehlen. (Das geht glaube ich auch nur über PRinterfile aber ich bruche kein afpds/ipds)
Wenn man häufig Formulare mit besonderen Formatierungen und Barcode hat sollte man den Einsatz einer Druckmanagement Lösung in betracht ziehen. (Interform, CSW, ..) das ist dann auch flexiebel.
Klaus