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

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

嗨，

我想显示总和，

但是使用此代码时，仅显示前1行猛击，而不显示相加总和，

请帮助显示所有行的状态和显示状态的总和。

报告ZREPORT_SALES_PERMONTH。
TYPE-POOLS：SLIS。
* ---------------------------- ------------------------------------------ *
*表格
* ------------------------------------------------ ---------------------- *
表格：MSEG，MARA，MAKT，LFA1，T005U，T023T，ZPI_MAP_PRIN，EIA，T001W，MKPF。
* ------------------------------------------------ ---------------------- *
*内部表
* ----------------- -------------------------------------------------- --- *
类型：TY_RESULT的开始，
像MKPF-BUDAT的BUDAT，" PERIODEZZ
*像EINA-REGIO一样的REGIO，" BEZEI像T005U-BEZEI一样的BEZEI，" DESC REGIONZZ
MATNR LIKE MARA-MATNR，" MATERIALZZ
MAKTX LIKE MAKT-MAKTX，" DESCRIPTIONSZZ
WGBEZ60 LIKE T023T-WGBEZ60，" SUBGATEGORYZZ
WGBEZ LIKE T023T-WGBEZ，" Categoryzz LIKE TUM> ，" QUANTITYZZ
类似于MARA-MEINS，" SATUANZZ
BISMT类似于MARA-BISMT"，" SKUZZ
NAME类似于ZPI_MAP_PRIN-NAME，" PRINCIPALZZ
NAME1类似于LFA1-NAME1"，" DIST RIBUTORZZ
像MSEG-BWART一样的BWART，"运动TYPEZZ
TY_RESULT的结尾。



类型：TY_MARA的开始，
BISMT像MARA-BISMT一样，" SKU
MATNR LIKE MARA-MATNR，"材料
像LIKE MARA-MEINS，"材料DESC
ZZPRIN LIKE MARA-ZZPRIN，
MATKL LIKE MARA-MATKL，
ERNAM LIKE MARA-ERNAM，
结束 TY_MARA的类型。

类型：TY_MSMK的开始类型，
BUDAT像MKPF-BUDAT一样，"期限像MSEG-MENGE一样，" SUM QUANTITY
BWART像MSEG-BWART一样，"运动类型
WERKS LIKE MSEG-WERKS，
MATNR LIKE MSEG-MATNR，
MJAHR LIKE MKPF-MJAHR，
MBLNR LIKE MKPF-MBLNR，
TY_MSMK结尾。

类型 ：TY_MAMA的开始，
像MARA-BISMT这样的BISMT，" SKU
像MARA-MATNR这样的MATNR，"像是MARA-MEINS那样的材料，"像这样的材料
像是MARA-ZZPRIN那样的ZZPRIN，
> MATKL LIKE MARA-MATKL，
ERNAM LIKE MARA-ERNAM，
MAKTX LIKE MAKT-MAKTX，"说明
TY_MAMA结尾。

类型：TY_MSEG的开始，
MENGE 像MSEG-MENGE，"求和数量
BWART像MSEG-BWA RT，"运动类型
像MSEG-MATNR的MATNR，
象MSEG-WERKS的WERKS，
TY_MSEG的结尾。

类型：TY_MKPF的开始，
BUDAT像MKPF-BUDAT ，" PERIOD
MJAHR像MKPF-MJAHR，
MBLNR像MKPF-MBLNR，
TY_MKPF的结尾。
类型：TY_MAKT的开头，
MAKTX像MAKT-MAKTX，" 描述
TY_MAKT的结尾。

类型：TY_LFA1的开始，
NAME1像LFA1-NAME1，" DISTRIBUTOR
LAND1像LFA1-LAND1，
LIFNR像LFA1-LIFNR，< br> REGIO LFA1-REGIO，
TY_LFA1的结尾。

类型：TY_T023T的开始，
WGBEZ LIKE T023T-WGBEZ，"类别
WGBEZ60 LIKE T023T-WGBEZ60，" SUBCATEGORY < br> MATKL LIKE T023T-MAT​​KL，
TY_T023T的结尾。

类型：TY_ZPI_MAP_PRIN的开头，
NAME LIKE ZPI_MAP_PRIN-NAME，" PRINCIPAL
ERNAM LIKE ZPI_MAP_PRIN-ERNAM， ID像ZPI_MAP_PRIN-ID，
TY_ZPI_MAP_PRIN的结尾。
类型：TY_T005U，
BLAND像T005U-BLAND的开头，"区域
BEZEI像T005U-BEZEI，" DESC区域
> LAND1样T005U-LAND1，
TY_T005U的结尾。

类型：TY_EINA的开始，
像埃里纳·雷诺那样的REGIO，
像EINA-LIFNR那样的LIFNR，像
MATNR像EINA-MATNR一样，
TY_EINA的结尾。

