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>