From 36875b78f4711a08965c17efc8750cdcd12aa1f4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 15 Jan 2008 09:42:13 +0000
Subject: [PATCH] =?UTF-8?q?Usuarios:=20la=20comprobaci=C3=B3n=20de=20si=20?=
 =?UTF-8?q?hay=20usuario=20'admin'=20en=20la=20tabla=20de=20usuarios=20se?=
 =?UTF-8?q?=20ha=20trasladado=20al=20procedimiento=20de=20'login'.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@219 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Usuarios/Controller/uUsuariosController.pas              | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
index 032f090b..10de3e1e 100644
--- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
+++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
@@ -302,6 +302,11 @@ function TUsuariosController.ComprobarUsuario(const User,
   Password: String): Boolean;
 begin
   Result := FUserControl.VerificaLogin(User, Password);
+  if not Result then
+  begin
+    ComprobarUsuarioInicial;
+    Result := ComprobarUsuario(User, Password);
+  end;
 end;
 
 procedure TUsuariosController.ComprobarUsuarioInicial;