Consultor Eletrônico



Kbase 17086: How To Reset Page-number In The Middle Of A 4GL Report
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   15/10/2008
Status: Verified

GOAL:

How to reset page-number in the middle of a 4GL report

FIX:

The following is example code that shows how to reset the page-number in the middle of a report. A user may want to do this when outputting multiple-page
customer statements.


OUTPUT TO t.dat PAGED PAGE-SIZE 8 APPEND.
FORM HEADER "This Page " PAGE-NUMBER WITH PAGE-TOP   
NO-LABELS FRAME a.
VIEW FRAME a.
FOR EACH order BREAK BY cust-num:
  IF FIRST-OF (cust-num) THEN DO:
     OUTPUT CLOSE.
     OUTPUT TO t.dat PAGED PAGE-SIZE 8 APPEND.
     PAGE.
     VIEW FRAME A.
  END.
  DISPLAY cust-num order-num.
END.