点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

hai专家

请允许我输入代码，因为我用植物类型分支" B"填充了s_werks，输出仍然显示了植物类型" O"。

报告ZPM_REPORT_AGING_STOCK。
类型库：SLIS。
表：MCHB，MAKT，T001W，MARA，MSEG，MBEW，MCHA，ZPI_MAP_PLANT。

类型：开始于TY_RESULT ，
WERKS LIKE MCHB-WERKS，"植物
NAME1 LIKE T001W-NAME1，"植物名称
MATNR LIKE MARA-MATNR，"材料
BISMT LIKE MARA-BISMT，" SKU
MAKTX 像MAKT-MAKTX，"描述
LGORT，像MCHB-LGORT，" SLOC
SUM_CLABS，像MCHB-CLABS，"库存数量
，BUDAT_MKPF，像MSEG-BUDAT_MKPF，"最新记录，像，充电器，像MCHB-CHARG ，" BATCH
VFDAT类MCHA-VFDAT"，"到期日期
SUM_LBKUM类MBEW-LBKUM"，" AVG成本
存储类型MBEW-SALK3，"库存值
老化类型MSEG-RSNUM"，"老化"
TY_RESULT的结尾。

类型：TY_T0MB的开头，
BWKEY LIKE T001W-BWKEY，
LBKUM LIKE MBEW-LBKUM，
SALK3 LIKE MBEW-SALK3，
END 的TY_T0MB。

类型：TY_MCT0的开始，
像MCHB-WERKS一样的WERKS，
像MCHB-MATNR一样的MATNR，像
LMCRT像MCHB-LGORT一样的LGO​​RT，像
MCHB-CLABS一样 ，
像MCHB-CHARG一样的充电器，
NAME1 LIKE T001W-NAME1，
TY_MCT0结尾。

类型：TY_MCHB的开始，
WERKS LIKE MCHB-WERKS，
MATNR LIKE MCHB-MATNR，
LGORT LIKE MCHB- LGORT，
类似于MCHB-CLABS的实验室，
像MCHB-CHARG一样的电荷，
TY_MCHB的末尾。

类型：TY_MAKT的开始，
MAKTX像MAKT-MAKTX一样，
MATNR LIKE MAKT-MAT​​NR，
TY_MAKT结尾。

类型：TY_T001W的开始，
BWKEY LIKE T001W-BWKEY，
WERKS LIKE T001W-WERKS，
NAME1 LIKE T001W -NAME1，
TY_T001W的结尾。

类型：TY_MARA的开始，
BISMT LIKE MARA-BISMT，
MTART LIKE MARA-MTART，
MATNR LIKE MARA-MATNR，< br> * LAENG LIKE MARA-LAENG，
TY_MARA的结尾。

类型：TY_MSEG的开始，
BUDAT_MKPF的MSEG-BUDAT_MKPF，
MATNR的MSEG-MATNR，
WERKS 像MSEG-WERKS，
BWART像MSEG-BWART，
RSNUM像MSEG-RSNUM，
TY_MSEG的结尾。

类型：TY_MCHA的开始，
VFDAT像MCHA-VFDAT ，
MATNR像MCHA-MATNR，
TY_MCHA的结尾。

类型：TY_MBEW的开头，
LBK UM LIKE MBEW-LBKUM，
SALK3 LIKE MBEW-SALK3，
MATNR LIKE MBEW-MATNR，
TY_MBEW的结尾。

数据：T_RESULT TY_RESULT类型表，
GS_RESULT类型 TY_RESULT，
TY_MCHA的T_MCHA类型表，
TY_MCHB的GS_MCHA类型表，
TY_MCHB的T_MCHB类型表，
TY_MAKT的T_MAKT类型表，

TY_T001W的T_T001W类型表，
GS_T001W TY_T001W类型表，
TY_MARA的T_MARA类型表，
GS_MARA TY_MARA的类型表，
T_MSEG TY_MSEG的类型表，
GS_TSM > TY_MBEW的T_MBEW类型表，
GS_MBEW类型TY_MBEW，
TY_MCT0的T_MCT0类型表，
GS_MCT0 TYPE TY_MCT0，
SUM TYPE P十进制2，
GS_STOCVAL TYPE TY > GS_AGING类型TY_MSEG-RSNUM，
开始于T_0200，发生0。
包含结构ZPI_MAP_PLANT。
数据：SEL（1）。
数据：T_0200的结尾。
数据：TYPE_DATE LIKE SY -DATUM。
数据：T_FCAT类型SLIS_T_FIELDCAT_ALV，
GS_FCAT类似T_FCAT的行，
GS_LAYO类型SLIS_L AYOUT_ALV。

