在alv上下文菜单中增加自定义子菜单

程序代码：

1. REPORT  YDAMON_043 NO STANDARD PAGE HEADING.
   
2. *******************************************************************
   
3. * Type pool declaration
   
4. *******************************************************************
   
5. TYPE-POOLS: slis.
   
6. ******************************************************************
   
7. * Internal table declaration
   
8. ******************************************************************
   
9. DATA: BEGIN OF gt_outtab OCCURS 0.
   
10.         INCLUDE STRUCTURE sflight.
    
11. DATA: END OF gt_outtab.
    
12. data: gt_events       TYPE slis_t_event.
    
13. *****************************************************************
    
14. * Structure / Variable declaration
    
15. *****************************************************************
    
16. DATA: g_repid         LIKE sy-repid,
    
17.       event           TYPE slis_ALV_event.
    
18. 
    
19. *****************************************************************
    
20. * Event: START-OF-SELECTION
    
21. ******************************************************************
    
22. START-OF-SELECTION.
    
23. * Storing the program name
    
24.   g_repid = sy-repid.
    
25. * Building ALV event table
    
26.   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    
27.     EXPORTING
    
28.       i_list_type     = 4
    
29.     IMPORTING
    
30.       et_events       = gt_events
    
31.     EXCEPTIONS
    
32.       list_type_wrong = 1
    
33.       OTHERS          = 2.
    
34.   IF sy-subrc = 0.
    
35.     REFRESH gt_events.
    
36. *   Adding records for CONTEXT_MENU event
    
37.     event-name = 'CONTEXT_MENU'.
    
38.     event-form = 'CONTEXT_MENU'.
    
39.     APPEND event TO gt_events.
    
40.   ENDIF.
    
41. 
    
42. * Data Selection
    
43.   SELECT * FROM sflight INTO CORRESPONDING FIELDS
    
44.                    OF TABLE gt_outtab
    
45.                    UP TO 00030 ROWS.
    
46. * Display ALV grid
    
47.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
48.     EXPORTING
    
49.       i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
    
50.       i_callback_program          = g_repid
    
51.       i_callback_user_command     = 'USER_COMMAND'
    
52.       i_structure_name            = 'SFLIGHT'
    
53.       it_events                   = gt_events
    
54.     TABLES
    
55.       t_outtab                    = gt_outtab
    
56.     EXCEPTIONS
    
57.       program_error               = 1
    
58.       OTHERS                      = 2.
    
59.   IF sy-subrc <> 0.
    
60. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
61. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
62.   ENDIF.
    
63. 
    
64. *****************************************************************
    
65. * FORM html_top_of_page
    
66. *****************************************************************
    
67. FORM html_top_of_page USING top TYPE REF TO cl_dd_document.
    
68.   CALL METHOD top->add_text
    
69.     EXPORTING
    
70.       text      = 'Hello world '
    
71.       sap_style = 'heading'.
    
72.   CALL METHOD top->add_gap
    
73.     EXPORTING
    
74.       width = 200.
    
75.   CALL METHOD top->add_picture
    
76.     EXPORTING
    
77.       picture_id = 'ENJOYSAP_LOGO'.
    
78. ENDFORM.                    "html_top_of_page
    
79. ****************************************************************
    
80. * Form  context_menu
    
81. ****************************************************************
    
82. FORM context_menu USING e_object TYPE REF TO cl_ctmenu.
    
83.   DATA: l_smenu TYPE REF TO cl_ctmenu.
    
84.   IF e_object IS BOUND.
    
85. *   Create custom Sub-menu to hide column on which right
    
86. *   mouse button will be clicked
    
87.     CREATE OBJECT l_smenu.
    
88.     CALL METHOD l_smenu->add_function
    
89.       EXPORTING
    
90.         fcode = 'ZFN1'
    
91.         text  = 'Hide Column'(001).
    
92.     CALL METHOD e_object->add_submenu
    
93.       EXPORTING
    
94.         menu = l_smenu
    
95.         text = 'Hide'(002).
    
96. 
    
97.   ENDIF.
    
98. ENDFORM.                    "CONTEXT_MENU
    
99. ******************************************************************
    
100. * Form  user_command
     
101. ******************************************************************
     
102. FORM user_command  USING r_ucomm TYPE sy-ucomm
     
103.                          ls_selfield TYPE slis_selfield.
     
104. 
     
105.   DATA: g_grid TYPE REF TO cl_gui_alv_grid,
     
106.         t_catalog TYPE lvc_t_fcat,
     
107.         w_catalog TYPE lvc_s_fcat,
     
108.         l_repid  TYPE sy-repid.
     
109. 
     
110.   CASE r_ucomm.
     
111. 
     
112. *   When 'hide column' sub-menu is clicked from the context menu
     
113. *   then hide the column from where this is happened
     
114.     WHEN 'ZFN1'.
     
115. *     Get the global instance of the ALV grid as well as
     
116. *     it's field catalog info.
     
117.       CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
     
118.         IMPORTING
     
119.           e_callback_program = l_repid
     
120.           e_grid             = g_grid
     
121.           et_fieldcat_lvc    = t_catalog.
     
122.       CHECK l_repid = g_repid.
     
123.       IF g_grid IS BOUND AND t_catalog[] IS NOT INITIAL.
     
124. *       Set the 'NO_OUT' attribute of the catalog to 'X'
     
125.         w_catalog-no_out = 'X'.
     
126. *       Modify the field with this above value
     
127. *       on which right click occured
     
128.         MODIFY t_catalog FROM w_catalog TRANSPORTING no_out
     
129.             WHERE fieldname = ls_selfield-fieldname.
     
130.         IF sy-subrc = 0.
     
131. *         Set the field catalog with this modified one
     
132.           CALL METHOD g_grid->set_frontend_fieldcatalog
     
133.             EXPORTING
     
134.               it_fieldcatalog = t_catalog.
     
135.         ENDIF.
     
136.       ENDIF.
     
137.     WHEN OTHERS.
     
138. * Do nothing
     
139.   ENDCASE.
     
140.   ls_selfield-refresh = 'X'.
     
141. ENDFORM.                    "USER_COMMAND

复制代码

程序执行结果：

鼠标右键单击，隐藏该行记录