函數CS_WHERE_USED_MAT(逆查BOM)
說明﹕取的物料的上層物料
CALL FUNCTION 'CS_WHERE_USED_MAT'
EXPORTING
datub = sy-datum
datuv = sy-datum
matnr = t_afru-matnr
* POSTP = ' '
* RETCODE_ONLY = ' '
* STLAN = ' '
werks = '1000'
* IMPORTING
* TOPMAT =
TABLES
wultb = ltb
equicat = equicat
kndcat = kndcat
matcat = matcat
stdcat = stdcat
tplcat = tplcat
EXCEPTIONS
call_invalid = 1
material_not_found = 2
no_where_used_rec_found = 3
no_where_used_rec_selected = 4
no_where_used_rec_valid = 5
OTHERS = 6.
參數﹕datub: 當前日期
datuv: 當前日期
matnr: 要找回上層BOM物料的物料
werks: 工廠通常取’1000’
wultb: 所有的上層BOM物料存放在該表中(該表結構固定)
equicat: 固定結構﹐一定要
kndcat : 固定結構﹐一定要
matcat: 固定結構﹐一定要
stdcat : 固定結構﹐一定要
tplcat : 固定結構﹐一定要
示例: ZBAK_ZPP000222_LSL
BOM 展開函數(順查BOM)
16 .只展開 BOM 的函數
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = pm_capid “應用程序 一般為 PP01
datuv = pm_datuv “通常為系統的當前日期
mtnrv = pm_mtnrv “要展開BOM 的物料
mehrs = 'X' “ x 表示多層展開﹐space 表示只展開第一層
werks = pm_werks “ 通常為 1000
IMPORTING
topmat = selpool
dstst = dstst_flg
TABLES
stb = stb “展開的 BOM 存放在該內表
matcat = matcat “下面含有元件的物料存放在該內表
17 .展開與特性相關的特定款號的 BOM
CALL FUNCTION 'CS_BOM_EXPL_ KND_V1'
EXPORTING
capid = pm_capid “應用程序 一般為 PP01
datuv = pm_datuv “通常為系統的當前日期
mtnrv = pm_mtnrv “要展開BOM 的物料
cuobj = vbap_wa-cuobj “與特性相關的組態
mehrs = 'X' “ x 表示多層展開﹐space 表示只展開第一層
werks = pm_werks “ 通常為 1000
IMPORTING
topmat = selpool
dstst = dstst_flg
TABLES
stb = stb “展開的 BOM 存放在該內表
matcat = matcat “下面含有元件的物料存放在該內表
范例見系統報表程序 RCS12001
1 說明﹕內表 stb, matcat 結構固定, 輸出參數 selpool , dstst_flg 固定,
其固定結構如下:
內表:
DATA: BEGIN OF stb OCCURS 1000.
INCLUDE STRUCTURE stpox.
DATA: END OF stb.
DATA: BEGIN OF matcat OCCURS 50.
INCLUDE STRUCTURE cscmat.
DATA: END OF matcat.
輸出參數:
DATA: BEGIN OF selpool.
INCLUDE STRUCTURE cstmat.
DATA: END OF selpool.
DATA: dstst_flg LIKE csdata-xfeld.
2 說明﹕內表 stb 中的數據按第一層順序號排序﹐如第一層元件下還有BOM,
則其BOM顯示在其下面﹐并依次分層(下面BOM 也按順序號排列)
stb 下的重要字段說明如下﹕
stufe : 在整個 BOM 中的層次
tdidx : 對應 matcat-index ﹐標志直屬哪個物料下的 BOM
ojtxb : 上層物料的物料說明
ojtxp : 本身物料說明
idnrk : 元件名(即物料)
stlkn : 在各自 BOM 中的順序號
matkl : 該物料群組
mtart : 物料類型 (成品﹐半成品﹐原料)
matcat 下的重要字段 (表matcat 存放下面還有BOM
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/9333231/viewspace-277705/ ,如需转载,请注明出处,否则将追究法律责任。