From d1a9a9cd274b6b0155d39414767aed2d06dd5f0f Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 14 Mar 2012 15:25:31 +0000
Subject: [PATCH] =?UTF-8?q?Tareas=20#846:=20Se=20arregla=20fallo=20de=20se?=
 =?UTF-8?q?lecci=C3=B3n=20en=20el=20grid=20al=20cambiar=20de=20estado=20un?=
 =?UTF-8?q?a=20linea=20seleccionada=20sobre=20un=20grid=20filtrado?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@49 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 Source/Base/Utiles/uGridUtils.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Source/Base/Utiles/uGridUtils.pas b/Source/Base/Utiles/uGridUtils.pas
index c856000..3b0362f 100644
--- a/Source/Base/Utiles/uGridUtils.pas
+++ b/Source/Base/Utiles/uGridUtils.pas
@@ -88,12 +88,13 @@ var
   AList: TList;
   AKeyValue: Variant;
 begin
+  I := 0;
+  Result := nil;
+
   if not Assigned(RecordInfo) then
     Exit;
 
-  I := 0;
   ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
-  Result := nil;
   AList := TList.Create;
   try
     while I < AView.ViewData.RowCount do