《SAPBOM展开完整有注释》由会员分享,可在线阅读,更多相关《SAPBOM展开完整有注释(12页珍藏版)》请在金锄头文库上搜索。
1、*&*&ReportYPPR0042SAPBOM展开*&REPORTYPPR0042NOSTANDARDPAGEHEADING.TYPE-POOLS:SLIS.TABLES:MAST,BOM链接物料MARA,常规物料数据STKO,BOM表头MAKT.物料描述DATA:STBLIKESTPOXOCCURS0WITHHEADERLINE,WA_ALV_FIELDTYPESLIS_FIELDCAT_ALV,列描述内表,列清单WA_ALV_FIELDCATTYPESLIS_T_FIELDCAT_ALV,定义内表LAYOUTTYPESLIS_LAYOUT_ALV,GS_LAYOUTTYPESLIS_LA
2、YOUT_ALV,GT_LIST_TOP_OF_PAGETYPESLIS_T_LISTHEADER,COUNTERTYPEIVALUE0,G_REPIDLIKESY-REPID,DC(1)TYPECVALUEX,是否多层展开默为多层展开BOM帮助字段G_USER_COMMANDTYPESLIS_FORMNAMEVALUEUSER_COMMAND.DATA:BEGINOFSELPOOL.INCLUDESTRUCTURECSTMAT.DATA:ENDOFSELPOOL.DATA:DSTST_FLGLIKECSDATA-XFELD.DATA:BEGINOFSTUFEMATNRIT_DATAOCCUR
3、S0,LIKESTPOX-STUFE,LIKEMARA-MATNR,OJTXB(80)TYPEC,BMENGTYPEI,IDNRKLIKESTPOX-IDNRK,OJTXP(80)TYPEC,ALPRFEWAHRSTLANSTLALLIKESTPO-ALPRF,LIKESTPO-EWAHR,LIKESTPOX-STLAN,LIKESTPOX-STLAL,层次父件物料编码父件物料描述BOM中的基本数量子件物料编码子件物料描述优先级使用可能性BOM用途可选的BOMALPGRLIKESTPOX-ALPGR,替代组MTARTLIKESTPOX-MTART,物料类型MMEINLIKESTPOX-MMEI
4、N,基本计量单位STPRSLIKESTPOX-STPRS,标准价格1、rL-、日rVt/亠、f.、/*AZ-,r、r占厶/zrf/丄日MNGLGLIKESTPOX-MNGLG,以基本计量单位为准的已计算的组件数量1、rArt/丄、【日rXA/亠、r.、/*A/-,r、rAAArt日MNGKOLIKESTPOX-MNGKO,以组件计量单位为准的已计算的组件数量/,rt,丄日MENGELIKESTPOX-MENGE,组件数量DATUVLIKESTPOX-DATUV,开始生效7有效截止日期AENNRLIKESTPOX-AENNR,更改编号ANDATLIKESTPOX-ANDAT,日期记录创建于ANN
5、AMLIKESTPOX-ANNAM,创建记录的用户AUSCHLIKESTPOX-AUSCH,工序报废AVOAULIKESTPOX-AVOAU,工序废品NTGEWLIKE:MARA-NTGEW,净重BRGEWLIKE:MARABRGEW,毛重WEIGHLIKE:MARABRGEW,重量=BOM用量*单重STAWNLIKE:MARCSTAWN,外贸的商品代码和进口代码STAWT(200)TYPEC,海关编码描述SELTYPEC,ENDOF:ITDATA.DATA:BEGINOFMATCATOCCURS50.INCLUDESTRUCTURECSCMAT.DATA:ENDOFMATCAT.DATA:B
6、EGINOFMATS.INCLUDESTRUCTURECSCMAT.DATA:ENDOFMATS.DATA:BEGINOFDLLH_DATA,MATNRLIKEMARAMATNR,物料编码BMENGTYPEI,BOM中的基本数量ENDOFDLLH_DATA.DATA:TDLLH_DATALIKEDLLH_DATAOCCURS0.DATA:BEGINOFWLXX_DATA,MATNRLIKEMARAMATNR,物料编码NORMTLIKEMARANORMT,延伸机种,即机型MAKTX(80)TYPEC,物料描述GROESLIKEMARAGROES,描述补充NTGEWLIKEMARANTGEW,净重
7、BRGEWLIKEMARA-BRGEW,毛重STAWNLIKEMARC-STAWN,外贸的商品代码和进口代码ENDOFWLXX_DATA.DATA:TWLXX_DATALIKEWLXX_DATAOCCURS0.DATA:BEGINOFHGBM_DATA,STAWNLIKET604T-STAWN,外贸的商品代码和进口代码TEXT1(200)TYPEC,描述TEXT2LIKET604T-TEXT2,描述TEXT3LIKET604T-TEXT3,描述TEXT4LIKET604T-TEXT4,描述TEXT5LIKET604T-TEXT5,描述TEXT6LIKET604T-TEXT6,描述TEXT7LI
8、KET604T-TEXT7,描述ENDOFHGBM_DATA.DATA:THGBM_DATALIKEHGBM_DATAOCCURS0.SELECTION-SCREENBEGINOFBLOCKSCR1WITHFRAMETITLEtext-001.*SELECT-OPTIONS:S_WERKSFORMASTWERKSDEFAULT1000.工厂SELECT-OPTIONS:S_MATNRFORMARA-MATNR,成品编码S_MTARTFORMARA-MTART,物料类型S_MATKLFORMARA-MATKL,物料组S_MAKTXFORMAKT-MAKTX,物料描述S_NORMTFORMARA-
9、NORMT.机型RBPARAMETERS:P_EMENGLIKESTKO-BMENGOBLIGATORYDEFAULT1equiredquantityP_STLANLIKEMAST-STLANDEFAULT1.OM用途SELECTION-SCREENSKIP1.PARAMETERS:RB_MCBRBSCBRADIOBUTTONGROUPRADIOBUTTONGROUPRG1DEFAULTX,RG1.多层展开单层展开SELECTION-SCREENSKIP1.PARAMETERS:RB_YTDRADIOBUTTONGROUPRB_WTDRADIOBUTTONGROUPSELECTION-SCRE
10、ENSKIP1.PARAMETERS:RB_ALLRADIOBUTTONGROUPRB_HGYRADIOBUTTONGROUP用列SELECTION-SCREENSKIP1.PARAMETERS:RB_YBCRADIOBUTTONGROUP重量RB_WBCRADIOBUTTONGROUP重量SELECTION-SCREENENDOFBLOCKSCR1.INITIALIZATION.G_REPID=SY-REPID.START-OF-SELECTION.RG2DEFAULTX,有替代料RG2.无替代料RG3,显示所有列RG3DEFAULTX.仅显示海关专RG4,仅计算原材料RG4DEFAULTX
11、.计算所有物料SELECTMARAMATNRINTOCORRESPONDINGFIELDSOFTABLETDLLH_DATA取得物料编码内表FROMMARAINNERJOINMAKTONMARAMATNR=MAKTMATNRWHEREMARAMATNRINS_MATNRANDMARAMTARTINS_MTARTANDMARANORMTINS_NORMTANDMAKTMAKTXINS_MAKTXANDMARAMATKLINS_MATKLANDMAKTSPRAS=SY-LANGU.SORTTDLLHDATABYMATNR.SELECTT604TSTAWNT604TTEXT1T604TTEXT2T6
12、04TTEXT3T604TTEXT4T604TTEXT5T604TTEXT6T604TTEXT7INTOTABLETHGBM_DATA取得海关编码及描述内表FROMT604TWHERET604TSPRAS=SY-LANGU.SORTTHGBM_DATABYSTAWN.LOOPATTHGBM_DATAINTOHGBM_DATA.CONCATENATEHGBM_DATA-TEXT1HGBM_DATA-TEXT2HGBM_DATA-TEXT3HGBM_DATA-TEXT4HGBM_DATA-TEXT5HGBM_DATA-TEXT6HGBM_DATA-TEXT7INTOHGBM_DATA-TEXT1.
13、MODIFYTHGBM_DATAFROMHGBM_DATA.ENDLOOP.IFRB_MCB=.如果选择为单层展开则把原来的默认值由X改为空DC=.ENDIF.CLEAR:DLLH_DATA.LOOPATTDLLH_DATAINTODLLH_DATA.循环每个物料号CLEAR:STB.CALLFUNCTIONCS_BOM_EXPL_MAT_V2EXPORTINGCAPID=ZP01=SY-DATUM=P_EMENGBOM应用程序有效起始日基本数DATUVEMENG量RequiredquantitySTKO-BMENGMTNRV=DLLH_DATA-MATNR成品号或半成品号STLAN=1BOM用途,1代表生产STLAL=可选BOMMKTLS=XMEHRS=DC是否多层展开,X代表多层RNDKZ=1Roundoff:=always,1=never,2=onlylevels1是否取整WERKS=1000工厂IMPORTINGTOPMAT=SELPOOL开始BOM展开的物料显示DSTST=DSTST_FLGBOM帮助字段TABLESSTB=STBMATCA