大家新年好，这个新年格外的不一样。在家远程办公的我忙着项目上的事，加上过年就一直忘记写博客了。
今天做了一个物料主数据的增强功能
先看下效果图吧：MM02的基础数据2页签下面的增强table control
1. 创建自定义表 ZMMT001
用于存放物料主数据增强页面的数据
2. SPRO--后勤-常规--物料主数据 -- 配置物料主记录 -- 创建定制子屏幕的程序
我们在SE80中看到所创建的函数组
LZMM_FG_001TOP的定义
1 DATA:ok_code LIKE sy-ucomm. 2 TYPES:BEGIN OF ty_zmmt001, 3 sel TYPE checkbox, 4 matnr TYPE zmmt001-matnr, 5 id TYPE zmmt001-id, 6 f1 TYPE zmmt001-f1, 7 f2 TYPE zmmt001-f2, 8 f3 TYPE zmmt001-f3, 9 END OF ty_zmmt001. 10 11 DATA gt_zmmt001 TYPE TABLE OF ty_zmmt001. 12 DATA gs_zmmt001 TYPE ty_zmmt001. 13 14 DATA GV_GET_MATNR_FLAG TYPE C."
3. 在屏幕0001上創建需要的字段
双击0001屏幕，点击布局
我们画一个table control ，同時增加代碼
下一步选择除了SEL其他字段，然後一直下一步
Table control 创建完毕如下：
0001畫面代碼如下
1 PROCESS BEFORE OUTPUT. 2 *当TCODE为MM02 MM03时需要获取数据 3 MODULE get_data. 4 *&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC_MM001' 5 MODULE tc_mm001_change_tc_attr. 6 *&SPWIZARD: MODULE TC_MM001_CHANGE_COL_ATTR. 7 LOOP AT gt_zmmt001 8 INTO gs_zmmt001 9 WITH CONTROL tc_mm001 10 CURSOR tc_mm001-current_line. 11 MODULE tc_mm001_get_lines. 12 *&SPWIZARD: MODULE TC_MM001_CHANGE_FIELD_ATTR 13 ENDLOOP. 14 15 PROCESS AFTER INPUT. 16 *&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TC_MM001' 17 LOOP AT G_TC_MM001_ITAB. 18 CHAIN. 19 FIELD ZMMT001-MANTR. 20 FIELD ZMMT001-ID. 21 FIELD ZMMT001-F1. 22 FIELD ZMMT001-F2. 23 FIELD ZMMT001-F3. 24 MODULE TC_MM001_MODIFY ON CHAIN-REQUEST. 25 ENDCHAIN. 26 ENDLOOP. 27 "当触发子屏幕按钮或者滚轮时，不触发回车按钮及其他按钮 28 MODULE ubildflag_x_command. 29 MODULE TC_MM001_USER_COMMAND. 30 *&SPWIZARD: MODULE TC_MM001_CHANGE_TC_ATTR. 31 *&SPWIZARD: MODULE TC_MM001_CHANGE_COL_ATTR. 32 MODULE ASSIGN_DATA.
1 *&---------------------------------------------------------------------* 2 *& Module GET_DATA OUTPUT 3 *&---------------------------------------------------------------------* 4 *& 5 *&---------------------------------------------------------------------* 6 MODULE get_data OUTPUT. 7 8 GET PARAMETER ID 'MAT' FIELD DATA(gv_matnr). 9 10 IF ( sy-tcode = 'MM02' OR sy-tcode = 'MM03' ) AND gv_get_matnr_flag IS INITIAL. 11 SELECT * FROM zmmt001 12 INTO CORRESPONDING FIELDS OF TABLE gt_zmmt001 13 WHERE matnr = gv_matnr. 14 gv_get_matnr_flag = 'X'. 15 ENDIF. 16 ENDMODULE.
1 *&SPWIZARD: OUTPUT MODULE FOR TC 'TC_MM001'. DO NOT CHANGE THIS LINE! 2 *&SPWIZARD: GET LINES OF TABLECONTROL 3 MODULE tc_mm001_get_lines OUTPUT. 4 g_tc_mm001_lines = sy-loopc. 5 "控制不同TCODE下 字段单元格的是否可输入 6 LOOP AT SCREEN. 7 IF screen-name CS 'GS_ZMMT001-F'. 8 CASE sy-tcode. 9 WHEN 'MM01' OR 'MM02'. 10 screen-input = '1'. 11 WHEN 'MM03'. 12 screen-input = '0'. 13 WHEN OTHERS. 14 ENDCASE. 15 ENDIF. 16 17 IF screen-name = 'GS_ZMMT001-MATNR' OR screen-name = 'GS_ZMMT001-ID'. 18 screen-input = '0'. 19 ENDIF. 20 MODIFY SCREEN. 21 ENDLOOP. 22 ENDMODULE.
1 *&---------------------------------------------------------------------* 2 *& Module UBILDFLAG_X_COMMAND INPUT 3 *&---------------------------------------------------------------------* 4 * text 5 *----------------------------------------------------------------------* 6 MODULE ubildflag_x_command INPUT. 7 DATA LV_FIELD TYPE FIELDNAME. 8 9 GET CURSOR FIELD LV_FIELD. 10 "控制当对TABLE CONTROL 中操作时，不触发回车保存/回车下一个页签/按键报错 11 IF sy-ucomm = 'TC_MM001_INSR' 12 OR sy-ucomm = 'TC_MM001_DELE'OR ( SY-UCOMM = 'ENTR' OR SY-UCOMM = SPACE AND LV_FIELD CS 'GS_ZMMT001'). 13 FIELD-SYMBOLS <fs_bildflag> TYPE kzref. 14 ASSIGN ('(SAPLMGMI)UBILDFLAG') TO <fs_bildflag>. 15 IF <fs_bildflag> IS ASSIGNED. 16 <fs_bildflag> = 'X'. 17 ENDIF. 18 ENDIF. 19 20 ENDMODULE. 21 *&---------------------------------------------------------------------* 22 *& Module ASSIGN_DATA INPUT 23 *&---------------------------------------------------------------------* 24 * text 25 *----------------------------------------------------------------------* 26 MODULE assign_data INPUT. 27 DATA lt_zmmt001 TYPE TABLE OF zmmt001. 28 29 LOOP AT gt_zmmt001 ASSIGNING FIELD-SYMBOL(<fs_1>). 30 <fs_1>-matnr = gv_matnr. 31 <fs_1>-id = sy-tabix. 32 ENDLOOP. 33 34 MOVE-CORRESPONDING gt_zmmt001 TO lt_zmmt001. 35 36 EXPORT zmmt001 = lt_zmmt001 TO MEMORY ID 'MERY_ZMMT001'. 37 ENDMODULE.
4. CMOD創建增强
点击增强分配
加入增强:MGA00001（仅工业版本的物料主数据，零售不在这）
点击组件修改出口
EXIT_SAPLMGMU_001 双击ZXMG0U02 回车创建包含文件
1 *&---------------------------------------------------------------------* 2 *& 包含 ZXMG0U02 3 *&---------------------------------------------------------------------* 4 DATA lt_zmmt001 TYPE TABLE OF zmmt001. 5 IF sy-ucomm = 'BU' OR sy-ucomm = 'YES'. 6 IMPORT zmmt001 = lt_zmmt001 FROM MEMORY ID 'MERY_ZMMT001'. 7 DELETE FROM zmmt001 WHERE matnr = wmara-matnr. 8 9 CHECK lt_zmmt001[] IS NOT INITIAL. 10 11 MODIFY zmmt001 FROM TABLE lt_zmmt001[]. 12 13 COMMIT WORK. 14 15 ENDIF.
5. spro->后勤-常规->物料主数据->配置物料主记录->定义每个屏幕序列的数据屏幕的结构
选择屏幕为0001的行
将SAPLMGD1改为我们的函数组: SAPLZMM_FG_001
保存，设置完毕.
MM03效果
6. 问题解决
（1） 当你在table control中输入数据时，回车会触发下一个页面或者保存
（2） 当你点击客制子屏幕按钮时，会报错
(TC_MM001_INSR, TC_MM001_DELE)
解决方法：在TC_MM001_USER_COMMAND INPUT执行之前增加代码
注意:这里有一个参数为UBILDFLAG 若这个值为空，则程序会去T133E,T133D表中搜索你点击的按钮，
或者回车时会造成页签跳转/直接保存。
1 *&---------------------------------------------------------------------* 2 *& Module UBILDFLAG_X_COMMAND INPUT 3 *&---------------------------------------------------------------------* 4 * text 5 *----------------------------------------------------------------------* 6 MODULE ubildflag_x_command INPUT. 7 DATA LV_FIELD TYPE FIELDNAME. 8 9 GET CURSOR FIELD LV_FIELD. 10 "控制当对TABLE CONTROL 中操作时，不触发回车保存/回车下一个页签/按键报错 11 IF sy-ucomm = 'TC_MM001_INSR' 12 OR sy-ucomm = 'TC_MM001_DELE'OR ( SY-UCOMM = 'ENTR' OR SY-UCOMM = SPACE AND LV_FIELD CS 'GS_ZMMT001'). 13 FIELD-SYMBOLS <fs_bildflag> TYPE kzref. 14 ASSIGN ('(SAPLMGMI)UBILDFLAG') TO <fs_bildflag>. 15 IF <fs_bildflag> IS ASSIGNED. 16 <fs_bildflag> = 'X'. 17 ENDIF. 18 ENDIF. 19 ENDMODULE.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TC_MM001'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GET LINES OF TABLECONTROL
MODULE tc_mm001_get_lines OUTPUT.
g_tc_mm001_lines = sy-loopc.
"控制不同TCODE下 字段单元格的是否可输入
LOOP AT SCREEN.
IF screen-name CS 'GS_ZMMT001-F'.
CASE sy-tcode.
WHEN 'MM01' OR 'MM02'.
screen-input = '1'.
WHEN 'MM03'.
screen-input = '0'.
WHEN OTHERS.
ENDCASE.
ENDIF.
IF screen-name = 'GS_ZMMT001-MATNR' OR screen-name = 'GS_ZMMT001-ID'.