Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla para cuando se hace un insert de subcuentas o cuentas ... el campo estado se copie del ejercicio activo

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@497 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-12-31 11:27:35 +00:00
parent e96156edd1
commit 5da39c8a54
4 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Modulos/Contabilidad/Model/uBizCuentas.pas
View File

@ -56,6 +56,7 @@ end;
procedure TBizCuenta.IniciarValoresCuentaNueva;
begin
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO;
end;
procedure TBizCuenta.OnNewRecord(Sender: TDADataTable);

1
Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
View File

@ -56,6 +56,7 @@ end;
procedure TBizEpigrafe.IniciarValoresEpigrafeNueva;
begin
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO;
end;
procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable);

1
Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas
View File

@ -55,6 +55,7 @@ end;
procedure TBizSubCuenta.IniciarValoresSubCuentaNueva;
begin
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO;
end;
procedure TBizSubCuenta.OnNewRecord(Sender: TDADataTable);

10
Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
View File

@ -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>