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;