一些MM主数据重写F4的函数

很多系统自带的F4特别麻烦，特别是工厂、物料等主数据，下面是一些重写F4的系统函数，仅供参考

RMMW1_ATTYP_HELP
RMMW1_EKORG_LIEFNR_HELP
RMMW1_LGORT_HELP
RMMW1_MATKL_HELP
RMMW1_VARNR_HELP
RMMW1_VKORG_HELP
RMMW1_VRKME_HELP
RMMW1_WERKS_HELP

例如：

 1 FORM SUB_SITE_HELP1  USING  P_POS TYPE C.
 2   DATA: L_WERKS LIKE T001W-WERKS.
 3 
 4   CALL FUNCTION 'RMMW1_WERKS_HELP'
 5     EXPORTING
 6       KZ_ALL      = 'X'
 7       KZ_BEW_WERK = SPACE
 8       MATNR       = SPACE
 9       DISPLAY     = SPACE
10       KZ_LISTUNG  = 'X'
11     CHANGING
12       E_WERKS     = L_WERKS
13     EXCEPTIONS
14       OTHERS      = 1.
15   IF SY-SUBRC = 0.
16 
17     IF P_POS = 'L'.
18       S_STORE-LOW = L_WERKS.
19     ELSEIF P_POS = 'H'.
20       S_STORE-HIGH = L_WERKS.
21     ENDIF.
22   ENDIF.
23 
24 ENDFORM.

 

posted @ 2014-02-12 15:12  子非鱼886  阅读(191)  评论(0)    收藏  举报