多階BOM展開

roadsky 2010-07-06

展開全文

多階BOM展開

*&---------------------------------------------------------------------*
*& Report Z_PP_FIND_MULTBOM_MAT

*-----------------------------------------------------------------------
* Identification
* Modul-Name : ZPPPR005
* Author : Samuel Liu Atos Origin Modified by:wiele
* Creation date : 11.09.2006 Modified on: 01.2005
* Owner : PP module
* Dev. under SAP : ECC6.0
* Description : MRP物料清單
*-----------------------------------------------------------------------
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層級(jí)關(guān)系定義
************************************************************************
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.
************************************************************************
*DATA
************************************************************************
DATA: BEGIN OF WT_ITAB OCCURS 10,
 MATNR LIKE MARA-MATNR, "父件物料編碼
 IDNRK LIKE MARA-MATNR, "子件物料編碼
 OJTXP LIKE MAKT-MAKTX, "子件物料描述
 MEINS LIKE MARA-MEINS, "子件計(jì)量單位
 MNGLG LIKE STPOX-MNGLG,"子件用量
 LABST LIKE MARD-LABST, "子件庫(kù)存量
 LABST_01 LIKE MARD-LABST, "附加工廠一庫(kù)存量
 LABST_02 LIKE MARD-LABST. "附加工廠二庫(kù)存量
DATA: END OF WT_ITAB.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: P_WERKS LIKE MAST-WERKS OBLIGATORY DEFAULT 'FZ01'.
SELECT-OPTIONS: P_MATNR FOR MAST-MATNR. "物料號(hào)
PARAMETERS: P_STLAN LIKE MAST-STLAN DEFAULT '1',"BOM 用途
 P_BMENG LIKE STKO-BMENG,"需求數(shù)量
 x_werks LIKE marc-werks OBLIGATORY DEFAULT 'G001',
 z_werks LIKE marc-werks OBLIGATORY DEFAULT 'G001'.
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'.
PARAMETERS: P_MULT RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK b2.

INITIALIZATION.

START-OF-SELECTION.
*得到物料的子項(xiàng)目
 PERFORM GET_DATA.
*打印該BOM的數(shù)據(jù)
 PERFORM PRINT_ALV_DATA.

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .

*數(shù)據(jù)定義
 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.

*根據(jù)選項(xiàng)產(chǎn)生不同BOM的結(jié)構(gòu)
*展多層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 = 'PP02' "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.
*查找物料的庫(kù)存
 PERFORM GET_KCDATA USING WT_ITAB-IDNRK
 CHANGING WT_ITAB-LABST
 WT_ITAB-LABST_01
 WT_ITAB-LABST_02.
 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 = 'PP02' "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.

 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 = '子件庫(kù)存量'.
 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 = '附加工廠一庫(kù)存量'.
 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 = '附加工廠二庫(kù)存量'.
 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.

*表頭其實(shí)完全可以是一個(gè)html文件，自己使用html語(yǔ)言進(jìn)行格式控制
 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>庫(kù)存配套分析表</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報(bào)價(jià)單號(hào):' WT_VBAP_01-VBELN ' ' INTO M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.

* CONCATENATE '字段說(shuō)明：1）交貨已完成：X代表已經(jīng)全部服務(wù)確認(rèn)' ' '
*INTO M_BUFF.

* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
**文字移動(dòng)
* CONCATENATE '<marquee
*behavior=alternate>啦啦啦，我來(lái)回走耶！</marquee> ' ' ' INTO
*M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.

* CONCATENATE '選擇參數(shù)：為1 刪除交貨已完成為2 刪除相等無(wú)誤的為3
*刪除完成以及無(wú)誤的' ' ' 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 '報(bào)表日期 :' 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的庫(kù)存

 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中取數(shù)據(jù)

 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

18:33:59 | 添加評(píng)論 | 固定鏈接 | 寫入日志

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自： roadsky > 《sap abap》

舉報(bào)/認(rèn)領(lǐng)