类型：TY_T001W的开始，
像T001W-REGIO的区域，
像T001W-WERKS一样的WRKS，
TY_T001W的末端。
* --------- -------------------------------------------------- ----------- *
*声明数据
* ---------------------------- ------------------------------------------ **
数据：T_MSEG TYPE TY_MSEG表，
GS_MSEG类型TY_MSEG，
T_MAKT类型TY_MAKT表，
GS_MAKT类型TY_MAKT，
T_MARA类型TY_MARA表，
GS_MARA类型TY_MARA表， TY_LFA1，
GS_LFA1类型TY_LFA1，
T_T005U TY_T005U类型表，
GS_T005U TY_T005U类型表，
T_T023T TY_T023T类型表
GS_ZPI_MAP_PRIN类型TY_ZPI_MAP_PRIN，
T_RESULT类型表TY_RESULT，
GS_RESULT类型TY_RESULT，
T_FCAT类型SLIS_T_FIE LDCAT_ALV，
GS_FCAT像T_FCAT的生产线，
GS_LAYO类型SLIS_LAYOUT_ALV，
T_EINA TY_EINA类型表，
GS_EINA TY_EINA类型表，
T_T001W TY_T 001 W型表TY_T001
TY_MSMK的T_MSMK类型表，
TY_MSMK的GS_MSMK类型表，
TY_MAMA的T_MAMA类型表，
GS_MAMA类型TY_MAMA，
和类型P小数。2.
INITIALIZATION。 -------------------------------------------------- -------------------- *
* DECCLARE SELECTION-SCREEN
* ----------------- -------------------------------------------------- --- *
具有框架标题文本B01的B1块的选择屏幕开始。
选择选项：MKPF-BUDAT的S_BUDAT，" MARA-MATNR"的PERIODE
S_MATNR。
选择- B1块的屏幕结尾。
* ---------------------------------------- ------------------------------ *
*开始选择
* ------ -------------------------------------------------- -------------- *
开始选择。

如果S_BUDAT []是初始的。 " KALO INPUTAN BUDAT TIDAK DIISI AKAN KELUAR PESAN DIBAWAH
消息'请输入日期'类型'I'。
否则。

刷新：T_MSMK。
清除：GS_MSMK。
< br> SELECT DISTINCT b〜BUDAT
a〜MENGE
a〜BWART
a〜WERKS
a〜MATNR
b〜MJAHR
b〜MBLNR
插入表T_MSMK < br>从MSEG作为a
内联MKPF作为b
在b〜MJAHR = a〜MJAHR
和b〜MBLNR = a〜MBLNR
S_MATNR中的MATNR
和S_BUDAT中的BUDAT
和BWART IN（'Z51'，'Z52'）。

从T001W
选择表
WERKS
到表T_T001W
中T_MSEG
中的所有条目
哪里= T_MSEG-WERKS。
ENDIF。

如果T_MSMK []不初始。
选择a〜BISMT
a〜MATNR
a〜MEINS
a〜 ZZPRIN
a〜MATKL
a〜ERNAM b〜MAKTX
从MARA到表T_MAMA
作为内在连接MAKT AS b
进入b〜MATNR = a〜 MATNR
在S_MATNR中的〜MATNR。
ENDIF。

如果T_MAMA []不初始。
选择区域
LIFNR
MATNR
来自EINA
>进入表T_EINA
中的所有条目 T_MARA
WHERE MATNR = T_MARA-MATNR。

从T023T
选择WGBEZ
WGBEZ60
MATKL
到表T_T023T
中T_MARA
中的所有条目 MATKL = T_MARA-MATKL。

选择名称
ERNAM
ID
从ZPI_MAP_PRIN
到表T_ZPI_MAP_PRIN
中，对于T_MARA
中的所有条目，ID = T_MARA-ZZPRIN 。
ENDIF。

从T005U选择BLAND
BEZEI
LAND1
到表T_T005U
中T_EINA的所有条目
BLAND = T_EINA-REGIO
AND LAND1 ='ID'。

选择名称1
LAND1
LIFNR
区域
从LFA1
到表T_LFA1
中，用于T_EINA中的所有条目< br> WHERE LIFNR = T_EINA-LIFNR。

* ---------------------------------- ------------------------------------ *
*结束选择
* -------------------------------------------------- -------------------- *
将T_MSMK循环到GS_MSMK。
GS_RESULT-BUDAT = GS_MSMK-BUDAT。
如果GS_MSEG-BWART ='Z51'。
GS_RESULT-SUM_MENGE = GS_RESULT-SUM_MENGE + GS_MSMK-MENGE。
ELSEIF GS_MSEG-BWART ='
GS_RESULT-SUM_MENGE = GS_RESULT-SUM_MENGE-GS_MSMK-MENGE。
ENDIF。

