(转)实战物料主数据(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.

* MM02/MM03时把数据从自定义表里取出来,赋值给屏幕相应的字段
  MODULE get_data.

 

PROCESS AFTER INPUT.
* 在这里把数据导出到MEMORY
  MODULE assign_data.

 

MODULE disable_fields.

  IF SY-TCODE = 'MM03'.
    LOOP AT SCREEN.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

ENDMODULE.

 

MODULE GET_DATA OUTPUT.
  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.

  ENDIF.
ENDMODULE.    

 

MODULE ASSIGN_DATA INPUT.
  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.

 

最后利用事务代码MM01/MM02/MM03测试一下，看看效果如何.