设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[report] ABAP编程中使用Write语句实现List报表实例

Twilight发表于 2014-03-29 23:59Twilight 最后回复于 2014-03-29 23:59 [复制链接] 9762 0

作业1 建立程序ZBC2_<YN>_HM1.
  • 进入ABAP数据字典，查看表sflight的表结构
  • 建立内表it_sflight和工作区wa_sflight，数据类型与sflight相同
  • 建立选择屏幕，其中carrid字段，要求用户选择一项，connid和fldate字段，用户可以选定一定范围的数据
  • 根据用户的选择，输出数据，
    要求输出的字段：carrid connid fldate price currency planetype seatsmax seatsocc
    注意，对于金额类型的字段，输出时一般还要输出它的币种。
    此外，不同币种输出的格式还不尽相同，在用WRITE语句输出金额字段时需要相应的调整语句。具体语法通过系统帮助查看。
    [*将输出的数据格式化，要求有表头，每个单元格有横线和竖线区分。表头的颜色与数据的颜色不一样，每行数据的主键字段与普通字段颜色不一样。

实现的效果：
基本语法实例1.jpg
程序代码：
  1. REPORT  ZLXG_HM1 LINE-SIZE 107.
  2. DATA:WA_SFLIGHT TYPE SFLIGHT.
  3. DATA:IT_SFLIGHT TYPE STANDARD TABLE OF SFLIGHT.

  5. PARAMETERS:PA_CARR TYPE SFLIGHT-CARRID.
  6. SELECT-OPTIONS:SO_CONN FOR WA_SFLIGHT-CONNID,
  7.                SO_FLDA FOR WA_SFLIGHT-FLDATE.

  9. SELECT *
  10.   FROM SFLIGHT
  11.   INTO CORRESPONDING FIELDS OF TABLE IT_SFLIGHT
  12.   WHERE CARRID = PA_CARR
  13.   AND CONNID IN SO_CONN
  14.   AND FLDATE IN SO_FLDA.

  16. FORMAT COLOR COL_HEADING. "头部显示COL_HEADING颜色
  17. ULINE.
  18. WRITE:/ SY-VLINE, AT 2(10) 'carrid'(001) ,"SY-VLINE:竖线  2(10)：在第2个位置 输出长度为10的字符串
  19.         SY-VLINE, AT 14(10)'connid'(002),
  20.         SY-VLINE, AT 26(20)'fldate'(003),
  21.         SY-VLINE, AT 48(10)'price'(004),
  22.         SY-VLINE, AT 60(10)'currency'(005),
  23.         SY-VLINE, AT 72(10)'planetype'(006),
  24.         SY-VLINE, AT 84(10)'seatsmax'(007),
  25.         SY-VLINE, AT 96(10)'seatsocc'(008),
  26.         SY-VLINE.
  27. ULINE.
  28. FORMAT RESET."颜色重置结束

  30. LOOP AT IT_SFLIGHT INTO WA_SFLIGHT.
  31. WRITE:/ SY-VLINE, AT 2(10)  WA_SFLIGHT-carrid COLOR COL_KEY,
  32.         SY-VLINE, AT 14(10) WA_SFLIGHT-connid COLOR COL_KEY,
  33.         SY-VLINE, AT 26(20) WA_SFLIGHT-fldate COLOR COL_KEY,
  34.         SY-VLINE, AT 48(10) WA_SFLIGHT-price CURRENCY WA_SFLIGHT-currency,
  35.         SY-VLINE, AT 60(10) WA_SFLIGHT-currency,
  36.         SY-VLINE, AT 72(10) WA_SFLIGHT-planetype,
  37.         SY-VLINE, AT 84(10) WA_SFLIGHT-seatsmax,
  38.         SY-VLINE, AT 96(10) WA_SFLIGHT-seatsocc,
  39.         SY-VLINE.
  40.         ULINE.
  41. ENDLOOP.
复制代码

作业2 将ZBC2_<YN>_HM1拷贝为ZBC2_<YN>_HM2
  • 定义结构类型，包含表sflight的carrid connid fldate price currency planetype seatsmax seatsocc 字段，并新增一个字段occpercent 用来表示当前已经卖出去的座位的比例，即seatsocc/seatsmax，取值范围是0-1的两位小数，用p类型进行定义。
  • 将内表与工作区用该类型重新定义
    [*更改数据库取数据逻辑，将数据取道新的内表中
  • 遍历取得的内表，将每条数据取出来，计算occpercent，并更新内表
  • 输出数据时，在右边增加一列，将百分比数据在最后输出。
  • 在输出的最右边再增加一列 找到图标中的红绿灯图标。如果百分比低于50 显示绿灯，高于50 低于75  显示黄灯 高于75  显示红灯。
  • 更改选择屏幕，增加一个checkbox，打勾时，显示百分比和红绿灯图标，不打勾时，不不显示
  • 更改选择屏幕，增加一组radiobox ，选第一项时 显示所有数据，选第二项时，只显示绿灯和黄灯的，选第三项时，只显示绿灯的。
  • 调整选择屏幕外观，将数据的录入与选项的勾选，分成两个block 上下排列。

选择屏幕和执行效果：
基本语法实例2选择屏幕.jpg
基本语法实例2结果.jpg
程序代码：
  1. *--------------------------------------------------------------------*
  2. *TYPES
  3. *--------------------------------------------------------------------*
  4. *PERFORM tp_sflight.
  5. *
  6. *form tp_sfligt.
  7. TYPES:BEGIN OF tp_sflight,
  8.        carrid    TYPE sflight-carrid ,
  9.        connid    TYPE sflight-connid ,
  10.        fldate    TYPE sflight-fldate ,
  11.        price     TYPE sflight-price  ,
  12.        currency  TYPE sflight-currency,
  13.        planetype TYPE sflight-planetype,
  14.        seatsmax  TYPE sflight-seatsmax,
  15.        seatsocc  TYPE sflight-seatsocc,
  16.        occpercent TYPE p DECIMALS 2,
  17.       END OF tp_sflight.
  18. *--------------------------------------------------------------------*
  19. *DATA
  20. *--------------------------------------------------------------------*
  21. DATA:wa_sflight TYPE tp_sflight.
  22. DATA:it_sflight TYPE STANDARD TABLE OF tp_sflight.
  23. DATA:it_sflight_out TYPE STANDARD TABLE OF tp_sflight.
  24. *--------------------------------------------------------------------*
  25. *SELECTION-SCREEN
  26. *--------------------------------------------------------------------*
  27. SELECTION-SCREEN BEGIN OF BLOCK b_p1 WITH FRAME TITLE text-010.
  28. PARAMETERS:pa_carr TYPE sflight-carrid.
  29. SELECT-OPTIONS:so_conn FOR wa_sflight-connid,
  30.                so_flda FOR wa_sflight-fldate.
  31. SELECTION-SCREEN END OF BLOCK b_p1.
  32. SELECTION-SCREEN BEGIN OF BLOCK b_p2 WITH FRAME TITLE text-011.
  33. PARAMETERS: pa_check  AS CHECKBOX.
  34. PARAMETERS: radio1 RADIOBUTTON GROUP int,
  35.             radio2 RADIOBUTTON GROUP int,
  36.             radio3 RADIOBUTTON GROUP int.
  37. SELECTION-SCREEN END OF BLOCK b_p2.
  38. *--------------------------------------------------------------------*
  39. *LOAD-OF-PROGRAM = INITIALIZATION
  40. *--------------------------------------------------------------------*
  41. LOAD-OF-PROGRAM.
  42.   pa_carr = 'AA'.
  43.   pa_check = 'X'.
  44. *--------------------------------------------------------------------*
  45. *AT SELECTION-SCREEN
  46. *--------------------------------------------------------------------*
  47. AT SELECTION-SCREEN ON pa_check.
  48.   IF pa_check IS NOT INITIAL.
  49.     MESSAGE w003(zvino).
  50. *   Invalid operator!
  51.   ENDIF.
  52. *--------------------------------------------------------------------*
  53. *TOP-OF-PAGE.
  54. *--------------------------------------------------------------------*
  55. TOP-OF-PAGE.
  56.   FORMAT COLOR COL_HEADING.
  57.   IF pa_check = 'X'.
  58.     ULINE 1(131).
  59.   ELSE.
  60.     ULINE /1(107).
  61.   ENDIF.
  62.   WRITE:/ sy-vline, AT 2(10) 'carrid'(001) ,
  63.           sy-vline, AT 14(10)'connid'(002),
  64.           sy-vline, AT 26(20)'fldate'(003),
  65.           sy-vline, AT 48(10)'price'(004),
  66.           sy-vline, AT 60(10)'currency'(005),
  67.           sy-vline, AT 72(10)'planetype'(006),
  68.           sy-vline, AT 84(10)'seatsmax'(007),
  69.           sy-vline, AT 96(10)'seatsocc'(008).
  70.   IF pa_check = 'X'.
  71.     WRITE:sy-vline, AT 108(10)'percent'(009),
  72.           sy-vline, AT 120(10)'STATUS'(012),sy-vline.
  73.     ULINE /1(131).
  74.   ELSE.
  75.     WRITE:sy-vline.
  76.     ULINE /1(107).
  77.   ENDIF.
  78.   FORMAT RESET.

  80. *--------------------------------------------------------------------*
  81. *START-OF-SELECTION.
  82. *--------------------------------------------------------------------*
  83. START-OF-SELECTION."主处理事件 这个不能放在perform里
  84.   PERFORM select_date."把查询写成了了一个子程序，后面还可以附using changing  参数来对应取值
  85. *&---------------------------------------------------------------------*
  86. *&      Form  select_date
  87. *&---------------------------------------------------------------------*
  88. *       text
  89. *----------------------------------------------------------------------*
  90. FORM select_date.

  92.   SELECT *
  93.     FROM sflight
  94.     INTO CORRESPONDING FIELDS OF TABLE it_sflight
  95.     WHERE carrid = pa_carr
  96.     AND connid IN so_conn
  97.     AND fldate IN so_flda.

  99.   LOOP AT it_sflight INTO wa_sflight.
  100.     wa_sflight-occpercent = wa_sflight-seatsocc / wa_sflight-seatsmax.
  101.     MODIFY it_sflight FROM wa_sflight.
  102.   ENDLOOP.

  104.   CASE 'X'.
  105.     WHEN radio1.
  106.       it_sflight_out = it_sflight.
  107.     WHEN radio2.
  108.       LOOP AT it_sflight INTO wa_sflight WHERE occpercent < '0.75'.
  109.         APPEND wa_sflight TO it_sflight_out.
  110.       ENDLOOP.
  111.     WHEN radio3.
  112.       LOOP AT it_sflight INTO wa_sflight WHERE occpercent < '0.5'.
  113.         APPEND wa_sflight TO it_sflight_out.
  114.       ENDLOOP.
  115.   ENDCASE.

  117.   LOOP AT it_sflight_out INTO wa_sflight.
  118.     WRITE:/ sy-vline, AT 2(10)  wa_sflight-carrid COLOR COL_KEY,
  119.             sy-vline, AT 14(10) wa_sflight-connid COLOR COL_KEY,
  120.             sy-vline, AT 26(20) wa_sflight-fldate COLOR COL_KEY,
  121.             sy-vline, AT 48(10) wa_sflight-price  CURRENCY wa_sflight-currency,
  122.             sy-vline, AT 60(10) wa_sflight-currency,
  123.             sy-vline, AT 72(10) wa_sflight-planetype,
  124.             sy-vline, AT 84(10) wa_sflight-seatsmax,
  125.             sy-vline, AT 96(10) wa_sflight-seatsocc.
  126.     IF pa_check = 'X'.
  127.       WRITE:sy-vline, AT 108(10) wa_sflight-occpercent.
  128.       IF wa_sflight-occpercent < '0.5'.
  129.         WRITE: sy-vline, AT 120(10) icon_green_light AS ICON ,sy-vline.
  130.       ELSEIF wa_sflight-occpercent < '0.75'.
  131.         WRITE: sy-vline, AT 120(10) icon_yellow_light AS ICON ,sy-vline.
  132.       ELSE.
  133.         WRITE: sy-vline, AT 120(10) icon_red_light AS ICON ,sy-vline.
  134.       ENDIF.
  135.       ULINE /1(131).
  136.     ELSE.
  137.       WRITE:sy-vline.
  138.       ULINE /1(107).
  139.     ENDIF.
  140.   ENDLOOP.
  141. ENDFORM.                    "select_date
复制代码

perform 用传参形式的代码：
  1. *--------------------------------------------------------------------*
  2. *TYPES
  3. *--------------------------------------------------------------------*
  4. TYPES:BEGIN OF TP_SFLIGHT,
  5.        carrid    TYPE SFLIGHT-carrid ,
  6.        connid    TYPE SFLIGHT-connid ,
  7.        fldate    TYPE SFLIGHT-fldate ,
  8.        price     TYPE SFLIGHT-price  ,
  9.        currency  TYPE SFLIGHT-currency,
  10.        planetypE TYPE SFLIGHT-planetypE,
  11.        seatsmax  TYPE SFLIGHT-seatsmax,
  12.        seatsocc  TYPE SFLIGHT-seatsocc,
  13.        occpercent TYPE P DECIMALS 2,
  14.       END OF TP_SFLIGHT.
  15. *--------------------------------------------------------------------*
  16. *DATA
  17. *--------------------------------------------------------------------*
  18. DATA:WA_SFLIGHT TYPE TP_SFLIGHT.
  19. DATA:IT_SFLIGHT TYPE STANDARD TABLE OF TP_SFLIGHT.
  20. DATA:IT_SFLIGHT_OUT TYPE STANDARD TABLE OF TP_SFLIGHT.
  21. *--------------------------------------------------------------------*
  22. *SELECTION-SCREEN
  23. *--------------------------------------------------------------------*
  24. SELECTION-SCREEN BEGIN OF BLOCK B_P1 WITH FRAME TITLE TEXT-010.
  25. PARAMETERS:PA_CARR TYPE SFLIGHT-CARRID.
  26. SELECT-OPTIONS:SO_CONN FOR WA_SFLIGHT-CONNID,
  27.                SO_FLDA FOR WA_SFLIGHT-FLDATE.
  28. SELECTION-SCREEN END OF BLOCK B_P1.
  29. SELECTION-SCREEN BEGIN OF BLOCK B_P2 WITH FRAME TITLE TEXT-011.
  30. PARAMETERS: PA_check  AS CHECKBOX.
  31. PARAMETERS: radio1 RADIOBUTTON GROUP int,
  32.             radio2 RADIOBUTTON GROUP int,
  33.             radio3 RADIOBUTTON GROUP int.
  34. SELECTION-SCREEN END OF BLOCK B_P2.
  35. *--------------------------------------------------------------------*
  36. *LOAD-OF-PROGRAM = INITIALIZATION
  37. *--------------------------------------------------------------------*
  38. LOAD-OF-PROGRAM.
  39. PA_CARR = 'AA'.
  40. PA_check = 'X'.
  41. *--------------------------------------------------------------------*
  42. *AT SELECTION-SCREEN
  43. *--------------------------------------------------------------------*
  44. AT SELECTION-SCREEN ON PA_CHECK.
  45.   IF PA_check IS NOT INITIAL.
  46.      MESSAGE W003(ZVINO).
  47. *   Invalid operator!
  48.   ENDIF.
  49. *--------------------------------------------------------------------*
  50. *TOP-OF-PAGE.
  51. *--------------------------------------------------------------------*
  52. TOP-OF-PAGE.
  53. FORMAT COLOR COL_HEADING.
  54. IF PA_check = 'X'.
  55.   ULINE 1(131).
  56. ELSE.
  57.   ULINE /1(107).
  58. ENDIF.
  59. WRITE:/ SY-VLINE, AT 2(10) 'carrid'(001) ,
  60.         SY-VLINE, AT 14(10)'connid'(002),
  61.         SY-VLINE, AT 26(20)'fldate'(003),
  62.         SY-VLINE, AT 48(10)'price'(004),
  63.         SY-VLINE, AT 60(10)'currency'(005),
  64.         SY-VLINE, AT 72(10)'planetype'(006),
  65.         SY-VLINE, AT 84(10)'seatsmax'(007),
  66.         SY-VLINE, AT 96(10)'seatsocc'(008).
  67.         IF PA_check = 'X'.
  68.           WRITE:SY-VLINE, AT 108(10)'percent'(009),
  69.                 SY-VLINE, AT 120(10)'STATUS'(012),SY-VLINE.
  70.           ULINE /1(131).
  71.           ELSE.
  72.             WRITE:SY-VLINE.
  73.             ULINE /1(107).
  74.         ENDIF.
  75. FORMAT RESET.

  77. *--------------------------------------------------------------------*
  78. *START-OF-SELECTION.
  79. *--------------------------------------------------------------------*
  80. START-OF-SELECTION.
  81. PERFORM GET_DATA
  82.             USING
  83.                PA_CARR
  84.                RADIO1
  85.                RADIO2
  86.                RADIO3
  87.                SO_CONN[]
  88.                SO_FLDA[]
  89.             CHANGING
  90.                IT_SFLIGHT_OUT[].

  92. PERFORM OUT_DATA
  93.             USING
  94.                IT_SFLIGHT_OUT[].

  96. *&---------------------------------------------------------------------*
  97. *&      Form  GET_DATA
  98. *&---------------------------------------------------------------------*
  99. *       text
  100. *----------------------------------------------------------------------*
  101. *  -->  p1        text
  102. *  <--  p2        text
  103. *----------------------------------------------------------------------*
  104. FORM GET_DATA USING P_CARR
  105.                     rad1
  106.                     rad2
  107.                     rad3
  108.                     S_CONN TYPE TABLE
  109.                     S_FLDA TYPE TABLE
  110.               CHANGING T_SFLIGHT_OUT TYPE TABLE.

  112. DATA:W_SFLIGHT TYPE TP_SFLIGHT.
  113. DATA:T_SFLIGHT TYPE STANDARD TABLE OF TP_SFLIGHT.
  114. SELECT *
  115.   FROM SFLIGHT
  116.   INTO CORRESPONDING FIELDS OF TABLE T_SFLIGHT
  117.   WHERE CARRID = P_CARR
  118.   AND CONNID IN S_CONN
  119.   AND FLDATE IN S_FLDA.

  121. LOOP AT T_SFLIGHT INTO W_SFLIGHT.
  122. W_SFLIGHT-occpercent = W_SFLIGHT-seatsocc / W_SFLIGHT-seatsmax.
  123. MODIFY T_SFLIGHT FROM W_SFLIGHT.
  124. ENDLOOP.

  126. IF rad1 = 'X'.
  127. T_SFLIGHT_OUT = T_SFLIGHT.
  128. ENDIF.

  130. IF rad2 = 'X'.
  131.     LOOP AT T_SFLIGHT INTO W_SFLIGHT WHERE occpercent < '0.75'.
  132.        APPEND W_SFLIGHT TO T_SFLIGHT_OUT.
  133.     ENDLOOP.
  134. ENDIF.

  136. IF rad3 = 'X'.
  137.     LOOP AT T_SFLIGHT INTO W_SFLIGHT WHERE occpercent < '0.5'.
  138.        APPEND W_SFLIGHT TO T_SFLIGHT_OUT.
  139.     ENDLOOP.
  140. ENDIF.
  141. ENDFORM.                    " GET_DATA
  142. *&---------------------------------------------------------------------*
  143. *&      Form  OUT_DATA
  144. *&---------------------------------------------------------------------*
  145. *       text
  146. *----------------------------------------------------------------------*
  147. *  -->  p1        text
  148. *  <--  p2        text
  149. *----------------------------------------------------------------------*
  150. FORM OUT_DATA USING T_SFLIGHT_OUT TYPE TABLE.
  151. DATA:W_SFLIGHT TYPE TP_SFLIGHT.
  152. LOOP AT T_SFLIGHT_OUT INTO W_SFLIGHT.
  153. WRITE:/ SY-VLINE, AT 2(10)  W_SFLIGHT-carrid COLOR COL_KEY,
  154.         SY-VLINE, AT 14(10) W_SFLIGHT-connid COLOR COL_KEY,
  155.         SY-VLINE, AT 26(20) W_SFLIGHT-fldate COLOR COL_KEY,
  156.         SY-VLINE, AT 48(10) W_SFLIGHT-price  CURRENCY W_SFLIGHT-currency,
  157.         SY-VLINE, AT 60(10) W_SFLIGHT-currency,
  158.         SY-VLINE, AT 72(10) W_SFLIGHT-planetype,
  159.         SY-VLINE, AT 84(10) W_SFLIGHT-seatsmax,
  160.         SY-VLINE, AT 96(10) W_SFLIGHT-seatsocc.
  161.         IF PA_check = 'X'.
  162.         WRITE:SY-VLINE, AT 108(10) W_SFLIGHT-occpercent.
  163.           IF W_SFLIGHT-occpercent < '0.5'.
  164.             WRITE: SY-VLINE, AT 120(10) ICON_GREEN_LIGHT AS ICON ,SY-VLINE.
  165.             ELSEIF W_SFLIGHT-occpercent < '0.75'.
  166.               WRITE: SY-VLINE, AT 120(10) ICON_YELLOW_LIGHT AS ICON ,SY-VLINE.
  167.               ELSE.
  168.               WRITE: SY-VLINE, AT 120(10) ICON_RED_LIGHT AS ICON ,SY-VLINE.
  169.           ENDIF.
  170.           ULINE /1(131).
  171.         ELSE.
  172.             WRITE:SY-VLINE.
  173.             ULINE /1(107).
  174.         ENDIF.
  175. ENDLOOP.
  176. ENDFORM.                    " OUT_DATA
复制代码
write, list, 报表

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11239 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-21 19:45 , Processed in 0.089483 second(s), 6 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表