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

* Merging revisions 576 from trunk:

Browse Source 
------------------------------------------------------------------------
    r576 | michael | 2019-08-26 20:36:19 +0200 (Mon, 26 Aug 2019) | 1 line
    
    * Prevent calc fields spilling over from current record to edit buffer
    ------------------------------------------------------------------------
This commit is contained in:
michael 2019-08-26 18:40:28 +00:00
parent d7c7bfbf62
commit 22d6441e06
1 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/fcl-db/jsondataset.pas
View File

@ -35,6 +35,8 @@ type
// This class is responsible for mapping the field objects of the records.
TJSONFieldMapper = Class(TObject)
Public
// Remove a field from the
Procedure RemoveField(Const FieldName : String; FieldIndex : Integer; Row : JSValue); virtual; abstract;
// Return row TJSONData instance with data for field 'FieldName' or 'FieldIndex'.
Function GetJSONDataForField(Const FieldName : String; FieldIndex : Integer; Row : JSValue) : JSValue; virtual; abstract;
// Same, but now based on TField.
@ -276,6 +278,7 @@ type
FRowType: TJSONRowType;
FFilterExpression : TFPExpressionParser;
function GetFilterField(const AName: String): TFPExpressionResult;
procedure RemoveCalcFields(Buf: JSValue);
procedure SetActiveIndex(AValue: String);
procedure SetIndexes(AValue: TJSONIndexDefs);
procedure SetMetaData(AValue: TJSObject);
@ -413,6 +416,7 @@ type
// Fieldmapper to be used when the data is in an object
TJSONObjectFieldMapper = Class(TJSONFieldMapper)
Public
Procedure RemoveField(Const FieldName : String; FieldIndex : Integer; Row : JSValue); override;
procedure SetJSONDataForField(Const FieldName : String; FieldIndex{%H-} : Integer; Row,Data : JSValue); override;
Function GetJSONDataForField(Const FieldName : String; FieldIndex{%H-} : Integer; Row : JSValue) : JSValue; override;
Function CreateRow : JSValue; override;
@ -422,6 +426,7 @@ type
// Fieldmapper to be used when the data is in an array
TJSONArrayFieldMapper = Class(TJSONFieldMapper)
Public
Procedure RemoveField(Const FieldName : String; FieldIndex : Integer; Row : JSValue); override;
procedure SetJSONDataForField(Const FieldName{%H-} : String; FieldIndex : Integer; Row,Data : JSValue); override;
Function GetJSONDataForField(Const FieldName{%H-} : String; FieldIndex : Integer; Row : JSValue) : JSValue; override;
Function CreateRow : JSValue; override;
@ -977,14 +982,18 @@ end;
{ TJSONArrayFieldMapper }
procedure TJSONArrayFieldMapper.RemoveField(const FieldName: String; FieldIndex: Integer; Row: JSValue);
begin
TJSArray(Row).Splice(FieldIndex,1);
end;
procedure TJSONArrayFieldMapper.SetJSONDataForField(const FieldName: String;
FieldIndex: Integer; Row, Data: JSValue);
begin
TJSValueDynArray(Row)[FieldIndex]:=Data;
end;
function TJSONArrayFieldMapper.GetJSONDataForField(Const FieldName: String;
FieldIndex: Integer; Row: JSValue): JSValue;
function TJSONArrayFieldMapper.GetJSONDataForField(const FieldName: String; FieldIndex: Integer; Row: JSValue): JSValue;
begin
Result:=TJSValueDynArray(Row)[FieldIndex];
end;
@ -997,6 +1006,11 @@ end;
{ TJSONObjectFieldMapper }
procedure TJSONObjectFieldMapper.RemoveField(const FieldName: String; FieldIndex: Integer; Row: JSValue);
begin
jsDelete(Row,FieldName);
end;
procedure TJSONObjectFieldMapper.SetJSONDataForField(const FieldName: String;
FieldIndex: Integer; Row, Data: JSValue);
begin
@ -1374,13 +1388,28 @@ begin
end;
end;
procedure TBaseJSONDataSet.RemoveCalcFields(Buf : JSValue);
Var
i : integer;
begin
For I:=0 to Fields.Count-1 do
if Fields[i].FieldKind in [fkCalculated,fkInternalCalc] then
FieldMapper.RemoveField(FIelds[i].FieldName,FIelds[i].Index,Buf);
end;
procedure TBaseJSONDataSet.InternalEdit;
begin
// Writeln('TBaseJSONDataSet.InternalEdit: ');
FEditIdx:=FCurrentIndex.RecordIndex[FCurrent];
if not isUndefined(Rows[FEditIdx]) then
FEditRow:=TJSJSON.parse(TJSJSON.stringify(Rows[FEditIdx]))
begin
FEditRow:=TJSJSON.parse(TJSJSON.stringify(Rows[FEditIdx]));
RemoveCalcFields(FEditRow);
end
else
FEditRow:=TJSObject.new;
// Writeln('TBaseJSONDataSet.InternalEdit: ',FEditRow);