ABAP读取销售订单选配BOM函数-CS_BOM_EXPL_KND_V1

    CLEAR: es_topmat, ev_dstst,  et_stb, et_matcat.

    SELECT SINGLE matnr, werks, cuobj INTO @DATA(ls_vbap)
      FROM vbap WHERE vbeln = @iv_vbeln AND posnr = @iv_posnr.
    IF ls_vbap IS INITIAL.
      RETURN.
    ENDIF.

    CALL FUNCTION 'CS_BOM_EXPL_KND_V1'
      EXPORTING
        ftrel                 = ' '
        altvo                 = ' '
        aufsw                 = ' '
        aumgb                 = 'X'
*       aumng                 = 0.000
        auskz                 = 'X'
        bagrp                 = ' '
        beikz                 = ' '
        bessl                 = ' '
        bgixo                 = ' '
        brems                 = ' '
        capid                 = iv_capid
        cospr                 = ' '
        cuobj                 = ls_vbap-cuobj
        datuv                 = sy-datum
        delnl                 = ' '
        ehndl                 = '1'
        emeng                 = '1.000'
        erskz                 = ' '
        erssl                 = ' '
        fbstp                 = ' '
        knfba                 = 'X'
        ksbvo                 = 'X'
        mbwls                 = ' '
        mktls                 = ' '
        mdmps                 = 'X'
        mdnot                 = 'X'
        mehrs                 = iv_mehrs_multiple_level
        mkmat                 = ' '
        mmory                 = '0'
        mtnrv                 = ls_vbap-matnr
        postp                 = ' '
        rndkz                 = '1'
        rvrel                 = ' '
        sanfr                 = ' '
        sanin                 = ' '
        sanka                 = ' '
        sanko                 = ' '
        sanvs                 = ' '
        schgt                 = ' '
        stkkz                 = ' '
        stlal                 = ' '
        stlan                 = ' ' "'1'  "BOM 用途，1 代表生产
        werks                 = ls_vbap-werks
        vbeln                 = iv_vbeln
        vbpos                 = iv_posnr
        qverw                 = ' '
        verid                 = iv_verid
*       SVWVO                 = ' '
*       VRSVO                 = ' '
        norvl                 = 'X'
        sgt_scat              = ' '
        sgt_rel               = ' '
      IMPORTING
        topmat                = es_topmat
        dstst                 = ev_dstst
      TABLES
        stb                   = et_stb
        matcat                = et_matcat
      EXCEPTIONS
        alt_not_found         = 06
        call_invalid          = 10
        missing_authorization = 04
        no_bom_found          = 01
        no_suitable_bom_found = 05
        no_plant_data         = 99
        error_message         = 99.