Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Usuarios: la comprobación de si hay usuario 'admin' en la tabla de usuarios se ha trasladado al procedimiento de 'login'.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@104 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-01-15 12:24:29 +00:00
parent 1e73af8356
commit 112c9576bd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -301,7 +301,12 @@ end;
function TUsuariosController.ComprobarUsuario(const User, function TUsuariosController.ComprobarUsuario(const User,
Password: String): Boolean; Password: String): Boolean;
begin begin
Result := FUserControl.VerificaLogin(User, Password); Result := FUserControl.VerificaLogin(User, Password);
if not Result then
begin
ComprobarUsuarioInicial;
Result := ComprobarUsuario(User, Password);
end;
end; end;
procedure TUsuariosController.ComprobarUsuarioInicial; procedure TUsuariosController.ComprobarUsuarioInicial;
@ -316,7 +321,6 @@ begin
AsignarDataModule; AsignarDataModule;
FUserControl := TUserControl.Create(nil); FUserControl := TUserControl.Create(nil);
InicializarUserControl; InicializarUserControl;
// ComprobarUsuarioInicial; <- Desactivado porque casca cuando el servidor no está lanzado. Hay que arreglarlo.
end; end;
function TUsuariosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; function TUsuariosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;