GS_RESULT-BWART = GS_MSMK-BWART。
如果S_BUDAT ='X'。
ENDIF。

< br>通过键MATNR = GS_MSMK-MATNR将表T_MAMA读入GS_MAMA。
GS_RESULT-BISMT = GS_MAMA-BISMT。
GS_RESULT-MAT​​NR = GS_MAMA-MATNR。
GS_RESULT-MEINS = GS_MAMA。 > GS_RESULT-MAKTX = GS_MAMA-MAKTX。
如果S_MATNR ='X'。
ENDIF。

用密钥ID = GS_MAMA-ZZPRIN将表T_ZPI_MAP_PRIN读入GS_ZPI_MAP_PRIN。
GS_ZPI_ERN_AM GS_MAMA-ERNAM。
如果SY-SUBRC EQ 0.
GS_RESULT-NAME = GS_ZPI_MAP_PRIN-NAME。
ENDIF。

读取表T_T023T到GS_T023T中，键MATKL = GS_MAMA-MATKL。 br> IF SY-SUBRC EQ 0.
GS_RESULT-WGBEZ = GS_T023T-WGBEZ。
GS_RESULT-WGBEZ60 = GS_T023T-WGBEZ60。
ENDIF。

用K读取表T_EINA到GS_EINA EY MATNR = GS_MAMA-MATNR。
如果SY-SUBRC EQ 0.
GS_RESULT-MAT​​NR = GS_EINA-MATNR。
ENDIF。

将表T_T005U读入带有键区的GS_T005U = GS_EINA- REGIO
LAND1 ='ID'。
如果SY-SUBRC EQ 0.
GS_RESULT-BEZEI = GS_T005U-BEZEI。
ENDIF。

用键LIFNR将表T_LFA1读入GS_LFA1 = GS_EINA-LIFNR。
如果SY-SUBRC方程为0。
GS_RESULT-NAME1 = GS_LFA1-NAME1。
ENDIF。

在GS_RESULT后面加上T_RESULT。 " LAKUKAN追加了UNTUK MENGGABUNGKAN GS的结果，结果SEBELUM DI BUAT MENJADI输出DI ALV DI BAWAH
清除了GS_RESULT。" DI CLEAR AKAN数据TIDAK TERTUMPUK DAN AGAR TIDAK LAMA负载。
ENDLOOP GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='BUDAT'。
GS_FCAT-COL_POS = 1.
GS_FCAT-SELTEXT_M ='PERIODE'。
附加GS_FCAT至 T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='BEZEI'。
GS_FCAT-COL_POS = 2.
GS_FCAT-SELTEXT_M =' DESC区域"。
将GS_FCAT追加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='BWART'。
GS_FCAT-COL_POS = 3.
GS_FCAT-SELTEXT_M ='运动类型'。
追加GS_FCAT到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME =' MATNR'。
GS_FCAT-COL_POS =4。
GS_FCAT-SELTEXT_M ='材料'。
将GS_FCAT附加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT' 。
GS _FCAT-FIELDNAME ='MAKTX'。
GS_FCAT-COL_POS = 5.
GS_FCAT-SELTEXT_M ='DESCRIPTIONS'。
将GS_FCAT附加到T_FCAT。


清除GS_FCAT。
GS_FCAT- TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='WGBEZ60'。
GS_FCAT-COL_POS =6。
GS_FCAT-SELTEXT_M ='SUBCATEGORY'。
将GS_FCAT附加到T_FCAT。 >清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='WGBEZ'。
GS_FCAT-COL_POS = 7.
GS_FCAT-SELTEXT_M ='CATEGORY'。
附录 GS_FCAT到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='SUM_MENGE'。
GS_FCAT-COL_POS =8。
GS_FCAT-COL_POS = 8。 ='SUM QUANTITY'。
将GS_FCAT追加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='MEINS'。
GS_FCAT- COL_POS =9。
GS_FCAT-SELTEXT_M ='SATUAN'。
将GS_FCAT附加到T_FCAT。

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

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME ='NAME'。
GS_FCAT-COL_POS = 11.
GS_FCAT-SELTEXT_M ='PRINCIPAL'。
将GS_FCAT附加到T_FCAT。

清除GS_FCAT。
GS_FCAT-TABNAME ='T_RESULT'。
GS_FCAT-FIELDNAME =' NAME1'。
GS_FCAT-COL_POS =12。
GS_FCAT-SELTEXT_M ='DISTRIBUTOR'。
将GS_FCAT附加到T_FCAT。

GS_LAYO-ZEBRA ='X'。 " BIKIN TAMPILAN OUTPUTNYA ANTAR ROW BERWARNA SELANG SELING

呼叫功能'REUSE_ALV_GRID_DISPLAY'
导出
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_USER_COMMAND ='USER_COMMAND' 每个区域的"判断有效的DI ATAS输出报告
IS_LAYOUT = 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。