From 0c042482c0285551cef92f4164481a10c11485d1 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 22 Jun 2010 16:05:27 +0000
Subject: [PATCH] =?UTF-8?q?uGridUtils=20->=20fallo=20en=20la=20funci=C3=B3?=
 =?UTF-8?q?n=20'FindRecordEx'=20que=20pod=C3=ADa=20producir=20errores=20de?=
 =?UTF-8?q?=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.Acana_FactuGES2/trunk@521 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Base/Utiles/uGridUtils.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Source/Base/Utiles/uGridUtils.pas b/Source/Base/Utiles/uGridUtils.pas
index abcffa37..c8560006 100644
--- a/Source/Base/Utiles/uGridUtils.pas
+++ b/Source/Base/Utiles/uGridUtils.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;