*&---------------------------------------------------------------------*
*& 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層級關(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, "子件計量單位
MNGLG LIKE STPOX-MNGLG,"子件用量
LABST LIKE MARD-LABST, "子件庫存量
LABST_01 LIKE MARD-LABST, "附加工廠(chǎng)一庫存量
LABST_02 LIKE MARD-LABST. "附加工廠(chǎng)二庫存量
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. "物料號
PARAMETERS: P_STLAN LIKE MAST-STLAN DEFAULT '1',"BOM 用途
P_BMENG LIKE STKO-BMENG,"需求數量
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.
*得到物料的子項目
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.
*展開(kāi)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.
*根據選項產(chǎn)生不同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 = '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.
*展單層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 = '子件庫存量'.
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 = '附加工廠(chǎng)一庫存量'.
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 = '附加工廠(chǎng)二庫存量'.
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><font size="5">庫存配套分析表</font></center>'.
CALL METHOD CL_DD->HTML_INSERT
EXPORTING
CONTENTS = M_BUFF
CHANGING
POSITION = M_P.
** CONCATENATE '客戶(hù)名稱(chēng):' KNA1-NAME1 KNA1-NAME2 '<BR>' INTO M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
*
** CONCATENATE 'SAP報價(jià)單號:' WT_VBAP_01-VBELN '<BR>' INTO M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
* CONCATENATE '字段說(shuō)明：1）交貨已完成：X代表已經(jīng)全部服務(wù)確認' '<BR>'
*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> ' '<BR>' INTO
*M_BUFF.
*
* CALL METHOD CL_DD->HTML_INSERT
* EXPORTING
* CONTENTS = M_BUFF
* CHANGING
* POSITION = M_P.
* CONCATENATE '選擇參數：為1 刪除交貨已完成 為2 刪除相等無(wú)誤的 為3
*刪除完成以及無(wú)誤的' '<BR>' 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 '<BR>' 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 '工 廠(chǎng):' P_WERKS WTL_NAME1 '<BR>' 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 '附加工廠(chǎng)1:' X_WERKS WTL_NAME2 '<BR>' 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 '附加工廠(chǎng)2:' Z_WERKS WTL_NAME3 '<BR>' 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.
*檢查物料的工廠(chǎng)是否存在
PERFORM CHECK_MAT USING P_WT_ITAB_IDNRK
X_WERKS
CHANGING WTL_RESULT.
*檢查參考工廠(chǎng)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.
*檢查參考工廠(chǎng)2
PERFORM CHECK_MAT USING P_WT_ITAB_IDNRK
Z_WERKS
CHANGING WTL_RESULT.
*從參考工廠(chǎng)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
