ZBlog学习笔记

*定义：
DATA: BEGIN OF I_BOM OCCURS 0.    "存储bom的内表
        INCLUDE STRUCTURE STPOX.
      DATA:  END OF I_BOM.
      
*函数定义：
DATA: _TMPQTY LIKE STKO-BMENG.

CLEAR I_BOM.
CLEAR I_BOM[].

CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
  EXPORTING
    CAPID                 = 'PP01'
    ALEKZ                 = 'X'
    EMENG                 = 5000    "指定需求数
    DATUV                 = SY-DATUM
    MTNRV                 = '9S110001'           "itab-matnr        "产品物料信息
    MEHRS                 = 'X'            "完全展开
    STLAN                 = '5'
    WERKS                 = '1001'       "工厂信息
  TABLES
    STB                   = I_BOM        "最终输出的物料信息
*   matcat                = i_mat       "物料索引信息
  EXCEPTIONS
    ALT_NOT_FOUND         = 1
    CALL_INVALID          = 2
    MATERIAL_NOT_FOUND    = 3
    MISSING_AUTHORIZATION = 4
    NO_BOM_FOUND          = 5
    NO_PLANT_DATA         = 6
    NO_SUITABLE_BOM_FOUND = 7
    CONVERSION_ERROR      = 8
    OTHERS                = 9.
IF _TMPQTY <= 0.
  LOOP AT I_BOM.
    I_BOM-MNGKO = 0.
    MODIFY I_BOM.
  ENDLOOP.
ENDIF.