Bug to export

viniciussanchez · Aug 15, 2019 · d389036 · d389036
1 parent 06ddd8f
commit d389036
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/core/DataSet.Serialize.DS.Impl.pas b/src/core/DataSet.Serialize.DS.Impl.pas
@@ -179,11 +179,10 @@ function TDataSetSerialize.DataSetToJSONObject(const ADataSet: TDataSet): TJSONO
     ADataSet.GetDetailDataSets(LDataSetDetails);
     for LNestedDataSet in LDataSetDetails do
     begin
-      if not(LNestedDataSet.RecordCount > 0) then
-        Continue;
       if (FOnlyUpdatedRecords) and (LNestedDataSet is TFDDataSet) then
         TFDDataSet(LNestedDataSet).FilterChanges := [rtInserted, rtModified, rtDeleted];
-      Result.AddPair(LowerCase(TDataSetSerializeUtils.FormatDataSetName(LNestedDataSet.Name)), DataSetToJSONArray(LNestedDataSet));
+      if (LNestedDataSet.RecordCount > 0) then
+        Result.AddPair(LowerCase(TDataSetSerializeUtils.FormatDataSetName(LNestedDataSet.Name)), DataSetToJSONArray(LNestedDataSet));
       if (FOnlyUpdatedRecords) and (LNestedDataSet is TFDDataSet) then
         TFDDataSet(LNestedDataSet).FilterChanges := [rtInserted, rtModified, rtUnmodified];
     end;