Tengo un impresora configurada en V5R1 que aparentemente no entiende los mandatos PCL que le manda en AS400. Por supuesto el t�cnico de Sharp dice que es "problema del sistema", a lo cual contesto que las impresoras Lexmark e IBM Infoprint 11xx me funcionan de f�bula, pero la Sharp no...
Se trata de una impresora Sharp AR-P450 que seg�n he encontrado en el Software Knowledge database de IBM se puede configurar as�:
CRTDEVPRT DEVD(SHARP) DEVCLS(*LAN) TYPE(3812) MODEL(1)
LANATTACH(*IP) PORT(9100) FONT(11)
TRANSFORM(*YES) MFRTYPMDL(*HP4) PPRSRC1(*A4)
PPRSRC2(*A4) RMTLOCNAME('123.123.123.123')
SYSDRVPGM(*HPPJLDRV)
Aparentemente funciona hasta que enviamos listados AFP...
Adjunto un PRTF y un RPG sencillo por si alguien puede probarlo. Ojo, es necesario tener los FONTS de compatibilidad AFP instalados (opcion 8 del SS1)
Los errores son:
'TEXTO' de la linea 8 posicion 10 no utiliza tipo "GOTHIC ROMAN BOLD 90 10-PT", recurso de font C0D0GB12 de biblioteca QFNTCPL.
'CONSTANTE' de la linea 13 posicion 10 utiliza erroneamente tama�o de FONT del campo CODIGO de la linea 9, en lugar de font "GOTHIC ROMAN SEMI-LIGHT 8-PT", recurso de font C0D0GL15 de biblioteca QFNTCPL y se superpone impresion a CAMPO1 y CAMPO2.
C�digo de barras NUMERO no imprime en la parte inferior valor asignado por programa, en este caso el valor es 12345678901.
Si alguno de vosotros prueba el ejemplo que adjunto, me gustar�a que comentase los resultados obtenidos por sus impresoras, sobre todo si est� en versi�n 5.1.
Justo ha coincidido que cambie a la 5.1 con la llegada de la impresora Sharp. Antes en 4.5 con las impresoras lexmark e infoprint que usaba nunca he tropezado con problemas de este tipo. El sistema esta muy actualizado de PTFs.
Gracias por adelantado.
--------------------------
De todo sobre el AS/400 en
http://www.ajut400.com
_________________________________________________________________
MSN Fotos: la forma m�s f�cil de compartir e imprimir fotos. http://photos.msn.es/support/worldwide.aspx
A* CRTPRTF
A* DEVTYPE(*AFPDS) LPI(6) CPI(15) PAGESIZE(70) OVRFLW(66)
A*
A R CAJAS
A BOX(1 0.5 11.3 7.8 *MEDIUM)
A LINE(1.9 0.5 7.3 *HRZ *NARROW)
A R TEXTOS
A 4108'Hoja:'
A FNTCHRSET(C0D0GL15 T1V10284)
A 4114PAGNBR
A EDTCDE(Z)
A HIGHLIGHT
A 8 10'TEXTO'
A FNTCHRSET(C0D0GB12 T1V10284)
A CODIGO 5A 9105
A FONT(4919 (*POINTSIZE 20))
A 13 10'CONSTANTE'
A FNTCHRSET(C0D0GL15 T1V10284)
A CAMPO1 1 13 23
A 13 24'/'
A CAMPO2 8 13 25
A NUMERO 11S O 64 25BARCODE(UPCA 3)
A R ENDPAGE ENDPAGE
fddsv5r1 o e printer
c write cajas
c eval codigo = 'ABC '
c eval campo1 = 'Z'
c eval campo2 = 'ABC123-X'
c eval numero = 12345678901
c write textos
c write endpage
c eval *inlr = *on
