物料生产主数据查询报表

    计划/主数据管理员/财务等经常需求查看物料的BOM/工艺/生产版本/成本核算主数据/MRP主数据等是否已维护OK，因此需要开发物料生产主数据查询报表供用户批量查询。
   具体代码如下：
   *&---------------------------------------------------------------------*

*& Report YPP_002
&---------------------------------------------------------------------
*&
&---------------------------------------------------------------------
REPORT YPP_002.

TABLES:makt,mara,marc,mbew,eina,mapl,mast.

TYPE-POOLS: slis. “ALV报表的应用程序池申明”
DATA: gs_fieldcat TYPE LINE OF slis_t_fieldcat_alv,
gs_events TYPE LINE OF slis_t_event,
gs_layout TYPE slis_layout_alv.

DATA: gt_fieldcat LIKE gs_fieldcat OCCURS 0,
gt_events LIKE gs_events OCCURS 0.
DATA: gv_repid LIKE sy-repid.
DATA:gt_t001w LIKE TABLE OF t001w WITH HEADER LINE,
gs_t001w TYPE t001w.
DATA:BEGIN OF itab OCCURS 0 ,
matnr LIKE makt-matnr, " 物料编码"
spras LIKE makt-spras, " 语言代码"
mtart LIKE mara-mtart, " 物料类型"
maktx LIKE makt-maktx, " 物料描述"
groes LIKE mara-groes, " 大小量纲"
zeinr LIKE mara-zeinr, " 图号"
ersda LIKE mara-ersda, " 创建日期"

•   created_at_time LIKE mara-created_at_time, " 创建时间
   ernam        LIKE mara-ernam,      " 创建者
   laeda        LIKE mara-laeda,      " 修改日期
   aenam        LIKE mara-aenam,      " 修改者
   wrkst        LIKE mara-wrkst,      " 图号"
   loggr        LIKE marc-loggr,      " 启用条码"
   bismt        LIKE mara-bismt,      " 旧物料编号"
   meins        LIKE mara-meins,      " 单位"
  

•   bstme    LIKE mara-bstme,      " 采购订单单位"
   brgew        LIKE mara-brgew,      " 毛重"
   ntgew        LIKE mara-ntgew,      " 净重"
   gewei        LIKE mara-gewei,      " 重量单位"
   lvorm        LIKE mara-lvorm,      " 集团级别删除"
  

•   TRAGR    LIKE mara-TRAGR,      " 运输组"
   kzkfg        LIKE mara-kzkfg,      " 可配置物料"
   werks        LIKE marc-werks,      " 工厂"
   disgr        LIKE marc-disgr,      " MRP组
   dismm        LIKE marc-dismm,      " MRP类型
   disls        LIKE marc-disls,      " 批量大小
   bstmi        LIKE marc-bstmi,      " 最小批量
   bstma        LIKE marc-bstma,      " 最大批量
   bstrf        LIKE marc-bstrf,      " 舍入值
   lgpro        LIKE marc-lgpro,      " 生产仓储地点"
   lgfsb        LIKE marc-lgfsb,      " 采购入库地点"
   rgekz        LIKE marc-rgekz,      " 反冲标识
   plifz        LIKE marc-plifz,      " 计划交货时间
   fhori        LIKE marc-fhori,      " 计划边际码
   eisbe        LIKE marc-eisbe,      " 安全库存
   strgr        LIKE marc-strgr,      " 策略组
   vrmod        LIKE marc-vrmod,      " 消耗模式
   vint1        LIKE marc-vint1,      " 消耗期间：向后
   vint2        LIKE marc-vint2,      " 消耗期间：向前
   miskz        LIKE marc-miskz,      " 综合MRP
   mtvfp        LIKE marc-mtvfp,      " 可用性检查组
   kzaus        LIKE marc-kzaus,      " 非连续标识
   ausdt        LIKE marc-ausdt,      " 中断日期
   nfmat        LIKE marc-nfmat,      " 后继物料
   ekgrp        LIKE marc-ekgrp,      " 采购组"
   qmatv        LIKE marc-qmatv,      " 检验设置"
   dispo        LIKE marc-dispo,      " MRP控制者"
   fevor        LIKE marc-fevor,      " 生产调度员"
   sbdkz        LIKE marc-sbdkz,      " 独立/集中"
   diber        LIKE marc-diber,      " MRP范围存在"
   kausf        LIKE marc-kausf,      " 部件损耗
   sfcpf        LIKE marc-sfcpf,      " 生产计划参数文件
   ueeto        LIKE marc-ueeto,      " 过量交货允差
   bearz        LIKE marc-bearz,      " 处理时间(产能单位天数)
   basmg        LIKE marc-basmg,      " 基准数量(标准产能)
   sernp        LIKE marc-sernp,      " 序列号参数文件
   serlv        LIKE mara-serlv,      " 序列化级
   xchpf        LIKE mara-xchpf,      " 批次管理
   bklas        LIKE mbew-bklas,      " 财务评估类"
   ausss        LIKE marc-ausss,      " 装配损耗
   beskz        LIKE marc-beskz,      " 获取类型"
   sobsl        LIKE marc-sobsl,      " 特殊采购类"
  

