ABAP MD04增强排除MRP元素

场景

MD04跑出来很多MRP元素，用户想手工控制某些MRP元素不参与运算

分析

增强点还蛮好找的，控制MRP元素是否参与运算用下面的se19三代增强点就可以，打个断点看下MD04进的哪个增强点就行
旧版本的用这个：MD_CHANGE_MRP_DATA
新版本的用这个：MD_ADD_ELEMENTS
这个项目的客户SAP版本比较新，用的MD_ADD_ELEMENTS
只要在这个增强点中找到用户需要排除的行项目，将该行的需求数量置空，同时将参数CH_CHANGED赋值’X’即可

看到这好像还挺简单的，只要拉个报表把MD04的行项目拉出来，把需要排除的行项目打上标记，在增强点读取出需要排除掉的行项目即可
对于一般的MRP元素上述方案完全可行，但是有些MRP元素是多层的，比如工单涉及的其他下层物料MRP元素也需要一起排除，所以此时用户实际上的需求并不是按屏幕上MD04的行项目去排除，而是按订单去排除…跟业务沟通了好些时候才弄清楚，可能我以前没做过MRP增强而且也比较笨
分析完了就开始冻手观察前台的数据了，通过BAPI【MD_STOCK_REQUIREMENTS_LIST_API】输入工厂和物料可以拉取前台MD04的内表（实际MD04也是用的这个BAPI），前台的内表对应BAPI中的mdezx，后台增强的内表对应mdpsx

可以通过mdezx-aline找到对应的mdpsx，aline这个字段就代表前台md04内表mdezx在后台增强内表mdpsx的索引值

现在前后台内表的关联关系也有了，下一步就是排除所有相关的MRP元素对应的单据，业务给我做了条数据，左侧是最上层的工单，右侧是此工单产生的需求，都是要排除掉的

以此工单10000000560为例，增强的内表mdpsx中字段del12，delnr，delps三个字段组合起来可以作为唯一值关联到后续两个MD04的MRP元素，也是找了不少数据做校验才得出这个结论，所以只要能够在MD04增强的内表中组合这三个字段，在后台表中捞取得到就把该行MRP元素排除

实现

我就只放关键代码和自建表了
MRP排除元素自建表，内表mdpsx中字段del12，delnr，delps组合起来形成的主键MRP_ELMENTS才是关键，其他都是没啥用的字段，不重要

报表取数逻辑

" CODE PART1 
" 报表内表结构
TYPES:BEGIN OF ty_output,matnr       TYPE marc-matnr           , " 物料maktx       TYPE makt-maktx           , " 物料描述werks       TYPE marc-werks           , " 工厂name1       TYPE t001w-name1          , " 工厂描述del12       TYPE mdps-del12,delnr       TYPE mdps-delnr,delps       TYPE mdps-delps,excld       TYPE c                    , " 排除mrp_elments TYPE zppt025-mrp_elments  , " MRP元素号 DEL12+DELNR+DELPS组合字段flag        TYPE c                    , " 修改标记delb1       TYPE t457t-delb1          . " MRP元素描述INCLUDE STRUCTURE mdez.TYPES:END OF ty_output." CODE PART2 " 根据物料和工厂获取MD04物料信息CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'EXPORTINGmatnr = ls_data-matnrwerks = ls_data-werksTABLESmdpsx = lt_mdps    " MD04前台内表mdezx = lt_mdez.   " 后台增强的内表" 将前后台的表根据aline做匹配，mdezx中数据量会多一些，具体原因不清楚LOOP AT lt_mdez INTO DATA(ls_mdez).lv_tabix = sy-tabix.READ TABLE lt_zppt024 TRANSPORTING NO FIELDS WITH KEY delkz = ls_mdez-delkz BINARY SEARCH.IF sy-subrc = 0.MOVE-CORRESPONDING ls_mdez TO gs_output.READ TABLE lt_mdps INTO DATA(ls_mdps) INDEX gs_output-aline.IF sy-subrc = 0.gs_output = VALUE #( BASE gs_outputdel12       = ls_mdps-del12delnr       = ls_mdps-delnrdelps       = ls_mdps-delpsmrp_elments = ls_mdps-del12 && ls_mdps-delnr && ls_mdps-delps ). " 重点就是这个字段，后续需要存到数据库中ENDIF.APPEND gs_output TO gt_output.ENDIF.ENDLOOP.

