不显示工厂描述字段数据

2020-09-04 14:02发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)专家们, 当我编译下面的代码时...

         点击此处--->   EasySAP.com群内免费提供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。

致谢,

巴瓦尼。