From 1881460cc0116af179d37592a4e51c4798200180 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 15 Jan 2008 19:12:44 +0000 Subject: [PATCH] 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 --- .../Usuarios/Controller/uUsuariosController.pas | 4 ++++ 1 file changed, 4 insertions(+) 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;