paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-16 10:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Call RecordChange, so server-side changes are visualized

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-18 14:49:54 +02:00
parent 4410361758
commit 82d1ee313c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/sqldbrestdataset.pp
View File

@ -764,9 +764,11 @@ Var
ResRow : TJSObject;
aNew,aOld,aRow : JSValue;
FN : String;
HasChange : Boolean;
begin
Result:=True;
HasChange:=False;
if Assigned(anupDate.ServerData) and (anUpdate.Status<>usDeleted) then
begin
rIdx:=NativeInt(anUpdate.Bookmark.Data);
@ -787,11 +789,16 @@ begin
aNew:=resRow.Properties[FN];
aOld:=FieldMapper.GetJSONDataForField(Fld,aRow);
if (aOld<>aNew) then
begin
FieldMapper.SetJSONDataForField(Fld,aRow,aNew);
HasChange:=True;
end;
end;
end;
end;
end;
if HasChange then
DataEvent(deRecordChange,Nil);
end;