初始化。

带有标题标题文本B01的B1块的选择屏幕开始。
选择选项：S_MATNR用于MARA-MATNR，"材料
S_WERKS用于 MCHB-WERKS，"用于MCHB-LGORT的植物
S_LGORT。 " B1块的SLOC
选择屏幕结尾。

选择开始。

如果S_WERKS []不是初始的。
选择*从ZPI_MAP_PLANT
进入 表T_0200
在S_WERKS中工作并且PTYPE在（'O'，'B'）中工作的相应字段。

在T_0200处循环。
如果T_0200-PTYPE ='O'。
消息"非工厂仓库"类型为" I"。
返回。
退出。
ENDIF。
如果T_0200-PTYPE ='B'。
读取具有密钥操作的表T_0200 = ZPI_MAP_PLANT-WERKS。
ENDIF。
ENDLOOP。
ENDIF。

如果T_0200 []不初始。

刷新：T_MCT0。
清除：GS_MCT0 。

选择A〜WERKS
MATNR
LGORT
SUM（A〜CLABS）作为SUM_CLABS
CHARG
NAME1
从MCHB AS插入表T_MCT0
A
内接头T001W AS B
在B〜WERKS上= A〜WERKS
S_MATNR
中的MATNR和S_WERKS
中的A〜WERKS在S_LGORT
中的LGORT *和A〜 WERKS IN（'2297'，'21B7'）
按A〜WERKS MATNR LGORT CHARG名称分组。

ENDIF。

如果T_MCT0 []不初始化。
< br>选择BIS MT
MTART
MATNR
从MARA
到表T_MARA
MATNR中的S_MATNR
和MTART NOT IN中（'ZNS'，'ZNV'，'ZSR'）。

从MSEG中选择BUDAT_MKPF
MATNR
WERKS
BWART
到表T_MSEG
S_WERKS
中的工作位置在S_MATNR
中的MATNR，并且BWART =' 101'
按BUDAT_MKPF MATNR WERKS BWART分组。

从SMB3
SALK3
MATNR
中选择SUM（LBKUM）作为SUM_LBKUM
到表T_MBEW
中的MATNR中 S_MATNR
按SALK3 MATNR分组。

ENDIF。

从MAKT选择MAKTX
MATNR
到表T_MAKT
中，查找T_MARA中的所有条目
> WHERE MATNR = T_MARA-MATNR。
从MCHA中选择VFDAT MATNR
到表T_MCHA
中，对于T_MARA中的所有条目， WMAT MATNR = T_MARA-MATNR。< br>
将T_MARA放入GS_MARA。
GS_RESULT-MAT​​NR = GS_MARA-MATNR。
GS_RESULT-BISMT = GS_MARA-BISMT。


将表T_MBEW读入GS_MBEW并使用键MATNR- GS_MARA MATNR。
如果GS_MBEW-LBKUM ='0'。
GS_RESULT-SUM_LBKUM = GS_MBEW-LBKUM。
ELSEIF GS_MBEW-LBKUM <>'0'。
GS_RESULT-SUM_LBKUM =（GS_MBEW-SALK3 * 100）/GS_MBEW-LBKUM。 "获取AVGCOST
ENDIF。

用KEY MATNR = GS_MARA-MATNR将表T_MSEG读入GS_MSEG。
如果SY-SUBRC EQ0。
GS_RESULT-BUDAT_MKPF = GS_MSEG-BUDAT_MKPF。
> GS_RESULT-AGING = SY-DATUM-GS_RESULT-BUDAT_MKPF。
ENDIF。

用键MATNR = GS_MARA-MATNR将表T_MAKT读入GS_MAKT。
如果SY-SUBRC EQ0。
GS_RESULT-MAKTX = GS_MAKT-MAKTX。
ENDIF。

