SAP采购订单税码增强检查

2014年09月05日 ⁄ 综合 ⁄ 共 3030字 ⁄ 字号小中大 ⁄ 评论关闭

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.

*&==========================================================
*& 对采购订单行项目增加是否有选择税码检查ising模型
*& Added by liangqh 2010-07-28
*&==========================================================

INCLUDE MM_MESSAGES_MAC.

DATA:L_ITEM TYPEMEPOITEM. "采购订单行项目

*--> 取得采购订单行项目数据L_ITEM = IM_ITEM->GET_DATA< >.

*--> 判断行项目税率是否为空IF L_ITEM-MWSKZ = '' OR L_ITEM-MWSKZ ISINITIAL.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_ITEMSTYPE PURCHASE_ORDER_ITEMS,OBJ_ITEMTYPE PURCHASE_ORDER_ITEM,LW_HEADERTYPE MEPOHEADER,LW_ITEM TYPEMEPO

ITEM.

*-->取得订单抬头信息与明细数据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< >.

多西环素*--> 判断行项目税率是否为空IFLW_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_ITEMSTYPE PURCHASE_ORDER_ITEMS,OBJ_ITEMTYPE PURCHASE_ORDER_ITEM,LW_HEADERTYPE MEPOHEADER,LW_ITEM TYPEMEPOITEM.

*-->取得订单抬头信息与明细数据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< >.

*--> 判断行项目税率是否为空IFLW_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 =&ssage 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 EXPORTINGim_msgid = sy-msgidim_msgty = sy-msgtyim_msgno = sy-msgno im_msgv1 = sy-msgv1 im_msgv2 = sy-msgv2 im_msgv3 = sy-msgv3 im_msgv4 = sy-msgv4im_force_collect = mmpur_yes EXCEPTIONS failure = 01 dialog = 02.set extended check off.

四川理工学院学报

这两个方法实现方法是一样的,只是第一种是SAP　公司已经实现了,包含在includeMM_MESSAGES_MAC中,所以直接引用.

消息类：SE91

零下八度电影建立消息类：ZMM01

承担民事责任的方式Message : 002 Item&1 &2 The default issuing storagelocation is &3.

Message: 003 Item &1 &2 Thedefaultissuing storage location is &3.

本文发布于:2024-09-22 03:48:16，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/223863.html

上一篇：cadenceic610和mmsim61安装笔记

下一篇：常用螺丝头型槽型牙型