From 41446ac7421a35ef4fa3f5ba6b16558582d06177 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 23 Jun 2008 10:42:39 +0000
Subject: [PATCH] =?UTF-8?q?Tiendas:=20excepci=C3=B3n=20al=20entrar=20a=20m?=
 =?UTF-8?q?odificar=20una=20tienda=20y=20salir=20sin=20hacer=20ning=C3=BAn?=
 =?UTF-8?q?=20cambio.?=
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@247 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Empresas/Views/uViewTiendas.pas                | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas b/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
index 980a15a8..c5fb19da 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
@@ -84,14 +84,16 @@ begin
 end;
 
 procedure TfrViewTiendas.ModificarInterno;
+var
+  AController : ITiendasEmpresaController;
 begin
   inherited;
-  with TTiendasEmpresaController.Create do
-    try
-      VerTienda((dsDetalles.DataTable) as IBizEmpresasTiendas);
-    finally
-      Free;
-    end;
+  AController := TTiendasEmpresaController.Create;
+  try
+    AController.VerTienda((dsDetalles.DataTable) as IBizEmpresasTiendas);
+  finally
+    AController := NIL;
+  end;
 end;
 
 end.