多层扩展BOM的函数

<!--StartFragment -->相关的多层扩展bom的函数有很多，下面列出的是 三个最常用的物料bom扩展函数和两个文档结构扩展函数。

当然后有其它一些相关的函数,这些函数都是cs_bom开头。

在使用的时候注意这个属性 MEHRS ，如果 MEHRS = 'X' 则会多层扩展，否则，只打开当前bom。

DATA:stbTYPESTANDARDTABLEOFstpoxWITHHEADERLINE.
DATA:matcatTYPESTANDARDTABLEOFcscmatWITHHEADERLINE.
<!--StartFragment --><!--StartFragment -->

p_matTYPErc29l-matnrOBLIGATORY, 物料号
p_werTYPErc29l-werksDEFAULT'2000',"工厂
p_stlTYPErc29l-stlal,"可选择的bom
p_capTYPErc29l-capidOBLIGATORY,"bom应用 PP01 ZDES
p_datTYPErc29l-datuvDEFAULTsy-datum."日期

"扩展物料BOM1

CALLFUNCTION'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid=p_cap
datuv=p_dat
mehrs='X'
mtnrv=p_mat
stlal=p_stl

werks=p_wer

IMPORTING
topmat=topmat
TABLES
stb=stb " 详细列表
matcat=matcat "BOM列表
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.
IFsy-subrc<>0.
*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO
*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.
ENDIF.

"扩展物料BOM2

DATA:stbpTYPESTANDARDTABLEOFCSXGENWITHHEADERLINE.

CALLFUNCTION'CS_BOM_EXPLOSION'
EXPORTING
capid=p_cap
datuv=p_dat
mehrs='X'
mtnrv=p_mat
stlal=p_stl

werks=p_wer

IMPORTING
topmat=topmat
TABLES
stb=stb " 详细列表
matcat=matcat "BOM列表
EXCEPTIONS
ALT_NOT_FOUND=1
CALL_INVALID=2
MISSING_AUTHORIZATION=3
NO_BOM_FOUND=4
NO_PLANT_DATA=5
NO_SUITABLE_BOM_FOUND=6
OBJECT_NOT_FOUND=7
CONVERSION_ERROR=8
OTHERS=9IFsy-subrc<>0.
*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO
*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.
ENDIF.

"扩展物料BOM3

DATA:stbTYPESTANDARDTABLEOFstpolWITHHEADERLINE.

CALLFUNCTION'CS_BOM_EXPLOSION'
EXPORTING
capid=p_cap
datuv=p_dat
mehrs='X'
mtnrv=p_mat
stlal=p_stl

werks=p_wer

IMPORTING
topmat=topmat
TABLES
stb=stb " 详细列表
<!--StartFragment -->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
OTHERS=8
IFsy-subrc<>0.
*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO
*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.
ENDIF.

<!--StartFragment -->
"扩展文档结构1
<!--StartFragment -->

CALLFUNCTION'CS_BOM_EXPL_DOC_V1'
EXPORTING
DATUV=sy-datum
docnr=文档号
docar= 类型
doctl=部分
docvr=版本

IMPORTING
TOPDOC=返回文档结构头的文档信息
tables
stb= 返回详细清单
doccat= 返回文档结构的清单（有几个文档结构）
EXCEPTIONS
CALL_INVALID=1
DOCUMENT_NOT_FOUND=2
MISSING_AUTHORIZATION=3
NO_BOM_FOUND=4
NO_SUITABLE_BOM_FOUND=5
BOM_NOT_ACTIVE=6
BOM_FLAGGED_FOR_DELETION=7
BOM_WITHOUT_POSITIONS=8
OTHERS=9
.
IFsy-subrc<>0.
*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO
*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.
ENDIF.

"扩展文档结构2

<!--StartFragment -->CALLFUNCTION'CS_BOM_EXPL_GNRL2_V1'
EXPORTING

DATUV=sy-datum
docnr=文档号
docar= 类型
doctl=部分
docvr=版本
MEHRS='X'

<!--StartFragment -->IMPORTING
TOPDOC==
tables
stbd=
stbp=
EXCEPTIONS
CALL_INVALID=1
OBJECT_NOT_FOUND=2
MISSING_AUTHORIZATION=3
NO_BOM_FOUND=4
NO_SUITABLE_BOM_FOUND=5
BOM_NOT_ACTIVE=6
BOM_FLAGGED_FOR_DELETION=7
BOM_WITHOUT_POSITIONS=8
OTHERS=9
.
IFsy-subrc<>0.
*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO
*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.
ENDIF.