REPORT bom.
REPORTbom.
TABLES:vbap,stpo,mast,tc04,makt,stpox.
TYPE-POOLS:slis.
DATA:fieldcatTYPEslis_t_fieldcat_alv,
fieldcat_lnLIKELINEOFfieldcat,
event_exitTYPEslis_t_event_exit,
event_exit_lnLIKELINEOFevent_exit,
sortcatTYPEslis_t_sortinfo_alv,
sortcat_lnLIKELINEOFsortcat,
eventcatTYPEslis_t_event,
eventcat_lnLIKELINEOFeventcat.
DATA:gt_list_top_of_pageTYPEslis_t_listheader.
DATA:gc_formname_top_of_pageTYPEslis_formname
VALUE'ALV_TOP_OF_PAGE'.
DATA:ps_layoutTYPEslis_layout_alv.
DATA:bom_itabLIKETABLEOFstpoxWITHHEADERLINE.
*DATA:itabLIKETABLEOFzst_pp_0001WITHHEADERLINE.
DATA:BEGINOFtpOCCURS0,
boxTYPEchar1,
matnrLIKEmast-matnr,
stlnrLIKEmast-stlnr,
stlalLIKEmast-stlal,
ENDOFtp.
DATA:BEGINOFtpidnrkOCCURS0,
matnrLIKEmast-matnr,
stlalLIKEmast-stlal,
ENDOFtpidnrk.
DATA:BEGINOFitabOCCURS0,"定#一##表(明#)
matnrLIKEmast-matnr,
matnpLIKEmast-matnr,
stlnrLIKEmast-stlnr,
maktxLIKEmakt-maktx,
maktx2LIKEmakt-maktx,
idnrpLIKEstpo-idnrk,
stlknLIKEstpo-stlkn,
idnrkLIKEstpo-idnrk,
mengeLIKEstpo-menge,
meinsLIKEstpo-meins,
z_index(3)TYPEc,
ENDOFitab.
DATA:i_matLIKETABLEOFtpWITHHEADERLINE.
DATA:noTYPEi.
DATA:wa_stlalLIKEmast-stlal.
SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAMETITLEt1.
SELECT-OPTIONS:s_matnrFORvbap-matnrMEMORYID4.
PARAMETERS:p_werksLIKEaufk-werks
OBLIGATORYMEMORYID1.
PARAMETERS:p_capidLIKEtc04-capidDEFAULT'PP01'.
SELECTION-SCREEN:ENDOFBLOCKb1.
INITIALIZATION.
t1='選擇條件'.
START-OF-SELECTION.
SELECTmatnrstlnrstlal
FROMmastINTO(tp-matnr,tp-stlnr,tp-stlal)
WHEREmatnrINs_matnr
ANDwerksEQp_werks.
APPENDtp.
CLEARtp.
ENDSELECT.
LOOPATtp.
PERFORMcs_bom_expl_mat_v2USINGtp-matnr
p_capid
p_werks
tp-stlal.
no=0.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tp-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tp-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
tpidnrk-stlal=tp-stlal.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDLOOP.
END-OF-SELECTION.
LOOPATtpidnrk.
SELECTSINGLE*FROMmast
WHEREmatnrEQtpidnrk-matnr.
IFsy-subrc=0.
PERFORMcs_bom_expl_mat_v2USINGtpidnrk-matnr
p_capid
p_werks
tpidnrk-stlal.
no=0.
DELETEtpidnrk.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tpidnrk-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tpidnrk-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDIF.
*APPENDtpidnrk.
ENDLOOP.
REFRESHgt_list_top_of_page[].
PERFORMe04_comment_build.
CLEARfieldcat.
REFRESHfieldcat.
PERFORMbuild_fieldcat.
PERFORMbuild_eventcat.
PERFORMalv_display.
*&--------------------------------------------------------------------*
*&Forme04_comment_build
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMe04_comment_build.
DATA:list_lineLIKELINEOFgt_list_top_of_page.
list_line-typ='H'.
list_line-key=''.
list_line-info='物料清單（BOM）明細'.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='S'.
list_line-key='工厂'.
list_line-info=p_werks.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='H'.
list_line-key=''.
list_line-info=''.
APPENDlist_lineTOgt_list_top_of_page.
ENDFORM."e04_comment_build
*&--------------------------------------------------------------------*
*&Formbuild_eventcat
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMbuild_eventcat.
DATA:ls_eventTYPEslis_alv_event.
CALLFUNCTION'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type=0
IMPORTING
et_events=eventcat.
READTABLEeventcat
WITHKEYname=slis_ev_top_of_page
INTOls_event.
IFsy-subrc=0.
MOVEgc_formname_top_of_pageTOls_event-form.
APPENDls_eventTOeventcat.
ENDIF.
ENDFORM."build_eventcat
*&----------------------------------------------------
*&Formalv_display
*text
*-----------------------------------------------------
*--〉p1text
*〈--p2text
*-----------------------------------------------------
FORMalv_display.
CALLFUNCTION'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
*&--------------------------------------------------------------------*
*&Formalv_top_of_page
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMalv_top_of_page.
CALLFUNCTION'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary=gt_list_top_of_page.
ENDFORM."alv_top_of_page
*-----------------------------------------------------
*FORMbuild_fieldcat
*-----------------------------------------------------
*........
*-----------------------------------------------------
FORMbuild_fieldcat.
DATA:col_posTYPEiVALUE0.
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'.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."build_fieldcat
*-----------------------------------------------------
*FORMBUILD_FIELDCAT_SUB
*-----------------------------------------------------
*........
*-----------------------------------------------------
*--〉VALUE(P_COL_POS)
*--〉VALUE(P_FIELDNAME)
*--〉VALUE(P_SELTEXT)
*-----------------------------------------------------
FORMbuild_fieldcat_subUSINGvalue(p_col_pos)
value(p_fieldname)
value(p_seltext).
*ADD1TOCOL_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."BUILD_FIELDCAT_SUB
*-----------------------------------------------------
*FORMCS_BOM_EXPL_MAT_V2
*........
*--〉MATNR
*--〉CAPID
*--〉WERKS
*-----------------------------------------------------
FORMcs_bom_expl_mat_v2USINGmatnrLIKEafpo-matnr
capidLIKEtc04-capid
werksLIKEekpo-werks
stlalLIKEmast-stlal.
CALLFUNCTION'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 .
TABLES:vbap,stpo,mast,tc04,makt,stpox.
TYPE-POOLS:slis.
DATA:fieldcatTYPEslis_t_fieldcat_alv,
fieldcat_lnLIKELINEOFfieldcat,
event_exitTYPEslis_t_event_exit,
event_exit_lnLIKELINEOFevent_exit,
sortcatTYPEslis_t_sortinfo_alv,
sortcat_lnLIKELINEOFsortcat,
eventcatTYPEslis_t_event,
eventcat_lnLIKELINEOFeventcat.
DATA:gt_list_top_of_pageTYPEslis_t_listheader.
DATA:gc_formname_top_of_pageTYPEslis_formname
VALUE'ALV_TOP_OF_PAGE'.
DATA:ps_layoutTYPEslis_layout_alv.
DATA:bom_itabLIKETABLEOFstpoxWITHHEADERLINE.
*DATA:itabLIKETABLEOFzst_pp_0001WITHHEADERLINE.
DATA:BEGINOFtpOCCURS0,
boxTYPEchar1,
matnrLIKEmast-matnr,
stlnrLIKEmast-stlnr,
stlalLIKEmast-stlal,
ENDOFtp.
DATA:BEGINOFtpidnrkOCCURS0,
matnrLIKEmast-matnr,
stlalLIKEmast-stlal,
ENDOFtpidnrk.
DATA:BEGINOFitabOCCURS0,"定#一##表(明#)
matnrLIKEmast-matnr,
matnpLIKEmast-matnr,
stlnrLIKEmast-stlnr,
maktxLIKEmakt-maktx,
maktx2LIKEmakt-maktx,
idnrpLIKEstpo-idnrk,
stlknLIKEstpo-stlkn,
idnrkLIKEstpo-idnrk,
mengeLIKEstpo-menge,
meinsLIKEstpo-meins,
z_index(3)TYPEc,
ENDOFitab.
DATA:i_matLIKETABLEOFtpWITHHEADERLINE.
DATA:noTYPEi.
DATA:wa_stlalLIKEmast-stlal.
SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAMETITLEt1.
SELECT-OPTIONS:s_matnrFORvbap-matnrMEMORYID4.
PARAMETERS:p_werksLIKEaufk-werks
OBLIGATORYMEMORYID1.
PARAMETERS:p_capidLIKEtc04-capidDEFAULT'PP01'.
SELECTION-SCREEN:ENDOFBLOCKb1.
INITIALIZATION.
t1='選擇條件'.
START-OF-SELECTION.
SELECTmatnrstlnrstlal
FROMmastINTO(tp-matnr,tp-stlnr,tp-stlal)
WHEREmatnrINs_matnr
ANDwerksEQp_werks.
APPENDtp.
CLEARtp.
ENDSELECT.
LOOPATtp.
PERFORMcs_bom_expl_mat_v2USINGtp-matnr
p_capid
p_werks
tp-stlal.
no=0.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tp-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tp-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
tpidnrk-stlal=tp-stlal.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDLOOP.
END-OF-SELECTION.
LOOPATtpidnrk.
SELECTSINGLE*FROMmast
WHEREmatnrEQtpidnrk-matnr.
IFsy-subrc=0.
PERFORMcs_bom_expl_mat_v2USINGtpidnrk-matnr
p_capid
p_werks
tpidnrk-stlal.
no=0.
DELETEtpidnrk.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tpidnrk-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tpidnrk-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDIF.
*APPENDtpidnrk.
ENDLOOP.
REFRESHgt_list_top_of_page[].
PERFORMe04_comment_build.
CLEARfieldcat.
REFRESHfieldcat.
PERFORMbuild_fieldcat.
PERFORMbuild_eventcat.
PERFORMalv_display.
*&--------------------------------------------------------------------*
*&Forme04_comment_build
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMe04_comment_build.
DATA:list_lineLIKELINEOFgt_list_top_of_page.
list_line-typ='H'.
list_line-key=''.
list_line-info='物料清單（BOM）明細'.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='S'.
list_line-key='工厂'.
list_line-info=p_werks.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='H'.
list_line-key=''.
list_line-info=''.
APPENDlist_lineTOgt_list_top_of_page.
ENDFORM."e04_comment_build
*&--------------------------------------------------------------------*
*&Formbuild_eventcat
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMbuild_eventcat.
DATA:ls_eventTYPEslis_alv_event.
CALLFUNCTION'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type=0
IMPORTING
et_events=eventcat.
READTABLEeventcat
WITHKEYname=slis_ev_top_of_page
INTOls_event.
IFsy-subrc=0.
MOVEgc_formname_top_of_pageTOls_event-form.
APPENDls_eventTOeventcat.
ENDIF.
ENDFORM."build_eventcat
*&----------------------------------------------------
*&Formalv_display
*text
*-----------------------------------------------------
*--〉p1text
*〈--p2text
*-----------------------------------------------------
FORMalv_display.
CALLFUNCTION'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
*&--------------------------------------------------------------------*
*&Formalv_top_of_page
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMalv_top_of_page.
CALLFUNCTION'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary=gt_list_top_of_page.
ENDFORM."alv_top_of_page
*-----------------------------------------------------
*FORMbuild_fieldcat
*-----------------------------------------------------
*........
*-----------------------------------------------------
FORMbuild_fieldcat.
DATA:col_posTYPEiVALUE0.
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'.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."build_fieldcat
*-----------------------------------------------------
*FORMBUILD_FIELDCAT_SUB
*-----------------------------------------------------
*........
*-----------------------------------------------------
*--〉VALUE(P_COL_POS)
*--〉VALUE(P_FIELDNAME)
*--〉VALUE(P_SELTEXT)
*-----------------------------------------------------
FORMbuild_fieldcat_subUSINGvalue(p_col_pos)
value(p_fieldname)
value(p_seltext).
*ADD1TOCOL_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."BUILD_FIELDCAT_SUB
*-----------------------------------------------------
*FORMCS_BOM_EXPL_MAT_V2
*........
*--〉MATNR
*--〉CAPID
*--〉WERKS
*-----------------------------------------------------
FORMcs_bom_expl_mat_v2USINGmatnrLIKEafpo-matnr
capidLIKEtc04-capid
werksLIKEekpo-werks
stlalLIKEmast-stlal.
CALLFUNCTION'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 优质内容筛选与推荐>>
1、【最小割】BZOJ3438-小M的作物(Rank 2???!!!)（含新款Dinic模板）
2、开发---【开始为数组的Json数据练习示例】
3、wp7（windows phone 7 ）开发者帐号注册，dreamspark注册，edu.cn节约99刀
4、sqlserver2008锁表语句详解(锁定数据库一个表)
5、第二章 数据库的建立
TABLES:vbap,stpo,mast,tc04,makt,stpox.
TYPE-POOLS:slis.
DATA:fieldcatTYPEslis_t_fieldcat_alv,
fieldcat_lnLIKELINEOFfieldcat,
event_exitTYPEslis_t_event_exit,
event_exit_lnLIKELINEOFevent_exit,
sortcatTYPEslis_t_sortinfo_alv,
sortcat_lnLIKELINEOFsortcat,
eventcatTYPEslis_t_event,
eventcat_lnLIKELINEOFeventcat.
DATA:gt_list_top_of_pageTYPEslis_t_listheader.
DATA:gc_formname_top_of_pageTYPEslis_formname
VALUE'ALV_TOP_OF_PAGE'.
DATA:ps_layoutTYPEslis_layout_alv.
DATA:bom_itabLIKETABLEOFstpoxWITHHEADERLINE.
*DATA:itabLIKETABLEOFzst_pp_0001WITHHEADERLINE.
DATA:BEGINOFtpOCCURS0,
boxTYPEchar1,
matnrLIKEmast-matnr,
stlnrLIKEmast-stlnr,
stlalLIKEmast-stlal,
ENDOFtp.
DATA:BEGINOFtpidnrkOCCURS0,
matnrLIKEmast-matnr,
stlalLIKEmast-stlal,
ENDOFtpidnrk.
DATA:BEGINOFitabOCCURS0,"定#一##表(明#)
matnrLIKEmast-matnr,
matnpLIKEmast-matnr,
stlnrLIKEmast-stlnr,
maktxLIKEmakt-maktx,
maktx2LIKEmakt-maktx,
idnrpLIKEstpo-idnrk,
stlknLIKEstpo-stlkn,
idnrkLIKEstpo-idnrk,
mengeLIKEstpo-menge,
meinsLIKEstpo-meins,
z_index(3)TYPEc,
ENDOFitab.
DATA:i_matLIKETABLEOFtpWITHHEADERLINE.
DATA:noTYPEi.
DATA:wa_stlalLIKEmast-stlal.
SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAMETITLEt1.
SELECT-OPTIONS:s_matnrFORvbap-matnrMEMORYID4.
PARAMETERS:p_werksLIKEaufk-werks
OBLIGATORYMEMORYID1.
PARAMETERS:p_capidLIKEtc04-capidDEFAULT'PP01'.
SELECTION-SCREEN:ENDOFBLOCKb1.
INITIALIZATION.
t1='選擇條件'.
START-OF-SELECTION.
SELECTmatnrstlnrstlal
FROMmastINTO(tp-matnr,tp-stlnr,tp-stlal)
WHEREmatnrINs_matnr
ANDwerksEQp_werks.
APPENDtp.
CLEARtp.
ENDSELECT.
LOOPATtp.
PERFORMcs_bom_expl_mat_v2USINGtp-matnr
p_capid
p_werks
tp-stlal.
no=0.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tp-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tp-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
tpidnrk-stlal=tp-stlal.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDLOOP.
END-OF-SELECTION.
LOOPATtpidnrk.
SELECTSINGLE*FROMmast
WHEREmatnrEQtpidnrk-matnr.
IFsy-subrc=0.
PERFORMcs_bom_expl_mat_v2USINGtpidnrk-matnr
p_capid
p_werks
tpidnrk-stlal.
no=0.
DELETEtpidnrk.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tpidnrk-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tpidnrk-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDIF.
*APPENDtpidnrk.
ENDLOOP.
REFRESHgt_list_top_of_page[].
PERFORMe04_comment_build.
CLEARfieldcat.
REFRESHfieldcat.
PERFORMbuild_fieldcat.
PERFORMbuild_eventcat.
PERFORMalv_display.
*&--------------------------------------------------------------------*
*&Forme04_comment_build
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMe04_comment_build.
DATA:list_lineLIKELINEOFgt_list_top_of_page.
list_line-typ='H'.
list_line-key=''.
list_line-info='物料清單（BOM）明細'.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='S'.
list_line-key='工厂'.
list_line-info=p_werks.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='H'.
list_line-key=''.
list_line-info=''.
APPENDlist_lineTOgt_list_top_of_page.
ENDFORM."e04_comment_build
*&--------------------------------------------------------------------*
*&Formbuild_eventcat
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMbuild_eventcat.
DATA:ls_eventTYPEslis_alv_event.
CALLFUNCTION'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type=0
IMPORTING
et_events=eventcat.
READTABLEeventcat
WITHKEYname=slis_ev_top_of_page
INTOls_event.
IFsy-subrc=0.
MOVEgc_formname_top_of_pageTOls_event-form.
APPENDls_eventTOeventcat.
ENDIF.
ENDFORM."build_eventcat
*&----------------------------------------------------
*&Formalv_display
*text
*-----------------------------------------------------
*--〉p1text
*〈--p2text
*-----------------------------------------------------
FORMalv_display.
CALLFUNCTION'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
*&--------------------------------------------------------------------*
*&Formalv_top_of_page
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMalv_top_of_page.
CALLFUNCTION'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary=gt_list_top_of_page.
ENDFORM."alv_top_of_page
*-----------------------------------------------------
*FORMbuild_fieldcat
*-----------------------------------------------------
*........
*-----------------------------------------------------
FORMbuild_fieldcat.
DATA:col_posTYPEiVALUE0.
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'.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."build_fieldcat
*-----------------------------------------------------
*FORMBUILD_FIELDCAT_SUB
*-----------------------------------------------------
*........
*-----------------------------------------------------
*--〉VALUE(P_COL_POS)
*--〉VALUE(P_FIELDNAME)
*--〉VALUE(P_SELTEXT)
*-----------------------------------------------------
FORMbuild_fieldcat_subUSINGvalue(p_col_pos)
value(p_fieldname)
value(p_seltext).
*ADD1TOCOL_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."BUILD_FIELDCAT_SUB
*-----------------------------------------------------
*FORMCS_BOM_EXPL_MAT_V2
*........
*--〉MATNR
*--〉CAPID
*--〉WERKS
*-----------------------------------------------------
FORMcs_bom_expl_mat_v2USINGmatnrLIKEafpo-matnr
capidLIKEtc04-capid
werksLIKEekpo-werks
stlalLIKEmast-stlal.
CALLFUNCTION'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 .
TABLES:vbap,stpo,mast,tc04,makt,stpox.
TYPE-POOLS:slis.
DATA:fieldcatTYPEslis_t_fieldcat_alv,
fieldcat_lnLIKELINEOFfieldcat,
event_exitTYPEslis_t_event_exit,
event_exit_lnLIKELINEOFevent_exit,
sortcatTYPEslis_t_sortinfo_alv,
sortcat_lnLIKELINEOFsortcat,
eventcatTYPEslis_t_event,
eventcat_lnLIKELINEOFeventcat.
DATA:gt_list_top_of_pageTYPEslis_t_listheader.
DATA:gc_formname_top_of_pageTYPEslis_formname
VALUE'ALV_TOP_OF_PAGE'.
DATA:ps_layoutTYPEslis_layout_alv.
DATA:bom_itabLIKETABLEOFstpoxWITHHEADERLINE.
*DATA:itabLIKETABLEOFzst_pp_0001WITHHEADERLINE.
DATA:BEGINOFtpOCCURS0,
boxTYPEchar1,
matnrLIKEmast-matnr,
stlnrLIKEmast-stlnr,
stlalLIKEmast-stlal,
ENDOFtp.
DATA:BEGINOFtpidnrkOCCURS0,
matnrLIKEmast-matnr,
stlalLIKEmast-stlal,
ENDOFtpidnrk.
DATA:BEGINOFitabOCCURS0,"定#一##表(明#)
matnrLIKEmast-matnr,
matnpLIKEmast-matnr,
stlnrLIKEmast-stlnr,
maktxLIKEmakt-maktx,
maktx2LIKEmakt-maktx,
idnrpLIKEstpo-idnrk,
stlknLIKEstpo-stlkn,
idnrkLIKEstpo-idnrk,
mengeLIKEstpo-menge,
meinsLIKEstpo-meins,
z_index(3)TYPEc,
ENDOFitab.
DATA:i_matLIKETABLEOFtpWITHHEADERLINE.
DATA:noTYPEi.
DATA:wa_stlalLIKEmast-stlal.
SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAMETITLEt1.
SELECT-OPTIONS:s_matnrFORvbap-matnrMEMORYID4.
PARAMETERS:p_werksLIKEaufk-werks
OBLIGATORYMEMORYID1.
PARAMETERS:p_capidLIKEtc04-capidDEFAULT'PP01'.
SELECTION-SCREEN:ENDOFBLOCKb1.
INITIALIZATION.
t1='選擇條件'.
START-OF-SELECTION.
SELECTmatnrstlnrstlal
FROMmastINTO(tp-matnr,tp-stlnr,tp-stlal)
WHEREmatnrINs_matnr
ANDwerksEQp_werks.
APPENDtp.
CLEARtp.
ENDSELECT.
LOOPATtp.
PERFORMcs_bom_expl_mat_v2USINGtp-matnr
p_capid
p_werks
tp-stlal.
no=0.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tp-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tp-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
tpidnrk-stlal=tp-stlal.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDLOOP.
END-OF-SELECTION.
LOOPATtpidnrk.
SELECTSINGLE*FROMmast
WHEREmatnrEQtpidnrk-matnr.
IFsy-subrc=0.
PERFORMcs_bom_expl_mat_v2USINGtpidnrk-matnr
p_capid
p_werks
tpidnrk-stlal.
no=0.
DELETEtpidnrk.
LOOPATbom_itabWHEREstufe=1.
no=no+1.
itab-z_index=no.
itab-matnr=tpidnrk-matnr.
SELECTSINGLEmaktxINTOitab-maktx
FROMmakt
WHEREmatnr=tpidnrk-matnr.
MOVE-CORRESPONDINGbom_itabTOitab.
tpidnrk-matnr=itab-idnrk.
SELECTSINGLEmaktxINTOitab-maktx2
FROMmakt
WHEREmatnr=itab-idnrk.
*ANDspras='1'.
*SELECTSINGLEzeinrbismt
*INTO(itab-zeinr,itab-bismt)
*FROMmara
*WHEREmatnr=itab-idnrk.
IFitab-matnr+0(1)<>'0'.
itab-matnp=itab-matnr.
ELSEIFitab-matnr+0(1)='0'.
itab-matnp=itab-matnr+1(10).
ENDIF.
itab-idnrp=itab-idnrk.
APPENDitab.
APPENDtpidnrk.
CLEARtpidnrk.
CLEARitab.
CLEARbom_itab.
ENDLOOP.
ENDIF.
*APPENDtpidnrk.
ENDLOOP.
REFRESHgt_list_top_of_page[].
PERFORMe04_comment_build.
CLEARfieldcat.
REFRESHfieldcat.
PERFORMbuild_fieldcat.
PERFORMbuild_eventcat.
PERFORMalv_display.
*&--------------------------------------------------------------------*
*&Forme04_comment_build
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMe04_comment_build.
DATA:list_lineLIKELINEOFgt_list_top_of_page.
list_line-typ='H'.
list_line-key=''.
list_line-info='物料清單（BOM）明細'.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='S'.
list_line-key='工厂'.
list_line-info=p_werks.
APPENDlist_lineTOgt_list_top_of_page.
CLEARlist_line.
list_line-typ='H'.
list_line-key=''.
list_line-info=''.
APPENDlist_lineTOgt_list_top_of_page.
ENDFORM."e04_comment_build
*&--------------------------------------------------------------------*
*&Formbuild_eventcat
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMbuild_eventcat.
DATA:ls_eventTYPEslis_alv_event.
CALLFUNCTION'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type=0
IMPORTING
et_events=eventcat.
READTABLEeventcat
WITHKEYname=slis_ev_top_of_page
INTOls_event.
IFsy-subrc=0.
MOVEgc_formname_top_of_pageTOls_event-form.
APPENDls_eventTOeventcat.
ENDIF.
ENDFORM."build_eventcat
*&----------------------------------------------------
*&Formalv_display
*text
*-----------------------------------------------------
*--〉p1text
*〈--p2text
*-----------------------------------------------------
FORMalv_display.
CALLFUNCTION'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
*&--------------------------------------------------------------------*
*&Formalv_top_of_page
*&--------------------------------------------------------------------*
*text
*---------------------------------------------------------------------*
FORMalv_top_of_page.
CALLFUNCTION'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary=gt_list_top_of_page.
ENDFORM."alv_top_of_page
*-----------------------------------------------------
*FORMbuild_fieldcat
*-----------------------------------------------------
*........
*-----------------------------------------------------
FORMbuild_fieldcat.
DATA:col_posTYPEiVALUE0.
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'.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ADD1TOcol_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."build_fieldcat
*-----------------------------------------------------
*FORMBUILD_FIELDCAT_SUB
*-----------------------------------------------------
*........
*-----------------------------------------------------
*--〉VALUE(P_COL_POS)
*--〉VALUE(P_FIELDNAME)
*--〉VALUE(P_SELTEXT)
*-----------------------------------------------------
FORMbuild_fieldcat_subUSINGvalue(p_col_pos)
value(p_fieldname)
value(p_seltext).
*ADD1TOCOL_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.
APPENDfieldcat_lnTOfieldcat.
CLEARfieldcat_ln.
ENDFORM."BUILD_FIELDCAT_SUB
*-----------------------------------------------------
*FORMCS_BOM_EXPL_MAT_V2
*........
*--〉MATNR
*--〉CAPID
*--〉WERKS
*-----------------------------------------------------
FORMcs_bom_expl_mat_v2USINGmatnrLIKEafpo-matnr
capidLIKEtc04-capid
werksLIKEekpo-werks
stlalLIKEmast-stlal.
CALLFUNCTION'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 优质内容筛选与推荐>>
1、【最小割】BZOJ3438-小M的作物(Rank 2???!!!)（含新款Dinic模板）
2、开发---【开始为数组的Json数据练习示例】
3、wp7（windows phone 7 ）开发者帐号注册，dreamspark注册，edu.cn节约99刀
4、sqlserver2008锁表语句详解(锁定数据库一个表)
5、第二章 数据库的建立