SAP 采购订单税码增强检查

原文地址：http://fengan321.blog.163.com/blog/static/61762371201212911542414/

1、SE18查看ME_PROCESS_PO_CUST相关信息

2、SE19创建ME_PROCESS_PO_CUST的BADI实现类

注意类名称定义是按照以下规则：

ZCL_IM_ + BADI

其中CL表示CLASS类的意思，

IM表示Implement实现的意思；

3、SE24实现ZCL_IM_ME_PROCESS_PO_CUST

4、实现PROCESS_ITEM代码：

METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM.

*&==========================================================

*& 对采购订单行项目增加是否有选择税码检查

*& Added by liangqh 2010-07-28

*&==========================================================

INCLUDE MM_MESSAGES_MAC.

DATA:

L_ITEM TYPE MEPOITEM. "采购订单行项目

*--> 取得采购订单行项目数据

L_ITEM = IM_ITEM->GET_DATA( ).

*--> 判断行项目税率是否为空

IF L_ITEM-MWSKZ = '' OR L_ITEM-MWSKZ IS INITIAL.

MMPUR_MESSAGE 'E' 'ZMM01' '002' L_ITEM-EBELN L_ITEM-EBELP '' ''.

ENDIF.

ENDMETHOD.

METHOD IF_EX_ME_PROCESS_PO_CUST~CHECK.

*&==========================================================

*& 对采购订单行项目增加是否有选择税码检查

*& Added by liangqh 2010-07-28

*&==========================================================

INCLUDE MM_MESSAGES_MAC.

DATA:

OBJ_ITEMS TYPE PURCHASE_ORDER_ITEMS,

OBJ_ITEM TYPE PURCHASE_ORDER_ITEM,

LW_HEADER TYPE MEPOHEADER,

LW_ITEM TYPE MEPOITEM.

*-->取得订单抬头信息及明细数据

LW_HEADER = IM_HEADER->GET_DATA( ).

OBJ_ITEMS = IM_HEADER->GET_ITEMS( ).

LOOP AT OBJ_ITEMS INTO OBJ_ITEM.

LW_ITEM = OBJ_ITEM-ITEM->GET_DATA( ).

*--> 判断行项目税率是否为空

IF LW_ITEM-MWSKZ = '' OR LW_ITEM-MWSKZ IS INITIAL.

MMPUR_MESSAGE 'E' 'ZMM01' '002' LW_ITEM-EBELN LW_ITEM-EBELP '' ''.

ENDIF.

ENDLOOP.

ENDMETHOD.

method IF_EX_ME_PROCESS_PO_CUST~POST.

*&==========================================================

*& 对采购订单行项目增加是否有选择税码检查

*& Added by liangqh 2010-07-28

*&==========================================================

INCLUDE MM_MESSAGES_MAC.

DATA:

OBJ_ITEMS TYPE PURCHASE_ORDER_ITEMS,

OBJ_ITEM TYPE PURCHASE_ORDER_ITEM,

LW_HEADER TYPE MEPOHEADER,

LW_ITEM TYPE MEPOITEM.

*-->取得订单抬头信息及明细数据

LW_HEADER = IM_HEADER->GET_DATA( ).

OBJ_ITEMS = IM_HEADER->GET_ITEMS( ).

LOOP AT OBJ_ITEMS INTO OBJ_ITEM.

LW_ITEM = OBJ_ITEM-ITEM->GET_DATA( ).

*--> 判断行项目税率是否为空

IF LW_ITEM-MWSKZ = '' OR LW_ITEM-MWSKZ IS INITIAL.

MMPUR_MESSAGE 'E' 'ZMM01' '002' LW_ITEM-EBELN LW_ITEM-EBELP '' ''.

ENDIF.

ENDLOOP.

endmethod.

*********************************************************************************
Add by Andrew :
在采购订单增强中报消息信息的方法：
１.
INCLUDE MM_MESSAGES_MAC.

MMPUR_MESSAGE 'W' 'ZMM01' '002' ls_mepoitem-EBEln ls_mepoitem-EBELP ls_mepoitem-reslo '' .
２.
　　sy-msgid = 'ZMM01'.
sy-msgty = 'W'.

sy-msgno = 003.

message id sy-msgid type sy-msgty number sy-msgno WITH ls_mepoitem-EBEln ls_mepoitem-EBELP ls_mepoitem-reslo .

set extended check off.

call method cl_message_mm=>create

EXPORTING

im_msgid = sy-msgid

im_msgty = sy-msgty

im_msgno = sy-msgno

im_msgv1 = sy-msgv1

im_msgv2 = sy-msgv2

im_msgv3 = sy-msgv3

im_msgv4 = sy-msgv4

im_force_collect = mmpur_yes

EXCEPTIONS

failure = 01

dialog = 02.

set extended check off.
这两个方法实现方法是一样的，只是第一种是SAP　公司已经实现了，包含在include　MM_MESSAGES_MAC中，所以直接引用。
消息类：SE91
建立消息类：ZMM01
Message : 002 Item &1 &2 The default issuing storage location is &3.
Message : 003 Item &1 &2 The default issuing storage location is &3.