Buenos dias.
Con este tema de los preformatos, se me ha refrescado la memoria...supongo 
que os ha pasado a muchos, que enviando un preformato a una impresora, os 
sale de una manera, y enviándolo a un fichero PDF se os descuadra(y 
viceversa).
Esta tambien podría ser la solución. Tener un preformato para impresora y 
otro para PDF y cambiarlo dinámicamente.
Por otra parte, Javier, estoy diseñando PRTF siguiendo tu idea. Sólo una 
cosa, en (&OVLNM2 6.9 2.5) en 6.9 y 2.5 supongo que pasas los parámetros 
de desplazamiento. Tambien supongo que si los dos preformatos tienen los 
mismos tamaños, esto va a 0, no?
Gracias!! y gracias a todos los que me respondísteis.



De:     "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/01/2018 14:06
Asunto: ** Newsletter ** RE: ** Newsletter ** RE: Duda copias en 
preformatos
Enviado por:    forum.help400-boun...@listas.combios.es



Te pongo un pequeño ejemplo de la DDS de archivo de impresora:
 
     A          R OVL1
     A                                      OVERLAY(&OVLNM2 6.9 2.5)
     A            OVLNM2         8A  P
 
Y en el programa cambias el valor de la variable en función del preformato 
a imprimir
 
OVLNM2 = ‘PREFORM01’;
WRITE OVL1;
WRITE OTRO_REG;
 
OVLNM2 = ‘PREFORM02’;
WRITE OVL1;
WRITE OTRO_REG;
 
Normalmente la palabra clave OVERLAY debe ir en un registro a parte, que 
suele “escribirse” antes que el contenido variable del documento.
 
Javier
 
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 24 de enero de 2018 10:45
Para: forum.help400
Asunto: Re: ** Newsletter ** RE: Duda copias en preformatos
 
Caray. Esto pinta bien. Evidentemente no lo he hecho nunca. 
Interpreto que es un registro vacio, sólo con esta variable? 
Descrito en el fichero al principio al final?, le da lo mismo? 
Interpreto que el orden de escritura sería algo así: 
Overlay=1; 
   Exsr Sr_albaran; 
Overlay=2; 
   Exsr Sr_albaran; 

Begsr Sr_albaran; 
   Write reg_overlay 
   write cabecera 
   dow not %eof 
        Write lineas 
    Enddo 
   write total 
Endsr; 




De:        "Javier Mora" <jm...@musgrave.es> 
Para:        "forum.help400" <forum.help400@listas.combios.es> 
Fecha:        24/01/2018 10:34 
Asunto:        ** Newsletter ** RE: Duda copias en preformatos 
Enviado por:        forum.help400-boun...@listas.combios.es 




Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro. 
  
Javier Mora 
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando 
Sánchez Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos 
 
Buenos días, 
 
De esa manera te genera dos impresos. 
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400. 
 
Un saludo 
 
Fernando Sánchez Piña 
 
El 24 de enero de 2018, 9:17, alberto <alberto.marti...@roler.es> 
escribió: 
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(&libl/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(&libl/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
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. 
____________________________________________________
Ú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