SAPBADI使用增强清单(精)

1、 使用BADI的增强清单 .......................................................................................... 2 1.1. ZMB_MIGO_BADI ......................................................................................... 2 1.1.1. Method: PUBLISH_MATERIAL_ITEM................................................... 2 1.2. ZMB_RESERVATION_BADI ........................................................................... 6 1.2.1.

1.3. Method: DATA_CHECK ........................................................................ 6 ZME_HOLD_PO ............................................................................................. 9 1.3.1. Method: IS_ALLOWED......................................................................... 9

1.4. ZME_PROCESS_PO_CUST ........................................................................... 10 1.4.1.

1.5. Method: PROCESS_ITEM ................................................................... 10 ZME_PROCESS_REQ_CUST ........................................................................ 14 1.5.1. Method: OPEN.................................................................................... 14 1.5.2. Method: PROCESS_ITEM ....................................... 错误！未定义书签。 1.5.3. Method: PROCESS_ACCOUNT ............................... 错误！未定义书签。 ZME_REQ_POSTED ..................................................................................... 27 1.6.1. Method: POSTED................................................................................ 27 ZMRM_HEADER_CHECK ............................................................................ 29 1.7.1. Method: HEADERDATA_CHECK ........................................................ 29 使用USER_EXIT的增强清单........................................................................... 33 Project:ZMM1 外部采购文件审批的增强处理项目 ......................................... 33 1.6. 1.7. 2、 2.1.

2.1.1. User Exit: M06E0004........................................................................... 33

2.2. Project:ZMM2 采购申请审批的增强处理项目 ................................................ 41 2.1.2. User Exit: M06B0002 .......................................................................... 41 2.3. Project:ZMM3 ............................................................................................... 41 2.1.3. User Exit: LMEKO001 ......................................................................... 43 2.1.4. User Exit: LMEKO002 ......................................................................... 44

2.4. Project: ZMM5 采购文件建立的增强 ............................................................. 44 2.1.5. 2.5.

User Exit: MM06E005在采购凭证中的客户字段 .................................. 44 Project: ZMM6 .............................................................................................. 51 2.1.6. User Exit: MBCF0002物料凭证项目中的段文本 .................................. 51 1、 使用BADI的增强清单

1.1. ZMB_MIGO_BADI

1.1.1. Method: PUBLISH_MATERIAL_ITEM

method IF_EX_MB_MIGO_BADI~PUBLISH_MATERIAL_ITEM .

data abc(40) value '(SAPLMIGO)GODYNPRO-DETAIL_TAKE'. data: text type string, ZGOITEM TYPE GOITEM. DATA zME TYPE C. data: ctr(70).

data: p_line type table of TLINE initial size 0.

DATA P_INLINES type table of TLINE initial size 0 . field-symbols: type any. assign (abc) to .

MOVE LS_GOITEM TO ZGOITEM.

*---------------------------------------------------------------* *检查物料的ABC状态 *----------------------------------------------------------------* IF ZGOITEM-EKORG = '2000' and ZGOITEM-MATNR is not initial and ( ZGOITEM-BWART = '103' or ZGOITEM-BWART = '101' ) AND = 'X'. CALL FUNCTION 'Z_MIGO_DIS_MAT' EXPORTING

zmatnr = ZGOITEM-MATNR zwerks = ZGOITEM-werks

* CHANGING * DT =

EXCEPTIONS CANCELLED = 1 NO_VALUES = 2 OTHERS = 3 .

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. endif.

*---------------------------------------------------------------* *对设备备件103收货后是否进行检验结果纪录进行检查

*---------------------------------------------------------------* IF zgoitem-bwart = '105' AND zgoitem-ekorg = '2000'

AND zgoitem-xdetermination = ' '. \库存确定选择才进行判断

IF zgoitem-webre = ' '.

MESSAGE w000(zz) WITH '非基于收货的发票校验情况下，不确定是否已有检验结果'. ELSE.

* concatenate ZGOITEM-LFBNR ZGOITEM-LFBJA ZGOITEM-LFPOS into ctr. * CALL FUNCTION 'ZTEXT_READ_CHECK' * EXPORTING * ID = 'F00'

* INLINE_COUNT = '1' * LANGUAGE = '1' * NAME = CTR * OBJECT = 'MSEG' ** LOCAL_CAT = ' ' * IMPORTING ** HEADER = * ME = zME * TABLES

* INLINES = P_INLINES * LINES = P_LINE

** EXCEPTIONS ** ID = 1

** LANGUAGE = 2 ** NAME = 3

** NOT_FOUND = 4 ** OBJECT = 5

** REFERENCE_CHECK = 6 ** OTHERS = 7 * .

* IF SY-SUBRC <> 0.

** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO ** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. * ENDIF. * if zme = 1.

* message I024(zz) with zGOITEM-LFBNR ZGOITEM-LFBJA ZGOITEM-LFPOS. * LEAVE TO TRANSACTION 'MIGO'.