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;