sap增强-mm-物料主数据

《sap增强-mm-物料主数据》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1、物料主数据增强（MM01/MM02/MM03）目的：SAP标准字段不够使用，利用屏幕增强增加字段，以便用户输入内容并保存至自定义表中。1.1SE11创建如下表(我们暂且称之谓ADD-ON表)如图1.1-1：图1.1-11.2创建定制子屏幕的程序Tcode:spro,后勤-常规->物料主数据->配置物料主记录->创建定制子屏幕的程序进去之后填写一个新的函数组，如图1.2-1：图1.2-1保存后生成函数组Z_FG2，另外会生成程序（SAPL+函数组名）SAPLZ_FG2，该程序名会在分配屏幕号的时候

2、使用。1.3SE80定义函数组se80->functiongroup->Z_FG2,我们会看到已有了两个屏幕和两个include.如图1.3-1：图1.3-1双击屏幕0001，添加三个Module，编辑如图1.3-2：图1.3-2moduledisable_field:通过判断TCODE，如果是MM03，则自定义字段为只读，moduleget_data:读取ADD-ON表中相应物料的数据，在自定义屏幕中显示出来。moduleassign_data:将自定义屏幕中各字段的值传入内存ID中，以便保存时调

3、用。各模块代码如下(新建这几个module时不用再创建新的include,放到LZ_FG2TOP中即可)：*&-------------------------------------------------------------------*&      Module  DISABLE_FIELD  OUTPUT*&-------------------------------------------------------------------*       text*-----------

4、---------------------------------------------------------MODULE DISABLE_FIELD OUTPUT.  IF SY-TCODE = 'MM03'.    LOOP AT SCREEN.      SCREEN-INPUT = '0'.      MODIFY SCREEN.    ENDLOOP.  ENDIF.ENDMODULE.                 " DISABLE_FIELD  OUTPUT*&--------

5、-----------------------------------------------------------*&      Module  GET_DATA  OUTPUT*&-------------------------------------------------------------------*       text*--------------------------------------------------------------------MODULE GET_

6、DATA OUTPUT.  TABLES:ZPARTAPPEND.  DATA: F1 LIKE ZPARTAPPEND-F1,        F2 LIKE ZPARTAPPEND-F2,        W_MATNR TYPE MATNR.  IF SY-TCODE = 'MM02' OR SY-TCODE = 'MM03'.    GET PARAMETER ID 'MAT' FIELD W_MATNR.    SELECT SINGLE * FROM ZPARTAPPEND WHERE MA

7、TNR = W_MATNR.    F1 = ZPARTAPPEND-F1.    F2 = ZPARTAPPEND-F2.  ENDIF.ENDMODULE.                 " GET_DATA  OUTPUT*&-------------------------------------------------------------------*&      Module  ASSIGN_DATA  INPUT*&--------------------------------

8、-----------------------------------*       text*--------------------------------------------------------------------MODULE ASSIGN_DATA INPUT.  ZPARTAPPEND-F1 = F1.  ZPARTAPPEND-F2 = F2.  EXPORT ZPARTAPPEND TO MEMORY ID 'ZPARTAPPEND'.END