多层扩展BOM的函数

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

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

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

DATA: stb TYPE STANDARD TABLE OF stpox  WITH HEADER LINE.
DATA:  matcat TYPE STANDARD TABLE OF cscmat WITH HEADER LINE. 
TYPE  rc29l-matnr OBLIGATORY,        物料号
                p_wer TYPE  rc29l-werks  DEFAULT '2000'  ,   "工厂
                p_stl TYPE  rc29l-stlal,                     " 可选择的bom
                p_cap TYPE  rc29l-capid OBLIGATORY,          "bom应用  PP01  ZDES
                p_dat TYPE  rc29l-datuv DEFAULT sy-datum.  "日期
   
"扩展物料BOM1
CALL FUNCTION '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.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.  
 
 
"扩展物料BOM2
 
 
DATA: stbp  TYPE STANDARD TABLE OF CSXGEN WITH HEADER LINE.
CALL FUNCTION '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                      = 9   IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.  
  
 
"扩展物料BOM3 
 
DATA: stb  TYPE STANDARD TABLE OF stpol WITH HEADER LINE.
CALL FUNCTION '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           " 详细列表
 
    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 
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.  
 
 
 
  
"扩展文档结构 1
 
   

CALL FUNCTION '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
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF. 

 
"扩展文档结构 2CALL FUNCTION 'CS_BOM_EXPL_GNRL2_V1'
  EXPORTING

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

  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
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

【本文由：武汉网站建设 http://www.1234xp.com/wuhan.html 网络转载请说明出处】