SAP采购订单税码增强检查

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 对采购订单行项目增加是否有选择税码检查 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 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 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 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