From 8cf408bcc1d08aa04f91d2dbf8466104dc9137ee Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 14 Mar 2012 16:07:42 +0000
Subject: [PATCH] =?UTF-8?q?Tareas=20#850:=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.FarmaciaPH_Etiquetas/trunk@29 7b0b1a58-4aa1-b946-8089-8453ede31e50
---
 Source/Base/Utiles/uGridStatusUtils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/Base/Utiles/uGridStatusUtils.pas b/Source/Base/Utiles/uGridStatusUtils.pas
index 6ddd209..dfcd1cd 100644
--- a/Source/Base/Utiles/uGridStatusUtils.pas
+++ b/Source/Base/Utiles/uGridStatusUtils.pas
@@ -88,12 +88,12 @@ var
   AList: TList;
   AKeyValue: Variant;
 begin
+  I := 0;
   Result := nil;
 
   if not Assigned(RecordInfo) then
   	Exit;
 
-  I := 0;
   ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
   AList := TList.Create;
   try