Posiblemente no puedas utilizar directamente la instrucción BARCODE de DDS aunque la impresora de TP-300 soporte la impresión de código QR y en ésto influye mucho cómo se configuró la impresora desde CRTDEVPRT
Hay una explicación detallada en éste doc de IBM https://www-01.ibm.com/support/docview.wss?uid=nas8N1012792 Deberías consultar el manual de la impresora para averiguar que secuencia de caracteres ASCII se debe enviar para imprimir un QR similar a la programación de impresora Zebra, como explican aqui https://www.code400.com/forum/forum/iseries-programming-languages/as400-reports/5992-printing-barcodes-on-zebra-printer-using-rpg El mié., 16 ene. 2019 a las 0:28, Miguel SB (<[email protected]>) escribió: > Buenas tardes, > En la empresa donde trabajo emitimos documentos como boletas, tickets, > facturas y notas de crédito mediante el AS400, lo que estoy tratando de > hacer es que en estos documento se imprima un código QR con información del > documento. > Buscando en algunas paginas encontré como generar este codigo QR mediante > BARCODE y logre que se imprima en una impresora láser, pero al enviarlo a > una impresora térmica (tickets) o una impresora matricial (Facturas) no > puedo lograr imprimir, el archivo que se genera en el spool se queda en > estado HLD cuando lo envío a la impresora térmica o a la matricial. > > El modelo de las impresoras son: > Impresora térmica: POS-D TP-300 > Impresora matricial: EPSON FX-890 > En ninguna de estas dos se puede imprimir el código QR > > > Este es el código fuente que estoy utilizando en el PRTF para el código QR > > > A*%%*********************************************************************** > A SPACEB(001) > > A ASIGN 110A 1BARCODE(QRCODE 1 *VRT X'02' + > > A (*WIDTH .01) (*SWIDTH 0.7) + > > A (*QRCODE 10 1 *UCCEAN *TRIM)) > > > A*%%*********************************************************************** > > Al compilarlo le coloco lo siguiente: > Tipo de dispositivo impresora . DEVTYPE > *AFPDS > > Acción carácter no imprimible: RPLUNPRT > Sustituir carácter . . . . . . *NO > Carácter de sustitución . . . *BLANK > > Este es el codigo RPG: > > H Y > FPRUEBAQ2O E 98 PRINTER > C *ENTRY PLIST > C PARM PCIA > C PARM PTIP > C PARM PNUM > C PARM PTEX > C*----------------------------------------------------- > C*----------------------------------------------------- > C CALL 'FI04314' > C PARM PCIA 3 > C PARM PTIP 5 > C PARM PNUM 10 > C PARM PTEX 110 > C MOVELPTEX *ASIGN* > C WRITEHEAD01 > C MOVE *ON *INLR > C*----------------------------------------------------- > > La variable ASIGN se carga con el texto que debe contener el QR > > Por favor su ayuda para poder imprimir código QR en la impresora térmica y > la matricial, es necesario realizar alguna configuración adicional?. > > Muchas gracias. > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
