phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed a bug when deleting all messages

Browse Source
This commit is contained in:
Infineon\StieberD
2024-10-24 18:08:15 -07:00
parent d4be43a478
commit 3604a4d8ea
4 changed files with 316 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
LSL2/STPROC/COMM_NOTE_PTRS.txt
View File

@ -148,12 +148,12 @@ ReadNote:
END
npParms = 'NOTE_PTRS':@RM:@USER4
UserRec = Database_Services('ReadDataRow', 'NOTE_PTRS', @USER4)
IF Error_Services('HasError') THEN
ErrMsg(Error_Services('GetMessage'))
RETURN
END
If RowExists('NOTE_PTRS', @User4) then
UserRec = Database_Services('ReadDataRow', 'NOTE_PTRS', @USER4)
end else
UserRec = ''
Database_Services('WriteDataRow', 'NOTE_PTRS', @User4, UserRec)
end
LOCATE NoteID IN UserRec<NOTE_PTRS_NOTE_IDS$> USING @VM SETTING Fpos THEN
UserRec<NOTE_PTRS_NEW$,Fpos> = 'No'
@ -222,7 +222,7 @@ Delete:
IF NoteIDS = '' THEN RETURN
npParms = 'NOTE_PTRS':@RM:@USER4
UserRec = obj_Tables('ReadRec',npParms)
UserRec = Database_Services('ReadDataRow', 'NOTE_PTRS', @User4)
IF Get_Status(errCode) THEN
ErrMsg(errCode)
@ -246,9 +246,10 @@ Delete:
NEXT I
npParms = FIELDSTORE(npParms,@RM,4,0,UserRec)
obj_Tables('WriteRec',npParms)
Database_Services('WriteDataRow', 'NOTE_PTRS', @User4, UserRec, True$, False$, True$)
GOSUB Refresh
RETURN