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