ABAP COOIS组件增加BOM用途、备选物料清单和可选文本

COOIS选择 清单组件时，ALV展示增加三个字段，主要找到增强点

1. SE18—>BAdi名称，输入：WORKORDER_INFOSYSTEM
   

2. 顶端选择实施——概览，选择自定义的实施
   

3. 选择接口，方法：TABLES_MODIFY_LAY
   

4. 编写程序如下图

    IF is_tcoa-opcomp_sel = 'X'  ." AND ( lv_object = 'PPIOH000' OR lv_object = 'PPIOM000' ).
      "订单组件
      IF lv_object = 'PPIOM000'.
        "删除物料描述不正确的
        DELETE ct_ioopcomp WHERE matxt NOT IN lr_maktx.
        LOOP AT ct_ioopcomp INTO ls_ioopcomp .
          "BOM用途、备选
          SELECT afko~aufnr,mast~stlan,afko~stlal,mast~stlnr
          FROM mast
          INNER JOIN afko ON afko~stlnr = mast~stlnr
          INTO TABLE @DATA(lt_mast1)
                WHERE aufnr EQ @ls_ioopcomp-aufnr.
          SORT lt_mast1 BY aufnr .
          READ TABLE lt_mast1 INTO DATA(ls_mast1) INDEX 1.
          IF sy-subrc = 0.
            ls_ioopcomp-zstlan = ls_mast1-stlan.
            ls_ioopcomp-zstlal = ls_mast1-stlal.
          ENDIF.

          SELECT stlnr,stktx
          FROM stko
          INTO TABLE @DATA(lt_stko1)
                FOR ALL ENTRIES IN @lt_mast1
                WHERE stlnr = @lt_mast1-stlnr AND stlal = @lt_mast1-stlal.
          SORT lt_stko1 BY stlnr.
          READ TABLE lt_stko1 INTO DATA(ls_stko1) INDEX 1.
          IF sy-subrc = 0.
            ls_ioopcomp-zzstktx = ls_stko1-stktx.
          ENDIF.

          MODIFY ct_ioopcomp FROM ls_ioopcomp.
          CLEAR ls_ioopcomp.
        ENDLOOP .
      ENDIF.
    ENDIF.