亲爱的吉萨，

请执行以下操作。

程序名称：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。 >

在

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

如果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。