BADI：ME_PROCESS_PO_CUST
需求：
2.1 根据采购申请是否经过修改或采购申请的类型，确定订单为一级审批还是二级审批。一级
审批订单汇总号为80，二级审批订单汇总号为90。系统默认订单汇总号为80，以下情况下订
单需要做二级审批，程序增强将汇总号由80 变为90：
1）类型为NB 的采购申请转采购订单时，如果用户修改了行项目的数量；
2）类型为NB 的采购申请转采购订单时，如果用户未按货源清单或设定的配额分配订单时；
3）从类型为NB 的采购申请转成的采购订单，用户通过ME22N 修改采购订单；
4）类型为ZPR1、ZPR2、ZPR8（备货采购、紧急采购、退货）的采购申请转采购订单时；
5）定线订单的确认数量经过修改时；
2.2 读取最新的改版信息，与用户录入的版次进行校验，提示用户最新的改版版本
对于类型为ZP02（包材）的订单，用户在行项目的批次栏填入物料的版次号，保存订单
时，系统从物料主数据读取最新的改版信息（字段：MARA-ZEINR），并与用户录入的版次号进
行校验，如不一致，发出警告“*****物料的最新版次号为*****”。
2.3 订单保存时检查运输商和供应商是否同一个。
订单保存时，如果该订单涉及到运费（国际贸易条件不是“100”），系统检查运输商和供
应商是否为同一个编码，如果为同一编码，发出警告“供应商与运输商为同一个公司”
系统逻辑：查找采购订单的条件记录ZFR1 中的运输商与采购订单的供应商
2.4 订单保存时提示用户某物料有改版控制量。
对于类型为ZP02（包材）的订单，用户保存订单时，系统检查该物料该版次在相应时间
段内是否有改版限制量，如果有，则给出发出警告“*****物料有改版限制量，请运行改版物
资完成量报表”。
系统逻辑：查找ZMM_GB 数据表中某物料某版次改版限制量的有效期，如果下订单的时
间在有效期内，则发出警告。（具体见功能说明书《改版物资限制量》）。
2.5 类型为ZP01、ZP02 的订单必须有采购申请的来源才能创建订单。
（1）订单header处理
method IF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER.
include MM_MESSAGES_MAC.
DATA:l_head TYPE mepoheader.
DATA:l_item TYPE mepoitem.
DATA:L_BANFN TYPE EBAN-BANFN,"
wa_EBAN type eban."采购申请头
data:items type purchase_order_items,
item_obj type purchase_order_item.
l_head = IM_HEADER->get_data( ).
items = im_header->get_items( ) .
clear:wa_EBAN.
loop at items into item_obj .
l_item = item_obj-item->get_data( ).
if l_item-BANFN <> ''.
select single * into wa_EBAN from EBAN where BANFN = l_item-BANFN and BNFPO = l_item-BNFPO.
case wa_EBAN-BSART.
when 'ZPR1' OR 'ZPR2' OR 'ZPR8'.
L_HEAD-SUBMI = '90'.
IM_HEADER->set_data( IM_DATA = L_HEAD ).
CONTINUE.
WHEN 'NB' OR 'NB1' OR 'NB2' OR 'NB3'.
if wa_EBAN-MENGE <> l_item-MENGE.
L_HEAD-SUBMI = '90'.
IM_HEADER->set_data( IM_DATA = L_HEAD ).
CONTINUE.
endif.
endcase.
endif.
endloop.
BREAK zhangdq.
if sy-TCODE = 'ME21N' .
IF l_head-BSART = 'ZPO1' OR l_head-BSART = 'ZPO2' OR l_head-BSART = 'ZPO3'
OR l_head-BSART = 'ZPO4' OR l_head-BSART = 'ZPO5' OR l_head-BSART = 'ZPO6'
OR l_head-BSART = 'ZPO7' OR l_head-BSART = 'ZPO8' OR l_head-BSART = 'ZPO9'.
if L_HEAD-SUBMI = '' .
L_HEAD-SUBMI = '80'.
IM_HEADER->set_data( IM_DATA = L_HEAD ).
endif.
ENDIF.
ENDIF.
endmethod.
（2）订单ITEM处理
method IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM.
include MM_MESSAGES_MAC.
data:wa_mara type mara.
DATA : re_header TYPE mepoheader.
DATA:l_item TYPE mepoitem.
DATA: l_header TYPE REF TO if_purchase_order_mm."采购订单抬头
DATA: WA_ZMMT_GB TYPE ZMMT_GB.
DATA:L_BANFN TYPE EBAN-BANFN,"
wa_EBAN type eban."采购申请头
l_header = im_item->get_header( ).
re_header = l_header->get_data( )."获取头信息
l_item = im_item->get_data( ).
*1...读取最新的改版信息，与用户录入的版次进行校验，提示用户最新的改版版本
*对于类型为ZP02（包材）的订单，用户在行项目的批次栏填入物料的版次号，保存订单
*时，系统从物料主数据读取最新的改版信息（字段：MARA-ZEINR），并与用户录入的版次号进
*行校验，如不一致，发出警告“*****物料的最新版次号为*****”。
*2....对于类型为ZP02（包材）的订单，用户保存订单时，系统检查该物料该版次在相应时间
*段内是否有改版限制量，如果有，则给出发出警告“*****物料有改版限制量，请运行改版物
*资完成量报表”。
*系统逻辑：查找ZMM_GB 数据表中某物料某版次改版限制量的有效期，如果下订单的时
*间在有效期内，则发出警告。（具体见功能说明书《改版物资限制量》）。
BREAK ZHANGDQ.
CLEAR:wa_mara,WA_ZMMT_GB.
if re_header-BSART = 'ZPO2' .
select single * into wa_mara from mara where matnr = l_item-matnr.
if l_item-CHARG <> wa_mara-ZEINR .
mmpur_message 'W' 'ZMSG' '001' wa_mara-MATNR wa_mara-ZEINR '' ''.
ENDIF.
SELECT SINGLE * INTO WA_ZMMT_GB FROM ZMMT_GB WHERE MATNR = l_item-MATNR
AND VERID = l_item-CHARG
AND SDATE <= l_item-EINDT
AND EDATE >= l_item-EINDT.
IF SY-SUBRC = 0 .
mmpur_message 'W' 'ZMSG' '002' wa_mara-MATNR '' '' ''.
ENDIF.
ENDIF.
if l_item-BANFN <> ''.
select single * into wa_EBAN from EBAN where BANFN = l_item-BANFN and BNFPO = l_item-BNFPO.
case re_header-BSART.
when 'ZPR1' OR 'ZPR2' OR 'ZPR8'.
re_HEADer-SUBMI = '90'.
WHEN 'NB' OR 'NB1' OR 'NB2' OR 'NB3'.
if wa_EBAN-MENGE <> l_item-MENGE.
re_HEADer-SUBMI = '90'.
endif.
if re_header-BSART = 'NB' AND re_header-LIFNR <> wa_EBAN-FLIEF ."如果采购申请是NB类型，并且申请供应商和采购供应商不一致，直接设置为90
re_HEADer-SUBMI = '90'.
ENDIF.
endcase.
l_header->set_data( IM_DATA = re_HEADer ).
endif.
*订单保存时检查运输商和供应商是否同一个。
*订单保存时，如果该订单涉及到运费（国际贸易条件不是“100”），系统检查运输商和供
*应商是否为同一个编码，如果为同一编码，发出警告“供应商与运输商为同一个公司”
*系统逻辑：查找采购订单的条件记录ZFR1 中的运输商与采购订单的供应商
DATA:wa_im_komv TYPE komv.
DATA:l_get_conditions TYPE mmpur_tkomv.
endmethod.
（3）订单CHECK
method IF_EX_ME_PROCESS_PO_CUST~CHECK.
include MM_MESSAGES_MAC.
DATA: header TYPE mepoheader,
items TYPE purchase_order_items,
line_item TYPE purchase_order_item,
po_line TYPE mepoitem,
po_condition type mmpur_tkomv,
wa_im_komv TYPE komv,
eipo_line type MEPO_EIPO. "Foreign Trade: Export/Import: Item Data
data:l_flag(1)."是否能手工创建采购订单标志，只是限制ZPO1,ZPO2的订单类型
header = im_header->get_data( ).
items = im_header->get_items( ).
CLEAR:l_flag.
LOOP AT items INTO line_item.
po_line = line_item-item->get_data( ).
IF PO_LINE-BANFN = ''.
l_flag = 'X'.
ENDIF.
CALL METHOD line_item-item->get_conditions
IMPORTING
ex_conditions = po_condition.
IF header-INCO1 <> '100'.
loop at po_condition into wa_im_komv.
IF wa_im_komv-KSCHL = 'ZFR1' AND wa_im_komv-LIFNR = header-LIFNR.
mmpur_message 'W' 'ZMSG' '003' wa_im_komv-KPOSN '' '' ''.
ENDIF.
clear wa_im_komv.
endloop.
endif.
endloop.
IF ( header-BSART = 'ZPO1' OR header-BSART = 'ZPO2' ) AND l_flag = 'X' and sy-TCODE = 'ME21N'.
mmpur_message 'E' 'ZMSG' '004' '' '' '' ''.
ENDIF.
endmethod.
（4）SE91消息设置
001 &1物料的最新版次号为&2
002 &1物料有改版限制量，请运行改版物资完成量报表
003 采购订单&1行供应商与运输商为同一个公司
004 类型为ZPO1、ZPO2的订单必须有采购申请的来源才能创建订单
阅读(9847) | 评论(0) | 转发(0) |
