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

[report] AT LINE-SELECTION双击事件的多层级屏幕的用法

Twilight发表于 2014-03-30 16:03Twilight 最后回复于 2014-03-30 16:03 [复制链接] 5034 0

AT LINE-SELECTION用于在报表输出时，点击某行时所产生的操作，响应的位置在整行，具体应用时一般和 HIDE 连用。
sy-lsind  判断是第几层显示，不双击，默认当前的屏幕sy-lsind=0.

选择屏幕：
at line selection1.jpg
执行效果：
at line selection2.jpg
双击某行，显示下一屏
at line selection3.jpg

主程序代码：
  1. TABLES: mara, makt.
  2. **********************************************************************
  3. *自定义内表，工作区
  4. **********************************************************************
  5. DATA: BEGIN OF itab,
  6.         matnr TYPE mara-matnr,  "物料编号
  7.         ersda TYPE mara-ersda,  "创建日期
  8.         ernam TYPE mara-ernam,  "创建人
  9.         mtart TYPE mara-mtart,  "物料类型
  10.         meins TYPE mara-meins,  "单位
  11.         gewei TYPE mara-gewei,  "单位
  12.       END OF itab.
  13. DATA wa_itab LIKE itab.
  14. DATA it_itab  LIKE TABLE OF itab.

  16. DATA: BEGIN OF makt1,
  17.           matnr TYPE makt-matnr,   " 物料编号
  18.           spras TYPE makt-spras,   "语言
  19.           maktx TYPE makt-maktx,   "物料描述（短文本）
  20.           maktg TYPE makt-maktg,   "相关匹配码大写物料描述
  21.         END OF makt1.
  22. DATA: wa_makt1 LIKE makt1,
  23.       it_makt1 LIKE TABLE OF makt1.

  25. DATA: BEGIN OF matkl,
  26.         matnr TYPE mara-matnr,
  27.         matkl TYPE mara-matkl,
  28.       END OF matkl.
  29. DATA:wa_matkl LIKE matkl,
  30.      it_matkl LIKE TABLE OF matkl.

  32. **********************************************************************
  33. *定义选择屏幕
  34. **********************************************************************
  35. SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE  text-001.
  36. SELECTION-SCREEN BEGIN OF BLOCK bk2 WITH FRAME TITLE  text-002.
  37. SELECT-OPTIONS p_matnr FOR mara-matnr DEFAULT '20' TO '800'.
  38. SELECT-OPTIONS p_ersda FOR mara-ersda DEFAULT '19910101'
  39.                                            TO '20121212'.
  40. SELECT-OPTIONS p_ernam FOR mara-ersda.
  41. SELECT-OPTIONS p_mtart FOR mara-mtart.
  42. SELECT-OPTIONS p_meins FOR mara-meins.
  43. SELECTION-SCREEN END OF BLOCK bk2.
  44. SELECTION-SCREEN END OF BLOCK bk1.
  45. *INITIALIZATION.
  46. *  p_matnr-low = '20'.
  47. *  p_matnr-high = '800'.
  48. *  p_ersda-low = '1991-01-01'.
  49. *  p_ersda-high = '2012-12-12'.

  51. **********************************************************************
  52. *start-of-selection
  53. **********************************************************************
  54. START-OF-SELECTION.
  55.   PERFORM get_sec1.

  57. **********************************************************************
  58. *at line-selection
  59. **********************************************************************
  60. AT LINE-SELECTION.
  61.   PERFORM get_sec2.

  63. **********************************************************************
  64. *子程序1  第一次屏幕输出调用
  65. **********************************************************************
  66. FORM get_sec1.
  67. **********************************************************************
  68. *从数据库表取数
  69. **********************************************************************
  70.   SELECT matnr ersda ernam mtart meins gewei
  71.     INTO CORRESPONDING FIELDS OF TABLE it_itab
  72.     FROM mara
  73.     WHERE matnr BETWEEN p_matnr-low AND p_matnr-high
  74.       AND ersda BETWEEN p_ersda-low AND p_ersda-high.
  75.   HIDE mara-matnr.

  77. **********************************************************************
  78. *    格式化输出内表数据
  79. **********************************************************************
  80. *    WRITE: '123456789112345678921234567893123456789412345678951234567896123456789'.
  81.   ULINE AT /(74).
  82.   WRITE: / sy-vline,  (10) '物料编号',
  83.            sy-vline,15(10) '创建日期',
  84.            sy-vline,27(10) '创建人',
  85.            sy-vline,39(10) '物料类型',
  86.            sy-vline,51(10) '单位',
  87.            sy-vline,63(10) '毛重',sy-vline.
  88.   ULINE /(74).
  89.   LOOP AT it_itab INTO wa_itab.
  90.     FORMAT HOTSPOT ON.
  91.     WRITE: / sy-vline,(10) wa_itab-matnr COLOR 6 INVERSE ON.
  92.     FORMAT HOTSPOT OFF  COLOR OFF.
  93.     WRITE:   sy-vline,15(10) wa_itab-ersda,
  94.              sy-vline,27(10) wa_itab-ernam,
  95.              sy-vline,39(10) wa_itab-mtart,
  96.              sy-vline,51(10) wa_itab-meins,
  97.              sy-vline,63(10) wa_itab-gewei,sy-vline.
  98. *      FORMAT HOTSPOT. wa_itab-matnr.
  99.     HIDE wa_itab-matnr. "隐藏关键字段
  100.     ULINE /(74).
  101.   ENDLOOP.
  102. ENDFORM.                    "get_sec1

  104. **********************************************************************
  105. *子程序2 触发双击事件后调用
  106. **********************************************************************
  107. FORM get_sec2.
  108.   IF sy-lsind = 1.
  109. *  read LINE sy-index FIELD VALUE wa_itab-matnr.
  110.     SELECT matnr spras maktx maktg
  111.       INTO CORRESPONDING FIELDS OF TABLE it_makt1
  112.       FROM makt
  113.       WHERE matnr = wa_itab-matnr. "按双击行关键字查找
  114. **********************************************************************
  115. *格式化输出
  116. **********************************************************************
  117.     ULINE (104).
  118.     WRITE: / sy-vline,  (10) '物料编号',
  119.              sy-vline,15(4) '语言',
  120.              sy-vline,21(40) '物料描述（短文本）',
  121.              sy-vline,63(40) '相关匹配码的大写物料描述',sy-vline.
  122.     ULINE /(104).
  123.     LOOP AT it_makt1 INTO wa_makt1.
  124.       FORMAT HOTSPOT ON.
  125.       WRITE: / sy-vline,  (10) wa_makt1-matnr COLOR 6 INVERSE ON.
  126.       FORMAT HOTSPOT OFF  COLOR OFF.
  127.       WRITE: sy-vline,15(4) wa_makt1-spras,
  128.              sy-vline,21(40) wa_makt1-maktx,
  129.              sy-vline,63(40) wa_makt1-maktg,sy-vline.
  130. *       HIDE:wa_makt1-matnr.
  131.       ULINE /(104).
  132.     ENDLOOP.
  133.   ENDIF.

  135.   IF sy-lsind = 2.
  136.     SELECT matnr matkl
  137.     INTO CORRESPONDING FIELDS OF TABLE it_matkl
  138.     FROM mara
  139.     WHERE matnr = wa_itab-matnr.

  141.     ULINE (25).
  142.     WRITE:/ sy-vline, 2(10) '物料编号',
  143.             sy-vline, 14(10) 'MATKL',sy-vline.
  144.     ULINE /(25).


  147.     LOOP AT it_matkl INTO wa_matkl.
  148.       WRITE:/ sy-vline, 2(10) wa_matkl-matnr.
  149.       WRITE:  sy-vline, 14(10) wa_matkl-matkl,sy-vline.
  150.       ULINE /(25).
  151.     ENDLOOP.
  152.   ENDIF.
  153. ENDFORM.                    "get_sec2
复制代码
双击, 事件, 工作区, 主程序, AT LINE-SELECTION

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2024-12-23 06:53 , Processed in 0.051494 second(s), 6 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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