Consultor Eletrônico



Kbase P107866: how to print multiple form headers using 4GL?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   16/10/2008
Status: Unverified

GOAL:

how to print multiple form headers?

GOAL:

Printing multiple headers via 4GL

GOAL:

How to print a different form header based on page number?

FACT(s) (Environment):

Progress 9.x
OpenEdge 10.x

FIX:


OUTPUT TO report.txt PAGED PAGE-SIZE 10.
FORM HEADER "Customer Report" "Page" AT 60 PAGE-NUMBER FORMAT ">>>9"
WITH FRAME hdr1.
FORM HEADER "Customer Report (continued)"
"Page" AT 60 PAGE-NUMBER FORMAT ">>>9"
WITH FRAME hdr2.
FORM HEADER "Customer Report (continued - page2)"
"Page" AT 60 PAGE-NUMBER FORMAT ">>>9"
WITH FRAME hdr3.
FOR EACH customer:

IF PAGE-NUMBER = 1 THEN DO:
VIEW FRAME hdr1.
DISPLAY SKIP(1) NAME WITH NO-LABELS.
HIDE FRAME hdr1.
END.
IF PAGE-NUMBER = 2 THEN DO:
VIEW FRAME hdr3.
DISPLAY SKIP(1) NAME WITH NO-LABELS.
HIDE FRAME hdr3.
END.
IF PAGE-NUMBER > 2 THEN DO:
VIEW FRAME hdr2.
DISPLAY SKIP(1) NAME WITH NO-LABELS.
HIDE FRAME hdr2.
END.
PAGE.
END.