BOM展开实例 | 易学教程

report Z_PP_FIND_MULTBOM_MAT no standard page heading
 message-id YMM
 line-count 81
 line-size 650. "207
************************************************************************
*INCLUDE
************************************************************************
include <LINE>.
************************************************************************
*DDIC
************************************************************************
tables:MARA,MARC,BKPF,MARD,MAST.
************************************************************************
*ALV层级关系定义
************************************************************************
type-pools: SLIS.
data: WT_FIELDCAT type SLIS_T_FIELDCAT_ALV,
 WT_LAYOUT type SLIS_LAYOUT_ALV,
 WT_EVENTS type SLIS_T_EVENT.
data: WS_EVENTS like line of WT_EVENTS,
IT_SORT type SLIS_T_SORTINFO_ALV with header line. "ALV 排序内表
************************************************************************
*DATA
************************************************************************
data: begin of WT_ITAB occurs 10,
 MATNR like MARA-MATNR, "父件物料编码
 IDNRK like MARA-MATNR, "子件物料编码
 OJTXP like MAKT-MAKTX, "子件物料描述
 MEINS like MARA-MEINS, "子件计量单位
 MNGLG like STPOX-MNGLG,"子件用量
 LABST like MARD-LABST, "子件库存量
 LABST_01 like MARD-LABST, "附加工厂一库存量
 LABST_02 like MARD-LABST. "附加工厂二库存量
data: end of WT_ITAB.

selection-screen begin of block B1 with frame title TEXT-001.
parameters: P_WERKS like MAST-WERKS obligatory default '2001'.
select-options: P_MATNR for MAST-MATNR. "物料号
parameters: P_STLAN like MAST-STLAN default '1',"BOM 用途
 P_BMENG like STKO-BMENG,"需求数量
 X_WERKS like MARC-WERKS obligatory default '2001',
 Z_WERKS like MARC-WERKS obligatory default '2001'.
selection-screen end of block B1.

selection-screen begin of block B2 with frame title TEXT-002.
parameters: P_SING radiobutton group RAD1 default 'X'. "单层bom
parameters: P_MULT radiobutton group RAD1. "多层bom
selection-screen end of block B2.

initialization.

start-of-selection.
*得到物料的子项目
 perform GET_DATA.
*打印该BOM的数据
 perform PRINT_ALV_DATA.

end-of-selection.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form GET_DATA .

*数据定义
 data: begin of WTL_MATNR occurs 0,
 WERKS like MARC-WERKS,
 MATNR like MARA-MATNR.
 data: end of WTL_MATNR.

*展开BOM的字阶
 data: WTL_STB like STPOX occurs 10 with header line.

 select WERKS MATNR
 appending corresponding fields of table WTL_MATNR
 from MAST
 where MATNR in P_MATNR
 and WERKS eq P_WERKS.

*根据选项产生不同BOM的结构
*展多层BOM
 if P_MULT eq 'X'.

 loop at WTL_MATNR.

 refresh WTL_STB.
 clear WTL_STB.

 call function 'CS_BOM_EXPL_MAT_V2'
 exporting
 CAPID = 'PP01' "BOM Application
 DATUV = SY-DATUM "有效开始日
 EMENG = P_BMENG "BASE QUANTITY数量
 MTNRV = WTL_MATNR-MATNR
"MATERAILNUMBER物料
 STLAN = P_STLAN "bom用途
* STLAL = P_STLAL
* CUOBJ = CUOBJ
 MKTLS = 'X'
 MEHRS = 'X' "多阶层bom展开
 WERKS = WTL_MATNR-WERKS "'PDGM'工厂
 tables
 STB = WTL_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 eq 0.

 loop at WTL_STB.

 WT_ITAB-MATNR = WTL_MATNR-MATNR.
 WT_ITAB-OJTXP = WTL_STB-OJTXP.
 WT_ITAB-IDNRK = WTL_STB-IDNRK.
 WT_ITAB-MEINS = WTL_STB-MEINS.
 WT_ITAB-MNGLG = WTL_STB-MNGLG.
