SAP PP 空bom 清单及处理

维护bom的人员，可能把bom里面的项目删除了，但是留着空bom，会导致后续的一些业务问题，搞一个报表，把空bom的清单给出来，这样就很好处理了。

重点上代码

*&---------------------------------------------------------------------*
*& REPORT ZRPT_MM_BOM_NULL_GET
*&
*&---------------------------------------------------------------------*
*& author 8256
*& date 20210118
*& from
*& Tcode
*&---------------------------------------------------------------------*
REPORT ZRPT_MM_BOM_NULL_GET.TABLES: MAST,mara.SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS S_MATNR FOR MAST-MATNR.          "物料编号
SELECT-OPTIONS S_WERKS FOR MAST-WERKS.          "工厂
SELECT-OPTIONS S_STLAN FOR MAST-STLAN.          "物料清单用途
SELECT-OPTIONS S_STLNR FOR MAST-STLNR.          "物料单
SELECT-OPTIONS S_STLAL FOR MAST-STLAL.          "可选的 BOM
PARAMETERS:pLVORM like mara-LVORM."删除标记
SELECTION-SCREEN END OF BLOCK 001.TYPES:BEGIN OF TYP_DATA,MATNR TYPE MAST-MATNR,          "物料编号WERKS TYPE MAST-WERKS,          "工厂STLAN TYPE MAST-STLAN,          "物料清单用途STLNR TYPE MAST-STLNR,          "物料单STLAL TYPE MAST-STLAL,          "可选的 BOMLOSVN TYPE MAST-LOSVN,          "从批量LOSBS TYPE MAST-LOSBS,          "到批量ANDAT TYPE MAST-ANDAT,          "日期记录创建于ANNAM TYPE MAST-ANNAM,          "创建记录的用户AEDAT TYPE MAST-AEDAT,          "更改日期AENAM TYPE MAST-AENAM,          "对象更改人员的名称CSLTY TYPE MAST-CSLTY,          "标志: 配置物料(物料变式)LVORM TYPE MARA-LVORM,         "删除标记END OF TYP_DATA.DATA:STDATUM LIKE SY-DATUM,STUZEIT LIKE SY-UZEIT,GT_DATA     TYPE TABLE OF TYP_DATA,GS_DATA     TYPE TYP_DATA,GT_FIELDCAT TYPE LVC_T_FCAT,GS_FIELDCAT TYPE LVC_S_FCAT,GS_LAYOUT   TYPE LVC_S_LAYO.INITIALIZATION.%_S_MATNR_%_APP_%-TEXT = '物料编号'.%_S_WERKS_%_APP_%-TEXT = '工厂'.%_S_STLAN_%_APP_%-TEXT = '物料清单用途'.%_S_STLNR_%_APP_%-TEXT = '物料单'.%_S_STLAL_%_APP_%-TEXT = '可选的 BOM'.%_PLVORM_%_APP_%-TEXT = '删除'.START-OF-SELECTION.STDATUM = SY-DATUM.STUZEIT = SY-UZEIT.PERFORM GET_DATA.PERFORM PROCESS_DATA.PERform WRITERPTRUNRECORD.PERFORM DISPLAY_DATA.*&---------------------------------------------------------------------*
*&      FORM  GET_DATA
*&---------------------------------------------------------------------*
*       获取数据
*----------------------------------------------------------------------*
FORM GET_DATA.SELECTMAST~MATNR          "物料编号MAST~WERKS          "工厂MAST~STLAN          "物料清单用途MAST~STLNR          "物料单MAST~STLAL          "可选的 BOMMAST~LOSVN          "从批量MAST~LOSBS          "到批量MAST~ANDAT          "日期记录创建于MAST~ANNAM          "创建记录的用户MAST~AEDAT          "更改日期MAST~AENAM          "对象更改人员的名称MAST~CSLTY          "标志: 配置物料(物料变式)MARA~LVORMINTO TABLE GT_DATAFROM MASTJOIN MARA ON MARA~MATNR = MAST~MATNRWHERE MAST~MATNR IN S_MATNRAND MARA~LVORM  = PLVORMAND MAST~WERKS IN S_WERKSAND MAST~STLAN IN S_STLANAND MAST~STLNR IN S_STLNRAND MAST~STLAL IN S_STLAL andMAST~STLNR not in ( select STLNR from STPO ) andMAST~STLNR not in ( select STLNR from STAS )."永久bom
ENDFORM.                    "GET_DATA
*&---------------------------------------------------------------------*
*&      FORM  WRITERPTRUNRECORD
*&---------------------------------------------------------------------*
*       获取数据
*----------------------------------------------------------------------*
FORM WRITERPTRUNRECORD.GET TIME.CALL FUNCTION 'ZSYS_RPT_RUNRECORD'EXPORTINGTCODE    = SY-TCODEPROGRAMM = SY-CPROG
*   bukrs = GS_BW-BUKRS
*   werks  = GS_BW-werksDATUMRST  = STDATUMUZEITRST  =  STUZEITBATCH =  SY-BATCHDATUMREND = SY-datumUZEITREND = sy-UZEITDATUMC   = '20210118'RUNNER   = SY-UNAMERPTSRC   = 'BOM维护' .ENDFORM.                    "WRITERPTRUNRECORD
*&---------------------------------------------------------------------*
*&      FORM  PROCESS_DATA
*&---------------------------------------------------------------------*
*       处理数据
*----------------------------------------------------------------------*
FORM PROCESS_DATA.ENDFORM.                    "PROCESS_DATA
*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM BUILD_FIELDCAT USING P_FIELDNAME   TYPE FIELDNAMEP_QFIELDNAME  TYPE LVC_QFNAMEP_CFIELDNAME  TYPE LVC_CFNAMEP_REF_TABLE   TYPE LVC_RTNAMEP_REF_FIELD   TYPE LVC_RFNAMEP_CONVEXIT    TYPE CONVEXITP_EMPHASIZE   TYPE LVC_EMPHSZP_SCRTEXT_L   TYPE SCRTEXT_LP_NO_ZERO     TYPE XFLAG.GS_FIELDCAT-FIELDNAME     = P_FIELDNAME.GS_FIELDCAT-QFIELDNAME    = P_QFIELDNAME.GS_FIELDCAT-CFIELDNAME    = P_CFIELDNAME.GS_FIELDCAT-REF_TABLE     = P_REF_TABLE.GS_FIELDCAT-REF_FIELD     = P_REF_FIELD.GS_FIELDCAT-CONVEXIT      = P_CONVEXIT.GS_FIELDCAT-EMPHASIZE     = P_EMPHASIZE.GS_FIELDCAT-SCRTEXT_L     = P_SCRTEXT_L.GS_FIELDCAT-NO_ZERO   = P_NO_ZERO.GS_FIELDCAT-COLDDICTXT    = 'L'.APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR: GS_FIELDCAT.
ENDFORM.                    "BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*&      FORM  DISPLAY_DATA
*&---------------------------------------------------------------------*
*       显示数据
*----------------------------------------------------------------------*
FORM DISPLAY_DATA.PERFORM BUILD_FIELDCAT USING 'MATNR' '' '' 'MAST' 'MATNR' '' '' '物料编号' 'X'.PERFORM BUILD_FIELDCAT USING 'WERKS' '' '' 'MAST' 'WERKS' '' '' '工厂' ''.PERFORM BUILD_FIELDCAT USING 'STLAN' '' '' 'MAST' 'STLAN' '' '' '物料清单用途' ''.PERFORM BUILD_FIELDCAT USING 'STLNR' '' '' 'MAST' 'STLNR' '' '' '物料单' ''.PERFORM BUILD_FIELDCAT USING 'STLAL' '' '' 'MAST' 'STLAL' '' '' '可选的 BOM' ''.PERFORM BUILD_FIELDCAT USING 'LOSVN' '' '' 'MAST' 'LOSVN' '' '' '从批量' ''.PERFORM BUILD_FIELDCAT USING 'LOSBS' '' '' 'MAST' 'LOSBS' '' '' '到批量' ''.PERFORM BUILD_FIELDCAT USING 'ANDAT' '' '' 'MAST' 'ANDAT' '' '' '日期记录创建于' ''.PERFORM BUILD_FIELDCAT USING 'ANNAM' '' '' 'MAST' 'ANNAM' '' '' '创建记录的用户' ''.PERFORM BUILD_FIELDCAT USING 'AEDAT' '' '' 'MAST' 'AEDAT' '' '' '更改日期' ''.PERFORM BUILD_FIELDCAT USING 'AENAM' '' '' 'MAST' 'AENAM' '' '' '对象更改人员的名称' ''.PERFORM BUILD_FIELDCAT USING 'CSLTY' '' '' 'MAST' 'CSLTY' '' '' '标志: 配置物料(物料变式)' ''.PERFORM BUILD_FIELDCAT USING 'LVORM' '' '' 'MARA' 'LVORM' '' '' '集团级的删除' ''.gs_layout-cwidth_opt = 'X'.gs_layout-zebra = 'X'.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGI_CALLBACK_PROGRAM       = SY-REPID
"      I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_ALV'I_CALLBACK_USER_COMMAND  = 'USER_COMMAND_ALV'IT_FIELDCAT_LVC          = GT_FIELDCATIS_LAYOUT_LVC            = GS_LAYOUTI_DEFAULT                = 'X'I_SAVE                   = 'A'TABLEST_OUTTAB                 = GT_DATAEXCEPTIONSOTHERS                   = 1.
ENDFORM.                    "DISPLAY_DATA
**&---------------------------------------------------------------------*
**&      FORM  PF_STATUS_ALV
**&---------------------------------------------------------------------*
**       TEXT
**----------------------------------------------------------------------*
*FORM PF_STATUS_ALV USING RT_EXTAB TYPE SLIS_T_EXTAB .
*  SET PF-STATUS 'STATUS_ALV' EXCLUDING RT_EXTAB.
*ENDFORM.                    "PF_STATUS_ALV
*&---------------------------------------------------------------------*
*&      FORM  USER_COMMAND_ALV
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM USER_COMMAND_ALV USING R_UCOMM     LIKE SY-UCOMMRS_SELFIELD TYPE SLIS_SELFIELD.CASE R_UCOMM.WHEN '&IC1'.CASE RS_SELFIELD-FIELDNAME.WHEN ''.
*          CHECK RS_SELFIELD-VALUE IS NOT INITIAL.
*          SET PARAMETER ID 'MBN' FIELD RS_SELFIELD-VALUE.
*          CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.ENDCASE.ENDCASE.
ENDFORM.                    "USER_COMMAND_ALV

