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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步