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

[ooalv] 使用oops方式在alv里实现双击交互功能

Twilight发表于 2014-08-20 11:52Twilight 最后回复于 2014-08-20 11:52 [复制链接] 4060 0

程序代码：
  1. *Class definition for handling double click
  2. CLASS event_class DEFINITION DEFERRED.
  3. *Internal table and work area declarations for dd02l and dd03l
  4. DATA : it_dd02l TYPE TABLE OF dd02l,
  5.        wa_dd02l TYPE dd02l,
  6.        it_dd03l TYPE TABLE OF dd03l,
  7.        wa_dd03l TYPE dd03l.
  8. *data declarations for ALV Main list
  9. DATA : ty_lay1 TYPE lvc_s_layo,
  10.        it_fieldcat TYPE lvc_t_fcat ,
  11.        ty_fieldcat TYPE lvc_s_fcat ,
  12.        c_alv1 TYPE REF TO cl_gui_alv_grid,
  13.        c_cont1 TYPE REF TO cl_gui_custom_container,
  14.        event_receiver TYPE REF TO event_class.
  15. *data declarations for ALV Interactive list
  16. DATA : ty_lay2 TYPE lvc_s_layo,
  17.        it_fcat TYPE lvc_t_fcat ,
  18.        ty_fcat TYPE lvc_s_fcat ,
  19.        c_alv2 TYPE REF TO cl_gui_alv_grid,
  20.        c_cont2 TYPE REF TO cl_gui_custom_container.

  22. **Select options for multiple values and NOT ranges
  23. SELECT-OPTIONS : s_table FOR wa_dd02l-tabname NO INTERVALS.

  25. * Initialization event
  26. INITIALIZATION.
  27. *Start of selection event
  28. START-OF-SELECTION.
  29. *fetch data into table and field characteristics
  30.   PERFORM fetch_data.
  31. *ALV display for output
  32.   PERFORM alv_output.
  33. *&---------------------------------------------------------------------*
  34. *&      Form  FETCH_DATA
  35. *&---------------------------------------------------------------------*
  36. *       text
  37. *----------------------------------------------------------------------*
  38. *  -->  p1        text
  39. *  <--  p2        text
  40. *----------------------------------------------------------------------*
  41. FORM fetch_data .
  42. *Select the table details
  43.   SELECT * FROM dd02l
  44.   INTO CORRESPONDING FIELDS OF TABLE it_dd02l
  45.   WHERE tabname IN s_table
  46.     AND tabclass = 'TRANSP'.
  47. ENDFORM.                    " FETCH_DATA
  48. *----------------------------------------------------------------------*
  49. * CLASS lcl_event_receiver DEFINITION
  50. *----------------------------------------------------------------------*
  51. CLASS event_class DEFINITION.
  52. *Handling double click
  53.   PUBLIC SECTION.
  54.     METHODS:
  55.     handle_double_click
  56.     FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row .
  57. ENDCLASS. "lcl_event_receiver DEFINITION
  58. *----------------------------------------------------------------------*
  59. * CLASS lcl_event_receiver IMPLEMENTATION
  60. *----------------------------------------------------------------------*
  61. CLASS event_class IMPLEMENTATION.
  62.   METHOD handle_double_click.
  63.     DATA : ls_dd02l LIKE LINE OF it_dd02l.
  64. *Reading the selected data into a variable
  65.     READ TABLE it_dd02l INDEX e_row-index INTO ls_dd02l.
  66. *  *Select the field details of the selected table
  67.     SELECT * FROM dd03l INTO CORRESPONDING FIELDS OF TABLE it_dd03l
  68.     WHERE tabname EQ ls_dd02l-tabname.

  70. *calling the ALV containing the field values
  71.     CALL SCREEN 101.
  72.   ENDMETHOD. "handle_double_click
  73. ENDCLASS. "lcl_event_receiver IMPLEMENTATION
  74. *&---------------------------------------------------------------------*
  75. *& Module pbo_100 OUTPUT
  76. *&---------------------------------------------------------------------*
  77. MODULE pbo_100 OUTPUT.
  78. *set pf-status 'XXX'.
  79. *set titlebar 'XXX'.
  80. ENDMODULE. " PBO_100 OUTPUT

  82. *&---------------------------------------------------------------------*
  83. *& Module alv_100 OUTPUT
  84. *&---------------------------------------------------------------------*
  85. MODULE alv_100 OUTPUT.
  86. *Check if there is no custom container in screen 100
  87.   IF c_cont1 IS INITIAL.
  88. *Creating object of container
  89.     CREATE OBJECT c_cont1
  90.      EXPORTING
  91.        container_name = 'CCONT'.
  92.     IF sy-subrc <> 0.
  93. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  94. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  95.     ENDIF.
  96. *Creating object of alv
  97.     CREATE OBJECT c_alv1
  98.        EXPORTING
  99.         i_parent = c_cont1.
  100.     IF sy-subrc <> 0.
  101. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  102. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  103.     ENDIF.
  104. *alv layout
  105.     PERFORM alv_100_layout.
  106. *alv field catalogue
  107.     PERFORM alv_100_fieldcat.
  108. *Displaying the ALV grid
  109.     CALL METHOD c_alv1->set_table_for_first_display
  110.       EXPORTING
  111.         is_layout       = ty_lay1
  112.       CHANGING
  113.         it_outtab       = it_dd02l[]
  114.         it_fieldcatalog = it_fieldcat.
  115.     IF sy-subrc <> 0.
  116. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  117. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  118.     ENDIF.
  119. *Create object of the event class and setting handler for double click
  120.     CREATE OBJECT event_receiver.
  121.     SET HANDLER event_receiver->handle_double_click FOR c_alv1.
  122.   ENDIF.
  123. ENDMODULE. " ALV_100 OUTPUT
  124. *&---------------------------------------------------------------------*
  125. *& Module pai_100 INPUT
  126. *&---------------------------------------------------------------------*
  127. MODULE pai_100 INPUT.
  128. ENDMODULE. " pai_100 INPUT
  129. *----------------------------------------------------------------------*
  130. * MODULE PBO_101 OUTPUT
  131. *----------------------------------------------------------------------*
  132. MODULE pbo_101 OUTPUT.
  133. *  SET PF-STATUS 'XXX'.
  134. *  SET TITLEBAR 'XXX'.
  135. ENDMODULE. " PBO_101 INPUT
  136. *----------------------------------------------------------------------*
  137. * MODULE ALV_101 OUTPUT
  138. *----------------------------------------------------------------------*
  139. MODULE alv_101 OUTPUT.

  141. *Check if the Custom container exists.
  142.   IF c_cont2 IS INITIAL.
  143. *Creating container object
  144.     CREATE OBJECT c_cont2
  145.       EXPORTING
  146.         container_name = 'CDCONT'.
  147.     IF sy-subrc <> 0.
  148. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  149. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  150.     ENDIF.
  151. *creating ALV grid for interactive list
  152.     CREATE OBJECT c_alv2
  153.       EXPORTING
  154.        i_parent = c_cont2.
  155.     IF sy-subrc <> 0.
  156. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  157. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  158.     ENDIF.
  159. *ALV layout
  160.     PERFORM alv_101_layout.
  161. *ALV fieldcatalogue
  162.     PERFORM alv_101_fieldcat.
  163. *Sorting the output by field position
  164.     SORT it_dd03l BY position.
  165. *ALV for display field details
  166.     CALL METHOD c_alv2->set_table_for_first_display
  167.       EXPORTING
  168.         is_layout       = ty_lay2
  169.       CHANGING
  170.         it_outtab       = it_dd03l[]
  171.         it_fieldcatalog = it_fcat.
  172.     IF sy-subrc <> 0.
  173. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  174. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  175.     ENDIF.
  176.   ENDIF.
  177. ENDMODULE. " ALV_101 OUTPUT

  179. *&---------------------------------------------------------------------*
  180. *& Module PAI_101 INPUT
  181. *&---------------------------------------------------------------------*
  182. MODULE pai_101 INPUT.
  183. ENDMODULE. " PAI_101 INPUT
  184. *&---------------------------------------------------------------------*
  185. *&      Form  ALV_OUTPUT
  186. *&---------------------------------------------------------------------*
  187. *       text
  188. *----------------------------------------------------------------------*
  189. *  -->  p1        text
  190. *  <--  p2        text
  191. *----------------------------------------------------------------------*
  192. FORM alv_output .
  193.   CALL SCREEN 100.
  194. ENDFORM.                    " ALV_OUTPUT
  195. *&---------------------------------------------------------------------*
  196. *&      Form  ALV_100_LAYOUT
  197. *&---------------------------------------------------------------------*
  198. *       text
  199. *----------------------------------------------------------------------*
  200. *  -->  p1        text
  201. *  <--  p2        text
  202. *----------------------------------------------------------------------*
  203. FORM alv_100_layout .
  204.   ty_lay1-grid_title = 'TABLES'.
  205.   ty_lay1-zebra = 'X'.
  206.   ty_lay1-no_toolbar = 'X'.
  207. ENDFORM.                    " ALV_100_LAYOUT
  208. *&---------------------------------------------------------------------*
  209. *&      Form  ALV_100_FIELDCAT
  210. *&---------------------------------------------------------------------*
  211. *       text
  212. *----------------------------------------------------------------------*
  213. *  -->  p1        text
  214. *  <--  p2        text
  215. *----------------------------------------------------------------------*
  216. FORM alv_100_fieldcat .
  217.   CLEAR ty_fieldcat.
  218.   ty_fieldcat-row_pos = 1.
  219.   ty_fieldcat-col_pos = 1.
  220.   ty_fieldcat-fieldname = 'TABNAME'.
  221.   ty_fieldcat-tabname = 'GT_DD02L'.
  222.   ty_fieldcat-coltext = 'TableName'.
  223.   ty_fieldcat-outputlen = 10.
  224.   APPEND ty_fieldcat TO it_fieldcat.
  225.   CLEAR ty_fieldcat.
  226.   ty_fieldcat-row_pos = 1.
  227.   ty_fieldcat-col_pos = 2.
  228.   ty_fieldcat-fieldname = 'TABCLASS'.
  229.   ty_fieldcat-tabname = 'GT_DD02L'.
  230.   ty_fieldcat-coltext = 'CATEGORY'.
  231.   ty_fieldcat-outputlen = 10.
  232.   APPEND ty_fieldcat TO it_fieldcat.
  233.   CLEAR ty_fieldcat.
  234.   ty_fieldcat-row_pos = 1.
  235.   ty_fieldcat-col_pos = 3.
  236.   ty_fieldcat-fieldname = 'AS4USER'.
  237.   ty_fieldcat-tabname = 'GT_DD02L'.
  238.   ty_fieldcat-coltext = 'CREATED'.
  239.   ty_fieldcat-outputlen = 10.
  240.   APPEND ty_fieldcat TO it_fieldcat.
  241.   CLEAR ty_fieldcat.
  242.   ty_fieldcat-row_pos = 1.
  243.   ty_fieldcat-col_pos = 4.
  244.   ty_fieldcat-fieldname = 'AS4DATE'.
  245.   ty_fieldcat-tabname = 'GT_DD02L'.
  246.   ty_fieldcat-coltext = 'DATE'.
  247.   ty_fieldcat-outputlen = 10.
  248.   APPEND ty_fieldcat TO it_fieldcat.
  249.   CLEAR ty_fieldcat.

  251.   ty_fieldcat-row_pos = 1.
  252.   ty_fieldcat-col_pos = 5.
  253.   ty_fieldcat-fieldname = 'AS4TIME'.
  254.   ty_fieldcat-tabname = 'GT_DD02L'.
  255.   ty_fieldcat-coltext = 'TIME'.
  256.   ty_fieldcat-outputlen = 10.
  257.   APPEND ty_fieldcat TO it_fieldcat.
  258.   CLEAR ty_fieldcat.
  259.   ty_fieldcat-row_pos = 1.
  260.   ty_fieldcat-col_pos = 6.
  261.   ty_fieldcat-fieldname = 'CONTFLAG'.
  262.   ty_fieldcat-tabname = 'GT_DD02L'.
  263.   ty_fieldcat-coltext = 'Delivery Class'.
  264.   ty_fieldcat-outputlen = 15.
  265.   APPEND ty_fieldcat TO it_fieldcat.
  266.   CLEAR ty_fieldcat.
  267. ENDFORM.                    " ALV_100_FIELDCAT
  268. *&---------------------------------------------------------------------*
  269. *&      Form  ALV_101_LAYOUT
  270. *&---------------------------------------------------------------------*
  271. *       text
  272. *----------------------------------------------------------------------*
  273. *  -->  p1        text
  274. *  <--  p2        text
  275. *----------------------------------------------------------------------*
  276. FORM alv_101_layout .
  277.   ty_lay2-grid_title = 'FIELDS'.
  278.   ty_lay2-zebra = 'X'.
  279.   ty_lay2-no_toolbar = 'X'.
  280. ENDFORM.                    " ALV_101_LAYOUT
  281. *&---------------------------------------------------------------------*
  282. *&      Form  ALV_101_FIELDCAT
  283. *&---------------------------------------------------------------------*
  284. *       text
  285. *----------------------------------------------------------------------*
  286. *  -->  p1        text
  287. *  <--  p2        text
  288. *----------------------------------------------------------------------*
  289. FORM alv_101_fieldcat .
  290.   REFRESH it_fieldcat.
  291.   REFRESH it_fcat.
  292.   CLEAR ty_fcat.
  293.   ty_fcat-row_pos = 1.
  294.   ty_fcat-col_pos = 1.
  295.   ty_fcat-fieldname = 'FIELDNAME'.
  296.   ty_fcat-tabname = 'GT_DD03L'.
  297.   ty_fcat-coltext = 'Fieldname'.
  298.   ty_fcat-outputlen = 10.
  299.   APPEND ty_fcat TO it_fcat.

  301.   ty_fcat-row_pos = 1.
  302.   ty_fcat-col_pos = 2.
  303.   ty_fcat-fieldname = 'CHECKTABLE'.
  304.   ty_fcat-tabname = 'GT_DD03L'.
  305.   ty_fcat-coltext = 'CHECKTABLE'.
  306.   ty_fcat-outputlen = 10.
  307.   APPEND ty_fcat TO it_fcat.
  308.   ty_fcat-row_pos = 1.
  309.   ty_fcat-col_pos = 3.
  310.   ty_fcat-fieldname = 'KEYFLAG'.
  311.   ty_fcat-tabname = 'GT_DD03L'.
  312.   ty_fcat-coltext = 'Key Flag'.
  313.   ty_fcat-outputlen = 10.
  314.   APPEND ty_fcat TO it_fcat.
  315. ENDFORM.                    " ALV_101_FIELDCAT
复制代码

程序执行效果：
选择屏幕可输入多表
ooalv double click 1.png
双击任意一行
ooalv double click 2.png
ooalv, 双击, oops

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 965 帖子
  3. 10811 积分
收听TA 发消息

Ta最近发表

快速回帖

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

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

GMT+8, 2024-5-3 14:41 , Processed in 0.046392 second(s), 10 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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