paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-21 00:49:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix delete

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-11 16:03:31 +02:00
parent c4a5282309
commit 6a4925eee2
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/dataabstract/dadataset.pas
View File

@ -1205,9 +1205,16 @@ begin
aChange.Status:='pending'; aChange.Status:='pending';
if aDesc.Status=usInserted then if aDesc.Status=usInserted then
aChange.old:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._new)) aChange.old:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._new))
else else if aDesc.Status=usDeleted then
begin
aChange.old:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._Old)); aChange.old:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._Old));
aChange.new_:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._new)); if Length(aChange.old)=0 then
aChange.old:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._new));
// Actually should be all null...
aChange.new_:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._new));
end
else
aChange.new_:=CopyArray(TJSArray(TDADataRow(aDesc.Data)._new));
excludeItems(ExcludedFields,aChange.new_); excludeItems(ExcludedFields,aChange.new_);
excludeItems(ExcludedFields,aChange.old); excludeItems(ExcludedFields,aChange.old);
aChange.changeType:=ChangeTypes[aDesc.Status]; aChange.changeType:=ChangeTypes[aDesc.Status];