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

最新推荐文章于 2025-01-08 14:56:13 发布

SAP小菜鸡

最新推荐文章于 2025-01-08 14:56:13 发布

阅读量4k

点赞数

分类专栏： SAP-ABAP

本文链接：https://blog.youkuaiyun.com/u014535256/article/details/111479498

版权

SAP-ABAP 专栏收录该内容

187 篇文章

订阅专栏

本文介绍如何在SAP系统中通过增强方式实现物料主数据评估类与凭证科目的自动匹配。针对特定移动类型，如201、202、Z01和Z02，利用MB_COBL BADI接口重定义MAINTAIN_COBL方法，根据物料评估类查询并设置相应的会计科目。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

需求：根据物料主数据评估类替换对应的凭证科目信息，由于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 .