* P_ITAB_ITEM-STLAL = -STLAL.
* P_ITAB_ITEM-STUFE = STB-STUFE.
*查找物料的库存
 perform GET_KCDATA using WT_ITAB-IDNRK
 changing WT_ITAB-LABST
 WT_ITAB-LABST_01
 WT_ITAB-LABST_02.
 shift WT_ITAB-MATNR left deleting leading '0'. "去0
 shift WT_ITAB-IDNRK left deleting leading '0'.

 append WT_ITAB.
 clear WT_ITAB.

 endloop.

 endif.

 endloop.
 endif.

*展单层BOM

 if P_SING eq 'X'.
 loop at WTL_MATNR.

 call function 'CS_BOM_EXPL_MAT_V2'
 exporting
 CAPID = 'PP01' "BOM Application
 DATUV = SY-DATUM
 EMENG = P_BMENG "BASE QUANTITY
 MTNRV = WTL_MATNR-MATNR "MATERAIL NUMBER
 STLAN = P_STLAN
* STLAL = P_STLAL
* CUOBJ = CUOBJ
* MKTLS = 'X'
* MEHRS = 'X'
 WERKS = WTL_MATNR-WERKS "'PDGM'
 tables
 STB = WTL_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 eq 0.
 loop at WTL_STB.

 WT_ITAB-MATNR = WTL_MATNR-MATNR.
 WT_ITAB-OJTXP = WTL_STB-OJTXP.
 WT_ITAB-IDNRK = WTL_STB-IDNRK.
 WT_ITAB-MEINS = WTL_STB-MEINS.
 WT_ITAB-MNGLG = WTL_STB-MNGLG.
* P_ITAB_ITEM-STLAL = -STLAL.
* P_ITAB_ITEM-STUFE = STB-STUFE.

 perform GET_KCDATA using WT_ITAB-IDNRK
 changing WT_ITAB-LABST
 WT_ITAB-LABST_01
 WT_ITAB-LABST_02.

 shift WT_ITAB-MATNR left deleting leading '0'. "去0
 shift WT_ITAB-IDNRK left deleting leading '0'.

 append WT_ITAB.
 clear WT_ITAB.

 endloop.
 endif.

 endloop.
 endif.
endform. " GET_DATA
*&---------------------------------------------------------------------*
*& Form PRINT_ALV_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form PRINT_ALV_DATA .

 data: WLT_FIELDCAT like line of WT_FIELDCAT.

* PERFORM FILL_EVENTCAT_ALV.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'MATNR'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '父件物料编码'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'IDNRK'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '子件物料编码'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'OJTXP'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '子件物料描述'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'MEINS'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '单位'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'MNGLG'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '子件用量'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = ' LABST'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '子件库存量'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'LABST_01'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '附加工厂一库存量'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 clear WLT_FIELDCAT.
 WLT_FIELDCAT-FIELDNAME = 'LABST_02'.
 WLT_FIELDCAT-TABNAME = 'WT_ITAB'.
 WLT_FIELDCAT-NO_OUT = ' '.
 WLT_FIELDCAT-SELTEXT_L = '附加工厂二库存量'.
 append WLT_FIELDCAT to WT_FIELDCAT.

 WT_LAYOUT-ZEBRA = 'X'.
 WT_LAYOUT-F2CODE = '&ETA'.
 WT_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

 call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 I_CALLBACK_PROGRAM = SY-CPROG
 IS_LAYOUT = WT_LAYOUT
 I_CALLBACK_HTML_TOP_OF_PAGE = 'ALV_TOP_OF_PAGE'
* I_callback_pf_status_set = 'STANDARD1'
 I_DEFAULT = 'X'
 I_SAVE = 'X'
