SAP采購訂單稅碼增強檢查

1、SAP采購訂單稅碼增強檢查2014年09月05日？綜合？共3030字？字號小中大？評論關(guān)閉1、SE18 查看 ME_PROCESS_PO_CUST相關(guān)信息2、 SE19 創(chuàng)建 ME_PROCESS_PO_CUST 的 BADI 實現(xiàn)類注意類名稱定義是按照以下規(guī)則：ZCL_IM_ + BADI其中CL表示CLASS類的意思，IM表示Implement實現(xiàn)的意思；3、SE24 實現(xiàn) ZCL_IM_ME_PROCESS_PO_CUST4、實現(xiàn) PROCESS_ITEM 代碼：METHOD IF_EX_ME_PROCESS_PO_CUSTPROCESS_ITEM.*&=* &對采購訂單

2、行項目增加是否有選擇稅碼檢查* & Added by liangqh 2010-07-28*&=INCLUDE MM_MESSAGES_MAC.DATA:->取得采購訂單行項目數(shù)據(jù)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 ''&

3、#39;' ENDIF.ENDMETHOD.METHOD IF_EX_ME_PROCESS_PO_CUSTCHECK.*&=* &對采購訂單行項目增加是否有選擇稅碼檢查* & Added by liangqh 2010-07-28*&=INCLUDE MM_MESSAGES_MAC.DATA:OBJ_ITEMSTYPE PURCHASE_ORDER_ITEMS,OBJ_ITEMTYPE PURCHASE_ORDER_ITEM,LW_HEADERTYPE MEPOHEADER,LWITEM TYPEMEPOITEM.*-取得訂單抬頭信息及明細數(shù)據(jù)LW_HE

4、ADER = 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 &

5、#39;''' ENDIF.ENDLOOP.ENDMETHOD.method IF_EX_ME_PROCESS_PO_CUSTPOST.*&=* &對采購訂單行項目增加是否有選擇稅碼檢查* & 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.*-

6、> 取得訂單抬頭信息及明細數(shù)據(jù)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_IT

7、EM-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_mepoi tem-reslo '' .2 .sy-msgid = 'ZMM01'.sy-msgty = 'W'.

8、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=>createEXPORTINGim_msgid= sy-msgidim_msgty= sy-msgtyim_msgno= sy-msgnoim_msgv1= sy-msgv1im_msgv2= sy-msgv2im_msgv3= sy-msgv3im_msgv4= sy-msgv4im_force_collect = mmpur_yesEXCEPTIONSfailure= 01dialog= 02.set extended check off.這兩個方法實現(xiàn)方法是一樣的，只是第一種是SAP 公司已經(jīng)實現(xiàn)了，包含在includeMM_MESSAGES_MAC中，所以直接引用。消息類：SE91建立消息類：ZMM01Message : 002 Item&