diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas
index 23a27042..dd92c673 100644
--- a/Source/GUIBase/uViewGridBase.pas
+++ b/Source/GUIBase/uViewGridBase.pas
@@ -69,13 +69,13 @@ type
     procedure SetViewFiltros(const Value: IViewFiltroBase);
     property ViewFiltros: IViewFiltroBase read GetViewFiltros write SetViewFiltros;
 
-    function esSeleccionCeldaDatos: Boolean;
+    function EsSeleccionCeldaDatos: Boolean;
 
     function getNumSeleccionados: Integer;    
     property NumSeleccionados: Integer read getNumSeleccionados;
 
-    function Locate(const AItemIndex: Integer; const AValue: String;
-      const APartialCompare: Boolean = False) : Boolean;
+    {function Locate(const AItemIndex: Integer; const AValue: String;
+      const APartialCompare: Boolean = False) : Boolean;}
  end;
 
 
@@ -137,8 +137,8 @@ type
     procedure RestoreFromIniFile;
     procedure StoreToIniFile;
 
-    function Locate(const AItemIndex: Integer; const AValue: String;
-      const APartialCompare: Boolean = False) : Boolean;
+    {function Locate(const AItemIndex: Integer; const AValue: String;
+      const APartialCompare: Boolean = False) : Boolean;}
 
     property Filter: string read GetFilter write SetFilter;
     property Filtered : Boolean read GetFiltered;
@@ -259,12 +259,12 @@ begin
   Result := (_FocusedView.ViewData.RowCount < 1);
 end;
 
-function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String;
+{function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String;
   const APartialCompare: Boolean): Boolean;
 begin
-{  if Assigned(_FocusedView) then
-    Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AText, APartialCompare, True, True)}
-end;
+  if Assigned(_FocusedView) then
+    Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AValue, APartialCompare, True, True)
+end;}
 
 procedure TfrViewGridBase.Preview;
 begin