•  awsls    LIKE marc-awsls,      " 差异码"
  

•  losgr    LIKE marc-losgr,      " 成本核算批量"
  

•   bwkey    LIKE MBEW-bwkey,      " 评估范围"
  

•   peInh    LIKE MBEW-peInh,      " 价格单位"
  

•   hkmat    LIKE MBEW-hkmat,      " 物料来源"
  

•   vkorg    LIKE MVKE-vkorg,      " 销售组织"
  

•   vtweg    LIKE MVKE-vtweg,      " 分销渠道"
  

•   vrkme    LIKE MVKE-vrkme,      " 销售单位"
  

•   mtpos    LIKE MVKE-mtpos,      " 项目类别组"
  

•   LGORT    LIKE MLGT-LGORT,      " 库存地点"
  

•   lgtyp    LIKE MLGT-lgtyp,      " 存储类型"
  

•   lgnum    LIKE MLGT-lgnum,      " 仓库号"
  

•   lgpla    LIKE MLGT-lgpla,      " 仓位"
  

•   ltkZe    LIKE MLGT-ltkZe,      " 上架"
  

•   lgort    LIKE marc-lgort,      " 库存地点"
   uneto        LIKE marc-uneto,      " 不足交货允差"
   ueetk        LIKE marc-ueetk,      " 无限制过量交货"
   infnr        LIKE eina-infnr,      " 采购信息记录编号"
   plnnr        LIKE mapl-plnnr,      " 工艺路线组号"
   stlnr        LIKE mast-stlnr,      " BOM编号"
   stlal        LIKE stko-stlal,
   stkoz        LIKE stko-stkoz,
   mmsta        LIKE marc-mmsta,      " 特定工厂的物料状态
   prodh        LIKE mvke-prodh,      " 产品层次
   prodht       LIKE t179t-vtext,     " 产品层次文本
   matkl        LIKE mara-matkl,      " 物料组
   matklt       LIKE t023t-wgbez,
   spart        LIKE mara-spart,      " 产品组
   spartt       LIKE tspat-vtext,
   mvgr1        LIKE mvke-mvgr1,      " 物料组1
   bezei        LIKE tvm1t-bezei,
   mvgr2        LIKE mvke-mvgr2,      " 物料组2
   bezei2       LIKE tvm2t-bezei,
   zcost(1)     TYPE c,               " 是否已作成本核算
   pstat        TYPE marc-pstat,
   verid        TYPE mkal-verid,      " 生产版本
   text1        TYPE mkal-text1,      " 生产版本的简易文本
   light        TYPE iconname,
   mtext        TYPE zemtext,
   datuv        TYPE plko-datuv, "工艺路线生效日期
   andat        TYPE plko-andat, "工艺路线创建日期
   datuv2       TYPE stko-datuv, "BOM生效日期
   andat2       TYPE stko-andat, "BOM生效日期
   adatu        TYPE mkal-adatu, "生产版本生效日期
   andat3       TYPE mkal_aend-andat, "生产版本生效日期
   msbookpartno TYPE mara-msbookpartno, "物料大类
   
   freidat      TYPE keko-freidat,  " 成本发布日期
   udate        TYPE cdhdr-udate,
   utime        TYPE cdhdr-utime,
   
   stlst        TYPE stko-stlst,
  

*&
stlan LIKE mast-stlan, " 用途"
*&

 END OF itab.

---------------------------------------------------------------------

• SELECTION-SCREEN
  ---------------------------------------------------------------------
• 选择屏幕
  ---------------------------------------------------------------------
  SELECTION-SCREEN BEGIN OF BLOCK co1 WITH FRAME TITLE TEXT-001 .
  SELECT-OPTIONS: s_werks FOR marc-werks OBLIGATORY," DEFAULT ‘2000’,
  s_beskz FOR marc-beskz DEFAULT ‘E’,
  s_matnr FOR makt-matnr,
  s_ersda FOR mara-ersda,
  s_mtart FOR mara-mtart,
  s_dispo FOR marc-dispo,
  s_matkl FOR mara-matkl,
  s_bismt FOR mara-bismt.

•            S_ZZCPBZ FOR MARA-ZZCPBZ.
  

PARAMETERS: p_statm TYPE moff-statm.

SELECTION-SCREEN END OF BLOCK co1.

AT SELECTIO