Merge pull request #40 from juliosenha/master

Ajuste em master detail com mais de 2 níveis
viniciussanchez · Apr 27, 2020 · b94cc8e · b94cc8e
2 parents d40e92e + 7ef14c8
commit b94cc8e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/DataSet.Serialize.Import.pas b/src/core/DataSet.Serialize.Import.pas
@@ -322,6 +322,9 @@ procedure TJSONSerialize.JSONObjectToDataSet(const AJSONObject: TJSONObject; con
         Continue;
       if LJSONValue is TJSONNull then
         Continue;
+      if TUpdateStatus.usUnmodified.ToString.Equals(LObjectState) then
+        if not ADataSet.Locate(GetKeyFieldsDataSet(ADataSet), VarArrayOf(GetKeyValuesDataSet(ADataSet, AJSONObject)), []) then
+          Continue;
       if LJSONValue is TJSONObject then
         JSONObjectToDataSet(LJSONValue as TJSONObject, LNestedDataSet, True)
       else if LJSONValue is TJSONArray then