Re: Pre-formatos variables

[Jesus Olague]

Hola.

 

Aunque coincido con la propuesta de Walter de que puediera ser mas conveniente utilizar segmentos de pagina, si es posible hacer lo que necesitas, tienes dos alternativas muy simples de implementar:

 

La primera, que es la que yo utilizo (porque solo utilizo un par de printer-files para todos mis reportes), es hacer un override al archivo de impresion, supongamos que tus preformatos se llaman FACTxxx en donde xxx=Numero de Empresa

DCL VAR(&OVRLAY) TYPE(*CHAR) LEN(8) VALUE('FACTxxx ')

 

CHGVAR %SST(&OVRLAY 5 3) &NUMCIA

 

OVRPRTF FILE(PRTR_FILE) FRONTOVL(&OVRLAY)

La segunda consiste en que en el printer-file definas un formato de registro:

 

A          R PRTOVL                     OVERLAY(&OVRLAY 0 0)
A            OVRLAY         8A  P                          
 

En tu programa RPG le des valor a la variable OVRLAY y escribas el registro en cuestion.

 

I            DS                                     
I                                        1   8 OVRLAY
I                                        6   80XNCIA

 

C                     Z-ADDNUMCIA    XNCIA                         
C                     WRITEPRTOVL                     Print Overlay
 

Saludos.

--
Jesús Olague
Zacatecas, México