Ver Fonte

* If Serverfilted is true, use the ServerFilter instead of the normal Filter

git-svn-id: trunk@8173 -
joost há 18 anos atrás
pai
commit
f88fca7d83
1 ficheiros alterados com 2 adições e 2 exclusões
  1. 2 2
      packages/fcl-db/src/sqldb/sqldb.pp

+ 2 - 2
packages/fcl-db/src/sqldb/sqldb.pp

@@ -754,9 +754,9 @@ begin
   if FWhereStartPos = 0 then
     SQLstr := SQLstr + ' where (' + Filter + ')'
   else if FWhereStopPos > 0 then
-    system.insert(' and ('+Filter+') ',SQLstr,FWhereStopPos+1)
+    system.insert(' and ('+ServerFilter+') ',SQLstr,FWhereStopPos+1)
   else
-    system.insert(' where ('+Filter+') ',SQLstr,FWhereStartPos);
+    system.insert(' where ('+ServerFilter+') ',SQLstr,FWhereStartPos);
   Result := SQLstr;
 end;