快速开始系列-(报表)分发程序推送模板
REPORT ZFIR0412.
TABLES: EKPO.
TYPE-POOLS: SLIS, ICON.
TYPES: BEGIN OF TY_ALV,
WERKS TYPE EKPO-WERKS, " 材料价格 工厂 EWERK
MATNR TYPE EKPO-MATNR, " 物料 MATNR
MAKTX TYPE MAKT-MAKTX, "物料描述 MAKTX
WBS_ID TYPE EKPO-WBS_ID, "工作号 ZPS_POSID
AEDAT TYPE EKPO-AEDAT, "日期 PAEDT
ZYEAR(4) TYPE C, " 年份 ZYEAR
ZMONTH(2) TYPE C, "月份 ZMONTH
NETPR TYPE EKPO-NETPR, "材料价格 BPREI
ADDITIONAL1 TYPE STRING, "预留字段1 ADDITIONAL1
ADDITIONAL2 TYPE STRING, "预留字段2 ADDITIONAL2
ADDITIONAL3 TYPE STRING, "预留字段3 ADDITIONAL3
ADDITIONAL4 TYPE STRING, "预留字段4 ADDITIONAL4
ADDITIONAL5 TYPE STRING, "预留字段5 ADDITIONAL5
ADDITIONAL6 TYPE STRING, "预留字段6 ADDITIONAL6
ADDITIONAL7 TYPE STRING, "预留字段7 ADDITIONAL7
ADDITIONAL8 TYPE STRING, "预留字段8 ADDITIONAL8
ADDITIONAL9 TYPE STRING, "预留字段9 ADDITIONAL9
ADDITIONAL10 TYPE STRING, "预留字段10 ADDITIONAL10
VPRSV TYPE QBEW-VPRSV,
VERPR TYPE QBEW-VERPR,
STPRS TYPE QBEW-STPRS,
ICON(4) TYPE C,
ZMSG TYPE CHAR100,
CHK TYPE C,
END OF TY_ALV.
TYPES:BEGIN OF TY_MBEW,
MATNR TYPE MBEW-MATNR,
VPRSV TYPE MBEW-VPRSV,
VERPR TYPE MBEW-VERPR,
STPRS TYPE MBEW-STPRS,
END OF TY_MBEW.
DATA: GT_SEL TYPE STANDARD TABLE OF TY_ALV.
* GS_SEL TYPE TY_ALV.
DATA: GT_ALV TYPE TABLE OF TY_ALV,
GS_ALV TYPE TY_ALV,
GS_FIELDCAT TYPE LVC_S_FCAT,
GT_FIELDCAT TYPE LVC_T_FCAT,
GS_LAYOUT TYPE LVC_S_LAYO.
*----------------- 宏定义 -----------------------------
DEFINE FIELDCATSET.
gs_fieldcat-fieldname = &1."内表字段名
gs_fieldcat-coltext = &2."报表输出名
gs_fieldcat-ref_table = &3."参考表名
gs_fieldcat-ref_field = &4."参考字段名
gs_fieldcat-hotspot = &5."单击响应
gs_fieldcat-checkbox = &6."复选框
gs_fieldcat-edit = &7."编辑
gs_fieldcat-icon = &8. "显示为图标
gs_fieldcat-no_out = &9. "不显示
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
END-OF-DEFINITION.
SELECTION-SCREEN BEGIN OF BLOCK B2 .
SELECT-OPTIONS: S_WERKS FOR EKPO-WERKS,
S_MATNR FOR EKPO-MATNR.
PARAMETERS P_NUM TYPE I DEFAULT 1000.
PARAMETERS C_CHK AS CHECKBOX.
PARAMETERS P_LFGJA TYPE MBEW-LFGJA DEFAULT '2022 '.
TABLES: EKPO.
TYPE-POOLS: SLIS, ICON.
TYPES: BEGIN OF TY_ALV,
WERKS TYPE EKPO-WERKS, " 材料价格 工厂 EWERK
MATNR TYPE EKPO-MATNR, " 物料 MATNR
MAKTX TYPE MAKT-MAKTX, "物料描述 MAKTX
WBS_ID TYPE EKPO-WBS_ID, "工作号 ZPS_POSID
AEDAT TYPE EKPO-AEDAT, "日期 PAEDT
ZYEAR(4) TYPE C, " 年份 ZYEAR
ZMONTH(2) TYPE C, "月份 ZMONTH
NETPR TYPE EKPO-NETPR, "材料价格 BPREI
ADDITIONAL1 TYPE STRING, "预留字段1 ADDITIONAL1
ADDITIONAL2 TYPE STRING, "预留字段2 ADDITIONAL2
ADDITIONAL3 TYPE STRING, "预留字段3 ADDITIONAL3
ADDITIONAL4 TYPE STRING, "预留字段4 ADDITIONAL4
ADDITIONAL5 TYPE STRING, "预留字段5 ADDITIONAL5
ADDITIONAL6 TYPE STRING, "预留字段6 ADDITIONAL6
ADDITIONAL7 TYPE STRING, "预留字段7 ADDITIONAL7
ADDITIONAL8 TYPE STRING, "预留字段8 ADDITIONAL8
ADDITIONAL9 TYPE STRING, "预留字段9 ADDITIONAL9
ADDITIONAL10 TYPE STRING, "预留字段10 ADDITIONAL10
VPRSV TYPE QBEW-VPRSV,
VERPR TYPE QBEW-VERPR,
STPRS TYPE QBEW-STPRS,
ICON(4) TYPE C,
ZMSG TYPE CHAR100,
CHK TYPE C,
END OF TY_ALV.
TYPES:BEGIN OF TY_MBEW,
MATNR TYPE MBEW-MATNR,
VPRSV TYPE MBEW-VPRSV,
VERPR TYPE MBEW-VERPR,
STPRS TYPE MBEW-STPRS,
END OF TY_MBEW.
DATA: GT_SEL TYPE STANDARD TABLE OF TY_ALV.
* GS_SEL TYPE TY_ALV.
DATA: GT_ALV TYPE TABLE OF TY_ALV,
GS_ALV TYPE TY_ALV,
GS_FIELDCAT TYPE LVC_S_FCAT,
GT_FIELDCAT TYPE LVC_T_FCAT,
GS_LAYOUT TYPE LVC_S_LAYO.
*----------------- 宏定义 -----------------------------
DEFINE FIELDCATSET.
gs_fieldcat-fieldname = &1."内表字段名
gs_fieldcat-coltext = &2."报表输出名
gs_fieldcat-ref_table = &3."参考表名
gs_fieldcat-ref_field = &4."参考字段名
gs_fieldcat-hotspot = &5."单击响应
gs_fieldcat-checkbox = &6."复选框
gs_fieldcat-edit = &7."编辑
gs_fieldcat-icon = &8. "显示为图标
gs_fieldcat-no_out = &9. "不显示
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
END-OF-DEFINITION.
SELECTION-SCREEN BEGIN OF BLOCK B2 .
SELECT-OPTIONS: S_WERKS FOR EKPO-WERKS,
S_MATNR FOR EKPO-MATNR.
PARAMETERS P_NUM TYPE I DEFAULT 1000.
PARAMETERS C_CHK AS CHECKBOX.
PARAMETERS P_LFGJA TYPE MBEW-LFGJA DEFAULT '2022 '.