采购订单检查/保存BADI使用

Myth丶恋晨 2022-08-20 02:21 293阅读 0赞

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的订单必须有采购申请的来源才能创建订单