ABAP:MD01(MRP)增强 BADI-MD_PURREQ_CHANGE

复制代码
  METHOD if_ex_md_purreq_change~change_before_save_mrp.


    "检查采购申请增强开关
    DATA ls_zexit TYPE zexit.
    DATA:lt_werks TYPE RANGE OF eban-werks,
         ls_werks LIKE LINE OF lt_werks.
    SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_zexit FROM zexit WHERE znum = '006'.

    SPLIT ls_zexit-zwerks AT ',' INTO TABLE DATA(lt_res).
    LOOP AT lt_res INTO DATA(ls_res).
      ls_werks-sign = 'I'.
      ls_werks-option = 'EQ'.
      ls_werks-low = ls_res.
      APPEND ls_werks TO lt_werks.
      CLEAR:ls_werks.
    ENDLOOP.
    IF ls_zexit-zflag = 'X'.
      DATA it_pr TYPE TABLE OF zsrm_ispm10s_eban.
      DATA ls_pr TYPE zsrm_ispm10s_eban.
      IF im_eban_old-banfn IS NOT INITIAL AND
         im_eban_old-fixkz = '' AND
         im_eban_old-werks NOT IN lt_werks.
        ls_pr-banfn = im_eban_old-banfn.
        ls_pr-loekz = 'X'.
        APPEND ls_pr TO it_pr.

*  发送物理删除的PR转程序 ZMMR013
        CALL FUNCTION 'ZSRM_ISCM10S'
*         IMPORTING
*           ES_RETURN       =
          TABLES
            it_pr = it_pr.

      ENDIF.

      IF  im_eban_old-banfn <> ch_eban-banfn.

        IF ch_eban-banfn IS NOT INITIAL.
          CALL FUNCTION 'ZSRM_ISCM7S_EXIT'
            EXPORTING
              iv_banfn = CH_eban-banfn
              iv_num = '006'.
        ENDIF.
      ENDIF.

    ENDIF.

  ENDMETHOD.
复制代码

 

posted @   阿胖的阿多  阅读(625)  评论(0编辑  收藏  举报
点击右上角即可分享
微信分享提示