REPORT bom.
TABLES : vbap, stpo, mast, tc04, makt ,stpox .
TYPE-POOLS: slis.
DATA: fieldcat TYPE slis_t_fieldcat_alv,
fieldcat_ln LIKE LINE OF fieldcat,
event_exit TYPE slis_t_event_exit,
event_exit_ln LIKE LINE OF event_exit,
sortcat TYPE slis_t_sortinfo_alv,
sortcat_ln LIKE LINE OF sortcat,
eventcat TYPE slis_t_event,
eventcat_ln LIKE LINE OF eventcat.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA: gc_formname_top_of_page TYPE slis_formname
VALUE 'ALV_TOP_OF_PAGE'.
DATA : ps_layout TYPE slis_layout_alv.
DATA: bom_itab LIKE TABLE OF stpox WITH HEADER LINE.
*DATA: itab LIKE TABLE OF zst_pp_0001 WITH HEADER LINE.
DATA:BEGIN OF tp OCCURS 0,
box TYPE char1,
matnr LIKE mast-matnr,
stlnr LIKE mast-stlnr,
stlal LIKE mast-stlal,
END OF tp.
DATA:BEGIN OF tpidnrk OCCURS 0,
matnr LIKE mast-matnr,
stlal LIKE mast-stlal,
END OF tpidnrk.
DATA : BEGIN OF itab OCCURS 0, "定#一##表(明#)
matnr LIKE mast-matnr,
matnp LIKE mast-matnr,
stlnr LIKE mast-stlnr,
maktx LIKE makt-maktx,
maktx2 LIKE makt-maktx,
idnrp LIKE stpo-idnrk,
stlkn LIKE stpo-stlkn,
idnrk LIKE stpo-idnrk,
menge LIKE stpo-menge,
meins LIKE stpo-meins,
z_index(3) TYPE c,
END OF itab.
DATA : i_mat LIKE TABLE OF tp WITH HEADER LINE.
DATA : no TYPE i.
DATA: wa_stlal LIKE mast-stlal.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
SELECT-OPTIONS: s_matnr FOR vbap-matnr MEMORY ID 4.
PARAMETERS : p_werks LIKE aufk-werks
OBLIGATORY MEMORY ID 1.
PARAMETERS : p_capid LIKE tc04-capid DEFAULT 'PP01'.
SELECTION-SCREEN : END OF BLOCK b1.
INITIALIZATION.
t1 = '選擇條件'.
START-OF-SELECTION.
SELECT matnr stlnr stlal
FROM mast INTO (tp-matnr,tp-stlnr,tp-stlal)
WHERE matnr IN s_matnr
AND werks EQ p_werks.
APPEND tp.
CLEAR tp.
ENDSELECT.
LOOP AT tp.
PERFORM cs_bom_expl_mat_v2 USING tp-matnr
p_capid
p_werks
tp-stlal.
no = 0.
LOOP AT bom_itab WHERE stufe = 1.
no = no + 1.
itab-z_index = no.
itab-matnr = tp-matnr.
SELECT SINGLE maktx INTO itab-maktx
FROM makt
WHERE matnr = tp-matnr.
MOVE-CORRESPONDING bom_itab TO itab.
tpidnrk-matnr = itab-idnrk.
tpidnrk-stlal = tp-stlal.
SELECT SINGLE maktx INTO itab-maktx2
FROM makt
WHERE matnr = itab-idnrk.
* AND spras = '1'.
* SELECT SINGLE zeinr bismt
* INTO (itab-zeinr,itab-bismt)
* FROM mara
* WHERE matnr = itab-idnrk.
IF itab-matnr+0(1) <> '0'.
itab-matnp = itab-matnr.
ELSEIF itab-matnr+0(1) = '0'.
itab-matnp = itab-matnr+1(10) .
ENDIF.
itab-idnrp = itab-idnrk.
APPEND itab.
APPEND tpidnrk.
CLEAR tpidnrk.
CLEAR itab.
CLEAR bom_itab.
ENDLOOP.
ENDLOOP.
END-OF-SELECTION.
LOOP AT tpidnrk .
SELECT SINGLE * FROM mast
WHERE matnr EQ tpidnrk-matnr.
IF sy-subrc = 0.
PERFORM cs_bom_expl_mat_v2 USING tpidnrk-matnr
p_capid
p_werks
tpidnrk-stlal.
no = 0.
DELETE tpidnrk.
LOOP AT bom_itab WHERE stufe = 1.
no = no + 1.
itab-z_index = no.
itab-matnr = tpidnrk-matnr.
SELECT SINGLE maktx INTO itab-maktx
FROM makt
WHERE matnr = tpidnrk-matnr.
MOVE-CORRESPONDING bom_itab TO itab.
tpidnrk-matnr = itab-idnrk.
SELECT SINGLE maktx INTO itab-maktx2
FROM makt
WHERE matnr = itab-idnrk.
* AND spras = '1'.
* SELECT SINGLE zeinr bismt
* INTO (itab-zeinr,itab-bismt)
* FROM mara
* WHERE matnr = itab-idnrk.
IF itab-matnr+0(1) <> '0'.
itab-matnp = itab-matnr.
ELSEIF itab-matnr+0(1) = '0'.
itab-matnp = itab-matnr+1(10) .
ENDIF.
itab-idnrp = itab-idnrk.
APPEND itab.
APPEND tpidnrk.
CLEAR tpidnrk.
CLEAR itab.
CLEAR bom_itab.
ENDLOOP.
ENDIF.
* APPEND tpidnrk.
ENDLOOP.
REFRESH gt_list_top_of_page[].
PERFORM e04_comment_build .
CLEAR fieldcat.
REFRESH fieldcat.
PERFORM build_fieldcat.
PERFORM build_eventcat.
PERFORM alv_display.
*&--------------------------------------------------------------------*
*& Form e04_comment_build
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM e04_comment_build.
DATA : list_line LIKE LINE OF gt_list_top_of_page.
list_line-typ = 'H'.
list_line-key = ''.
list_line-info = '物料清單（BOM）明細'.
APPEND list_line TO gt_list_top_of_page.
CLEAR list_line.
list_line-typ = 'S'.
list_line-key = '工厂'.
list_line-info = p_werks.
APPEND list_line TO gt_list_top_of_page.
CLEAR list_line.
list_line-typ = 'H'.
list_line-key = ''.
list_line-info = ''.
APPEND list_line TO gt_list_top_of_page.
ENDFORM. " e04_comment_build
*&--------------------------------------------------------------------*
*& Form build_eventcat
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM build_eventcat.
DATA : ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = eventcat.
READ TABLE eventcat
WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE gc_formname_top_of_page TO ls_event-form.
APPEND ls_event TO eventcat.
ENDIF.
ENDFORM. " build_eventcat
*&----------------------------------------------------
*& Form alv_display
* text
*-----------------------------------------------------
* --〉 p1 text
* 〈 -- p2 text
*-----------------------------------------------------
FORM alv_display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZWT_PP05'
* I_CALLBACK_USER_COMMAND = 'COMMAND_EXECUTE'
is_layout = ps_layout
it_fieldcat = fieldcat
i_save = 'A'
it_events = eventcat
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. " alv_display
*&--------------------------------------------------------------------*
*& Form alv_top_of_page
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM alv_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = gt_list_top_of_page.
ENDFORM. "alv_top_of_page
*-----------------------------------------------------
* FORM build_fieldcat
*-----------------------------------------------------
* ........
*-----------------------------------------------------
FORM build_fieldcat.
DATA : col_pos TYPE i VALUE 0.
ps_layout-get_selinfos = 'X'.
ps_layout-colwidth_optimize = 'X'.
ps_layout-detail_popup = 'X'.
*PS_LAYOUT-BOX_FIELDNAME = 'FLAG'.
ps_layout-no_keyfix = ''.
*PS_LAYOUT-KEY_HOTSPOT = 'X'.
ps_layout-colwidth_optimize = 'X'.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'Z_INDEX'.
fieldcat_ln-fieldname = 'Z_INDEX'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = '序號'.
fieldcat_ln-seltext_l = '序號'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = '序號'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'MATNR'.
fieldcat_ln-fieldname = 'MATNR'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = '產品編號'.
fieldcat_ln-seltext_l = '產品編號'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = '產品編號'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'MAKTX'.
fieldcat_ln-fieldname = 'MAKTX'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = '產品描述'.
fieldcat_ln-seltext_l = '產品描述'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = '產品描述'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'IDNRP'.
fieldcat_ln-fieldname = 'IDNRP'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = 'BOM物料編號'.
fieldcat_ln-seltext_l = 'BOM物料編號'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = 'BOM物料編號'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'MAKTX2'.
fieldcat_ln-fieldname = 'MAKTX2'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = 'BOM物料描述'.
fieldcat_ln-seltext_l = 'BOM物料描述'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = 'BOM物料描述'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'MEINS'.
fieldcat_ln-fieldname = 'MEINS'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = '單位'.
fieldcat_ln-seltext_l = '單位'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = '單位'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
* fieldcat_ln-ref_tabname = 'ITAB8'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = 'MENGE'.
fieldcat_ln-fieldname = 'MENGE'.
fieldcat_ln-key = 'X'.
fieldcat_ln-seltext_s = '數量'.
fieldcat_ln-seltext_l = '數量'.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic = '數量'.
fieldcat_ln-col_pos = col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ENDFORM. "build_fieldcat
*-----------------------------------------------------
* FORM BUILD_FIELDCAT_SUB
*-----------------------------------------------------
* ........
*-----------------------------------------------------
* --〉 VALUE(P_COL_POS)
* --〉 VALUE(P_FIELDNAME)
* --〉 VALUE(P_SELTEXT)
*-----------------------------------------------------
FORM build_fieldcat_sub USING value(p_col_pos)
value(p_fieldname)
value(p_seltext).
* ADD 1 TO COL_POS.
* fieldcat_ln-ref_tabname = 'ZST_PP_0001'.
fieldcat_ln-tabname = 'ITAB'.
fieldcat_ln-ref_fieldname = p_fieldname.
fieldcat_ln-fieldname = p_fieldname.
* FIELDCAT_LN-KEY = 'X'.
fieldcat_ln-seltext_s = p_seltext.
fieldcat_ln-seltext_l = p_seltext.
fieldcat_ln-seltext_m = fieldcat_ln-reptext_ddic =
p_seltext.
fieldcat_ln-col_pos = p_col_pos.
APPEND fieldcat_ln TO fieldcat.
CLEAR fieldcat_ln.
ENDFORM. " BUILD_FIELDCAT_SUB
*-----------------------------------------------------
* FORM CS_BOM_EXPL_MAT_V2
* ........
* --〉 MATNR
* --〉 CAPID
* --〉 WERKS
*-----------------------------------------------------
FORM cs_bom_expl_mat_v2 USING matnr LIKE afpo-matnr
capid LIKE tc04-capid
werks LIKE ekpo-werks
stlal LIKE mast-stlal.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
aumng = 0
capid = capid
datuv = sy-datum
mehrs = 'X'
mtnrv = matnr
stlal = stlal
stlan = '1'
werks = werks
TABLES
stb = bom_itab
* MATCAT =
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
.
ENDFORM. "CS_BOM_EXPL_MAT_V2