空bom的删除处理

SAP PP 空bom 清单及处理相关推荐

SAP PP物料清单BOM主数据概念
物料清单英文全称Bill of Material,简称BOM,是以数据格式来描述产品结构的文件,是计算机可以识别的产品结构数据文件,也是ERP系统重要的生产与制造数据.它又称为产品结构表或产品结构树, ...
[SAP] PP模块 - BOM ( Bill of Material)
BOM Group BOM BOM - Item Category BOM - Alternative BOM BOM - BOM Usage Group BOM CS01创建BOM时, 不输入工厂代 ...
SAP PP使用ECR去修改BOM主数据
SAP PP使用ECR去修改BOM主数据 1,使用事务代码CC31创建好了ECR#500000012749,如下图示, 这个ECR是用于修改物料ZFG0003的BOM的. 2,CC32完成了对这个EC ...
SAP PP CS01使用ECR去创建BOM主数据，报错：System status: ECR is not yet approved.
SAP PP CS01使用ECR去创建BOM主数据,报错:System status: ECR is not yet approved. 1,使用CC31创建好了ECR #500000012717,用 ...
SAP PP配置详解之二：BOM的配置
1.定义BOM修正参数功能说明配置路径 IMG>生产>基础数据>物料清单>物料单控制数据>定义修正参数(OS27) 业务示例配置步骤 1)双击修正参数 2)按业务要 ...
SAP BOM批量反查成品BOM清单（带BOM组件数量，反查物料清单）
1. BOM批量反查成品BOM清单(带BOM组件数量,反查物料清单) 代码执行的效果代码 TABLES :STAS,MARA,MAKT,MARC,T179T. TYPE-POOLS:SLIS.TYP ...
入门SAP PP的学习流程
要学好生产计划我们首先要了解生产计划的各个流程这样学习与操作起来就事半功倍了,操作如下: 1.定义生产计划参数文件,生产计划参数文件可以分配给物料或者生产计划员.分配给物料主数据的生产计划参数具有更高 ...
SAP PP顾问面试题及资料
SAP PP顾问面试试题及资料 1.主数据组织架构 •SAP中主要的组织架构有哪些?哪些用于PP的组织架构? •成本控制范围.公司代码.估价范围.工厂.库存地点之间的关系物料主数据 •不同的物料主 ...
SAP PP ECM的生效日期如何影响工单?
SAP PP ECM的生效日期如何影响工单? 1,我们使用CC31建立了ECM,ECM的生效日期就是2021-5-10. 然后以此ECM,修改了BOM,在2021-5-10这天将物料号PAA14610 ...

SAP PP 空bom 清单及处理

SAP PP 空bom 清单及处理相关推荐

最新文章

热门文章