SAP PP工艺路线查询报表分享

最新推荐文章于 2026-08-17 12:25:46 发布

原创

最新推荐文章于 2026-08-17 12:25:46 发布 · 841 阅读

一、报表逻辑

二、报表界面

三、报表代码

*&---------------------------------------------------------------------*
*& Report ZRPPP0016
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zrppp0016.
************************************************************************
*                  A D M I N I S T R A T I O N                         *
************************************************************************
*  DEV ID           : WID0000
*  Version          : 0.00
*  SAP Version      : ECC6.0
*  Program Name     :
*  Created by       :
*  Created on       : 18.11.2013
*  Description      :
************************************************************************

************************************************************************
*                  C H A N G E  H I S T O R Y                          *
************************************************************************
* CID  Changed On   Author        Description
* 001  dd.mm.yyyy   first.last    Create.
* 002  dd.mm.yyyy   first.last    This is a DEMO description.
************************************************************************

************************************************************************
*                  I N C L U D E                                       *
************************************************************************
INCLUDE  zrppp0016_top.
*INCLUDE  *_pbo.
*INCLUDE  *_pai.
INCLUDE  zrppp0016_form.

************************************************************************
*                  S T A R T  O F  S E L E C T I O N                   *
************************************************************************
START-OF-SELECTION.
************************************************************************
***********************************耗时处理*****************************
************************************************************************

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 1
      text       = '数据处理中，请等待...'.

*  PERFORM frm_getdata.
*
*  PERFORM frm_data_prcessing.
START-OF-SELECTION.
  PERFORM f_get_data.
  PERFORM f_deal_data.
***-----
  IF cb_1 = 'X'.
    PERFORM f_dosum_data.

  ENDIF.
***-----
  PERFORM f_fieldcat_build.
  PERFORM f_eventcat_build.

  PERFORM f_alv_display.
************************************************************************
*                  E N D  O F  S E L E C T I O N                       *
************************************************************************

*&---------------------------------------------------------------------*
*& 包含               ZRPPP0016_TOP
*&---------------------------------------------------------------------*
************************************************************************
*                  T A B L E S                                         *
************************************************************************
TABLES : mapl,tvm1t, makt, mara, plfld, plko, plpo, plpod.
TYPE-POOLS: slis.
************************************************************************
*                  T Y P E S                                           *
************************************************************************
DATA: BEGIN OF itab OCCURS 0,
        matnr    LIKE mapl-matnr,    " 物料号
        maktx    LIKE makt-maktx,    " 物料描述
        vbeln    LIKE mapl-vbeln,    "2011-05-12       销售订单
        posnr    LIKE mapl-posnr,    "2011-05-12       销售订单行项目
        werks    LIKE mapl-werks,    " 工厂
        datuv    LIKE mapl-datuv,    " 有效起始日期
        datub    LIKE plfld-datub,   " 有效截止日期
        plnty    LIKE mapl-plnty,    " 任务清单类型
        plnnr    LIKE mapl-plnnr,    " 任务清单组码
        plnal    LIKE mapl-plnal,    " 组计数器
        plnkn    LIKE plpo-plnkn,     "节点
        zaehl    LIKE mapl-zaehl,    "计数器
        verwe    LIKE plko-verwe,    " 任务清单使用
        statu    LIKE plko-statu,    " 状态
        bmsch    LIKE plpo-bmsch,    " 基本数量
        meinh    LIKE plpo-meinh,    " 作业/工序的计量单位
        vornr    LIKE plpo-vornr,    " 操作/活动编号
        steus    LIKE plpo-steus,    " 控制码
        werks_op LIKE plpo-werks, "工序工厂
        arbpl    LIKE plpod-arbpl,   " 工作中心
        arbpl_t  TYPE crtx-ktext,    "工作中心描述
        ktsch    LIKE plpo-ktsch,    "工序代码
        ltxa1    LIKE plpo-ltxa1,    " 工序短文本
        lgtxt    TYPE string,        "工序长文本
        vgw01    LIKE plpo-vgw01,    " 标准值
        vgw02    LIKE plpo-vgw02,    " 标准值
        vgw03    LIKE plpo-vgw03,    " 标准值
        vgw04    LIKE plpo-vgw04,    " 标准值
        vgw05    LIKE plpo-vgw05,    " 标准值
        vgw06    LIKE plpo-vgw06,    " 标准值
        vge01    LIKE plpo-vge01,    "标准值计量单位
        vge02    LIKE plpo-vge02,    "标准值计量单位
        vge03    LIKE plpo-vge03,    "标准值计量单位
        vge04    LIKE plpo-vge04,    "标准值计量单位
        vge05    LIKE plpo-vge05,    "标准值计量单位
        vge06    LIKE plpo-vge06,    "标准值计量单位
        usr00    TYPE usrchar20,     "原定额
        anzma    LIKE plpo-anzma,    "雇员数
        spmus    LIKE plpo-spmus,    " 所需分解
        splim    LIKE plpo-splim,    "分解数
        uemus    LIKE plpo-uemus,    " 要求重叠
        minwe    LIKE plpo-minwe,    " 最小发送数量
        frdlb    LIKE plpo-frdlb,    " 指示符：带外协加工的外部处理工序
        infnr    LIKE plpo-infnr,    " 采购信息记录的编号
        ekorg    LIKE plpo-ekorg,    " 采购组织
        matkl    LIKE plpo-matkl,    " 物料组
        ekgrp    LIKE plpo-ekgrp,    " 外协加工的采购组
        plifz    LIKE plpo-plifz,    " 计划的天数内交货
        peinh    LIKE plpo-peinh,    " 价格单位
        preis    LIKE plpo-preis,    " 采购信息记录中的净价
        sakto    LIKE plpo-sakto,    " 成本要素
        waers    LIKE plpo-waers,    " 货币码
        ktext    LIKE plko-ktext,    " 任务清单描述
        ckselkz  LIKE plpo-ckselkz,  "成本核算相关
      END OF itab.
