From 872b1146ed488fdc403931a1df872f67eb8f8fc6 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 3 Dec 2007 11:12:02 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@29
 f4e31baf-9722-1c47-927c-6f952f962d4b

---
 .../ApplicationBase.identcache                | Bin 3696 -> 3696 bytes
 .../Controller/uEjerciciosController.pas      |  27 ++++++++++++
 Source/ApplicationBase/uFactuGES_App.pas      |  40 ++++++++++++++++--
 3 files changed, 63 insertions(+), 4 deletions(-)

diff --git a/Source/ApplicationBase/ApplicationBase.identcache b/Source/ApplicationBase/ApplicationBase.identcache
index f74ffcb6ce48817d74a142451f09e21ef8be7fa4..9d46ceb00b52fd548ed4b404d1d3e3ddfb5e4e36 100644
GIT binary patch
delta 59
zcmV-B0L1_B9Pk{lm;#ga0&J6*0$r013@DSp0tu622_lo+2`H0r2MM#11OEZD;000x
RvxNyU1Cx;jPqVfRx&gWp7CZm|

delta 89
zcmew$^Fe0A45rELtQwQ&GjdL1Wt(ixtTuTDQ_kdGPL0V2m^e2-W&Y1NIi1IUvKyE2
t<hxvo6ITgr_F#L*G<iN7SkL51%u16z*o-GTu&`~;=lsF6c^l6zMgX*)AIks$

diff --git a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
index a68ae403..0ac4c8d2 100644
--- a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
+++ b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
@@ -11,6 +11,7 @@ type
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizEjercicio;
     function Buscar(ID: Integer): IBizEjercicio;
+    function BuscarActivo(IDEmpresa: Integer): IBizEjercicio;
     procedure VerTodos(AEjercicios: IBizEjercicio);
     procedure Ver(AEjercicio: IBizEjercicio);
     procedure Anadir(AEjercicio : IBizEjercicio);
@@ -45,6 +46,7 @@ type
     procedure Anadir(AEjercicio : IBizEjercicio);
     function BuscarTodos: IBizEjercicio;
     function Buscar(ID: Integer): IBizEjercicio;
+    function BuscarActivo(IDEmpresa: Integer): IBizEjercicio;
     procedure VerTodos(AEjercicios: IBizEjercicio);
     procedure Ver(AEjercicio: IBizEjercicio);
     function GenerarPCG(IdEjercicioCopia, IdEjercicio: Integer): Boolean;
@@ -98,6 +100,30 @@ begin
   end;
 end;
 
+function TEjerciciosController.BuscarActivo(IDEmpresa: Integer): IBizEjercicio;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (ACTIVO = 1)
+      Condicion := NewBinaryExpression(NewField('', fld_EjerciciosACTIVO), NewConstant(1, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TEjerciciosController.BuscarTodos: IBizEjercicio;
 begin
   Result := FDataModule.GetItems;
@@ -290,6 +316,7 @@ begin
     ShowHourglassCursor;
     try
       AEjercicio.DataTable.ApplyUpdates;
+      AppFactuGES.CambiarEjercicio(AppFactuGES.EmpresaActiva.ID);
       Result := True;
     finally
       HideHourglassCursor;
diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 5ca2ae00..b491224f 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -29,7 +29,7 @@ type
     function GetAppVersion: String;
     function GetUsuarioActivo: TUsuario;
     function GetEmpresaActiva: IBizEmpresa;
-//    function GetEjercicioActivo: IBizEjercicio;
+    function GetEjercicioActivo: IBizEjercicio;
     function GetModuleManager : THostManager;
     function GetTerminated: Boolean;
 
@@ -43,6 +43,7 @@ type
     procedure SetAppSplashForm (AAppSplashForm : IAppSplashForm);
 
     procedure CambiarEmpresa(const AIDEmpresa : Integer);
+    procedure CambiarEjercicio(const AIDEmpresa : Integer);
 
     procedure ShowSplashForm;
     procedure HideSplashForm;
@@ -54,7 +55,7 @@ type
     property AppName : String read GetAppName;
     property MainForm : TCustomForm read GetMainForm;
     property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
-//    property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
+    property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
     property UsuarioActivo : TUsuario read GetUsuarioActivo;
     property EmpresasController : IEmpresasController read GetEmpresasController;
     property UsuariosController : IUsuariosController read GetUsuariosController;
@@ -63,7 +64,7 @@ type
     property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
     property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
     property Terminated : Boolean read GetTerminated;
-    
+
     procedure ShowCapado;
   end;
 
@@ -74,6 +75,7 @@ type
     FEmpresasController : IEmpresasController;
     FUsuariosController: IUsuariosController;
     FEmpresaActiva: IBizEmpresa;
+    FEjercicioActivo: IBizEjercicio;
     FAppSplashForm : IAppSplashForm;
     FHostManager : THostManager;
     FTerminated : Boolean;
@@ -88,6 +90,7 @@ type
     function GetAppVersion: String;
     function GetUsuarioActivo: TUsuario;
     function GetEmpresaActiva: IBizEmpresa;
+    function GetEjercicioActivo: IBizEjercicio;
     function GetModuleManager : THostManager;
     function GetTerminated: Boolean;
 
@@ -117,11 +120,13 @@ type
     procedure Terminate;
 
     procedure CambiarEmpresa(const AIDEmpresa : Integer);
+    procedure CambiarEjercicio(const AIDEmpresa : Integer);
 
     property AppVersion : String read GetAppVersion;
     property AppName : String read GetAppName;
     property MainForm : TCustomForm read GetMainForm;
     property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
+    property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
     property AppSplashForm : IAppSplashForm read GetAppSplashForm write SetAppSplashForm;
     property UsuarioActivo : TUsuario read GetUsuarioActivo;
     property EmpresasController : IEmpresasController read GetEmpresasController;
@@ -141,7 +146,26 @@ implementation
 
 uses
   Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister,
-  uEmpresasViewRegister;
+  uEmpresasViewRegister, uEjerciciosController;
+
+procedure TAppFactuGES.CambiarEjercicio(const AIDEmpresa: Integer);
+var
+  Aux : IBizEjercicio;
+  AEjerciciosController: IEjerciciosController;
+begin
+  AEjerciciosController := TEjerciciosController.Create;
+  try
+    Aux := AEjerciciosController.BuscarActivo(AIDEmpresa);
+    if Assigned(Aux) then
+    begin
+      Aux.DataTable.Active := True;
+      if not Aux.IsEmpty then
+        FEjercicioActivo := Aux;
+    end;
+  finally
+    AEjerciciosController := Nil;
+  end;
+end;
 
 procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer);
 var
@@ -154,6 +178,9 @@ begin
     if not Aux.IsEmpty then
       FEmpresaActiva := Aux;
   end;
+
+  //Establece el ejercicio activo de la empresa activa
+  CambiarEjercicio(AIDEmpresa);
 end;
 
 procedure TAppFactuGES.CargarModulos;
@@ -232,6 +259,11 @@ begin
   Result := FAppInfo.ProductVersion;
 end;
 
+function TAppFactuGES.GetEjercicioActivo: IBizEjercicio;
+begin
+  Result := FEjercicioActivo;
+end;
+
 function TAppFactuGES.GetEmpresaActiva: IBizEmpresa;
 begin
   Result := FEmpresaActiva;