uUsuariosController: abrir la tabla de UsuarioActivo antes de devolverla.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@236 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 19:12:44 +00:00
parent bea34d6306
commit 1881460cc0

View File

@ -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;