paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 15:47:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix DoResolveRecordUpdate

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-10 20:39:39 +02:00
parent 99e8caa8fa
commit 2a031cf9db
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,6 +122,7 @@ Type
Function CreateQueryParams : TQueryParams; virtual;
function GetURLQueryParams(IsRead : Boolean): string; virtual;
function DataPacketReceived(ARequest: TDataRequest): Boolean; override;
function DoResolveRecordUpdate(anUpdate : TRecordUpdateDescriptor): Boolean; override;
function GetStringFieldLength(F: TJSObject; AName: String; AIndex: Integer): integer;virtual;
function StringToFieldType(S: String): TFieldType; virtual;
Function DoGetDataProxy: TDataProxy; override;
@ -753,6 +754,46 @@ begin
end;
end;
function TSQLDBRestDataset.DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;
Var
rIdx,I : Integer;
Fld : TField;
rawData : JSValue;
Data : TJSArray absolute rawData;
ResRow : TJSObject;
aNew,aOld,aRow : JSValue;
FN : String;
begin
Result:=True;
if Assigned(anupDate.ServerData) and (anUpdate.Status<>usDeleted) then
begin
rIdx:=NativeInt(anUpdate.Bookmark.Data);
if Not (rIdx>=0) and (rIdx<Rows.Length) then
exit;
// Apply new values
aRow:=Rows[rIdx];
ResRow:=TJSJSON.parseObject(String(anUpdate.ServerData));
RawData:=ResRow.Properties[Connection.DataProperty];
if IsArray(RawData) and (Data.Length=1) and IsObject(Data[0]) then
begin
ResRow:=TJSObject(Data[0]);
for FN in TJSObject.getOwnPropertyNames(resRow) do
begin
Fld:=FindField(FN);
if Assigned(Fld) then
begin
aNew:=resRow.Properties[FN];
aOld:=FieldMapper.GetJSONDataForField(Fld,aRow);
if (aOld<>aNew) then
FieldMapper.SetJSONDataForField(Fld,aRow,aNew);
end;
end;
end;
end;
end;
end.