选择屏幕未筛选数据 - EasySAP

ABAP Development

选择屏幕未筛选数据

2020-08-31 13:48发布

站内问答 / ABAP

1510 8

点击此处---> 群内免费提供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一样的LGORT，像
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-MATNR，
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-MATNR = 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。

点击此处---> 群内免费提供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一样的LGORT，像
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-MATNR，
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-MATNR = 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。

8条回答

一只江湖小虾

1楼-- · 2020-08-31 14:32

您好 Putri Mulia ，

请使用CODE按钮粘贴您的代码

以正确的格式显示，如下所示。

问题出在您的select语句上，您在查询中输入了" O"，如下所示：

 SELECT  *来自zpi_map_plant
     表t_0200的相应字段
     s_werks在哪里
     AND ptype IN（'O'，'B'）。

您的实际代码应如下所示：

 SELECT * FROM zpi_map_plant
     表t_0200的相应字段
     s_werks在哪里
     AND ptype ='B'。

注意！

2楼-- · 2020-08-31 14:35

请使用CODE按钮设置代码格式，以便以更加用户友好的格式（彩色）显示代码。

3楼-- · 2020-08-31 14:31

嗨，Putri，

我认为，如果遇到" O"类型的植物时不退出循环，而是将这些植物收集到表中并使用MESSAGE_STORE和MESSAGES_SHOW函数模块将其显示为弹出窗口并显示您的ALV输出中剩余的" B"型植物。

4楼-- · 2020-08-31 14:23

Putri Mulia ，可以您是否更清楚自己的要求？是否希望在用户输入工厂类型'O'数据时通过弹出消息通知用户？

5楼-- · 2020-08-31 14:29

如果S_WERKS []不初始化。
 SELECT WERKS <  br> MATNR 
 LGORT 实验室
 CHARG 
 FROM MCHB 
 INTO表T_MCHB 在S_WERKS中工作的地方。
 ENDIF。
 T_0200处的环。
清除 T_MCHB。
用密钥操作= T_0200-WERKS将表T_MCHB读入GS_MCHB。
 T_0200-PTYPE ='B'。

~~ENDLOOP。~~

~~加载中...~~

me_for_i
6楼-- · 2020-08-31 14:32

请使用COMMENT按钮输入评论，问题，添加详细信息等。ANSWER仅是提出解决方案，请在答案区域的右侧删除SAP文本。

请使用CODE按钮设置代码格式，以便以更加用户友好的格式（彩色）显示代码。

加载中...

1 2 下一页

~~一周热门更多>~~

点击此处---> 一起学习S4 HANA ...

相关问答

Join语句中的转换
5 个回答

请共享标准SAP程序（WebDynpro）Adobe Interactive表单的名称
2 个回答

验证销售订单（VA01）
3 个回答

MRM_INVOICE_POST帮助
1 个回答

更新后，自定义附件或" Z代码"会怎样？
6 个回答

使用BRF +确定输出
1 个回答

删除008关系
7 个回答

使用BETWEEN语句的字母数字验证是否存在问题？
2 个回答

相关文章

ABAP美女讲师 --- Report程序事件
0个评论

ABAP美女讲师 --- Report选择屏幕详细分析
0个评论

ABAP美女讲师 --- 变量创建及内表操作
0个评论

ABAP美女讲师 --- 数据字典
0个评论

ABAP美女讲师 --- SAP基础
0个评论

解析XLSX文件的短平快的解决方案
0个评论

使用ABAP生成具有静态/动态数据的Word文件
0个评论

如何从表中查找更改文档对象？
0个评论

采纳回答

向帮助了您的网友说句感谢的话吧!

非常感谢!

编辑标签

最多设置5个标签!

ABAP Development

举报内容

检举类型

检举内容

检举用户

检举原因

广告推广

恶意灌水

回答内容与提问无关

抄袭答案

其他

检举说明(必填)

打开微信“扫一扫”，打开网页后点击屏幕右上角分享按钮

付费偷看金额在0.1-10元之间

您已邀请15人回答查看邀请

擅长该话题的人

回答过该话题的人

我关注的人

标签大全站内问题专栏文章站内专家站内话题站内公告财富值规则

网上有害信息举报专区京ICP备2021023650号站内文章地图xml 站内问答地图xml 站内作者地图xml 站内标签地图xml Copyright © 2024 EasySAP