资源描述:
《SAP 批量BOM反查》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、*&-----------------------------------------------------------------**&批量BOM反查*&-----------------------------------------------------------------*REPORTYPPR0043NOSTANDARDPAGEHEADING.TYPE-POOLS:SLIS.TABLES:MARA,MAKT.DATA:STBLIKESTPOXOCCURS0WITHHEADERLINE,WA_ALV_FIELDTYPESLIS_FIELDCAT
2、_ALV,"列描述内表,列清单WA_ALV_FIELDCATTYPESLIS_T_FIELDCAT_ALV,"定义内表LAYOUTTYPESLIS_LAYOUT_ALV,GS_LAYOUTTYPESLIS_LAYOUT_ALV,GT_LIST_TOP_OF_PAGETYPESLIS_T_LISTHEADER,COUNTERTYPEIVALUE0,G_REPIDLIKESY-REPID,G_USER_COMMANDTYPESLIS_FORMNAMEVALUE'USER_COMMAND'.DATA:BEGINOFMY_DATA,MATNRLIKEMARA-MAT
3、NR,"子零件编码MAKTX(80)TYPEC,"子零件描述IDNRKLIKEMARA-MATNR,"子零件编码MAKTR(80)TYPEC,"子零件描述SELTYPEC,ENDOFMY_DATA.DATA:IT_DATALIKEMY_DATAOCCURS0.DATA:BEGINOFDLLH_DATA,MATNRLIKEMARA-MATNR,"物料编码BMENGTYPEI,"BOM中的基本数量ENDOFDLLH_DATA.DATA:TDLLH_DATALIKEDLLH_DATAOCCURS0.DATA:BEGINOFUSEDTABOCCURS100.INCL
4、UDESTRUCTURESTPOV.DATA:ENDOFUSEDTAB.DATA:BEGINOFEQUICATOCCURS100.INCLUDESTRUCTURECSCEQUI.DATA:ENDOFEQUICAT.DATA:BEGINOFKNDCATOCCURS100.INCLUDESTRUCTURECSCKND.DATA:ENDOFKNDCAT.DATA:BEGINOFMATCATOCCURS100.INCLUDESTRUCTURECSCMAT.DATA:ENDOFMATCAT.DATA:BEGINOFSTDCATOCCURS100.INCLUDESTRU
5、CTURECSCSTD.DATA:ENDOFSTDCAT.DATA:BEGINOFTPLCATOCCURS100.INCLUDESTRUCTURECSCTPL.DATA:ENDOFTPLCAT.DATA:BEGINOFWLXX_DATA,MATNRLIKEMARA-MATNR,"物料编码NORMTLIKEMARA-NORMT,"延伸机种,即机型MAKTX(80)TYPEC,"物料描述GROESLIKEMARA-GROES,"描述补充ENDOFWLXX_DATA.DATA:TWLXX_DATALIKEWLXX_DATAOCCURS0.SELECTION-SCR
6、EENBEGINOFBLOCKBLK1WITHFRAME.SELECT-OPTIONS:S_MATNRFORMARA-MATNR,"物料编码S_MTARTFORMARA-MTART,"物料类型S_MATKLFORMARA-MATKL,"物料组S_MAKTXFORMAKT-MAKTX,"物料描述S_NORMTFORMARA-NORMT,"机型BDATEFORSY-DATUMDEFAULTSY-DATUMTOSY-DATUMNO-EXTENSIONOBLIGATORY.SELECTION-SCREENSKIP1.PARAMETERS:RB_NONRADIOBUT
7、TONGROUPRG1,"显示没有BOM用到的物料RB_HAFRADIOBUTTONGROUPRG1DEFAULT'X'."展开BOM的上一层显示相应的成品(半成品)SELECTION-SCREENENDOFBLOCKBLK1.INITIALIZATION.G_REPID=SY-REPID.START-OF-SELECTION.SELECTMARA~MATNRINTOTABLETDLLH_DATA"取得物料编码内表FROMMARAINNERJOINMAKTONMARA~MATNR=MAKT~MATNRWHEREMARA~MATNRINS_MATNRANDMA
8、RA~MTARTINS_MTARTANDMARA~N