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

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 
+ 	begin
-		ComprobarUsuarioInicial; 
+    if User = 'admin' then
- 	 	Result := ComprobarUsuario(User, Password);
+    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;