技術(shù)說明書ts mmfv2.0備件調(diào)撥表單

開發(fā)名稱 FS_MMF01_V1.0備件調(diào)撥表.doc作者: 最后修改日期 開發(fā)對象類型 √報 接 負(fù)責(zé)該技術(shù)說明書顧問 1<背景描述SAP打印此部分錄入的物料憑<功能前提23456無7系統(tǒng)自動執(zhí)8PMlt_mdochMSEG調(diào)用子程序f01_call_list通過標(biāo)準(zhǔn)函數(shù)顯示通過用戶過濾條件選擇的物料明細(xì)，用戶可ProgramID/Name: Datewritten：2011-09-Author's Lastupdate:2011-XX-Program Project Version: Description:(Incl.RelatedFunctionAreaand Change Corr. REPORTznammfn001MESSAGE-IDzna_msgNOSTANDARDPAGETABLES:mkpf,mseg,mara.TYPES:BEGINOFstru_header,mblnrLIKEmseg-mblnr,mjahrLIKEmseg-mjahr,budatLIKEmkpf-budat,bldatLIKEmkpf-bldat,werksLIKEmseg-werks,bwartLIKEmseg-bwart,lgortLIKEmseg-lgort,umlgoLIKEmseg-umlgo,aufnr_kostl(12)TYPEc,ebelnLIKEmkpf-bktxtbox(1)TYPEc,expand(1)TYPEENDOFDATAgt_headerTYPESTANDARDTABLEOFstru_headerWITHKEYmblnrmjahr.TYPES:BEGINOFstru_item,mblnrLIKEmseg-mblnr,mjahrLIKEmseg-mjahr,zeileLIKEmseg-zeile,matnrLIKEmseg-matnr,werksLIKEmseg-"linenoTYPEi,menge_txt(10)TYPEc,lgobeLIKEt001l-lgobe,sobkzLIKEmseg-sobkz,ENDOFDATAgt_itemTYPESTANDARDTABLEOFstru_itemWITHKEYmblnrmjahrDATAgt_prn_itemTYPESTANDARDTABLEOFstru_itemWITHKEYmblnrmjahrzeile."ForDATAg_repidLIKEsy-ForALVlistTYPE-POOLS:slis.SELECTION-SCREENBEGINOFBLOCKblk01WITHFRAMETITLEtext-SELECT-OPTIONSs_bldatFORmkpf-bldatNO-EXTENSION"noOBLIGATORYDEFAULTsy-SELECT-OPTIONSs_budatFORmkpf-budatNO-EXTENSION"noOBLIGATORYDEFAULTsy-SELECT-OPTIONSs_matnrFORmseg-SELECT-OPTIONSs_mtartFORmara-mtartOBLIGATORYDEFAULT'ZRH6'.PARAMETERSp_werksLIKEmseg-werksOBLIGATORYDEFAULT'8915'.SELECT-OPTIONSs_lgortFORmseg-lgortOBLIGATORYDEFAULTSELECT-OPTIONSs_bwartFORmseg-bwart.SELECT-OPTIONSs_mblnrFORmseg-mblnr.PARAMETERSp_chkboxASCHECKBOXDEFAULT''.SELECTION-SCREENENDOFBLOCKblk01.g_repid=sy-repid.PERFORMget_data.END-OF-PERFORM Form FORMDATA:BEGINOFlt_mdochOCCURSmblnrLIKEmseg-mblnr,mjahrLIKEmseg-mjahr,bldatLIKEmkpf-bldat,budatLIKEmkpf-budat,xblnrLIKEmkpf-ENDOFDATA:BEGINOFlt_msegOCCURSmblnrLIKEmseg-mblnr,mjahrLIKEmseg-mjahr,zeileLIKEmseg-zeile,matnrLIKEmseg-matnr,werksLIKEmseg-werks,lgortLIKEmseg-lgort,bwartLIKEmseg-bwart,shkzgLIKEmseg-shkzg,mengeLIKEmseg-menge,meinsLIKEmseg-meins,umlgoLIKEmseg-umlgo,aufnrLIKEmseg-aufnr,kostlLIKEmseg-ebelnLIKEekpo-ebelnsobkzLIKEmseg-sobkz,ENDOFDATA:BEGINOFlt_objkOCCURSobzaeLIKEobjk-obzae,equnrLIKEobjk-equnr,sernrLIKEobjk-ENDOFDATAlw_itemTYPEstru_item.DATAlw_headerTYPEstru_header.DATAl_obknrLIKEobjk-obknr.DATAl_iloanLIKEiloa-REFRESH:SELECTs~mblnrs~mjahrk~bldatk~budatk~xblnrINTOTABLElt_mdochFROMmsegASsINNERJOINmkpfASONk~mblnr=s~mblnrANDk~mjahr=INNERJOINmaraASONa~matnr=s~matnrWHEREs~mblnrINs_mblnrANDs~matnrINs_matnrANDs~werks=p_werksANDs~lgortINs_lgortANDs~bwartINs_bwartANDk~budatINs_budatANDk~bldatINs_bldatANDa~mtartINCHECKsy-subrc=SORTlt_mdochBYmblnrDELETEADJACENTDUPLICATESFROMlt_mdochCOMPARINGmblnrIFNOTlt_mdoch[]ISSELECTmblnrmjahrzeilematnrwerkslgortbwartshkzgmengemeinsumlgoaufnrkostlebelnsobkzINTOTABLElt_msegFROMmsegFORALLENTRIESINlt_mdochWHEREmblnr=lt_mdoch-mblnrANDmjahr=lt_mdoch-mjahrANDxauto=''.SORTlt_msegBYmblnrmjahrSORTlt_mdochBYmblnrmjahr."ForbinaryCLEARLOOPATIFlt_mdoch-mblnrNElt_mseg-mblnrORlt_mdoch-mjahrNElt_mseg-READTABLElt_mdochWITHKEYmblnr=lt_mseg-mjahr=lt_mseg-mjahrBINARYCLEARMOVE-CORRESPONDINGlt_mdochTOlw_header.MOVE-CORRESPONDINGlt_msegTOlw_header.IFNOTlt_mseg-aufnrISINITIAL.lw_header-aufnr_kostl=lt_mseg-lw_header-aufnr_kostl=lt_mseg-APPENDlw_headerTOCLEARMOVE-CORRESPONDINGlt_msegTOPERFORMqty_to_textUSINGlw_item-mengelw_item-CHANGINGlw_item-SELECTSINGLEmaktxINTOlw_item-maktxFROMmaktWHEREmatnr=lw_item-matnrANDspras=sy-langu.APPENDlw_itemTO

