SAP MM01 BAID: BADI_MATERIAL_CHECK / BADI_MATERIAL_REF

yong325

于 2013-04-17 10:15:41 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP BADI 文章标签： MM01

本文链接：https://blog.youkuaiyun.com/yong325/article/details/8812557

SAP 同时被 2 个专栏收录

433 篇文章

订阅专栏

BADI

21 篇文章

订阅专栏

该博客介绍了如何在SAP中使用BADI (BadIs) 对MM01和MM02事务代码进行材料检查和创建材料的逻辑。通过IF_EX_BADI_MATERIAL_CHECK和IF_EX_MATERIAL_REFERENCE这两个方法，对物料编号和物料类型进行特定操作，如设置物料类别、检查净重量等。

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

METHOD if_ex_badi_material_check~check_data.
  IF sy-tcode = 'MM01' OR sy-tcode = 'MM02'.
    DATA: int TYPE c LENGTH 20.
    int = wmara-matnr.
    cmara-matkl = int+0(2).
  ENDIF.
ENDMETHOD.

method IF_EX_MATERIAL_REFERENCE~CREATE_MATERIAL.
  if SY-TCODE = 'MM01' or SY-TCODE = 'MM02'.
    data: INT type C length 20.
    data: L_MATKL type MATKL.

    move-corresponding I_MARA to E_MARAU.
    INT = I_MARA-MATNR.  "物料号

    select single MATKL into L_MATKL from T023 where MATKL = INT+0(2).
    if SY-SUBRC = 0.
      E_MARAU-MATKL = INT+0(2).
    endif.
  endif.

  if SY-TCODE = 'MM01' and I_MARA-MTART <> 'ZVFG' AND I_MARA-MTART <> 'ZUFG'
    AND I_MARA-MTART <> 'ZIAG' AND I_MARA-MTART <> 'ZPCB' AND I_MARA-MTART <> 'ZLGP'.

    E_MARAU-NTGEW = 99999.    "Clear net weight
  endif.
endmethod.