From 24ca1eb0cfc7c9447c54c0bf2513a73d5691048b Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 4 Mar 2008 09:52:02 +0000
Subject: [PATCH] Ticket #37: Arreglado la lentitud del login cuando se mete un
 usuario incorrecto.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@328 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Controller/uUsuariosController.pas        |  20 ++++++++----------
 .../Usuarios/Data/uUCROConn.pas               | Bin 6038 -> 6036 bytes
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
index 6f4e9b02..f0ccde38 100644
--- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
+++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
@@ -100,7 +100,6 @@ type
 
     procedure AsignarDataModule;
     procedure InicializarUserControl;
-    procedure ComprobarUsuarioInicial;
     function GetCurrentUser: IBizUsuario;
 
     function AnadirUsuario(AUser : IBizUsuario): Boolean;
@@ -334,19 +333,18 @@ function TUsuariosController.ComprobarUsuario(const User,
 begin
 	Result := FUserControl.VerificaLogin(User, Password);
 	if not Result then 
- 	begin 
-		ComprobarUsuarioInicial; 
- 	 	Result := ComprobarUsuario(User, Password);
+ 	begin
+    if User = 'admin' then
+    begin
+      if not FUserControl.ExisteUsuario('admin') then
+      begin
+        FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
+ 	 	    Result := ComprobarUsuario(User, Password);
+      end;
+    end;
  	end;
 end;
 
-procedure TUsuariosController.ComprobarUsuarioInicial;
-begin
-  // Para que haya un usuario siempre en la BD
-  if not FUserControl.ExisteUsuario('admin') then
-    FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
-end;
-
 constructor TUsuariosController.Create;
 begin
   AsignarDataModule;
diff --git a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas
index 46985b4f148ed4facc06422fd02aae202d44ea21..ce921b2197578d225a2a9c60f15ae71a85db8252 100644
GIT binary patch
delta 7
OcmbQHKSh7T6mb9yDgxvH

delta 10
RcmbQDKTUtb6mcd71^^V;0_Fe!