ForSELECTSINGLEobknrINTOl_obknrFROMser03WHEREser03~mblnr=lw_item-mblnrANDser03~mjahr=lw_item-mjahrANDser03~zeile=lw_item-IFsy-subrc=REFRESHSELECTobzaeequnrsernrINTOTABLElt_objkFROMobjkWHEREobknr=LOOPATCLEAR:lw_item-sernr,lw_item-lw_item-menge1.1lw_item-sernr=lt_objk-SELECTSINGLEmapariloanINTO(lw_item-mapar,l_iloan)FROMequzWHEREequnrlt_objk-equnr"設(shè)備號ANDdatbisy-datum"有效終止日期ANDdatabsy-datum.IFsy-subrc=0ANDNOTl_iloanISSELECTSINGLEstortINTOlw_item-stortFROMiloaWHEREiloan=APPENDlw_itemTOIFsy-subrcNEAPPENDlw_itemTOSORT BYmblnrSORTgt_item BYmblnrmjahrzeile.SORTgt_prn_itemBYmblnrmjahr Form FORMqty_to_textUSINGqtyLIKEmseg-meinsLIKEmseg-meinsCHANGINGpo_txt.DATAl_txt(14)TYPEWRITEqtyUNITmeinsTOl_txtRIGHT-JUSTIFIEDNO-SIGNNO-GROUNO-ZERO.SHIFTl_txtRIGHTDELETINGTRAILING'0'.SHIFTl_txtRIGHTDELETINGTRAILINGWRITEl_txtTOpo_txtRIGHT-JUSTIFIED. Form FORMDATA:ls_vari TYPEdisvariant, TYPEslis_layout_alv, TYPEslis_t_fieldcat_alv, TYPEslis_t_sortinfo_alv, TYPEslis_print_alv, TYPEslis_keyinfo_alv. =g_repid. ='A'. ='X'. ='X'. ='BOX'. = =space. ='EXPAND'. ='X'.PERFORMf01_set_fcatCHANGINGls_keyinfo-header01='MBLNR'. ='MBLNR'.ls_keyinfo-header02='MJAHR'. ='MJAHR'.ls_keyinfo-header03=space. ='ZEILE'.ls_keyinfo-header04=space. =space.ls_keyinfo-header05=space. =space.CALLFUNCTION'REUSE_ALV_HIERSEQ_LIST_DISY' ='== = == = == = = =0 =0 =0 =0 === = === = === = = = =gt_item = =IFsy-subrc<>MESSAGEIDsy-msgidTYPE'S'NUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4. " Form FORMset_pf_statusUSINGut_extabTYPESETPF-STATUS -->P_SELFIELD mandUSINGucomm p_selfieldTYPEDATAlw_headerTYPEstru_header.CASEucomm.WHENPERFORMWHENCASEp_selfield-WHEN'SYM_MINUS_FOLDER'.ucomm='&OMP'.WHEN'SYM_PLUS_FOLDER'.ucomm='&XPA'.WHENOTHERS.IFp_selfield-tabname='GT_HEADER'ANDNOTp_selfield-tabindexISINITIAL.READTABLEgt_headerINTOlw_headerINDEXp_selfield-tabindex.IFsy-subrc=SETPARAMETERID'MBN'FIELDlw_header-SETPARAMETERID'MJA'FIELDlw_header-mjahr.CALLTRANSACTION'MB03'ANDSKIPFIRST Form FORMf01_set_fcatCHANGINGct_fcatTYPEDATA:lt_fcat_masterTYPEslis_t_fieldcat_alv,lt_fcat_slaveTYPECLEARPERFORMf01_set_fcat_masterCHANGINGlt_fcat_master.PERFORMf01_set_fcat_slaveCHANGINGlt_fcat_slave.APPENDLINESOFlt_fcat_masterTOct_fcat.APPENDLINESOFlt_fcat_slaveTO " Form FORMf01_set_fcat_masterCHANGINGct_fcatTYPEDATA:ls_fcatTYPEslis_fieldcat_alv, TYPEi.ADD1TOCLEAR =l_lin. ='GT_HEADER'.ls_fcat-fieldname='MBLNR'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=ls_fcat-seltext_stext-tmbls_fcat-seltext_m=text-ls_fcat-seltext_l=text-APPENDls_fcatTOADD1TOCLEAR =l_lin. ='GT_HEADER'.ls_fcat-fieldname='MJAHR'.ls_fcat-datatype='NUMC'.ls_fcat-outputlen=8.ls_fcat-seltext_stext-tmjls_fcat-seltext_m=text- ls_fcat-seltext_l=text-tmJ.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_HEADER'.ls_fcat-fieldname='BLDAT'.ls_fcat-datatype='DATS'.ls_fcat-outputlen=10.ls_fcat-seltext_stext-tblls_fcat-seltext_m=text- ls_fcat-seltext_l=text-tBL.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_HEADER'.ls_fcat-fieldname='BUDAT'.ls_fcat-datatype='DATS'.ls_fcat-outputlen=10.ls_fcat-seltext_stext-tbuls_fcat-seltext_m=text- ls_fcat-seltext_l=text-tBU.APPENDls_fcatTOct_fcat. Form FORMf01_set_fcat_slaveCHANGINGct_fcatTYPEDATA:ls_fcatTYPEslis_fieldcat_alv, TYPEi.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='ZEILE'.ls_fcat-datatype='NUMC'.ls_fcat-outputlen=4.ls_fcat-seltext_stext-tzels_fcat-seltext_m=text- ls_fcat-seltext_l=text-tZE.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='MATNR'.ls_fcat-ref_tabname='MARA'.ls_fcat-ref_fieldname='MATNR'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=18. ls_fcat-seltext_stext-tMA.ls_fcat-seltext_m=text-tma.ls_fcat-seltext_l=text-tma.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='MAKTX'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=40.ls_fcat-no_out='X'.ls_fcat-seltext_stext-tTX. ls_fcat-seltext_m=text-tTX.ls_fcat-seltext_l=text-ttx.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='WERKS'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=4.ls_fcat-seltext_stext-twels_fcat-seltext_m=text- ls_fcat-seltext_l=text-tWE.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='LGORT'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=4.ls_fcat-seltext_stext-tlgls_fcat-seltext_m=text- ls_fcat-seltext_l=text-tLG.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='CHARG'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=10.ls_fcat-seltext_stext-tchls_fcat-seltext_m=text- ls_fcat-seltext_l=text-tCH.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='BWART'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=8.ls_fcat-seltext_stext-tbwls_fcat-seltext_m=text-ls_fcat-seltext_l=text-APPENDls_fcatTOADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='SHKZG'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=5.ls_fcat-seltext_stext-tshls_fcat-seltext_m=text- ls_fcat-seltext_l=text-tSH.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='MENGE'. ='GT_ITEM'.ls_fcat-qfieldname='MEINS'.ls_fcat-datatype='QUAN'.ls_fcat-outputlen=14. ls_fcat-seltext_stext-tME.ls_fcat-seltext_m=text-tme.ls_fcat-seltext_l=text-tme.APPENDls_fcatTOADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='MEINS'.ls_fcat-datatype='UNIT'.ls_fcat-outputlen=4.ls_fcat-seltext_stext-tmils_fcat-seltext_m=text- ls_fcat-seltext_l=text-tMI.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='UMLGO'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=8ls_fcat-seltext_stext-tumls_fcat-seltext_m=text-ls_fcat-seltext_l=text-APPENDls_fcatTOADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='AUFNR'.ls_fcat-ref_tabname='MSEG'.ls_fcat-ref_fieldname='AUFNR'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=12. ls_fcat-seltext_stext-tAU.ls_fcat-seltext_m=text-tau.ls_fcat-seltext_l=text-tau.APPENDls_fcatTOct_fcat.ADD1TOCLEAR =l_lin. ='GT_ITEM'.ls_fcat-fieldname='KOSTL'.ls_fcat-ref_tabname='MSEG'.ls_fcat-ref_fieldname='KOSTL'.ls_fcat-datatype='CHAR'.ls_fcat-outputlen=10.ls_fcat-seltext_stext-tkols_fcat-seltext_m=text-tko.ls_fcat-seltext_l=text-tko.APPENDls_fcatTOct_fcat. Form FORMDATA:lw_headerTYPEstru_header,lw_itemTYPEstru_item.DATAlt_itemTYPESTANDARDTABLEOFstru_itemWITHHEADERDATA:l_linenoTYPEi,l_tabixTYPEi.DATA:fm_nameTYPEcontrolTYPEssfctrlop,errtabTYPEtsferror.TABLES:READTABLEgt_headerTRANSPORTINGNOFIELDSWITHKEYbox='X'.IFsy-subrcNEMESSAGEs000WITHtext-m01CALLFUNCTION'SSF_FUNCTION_MODULE_NAME' ='ZNAMMFN001' =fm_name =no_function_module= =IFsy-subrc<>MESSAGEIDsy-msgidTYPE'S'NUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.control-no_dialog='X'.control-preview='X'.control-no_ope