* I_CALLBACK_USER_COMMAND = 'PROCESS_USER_COMMAND'
 IT_FIELDCAT = WT_FIELDCAT[]
 IT_EVENTS = WT_EVENTS
 tables
 T_OUTTAB = WT_ITAB.

endform. " PRINT_ALV_DATA

*---------------------------------------------------------------------*
* FORM ALV_TOP_OF_PAGE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> R_DYDO *
* --> TO *
* --> CL_DD_DOCUMENT *
*---------------------------------------------------------------------*
form ALV_TOP_OF_PAGE using CL_DD type ref to CL_DD_DOCUMENT.
* SET PF-STATUS 'STANDARD1'.

 data: M_P type I.
 data: M_BUFF type STRING.

*表头其实完全可以是一个html文件，自己使用html语言进行格式控制
 M_BUFF = '<html>'.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.

* CONCATENATE '<body bgcolor="#008000">' INTO M_BUFF.
*
** M_BUFF = '<body background="BACKGROUND.GIF">'.
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.

 M_BUFF = '<center>库存配套分析表</center>'.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.

** CONCATENATE '客户名称:' KNA1-NAME1 KNA1-NAME2 ' ' INTO M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
*

** CONCATENATE 'SAP报价单号:' WT_VBAP_01-VBELN ' ' INTO M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.

* CONCATENATE '字段说明：1）交货已完成：X代表已经全部服务确认' ' '
*INTO M_BUFF.

* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
**文字移动
* CONCATENATE '<marquee
*behavior=alternate>啦啦啦，我来回走耶！</marquee> ' ' ' INTO
*M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.

* CONCATENATE '选择参数：为1 删除交货已完成为2 删除相等无误的为3
*删除完成以及无误的' ' ' INTO M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.

* SELECT SINGLE * FROM T001
* WHERE BUKRS = WS_VBELN
* AND SPRAS = '1'.
*

 concatenate '报表日期 :' SY-DATUM ' ' into M_BUFF.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.

 data: WTL_NAME1 like T001W-NAME1.
 clear WTL_NAME1.
 select single NAME1
 into WTL_NAME1
 from T001W
 where WERKS eq P_WERKS.

 concatenate '工 厂:' P_WERKS WTL_NAME1 ' ' into M_BUFF.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.

 data: WTL_NAME2 like T001W-NAME1.
 clear WTL_NAME2.
 select single NAME1
 into WTL_NAME2
 from T001W
 where WERKS eq X_WERKS.

 concatenate '附加工厂1:' X_WERKS WTL_NAME2 ' ' into M_BUFF.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.

 data: WTL_NAME3 like T001W-NAME1.
 clear WTL_NAME3.
 select single NAME1
 into WTL_NAME3
 from T001W
 where WERKS eq Z_WERKS.

 concatenate '附加工厂2:' Z_WERKS WTL_NAME3 ' ' into M_BUFF.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.

* M_BUFF = '</body>'.
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
*

 M_BUFF = '</html>'.
 call method CL_DD->HTML_INSERT
 exporting
 CONTENTS = M_BUFF
 changing
 POSITION = M_P.
endform. "ALV_TOP_OF_PAGE

*&---------------------------------------------------------------------*
*& Form GET_KCDATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_WT_ITAB_IDNRK text
* <--P_WT_ITAB_LABST text
* <--P_WT_ITAB_LABST_01 text
* <--P_WT_ITAB_LABST_02 text
*----------------------------------------------------------------------*
form GET_KCDATA using P_WT_ITAB_IDNRK
 changing P_WT_ITAB_LABST
 P_WT_ITAB_LABST_01
 P_WT_ITAB_LABST_02.
 data: WTL_RESULT type C.
 clear WTL_RESULT.

 data: begin of WTL_ITAB_101 occurs 0,
 MANDT like MARD-MANDT,
 MATNR like MARD-MATNR,
 WERKS like MARD-WERKS,
 LGORT like MARD-LGORT,
 LABST like MARD-LABST,
 INSME like MARD-INSME,
 DISKZ like MARD-DISKZ,
 KLABS like MARD-KLABS.
 data: end of WTL_ITAB_101.

 select MANDT MATNR WERKS LGORT INSME LABST DISKZ KLABS
 from MARD
 into corresponding fields of table WTL_ITAB_101
 where WERKS eq P_WERKS
 and MATNR = P_WT_ITAB_IDNRK
 and DISKZ <> '1'
 order by MATNR .

 P_WT_ITAB_LABST = 0.
