【发布时间】:2021-12-23 22:46:30
【问题描述】:
我遇到了以前从未见过的警告。
我的程序如下:
- 从文件中读取
ReferenceNumbers - 在
for each中使用那些ReferenceNumbers - 更改
Info字段的值
这是它在代码中的样子:
INPUT FROM VALUE('C:\Users\admin\Desktop\ref\reference.csv').
DEFINE VARIABLE cData AS CHARACTER NO-UNDO.
repeat:
if keyfunction(lastkey) = "end-error" then leave.
process events.
import unformatted cData.
FOR EACH V_Acct
WHERE V_Acct.Company = '123'
AND V_Acct.ReceiptType = 'U'
AND V_Acct.ReferenceNr = integer(TRIM(ENTRY(1,cData,';')))
AND V_Acct.xInfo = ''
EXCLUSIVE-LOCK:
V_Acct.xInfo = 'VGF00000000000000'.
END. /* for each V_Acct */
END. /* repeat */
从文件中正确读取参考编号(多次确认)。 我过去也更改过同一个数据库表的某些文件,但从未遇到过此错误消息。
有人可以帮我吗?
【问题讨论】:
标签: openedge progress-4gl