FUNCTION zppfm007. *"---------------------------------------------------------------------- *"*"本地接口: *" IMPORTING *" VALUE(I_MATNR) TYPE MATNR *" VALUE(I_VBELN) TYPE KDST-VBELN *" VALUE(I_VBPOS) TYPE KDST-VBPOS *" 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_KND_V1' EXPORTING capid = 'PP01' datuv = sy-datum emeng = 0 mktls = 'X' mehrs = 'X' mtnrv = i_matnr "BOM料号 stpst = 0 svwvo = 'X' werks = '1001' vbeln = i_vbeln "销售订单 vbpos = i_vbpos "'000010'"行号 vrsvo = 'X' TABLES stb = o_stpox matcat = o_cscmat 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. ENDFUNCTION.
ZPPFM007 获取销售BOM数据
猜你喜欢
转载自blog.csdn.net/low584710047/article/details/80268576
今日推荐
周排行