DATA: BEGIN OF itab_1 OCCURS 0,
        matnr LIKE mapl-matnr,    " 物料号
        maktx LIKE makt-maktx,    " 物料描述
        "VBELN LIKE MAPL-VBELN,    "2011-05-12       销售订单
        "POSNR LIKE MAPL-POSNR,    "2011-05-12       销售订单行项目
        werks LIKE mapl-werks,    " 工厂
        datuv LIKE mapl-datuv,    " 有效起始日期
        datub LIKE plfld-datub,   " 有效截止日期
        "PLNTY LIKE MAPL-PLNTY,    " 任务清单类型
        plnnr LIKE mapl-plnnr,    " 任务清单组码
        plnal LIKE mapl-plnal,    " 组计数器
        "PLNKN LIKE PLPO-PLNKN,     "节点
        "ZAEHL LIKE MAPL-ZAEHL,    "计数器
        verwe LIKE plko-verwe,    " 任务清单使用
        statu LIKE plko-statu,    " 状态
        "BMSCH LIKE PLPO-BMSCH,    " 基本数量
        "MEINH LIKE PLPO-MEINH,    " 作业/工序的计量单位
        "VORNR LIKE PLPO-VORNR,    " 操作/活动编号
        "STEUS LIKE PLPO-STEUS,    " 控制码
        "WERKS_OP LIKE PLPO-WERKS, "工序工厂
        "ARBPL LIKE PLPOD-ARBPL,   " 工作中心
        "KTSCH LIKE PLPO-KTSCH,    "工序代码
        "LTXA1 LIKE PLPO-LTXA1,    " 工序短文本
        "LGTXT TYPE STRING,        "工序长文本
        vgw01 LIKE plpo-vgw01,    " 标准值
        vgw02 LIKE plpo-vgw02,    " 标准值
        vgw04 LIKE plpo-vgw04,    " 标准值
        "VGW04 LIKE PLPO-VGW04,    " 标准值
        "VGW05 LIKE PLPO-VGW05,    " 标准值
        "VGW06 LIKE PLPO-VGW06,    " 标准值
        "VGE01 LIKE PLPO-VGE01,    "标准值计量单位
        "VGE02 LIKE PLPO-VGE02,    "标准值计量单位
        "VGE03 LIKE PLPO-VGE03,    "标准值计量单位
        "VGE04 LIKE PLPO-VGE04,    "标准值计量单位
        "VGE05 LIKE PLPO-VGE05,    "标准值计量单位
        "VGE06 LIKE PLPO-VGE06,    "标准值计量单位
        "USR00 TYPE USRCHAR20,     "原定额
        "SPMUS LIKE PLPO-SPMUS,    " 所需分解
        "UEMUS LIKE PLPO-UEMUS,    " 要求重叠
        "MINWE LIKE PLPO-MINWE,    " 最小发送数量
        "FRDLB LIKE PLPO-FRDLB,    " 指示符：带外协加工的外部处理工序
        "INFNR LIKE PLPO-INFNR,    " 采购信息记录的编号
        "EKORG LIKE PLPO-EKORG,    " 采购组织
        "MATKL LIKE PLPO-MATKL,    " 物料组
        "EKGRP LIKE PLPO-EKGRP,    " 外协加工的采购组
   &n