From f05ce284018aaf7e456ef1dfb524607e34c10e3d Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 14 Jul 2008 15:00:46 +0000
Subject: [PATCH] Limpieza de mensajes de warning.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@276 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../uDatosBancariosEmpresaController.pas         | 16 ----------------
 .../Controller/uTiendasEmpresaController.pas     |  2 +-
 .../Usuarios/Controller/uUsuariosController.pas  |  2 ++
 3 files changed, 3 insertions(+), 17 deletions(-)

diff --git a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
index e1befe64..e7fce7dc 100644
--- a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
@@ -14,12 +14,8 @@ type
   end;
 
   TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController)
-  private
-    FDataModule : IDataModuleEmpresas;
   public
     procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
-    constructor Create; virtual;
-    destructor Destroy; override;
   end;
 
 implementation
@@ -30,18 +26,6 @@ uses
   uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
   uEditorRegistryUtils, cxControls;
 
-constructor TDatosBancariosEmpresaController.Create;
-begin
-  inherited;
-//  FDataModule := TDataModuleEmpresas.Create(Nil);
-end;
-
-destructor TDatosBancariosEmpresaController.Destroy;
-begin
-  FDataModule := Nil;
-  inherited;
-end;
-
 procedure TDatosBancariosEmpresaController.Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
 var
   AEditor : IEditorDatosBancariosEmpresa;
diff --git a/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
index 7e5cecdd..5042c039 100644
--- a/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
@@ -19,7 +19,7 @@ type
   public
     procedure VerTienda(ATienda : IBizEmpresasTiendas);
     function DarListaTiendas: TStringList;
-    constructor Create; virtual;
+    constructor Create; override;
     destructor Destroy; override;
   end;
 
diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
index 9fb1357d..770b4186 100644
--- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
+++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
@@ -310,6 +310,8 @@ var
   AUser : IBizUsuario;
   AEditorCambiar : TfEditorCambiarPassword;
 begin
+  Result := False;
+  
   AUser := FDataModule.GetUsuario(AIDUser);
   if Assigned(AUser) then
   begin