diff --git a/Build/Build.fbl5 b/Build/Build.fbl5 index df51b2e9..7ffabc41 100644 Binary files a/Build/Build.fbl5 and b/Build/Build.fbl5 differ diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 04830631..80a44982 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -46,13 +46,6 @@ Package FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -67,6 +60,59 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -77,64 +123,11 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas index 0ac4c8d2..274d4950 100644 --- a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas +++ b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas @@ -67,8 +67,22 @@ uses { TEjerciciosController } procedure TEjerciciosController.Anadir(AEjercicio: IBizEjercicio); +var + FechaInicio: TDate; + FechaFin: TDate; begin AEjercicio.Insert; + + //Asignar fecha de inicio y fin siguientes + ShowHourglassCursor; + try +// FDataModule.DarAnoSiguiente(FechaInicio, FechaFin); +// AEjercicio.FECHA_INICIO := + + finally + HideHourglassCursor; + end; + end; procedure TEjerciciosController.AsignarDataModule; diff --git a/Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.pas b/Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.pas index f87491fb..1fed1528 100644 --- a/Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.pas +++ b/Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.pas @@ -20,6 +20,7 @@ type public function GetItems: IBizEjercicio; function GenerarPGC(const IdEjercicioCopia: Integer; const IdEjercicio: Integer): Boolean; +// function DarAnoSiguiente(var FechaInicio: TDate; var FechaFin: TDate): Boolean; end; implementation diff --git a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas index 8daa0c64..b8548c63 100644 --- a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas +++ b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas @@ -117,8 +117,8 @@ begin end; end; - RefrescarInterno; //Es necesario sino no se actualiza el campo ACTIVO de todas las tuplas Modified := False; + RefrescarInterno; //Es necesario sino no se actualiza el campo ACTIVO de todas las tuplas end; procedure TfEditorEjercicio.PonerTitulos(const ATitulo: string); diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 3dcc8be0..28409a35 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -60,56 +60,56 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 70b14487..5afc8fd2 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -57,22 +57,22 @@ MainSource - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 55a28342..1006bde5 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -169,7 +169,7 @@ procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if not VarIsNull(DisplayValue) and (Length(DisplayValue) > 0) then FAlbaran.IMPORTE_PORTE := DisplayValue else FAlbaran.IMPORTE_PORTE := 0; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index 67e6a6bf..eafbc1f3 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -169,7 +169,7 @@ procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if not VarIsNull(DisplayValue) and (Length(DisplayValue) > 0) then FAlbaran.IMPORTE_PORTE := DisplayValue else FAlbaran.IMPORTE_PORTE := 0; diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk index a1369698..60b36b2c 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk @@ -40,7 +40,14 @@ requires dsnap, adortl, cxLibraryD10, - dxThemeD10; + dxThemeD10, + GUISDK_D11, + xmlrtl, + cfpack_d11, + vclx, + vclactnband, + designide, + ccpackD11; contains uIEditorEpigrafes in 'View\uIEditorEpigrafes.pas', @@ -60,6 +67,7 @@ contains uIEditorCuenta in 'View\uIEditorCuenta.pas', uIEditorCuentas in 'View\uIEditorCuentas.pas', uIEditorSubCuenta in 'View\uIEditorSubCuenta.pas', - uIEditorSubCuentas in 'View\uIEditorSubCuentas.pas'; + uIEditorSubCuentas in 'View\uIEditorSubCuentas.pas', + uIEditorElegirEpigrafes in 'View\uIEditorElegirEpigrafes.pas'; end. diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj index 638d329b..4d8b436c 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj @@ -57,14 +57,18 @@ + + + + @@ -75,12 +79,16 @@ + + + +