实例:ABAP Tree Control 使用与ALV Grid对象关联
Tree Control 是最常用的Windows控件之一,在其他语言中成为"Tree View"等,ABAP的 Tree Contiol 能实现类似的功能。
本文主要介绍一下内容：
1. 实例一个简单的 Tree Control，双击取得节点的Key 和 TEXT
2. 建立有数据表接口的Tree Control 对象
3. 通过右键菜单实现 Tree Control节点的 增 删 改 功能
4. Tree Control对象与ALV Grid对象关联
××××××××××××××××××××华丽的分割线×××××××××××××××××××××××
BEGIN
（一）实例一个简单的 Tree Control，双击取得节点的Key 和 TEXT.
1. 创建一个ABAP程序
2. 在程序中添加一个屏幕100,使用屏幕制作器,建立Screen,添加屏幕对象
创建好的屏幕和对象界面如图:
屏幕元素清单
逻辑流程序
PROCESS BEFORE OUTPUT. MODULE STATUS_0100. * PROCESS AFTER INPUT. MODULE USER_COMMAND_0100.
主程序
1 *&---------------------------------------------------------------------* 2 *& Report ZHAIM_TREE_CONTROL 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT ZHAIM_TREE_CONTROL. 10 * 功能码 11 DATA: OK_CODE TYPE SY-UCOMM, 12 SAVE_OK TYPE SY-UCOMM. 13 * key text 14 DATA: NODEKEY(20) TYPE C, 15 NODETXT(20) TYPE C. 16 17 * 定制控制对象 18 DATA: WA_CONTAINER TYPE SCRFNAME VALUE 'TREE', 19 * 客户对象 20 WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER, 21 * 实例化对象 22 WA_TREE TYPE REF TO CL_GUI_SIMPLE_TREE. 23 * 节点信息表 24 DATA: IT_NODETABLE LIKE TABLE OF MTREESNODE, 25 IW_NODETABLE TYPE MTREESNODE. 26 27 DATA WA_SPFLI TYPE TABLE OF SPFLI. 28 29 *创建一个类，实现一个双击方法 30 CLASS LCL_APPLICATION DEFINITION DEFERRED. 31 32 *&---------------------------------------------------------------------* 33 *& Class (DEFINITION) LCL_APPLICATION 34 *&---------------------------------------------------------------------* 35 * Text 36 *----------------------------------------------------------------------* 37 CLASS LCL_APPLICATION DEFINITION. 38 PUBLIC SECTION. 39 METHODS HANDLE_NODE_DOUBLE_CLICK 40 FOR EVENT NODE_DOUBLE_CLICK 41 OF CL_GUI_SIMPLE_TREE 42 IMPORTING NODE_KEY. 43 ENDCLASS. "LCL_APPLICATION 44 *&---------------------------------------------------------------------* 45 *& Class (Implementation) LCL_APPLICATION 46 *&---------------------------------------------------------------------* 47 * Text 48 *----------------------------------------------------------------------* 49 CLASS LCL_APPLICATION IMPLEMENTATION. 50 51 METHOD HANDLE_NODE_DOUBLE_CLICK. 52 53 NODEKEY = NODE_KEY. 54 55 READ TABLE IT_NODETABLE WITH KEY NODE_KEY = NODE_KEY INTO IW_NODETABLE. 56 57 NODETXT = IW_NODETABLE-TEXT. 58 ENDMETHOD. 59 60 ENDCLASS. "LCL_APPLICATION 61 62 * 双击方法的类的实例化对象 准备在PBO中分配给TREE对象 63 DATA: G_APPLICATION TYPE REF TO LCL_APPLICATION. 64 65 66 START-OF-SELECTION. 67 68 CREATE OBJECT G_APPLICATION. 69 70 CALL SCREEN 100. 71 72 73 *&---------------------------------------------------------------------* 74 *& Module USER_COMMAND_0100 INPUT 75 *&---------------------------------------------------------------------* 76 * text 77 *----------------------------------------------------------------------* 78 MODULE USER_COMMAND_0100 INPUT. 79 80 SAVE_OK = OK_CODE. 81 82 CLEAR OK_CODE. 83 84 CASE SAVE_OK. 85 WHEN 'BACK'. 86 LEAVE PROGRAM. 87 WHEN OTHERS. 88 ENDCASE. 89 90 ENDMODULE. " USER_COMMAND_0100 INPUT 91 *&---------------------------------------------------------------------* 92 *& Module STATUS_0100 OUTPUT 93 *&---------------------------------------------------------------------* 94 * text 95 *----------------------------------------------------------------------* 96 MODULE STATUS_0100 OUTPUT. 97 SET PF-STATUS 'TREECTRL_GUIS'. 98 SET TITLEBAR 'TREE CONTROL'. 99 IF WA_CUSTOM_CONTAINER IS INITIAL. 100 PERFORM FRM_CREATE_TREE. 101 ENDIF. 102 ENDMODULE. " STATUS_0100 OUTPUT 103 104 *&---------------------------------------------------------------------* 105 *& Form FRM_CREATE_TREE 106 *&---------------------------------------------------------------------* 107 * text 108 *----------------------------------------------------------------------* 109 * --> p1 text 110 * <-- p2 text 111 *----------------------------------------------------------------------* 112 FORM FRM_CREATE_TREE . 113 DATA: EVENTS TYPE CNTL_SIMPLE_EVENTS, 114 EVENT1 TYPE CNTL_SIMPLE_EVENT. 115 * 定制控制对象，指定tree control的容器 116 CREATE OBJECT WA_CUSTOM_CONTAINER 117 EXPORTING 118 * PARENT = 119 CONTAINER_NAME = WA_CONTAINER " 定制对象名：TREE 120 * STYLE = 121 * LIFETIME = lifetime_default 122 * REPID = 123 * DYNNR = 124 * NO_AUTODEF_PROGID_DYNNR = 125 EXCEPTIONS 126 CNTL_ERROR = 1 127 CNTL_SYSTEM_ERROR = 2 128 CREATE_ERROR = 3 129 LIFETIME_ERROR = 4 130 LIFETIME_DYNPRO_DYNPRO_LINK = 5 131 others = 6 132 . 133 134 IF SY-SUBRC <> 0. 135 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 136 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 137 ENDIF. 138 139 * 定义树对象 140 CREATE OBJECT WA_TREE 141 EXPORTING 142 * LIFETIME = 143 PARENT = WA_CUSTOM_CONTAINER 144 * SHELLSTYLE = 145 NODE_SELECTION_MODE = CL_GUI_SIMPLE_TREE=>NODE_SEL_MODE_SINGLE 146 * HIDE_SELECTION = 147 * NAME = 148 EXCEPTIONS 149 LIFETIME_ERROR = 1 150 CNTL_SYSTEM_ERROR = 2 151 CREATE_ERROR = 3 152 FAILED = 4 153 ILLEGAL_NODE_SELECTION_MODE = 5 154 others = 6 155 . 156 IF SY-SUBRC <> 0. 157 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 158 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 159 ENDIF. 160 161 * 通过宏定义树 节点 162 DEFINE CREATE_TREE. 163 164 CLEAR IW_NODETABLE. 165 166 IW_NODETABLE-NODE_KEY = &1. "节点KEY值 167 IW_NODETABLE-RELATKEY = &2. "相关联的节点KEY值 168 IW_NODETABLE-RELATSHIP = &3. "关联关系 169 IW_NODETABLE-HIDDEN = &4. 170 IW_NODETABLE-DISABLED = &5. 171 IW_NODETABLE-ISFOLDER = &6. "文件夹形式 172 * 图标,可以运行程序 SHOWICON 查阅 173 IW_NODETABLE-N_IMAGE = &7. "图标 174 IW_NODETABLE-EXP_IMAGE = &7. "图标 175 * IW_NODETABLE-EXPANDER. 176 IW_NODETABLE-TEXT = &8. "节点文本 177 178 APPEND IW_NODETABLE TO IT_NODETABLE. 179 180 END-OF-DEFINITION. 181 182 CREATE_TREE 'CN' '' '' 183 '' '' 'X' '' '中国'. 184 CREATE_TREE 'BEIJING' 'CN' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' 'X' '' '北京'. 185 CREATE_TREE 'FENGTAI' 'BEIJING' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6G@' '丰台区'. 186 CREATE_TREE 'HAIDIAN' 'BEIJING' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6G@' '海淀区'. 187 CREATE_TREE 'CHAOYANG' 'BEIJING' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6G@' '朝阳区'. 188 CREATE_TREE 'DONGCHENG' 'BEIJING' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6G@' '东城区'. 189 190 CREATE_TREE 'SHENGHAI' 'CN' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' 'X' '' '上海'. 191 CREATE_TREE 'QINGPU' 'SHENGHAI' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6F@' '青浦区'. 192 CREATE_TREE 'HONGKOU' 'SHENGHAI' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6F@' '虹口区'. 193 CREATE_TREE 'HUANGPU' 'SHENGHAI' CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD '' '' '' '@6F@' '黄浦区'. 194 195 * 为TREE对象添加节点 196 CALL METHOD WA_TREE->ADD_NODES 197 EXPORTING 198 TABLE_STRUCTURE_NAME = 'MTREESNODE' 199 NODE_TABLE = IT_NODETABLE 200 * EXCEPTIONS 201 * ERROR_IN_IT_NODETABLE = 1 202 * FAILED = 2 203 * DP_ERROR = 3 204 * TABLE_STRUCTURE_NAME_NOT_FOUND = 4 205 * others = 5 206 . 207 IF SY-SUBRC <> 0. 208 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 209 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 210 ENDIF. 211 212 *定义双击事件 213 EVENT1-EVENTID = CL_GUI_SIMPLE_TREE=>EVENTID_NODE_DOUBLE_CLICK. 214 EVENT1-APPL_EVENT = 'X'. 215 APPEND EVENT1 TO EVENTS. 216 217 * 添加事件内表 218 CALL METHOD WA_TREE->SET_REGISTERED_EVENTS 219 EXPORTING 220 EVENTS = EVENTS 221 EXCEPTIONS 222 CNTL_ERROR = 1 223 CNTL_SYSTEM_ERROR = 2 224 ILLEGAL_EVENT_COMBINATION = 3 225 others = 4 226 . 227 IF SY-SUBRC <> 0. 228 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 229 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 230 ENDIF. 231 * 将已定义的双击事件分配到树对象 232 SET HANDLER G_APPLICATION->HANDLE_NODE_DOUBLE_CLICK FOR WA_TREE. 233 ENDFORM. " FRM_CREATE_TREE
（二）建立有数据表接口的Tree Control 对象
从数据表中读取结构，并按照数据关系建立Tree Control，
提一下思路，不做具体事例。。。
将需要的表结构存储到内表中，然后LOOP这张内表，循环调用宏来填充节点内表：例如
DEFINE CREATE_TREE. CLEAR IW_NODETABLE. IW_NODETABLE-NODE_KEY = &1. "节点KEY值 IW_NODETABLE-RELATKEY = &2. "相关联的节点KEY值 IW_NODETABLE-RELATSHIP = &3. "关联关系 IW_NODETABLE-HIDDEN = &4. IW_NODETABLE-DISABLED = &5. IW_NODETABLE-ISFOLDER = &6. "文件夹形式 * 图标,可以运行程序 SHOWICON 查阅 IW_NODETABLE-N_IMAGE = &7. "图标 IW_NODETABLE-EXP_IMAGE = &7. "图标 * IW_NODETABLE-EXPANDER. IW_NODETABLE-TEXT = &8. "节点文本 APPEND IW_NODETABLE TO IT_NODETABLE. END-OF-DEFINITION. LOOP AT <ITAB> INTO <WA>. "循环调用宏 CREATE_TREE ' ' ' ' ' ' ' ' ' ' . ... ENDLOOP.
这样节点情况，也会根据数据情况来动态变化。
（三）通过右键菜单实现 Tree Control节点的 增 删 改 功能
在OO的类中，添加两个方法
*&---------------------------------------------------------------------* *& Class (DEFINITION) LCL_APPLICATION *&---------------------------------------------------------------------* * Text *----------------------------------------------------------------------* CLASS LCL_APPLICATION DEFINITION. PUBLIC SECTION. METHODS: HANDLE_NODE_DOUBLE_CLICK FOR EVENT NODE_DOUBLE_CLICK OF CL_GUI_SIMPLE_TREE IMPORTING NODE_KEY, * 构成右键菜单的方法 HANDLE_NODE_CONTEXT_MENU_REQ FOR EVENT NODE_CONTEXT_MENU_REQUEST OF CL_GUI_SIMPLE_TREE IMPORTING NODE_KEY MENU, * 响应右键菜单的方法 HANDLE_NODE_CONTEXT_MENU_SEL FOR EVENT NODE_CONTEXT_MENU_SELECT OF CL_GUI_SIMPLE_TREE IMPORTING NODE_KEY FCODE. ENDCLASS. "LCL_APPLICATION
方法的实现
*&---------------------------------------------------------------------* *& Class (Implementation) LCL_APPLICATION *&---------------------------------------------------------------------* * Text *----------------------------------------------------------------------* CLASS LCL_APPLICATION IMPLEMENTATION. METHOD HANDLE_NODE_DOUBLE_CLICK. READ TABLE IT_NODETABLE WITH KEY NODE_KEY = NODE_KEY INTO IW_NODETABLE. L_KUNNRK = IW_NODETABLE-NODE_KEY. L_VTWEGK = IW_NODETABLE-RELATKEY. CLEAR IW_NODETABLE. READ TABLE IT_NODETABLE WITH KEY NODE_KEY = L_VTWEGK INTO IW_NODETABLE. L_VKORGK = IW_NODETABLE-RELATKEY. CLEAR IW_NODETABLE. PERFORM FRM_GET_DATA USING L_KUNNRK L_VTWEGK L_VKORGK. CALL METHOD WA_ALVG->REFRESH_TABLE_DISPLAY * EXPORTING * IS_STABLE = * I_SOFT_REFRESH = * EXCEPTIONS * FINISHED = 1 * others = 2 . IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDMETHOD. METHOD HANDLE_NODE_CONTEXT_MENU_REQ. CALL METHOD MENU->ADD_FUNCTION EXPORTING TEXT = '增加本级节点' FCODE = 'CODE1'. CALL METHOD MENU->ADD_FUNCTION EXPORTING TEXT = '增加子节点' FCODE = 'CODE2'. CALL METHOD MENU->ADD_FUNCTION EXPORTING TEXT = '修改当前节点' FCODE = 'CODE3'. CALL METHOD MENU->ADD_FUNCTION EXPORTING TEXT = '删除当前节点' FCODE = 'CODE4'. ENDMETHOD. METHOD HANDLE_NODE_CONTEXT_MENU_SEL. DATA STR1 TYPE TV_NODEKEY. CALL METHOD WA_TREE->GET_SELECTED_NODE IMPORTING NODE_KEY = STR1. IF SY-SUBRC = 0. READ TABLE IT_NODETABLE WITH KEY NODE_KEY = STR1 INTO IW_NODETABLE. IF FCODE = 'CODE4'. CALL METHOD WA_TREE->DELETE_NODE EXPORTING NODE_KEY = IW_NODETABLE-NODE_KEY . DELETE IT_NODETABLE WHERE NODE_KEY = IW_NODETABLE-NODE_KEY. ENDIF. ENDIF. ENDMETHOD. ENDCLASS. "LCL_APPLICATION
（四） Tree Control对象与ALV Grid对象关联
附，源代码：
1 *&---------------------------------------------------------------------* 2 *& Report ZHAIM_TREE_CONTROL 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT ZHAIM_TREE_CONTROL. 10 * 功能码 11 DATA: OK_CODE TYPE SY-UCOMM, 12 SAVE_OK TYPE SY-UCOMM. 13 14 15 * 定制控制对象 16 DATA: WA_CONTAINER TYPE SCRFNAME VALUE 'TREE', 17 WA_CONTAINERA TYPE SCRFNAME VALUE 'ALVG', 18 * 客户对象 19 WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER, 20 WA_CUSTOM_CNTNRALVG TYPE REF TO CL_GUI_CUSTOM_CONTAINER, 21 * 实例化对象 22 WA_TREE TYPE REF TO CL_GUI_SIMPLE_TREE, 23 WA_ALVG TYPE REF TO CL_GUI_ALV_GRID. 24 * 节点信息表 25 DATA: IT_NODETABLE TYPE STANDARD TABLE OF MTREESNODE, 26 IW_NODETABLE TYPE MTREESNODE. 27 28 DATA: IS_LAYOUT TYPE LVC_S_LAYO, 29 IT_FIELDCAT TYPE STANDARD TABLE OF LVC_S_FCAT, 30 IW_FIELDCAT LIKE LINE OF IT_FIELDCAT . 31 32 TYPES:BEGIN OF TY_VBAK , 33 VKORG TYPE VBAK-VKORG , 34 VTWEG TYPE VBAK-VTWEG , 35 KUNNR TYPE VBAK-KUNNR , 36 VBELN TYPE VBAK-VBELN , 37 VKORGT TYPE TVKOT-VTEXT, 38 VTWEGT TYPE TVTWT-VTEXT, 39 END OF TY_VBAK . 40 41 DATA: IT_VBAK TYPE STANDARD TABLE OF TY_VBAK, 42 IW_VBAK TYPE TY_VBAK. 43 44 TYPES: BEGIN OF TY_VBAP , 45 VBELN TYPE VBAP-VBELN , 46 POSNR TYPE VBAP-POSNR , 47 MATNR TYPE VBAP-MATNR , 48 NETWR TYPE VBAP-NETWR , 49 WERKS TYPE VBAP-WERKS , 50 LSMENG TYPE VBAP-LSMENG , 51 END OF TY_VBAP . 52 53 DATA: IT_VBAP TYPE STANDARD TABLE OF TY_VBAP, 54 IW_VBAP TYPE TY_VBAP. 55 56 DATA GS_LAYOUT TYPE LVC_S_LAYO. 57 DATA GT_FIELDCAT TYPE STANDARD TABLE OF LVC_S_FCAT . 58 DATA GW_FIELDCAT LIKE LINE OF GT_FIELDCAT . 59 * 通过宏定义树 节点 60 DEFINE CREATE_TREE. 61 62 CLEAR IW_NODETABLE. 63 64 IW_NODETABLE-NODE_KEY = &1. "节点KEY值 65 IW_NODETABLE-RELATKEY = &2. "相关联的节点KEY值 66 IW_NODETABLE-RELATSHIP = &3. "关联关系 67 IW_NODETABLE-HIDDEN = &4. 68 IW_NODETABLE-DISABLED = &5. 69 IW_NODETABLE-ISFOLDER = &6. "文件夹形式 70 * 图标,可以运行程序 SHOWICON 查阅 71 IW_NODETABLE-N_IMAGE = &7. "图标 72 IW_NODETABLE-EXP_IMAGE = &7. "图标 73 IW_NODETABLE-TEXT = &8. "节点文本 74 75 CLEAR IW_NODETABLE-EXPANDER. 76 77 APPEND IW_NODETABLE TO IT_NODETABLE. 78 79 END-OF-DEFINITION. 80 *创建一个类，实现一个双击方法 81 CLASS LCL_APPLICATION DEFINITION DEFERRED. 82 83 *&---------------------------------------------------------------------* 84 *& Class (DEFINITION) LCL_APPLICATION 85 *&---------------------------------------------------------------------* 86 * Text 87 *----------------------------------------------------------------------* 88 CLASS LCL_APPLICATION DEFINITION. 89 PUBLIC SECTION. 90 91 DATA: L_KUNNRK TYPE VBAK-KUNNR, 92 L_VTWEGK TYPE VBAK-VTWEG, 93 L_VKORGK TYPE VBAK-VKORG. 94 95 METHODS: 96 97 HANDLE_NODE_DOUBLE_CLICK 98 FOR EVENT NODE_DOUBLE_CLICK 99 OF CL_GUI_SIMPLE_TREE 100 IMPORTING NODE_KEY, 101 102 HANDLE_NODE_CONTEXT_MENU_REQ 103 FOR EVENT NODE_CONTEXT_MENU_REQUEST 104 OF CL_GUI_SIMPLE_TREE 105 IMPORTING NODE_KEY MENU, 106 107 HANDLE_NODE_CONTEXT_MENU_SEL 108 FOR EVENT NODE_CONTEXT_MENU_SELECT 109 OF CL_GUI_SIMPLE_TREE 110 IMPORTING NODE_KEY FCODE. 111 112 ENDCLASS. "LCL_APPLICATION 113 *&---------------------------------------------------------------------* 114 *& Class (Implementation) LCL_APPLICATION 115 *&---------------------------------------------------------------------* 116 * Text 117 *----------------------------------------------------------------------* 118 CLASS LCL_APPLICATION IMPLEMENTATION. 119 120 METHOD HANDLE_NODE_DOUBLE_CLICK. 121 READ TABLE IT_NODETABLE WITH KEY NODE_KEY = NODE_KEY INTO IW_NODETABLE. 122 L_KUNNRK = IW_NODETABLE-NODE_KEY. 123 L_VTWEGK = IW_NODETABLE-RELATKEY. 124 CLEAR IW_NODETABLE. 125 126 READ TABLE IT_NODETABLE WITH KEY NODE_KEY = L_VTWEGK INTO IW_NODETABLE. 127 L_VKORGK = IW_NODETABLE-RELATKEY. 128 CLEAR IW_NODETABLE. 129 130 PERFORM FRM_GET_DATA USING L_KUNNRK L_VTWEGK L_VKORGK. 131 132 CALL METHOD WA_ALVG->REFRESH_TABLE_DISPLAY 133 * EXPORTING 134 * IS_STABLE = 135 * I_SOFT_REFRESH = 136 * EXCEPTIONS 137 * FINISHED = 1 138 * others = 2 139 . 140 IF SY-SUBRC <> 0. 141 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 142 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 143 ENDIF. 144 145 146 ENDMETHOD. 147 148 METHOD HANDLE_NODE_CONTEXT_MENU_REQ. 149 CALL METHOD MENU->ADD_FUNCTION 150 EXPORTING 151 TEXT = '增加本级节点' 152 FCODE = 'CODE1'. 153 154 CALL METHOD MENU->ADD_FUNCTION 155 EXPORTING 156 TEXT = '增加子节点' 157 FCODE = 'CODE2'. 158 159 CALL METHOD MENU->ADD_FUNCTION 160 EXPORTING 161 TEXT = '修改当前节点' 162 FCODE = 'CODE3'. 163 164 CALL METHOD MENU->ADD_FUNCTION 165 EXPORTING 166 TEXT = '删除当前节点' 167 FCODE = 'CODE4'. 168 ENDMETHOD. 169 170 METHOD HANDLE_NODE_CONTEXT_MENU_SEL. 171 172 DATA STR1 TYPE TV_NODEKEY. 173 174 CALL METHOD WA_TREE->GET_SELECTED_NODE 175 IMPORTING 176 NODE_KEY = STR1. 177 178 IF SY-SUBRC = 0. 179 180 READ TABLE IT_NODETABLE WITH KEY NODE_KEY = STR1 INTO IW_NODETABLE. 181 182 183 IF FCODE = 'CODE4'. 184 CALL METHOD WA_TREE->DELETE_NODE 185 EXPORTING 186 NODE_KEY = IW_NODETABLE-NODE_KEY 187 . 188 DELETE IT_NODETABLE WHERE NODE_KEY = IW_NODETABLE-NODE_KEY. 189 ENDIF. 190 191 ENDIF. 192 193 ENDMETHOD. 194 ENDCLASS. "LCL_APPLICATION 195 196 * 双击方法的类的实例化对象 准备在PBO中分配给TREE对象 197 DATA: G_APPLICATION TYPE REF TO LCL_APPLICATION. 198 199 200 START-OF-SELECTION. 201 202 CREATE OBJECT G_APPLICATION. 203 PERFORM FRM_GET_NODE_DATA. 204 CALL SCREEN 100. 205 206 207 *&---------------------------------------------------------------------* 208 *& Module STATUS_0100 OUTPUT 209 *&---------------------------------------------------------------------* 210 * text 211 *----------------------------------------------------------------------* 212 MODULE STATUS_0100 OUTPUT. 213 SET PF-STATUS 'TREECTRL_GUIS'. 214 SET TITLEBAR 'TREE CONTROL'. 215 IF WA_CUSTOM_CONTAINER IS INITIAL. 216 PERFORM FRM_CREATE_TREE. 217 ENDIF. 218 ENDMODULE. " STATUS_0100 OUTPUT 219 220 *&---------------------------------------------------------------------* 221 *& Form FRM_CREATE_TREE 222 *&---------------------------------------------------------------------* 223 * text 224 *----------------------------------------------------------------------* 225 * --> p1 text 226 * <-- p2 text 227 *----------------------------------------------------------------------* 228 FORM FRM_CREATE_TREE . 229 DATA: EVENTS TYPE CNTL_SIMPLE_EVENTS, 230 EVENT1 TYPE CNTL_SIMPLE_EVENT. 231 232 * 定制控制对象，指定tree control的容器 233 CREATE OBJECT WA_CUSTOM_CONTAINER 234 EXPORTING 235 * PARENT = 236 CONTAINER_NAME = WA_CONTAINER " 定制对象名：TREE 237 * STYLE = 238 * LIFETIME = lifetime_default 239 * REPID = 240 * DYNNR = 241 * NO_AUTODEF_PROGID_DYNNR = 242 EXCEPTIONS 243 CNTL_ERROR = 1 244 CNTL_SYSTEM_ERROR = 2 245 CREATE_ERROR = 3 246 LIFETIME_ERROR = 4 247 LIFETIME_DYNPRO_DYNPRO_LINK = 5 248 OTHERS = 6 249 . 250 251 IF SY-SUBRC <> 0. 252 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 253 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 254 ENDIF. 255 256 * 定制控制对象，指定ALV 的容器 257 CREATE OBJECT WA_CUSTOM_CNTNRALVG 258 EXPORTING 259 * PARENT = 260 CONTAINER_NAME = WA_CONTAINERA 261 * STYLE = 262 * LIFETIME = lifetime_default 263 * REPID = 264 * DYNNR = 265 * NO_AUTODEF_PROGID_DYNNR = 266 * EXCEPTIONS 267 * CNTL_ERROR = 1 268 * CNTL_SYSTEM_ERROR = 2 269 * CREATE_ERROR = 3 270 * LIFETIME_ERROR = 4 271 * LIFETIME_DYNPRO_DYNPRO_LINK = 5 272 * others = 6 273 . 274 IF SY-SUBRC <> 0. 275 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 276 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 277 ENDIF. 278 279 280 281 * 定义树对象 282 CREATE OBJECT WA_TREE 283 EXPORTING 284 * LIFETIME = 285 PARENT = WA_CUSTOM_CONTAINER 286 * SHELLSTYLE = 287 NODE_SELECTION_MODE = CL_GUI_SIMPLE_TREE=>NODE_SEL_MODE_SINGLE 288 * HIDE_SELECTION = 289 * NAME = 290 EXCEPTIONS 291 LIFETIME_ERROR = 1 292 CNTL_SYSTEM_ERROR = 2 293 CREATE_ERROR = 3 294 FAILED = 4 295 ILLEGAL_NODE_SELECTION_MODE = 5 296 others = 6 297 . 298 IF SY-SUBRC <> 0. 299 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 300 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 301 ENDIF. 302 303 * 定义ALV对象 304 305 CREATE OBJECT WA_ALVG 306 EXPORTING 307 * I_SHELLSTYLE = 0 308 * I_LIFETIME = 309 I_PARENT = WA_CUSTOM_CNTNRALVG 310 * I_APPL_EVENTS = space 311 * I_PARENTDBG = 312 * I_APPLOGPARENT = 313 * I_GRAPHICSPARENT = 314 * I_NAME = 315 * I_FCAT_COMPLETE = SPACE 316 * EXCEPTIONS 317 * ERROR_CNTL_CREATE = 1 318 * ERROR_CNTL_INIT = 2 319 * ERROR_CNTL_LINK = 3 320 * ERROR_DP_CREATE = 4 321 * others = 5 322 . 323 IF SY-SUBRC <> 0. 324 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 325 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 326 ENDIF. 327 328 DATA: L_VKORGT TYPE TVKOT-VTEXT, 329 L_VTWEGT TYPE TVTWT-VTEXT, 330 L_VKORG TYPE VBAK-VKORG, 331 L_VTWEG TYPE VBAK-VTWEG, 332 L_KUNNR TYPE VBAK-KUNNR. 333 334 335 LOOP AT IT_VBAK INTO IW_VBAK. 336 L_VKORG = IW_VBAK-VKORG. 337 L_VTWEG = IW_VBAK-VTWEG. 338 L_KUNNR = IW_VBAK-KUNNR. 339 L_VKORGT = IW_VBAK-VKORGT. 340 L_VTWEGT = IW_VBAK-VTWEGT. 341 342 CREATE_TREE L_VKORG '' '' '' '' 'X' '' L_VKORGT. 343 344 CREATE_TREE L_VTWEG L_VKORG 6 '' '' 'X' '' L_VTWEGT. 345 346 CREATE_TREE L_KUNNR L_VTWEG 6 '' '' '' '@5B@' IW_VBAK-KUNNR. 347 348 CLEAR: L_VKORGT, 349 L_VTWEGT, 350 L_VKORG, 351 L_VTWEG, 352 L_KUNNR, 353 IW_VBAK. 354 ENDLOOP. 355 356 * 为TREE对象添加节点 357 SORT IT_NODETABLE BY NODE_KEY RELATKEY. 358 DELETE ADJACENT DUPLICATES FROM IT_NODETABLE COMPARING NODE_KEY RELATKEY. 359 360 SORT IT_NODETABLE BY RELATSHIP ASCENDING ISFOLDER DESCENDING. 361 CALL METHOD WA_TREE->ADD_NODES 362 EXPORTING 363 TABLE_STRUCTURE_NAME = 'MTREESNODE' 364 NODE_TABLE = IT_NODETABLE 365 * EXCEPTIONS 366 * ERROR_IN_IT_NODETABLE = 1 367 * FAILED = 2 368 * DP_ERROR = 3 369 * TABLE_STRUCTURE_NAME_NOT_FOUND = 4 370 * others = 5 371 . 372 IF SY-SUBRC <> 0. 373 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 374 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 375 ENDIF. 376 377 PERFORM FRM_SET_ALVTB . 378 379 *定义双击事件 380 EVENT1-EVENTID = CL_GUI_SIMPLE_TREE=>EVENTID_NODE_DOUBLE_CLICK. 381 EVENT1-APPL_EVENT = 'X'. 382 APPEND EVENT1 TO EVENTS. 383 384 EVENT1-EVENTID = CL_GUI_SIMPLE_TREE=>EVENTID_NODE_CONTEXT_MENU_REQ. 385 EVENT1-APPL_EVENT = ''. 386 APPEND EVENT1 TO EVENTS. 387 388 CALL METHOD WA_TREE->SET_CTX_MENU_SELECT_EVENT_APPL 389 EXPORTING 390 APPL_EVENT = 'X' . 391 392 * 添加事件内表 393 CALL METHOD WA_TREE->SET_REGISTERED_EVENTS 394 EXPORTING 395 EVENTS = EVENTS 396 EXCEPTIONS 397 CNTL_ERROR = 1 398 CNTL_SYSTEM_ERROR = 2 399 ILLEGAL_EVENT_COMBINATION = 3 400 others = 4 401 . 402 IF SY-SUBRC <> 0. 403 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 404 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 405 ENDIF. 406 * 将已定义的双击事件分配到树对象 407 SET HANDLER G_APPLICATION->HANDLE_NODE_DOUBLE_CLICK FOR WA_TREE. 408 SET HANDLER G_APPLICATION->HANDLE_NODE_CONTEXT_MENU_REQ FOR WA_TREE. 409 SET HANDLER G_APPLICATION->HANDLE_NODE_CONTEXT_MENU_SEL FOR WA_TREE. 410 ENDFORM. " FRM_CREATE_TREE 411 412 *&---------------------------------------------------------------------* 413 *& Module USER_COMMAND_0100 INPUT 414 *&---------------------------------------------------------------------* 415 * text 416 *----------------------------------------------------------------------* 417 MODULE USER_COMMAND_0100 INPUT. 418 419 SAVE_OK = OK_CODE. 420 421 CLEAR OK_CODE. 422 423 CASE SAVE_OK. 424 WHEN 'BACK'. 425 LEAVE PROGRAM. 426 WHEN OTHERS. 427 ENDCASE. 428 429 ENDMODULE. " USER_COMMAND_0100 INPUT 430 *&---------------------------------------------------------------------* 431 *& Form FRM_GET_DATA 432 *&---------------------------------------------------------------------* 433 * text 434 *----------------------------------------------------------------------* 435 * -->P_NODE_KEY text 436 * -->P_IW_NODETABLE_RELATKEY text 437 *----------------------------------------------------------------------* 438 FORM FRM_GET_DATA USING P_KUNNR 439 P_VTWEG 440 P_VKORG. 441 SELECT 442 VBAP~VBELN 443 VBAP~POSNR 444 VBAP~MATNR 445 VBAP~NETWR 446 VBAP~WERKS 447 VBAP~LSMENG 448 INTO TABLE IT_VBAP 449 FROM VBAP 450 INNER JOIN VBAK ON VBAP~VBELN = VBAK~VBELN 451 WHERE VBAK~VKORG = P_VKORG 452 AND VBAK~VTWEG = P_VTWEG 453 AND VBAK~KUNNR = P_KUNNR 454 AND VBAK~AUART NE 'Z001'. 455 IF IT_VBAP IS INITIAL. 456 MESSAGE S001(00) WITH '数据不存在或者尝试选择下级子节点'. 457 LEAVE TO SCREEN 100. 458 ENDIF. 459 460 LOOP AT IT_VBAP INTO IW_VBAP. 461 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' 462 EXPORTING 463 INPUT = IW_VBAP-VBELN 464 IMPORTING 465 OUTPUT = IW_VBAP-VBELN. 466 467 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' 468 EXPORTING 469 INPUT = IW_VBAP-MATNR 470 IMPORTING 471 OUTPUT = IW_VBAP-MATNR. 472 MODIFY IT_VBAP FROM IW_VBAP . 473 ENDLOOP. 474 475 ENDFORM. " GET_DATA 476 *&---------------------------------------------------------------------* 477 *& Form FRM_GET_NODE_DATA 478 *&---------------------------------------------------------------------* 479 * text 480 *----------------------------------------------------------------------* 481 * --> p1 text 482 * <-- p2 text 483 *----------------------------------------------------------------------* 484 FORM FRM_GET_NODE_DATA . 485 486 SELECT A~VKORG 487 A~VTWEG 488 A~KUNNR 489 A~VBELN 490 B~VTEXT 491 C~VTEXT 492 INTO TABLE IT_VBAK 493 FROM VBAK AS A 494 INNER JOIN TVKOT AS B ON B~VKORG = A~VKORG 495 INNER JOIN TVTWT AS C ON C~VTWEG = A~VTWEG 496 WHERE B~SPRAS = '1' AND C~SPRAS = '1'. 497 498 SORT IT_VBAK BY VKORG VTWEG KUNNR VBELN. 499 DELETE ADJACENT DUPLICATES FROM IT_VBAK COMPARING VKORG VTWEG KUNNR. 500 501 IF SY-SUBRC <> 0. 502 503 ENDIF. 504 505 ENDFORM. " FRM_GET_NODE_DATA 506 *&---------------------------------------------------------------------* 507 *& Form FRM_SET_ALVTB 508 *&---------------------------------------------------------------------* 509 * text 510 *----------------------------------------------------------------------* 511 * --> p1 text 512 * <-- p2 text 513 *----------------------------------------------------------------------* 514 FORM FRM_SET_ALVTB . 515 516 CLEAR GW_FIELDCAT . 517 GW_FIELDCAT-FIELDNAME = 'VBELN' . 518 GW_FIELDCAT-SCRTEXT_L = '销售订单' . 519 APPEND GW_FIELDCAT TO GT_FIELDCAT . 520 521 CLEAR GW_FIELDCAT . 522 GW_FIELDCAT-FIELDNAME = 'POSNR' . 523 GW_FIELDCAT-SCRTEXT_L = '销售订单项目' . 524 APPEND GW_FIELDCAT TO GT_FIELDCAT . 525 526 CLEAR GW_FIELDCAT . 527 GW_FIELDCAT-FIELDNAME = 'MATNR' . 528 GW_FIELDCAT-SCRTEXT_L = '物料编码' . 529 APPEND GW_FIELDCAT TO GT_FIELDCAT . 530 531 CLEAR GW_FIELDCAT . 532 GW_FIELDCAT-FIELDNAME = 'NETWR' . 533 GW_FIELDCAT-SCRTEXT_L = '净价' . 534 APPEND GW_FIELDCAT TO GT_FIELDCAT . 535 536 CLEAR GW_FIELDCAT . 537 GW_FIELDCAT-FIELDNAME = 'WERKS' . 538 GW_FIELDCAT-SCRTEXT_L = '工厂' . 539 APPEND GW_FIELDCAT TO GT_FIELDCAT . 540 541 CLEAR GW_FIELDCAT . 542 GW_FIELDCAT-FIELDNAME = 'LSMENG' . 543 GW_FIELDCAT-SCRTEXT_L = '销售订单数量' . 544 APPEND GW_FIELDCAT TO GT_FIELDCAT . 545 546 GS_LAYOUT-GRID_TITLE = 'SD分销渠道销售订单数据' . 547 "GS_LAYOUT-CWIDTH_OPT = 'X' . 548 GS_LAYOUT-ZEBRA = 'X' . 549 550 CALL METHOD WA_ALVG->SET_TABLE_FOR_FIRST_DISPLAY 551 EXPORTING 552 IS_LAYOUT = GS_LAYOUT 553 CHANGING 554 IT_FIELDCATALOG = GT_FIELDCAT 555 IT_OUTTAB = IT_VBAP. 556 557 ENDFORM. " FRM_SET_ALVTB
正文到此结束
热门推荐
相关文章
近期评论
-
666
-
文章和留言都翻到11页了 没有OOM
-
-
朋友，翻页到11页，及以后，会出现OOM，无法访问
-
-
-
-
版本号是多少，你可以下载哪个代码仓库，jdk选1.8 直接跑就行
-
-
Loading...
![[HBLOG]公众号](https://www.liuhaihua.cn/img/qrcode_gzh.jpg)