* KSTOR = 0.

 if WTL_ITAB_101[] is initial.
 P_WT_ITAB_LABST = 0.
* KSTOR = 0.
 endif.

 loop at WTL_ITAB_101 .
 P_WT_ITAB_LABST = P_WT_ITAB_LABST + WTL_ITAB_101-LABST +
WTL_ITAB_101-KLABS.
* KSTOR = KSTOR + ITAB_101-LABST + ITAB_101-klabs.
 endloop.

*检查物料的工厂是否存在
 perform CHECK_MAT using P_WT_ITAB_IDNRK
 X_WERKS
 changing WTL_RESULT.

*检查参考工厂1的库存

 if WTL_RESULT ne 'X'.
 select MANDT MATNR WERKS LGORT INSME LABST DISKZ KLABS
 from MARD
 into corresponding fields of table WTL_ITAB_101
 where WERKS eq X_WERKS
 and MATNR = P_WT_ITAB_IDNRK
 and DISKZ <> '1'
 order by MATNR .

 if WTL_ITAB_101[] is initial.
 P_WT_ITAB_LABST_01 = 0.
* KSTOR = 0.
 endif.

 loop at WTL_ITAB_101.
 P_WT_ITAB_LABST_01 = P_WT_ITAB_LABST_01 + WTL_ITAB_101-LABST +
WTL_ITAB_101-KLABS.
* KSTOR = KSTOR + ITAB_101-LABST + ITAB_101-klabs.
 endloop.
 endif.

*检查参考工厂2
 perform CHECK_MAT using P_WT_ITAB_IDNRK
 Z_WERKS
 changing WTL_RESULT.
*从参考工厂2中取数据

 if WTL_RESULT ne 'X'.

 select MANDT MATNR WERKS LGORT INSME LABST DISKZ KLABS
 from MARD
 into corresponding fields of table WTL_ITAB_101
 where WERKS eq Z_WERKS
 and MATNR = P_WT_ITAB_IDNRK
 and DISKZ <> '1'
 order by MATNR .

 if WTL_ITAB_101[] is initial.
 P_WT_ITAB_LABST_02 = 0.
* KSTOR = 0.
 endif.

 loop at WTL_ITAB_101.
 P_WT_ITAB_LABST_02 = P_WT_ITAB_LABST_02 + WTL_ITAB_101-LABST +
 WTL_ITAB_101-KLABS.
* KSTOR = KSTOR + ITAB_101-LABST + ITAB_101-klabs.
 endloop.
 endif.

endform. " GET_KCDATA

*&---------------------------------------------------------------------*
*& Form CHECK_MAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_CH_ITEM text
* -->P_X_WERKS text
* <--P_WTL_RESULT text
*----------------------------------------------------------------------*
form CHECK_MAT using P_CH_ITEM
 P_X_WERKS
 changing P_WTL_RESULT.

 if P_X_WERKS ne P_WERKS.

 select single *
 from MARC
 where MATNR eq P_CH_ITEM
 and WERKS eq P_X_WERKS.

 if SY-SUBRC ne SPACE.
 P_WTL_RESULT = 'X'.
 endif.

 else.

 P_WTL_RESULT = 'X'.

 endif.

endform. " CHECK_MAT

来源：https://www.cnblogs.com/elegantok/archive/2008/11/13/1332818.html

标签

position

append

bom