fixed a bug encountered when pulling entities

This commit is contained in:
Infineon\StieberD 2024-09-05 16:03:49 -07:00
parent a8a9e91d04
commit 5eef93065b

View File

@ -425,7 +425,11 @@ Service PullEntities(EntityList, StatusList, StatusCtrl, CommitId)
If Len(Record) else Record = " " If Len(Record) else Record = " "
If Type EQ "APPROW" then If Type EQ "APPROW" then
Table = Name[1, ":"] Table = Name[1, ":"]
Key = If Len(Metadata) then Metadata else Key = Name[Col2() + 1, Len(Name)] If Metadata NE '' then
Key = Metadata
end else
Key = Name[Col2() + 1, Len(Name)]
end
Open Table to hTable then Open Table to hTable then
Write Record to hTable, Key then Write Record to hTable, Key then
Open "SYSREPOS" to hSYSREPOS then Open "SYSREPOS" to hSYSREPOS then