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

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

专家们，

当我编译下面的代码时，它将工厂描述字段显示为空。 你能帮我解决吗

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

类型：TY_CEPC的开始，
PRCTR类型CEPC-PRCTR，
LAND1类型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，
IT_T001L类型表TY_T001L。

类型：开始于TY_T001W，
WERKS类型T001W-WERKS，
名称1类型T001W-NAME1，
LIFNR类型T001W-LIFNR，
LAND1类型T001W-LAND1，
TY_T001W的结尾。
数据：WA_T001W类型TY_T001W，< br> IT_T001W TYP E TY_T001W的表。

类型：TY_ZMM_BUSINESS的开头，
WERKS类型WERKS_D，
LGORT类型LGORT_D，
PRCTR类型PRCTR，
TY_ZMM_BUSINESS的结尾。
数据： WA_ZMM_BUSINESS类型TY_ZMM_BUSINESS，
IT_ZMM_BUSINESS类型表TY_ZMM_BUSINESS。

带标题标题文本001的A块的选择屏幕开始。
选择选项：T001W-WERKS的S_WERKS，

S_LGORT FOR T001L-LGORT，

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

选择开始。
性能GET_ZMM_BUSINESS。
性能GET_T001W。
性能GET_T001L。
PERFORM GET_CEPC。
PERFORM DIS。
PERFORM SET_FCAT。
PERFORM DISPLAY_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。 ENDIF。
ENDFORM。

GET_T001W表格。
如果IT_T001L不是初始代码。
从T001W的WERKS NAME1 LIFNR LAND1中选择在IT_T001L的表IT_T001W中，所有LIFNR = IT_T -LIFNR。
ENDIF。
ENDFORM。

如果未初始化IT_T001W，则获取GET_CEPC。
从CEPC中选择PRCTR LAND1到表IT_CEPC中，以查找IT_T001W中IT1所在的所有条目LAND1 = IT_T001W-land1。
ENDI F.
ENDFORM。

FORM DIS。
将其循环到WA_ZMM_BUSINESS中。
WA_FINAL-WERKS = WA_ZMM_BUSINESS-WERKS。
WA_FINAL-LGORT = WA_ZMM_BUSINESS-LGORT。
WA_FINAL-PRCTR = WA_ZMM_BUSINESS-PRCTR。

将IT_T001L循环插入WA_T001L。
WA_FINAL-LGOBE = WA_T001L-LGOBE。
将IT_CEPC放入WA_CEPC。
WA_FINAL-LAND1 = WA_CEPC-LAND1。
ENDLOOP。

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

将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。

表单DISPLAY_ALV。
WA_FIELDLAYOUT-COLWIDTH_OPTIMIZE ='X'。
L_PROG = SY-REPID。


>呼叫功能'REUSE_ALV_GRID_DISPLAY'
导出
I_CALLBACK_PROGRAM = L_PROG
IS_LAYOUT = WA_FIELDLAYOUT
IT_FIELDCAT = IT_FIELDCAT
表格
T_OUTTAB = IT_FINAL
EXC > OTHERS =2。

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

***用于更新字段目录的表单
使用P_FNAME类型CHAR20
P_TXT类型CHAR50的SUB_FCAT_ALV表单。
数据SNO类型I.
SNO = SNO + 1.
WA_FIELD CAT-COL_POS = SNO。
WA_FIELDCAT-FIELDNAME = P_FNAME。
WA_FIELDCAT-SELTEXT_L = P_TXT。

将WA_FIELDCAT附加到IT_FIELDCAT。

清除WA_FIELDCAT。

ENDFORM。

致谢，

巴瓦尼。