嗨，布彭德拉，

我正在分享我的代码，我是被开发的

报告ZMM_BUSINESS_BASE。
表格：ZMM_BUSINESS，T001W，T001L，CEPC。
类型：TY_FINAL的开始， LGORT类型T001L-LGORT，
LIFNR类型T001L-LIFNR，
LGOBE T001L-LGOBE型，
WERKS T001W-WERKS型，
NAME1 T001W-NAME1型，
LAND1 T001W-LAND1型，PRCTR CEPC-PRCTR型，
TY_FINAL结尾。 > DATA：WA_FINAL TYPE TY_FINAL，
IT_FINAL TYPE TY_FINAL表。

TYPES：TY_CEPC的开始，
PRCTR TYPE CEPC-PRCTR，
LAND1 TYPE CEPC-LAND1，
END TY_CEPC的数据。
数据：TY_CEPC的WA_CEPC类型，TY_CEPC的IT_CEPC类型表。

类型：TY_T001L的开始，LGORT的类型T001L-LGORT，LGOBE的类型T001L-LGOBE ，
LIFNR类型T001L-LIFNR，
结束于TY_T001L。
数据：WA_T001L类型TY_T001L， T_L001L类型表TY_T001L。

类型：开始于TY_T001W，
WERKS TYPE T001W-WERKS，
NAME1 TYPE T001W-NAME1，
LIFNR TYPE T001W-LIFNR，
LAND1 TYPE T001W-LAND1，
TY_T001W的结尾。
DATA：WA_T001W TY_T001W的类型，< br> IT_T001W TY_T001W的类型表。

类型 ：开始于TY_ZMM_BUSINESS，
WERKS类型WERKS_D，
LGORT类型LGORT_D，
PRCTR类型PRCTR，<_> TY_ZMM_BUSINESS的结尾。
DATA：WA_ZMM_BUSINESS类型TY_ZMM_BUSINESS OF
。

DATA：L_PROG类型SY-REPID，
IT_FIELDCAT类型SLIS_T_FIELDCAT_ALV，
WA_FIELDLAYOUT类型SLIS_LAYOUT_ALV，
WA_FIELDCAT类似于IT_FIELDCAT的行。 A带框架标题文本001。
SELECT-OPTIONS：S_WERKS用于T001W-WERKS，

S_LGORT FOR T001L-LGORT，

CEPC-PRCTR的S_PRCTR。A块的选择屏幕结束。

开始选择。
PERFORM GET_ZMM_BUSINESS。
PERFORMGET_T001W。PERFORMGET_T001L。
PERFORM GET_CEPC。
PERFORM DIS。
PERFORMSET_FCAT。PERFORMDISPLAY_ALV。

FORM GET_ZMM_BUSINESS。
从ZMM_BUSINESS选择WERKS LGORT PRCTR到表IT_ZMM_BUSINESS中。
ENDFORM。

如果未初始化IT_ZMM_BUSINESS，则为GET_T001L。
从T001L中将LGORT LGOBE LIFNR选择到表IT_T001L中，以查找IT_ZMM_BUSINESS中的所有条目，其中LGORT = IT_ZMM_BUSINESS-LGORT。 ENDIF。
ENDFORM。

FORM GET_T001W。
如果IT_T001L不是初始代码。
从T001W的WERKS NAME1 LIFNR LAND1到
IT_T001W表IT_T001W中，所有IT_T001L中的条目LIFNR = IT_T001L -LIFNR。
ENDIF。
ENDFORM。

获取GET_CEPC。如果未初始化IT_T001W。
从CEPC中选择PRCTR LAND1到表IT_CEPC中，以获取IT_T001W中所有项，其中LAND1 = IT_T001W-land1。
ENDIF。
ENDFORM。

FORM DIS
将IT_ZMM_BUSINESS放入WA_ZMM_BUSINESS。
WA_FINAL-WERKS = WA_ZMM_BUSINESS-WERKS。
WA_FINAL-LGORT = WA_ZMM_BUSINESS-LGORT。
WA_FINAL-PRCTR = WA_ZMM_BUSINESS 在IT_T001L进入WA_T001L。
WA_FINAL-LGOBE = WA_T001L-LGOBE.WA_FINAL-LIFNR = WA_T001L-LIFNR.ENDLOOP。

在IT_CEPC进入WA_CEPC的环。
WA_FINAL-LAND1 = WA_CEPC-LAND1。
ENDLOOP。

使用键LIFNR将表IT_T001W读入WA_T001W =WA_T001L-LIFNR。WA_FINAL-NAME1= WA_T001W-NAME1。

APPEND WA_FINAL到IT_FINAL 。

清除：WA_ZMM_BUSINESS，
WA_T001W，
WA_T001L，
WA_CEPC。
ENDLOOP。
ENDFORM。

FORM SET_FCAT。
*调用SUB_FCAT_ALV表单以显示字段
PERFORM SUB_FCAT_ALV使用：'WERKS''Plant'，
'NAME1''plant description。'，
'LGORT''storage 位置"，
" LGOBE""存储位置说明。"，
" LIFNR""供应商"，
" PRCTR""利润中心"，
" LAND1""国家"。< br> *调用SUB_FCAT_ALV表单结束以显示字段
ENDFORM。

FORM DISPLAY_ALV。
WA_FIELDLAYOUT-COLWIDTH_OPTIMIZE ='X'。
L_PROG = SY-REPID。

> CALL FUNCTION'REUSE_ALV_GRID_DISPLAY'
导出 > OTHERS =2。

如果SY-SUBRC <> 0.
*在此处实施适当的错误处理
* it_final。
ENDIF。
ENDFORM。

***用于更新字段目录的表格
FORM SUB_FCAT_ALV使用P_FNAME类型CHAR20
P_TXT类型CHAR50。
DATA SNO类型I.
SNO = SNO +1。
WA_FIELDCAT-COL_POS = SNO。
WA_FIELDCAT-FIEL DNAME = P_FNAME。
WA_FIELDCAT-SELTEXT_L = P_TXT。

将WA_FIELDCAT附加到IT_FIELDCAT。

清除WA_FIELDCAT。

ENDFORM。