From 112c9576bd30be4670c85cb5fd995a285722f0c3 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 15 Jan 2008 12:24:29 +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.Acana_FactuGES2/trunk@104 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Usuarios/Controller/uUsuariosController.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas index 032f090b..6275274f 100644 --- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas +++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas @@ -301,7 +301,12 @@ end; function TUsuariosController.ComprobarUsuario(const User, Password: String): Boolean; begin - Result := FUserControl.VerificaLogin(User, Password); + Result := FUserControl.VerificaLogin(User, Password); + if not Result then + begin + ComprobarUsuarioInicial; + Result := ComprobarUsuario(User, Password); + end; end; procedure TUsuariosController.ComprobarUsuarioInicial; @@ -316,7 +321,6 @@ begin AsignarDataModule; FUserControl := TUserControl.Create(nil); InicializarUserControl; - // ComprobarUsuarioInicial; <- Desactivado porque casca cuando el servidor no está lanzado. Hay que arreglarlo. end; function TUsuariosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;