1. SE11 创建自定义表 ZPARTAPPEND
2. SPRO--后勤-常规--物料主数据 -- 配置物料主记录 -- 创建定制子屏幕的程序
3. SE80 -- 输入函数组 ZMGD1
在屏幕 0001 里增加 三个 函数:
代码如下:
*&---------------------------------------------------------------------*
*& Module DISABLE_FIELD OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE DISABLE_FIELD OUTPUT.
IF SY-TCODE = ‘MM03‘.
LOOP AT SCREEN.
SCREEN-INPUT = ‘0‘.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE. " DISABLE_FIELD OUTPUT
*&---------------------------------------------------------------------*
*& Module GET_DATA OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE GET_DATA OUTPUT.
TABLES:ZPARTAPPEND.
DATA: W_MATNR TYPE MATNR.
IF SY-TCODE = ‘MM02‘ OR SY-TCODE = ‘MM03‘.
GET PARAMETER ID ‘MAT‘ FIELD W_MATNR.
SELECT SINGLE * FROM ZPARTAPPEND WHERE MATNR = W_MATNR.
ENDIF.
ENDMODULE. " GET_DATA OUTPUT
*&---------------------------------------------------------------------*
*& Module ASSIGN_DATA INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE ASSIGN_DATA INPUT.
EXPORT ZPARTAPPEND TO MEMORY ID ‘ZPARTAPPEND‘.
ENDMODULE. " ASSIGN_DATA INPUT
自定义屏幕截图如下,只使用了 ZPARTAPPEND 里的2个字段,其中字段名为: ZPARTAPPEND-F1 , ZPARTAPPEND-F2
4. CMOD 增强,使用出口 MGA00001
增强代码如下:
*&---------------------------------------------------------------------*
*& 包括 ZXMG0U02
*&---------------------------------------------------------------------*
TABLES:ZPARTAPPEND.
IF SY-UCOMM = ‘BU‘ OR SY-UCOMM = ‘YES‘.
IMPORT ZPARTAPPEND FROM MEMORY ID ‘ZPARTAPPEND‘.
ZPARTAPPEND-MATNR = CMARA-MATNR.
MODIFY ZPARTAPPEND FROM ZPARTAPPEND.
ENDIF.
5. SPRO--后勤-常规--物料主数据 -- 配置物料主记录 -- 定义每个屏幕序列的数据屏幕的结构
弹出界面后选中“21” 行 ,然后双击左边窗口的“数据屏幕”:
选中上面的“21” -- “08” ,双击“子屏幕”
然后将“21” -- “08” -- “8” 的程序名改成:“SAPLZMGD1“ , 因为ZMGD1是我们之前创建的函数组。
6. 最后测试物料主数据视图
新增或修改物料时,这两字段可以保存到自定义创建的表ZPARTAPPEND 里 ,MM03 又可以显示出来。
到此完毕。
原文地址:https://www.cnblogs.com/jimi520/p/12103336.html