ME51N, ME52N 创建采购申请的一个BADI

ME51N ME52N创建修改采购申请时的一个BADI

(2013-07-11 16:50:58)

转载▼

标签：

采购申请

me51n

me52

badi

me_process_req_cust

分类：增强

怎样找badi不做介绍

无论是类里打断点、或者st05跟踪，或者是spro里找都行

我这个badi比较简单，网上一搜或者群里一问大家都知道

ME_PROCESS_REQ_CUST

这里简单实现里面的check

FM内具体代码见最后

这里说下不借助其他帮助的时候，怎么找到想要的方法，怎么找到需要的值

显示参数

双击进入im_header

一般都会有get_data.此处还有个get_tiems

打开参数

双击查看该结构

就是想要的采购申请号和行项目号，不过描述是：last
item number

说明是一条数据，而不是个表

注意看看后面的描述

然后看get_items，一般情况这两个方法是常用的

会发现re_itmes是
个内表

而且这个内表参考类型，是个类IF_PURCHASE_REQUISITION_ITEM

一般也会有get_data.

一层层跟下去，调用的时候定义类对象，调用其方法即可

另外：ME53N查看时，点编辑按钮，进入编辑状态，可以在ME_PROCESS_REQ_CUST --
open方法中写逻辑

FM内代码：

FUNCTION zlm_fm_me52n.

*"----------------------------------------------------------------------

*"*"Local interface:

*" IMPORTING

*" VALUE(IM_HEADER) TYPE REF TO IF_PURCHASE_REQUISITION
OPTIONAL

*" EXPORTING

*" VALUE(E_ITEM_DATA) TYPE MEREQ_ITEM

*" EXCEPTIONS

*" ERROR

*"----------------------------------------------------------------------

*"*"Local interface:

*" IMPORTING

*" VALUE(IM_HEADER) TYPE REF TO IF_PURCHASE_REQUISITION
OPTIONAL

*1、通过Tcode:ME52N进行采购申请修改时，

* 更改行项目物料编码保存时需判断已更换物料是否未冻结物料，

* 如果为冻结物料，则禁止采购申请保存并给与错误提示：行项目XXX新更换物料XXXXXXX已冻结，请选择其他物料。

*2、冻结物料判断逻辑如下：

* 当物料主数据MARA-MATNR的跨工厂物料状态MARA-MSTAE为非空时表示该物料已经冻结；

* 当物料主数据MARA-MATNR的MARA-LVORM字段为“X”表示该物料已删除

*"----------------------------------------------------------------------

DATA: wa_head TYPE mereq_header.

"表头数据：采购申请号等

DATA: it_item TYPE mmpur_requisition_items.
"行项目表：采购申请下各行项目

DATA wa_item LIKE LINE OF it_item.
"行项目工作区

DATA cl_item TYPE REF TO
if_purchase_requisition_item. "获取行项目数据的类

DATA l_item_data TYPE mereq_item.

"行项目中具体值

DATA: l_matnr TYPE matnr.

DATA:

BEGIN OF str_dongjie,

mstae TYPE mstae,

lvorm TYPE lvorm,

END OF str_dongjie,

wa_dongjie LIKE str_dongjie.

"获取头数据

CALL METHOD im_header->get_data

RECEIVING

re_data = wa_head.

"如果不是ME52N进入，没有采购申请单号，采购申请单号第一位是‘#’，不需要进行后续校验

IF wa_head-banfn(1) = '#'.

RETURN.

ENDIF.

"获取行项目

CALL METHOD im_header->get_items

RECEIVING

re_items = it_item.

"解析行项目

LOOP AT it_item INTO wa_item.

"获取行项目数据的类

cl_item = wa_item-item.

"获取行项目值

CALL METHOD cl_item->get_data

RECEIVING

re_data = l_item_data.

CLEAR l_matnr.

"获取采购申请物料号

SELECT SINGLE matnr

FROM eban

INTO l_matnr

WHERE banfn = wa_head-banfn AND

bnfpo = l_item_data-bnfpo.

"如果修改了物料，检查更新的物料是否被冻结，冻结则输出物料信息、抛出异常并退出

IF l_item_data-matnr <> l_matnr.

SELECT SINGLE mstae lvorm

INTO wa_dongjie

FROM mara

WHERE matnr = l_item_data-matnr.

IF sy-subrc = 0 AND ( wa_dongjie-mstae IS NOT INITIAL OR
wa_dongjie-lvorm = 'X' ) .

e_item_data = l_item_data.

RAISE error.

RETURN.

ENDIF.

ENDLOOP.

ENDFUNCTION.