(转)实战物料主数据(MM01/MM02/MM03)屏幕增强 .
无意中看到的，将来没准用得上，转一下。
原文地址：http://blog.chinaunix.net/u2/66669/showart_1273879.html
1. 用事务代码OMT3C,(或者用SPRO进入,后勤-常规->物料主记录->配置物料主记录->创建定制子屏幕的程序)创建函数功能组,如ZMGD1,然后保存.
2. 用事务代码SE80进入,选择函数组ZMGD1,在屏幕0001里面建立自己的布局.
3. 书写屏幕的PBO和PAI.
PROCESS BEFORE OUTPUT.
* MM01时限制输入状态
MODULE disable_fields.
MODULE disable_fields.
* MM02/MM03时把数据从自定义表里取出来,赋值给屏幕相应的字段
MODULE get_data.
MODULE get_data.
PROCESS AFTER INPUT.
* 在这里把数据导出到MEMORY
MODULE assign_data.
* 在这里把数据导出到MEMORY
MODULE assign_data.
MODULE disable_fields.
IF SY-TCODE = 'MM03'.
LOOP AT SCREEN.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
LOOP AT SCREEN.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE GET_DATA OUTPUT.
TABLES: ZVPM_SAP_ENH.
TABLES: ZVPM_SAP_ENH.
IF SY-TCODE = 'MM02' OR SY-TCODE = 'MM03'.
GET PARAMETER ID 'MAT' FIELD W_MATNR.
SELECT SINGLE ZCZBM FROM ZVPM_SAP_ENH
INTO ZVPM_SAP_ENH-ZCZBM
WHERE MATNR = W_MATNR.
GET PARAMETER ID 'MAT' FIELD W_MATNR.
SELECT SINGLE ZCZBM FROM ZVPM_SAP_ENH
INTO ZVPM_SAP_ENH-ZCZBM
WHERE MATNR = W_MATNR.
ENDIF.
ENDMODULE.
ENDMODULE.
MODULE ASSIGN_DATA INPUT.
EXPORT ZVPM_SAP_ENH TO MEMORY ID 'ZVPM_SAP_ENH'.
EXPORT ZVPM_SAP_ENH TO MEMORY ID 'ZVPM_SAP_ENH'.
ENDMODULE.
4. 用事务代码OMT3B,(或者用SPRO进入,后勤-常规->物料主记录->配置物料主记录->定义每个屏幕序列的数据屏幕的结构)屏幕顺序中,选择右边的21,然后点数据屏幕,然后选中右边的07屏幕,再点子屏幕.然后在右边的TC中调整SAPLZMGD1/0001在07屏幕的顺序.
5.建立一个项目,组件为MGA00001,在出口EXIT_SAPLMGMU_001中书写相关的代码,然后激活.
TABLES: ZVPM_SAP_ENH.
IF SY-UCOMM = 'BU' OR SY-UCOMM = 'YES'.
IMPORT ZVPM_SAP_ENH FROM MEMORY ID 'ZVPM_SAP_ENH'.
ZVPM_SAP_ENH-MATNR = CMARA-MATNR.
MODIFY ZVPM_SAP_ENH FROM ZVPM_SAP_ENH.
ENDIF.
IMPORT ZVPM_SAP_ENH FROM MEMORY ID 'ZVPM_SAP_ENH'.
ZVPM_SAP_ENH-MATNR = CMARA-MATNR.
MODIFY ZVPM_SAP_ENH FROM ZVPM_SAP_ENH.
ENDIF.
最后利用事务代码MM01/MM02/MM03测试一下，看看效果如何.