报表成品长这样，用户勾选哪行要删除的话，对应的字段del12，delnr，delps组合起来形成主键mrp_elments保存到数据库

增强代码

  METHOD if_ex_md_add_elements~add_change_elements.TYPES:BEGIN OF ty_data,index       TYPE i                    , " 索引mrp_elments TYPE zppt025-mrp_elments  , " MRP元素号 DEL12+DELNR+DELPS组合字段END OF ty_data.DATA: lv_index TYPE i,lt_data  TYPE TABLE OF ty_data,lr_delkz TYPE RANGE OF zppt024-delkz.IF sy-tcode = 'SE38' OR sy-tcode = 'ZPPR026'. " 跑程序的时候需要拉所有清单，不做过滤EXIT.ENDIF." 获取配置表，拉取需要排除的订单类型" zppt024这个表也是个配置表，用户想在MD04排除某一特定类型的单据，好像是预留单被排除掉了...SELECT*FROM zppt024WHEREexcld = 'X'INTO TABLE @DATA(lt_zppt024).SORT lt_zppt024 BY delkz.lr_delkz[] = VALUE #( FOR lw_zppt024 IN lt_zppt024( sign = 'I' option = 'EQ' low = lw_zppt024-delkz ) )." 拉取所有元素，预处理索引和MRP元素LOOP AT ch_copy_mdpsx INTO DATA(ls_mdps).lt_data = VALUE #( BASE lt_data( index       = lv_index + 1mrp_elments = ls_mdps-del12 && ls_mdps-delnr && ls_mdps-delps ) )." 工单特殊处理，下钻的时候有可能带上预留单，所以要通过这个方式筛选出下钻的工单lt_data = VALUE #( BASE lt_data( index       = lv_index + 1mrp_elments = ls_mdps-del12 && ls_mdps-delps ) )." 委外订单特殊处理，下钻的时候需要通过AUFVR和POSVR找到上层的委外订单，才能删除下钻的预留单IF ls_mdps-delvr = 'BE' AND ls_mdps-delkz = 'BB'. " 采购 & 外协lt_data = VALUE #( BASE lt_data( index       = lv_index + 1mrp_elments = ls_mdps-aufvr && ls_mdps-posvr ) ).ENDIF.lv_index += 1.ENDLOOP.SORT lt_data BY index mrp_elments.DELETE ADJACENT DUPLICATES FROM lt_data COMPARING ALL FIELDS.IF lt_data IS INITIAL.EXIT.ENDIF." 读取需要被排除的mrp_elmentsSELECTtb~index,zppt025~mrp_elmentsFROM zppt025INNER JOIN @lt_data AS tb ON tb~mrp_elments = zppt025~mrp_elments              " 其次在MRP元素中删除所有该单据WHEREzppt025~exclude     = 'X'INTO TABLE @DATA(lt_zppt025).SORT lt_zppt025 BY index.DELETE ADJACENT DUPLICATES FROM lt_zppt025 COMPARING index.IF lt_zppt025 IS INITIAL.EXIT.ENDIF." 按mrp_elments排除单据LOOP AT lt_zppt025 INTO DATA(ls_zppt025).READ TABLE ch_copy_mdpsx ASSIGNING FIELD-SYMBOL(<fs_mdps>) INDEX ls_zppt025-index.IF sy-subrc = 0.CLEAR <fs_mdps>-mng01.ch_changed = 'X'.ENDIF.ENDLOOP." 按单据类型排除单据IF lr_delkz[] IS NOT INITIAL.LOOP AT ch_copy_mdpsx ASSIGNING <fs_mdps> WHERE delkz IN lr_delkz.CLEAR <fs_mdps>-mng01.ch_changed = 'X'.ENDLOOP.ENDIF.ENDMETHOD.

收工！追番！为美好的世界献上祝福！