Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@219 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 09:42:13 +00:00
parent 5dcb0b2e3a
commit 36875b78f4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -302,6 +302,11 @@ 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;