ABAP物料主数据增强实战指南：从零基础到生产级实现

1次阅读

没有评论

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

最近在化工行业项目中遇到一个典型需求：标准物料主数据（事务代码 MM01）缺少 CAS 编号字段（化学物质唯一标识符）。业务部门每次都需要在 Excel 里维护这个信息，再手工粘贴到物料描述中，导致：

数据检索困难（无法用 CAS 编号直接搜索）
批量维护时容易出错
无法参与系统标准报表统计

类似场景还有：

食品行业需要添加过敏原信息
电子行业需记录 RoHS 合规状态

SAP 提供了三种主流增强方式：

User Exit（过时但稳定）
适用：ECC 老系统简单增强
缺点：修改标准程序需申请 Access Key
BADI（推荐方案）
优点：支持多重实现，兼容性好
适用场景：本文案例采用MM06E005 BADI
Enhancement Framework
优势：S4HANA 首选
限制：ECC 系统需确认 Note 1935653

事务代码 CMOD 创建项目ZMM_MATERIAL_ENH
分配包$TMP（开发环境）或正式开发包
添加增强MM06E005（物料主数据屏幕增强点）

在 MM06E005 的SCREEN_MODIFY方法中：

METHOD if_ex_mm06e005~screen_modify.
  " 在基本数据 1 屏幕添加字段
  IF screen-group1 = 'BAS1'.
    LOOP AT SCREEN.
      " 在物料描述字段后插入 CAS 编号
      IF screen-name = 'MAKT-MAKTX'.
        screen-group1 = 'CAS'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDMETHOD.

布局最佳实践：

使用 SCREEN-GROUP1 控制字段组显示
保持与原屏幕相同的 Tab 顺序（通过字段位置号控制）
德语注释示例：" CAS-Nummer für chemische Materialien

通过 SE11 扩展结构MARA（附加字段）

创建自建表 ZMM_MAT_CAS 包含关键字段：

MANDT TYPE MANDT,
MATNR TYPE MATNR,
CASNO TYPE CHAR20,  " CAS 编号字段
...

创建二级索引ZCAS（避免全表扫描）

METHOD if_ex_mm06e005~data_check.
  " CAS 编号格式校验（##-##-#）IF is_mara-zzcasno IS NOT INITIAL AND 
     NOT is_mara-zzcasno CO '0123456789-'.
    MESSAGE e888(sabapdocu) WITH 'CAS 编号格式错误'.
  ENDIF.
ENDMETHOD.

处理批量数据时（如 CATT 导入）：

" 使用 CURSOR 避免内存溢出
OPEN CURSOR @lv_cursor FOR 
  SELECT matnr FROM mara 
  WHERE zzcasno IS NOT INITIAL
  ORDER BY PRIMARY KEY.  " 强制使用主键索引

DO.
  FETCH NEXT CURSOR @lv_cursor 
  INTO TABLE @lt_matnr PACKAGE SIZE 1000.
  IF sy-subrc <> 0.
    CLOSE CURSOR @lv_cursor.
    EXIT.
  ENDIF.
  " 批量处理逻辑
ENDDO.