SAP ABAP MIGO根据移动类型、物料评估类替换科目增强 BADI MB_COBL

需求：根据物料主数据评估类替换对应的凭证科目信息，由于SAP标准的替代上无移动类型，所以通过此增强可以实现。

BADI:MB_COBL

重定义方法：MAINTAIN_COBL

    DATA:LS_CSKS TYPE CSKS .
    DATA:LS_MBEW TYPE MBEW .
    IF IS_MSEG-BWart EQ '201'  OR IS_MSEG-BWart EQ '202' OR IS_MSEG-BWart EQ 'Z01'  OR IS_MSEG-BWart EQ 'Z02'  .
      SELECT
        SINGLE
        *
        INTO CORRESPONDING FIELDS OF LS_CSKS
        FROM
        CSKS
        WHERE KOSTL EQ is_MSEG-KOSTL
        AND KOKRS EQ 'RT00'
        AND DATBI GE SY-DATUM .
      IF LS_CSKS-FUNC_AREA EQ '0500' .
*根据物料查询评估类
        SELECT
          SINGLE
          *
          INTO CORRESPONDING FIELDS OF LS_MBEW
         FROM MBEW
          WHERE
          MATNR EQ IS_MSEG-MATNR
          AND BWKEY EQ IS_MSEG-WERKS .
        CASE LS_MBEW-BKLAS .
          WHEN '3800' .	"荣泰其他类
            CS_COBL-HKONT = '5301010101' .
          WHEN '3801' .  " 服务费

          WHEN '3802' .  " 办公用品
            CS_COBL-HKONT = '5301080101' .
          WHEN '3803' .  " 劳保用品
            CS_COBL-HKONT = '5301080101' .
          WHEN '3804' .  " 安全设施及维护用品
            CS_COBL-HKONT = '5301080901' .
        ENDCASE .
      ENDIF .

    ENDIF .