SAP应用界面开发:5)Report List报表开发-实现Report的格式分页输出(6)

dai460973037

　　下面创建一个ICON数据查询程序，将ICON的名称及相关图标从系统中抓出。控制报表每页显示数量最多不超过10行，具体如下：
　　REPORT  ZZWEI_REPORT_DEMO NO STANDARD PAGE HEADING.
  *NO STANDARD PAGE HEADING (FOR LIST HEADING)

   DATA:PAGE_LINE TYPE I VALUE 10, "每頁行數
         ICONTAB LIKE STANDARD TABLE OF V_ICON WITH HEADER LINE,"參照VIEW建內表
         Num TYPE I.

  *每次分页时绘制表头
   TOP-OF-PAGE.
     WRITE: /2 'Pages:',SYST-PAGNO RIGHT-JUSTIFIED.
     ULINE AT /1(80).
     WRITE: /1(1) SY-VLINE,'ID' COLOR 1,
             7(1) SY-VLINE ,'ICON' COLOR 1,
             15(1) SY-VLINE,'NAME' COLOR 1,
             41(1) SY-VLINE, 'SHORTTEXT' COLOR 1,
             80(1) SY-VLINE.
     ULINE AT /1(80).


    START-OF-SELECTION. "屏幕开始时查询数据...
        SELECT * FROM ICON INNER JOIN ICONT ON ICON~ID = ICONT~ID INTO
        CORRESPONDING FIELDS OF TABLE ICONTAB WHERE ICONT~LANGU = SY-LANGU.

    LOOP AT ICONTAB.
       WRITE: /1(1) SY-VLINE,SY-TABIX LEFT-JUSTIFIED,
               7(1) SY-VLINE,ICONTAB-ID AS ICON LEFT-JUSTIFIED,
               "LEFT-JUSTIFIED:左对齐,RIGHT_JUSTIFIED:右对象，CENTERED:居中对齐。
               15(1) SY-VLINE,ICONTAB-NAME,
               41(1) SY-VLINE,ICONTAB-SHORTTEXT,
               80(1) SY-VLINE.
       ULINE /1(80).

      Num = SY-TABIX MOD PAGE_LINE.
       IF Num = 0.
         NEW-PAGE.  "新的一页
       ENDIF.
   ENDLOOP.
    运行结果如下：