CS01、CS02保存时增强的BADI(BOM_UPDATE)

1、需求背景：LC项目中，在保存BOM时，需要给BOM以Y开头的物料组件的展开类型字段赋默认值,查了一些资料，找到一个BADI增强，分享一下，希望对用到的兄弟有帮助。

2、BADI增强

step1:执行事务码SE19,在BAdI Name里输入BOM_UPDATE,然后点击“Create Impl”按钮

setp2:在Implementation Name处输入ZBOM_UPDATE,然后点OK按钮。

step3:返回到se19事务码界面,在Implementation中输入"ZBOM_UPDATE",点击"Change"按钮.

step4:双击CHANGE_AT_SAVE

step5:写入代码，保存，激活。当用CS01 CS02创建或修改BOM时，就能看到默认值D2

代码如下：

METHOD IF_EX_BOM_UPDATE~CHANGE_AT_SAVE.


IF SY-TCODE <> 'ZPP110'.
    DATA: STPOB TYPE STPOB.

    DATA: FIELD_NAME(30) VALUE '(SAPLCSBT)O1-STPOB[]'.

    FIELD-SYMBOLS: <TABLE> TYPE TABLE.

    ASSIGN (FIELD_NAME) TO <TABLE>.

    LOOP AT <TABLE> INTO STPOB.
          IF STPOB-IDNRK+0(1) = 'Y' AND STPOB-STPOZ+0(1) = '9'.

              CLEAR STPOB-DSPST.
              STPOB-DSPST = 'D2'.
              MODIFY <TABLE> FROM STPOB.

          ENDIF.
    ENDLOOP.

    COMMIT WORK AND WAIT.
ENDIF.

ENDMETHOD.