Añadido código en DA en la unidad uDADataTable para que funcionen los where (procedimiento OnWhereChange)

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@13 b6239004-a887-0f4b-9937-50029ccdca16

internal/5.0.23.613/1/Data Abstract for Delphi/Source/uDADataTable.pas

@@ -960,7 +960,8 @@ uses
   {$ENDIF DESIGNTIME}
   TypInfo, Variants,
   uROClient, uROSessions, uROXMLIntf,
-  uDARegExpr, uDABusinessProcessor;
+  uDARegExpr, uDABusinessProcessor,
+  uDARemoteDataAdapter;
 
 var
   _bizfields,
@@ -1134,10 +1135,18 @@ begin
 end;
 
 procedure TDADataTable.OnWhereChange(Sender : TObject);
-//var par : TDARemoteRequestParam;
+var
+  par : TRORequestParam;
 begin
   //TODO: par := DataRequestCall.FindParam(par_UserFilter);
   //if (par<>NIL) then par.AsString := fWhere.Clause;
+
+  if RemoteFetchEnabled and (RemoteDataAdapter <> nil) then
+  begin
+    par := (TDARemoteDataAdapter(RemoteDataAdapter).GetDataCall).FindParam('UserFilter');
+    if (par <> NIL) then
+      par.AsString := fWhere.Clause;
+  end;
 end;
 
 procedure TDADataTable.AttachEventHooks(aDataset: TDataset);