[ |../../index.htm#lansa/l4wdev05_0205.htm]
現在地:

4.4.4 DEF_FOOTコマンドの使い方

「4.4.2 DEF_HEADコマンドの使い方」で挙げた例をさらに拡張して、各ページの末尾にもページ番号その他の情報を印字するようにしてみましょう。
GROUP_BY    NAME(#ACCOUNT) FIELDS(#COMP #DIV #DEPT              #EXPEND #REVNU) DEF_HEAD    NAME(#HEADING) FIELDS(#COMP #REP1PAGE)              TRIGGER_BY(#COMP *OVERFLOW) DEF_LINE    NAME(#DETAILS) FIELDS(#DIV #DEPT #EXPEND #REVNU) DEF_FOOT    NAME(#FOOTING) FIELDS(#REP1PAGE)              TEXT(('EXP/REV REPORT' 58 10)) SELECT      FIELDS(#ACCOUNT) FROM_FILE(ACCOUNTS) PRINT       LINE(#DETAILS) ENDSELECT ENDPRINT
 
すると次のようなレポートが作成されます。
 
       会社 01    ページ    1                                   
                                                                 
        部門          課              支出       収入            
          1           ADM              400       576             
          1           MKT              678        56             
          1           SAL              123      6784             
          2           ADM               46        52             
          2           SAL              978       456             
          3           ACC              456       678             
          3           SAL              123       679             
                                                                 
       ページ 1  収支報告書                                    
 
 
 
 
       会社 02    ページ    2                                   
                                                                 
        部門          課              支出       収入            
          1           ACC              843       400             
          1           MKT               23         0             
          1           SAL              876        10             
          2           ACC                0        43             
                                                                 
       ページ 2  収支報告書                                    
 
 
 
[ |../../index.htm#lansa/l4wdev05_0205.htm]