SAP 采购申请的增强(对内容的处理,比如批次)
有些SAP的采购申请的增强涉及对采购申请的数据的额外处理
如果在ME_PROCESS_REQ_CUST的process_item里面处理
会导致程序死循环,循环触发。因此,需要寻找另外的地方进行采购申请ME51N、ME52N做增强处理。找到一个函数的增强点,
ME_UPDATE_REQUISITION,可以对数据进行额外的处理
FUNCTION me_update_requisition.
“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”" " " "\SE:(1) Function Module ME_UPDATE_REQUISITION, Start A
∗ * ∗-Start: (1)--------------------------------------------------------------------------------- ∗ * ∗
ENHANCEMENT 1 ZME52N_UPDATE. "active version
DATA: LV_MATNR TYPE MARA-MATNR ,
LV_MPN TYPE FLAG ,
lv_XCHPF TYPE MARA-XCHPF .
LOOP AT XEBAN.
CLEAR:LV_MATNR , LV_MPN , lv_XCHPF .
LV_MATNR = XEBAN-EMATN .
CALL FUNCTION ‘ZCHECK_IS_MPN’
EXPORTING
iv_material = LV_MATNR
IMPORTING
EV_IS_MPN = LV_MPN
-
EV_MATERIAL_INT =
-
EV_MP_PROFILE =
- EXCEPTIONS
-
NOT_FOUND = 1
-
IF sy-subrc <> 0.OTHERS = 2.
- Implement suitable error handling here
ENDIF.
IF LV_MPN = ‘X’.
SELECT SINGLE XCHPF
INTO lv_XCHPF
FROM MARA
WHERE MATNR = XEBAN-MATNR .
IF lv_XCHPF = ‘X’.
XEBAN-CHARG = XEBAN-MFRNR .
SHIFT XEBAN-CHARG LEFT DELETING LEADING ‘0’ .
MODIFY XEBAN .
ENDIF.
ENDIF.
ENDLOOP.
ENDENHANCEMENT.
这是一个自动修改采购申请的批次的数据的代码,仅供参考。