很多系统自带的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.