BAdi:BOM_UPDATE - Check update for BOM Save

最新推荐文章于 2024-09-27 13:18:48 发布

Leo Tin

最新推荐文章于 2024-09-27 13:18:48 发布

阅读量2.1k

点赞数

分类专栏： BAdi ABAP 文章标签： ABAP BAdi

本文链接：https://blog.youkuaiyun.com/leoonly2012/article/details/21710087

版权

ABAP 同时被 2 个专栏收录

10 篇文章

订阅专栏

BAdi

1 篇文章

订阅专栏

需求：BOM中替代项目组要求同一组比率之和必须是100.

实现：BAdi:BOM_UPDATE

METHOD if_ex_bom_update~change_at_save.
  DATA:
        ls_wa   TYPE stpob,
        ls_str  TYPE string.

  TYPES:BEGIN OF ty_check,
    alpgr TYPE stpob-alpgr ,
    ewahr TYPE stpob-ewahr ,
    END OF ty_check.
  DATA:
        lt_check TYPE STANDARD TABLE OF ty_check,
        ls_check TYPE ty_check.

  LOOP AT delta_stpob INTO ls_wa WHERE selkz = 'X'.
    CHECK NOT ls_wa-alpgr IS INITIAL.
    MOVE-CORRESPONDING ls_wa TO ls_check .
    COLLECT ls_check INTO lt_check .
  ENDLOOP.

  LOOP AT lt_check INTO ls_check.
    IF ls_check-ewahr <> 100.
      CONCATENATE 'The total number of Usage prob. of Group ' ls_check-alpgr ' must equal to 100.' INTO ls_str SEPARATED BY space.
      MESSAGE ls_str TYPE 'E' .
    ENDIF.
  ENDLOOP.
ENDMETHOD.