亲爱的

在qa32中要添加哪个字段？

亲爱的吉萨，

请执行以下操作。

程序名称：RQEEAL10

在object_tab中声明

数据：NAME1类型LFA1-NAME1。

然后将下面的代码放在

之后

*******************标准代码

增强2/CWM/APPL_QM_RQEEAL10。 "有效版本
* CWM CWEK001511 OK，2004年7月19日
包括/CWM/MOD_RQEVAM10。
增强。

*********************增强代码

如果OBJECT_TAB-LIFNR不初始且OBJECT_TAB-NAME1初始。
从LFA1中选择单个NAME1
到OBJECT_TAB-NAME1
中，LIFNR = OBJECT_TAB-LIFNR。
ENDIF。 >

在

之后创建fieldcat

*******************标准代码

如果g_repid NE sy-repid。
导出g_fieldcat_tab到内存ID'FIELDCATALOG'。
ENDIF。

*********************增强代码

如果SY-TCODE ='QA32'。
清除H_FIELDCAT_WA。

H_FIELDCAT_WA-FIELDNAME ='NAME1'。
H_FIELDCAT_WA-TABNAME ='OBJECT_TAB'。
H_FIELDCAT_WA-SELTEXT_L = '供应商名称'。
H_FIELDCAT_WA-OUTPUTLEN = 25.
追加H_FIELDCAT_WA到G_FIELDCAT_TAB。
如果g_repid NE sy-repid。
导出g_fieldcat_tab到内存ID'FIELDCATALOG'。
ENDIF。 br> ENDIF。

包括：RQALVF14

在此标准代码之后。

*******************标准代码

呼叫功能'STATUS_BUFFER_REFRESH'。

免费存储ID'SUBMIT'。
免费存储ID g_repid。

*********************增强代码

如果SY-TCODE ='QA32'。
在LIFNR不初始且NAME1初始的情况下，在OBJECT_TAB处循环。
从LFA1选择单个NAME1
在OBJECT_TAB-NAME1中选择LIFNR = OBJECT_TAB -LIFNR。
如果SY-SUBRC =0。
修改对象_标签的运输名称1.
ENDIF。
ENDLOOP。
ENDIF。

执行一致性检查，用于检查实际传输到ALV的数据。 如果您在此处添加的字段是初始字段，请进行调试并在abap堆栈的不同级别上查找名称为object_tab的多个内部表，在abap源代码中查找在内部表到内部表的行副本执行位置。

致谢

Raymond

1。 QALS-在QALS表中追加供应商名称字段。

2。 在此处添加标准代码

i）如果gv_qapo_select = g_x。

*在这种情况下，必须选择较低的节点

将g_x移动到gv_ignore_ud_fields。

ELSE。

********客户代码**************

从LFA1中选择单个名称1

INTO OBJECT_TAB-NAME1

LIFNR = OBJECT_TAB-LIFNR

*****************************************

APPEND object_tab。

拒绝。

ENDIF。

ii）。 IF（qals-stat35 EQ g_x或gv_ignore_ud_fields EQ g_x）AND（gv_qapo_select IS INITIAL或gv_qapo_exist = g_x）。 "以获取供应商名称

********客户代码**************

从LFA1中选择单个名称1

OBJECT_TAB-NAME1

LIFNR = OBJECT_TAB-LIFNR。

*****************************************

APPEND object_tab。 ENDIF。

dis问题解决后。