Browse Source

* Make sure output contains something in case of empty dataset

git-svn-id: trunk@42266 -
michael 6 years ago
parent
commit
01e5861255
1 changed files with 7 additions and 2 deletions
  1. 7 2
      packages/fcl-web/src/restbridge/sqldbrestdata.pp

+ 7 - 2
packages/fcl-web/src/restbridge/sqldbrestdata.pp

@@ -699,8 +699,13 @@ begin
       end;
     if not (D.EOF and D.BOF) then
       StreamDataset(IO.RESTOutput,D,FieldList)
-    else if Single then
-      DoNotFound;
+    else
+      begin
+      if Single then
+        DoNotFound
+      else
+        StreamDataset(IO.RESTOutput,D,FieldList)
+      end;
   finally
     D.Free;
   end;