Tiendas: excepción al entrar a modificar una tienda y salir sin hacer ningún cambio.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@247 f4e31baf-9722-1c47-927c-6f952f962d4b

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.