diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas index 4ade70c9..c8e06657 100644 --- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas +++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas @@ -488,6 +488,10 @@ function TUsuariosController.GetCurrentUser: IBizUsuario; begin if not Assigned(FCurrentUser) or (FCurrentUser.ID <> FUserControl.CurrentUser.UserID) then FCurrentUser := BuscarUsuario(FUserControl.CurrentUser.UserID); + + if not FCurrentUser.Active then + FCurrentUser.Active := True; + Result := FCurrentUser; end;