From 5da39c8a5491ef7d0866a92a258d49258ddf68cb Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 31 Dec 2009 11:27:35 +0000
Subject: [PATCH] Se arregla para cuando se hace un insert de subcuentas o
 cuentas ... el campo estado se copie del ejercicio activo

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@497 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Modulos/Contabilidad/Model/uBizCuentas.pas      |  1 +
 Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas    |  1 +
 Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas   |  1 +
 .../Modulos/Contabilidad/Views/Contabilidad_view.dproj | 10 +++++-----
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/Source/Modulos/Contabilidad/Model/uBizCuentas.pas b/Source/Modulos/Contabilidad/Model/uBizCuentas.pas
index cf3bbb36..b5cbf499 100644
--- a/Source/Modulos/Contabilidad/Model/uBizCuentas.pas
+++ b/Source/Modulos/Contabilidad/Model/uBizCuentas.pas
@@ -56,6 +56,7 @@ end;
 procedure TBizCuenta.IniciarValoresCuentaNueva;
 begin
   ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
+  ESTADO := AppFactuGES.EjercicioActivo.ESTADO;  
 end;
 
 procedure TBizCuenta.OnNewRecord(Sender: TDADataTable);
diff --git a/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas b/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
index 3e6f4a28..40c6e8ea 100644
--- a/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
+++ b/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
@@ -56,6 +56,7 @@ end;
 procedure TBizEpigrafe.IniciarValoresEpigrafeNueva;
 begin
   ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
+  ESTADO := AppFactuGES.EjercicioActivo.ESTADO;  
 end;
 
 procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable);
diff --git a/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas b/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas
index cbe111bc..703a9de7 100644
--- a/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas
+++ b/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas
@@ -55,6 +55,7 @@ end;
 procedure TBizSubCuenta.IniciarValoresSubCuentaNueva;
 begin
   ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
+  ESTADO := AppFactuGES.EjercicioActivo.ESTADO;
 end;
 
 procedure TBizSubCuenta.OnNewRecord(Sender: TDADataTable);
diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
index 0a6e86ee..0d2121d1 100644
--- a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
+++ b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
@@ -48,11 +48,11 @@
     <DelphiCompile Include="Contabilidad_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\Contabilidad_controller.dcp" />
-    <DCCReference Include="..\Contabilidad_model.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
     <DCCReference Include="uContabilidadViewRegister.pas">
       <Form>frViewEpigrafes</Form>
       <DesignClass>TFrame</DesignClass>