mm01/mm02 出口
MGA00001
Include ZXMG0U02
简单实现一下功能：
如果用tcode mm02 改动了物料主数据 就把物料号丢在一个自定义表里。
*&---------------------------------------------------------------------*
*& Include ZXMG0U02
*&---------------------------------------------------------------------*
DATA ZMMD0361_MM01_wa TYPE ZMMD0361_MM01.
check sy-tcode eq 'MM02'.
IF SY-UNAME ='*****'.
ZMMD0361_MM01_wa-matnr = WMARA-matnr .
ZMMD0361_MM01_wa-zdat = sy-DATUM .
ZMMD0361_MM01_wa-ztim = sy-UZEIT.
ZMMD0361_MM01_wa-zuser = SY-UNAME.
ZMMD0361_MM01_wa-tcode = sy-tcode.
INSERT INTO ZMMD0361_MM01 VALUES ZMMD0361_MM01_wa.
clear ZMMD0361_MM01_wa .
ENDIF.
Include ZXMG0U02
简单实现一下功能：
如果用tcode mm02 改动了物料主数据 就把物料号丢在一个自定义表里。
*&---------------------------------------------------------------------*
*& Include ZXMG0U02
*&---------------------------------------------------------------------*
DATA ZMMD0361_MM01_wa TYPE ZMMD0361_MM01.
check sy-tcode eq 'MM02'.
IF SY-UNAME ='*****'.
ZMMD0361_MM01_wa-matnr = WMARA-matnr .
ZMMD0361_MM01_wa-zdat = sy-DATUM .
ZMMD0361_MM01_wa-ztim = sy-UZEIT.
ZMMD0361_MM01_wa-zuser = SY-UNAME.
ZMMD0361_MM01_wa-tcode = sy-tcode.
INSERT INTO ZMMD0361_MM01 VALUES ZMMD0361_MM01_wa.
clear ZMMD0361_MM01_wa .
ENDIF.
转载请注明：来自一流的窝
本文地址：http://wendaoliu.cn/2009/07/31/646465.html
0 条评论
我要留言