From 1dd49fb520a0a840dc2d53803708c3f86a4706d4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 22 Jun 2010 16:08:29 +0000
Subject: [PATCH] =?UTF-8?q?uGridStatusUtils=20->=20fallo=20en=20la=20funci?=
 =?UTF-8?q?=C3=B3n=20'FindRecordEx'=20que=20pod=C3=ADa=20producir=20errore?=
 =?UTF-8?q?s=20de=20violaci=C3=B3n=20de=20memoria.?=
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.Tecsitel_FactuGES2/trunk@1003 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/Utiles/uGridStatusUtils.pas | 3 +++
 1 file changed, 3 insertions(+)

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