用键MATNR = GS_MARA-MATNR将表T_MCHA读入GS_MCHA。
如果SY-SUBRC EQ0。
GS_RESULT-VFDAT = GS_MCHA -VFDAT。
ENDIF。

用密钥MATNR = GS_MARA-MATNR将表T_MCT0读入GS_MCT0。
GS_RESULT-WERKS = GS_MCT0-WERKS。
GS_RESULT-LGORT = GS_MCT0-L。 br> GS_RESULT-SUM_CLABS = GS_MCT0-CLABS。
GS_RESULT-CHARG = GS_MCT0-CHARG。
GS_RESULT-NAME1 = GS_MCT0-NAME1。
GS_RESULT-STOCVAL = GS_RESULT-SUM_LB_C。 IF S_MATNR ='X'。
IF S_WERKS ='X'。
IF S_LGORT ='X'。
ENDIF。
ENDIF。
ENDIF。

读取表 T_T001W进入具有密钥操作的GS_T001W = GS_MCT0-WERKS。
如果SY-SUBRC EQ 0.
GS_RESULT-NAME1 = GS_T001W-NAME1。
ENDIF。


将GS_RESULT追加到T_RESULT。
清除GS_RESULT。

ENDLOOP。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='WERKS'。
GS_FCAT-COL_POS = 1.
> GS_FCAT-SELTEXT_M ='工厂'。
将GS_FCAT附加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='NAME1'。
> GS_FCAT-COL_POS =2。
GS_FCAT-SELTEXT_M ='工厂名称'。
将GS_FCAT附加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='MATNR'。
GS_FCAT-COL_POS = 3.
GS_FCAT-SELTEXT_M ='MATERIAL'。
将GS_FCAT附加到T_FCAT。


清除GS_FCAT。
GS_FCAT- TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='BISMT'。
GS_FCAT-COL_POS =4。
GS_FCAT-SELTEXT_M ='SKU'。
追加GS_FCAT到T_FCAT。

>清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='MAKTX'。
GS_FCAT-COL_P OS =5。
GS_FCAT-SELTEXT_M ='DESCRIPTIONS'。
将GS_FCAT追加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。 'LGORT'。
GS_FCAT-COL_POS =6。
GS_FCAT-SELTEXT_M ='SLOC'。
将GS_FCAT附加到T_FCAT。

清除GS_FCAT。 '。
GS_FCAT-FIELDNAME ='SUM_CLABS'。
GS_FCAT-COL_POS = 7.
GS_FCAT-SELTEXT_M ='股票数量'。
将GS_FCAT附加到T_FCAT。

清除GS_FCAT 。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='SUM_LBKUM'。
GS_FCAT-COL_POS =8。
GS_FCAT-SELTEXT_M ='AVG成本'。 T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='STOCVAL'。
GS_FCAT-COL_POS = 9.
GS_FCAT-SELTEXT_M =' 库存值''。
将GS_FCAT追加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='BUDAT_MKPF'。
GS_FCAT-COL_POS = 10.
GS_FCAT-SELTEXT_M ='LAST RECV'。
将GS_FCAT附加到T_F CAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='AGING'。
GS_FCAT-COL_POS =11。
GS_FCAT-SELTEXT_M =' 老化（天）'。
追加GS_FCAT到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='CHARG'。
GS_FCAT- COL_POS = 12。 'VFDAT'。
GS_FCAT-COL_POS =13。
GS_FCAT-SELTEXT_M ='到期日期'。
将GS_FCAT附加到T_FCAT。

GS_LAYO-ZEBRA ='X'。

呼叫功能'REUSE_ALV_GRID_DISPLAY'
导出
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_USER_COMMAND ='USER_COMMAND'
I_GRID_TITLE ='报告存货' GS_LAYO
IT_FIELDCAT = T_FCAT
表
T_OUTTAB = T_RESULT。 " MASUKIN内部标签笔标记SEMUA输出YANG AKAN DITAMPILKAN

如果SY-SUBRC <> 0.
ENDIF。

形成USER_COMMAND并使用RS_COMM类型SY-UCOMM
RS_SEL类型SLIS_SELFIELD。
案例RS_COMM。
在'＆IC1'时。
读表T_RESULT
进入GS_RESULT
索引RS_SEL-TABINDEX。
结束。
ENDFORM。