Siento volver a molestar con este tema pero no consigo que aparezca la imagen
en el pdf.
en la cl, tengo
CHGVAR VAR(&RUTA) VALUE('GENERAL\' *CAT &NOMBRE *CAT '.PDF')
OVRPRTF FILE(IMPJPGPRU1) DEVTYPE(*AFPDS) +
TOSTMF(&RUTA) WSCST(*PDF)
CALL PGM(IMPJPGPRUL)
el pgm impjpgprul tiene lo siguiente:
MOVE 5,20 TO POSD OF JPGD.
MOVE "IMAGE.JPG" TO FILEJPG OF JPGD.
MOVE 12,00 TO ANCHO OF JPGD.
MOVE 11,50 TO ALTO OF JPGD.
MOVE "/GENERAL"
TO PATHIN OF JPGD.
WRITE RIMPJPGPRU1 FROM JPGD FORMAT "JPGDIR"
END-WRITE.
la carpeta /general esta compartida
al mirar el pdf, no aparece la imagen
ALGUNA IDEA????
----- Original Message -----
From: informatica
To: [email protected]
Sent: Friday, March 28, 2014 9:57 AM
Subject: Fwd: RV: INSERTAR IMAGENES EN UN PRINTER
De: [email protected]
[mailto:[email protected]] En nombre de Fernando Idem
Enviado el: viernes, 21 de marzo de 2014 16:01
Para: forum.help400
Asunto: Re: INSERTAR IMAGENES EN UN PRINTER
Buenas tardes;
Pues no habia nada en especial, la carpeta de IFS puse esa porque venia de
pruebas, pero lo puedes hacer en cualquiera siempre que tengas las
autorizaciones correspondientes. y Las imagenes eran JPG a un tamaño razonable
para evitar problemas.
Yo esto lo hice con una la version 5.4 .... te puedo comentar que nosotros
tenemos un programa que convierte spooles a pdf. Pero no hacia nada del otro
mundo.
En el CL poniamos esto, es un spool que luego cogia el programa y lo
enviaba a la carpeta que nosotros le indicabamos
OVRPRTF FILE(fichero) TOFILE(fichero) +
DEVTYPE(*AFPDS) PAGRTT(0) OUTQ(PBORRAR)
En programa
03 JPGDIR.
COPY DDS-JPGDIR OF fichero.
Si es verdad que antes de enviarlo por PDF, se enviaba a una impresora ,
teniamos una XEROX y como te comentaba hubo que hacer un *PSFCFG , para
ftransformar los datos a una IPDS.
Un saludo
El 20 de marzo de 2014, 12:36, Javier Mora <[email protected]> escribió:
La palabra clave AFPRSC no está soportada por HPT. Al imprimir el spool
sobre una impresora PCL el sistema ignora AFPRSC. Sólo podrás ver la imagen si
generar un PDF con InfoPrint Server o con los "Transform Services (5761TS1)",
disponible sin cargo a partir de la V6R1.
Javier
--------------------------------------------------------------------------
De: [email protected]
[mailto:[email protected]] En nombre de LLuís Segura
Enviado el: jueves, 20 de marzo de 2014 10:36
Para: forum.help400
Asunto: RE: INSERTAR IMAGENES EN UN PRINTER
Buenos días Fernando,
Estaba probando con un pequeño programa la función AFPRSC que desconocía
y no me acaba de funcionar, me genera un fichero de spool, pero vacío.
¿Primero, como tienes definido el fichero de impresión? Entiendo que el
programa lo tienes en Cobol, supongo que como FORMATFILE sin más.
¿Los ficheros supongo que pueden estar en cualquier carpeta del IFS, o
bien tienen que estar en la carpeta AFPRESOURCES que nos propones en el
ejemplo?
¿Las imágenes tienen que tener un formato especial o son JPG normales y
corrientes?
Gracias por el ejemplo y por tu tiempo.
Saludos
Lluís.
De: [email protected]
[mailto:[email protected]] En nombre de Fernando Idem
Enviado el: dilluns, 17 de març de 2014 15:47
Para: informatica; forum.help400
Asunto: Re: INSERTAR IMAGENES EN UN PRINTER
Buenas;
Yo tengo esto que lo utilizamos una vez, tenia unas imágenes de los
artículos en la carpeta IFS.
Y los iba cargando dependiendo del articulo.
En la DDS del fichero de impresion generamos un registro;
A*%%**************************************************************
A R JPGDIR
A*%%**************************************************************
A*%%RI 00000
A*%%**************************************************************
A** &FILEJPG - Nombre de la imagen
A** &POSD - Posicionamiento Vertical (Desde margen superior)
A** &POSA - Posicionamiento Horizontal (Desde margen Izquierdo)
A*****************************************************************
A AFPRSC(&FILEJPG *JFIF +
A &POSD &POSA +
A (*SIZE &ANCHO &ALTO) +
A (*PATH &PATHIN) +
A (*MAPOPT *ST))
A FILEJPG 10A P
A POSD 5S 3P
A POSA 5S 3P
A ANCHO 5S 3P
A ALTO 5S 3P
A PATHIN 500A P
A******************************************************************
Y en programa
MOVE 5,5 TO POSA
MOVE 5,20 TO POSD
MOVE "ARTI.JPG" TO FILEJPG
MOVE 2,00 TO ANCHO
MOVE 1,50 TO ALTO
MOVE "\\Qibm\UserData\OS400\AFPresources"
TO PATHIN.
WRITE R-REGISTRO FROM JPGDIR FORMAT "JPGDIR".
No se si esto es lo que necesitas.
Un saludo
El 11 de marzo de 2014, 9:39, informatica <[email protected]>
escribió:
Buenos días-
Necesito insertar la imagen del artículo en un documento generado en el
iseries (V7r1m0). Las imágenes están en una carpeta del ifs.
Alguien sabe como??? o donde buscar información??
Muy agradecido
____________________________________________________
Ú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.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
