diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 7e833714..1c0c04eb 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -60,32 +60,32 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ
diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 0461b12c..73585024 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -3,7 +3,7 @@ unit uFactuGES_App;
interface
uses
- SysUtils, Classes, Forms, uUsuarios, uBizEmpresas, uControllerBase,
+ SysUtils, Classes, Forms, uUsuarios, uBizEmpresas, uBizEjercicios, uControllerBase,
uEmpresasController, JclFileUtils, uUsuariosController, uHostManager;
type
@@ -29,6 +29,7 @@ type
function GetAppVersion: String;
function GetUsuarioActivo: TUsuario;
function GetEmpresaActiva: IBizEmpresa;
+ function GetEjercicioActivo: IBizEjercicio;
function GetModuleManager : THostManager;
function GetTerminated: Boolean;
@@ -53,6 +54,7 @@ type
property AppName : String read GetAppName;
property MainForm : TCustomForm read GetMainForm;
property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
+ property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
property UsuarioActivo : TUsuario read GetUsuarioActivo;
property EmpresasController : IEmpresasController read GetEmpresasController;
property UsuariosController : IUsuariosController read GetUsuariosController;