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.

Responder a