diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas
index ba2961a4..098981f7 100644
--- a/Source/Modulos/Articulos/Controller/uArticulosController.pas
+++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas
@@ -99,7 +99,7 @@ implementation
 uses
   cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf, uFactuGES_App,
   uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos,
-  uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces,
+  uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces, Dialogs,
   uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows;
 
 { TArticulosController }
@@ -178,8 +178,14 @@ begin
     else
        Result := BuscarTodos(AClienteID);
 
-    // Filtrar por referencia
-    with Result.DataTable.DynamicWhere do
+    // Filtrar por referencia, se cambia por el where anterior porque luego no nos reconoce bien la cadena, al contener UPPER
+    with Result.DataTable.Where do
+    begin
+      AddText(Format('UPPER(%s) = ''%s''', [fld_ArticulosREFERENCIA, UpperCase(Ref)]));
+    end;
+
+
+    {    with Result.DataTable.DynamicWhere do
     begin
       // (REFERENCIA >= Ref)
       Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA), NewConstant(UpperCase(Ref), datString), dboEqual);
@@ -188,7 +194,7 @@ begin
          Expression := Condicion
       else
          Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
-    end;
+    end;}
 
   finally
     HideHourglassCursor;
@@ -206,8 +212,13 @@ begin
     else
        Result := BuscarTodos(AClienteID);
 
-    // Filtrar por referencia
-    with Result.DataTable.DynamicWhere do
+    // Filtrar por referencia, se cambia por el where anterior porque luego no nos reconoce bien la cadena, al contener UPPER
+    with Result.DataTable.Where do
+    begin
+      AddText(Format('UPPER(%s) = ''%s''', [fld_ArticulosREFERENCIA_PROV, UpperCase(Ref)]));
+    end;
+
+    {with Result.DataTable.DynamicWhere do
     begin
       // (REFERENCIA >= Ref)
       Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA_PROV), NewConstant(UpperCase(Ref), datString), dboEqual);
@@ -216,7 +227,7 @@ begin
          Expression := Condicion
       else
          Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
-    end;
+    end;}
 
   finally
     HideHourglassCursor;
diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
index e48d5af6..aef6f6a1 100644
--- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
+++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
@@ -6,6 +6,7 @@ object srvArticulos: TsrvArticulos
   ConnectionName = 'IBX'
   ServiceSchema = schArticulos
   ServiceDataStreamer = Bin2DataStreamer
+  AllowWhereSQL = True
   ExportedDataTables = <>
   BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
   Height = 229