FUNCTION zppfm006.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_MATNR) TYPE MATNR
*" EXPORTING
*" VALUE(O_MSG) TYPE TEXT200
*" TABLES
*" O_STPOX STRUCTURE STPOX
*" O_CSCMAT STRUCTURE CSCMAT
*" O_MARA STRUCTURE MARA
*" O_MAKT STRUCTURE MAKT
*"----------------------------------------------------------------------
TABLES: mara.
TABLES: makt.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE o_mara"主表
FROM mara
WHERE mara~matnr = i_matnr.
IF sy-subrc IS NOT INITIAL.
o_msg = '物料不存在'.
EXIT.
ELSE.
o_msg = 'OK'.
ENDIF.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE o_makt"主表
FROM makt
WHERE makt~matnr = i_matnr.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01' "BOM类型,比如生产BOM,研发BOM,销售BOM等等
datuv = sy-datum "填入日期,函数据此日期筛选出有效的组件
ehndl = '1'
emeng = 1000 "设定的用量单位
mehrs = 'X' "有值表示多层展开,类似事物码CS12
mtnrv = i_matnr "BOM料号
stlan = '1' "类似参数CAPID,限定被展开BOM的性质
werks = '1001'
TABLES
stb = o_stpox
matcat = o_cscmat.
ENDFUNCTION.
ZPPFM006 获取标准BOM数
最新推荐文章于 2023-07-26 16:37:51 发布