采购订单BADI增强-ME_PROCESS_PO_CUST

一 . 用户需求

在PT项目中，用户实际业务需求如下：

采购订单抬头中通信页签中的销售员（VERKF）字段文本更改为OA合同号（参考文章：修改SAP标准字段文本描述–CMOD增强）；

当采购订单的公司代码是8200时，该字段输入OA合同号，且是必输项，不能为空值，否则弹出报错消息，采购订单不能保存。

当采购订单行项目库存地点出现在自定义表ZMM_SET_INSMK时，收货库存类型设置为质检库存。

二 . 采购订单BADI增强ME_PROCESS_PO_CUST

为满足用户第二个需求，使用采购订单BADI增强ME_PROCESS_PO_CUST，在该增强的CHECK函数中写入检查逻辑，如不满足以上第二项业务需求逻辑，系统弹出错误消息，采购订单不允许保存。

采购订单BADI增强ME_PROCESS_PO_CUST 如下：



代码示例如下：

METHOD if_ex_me_process_po_cust~check.
DATA: lds_header TYPE mepoheader.

DO 1 TIMES.
CALL FUNCTION 'ZENHANCEMNET_CHECK'
EXPORTING
progname    = 'ZMM007'
form        = 'ZME_PROCESS_PO_CUST->CHECK'
serno       = 1
EXCEPTIONS
no_activity =
4000
1
OTHERS      = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.

CALL METHOD im_header->get_data
RECEIVING
re_data = lds_header.
IF lds_header-bukrs = '8000' OR lds_header-bukrs = '8200'.
IF lds_header-verkf IS INITIAL.
MESSAGE '请输入OA合同号! (抬头信息中的"通信"标签页中)' TYPE 'E'.  ''弹出错误信息
ch_failed = 0.
ENDIF.
ENDIF.

ENDMETHOD.

2 . 当采购订单行项目库存地点出现在自定义表ZMM_SET_INSMK（质检库存类型的库存地点设定表）时，收货库存类型设置为质检库存。

解决方案：在采购订单BADI增强ME_PROCESS_PO_CUST 中的PROCESS_ITEM方法写入以下逻辑代码：

METHOD if_ex_me_process_po_cust~process_item.

DATA: lds_item  TYPE mepoitem,
ldf_mandt TYPE mandt.

* 设置库存类型! 'X'-质检库  S-
lds_item = im_item->get_data( ).
IF lds_item-werks IS NOT INITIAL AND lds_item-lgort IS NOT INITIAL.
SELECT SINGLE mandt
INTO ldf_mandt
FROM zmm_set_insmk
WHERE werks = lds_item-werks
AND lgort = lds_item-lgort.
IF sy-subrc = 0.
lds_item-insmk = 'X'.
im_item->set_data( lds_item ).
else.
lds_item-insmk = ''.
im_item->set_data( lds_item ).
ENDIF.
ENDIF.

ENDMETHOD.

参考文章：

http://blog.csdn.net/champaignwolf/article/details/45968871

ME21N,ME22N,ME23N之BADI增强ME_PROCESS_PO_CUST

http://blog.csdn.net/jy00873757/article/details/8705216

ME21N/ME22N/ME23N屏幕增强BADI ME_GUI_PO_CUST