ABAP MIGO增强实战：如何安全修改EKET数据

1次阅读

没有评论

共计 1749 个字符，预计需要花费 5 分钟才能阅读完成。

在 SAP 系统中直接修改 EKET（计划协议行项目）数据可能导致严重后果：

财务凭证与物料移动记录不一致，引发月末对账差异
未经验证的修改可能破坏 MRP 运行结果
生产订单组件消耗与采购记录不匹配
历史数据追溯链条断裂

SAP 提供多种增强方式，针对 MIGO 场景的优选方案：

User Exit：传统方式，但维护成本高（需要访问密钥）
BADI：推荐方案，支持过滤器使用和多重实现
Enhancement Spot：S4HANA 推荐方式，代码更清晰

建议优先使用 MB_MIGO_BADI 这个标准 BADI，它专门为 MIGO 事务设计。

使用 IF_EX_MB_MIGO_BADI~POST_DOCUMENT 方法，该时点具有以下优势：

原始数据已通过标准校验
尚未生成最终财务凭证
可以获取到完整的凭证抬头和行项目数据

METHOD if_ex_mb_migo_badi~post_document.
  DATA: 
    lv_ebeln TYPE ekko-ebeln,
    lv_ebelp TYPE eket-ebelp,
    lt_eket_update TYPE TABLE OF eket.

  " 仅处理采购订单相关的移动类型
  CASE is_mseg-bwart.
    WHEN '101' OR '103'.
      " 权限检查
      PERFORM authority_check USING 'MIGO' 'EKET' 'CHANGE'.

      " 获取相关计划行
      SELECT ebeln, ebelp, menge, wemng 
        FROM eket
        INTO CORRESPONDING FIELDS OF TABLE @lt_eket_update
        WHERE ebeln = @is_mseg-ebeln
          AND ebelp = @is_mseg-ebelp
        FOR UPDATE.

      " 数据校验
      LOOP AT lt_eket_update ASSIGNING FIELD-SYMBOL(<fs_eket>).
        IF <fs_eket>-wemng > <fs_eket>-menge.
          RAISE EXCEPTION TYPE cx_migo_badi_error
            EXPORTING
              textid = '计划行已超额收货'.
        ENDIF.

        " 业务逻辑：更新已收货数量
        <fs_eket>-wemng = <fs_eket>-wemng + is_mseg-menge.
      ENDLOOP.

      " 批量更新
      MODIFY eket FROM TABLE @lt_eket_update.
      IF sy-subrc = 0.
        COMMIT WORK AND WAIT.
      ELSE.
        ROLLBACK WORK.
      ENDIF.
  ENDCASE.
ENDMETHOD.

FORM authority_check USING iv_tcode TYPE tcode
                          iv_table TYPE tabname
                          iv_actvt TYPE activ_auth.
  AUTHORITY-CHECK OBJECT 'S_TCODE'
    ID 'TCD' FIELD iv_tcode
    ID 'ACTVT' FIELD iv_actvt.
  IF sy-subrc <> 0.
    MESSAGE e001(00) WITH '无事务码执行权限'.
  ENDIF.

  " 表字段级权限检查
  PERFORM check_table_authority USING iv_table iv_actvt.
ENDFORM.