Bonjour à tous
Une collègue doit imprimer une valeur précédée du symbole # en code barre 128 via un prg RPG
A l'impression, rien ne s'imprime même en changeant le type d'imprimante
Est-ce que quelqu'un aurait une petite idée ?
D'avance merci.
Ronald
Code 128 et symbole #
(sans sujet)
Bonjour Ronald,
Peux-tu nous donner la description de la zone code barre du PRTF ?
Florian
Peux-tu nous donner la description de la zone code barre du PRTF ?
Florian
(sans sujet)
Bonjour Florian
Voici le code que m'a transis ma collègue.
Merci pour ton aide.
Ronald
PRTF :
A*%%***********************************************************************
A*%%TS RD 20191112 090251 CJ REL-V7R3M0 5770-WDS
A*%%FI+30660011111111111111111111111111111111111111111111111111
A*%%FI 1111111111111111111111111111111111111111111111111
A*%%***********************************************************************
A R ENTETI
A*%%***********************************************************************
A*%%RI 00000
A*%%FS 001
A*%%***********************************************************************
A SKIPB(002)
A SPACEA(003)
A £CB01A 10A O 2
A SPACEB(005)
A £CB01 50A O 20
A BARCODE(CODE128)
A £CB02A 10A O 2
A SPACEB(009)
A £CB02 50A O 20
A BARCODE(CODE128)
A*%%***********************************************************************
A*%%SS
A*%%CL 005
A*%%CL 009
A*%%CL 003
A*%%CP+999CRTPRTF
A*%%CP+ FILE(CAR_NATIF/ESSCJP3P)
A*%%CP+ DEVTYPE(*AFPDS)
A*%%CP+ PAGESIZE(72 132)
A*%%CP+ FRONTMGN(0.04 0.04)
A*%%CP+ BACKMGN(0.04 0.04)
A*%%CP OVRFLW(72)
RPG :
FESSCJP3PO E PRINTER
E MSG 1 2 50
C MOVELMSG,1 £CB01A
C MOVELMSG,1 £CB01
C MOVELMSG,2 £CB02A
C MOVELMSG,2 £CB02
C WRITEENTETI
C SETON LR
** MSG
TEST # 1
TEST + 1
Voici le code que m'a transis ma collègue.
Merci pour ton aide.
Ronald
PRTF :
A*%%***********************************************************************
A*%%TS RD 20191112 090251 CJ REL-V7R3M0 5770-WDS
A*%%FI+30660011111111111111111111111111111111111111111111111111
A*%%FI 1111111111111111111111111111111111111111111111111
A*%%***********************************************************************
A R ENTETI
A*%%***********************************************************************
A*%%RI 00000
A*%%FS 001
A*%%***********************************************************************
A SKIPB(002)
A SPACEA(003)
A £CB01A 10A O 2
A SPACEB(005)
A £CB01 50A O 20
A BARCODE(CODE128)
A £CB02A 10A O 2
A SPACEB(009)
A £CB02 50A O 20
A BARCODE(CODE128)
A*%%***********************************************************************
A*%%SS
A*%%CL 005
A*%%CL 009
A*%%CL 003
A*%%CP+999CRTPRTF
A*%%CP+ FILE(CAR_NATIF/ESSCJP3P)
A*%%CP+ DEVTYPE(*AFPDS)
A*%%CP+ PAGESIZE(72 132)
A*%%CP+ FRONTMGN(0.04 0.04)
A*%%CP+ BACKMGN(0.04 0.04)
A*%%CP OVRFLW(72)
RPG :
FESSCJP3PO E PRINTER
E MSG 1 2 50
C MOVELMSG,1 £CB01A
C MOVELMSG,1 £CB01
C MOVELMSG,2 £CB02A
C MOVELMSG,2 £CB02
C WRITEENTETI
C SETON LR
** MSG
TEST # 1
TEST + 1