Procházet zdrojové kódy

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

git-svn-id: trunk@8173 -
joost před 18 roky
rodič
revize
f88fca7d83
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  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;