| Categoría : Programación
Autor : Rodolfo Vergara Calderon
Título : Impresion con Preformatos o Graficos
en el AS/400
Descripción del truco:
Este proceso es de Utilidad cuando deseamos que nuestro
reporte salga con algun formato especificado, por ejemplo
si deseamos imprimir cartas que contengan una firma
o tal vez una boleta de pago con logo de la empresa
y marcos, este proceso sobreposicionara el formato sobre
la impresion propiamente que se ve en spool, de esa
manera solo nos preocuparemos de la data en si y de
su posicion a la hora de imprimir.
Fecha 25-02-2004
1er paso Creación del formato de preimpresion
- Podremos utilizar el word para crear la preimpresión,
por ejemplo para una carta posicionamos el logo en la
parte superior de la hoja en blanco y la firma (escaneada)
en la posicion final (O cualquier dibujo que se desee).
- Luego imprimir hacia un archivo de salida (la impresora
ha utililizar debe tener la configuracion : Print to
a File y medium overlay marcados.
2do paso : Imprimir el archivo de salida de impresión
en una carpeta del AS/400 (al imprimirse se pide el
nombre del archivo)
3er paso : En el AS/400, crear un archivo fisico
con las siguientes caracteristicas :
RCDLEN(32766)
MBR( Nombre de Miembro)
MAXMBRS(*NOMAX)
LVLCHK (*NO) *Debe tambien poner el nombre del archivo por ejm
FIRMAUSR y en mbr FIRMA1, ademas de una libreria que
puede ser FIRMAS 4to paso : copiar de el archivo de impresion grabada
en la carpeta del as/400 del paso 2
Utilizar CPYFRMPCD...........
con los parametrsos
TRASLATE TABLE *NONE
FORMAT OF PC DATA *NOTEXT
5to. paso :
Crear un OVERLAY (CRTOVL)
OVL Nombre del archivo a Overlay y libreria , utilizar
el mismo nombre del archivo del paso 3 ya que seran
diferentes
FILE Archivo fisico creado en el paso 3
6to paso:
Crear un CL para poner realizar un OVRPRF y despues
llamar al programa que imprimira la data.
PGM (&NRO )
DCL VAR(&NRO) TYPE(*DEC) LEN(2)
OVRPRTF FILE(PRN132) CPI(12) PAGRTT(0) HOLD(*YES) +
SAVE(*YES)
OVRPRTF FILE(PRN132A) CPI(12) PAGRTT(0) UOM(*CM) +
FRONTOVL(FIRMAS/FIRMAUSR 0 0.50) +
HOLD(*YES) SAVE(*YES)
CALL PGM(MIPROGRAMA) PARM( &NRO)
DLTOVR *ALL
Por ejm. tenemos un programa que me imprime solo el
texto de una carta o un detalle de una planilla,
EL primer OVR setea la Hoja para que salga rotada (o
parada)
El segundo indica que la salida de la impresion del
programa va a ir sobre mi Preformato , en este caso
mi Logo de mi empresa y la firma del funcionario correspondiente,
asimismo puedo indicarle que el formato se mueva a la
derecha o a la izquierda en pulgadas o centimetros
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
