Преглед на файлове

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

git-svn-id: trunk@8173 -
joost преди 18 години
родител
ревизия
f88fca7d83
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  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;