paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-05 18:40:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Inserted and then deleted records are removed from changelist

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-10-05 13:56:50 +02:00
parent 367f635e12
commit eb52f60dde
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/db.pas
View File

@ -2900,7 +2900,13 @@ begin
begin begin
Result:=TRecordUpdateDescriptor(FChangeList[i]); Result:=TRecordUpdateDescriptor(FChangeList[i]);
Case aChange of Case aChange of
usDeleted : Result.FStatus:=usDeleted; usDeleted :
begin
if Result.FStatus = usInserted then
FChangeList.Delete(I)
else
Result.FStatus:=usDeleted;
end;
usInserted : DatabaseError(SErrInsertingSameRecordtwice,Self); usInserted : DatabaseError(SErrInsertingSameRecordtwice,Self);
usModified : Result.FData:=ActiveBuffer.Data; usModified : Result.FData:=ActiveBuffer.Data;
end end