From cac301c1e153e373db667d4e8296a8c272801ccb Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 12 Dec 2007 19:48:05 +0000 Subject: [PATCH] =?UTF-8?q?Continuaci=C3=B3n=20de=20subida=20de=20contabil?= =?UTF-8?q?idad=20con=20asientos=20y=20apuntes=20sin=20funcionar.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@57 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Controller/Contabilidad_controller.dpk | 7 +- .../Controller/Contabilidad_controller.dproj | 5 +- .../Controller/View/uIEditorApunte.pas | 26 + .../Controller/View/uIEditorAsientos.pas | 23 - .../Controller/View/uIEditorDiario.pas | 23 + .../View/uIEditorElegirSubCuentas.pas | 26 + .../Controller/uApuntesController.pas | 363 ++++++ .../Controller/uAsientosController.pas | 95 +- .../Controller/uSubCuentasController.pas | 50 +- .../Contabilidad/Data/Contabilidad_data.res | Bin 4748 -> 384 bytes .../Data/uDataModuleContabilidad.dfm | 173 +-- .../Data/uDataModuleContabilidad.pas | 73 +- .../Contabilidad/Model/Contabilidad_model.dpk | 4 +- .../Model/Contabilidad_model.dproj | 2 + .../Contabilidad/Model/Contabilidad_model.res | Bin 384 -> 4748 bytes .../Model/Copia de uBizEpigrafes.pas | 54 - .../Model/Data/uIDataModuleContabilidad.pas | 5 +- .../Model/schContabilidadClient_Intf.pas | 545 +++++---- .../Model/schContabilidadServer_Intf.pas | 639 +++++----- .../Contabilidad/Model/uBizApuntes.pas | 54 + .../Contabilidad/Model/uBizAsientos.pas | 42 +- .../Modulos/Contabilidad/Model/uBizDiario.pas | 29 + .../Contabilidad/Model/uBizSubCuentas.pas | 22 +- .../Plugin/uPluginContabilidad.pas | 8 +- .../Servidor/srvContabilidad_Impl.dfm | 290 +++-- .../Servidor/srvContabilidad_Impl.pas | 4 +- .../Contabilidad/Views/Contabilidad_view.dpk | 9 +- .../Views/Contabilidad_view.dproj | 26 +- .../Views/uContabilidadViewRegister.pas | 17 +- .../Contabilidad/Views/uEditorApunte.dfm | 144 +++ .../Contabilidad/Views/uEditorApunte.pas | 211 ++++ .../Contabilidad/Views/uEditorAsiento.dfm | 270 +++++ .../Contabilidad/Views/uEditorAsiento.pas | 232 ++++ .../Contabilidad/Views/uEditorAsientos.pas | Bin 4327 -> 0 bytes .../Contabilidad/Views/uEditorCuenta.pas | 6 +- .../Contabilidad/Views/uEditorCuentas.dfm | 17 +- .../Contabilidad/Views/uEditorCuentas.pas | Bin 4239 -> 4284 bytes ...{uEditorAsientos.dfm => uEditorDiario.dfm} | 40 +- .../Contabilidad/Views/uEditorDiario.pas | 156 +++ .../Views/uEditorElegirSubCuentas.dfm | 256 ++++ .../Views/uEditorElegirSubCuentas.pas | 126 ++ .../Contabilidad/Views/uEditorEpigrafe.pas | 6 +- .../Contabilidad/Views/uEditorEpigrafes.dfm | 13 +- .../Contabilidad/Views/uEditorEpigrafes.pas | Bin 4373 -> 4416 bytes .../Contabilidad/Views/uEditorSubCuenta.pas | 6 +- .../Contabilidad/Views/uEditorSubCuentas.dfm | 17 +- .../Contabilidad/Views/uEditorSubCuentas.pas | Bin 4451 -> 4496 bytes .../Contabilidad/Views/uViewApunte.dfm | 1064 +++++++++++++++++ .../Contabilidad/Views/uViewApunte.pas | 108 ++ .../Contabilidad/Views/uViewApuntes.dfm | 133 +++ .../Contabilidad/Views/uViewApuntes.pas | 166 +++ .../{uViewAsientos.dfm => uViewDiario.dfm} | 9 +- .../{uViewAsientos.pas => uViewDiario.pas} | 43 +- 53 files changed, 4669 insertions(+), 968 deletions(-) create mode 100644 Source/Modulos/Contabilidad/Controller/View/uIEditorApunte.pas delete mode 100644 Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas create mode 100644 Source/Modulos/Contabilidad/Controller/View/uIEditorDiario.pas create mode 100644 Source/Modulos/Contabilidad/Controller/View/uIEditorElegirSubCuentas.pas create mode 100644 Source/Modulos/Contabilidad/Controller/uApuntesController.pas delete mode 100644 Source/Modulos/Contabilidad/Model/Copia de uBizEpigrafes.pas create mode 100644 Source/Modulos/Contabilidad/Model/uBizApuntes.pas create mode 100644 Source/Modulos/Contabilidad/Model/uBizDiario.pas create mode 100644 Source/Modulos/Contabilidad/Views/uEditorApunte.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uEditorApunte.pas create mode 100644 Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uEditorAsiento.pas delete mode 100644 Source/Modulos/Contabilidad/Views/uEditorAsientos.pas rename Source/Modulos/Contabilidad/Views/{uEditorAsientos.dfm => uEditorDiario.dfm} (97%) create mode 100644 Source/Modulos/Contabilidad/Views/uEditorDiario.pas create mode 100644 Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.pas create mode 100644 Source/Modulos/Contabilidad/Views/uViewApunte.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uViewApunte.pas create mode 100644 Source/Modulos/Contabilidad/Views/uViewApuntes.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uViewApuntes.pas rename Source/Modulos/Contabilidad/Views/{uViewAsientos.dfm => uViewDiario.dfm} (92%) rename Source/Modulos/Contabilidad/Views/{uViewAsientos.pas => uViewDiario.pas} (60%) diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk index 5bdc9771..0ecfc814 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk @@ -63,7 +63,7 @@ contains uCuentasController in 'uCuentasController.pas', uSubCuentasController in 'uSubCuentasController.pas', uIEditorAsiento in 'View\uIEditorAsiento.pas', - uIEditorAsientos in 'View\uIEditorAsientos.pas', + uIEditorDiario in 'View\uIEditorDiario.pas', uIEditorCuenta in 'View\uIEditorCuenta.pas', uIEditorCuentas in 'View\uIEditorCuentas.pas', uIEditorSubCuenta in 'View\uIEditorSubCuenta.pas', @@ -71,6 +71,9 @@ contains uIEditorElegirEpigrafes in 'View\uIEditorElegirEpigrafes.pas', uIEditorElegirBalances in 'View\uIEditorElegirBalances.pas', uIEditorElegirCuentasEspeciales in 'View\uIEditorElegirCuentasEspeciales.pas', - uIEditorElegirCuentas in 'View\uIEditorElegirCuentas.pas'; + uIEditorElegirCuentas in 'View\uIEditorElegirCuentas.pas', + uApuntesController in 'uApuntesController.pas', + uIEditorApunte in 'View\uIEditorApunte.pas', + uIEditorElegirSubCuentas in 'View\uIEditorElegirSubCuentas.pas'; end. diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj index 0c9a30eb..329bbe56 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj @@ -48,6 +48,7 @@ MainSource + @@ -71,18 +72,20 @@ + - + + diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorApunte.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorApunte.pas new file mode 100644 index 00000000..ac38bbea --- /dev/null +++ b/Source/Modulos/Contabilidad/Controller/View/uIEditorApunte.pas @@ -0,0 +1,26 @@ +unit uIEditorApunte; + +interface + +uses + uBizApuntes, uApuntesController; + +type + IEditorApunte = interface + ['{60744169-A32B-4AC7-ADEC-4F6B2C7D00EA}'] +// function GetController : IApuntesController; +// procedure SetController (const Value : IApuntesController); +// property Controller : IApuntesController read GetController write SetController; + + function GetApunte: IBizApunte; + procedure SetApunte(const Value: IBizApunte); + property Apunte: IBizApunte read GetApunte write SetApunte; + + function ShowModal : Integer; + procedure Release; + end; + + +implementation + +end. diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas deleted file mode 100644 index fafb8d29..00000000 --- a/Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas +++ /dev/null @@ -1,23 +0,0 @@ -unit uIEditorAsientos; - -interface - -uses - uEditorGridBase, uBizAsientos, uAsientosController; - -type - IEditorAsientos = interface (IEditorGridBase) - ['{47A77BA9-3845-469B-A790-81F3C6E0F134}'] - function GetController : IAsientosController; - procedure SetController (const Value : IAsientosController); - property Controller : IAsientosController read GetController write SetController; - - function GetAsientos: IBizAsiento; - procedure SetAsientos(const Value: IBizAsiento); - property Asientos: IBizAsiento read GetAsientos write SetAsientos; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorDiario.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorDiario.pas new file mode 100644 index 00000000..87749bc0 --- /dev/null +++ b/Source/Modulos/Contabilidad/Controller/View/uIEditorDiario.pas @@ -0,0 +1,23 @@ +unit uIEditorDiario; + +interface + +uses + uEditorGridBase, uBizDiario, uAsientosController; + +type + IEditorDiario = interface (IEditorGridBase) + ['{47A77BA9-3845-469B-A790-81F3C6E0F134}'] + function GetController : IAsientosController; + procedure SetController (const Value : IAsientosController); + property Controller : IAsientosController read GetController write SetController; + + function GetDiario: IBizDiario; + procedure SetDiario(const Value: IBizDiario); + property Diario: IBizDiario read GetDiario write SetDiario; + end; + + +implementation + +end. diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorElegirSubCuentas.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorElegirSubCuentas.pas new file mode 100644 index 00000000..c41b936f --- /dev/null +++ b/Source/Modulos/Contabilidad/Controller/View/uIEditorElegirSubCuentas.pas @@ -0,0 +1,26 @@ +unit uIEditorElegirSubCuentas; + +interface + +uses + uIEditorSubCuentas, uBizSubCuentas, uGUIBase; + +type + IEditorElegirSubCuentas = interface(IEditorSubCuentas) + ['{4A5003AE-BF4E-466A-9C9D-FECDD69454D2}'] + function GetSubCuentasSeleccionados: IBizSubCuenta; + property SubCuentasSeleccionados: IBizSubCuenta read GetSubCuentasSeleccionados; + + procedure SetMultiSelect (AValue : Boolean); + function GetMultiSelect : Boolean; + property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; + + procedure SetMensaje (const AValue: String); + function GetMensaje: String; + property Mensaje : String read GetMensaje write SetMensaje; + end; + + +implementation + +end. diff --git a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas new file mode 100644 index 00000000..18eab614 --- /dev/null +++ b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas @@ -0,0 +1,363 @@ +unit uApuntesController; + +interface + + +uses + Classes, SysUtils, uDADataTable, uControllerBase, + uBizApuntes, uIDataModuleContabilidad; +type + IApuntesController = interface(IObservador) + ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] +// function BuscarTodos: IBizApunte; +// function Buscar(const ID: Integer): IBizApunte; +// procedure VerTodos(AApuntes: IBizApunte); + procedure Anadir(AApunte : IBizApunte); + procedure Ver(AApunte: IBizApunte); +// function Anadir: IBizApunte; + function Eliminar(AApunte : IBizApunte): Boolean; + function Guardar(AApunte : IBizApunte): Boolean; + procedure DescartarCambios(AApunte : IBizApunte); + + function ValidarApunte(AApunte: IBizApunte): Boolean; + procedure ElegirSubCuenta(AApunte: IBizApunte); + + procedure AsignarDEBE(AApunte: IBizApunte); + procedure AsignarHABER(AApunte: IBizApunte); + end; + + TApuntesController = class(TObservador, IApuntesController) + protected + FDataModule : IDataModuleContabilidad; + + procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; + function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; + + procedure AsignarDataModule; + procedure FiltrarEjercicio(AApunte: IBizApunte); + + public + constructor Create; override; + destructor Destroy; override; + + function ValidarApunte(AApunte: IBizApunte): Boolean; + + procedure Anadir(AApunte : IBizApunte); + function Eliminar(AApunte : IBizApunte): Boolean; + function Guardar(AApunte : IBizApunte): Boolean; virtual; + procedure DescartarCambios(AApunte : IBizApunte); virtual; +// function Anadir: IBizApunte; +// function BuscarTodos: IBizApunte; +// function Buscar(const ID: Integer): IBizApunte; +// procedure VerTodos(AApuntes: IBizApunte); + procedure Ver(AApunte: IBizApunte); + procedure ElegirSubCuenta(AApunte: IBizApunte); + + procedure AsignarDEBE(AApunte: IBizApunte); + procedure AsignarHABER(AApunte: IBizApunte); + end; + +implementation + +uses + cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, + uBizSubCuentas, uSubCuentasController, + uIEditorApunte, uDataModuleContabilidad, + uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, + uDateUtils, uROTypes, DateUtils, Controls, Windows; + +{ TApuntesController } + +{ +function TApuntesController.Anadir: IBizApunte; +var + AApunte : IBizApunte; +begin + AApunte := FDataModule.GetApunteItem(ID_NULO); + AApunte.DataTable.Active := True; + AApunte.Insert; + Result := AApunte; +end; +} + +procedure TApuntesController.Anadir(AApunte: IBizApunte); +begin + AApunte.Insert; +end; + +procedure TApuntesController.AsignarDataModule; +begin + FDataModule := TDataModuleContabilidad.Create(Nil); +end; + +procedure TApuntesController.AsignarDEBE(AApunte: IBizApunte); +begin + if Assigned(AApunte) then + begin + if not AApunte.DEBEIsNull then + begin + if not AApunte.DataTable.Editing then + AApunte.DataTable.Edit; + AApunte.HABERIsNull := True; + AApunte.DataTable.Post; + +// RecalcularAsiento; + end; + end; +end; + +procedure TApuntesController.AsignarHABER(AApunte: IBizApunte); +begin + if Assigned(AApunte) then + begin + if not AApunte.HABERIsNull then + begin + if not AApunte.DataTable.Editing then + AApunte.DataTable.Edit; + AApunte.DEBEIsNull := True; + AApunte.DataTable.Post; + +// RecalcularAsiento; + end; + end; +end; + +{ +function TApuntesController.Buscar(const ID: Integer): IBizApunte; +begin + Result := FDataModule.GetApunteItem(ID); +end; +} + +{ +function TApuntesController.BuscarTodos: IBizApunte; +begin + Result := FDataModule.GetApunteItems; + FiltrarEjercicio(Result); +end; +} + +constructor TApuntesController.Create; +begin + inherited; + AsignarDataModule; +end; + +function TApuntesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; +begin + Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); +end; + +procedure TApuntesController.DescartarCambios(AApunte: IBizApunte); +begin + if not Assigned(AApunte) then + raise Exception.Create ('Apunte no asignado'); + + ShowHourglassCursor; + try + if (AApunte.State in dsEditModes) then + AApunte.Cancel; + + AApunte.DataTable.CancelUpdates; + finally + HideHourglassCursor; + end; +end; + +destructor TApuntesController.Destroy; +begin + FDataModule:= NIL; + inherited; +end; + +function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean; +begin + Result := False; + + if not Assigned(AApunte) then + raise Exception.Create ('Apuntes no asignados'); + + //Tambien hacemos post de sus tablas hija + if (AApunte.DataTable.State in dsEditModes) then + AApunte.DataTable.Post; + + if (AApunte.DataTable.RecordCount = 0) then + raise Exception.Create('El asiento debe tener algún apunte'); + + AApunte.DataTable.DisableControls; + AApunte.DataTable.First; + while not AApunte.DataTable.EOF do + begin + if AApunte.ID_SUBCUENTAIsNull then + begin + AApunte.DataTable.EnableControls; + raise Exception.Create('Todo apunte debe tener una subcuenta asociada'); + end; + AApunte.DataTable.Next; + end; + + AApunte.DataTable.EnableControls; + Result := True; + +{ + if not Assigned(AApunte) then + raise Exception.Create ('Apunte no asignado'); + + if (AApunte.DataTable.State in dsEditModes) then + AApunte.DataTable.Post; + + //Tambien hacemos post de sus tablas hija + if (AApunte.Apuntes.DataTable.State in dsEditModes) then + AApunte.Apuntes.DataTable.Post; + + if (AApunte.Apuntes.DataTable.RecordCount = 0) then + raise Exception.Create('El Apunte debe tener algún apunte'); + +// if Length(AApunte.CONCEPTO) = 0 then +// raise Exception.Create('Debe indicar un concepto para este Apunte.'); +} + Result := True; +end; + +procedure TApuntesController.Ver(AApunte: IBizApunte); +var + AEditor : IEditorApunte; +begin + AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorApunte', IEditorApunte, AEditor); + if Assigned(AEditor) then + with AEditor do + begin +// Controller := Self; //OJO ORDEN MUY IMPORTANTE + Apunte := AApunte; + ShowModal; + Release; + end; + finally + AEditor := NIL; + HideHourglassCursor; + end; +end; + +{ +procedure TApuntesController.VerTodos(AApuntes: IBizApunte); +var + AEditor : IEditorApuntes; +begin + AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorApuntes', IEditorApuntes, AEditor); + if Assigned(AEditor) then + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Apuntes := AApuntes; + ShowEmbedded; + end; + finally + AEditor := NIL; + HideHourglassCursor; + end; +end; +} + +procedure TApuntesController.ElegirSubCuenta(AApunte: IBizApunte); +var + ASubCuenta : IBizSubCuenta; + AController : ISubCuentasController; +begin + inherited; + try + AController := TSubCuentasController.Create; + ASubCuenta := (AController.ElegirSubCuenta(AController.BuscarTodos, 'ddddddd', False) as IBizSubCuenta); + + if Assigned(ASubCuenta) then + begin + if Assigned(AApunte) then + begin + if not AApunte.DataTable.Editing then + AApunte.DataTable.Edit; + + AApunte.ID_SUBCUENTA := ASubCuenta.ID; + AApunte.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA; + AApunte.SUBCUENTA := ASubCuenta.DESCRIPCION; + AApunte.Post; + end; + end; + finally + AController := Nil; + ASubCuenta := Nil; + end; +end; + +function TApuntesController.Eliminar(AApunte: IBizApunte): Boolean; +begin + Result := False; + + if not Assigned(AApunte) then + raise Exception.Create ('Apunte no asignado'); + + ShowHourglassCursor; + try + if (AApunte.State in dsEditModes) then + AApunte.Cancel; + + AApunte.Delete; + AApunte.DataTable.ApplyUpdates; + HideHourglassCursor; + Result := True; + finally + HideHourglassCursor; + end; +end; + +procedure TApuntesController.FiltrarEjercicio(AApunte: IBizApunte); +var + Condicion: TDAWhereExpression; +begin + if AApunte.DataTable.Active then + AApunte.DataTable.Active := False; + + // Filtrar los Apuntes por la empresa activa + with AApunte.DataTable.DynamicWhere do + begin + // (ID_EJERCICIO = ID) + Condicion := NewBinaryExpression(NewField('', fld_DiarioID_EJERCICIO), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; +end; + +procedure TApuntesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); +begin + inherited; +// +end; + +function TApuntesController.Guardar(AApunte: IBizApunte): Boolean; +begin + Result := True; +{ + if ValidarApunte(AApunte) then + begin + ShowHourglassCursor; + try + AApunte.DataTable.ApplyUpdates; + Result := True; + finally + HideHourglassCursor; + end; + end; +} + if (AApunte.DataTable.State in dsEditModes) then + AApunte.DataTable.Post; + +end; + +end. diff --git a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas index baecbde9..fd76ffa7 100644 --- a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas +++ b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas @@ -5,15 +5,15 @@ interface uses Classes, SysUtils, uDADataTable, uControllerBase, - uBizAsientos, uIDataModuleContabilidad; + uBizAsientos, uBizDiario, uIDataModuleContabilidad; type IAsientosController = interface(IObservador) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] - function BuscarTodos: IBizAsiento; - function Buscar(ID: Integer): IBizAsiento; - procedure VerTodos(AAsientos: IBizAsiento); + function BuscarDiario: IBizDiario; + function Buscar(const ID: Integer): IBizAsiento; + procedure VerDiario(ADiario: IBizDiario); procedure Ver(AAsiento: IBizAsiento); - procedure Anadir(AAsiento : IBizAsiento); + function Anadir: IBizAsiento; function Eliminar(AAsiento : IBizAsiento): Boolean; function Guardar(AAsiento : IBizAsiento): Boolean; procedure DescartarCambios(AAsiento : IBizAsiento); @@ -28,7 +28,7 @@ type function ValidarAsiento(AAsiento: IBizAsiento): Boolean; procedure AsignarDataModule; - procedure FiltrarAsiento(AAsiento: IBizAsiento); + procedure FiltrarEjercicio(ADiario: IBizDiario); public constructor Create; override; @@ -37,10 +37,10 @@ type function Eliminar(AAsiento : IBizAsiento): Boolean; function Guardar(AAsiento : IBizAsiento): Boolean; virtual; procedure DescartarCambios(AAsiento : IBizAsiento); virtual; - procedure Anadir(AAsiento : IBizAsiento); - function BuscarTodos: IBizAsiento; - function Buscar(ID: Integer): IBizAsiento; - procedure VerTodos(AAsientos: IBizAsiento); + function Anadir: IBizAsiento; + function BuscarDiario: IBizDiario; + function Buscar(const ID: Integer): IBizAsiento; + procedure VerDiario(ADiario: IBizDiario); procedure Ver(AAsiento: IBizAsiento); end; @@ -48,15 +48,20 @@ implementation uses cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, - uIEditorAsientos, uIEditorAsiento, uDataModuleContabilidad, + uIEditorDiario, uIEditorAsiento, uDataModuleContabilidad, uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, - uDateUtils, uROTypes, DateUtils, Controls, Windows; + uDateUtils, uROTypes, DateUtils, Controls, Windows, uApuntesController; { TAsientosController } -procedure TAsientosController.Anadir(AAsiento: IBizAsiento); +function TAsientosController.Anadir: IBizAsiento; +var + AAsiento : IBizAsiento; begin + AAsiento := FDataModule.GetAsientoItem(ID_NULO); + AAsiento.DataTable.Active := True; AAsiento.Insert; + Result := AAsiento; end; procedure TAsientosController.AsignarDataModule; @@ -64,34 +69,15 @@ begin FDataModule := TDataModuleContabilidad.Create(Nil); end; -function TAsientosController.Buscar(ID: Integer): IBizAsiento; -var - Condicion: TDAWhereExpression; +function TAsientosController.Buscar(const ID: Integer): IBizAsiento; begin - ShowHourglassCursor; - try - Result := BuscarTodos; - - with Result.DataTable.DynamicWhere do - begin - // (ID = :ID) - Condicion := NewBinaryExpression(NewField('', fld_AsientosID), NewConstant(ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; - - finally - HideHourglassCursor; - end; + Result := FDataModule.GetAsientoItem(ID); end; -function TAsientosController.BuscarTodos: IBizAsiento; +function TAsientosController.BuscarDiario: IBizDiario; begin - Result := FDataModule.GetAsientoItems; - FiltrarAsiento(Result); + Result := FDataModule.GetDiarioItems; + FiltrarEjercicio(Result); end; constructor TAsientosController.Create; @@ -137,6 +123,10 @@ begin if (AAsiento.DataTable.State in dsEditModes) then AAsiento.DataTable.Post; + //Tambien validamos los detalles del asiento + with TApuntesController.Create do + ValidarApunte(AAsiento.Apuntes); + // if Length(AAsiento.CONCEPTO) = 0 then // raise Exception.Create('Debe indicar un concepto para este Asiento.'); @@ -165,19 +155,19 @@ begin end; end; -procedure TAsientosController.VerTodos(AAsientos: IBizAsiento); +procedure TAsientosController.VerDiario(ADiario: IBizDiario); var - AEditor : IEditorAsientos; + AEditor : IEditorDiario; begin AEditor := NIL; ShowHourglassCursor; try - CreateEditor('EditorAsientos', IEditorAsientos, AEditor); + CreateEditor('EditorDiario', IEditorDiario, AEditor); if Assigned(AEditor) then with AEditor do begin Controller := Self; //OJO ORDEN MUY IMPORTANTE - Asientos := AAsientos; + Diario := ADiario; ShowEmbedded; end; finally @@ -207,25 +197,24 @@ begin end; end; -procedure TAsientosController.FiltrarAsiento(AAsiento: IBizAsiento); +procedure TAsientosController.FiltrarEjercicio(ADiario: IBizDiario); var Condicion: TDAWhereExpression; begin - if AAsiento.DataTable.Active then - AAsiento.DataTable.Active := False; + if ADiario.DataTable.Active then + ADiario.DataTable.Active := False; - // Filtrar los Asientos actuales por Asiento activo -{ with AAsiento.DataTable.DynamicWhere do + // Filtrar los asientos por la empresa activa + with ADiario.DataTable.DynamicWhere do begin - // (ID_Asiento = ID) - Condicion := NewBinaryExpression(NewField('', fld_AsientosID_Asiento), NewConstant(AppFactuGES.AsientoActivo.ID, datInteger), dboEqual); + // (ID_EJERCICIO = ID) + Condicion := NewBinaryExpression(NewField('', fld_DiarioID_EJERCICIO), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual); if IsEmpty then Expression := Condicion else Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; -} end; procedure TAsientosController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); @@ -238,11 +227,19 @@ function TAsientosController.Guardar(AAsiento: IBizAsiento): Boolean; begin Result := False; + if not Assigned(AAsiento) then + raise Exception.Create ('Factura no asignada'); + if ValidarAsiento(AAsiento) then begin ShowHourglassCursor; + + // Asegurarnos de que todos los importes están bien. +// RecalcularImportes(AFactura); + try AAsiento.DataTable.ApplyUpdates; + Result := True; finally HideHourglassCursor; diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index 76f2ce08..5af2a3c9 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas @@ -14,12 +14,14 @@ type procedure VerTodos(ASubCuentas: IBizSubCuenta); procedure Ver(ASubCuenta: IBizSubCuenta); procedure Anadir(ASubCuenta : IBizSubCuenta); - function Eliminar(ASubCuenta : IBizSubCuenta): Boolean; + function Eliminar(ASubCuenta : IBizSubCuenta): Boolean; function Guardar(ASubCuenta : IBizSubCuenta): Boolean; procedure DescartarCambios(ASubCuenta : IBizSubCuenta); function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean; function DarListaSubCuentas: TStringList; + function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta; + function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta; procedure ElegirCuenta(ASubCuenta: IBizSubCuenta); end; @@ -32,7 +34,7 @@ type function ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean; procedure AsignarDataModule; - procedure FiltrarSubCuenta(ASubCuenta: IBizSubCuenta); + procedure FiltrarEjercicio(ASubCuenta: IBizSubCuenta); public constructor Create; override; @@ -49,14 +51,17 @@ type function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean; function DarListaSubCuentas: TStringList; - procedure ElegirCuenta(ASubCuenta: IBizSubCuenta); + function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta; + function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta; + + procedure ElegirCuenta(ASubCuenta: IBizSubCuenta); end; implementation uses cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, - uIEditorSubCuentas, uIEditorSubCuenta, uDataModuleContabilidad, + uIEditorSubCuentas, uIEditorSubCuenta, uIEditorElegirSubCuentas, uDataModuleContabilidad, uBizCuentas, uCuentasController, uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows; @@ -100,7 +105,7 @@ end; function TSubCuentasController.BuscarTodos: IBizSubCuenta; begin Result := FDataModule.GetSubCuentaItems; - FiltrarSubCuenta(Result); + FiltrarEjercicio(Result); end; constructor TSubCuentasController.Create; @@ -245,6 +250,28 @@ begin end; end; +function TSubCuentasController.ElegirSubCuenta(ASubCuentas: IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta; +var + AEditor : IEditorElegirSubCuentas; +begin + Result := NIL; + + CreateEditor('EditorElegirSubCuentas', IEditorElegirSubCuentas, AEditor); + try + with AEditor do + begin + SubCuentas := ASubCuentas; + Controller := Self; + Mensaje := AMensaje; + if IsPositiveResult(ShowModal) then + Result := SubCuentasSeleccionados; + Release; + end; + finally + AEditor := NIL; + end; +end; + function TSubCuentasController.Eliminar(ASubCuenta: IBizSubCuenta): Boolean; begin Result := False; @@ -266,7 +293,16 @@ begin end; end; -procedure TSubCuentasController.FiltrarSubCuenta(ASubCuenta: IBizSubCuenta); +function TSubCuentasController.ExtraerSeleccionados(ASubCuentas: IBizSubCuenta): IBizSubCuenta; +var + ASeleccionados : IBizSubCuenta; +begin + ASeleccionados := Self.Buscar(ID_NULO); + CopyDataTableDA3(ASubCuentas.DataTable, ASeleccionados.DataTable, True); + Result := ASeleccionados; +end; + +procedure TSubCuentasController.FiltrarEjercicio(ASubCuenta: IBizSubCuenta); var Condicion: TDAWhereExpression; begin @@ -276,7 +312,7 @@ begin // Filtrar los SubCuentas actuales por SubCuenta activo with ASubCuenta.DataTable.DynamicWhere do begin - // (ID_SubCuenta = ID) + // (ID_Ejercicio = ID) Condicion := NewBinaryExpression(NewField('', fld_SubCuentasID_Ejercicio), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual); if IsEmpty then diff --git a/Source/Modulos/Contabilidad/Data/Contabilidad_data.res b/Source/Modulos/Contabilidad/Data/Contabilidad_data.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm index 57c26849..0535ff61 100644 --- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm +++ b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm @@ -210,45 +210,6 @@ inherited DataModuleContabilidad: TDataModuleContabilidad Left = 232 Top = 176 end - object tbl_Asientos: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_ASIENTOS_ID' - Required = True - DictionaryEntry = 'Asientos_ID' - InPrimaryKey = True - end - item - Name = 'FECHA_ASIENTO' - DataType = datDateTime - DisplayLabel = 'Asientos_FECHA_ASIENTO' - DictionaryEntry = 'Asientos_FECHA_ASIENTO' - end - item - Name = 'ORDEN' - DataType = datInteger - DisplayLabel = 'Asientos_ORDEN' - DictionaryEntry = 'Asientos_ORDEN' - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_Contabilidad - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Asientos' - IndexDefs = <> - Left = 400 - Top = 376 - end - object ds_Asientos: TDADataSource - DataSet = tbl_Asientos.Dataset - DataTable = tbl_Asientos - Left = 400 - Top = 320 - end object tbl_Cuentas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < @@ -257,7 +218,6 @@ inherited DataModuleContabilidad: TDataModuleContabilidad DataType = datAutoInc GeneratorName = 'GEN_CONT_CUENTAS_ID' Required = True - ServerAutoRefresh = True DictionaryEntry = 'Cuentas_ID' InPrimaryKey = True end @@ -431,43 +391,6 @@ inherited DataModuleContabilidad: TDataModuleContabilidad DisplayLabel = 'Apuntes_ID_ASIENTO' DictionaryEntry = 'Apuntes_ID_ASIENTO' end - item - Name = 'CONCEPTO' - DataType = datString - Size = 255 - DisplayLabel = 'Apuntes_CONCEPTO' - DictionaryEntry = 'Apuntes_CONCEPTO' - end - item - Name = 'PUNTEADO' - DataType = datSmallInt - DisplayLabel = 'Apuntes_PUNTEADO' - DictionaryEntry = 'Apuntes_PUNTEADO' - end - item - Name = 'DEBE' - DataType = datCurrency - DisplayLabel = 'Apuntes_DEBE' - DictionaryEntry = 'Apuntes_DEBE' - end - item - Name = 'HABER' - DataType = datCurrency - DisplayLabel = 'Apuntes_HABER' - DictionaryEntry = 'Apuntes_HABER' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DisplayLabel = 'Apuntes_ID_FACTURA' - DictionaryEntry = 'Apuntes_ID_FACTURA' - end - item - Name = 'ID_RECIBO' - DataType = datInteger - DisplayLabel = 'Apuntes_ID_RECIBO' - DictionaryEntry = 'Apuntes_ID_RECIBO' - end item Name = 'ID_SUBCUENTA' DataType = datInteger @@ -487,6 +410,36 @@ inherited DataModuleContabilidad: TDataModuleContabilidad Size = 255 DisplayLabel = 'Apuntes_SUBCUENTA' DictionaryEntry = 'Apuntes_SUBCUENTA' + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 255 + DisplayLabel = 'Apuntes_CONCEPTO' + DictionaryEntry = 'Apuntes_CONCEPTO' + end + item + Name = 'DOCUMENTO' + DataType = datString + Size = 255 + end + item + Name = 'DEBE' + DataType = datCurrency + DisplayLabel = 'Apuntes_DEBE' + DictionaryEntry = 'Apuntes_DEBE' + end + item + Name = 'HABER' + DataType = datCurrency + DisplayLabel = 'Apuntes_HABER' + DictionaryEntry = 'Apuntes_HABER' + end + item + Name = 'PUNTEADO' + DataType = datSmallInt + DisplayLabel = 'Apuntes_PUNTEADO' + DictionaryEntry = 'Apuntes_PUNTEADO' end> Params = <> MasterMappingMode = mmWhere @@ -499,14 +452,53 @@ inherited DataModuleContabilidad: TDataModuleContabilidad MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Apuntes' IndexDefs = <> - Left = 320 - Top = 376 + Left = 384 + Top = 360 end object ds_Apuntes: TDADataSource DataSet = tbl_Apuntes.Dataset DataTable = tbl_Apuntes - Left = 320 - Top = 320 + Left = 392 + Top = 304 + end + object tbl_Asientos: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_CONT_ASIENTOS_ID' + Required = True + DictionaryEntry = 'Asientos_ID' + InPrimaryKey = True + end + item + Name = 'FECHA_ASIENTO' + DataType = datDateTime + DisplayLabel = 'Asientos_FECHA_ASIENTO' + DictionaryEntry = 'Asientos_FECHA_ASIENTO' + end + item + Name = 'ORDEN' + DataType = datInteger + DisplayLabel = 'Asientos_ORDEN' + DictionaryEntry = 'Asientos_ORDEN' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_Contabilidad + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'Asientos' + IndexDefs = <> + Left = 232 + Top = 352 + end + object ds_Asientos: TDADataSource + DataSet = tbl_Asientos.Dataset + DataTable = tbl_Asientos + Left = 232 + Top = 304 end object tbl_Diario: TDAMemDataTable RemoteUpdatesOptions = [] @@ -533,15 +525,24 @@ inherited DataModuleContabilidad: TDataModuleContabilidad DataType = datInteger end item - Name = 'SUBCUENTA' + Name = 'REF_SUBCUENTA' DataType = datString Size = 15 end + item + Name = 'ID_EJERCICIO' + DataType = datInteger + end item Name = 'CONCEPTO' DataType = datString Size = 255 end + item + Name = 'DOCUMENTO' + DataType = datString + Size = 255 + end item Name = 'DEBE' DataType = datCurrency @@ -561,13 +562,13 @@ inherited DataModuleContabilidad: TDataModuleContabilidad MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Diario' IndexDefs = <> - Left = 248 - Top = 376 + Left = 80 + Top = 360 end object ds_Diario: TDADataSource DataSet = tbl_Diario.Dataset DataTable = tbl_Diario - Left = 248 - Top = 320 + Left = 80 + Top = 312 end end diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas index 8c108720..b47493d7 100644 --- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas +++ b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas @@ -9,8 +9,8 @@ uses uBizBalances, uBizCuentasEspeciales, uBizEpigrafes, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, uBizCuentas, uBizSubCuentas, uBizAsientos, uDABin2DataStreamer, uDAMemDataTable, uIDataModuleContabilidad, - uDataModuleBase; - + uDataModuleBase, uBizApuntes, uBizDiario; + type TDataModuleContabilidad = class(TDataModuleBase, IDataModuleContabilidad) RORemoteService: TRORemoteService; @@ -22,22 +22,27 @@ type ds_CuentasEspeciales: TDADataSource; tbl_Epigrafes: TDAMemDataTable; ds_Epigrafes: TDADataSource; - tbl_Asientos: TDAMemDataTable; - ds_Asientos: TDADataSource; tbl_Cuentas: TDAMemDataTable; ds_Cuentas: TDADataSource; tbl_SubCuentas: TDAMemDataTable; ds_SubCuentas: TDADataSource; tbl_Apuntes: TDAMemDataTable; ds_Apuntes: TDADataSource; + tbl_Asientos: TDAMemDataTable; + ds_Asientos: TDADataSource; tbl_Diario: TDAMemDataTable; ds_Diario: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); + + private + function _GetApuntes : IBizApunte; + public function GetEpigrafeItems: IBizEpigrafe; function GetCuentaItems: IBizCuenta; function GetSubCuentaItems: IBizSubCuenta; - function GetAsientoItems: IBizAsiento; + function GetDiarioItems: IBizDiario; + function GetAsientoItem(const ID : Integer): IBizAsiento; function GetCuentaEspecialItems: IBizCuentaEspecial; function GetBalanceItems: IBizBalance; end; @@ -58,15 +63,49 @@ begin RORemoteService.Message := dmConexion.Message; end; -function TDataModuleContabilidad.GetAsientoItems: IBizAsiento; +function TDataModuleContabilidad.GetAsientoItem(const ID: Integer): IBizAsiento; +var + AAsiento : TDAMemDataTable; + Condicion: TDAWhereExpression; + +begin + ShowHourglassCursor; + try + AAsiento := CloneDataTable(tbl_Asientos); + AAsiento.BusinessRulesID := BIZ_CLIENT_ASIENTO; + + with TBizAsiento(AAsiento.BusinessEventsObj) do + begin + Apuntes := _GetApuntes; + end; + + //Filtramos por el ID del asiento + with AAsiento.DynamicWhere do + begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_AsientosID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + Result := (AAsiento as IBizAsiento); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleContabilidad.GetDiarioItems: IBizDiario; var ADiario : TDAMemDataTable; begin ShowHourglassCursor; try ADiario := CloneDataTable(tbl_Diario); - ADiario.BusinessRulesID := BIZ_CLIENT_ASIENTO; - Result := (ADiario as IBizAsiento); + ADiario.BusinessRulesID := BIZ_CLIENT_DIARIO; + Result := (ADiario as IBizDiario); finally HideHourglassCursor; end; @@ -142,4 +181,22 @@ begin end; end; +function TDataModuleContabilidad._GetApuntes: IBizApunte; +var + AApuntes : TDAMemDataTable; +begin + ShowHourglassCursor; + try + AApuntes := CloneDataTable(tbl_Apuntes); + with AApuntes do + begin + BusinessRulesID := BIZ_CLIENT_APUNTE; + DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (AApuntes as IBizApunte); + finally + HideHourglassCursor; + end; +end; + end. diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk b/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk index 273db36a..397e7287 100644 --- a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk +++ b/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk @@ -45,6 +45,8 @@ contains uIDataModuleContabilidad in 'Data\uIDataModuleContabilidad.pas', uBizCuentas in 'uBizCuentas.pas', uBizSubCuentas in 'uBizSubCuentas.pas', - uBizAsientos in 'uBizAsientos.pas'; + uBizAsientos in 'uBizAsientos.pas', + uBizApuntes in 'uBizApuntes.pas', + uBizDiario in 'uBizDiario.pas'; end. diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj b/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj index a80dd1b2..00d90946 100644 --- a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj +++ b/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj @@ -58,10 +58,12 @@ + + diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.res b/Source/Modulos/Contabilidad/Model/Contabilidad_model.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Contabilidad/Model/Copia de uBizEpigrafes.pas b/Source/Modulos/Contabilidad/Model/Copia de uBizEpigrafes.pas deleted file mode 100644 index d50a1717..00000000 --- a/Source/Modulos/Contabilidad/Model/Copia de uBizEpigrafes.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uBizEpigrafes; - -interface - -uses - uDAInterfaces, uDADataTable, schContabilidadClient_Intf; - -const - BIZ_CLIENT_Epigrafe = 'Client.Epigrafe'; - -type - IBizEpigrafe = interface(IEpigrafes) - ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}'] - function EsNuevo : Boolean; - end; - - TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe) - protected - procedure OnNewRecord(Sender: TDADataTable); override; - public - procedure IniciarValoresEpigrafeNueva; - function EsNuevo : Boolean; - end; - -implementation - -{ TBizEpigrafe } - -uses - SysUtils, uDataTableUtils, uFactuGES_App; - -function TBizEpigrafe.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -procedure TBizEpigrafe.IniciarValoresEpigrafeNueva; -begin - ID_EJERCICIO := 5//AppFactuGES.EmpresaActiva.EjercicioActivo.ID; -end; - -procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable); -begin - inherited; - IniciarValoresEpigrafeNueva; -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_Epigrafe, TBizEpigrafe); - -finalization - -end. - diff --git a/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas b/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas index b5be46cc..d0672064 100644 --- a/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas +++ b/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas @@ -4,7 +4,7 @@ interface uses uBizEpigrafes, uBizCuentasEspeciales, uBizBalances, uBizCuentas, uBizSubCuentas, - uBizAsientos; + uBizAsientos, uBizDiario; type IDataModuleContabilidad = interface(IInterface) @@ -14,7 +14,8 @@ type function GetBalanceItems: IBizBalance; function GetCuentaItems: IBizCuenta; function GetSubCuentaItems: IBizSubCuenta; - function GetAsientoItems: IBizAsiento; + function GetDiarioItems: IBizDiario; + function GetAsientoItem(const ID : Integer): IBizAsiento; end; implementation diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas index 4a1e38ff..47b07ca9 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas @@ -9,14 +9,14 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_Diario = '{3409D6DE-0E2C-4FE2-B650-45E00DF80EE5}'; - RID_Apuntes = '{C70C8870-6678-4D06-9E9D-6EB0266F986E}'; - RID_Asientos = '{E8092AA1-28BD-4DB3-8228-916A3085115E}'; - RID_SubCuentas = '{226486A6-603F-42C0-98E4-7FE35246D8F8}'; - RID_Cuentas = '{4590BD03-35E1-45C8-97DC-C29DE96B7E81}'; - RID_CuentasEspeciales = '{56AE80C0-694D-4313-A9C1-72FA790AB723}'; - RID_Epigrafes = '{4AB2F189-B670-4382-9DA3-BF5C129C5D0F}'; - RID_Balances = '{243FD877-5DEA-442B-8453-7E0E299D4A56}'; + RID_Diario = '{F8FC5CA9-331F-486F-9871-319995DD3249}'; + RID_Apuntes = '{F251002F-B2D8-409E-8F3A-937C3E8A3EAF}'; + RID_Asientos = '{ABF74F2C-466F-40A2-A0FC-989AF68E4FDF}'; + RID_SubCuentas = '{5A8B5FF1-8059-4AA1-B05B-10E7E8BA7781}'; + RID_Cuentas = '{78FCB4FD-3C1A-4ED5-95E7-340A16B22AF3}'; + RID_CuentasEspeciales = '{0A4B13A1-A9E9-4B7C-8371-5333AA285B9D}'; + RID_Epigrafes = '{F928AEAF-1435-4B5E-9712-CC542FD2C7E0}'; + RID_Balances = '{AAB37106-495B-4CD3-BD03-B16FC0857A9D}'; { Data table names } nme_Diario = 'Diario'; @@ -34,8 +34,10 @@ const fld_DiarioORDEN_ASIENTO = 'ORDEN_ASIENTO'; fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA'; - fld_DiarioSUBCUENTA = 'SUBCUENTA'; + fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA'; + fld_DiarioID_EJERCICIO = 'ID_EJERCICIO'; fld_DiarioCONCEPTO = 'CONCEPTO'; + fld_DiarioDOCUMENTO = 'DOCUMENTO'; fld_DiarioDEBE = 'DEBE'; fld_DiarioHABER = 'HABER'; fld_DiarioPUNTEADO = 'PUNTEADO'; @@ -46,37 +48,37 @@ const idx_DiarioORDEN_ASIENTO = 2; idx_DiarioFECHA_ASIENTO = 3; idx_DiarioID_SUBCUENTA = 4; - idx_DiarioSUBCUENTA = 5; - idx_DiarioCONCEPTO = 6; - idx_DiarioDEBE = 7; - idx_DiarioHABER = 8; - idx_DiarioPUNTEADO = 9; + idx_DiarioREF_SUBCUENTA = 5; + idx_DiarioID_EJERCICIO = 6; + idx_DiarioCONCEPTO = 7; + idx_DiarioDOCUMENTO = 8; + idx_DiarioDEBE = 9; + idx_DiarioHABER = 10; + idx_DiarioPUNTEADO = 11; { Apuntes fields } fld_ApuntesID = 'ID'; fld_ApuntesID_ASIENTO = 'ID_ASIENTO'; - fld_ApuntesCONCEPTO = 'CONCEPTO'; - fld_ApuntesPUNTEADO = 'PUNTEADO'; - fld_ApuntesDEBE = 'DEBE'; - fld_ApuntesHABER = 'HABER'; - fld_ApuntesID_FACTURA = 'ID_FACTURA'; - fld_ApuntesID_RECIBO = 'ID_RECIBO'; fld_ApuntesID_SUBCUENTA = 'ID_SUBCUENTA'; fld_ApuntesREF_SUBCUENTA = 'REF_SUBCUENTA'; fld_ApuntesSUBCUENTA = 'SUBCUENTA'; + fld_ApuntesCONCEPTO = 'CONCEPTO'; + fld_ApuntesDOCUMENTO = 'DOCUMENTO'; + fld_ApuntesDEBE = 'DEBE'; + fld_ApuntesHABER = 'HABER'; + fld_ApuntesPUNTEADO = 'PUNTEADO'; { Apuntes field indexes } idx_ApuntesID = 0; idx_ApuntesID_ASIENTO = 1; - idx_ApuntesCONCEPTO = 2; - idx_ApuntesPUNTEADO = 3; - idx_ApuntesDEBE = 4; - idx_ApuntesHABER = 5; - idx_ApuntesID_FACTURA = 6; - idx_ApuntesID_RECIBO = 7; - idx_ApuntesID_SUBCUENTA = 8; - idx_ApuntesREF_SUBCUENTA = 9; - idx_ApuntesSUBCUENTA = 10; + idx_ApuntesID_SUBCUENTA = 2; + idx_ApuntesREF_SUBCUENTA = 3; + idx_ApuntesSUBCUENTA = 4; + idx_ApuntesCONCEPTO = 5; + idx_ApuntesDOCUMENTO = 6; + idx_ApuntesDEBE = 7; + idx_ApuntesHABER = 8; + idx_ApuntesPUNTEADO = 9; { Asientos fields } fld_AsientosID = 'ID'; @@ -185,7 +187,7 @@ const type { IDiario } IDiario = interface(IDAStronglyTypedDataTable) - ['{E757E9E3-8BCB-446D-A826-EB1B1175DC36}'] + ['{A0CF9A52-C426-4396-A961-FF7BAD3FB4C0}'] { Property getters and setters } function GetID_APUNTEValue: Integer; procedure SetID_APUNTEValue(const aValue: Integer); @@ -207,14 +209,22 @@ type procedure SetID_SUBCUENTAValue(const aValue: Integer); function GetID_SUBCUENTAIsNull: Boolean; procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); - function GetSUBCUENTAValue: String; - procedure SetSUBCUENTAValue(const aValue: String); - function GetSUBCUENTAIsNull: Boolean; - procedure SetSUBCUENTAIsNull(const aValue: Boolean); + function GetREF_SUBCUENTAValue: String; + procedure SetREF_SUBCUENTAValue(const aValue: String); + function GetREF_SUBCUENTAIsNull: Boolean; + procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); + function GetID_EJERCICIOValue: Integer; + procedure SetID_EJERCICIOValue(const aValue: Integer); + function GetID_EJERCICIOIsNull: Boolean; + procedure SetID_EJERCICIOIsNull(const aValue: Boolean); function GetCONCEPTOValue: String; procedure SetCONCEPTOValue(const aValue: String); function GetCONCEPTOIsNull: Boolean; procedure SetCONCEPTOIsNull(const aValue: Boolean); + function GetDOCUMENTOValue: String; + procedure SetDOCUMENTOValue(const aValue: String); + function GetDOCUMENTOIsNull: Boolean; + procedure SetDOCUMENTOIsNull(const aValue: Boolean); function GetDEBEValue: Currency; procedure SetDEBEValue(const aValue: Currency); function GetDEBEIsNull: Boolean; @@ -240,10 +250,14 @@ type property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; - property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; - property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; + property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; + property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; + property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; + property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue; + property DOCUMENTOIsNull: Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; property DEBE: Currency read GetDEBEValue write SetDEBEValue; property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull; property HABER: Currency read GetHABERValue write SetHABERValue; @@ -277,14 +291,22 @@ type procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; function GetID_SUBCUENTAIsNull: Boolean; virtual; procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual; - function GetSUBCUENTAValue: String; virtual; - procedure SetSUBCUENTAValue(const aValue: String); virtual; - function GetSUBCUENTAIsNull: Boolean; virtual; - procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetREF_SUBCUENTAValue: String; virtual; + procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; + function GetREF_SUBCUENTAIsNull: Boolean; virtual; + procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetID_EJERCICIOValue: Integer; virtual; + procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; + function GetID_EJERCICIOIsNull: Boolean; virtual; + procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; procedure SetCONCEPTOValue(const aValue: String); virtual; function GetCONCEPTOIsNull: Boolean; virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetDOCUMENTOValue: String; virtual; + procedure SetDOCUMENTOValue(const aValue: String); virtual; + function GetDOCUMENTOIsNull: Boolean; virtual; + procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual; function GetDEBEValue: Currency; virtual; procedure SetDEBEValue(const aValue: Currency); virtual; function GetDEBEIsNull: Boolean; virtual; @@ -309,10 +331,14 @@ type property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; - property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; - property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; + property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; + property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; + property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; + property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue; + property DOCUMENTOIsNull: Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; property DEBE: Currency read GetDEBEValue write SetDEBEValue; property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull; property HABER: Currency read GetHABERValue write SetHABERValue; @@ -328,7 +354,7 @@ type { IApuntes } IApuntes = interface(IDAStronglyTypedDataTable) - ['{CF29AC79-C564-4DDC-8CA6-2EE5FA7D14BE}'] + ['{51E8C72F-072E-4C62-B2C3-50FA1FA437A6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -338,30 +364,6 @@ type procedure SetID_ASIENTOValue(const aValue: Integer); function GetID_ASIENTOIsNull: Boolean; procedure SetID_ASIENTOIsNull(const aValue: Boolean); - function GetCONCEPTOValue: String; - procedure SetCONCEPTOValue(const aValue: String); - function GetCONCEPTOIsNull: Boolean; - procedure SetCONCEPTOIsNull(const aValue: Boolean); - function GetPUNTEADOValue: SmallInt; - procedure SetPUNTEADOValue(const aValue: SmallInt); - function GetPUNTEADOIsNull: Boolean; - procedure SetPUNTEADOIsNull(const aValue: Boolean); - function GetDEBEValue: Currency; - procedure SetDEBEValue(const aValue: Currency); - function GetDEBEIsNull: Boolean; - procedure SetDEBEIsNull(const aValue: Boolean); - function GetHABERValue: Currency; - procedure SetHABERValue(const aValue: Currency); - function GetHABERIsNull: Boolean; - procedure SetHABERIsNull(const aValue: Boolean); - function GetID_FACTURAValue: Integer; - procedure SetID_FACTURAValue(const aValue: Integer); - function GetID_FACTURAIsNull: Boolean; - procedure SetID_FACTURAIsNull(const aValue: Boolean); - function GetID_RECIBOValue: Integer; - procedure SetID_RECIBOValue(const aValue: Integer); - function GetID_RECIBOIsNull: Boolean; - procedure SetID_RECIBOIsNull(const aValue: Boolean); function GetID_SUBCUENTAValue: Integer; procedure SetID_SUBCUENTAValue(const aValue: Integer); function GetID_SUBCUENTAIsNull: Boolean; @@ -374,6 +376,26 @@ type procedure SetSUBCUENTAValue(const aValue: String); function GetSUBCUENTAIsNull: Boolean; procedure SetSUBCUENTAIsNull(const aValue: Boolean); + function GetCONCEPTOValue: String; + procedure SetCONCEPTOValue(const aValue: String); + function GetCONCEPTOIsNull: Boolean; + procedure SetCONCEPTOIsNull(const aValue: Boolean); + function GetDOCUMENTOValue: String; + procedure SetDOCUMENTOValue(const aValue: String); + function GetDOCUMENTOIsNull: Boolean; + procedure SetDOCUMENTOIsNull(const aValue: Boolean); + function GetDEBEValue: Currency; + procedure SetDEBEValue(const aValue: Currency); + function GetDEBEIsNull: Boolean; + procedure SetDEBEIsNull(const aValue: Boolean); + function GetHABERValue: Currency; + procedure SetHABERValue(const aValue: Currency); + function GetHABERIsNull: Boolean; + procedure SetHABERIsNull(const aValue: Boolean); + function GetPUNTEADOValue: SmallInt; + procedure SetPUNTEADOValue(const aValue: SmallInt); + function GetPUNTEADOIsNull: Boolean; + procedure SetPUNTEADOIsNull(const aValue: Boolean); { Properties } @@ -381,24 +403,22 @@ type property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_ASIENTO: Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; property ID_ASIENTOIsNull: Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; - property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; - property DEBE: Currency read GetDEBEValue write SetDEBEValue; - property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull; - property HABER: Currency read GetHABERValue write SetHABERValue; - property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull; - property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue; - property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue; + property DOCUMENTOIsNull: Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; + property DEBE: Currency read GetDEBEValue write SetDEBEValue; + property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull; + property HABER: Currency read GetHABERValue write SetHABERValue; + property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull; + property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; + property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; end; { TApuntesDataTableRules } @@ -414,30 +434,6 @@ type procedure SetID_ASIENTOValue(const aValue: Integer); virtual; function GetID_ASIENTOIsNull: Boolean; virtual; procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetPUNTEADOValue: SmallInt; virtual; - procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; - function GetPUNTEADOIsNull: Boolean; virtual; - procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; - function GetDEBEValue: Currency; virtual; - procedure SetDEBEValue(const aValue: Currency); virtual; - function GetDEBEIsNull: Boolean; virtual; - procedure SetDEBEIsNull(const aValue: Boolean); virtual; - function GetHABERValue: Currency; virtual; - procedure SetHABERValue(const aValue: Currency); virtual; - function GetHABERIsNull: Boolean; virtual; - procedure SetHABERIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetID_RECIBOValue: Integer; virtual; - procedure SetID_RECIBOValue(const aValue: Integer); virtual; - function GetID_RECIBOIsNull: Boolean; virtual; - procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual; function GetID_SUBCUENTAValue: Integer; virtual; procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; function GetID_SUBCUENTAIsNull: Boolean; virtual; @@ -450,30 +446,48 @@ type procedure SetSUBCUENTAValue(const aValue: String); virtual; function GetSUBCUENTAIsNull: Boolean; virtual; procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetDOCUMENTOValue: String; virtual; + procedure SetDOCUMENTOValue(const aValue: String); virtual; + function GetDOCUMENTOIsNull: Boolean; virtual; + procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual; + function GetDEBEValue: Currency; virtual; + procedure SetDEBEValue(const aValue: Currency); virtual; + function GetDEBEIsNull: Boolean; virtual; + procedure SetDEBEIsNull(const aValue: Boolean); virtual; + function GetHABERValue: Currency; virtual; + procedure SetHABERValue(const aValue: Currency); virtual; + function GetHABERIsNull: Boolean; virtual; + procedure SetHABERIsNull(const aValue: Boolean); virtual; + function GetPUNTEADOValue: SmallInt; virtual; + procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; + function GetPUNTEADOIsNull: Boolean; virtual; + procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_ASIENTO: Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; property ID_ASIENTOIsNull: Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; - property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; - property DEBE: Currency read GetDEBEValue write SetDEBEValue; - property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull; - property HABER: Currency read GetHABERValue write SetHABERValue; - property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull; - property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue; - property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue; + property DOCUMENTOIsNull: Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; + property DEBE: Currency read GetDEBEValue write SetDEBEValue; + property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull; + property HABER: Currency read GetHABERValue write SetHABERValue; + property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull; + property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; + property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -483,7 +497,7 @@ type { IAsientos } IAsientos = interface(IDAStronglyTypedDataTable) - ['{F3E1D325-C066-4673-BC4A-89E65296F0C5}'] + ['{60A1BF8D-DDCC-48DC-9088-839CD788AC5B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -542,7 +556,7 @@ type { ISubCuentas } ISubCuentas = interface(IDAStronglyTypedDataTable) - ['{D0FEC922-7886-4A37-B42B-AFB69420945B}'] + ['{3CE4DD12-1C80-4AFD-BE4B-5892BCA821AC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -673,7 +687,7 @@ type { ICuentas } ICuentas = interface(IDAStronglyTypedDataTable) - ['{EEEB0A52-53FB-45B8-94DD-58CB8627F637}'] + ['{366FAC37-21A7-4BA3-8428-31AD7845301B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -816,7 +830,7 @@ type { ICuentasEspeciales } ICuentasEspeciales = interface(IDAStronglyTypedDataTable) - ['{2E1CFF1A-E93A-478C-91AA-35905D38E54D}'] + ['{1E7CF1B8-76C6-4F5A-A504-C3D03AA97A72}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -875,7 +889,7 @@ type { IEpigrafes } IEpigrafes = interface(IDAStronglyTypedDataTable) - ['{580D7CFA-4B47-4B42-AB87-3CA51E617AE7}'] + ['{90A498D5-44D9-4F8D-AB9A-E3EE0F3C64BC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -970,7 +984,7 @@ type { IBalances } IBalances = interface(IDAStronglyTypedDataTable) - ['{2BC59ABB-E93C-4C3C-BEB2-832904CCF81D}'] + ['{896BE912-E8F7-4F68-AE2C-7A8E3ACFC8CB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1219,25 +1233,46 @@ begin DataTable.Fields[idx_DiarioID_SUBCUENTA].AsVariant := Null; end; -function TDiarioDataTableRules.GetSUBCUENTAValue: String; +function TDiarioDataTableRules.GetREF_SUBCUENTAValue: String; begin - result := DataTable.Fields[idx_DiarioSUBCUENTA].AsString; + result := DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsString; end; -procedure TDiarioDataTableRules.SetSUBCUENTAValue(const aValue: String); +procedure TDiarioDataTableRules.SetREF_SUBCUENTAValue(const aValue: String); begin - DataTable.Fields[idx_DiarioSUBCUENTA].AsString := aValue; + DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsString := aValue; end; -function TDiarioDataTableRules.GetSUBCUENTAIsNull: boolean; +function TDiarioDataTableRules.GetREF_SUBCUENTAIsNull: boolean; begin - result := DataTable.Fields[idx_DiarioSUBCUENTA].IsNull; + result := DataTable.Fields[idx_DiarioREF_SUBCUENTA].IsNull; end; -procedure TDiarioDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean); +procedure TDiarioDataTableRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_DiarioSUBCUENTA].AsVariant := Null; + DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsVariant := Null; +end; + +function TDiarioDataTableRules.GetID_EJERCICIOValue: Integer; +begin + result := DataTable.Fields[idx_DiarioID_EJERCICIO].AsInteger; +end; + +procedure TDiarioDataTableRules.SetID_EJERCICIOValue(const aValue: Integer); +begin + DataTable.Fields[idx_DiarioID_EJERCICIO].AsInteger := aValue; +end; + +function TDiarioDataTableRules.GetID_EJERCICIOIsNull: boolean; +begin + result := DataTable.Fields[idx_DiarioID_EJERCICIO].IsNull; +end; + +procedure TDiarioDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DiarioID_EJERCICIO].AsVariant := Null; end; function TDiarioDataTableRules.GetCONCEPTOValue: String; @@ -1261,6 +1296,27 @@ begin DataTable.Fields[idx_DiarioCONCEPTO].AsVariant := Null; end; +function TDiarioDataTableRules.GetDOCUMENTOValue: String; +begin + result := DataTable.Fields[idx_DiarioDOCUMENTO].AsString; +end; + +procedure TDiarioDataTableRules.SetDOCUMENTOValue(const aValue: String); +begin + DataTable.Fields[idx_DiarioDOCUMENTO].AsString := aValue; +end; + +function TDiarioDataTableRules.GetDOCUMENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_DiarioDOCUMENTO].IsNull; +end; + +procedure TDiarioDataTableRules.SetDOCUMENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DiarioDOCUMENTO].AsVariant := Null; +end; + function TDiarioDataTableRules.GetDEBEValue: Currency; begin result := DataTable.Fields[idx_DiarioDEBE].AsCurrency; @@ -1378,132 +1434,6 @@ begin DataTable.Fields[idx_ApuntesID_ASIENTO].AsVariant := Null; end; -function TApuntesDataTableRules.GetCONCEPTOValue: String; -begin - result := DataTable.Fields[idx_ApuntesCONCEPTO].AsString; -end; - -procedure TApuntesDataTableRules.SetCONCEPTOValue(const aValue: String); -begin - DataTable.Fields[idx_ApuntesCONCEPTO].AsString := aValue; -end; - -function TApuntesDataTableRules.GetCONCEPTOIsNull: boolean; -begin - result := DataTable.Fields[idx_ApuntesCONCEPTO].IsNull; -end; - -procedure TApuntesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ApuntesCONCEPTO].AsVariant := Null; -end; - -function TApuntesDataTableRules.GetPUNTEADOValue: SmallInt; -begin - result := DataTable.Fields[idx_ApuntesPUNTEADO].AsSmallInt; -end; - -procedure TApuntesDataTableRules.SetPUNTEADOValue(const aValue: SmallInt); -begin - DataTable.Fields[idx_ApuntesPUNTEADO].AsSmallInt := aValue; -end; - -function TApuntesDataTableRules.GetPUNTEADOIsNull: boolean; -begin - result := DataTable.Fields[idx_ApuntesPUNTEADO].IsNull; -end; - -procedure TApuntesDataTableRules.SetPUNTEADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ApuntesPUNTEADO].AsVariant := Null; -end; - -function TApuntesDataTableRules.GetDEBEValue: Currency; -begin - result := DataTable.Fields[idx_ApuntesDEBE].AsCurrency; -end; - -procedure TApuntesDataTableRules.SetDEBEValue(const aValue: Currency); -begin - DataTable.Fields[idx_ApuntesDEBE].AsCurrency := aValue; -end; - -function TApuntesDataTableRules.GetDEBEIsNull: boolean; -begin - result := DataTable.Fields[idx_ApuntesDEBE].IsNull; -end; - -procedure TApuntesDataTableRules.SetDEBEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ApuntesDEBE].AsVariant := Null; -end; - -function TApuntesDataTableRules.GetHABERValue: Currency; -begin - result := DataTable.Fields[idx_ApuntesHABER].AsCurrency; -end; - -procedure TApuntesDataTableRules.SetHABERValue(const aValue: Currency); -begin - DataTable.Fields[idx_ApuntesHABER].AsCurrency := aValue; -end; - -function TApuntesDataTableRules.GetHABERIsNull: boolean; -begin - result := DataTable.Fields[idx_ApuntesHABER].IsNull; -end; - -procedure TApuntesDataTableRules.SetHABERIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ApuntesHABER].AsVariant := Null; -end; - -function TApuntesDataTableRules.GetID_FACTURAValue: Integer; -begin - result := DataTable.Fields[idx_ApuntesID_FACTURA].AsInteger; -end; - -procedure TApuntesDataTableRules.SetID_FACTURAValue(const aValue: Integer); -begin - DataTable.Fields[idx_ApuntesID_FACTURA].AsInteger := aValue; -end; - -function TApuntesDataTableRules.GetID_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_ApuntesID_FACTURA].IsNull; -end; - -procedure TApuntesDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ApuntesID_FACTURA].AsVariant := Null; -end; - -function TApuntesDataTableRules.GetID_RECIBOValue: Integer; -begin - result := DataTable.Fields[idx_ApuntesID_RECIBO].AsInteger; -end; - -procedure TApuntesDataTableRules.SetID_RECIBOValue(const aValue: Integer); -begin - DataTable.Fields[idx_ApuntesID_RECIBO].AsInteger := aValue; -end; - -function TApuntesDataTableRules.GetID_RECIBOIsNull: boolean; -begin - result := DataTable.Fields[idx_ApuntesID_RECIBO].IsNull; -end; - -procedure TApuntesDataTableRules.SetID_RECIBOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ApuntesID_RECIBO].AsVariant := Null; -end; - function TApuntesDataTableRules.GetID_SUBCUENTAValue: Integer; begin result := DataTable.Fields[idx_ApuntesID_SUBCUENTA].AsInteger; @@ -1567,6 +1497,111 @@ begin DataTable.Fields[idx_ApuntesSUBCUENTA].AsVariant := Null; end; +function TApuntesDataTableRules.GetCONCEPTOValue: String; +begin + result := DataTable.Fields[idx_ApuntesCONCEPTO].AsString; +end; + +procedure TApuntesDataTableRules.SetCONCEPTOValue(const aValue: String); +begin + DataTable.Fields[idx_ApuntesCONCEPTO].AsString := aValue; +end; + +function TApuntesDataTableRules.GetCONCEPTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ApuntesCONCEPTO].IsNull; +end; + +procedure TApuntesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ApuntesCONCEPTO].AsVariant := Null; +end; + +function TApuntesDataTableRules.GetDOCUMENTOValue: String; +begin + result := DataTable.Fields[idx_ApuntesDOCUMENTO].AsString; +end; + +procedure TApuntesDataTableRules.SetDOCUMENTOValue(const aValue: String); +begin + DataTable.Fields[idx_ApuntesDOCUMENTO].AsString := aValue; +end; + +function TApuntesDataTableRules.GetDOCUMENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ApuntesDOCUMENTO].IsNull; +end; + +procedure TApuntesDataTableRules.SetDOCUMENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ApuntesDOCUMENTO].AsVariant := Null; +end; + +function TApuntesDataTableRules.GetDEBEValue: Currency; +begin + result := DataTable.Fields[idx_ApuntesDEBE].AsCurrency; +end; + +procedure TApuntesDataTableRules.SetDEBEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ApuntesDEBE].AsCurrency := aValue; +end; + +function TApuntesDataTableRules.GetDEBEIsNull: boolean; +begin + result := DataTable.Fields[idx_ApuntesDEBE].IsNull; +end; + +procedure TApuntesDataTableRules.SetDEBEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ApuntesDEBE].AsVariant := Null; +end; + +function TApuntesDataTableRules.GetHABERValue: Currency; +begin + result := DataTable.Fields[idx_ApuntesHABER].AsCurrency; +end; + +procedure TApuntesDataTableRules.SetHABERValue(const aValue: Currency); +begin + DataTable.Fields[idx_ApuntesHABER].AsCurrency := aValue; +end; + +function TApuntesDataTableRules.GetHABERIsNull: boolean; +begin + result := DataTable.Fields[idx_ApuntesHABER].IsNull; +end; + +procedure TApuntesDataTableRules.SetHABERIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ApuntesHABER].AsVariant := Null; +end; + +function TApuntesDataTableRules.GetPUNTEADOValue: SmallInt; +begin + result := DataTable.Fields[idx_ApuntesPUNTEADO].AsSmallInt; +end; + +procedure TApuntesDataTableRules.SetPUNTEADOValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ApuntesPUNTEADO].AsSmallInt := aValue; +end; + +function TApuntesDataTableRules.GetPUNTEADOIsNull: boolean; +begin + result := DataTable.Fields[idx_ApuntesPUNTEADO].IsNull; +end; + +procedure TApuntesDataTableRules.SetPUNTEADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ApuntesPUNTEADO].AsVariant := Null; +end; + { TAsientosDataTableRules } constructor TAsientosDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas index 01f139e2..2d3da657 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas @@ -9,27 +9,29 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DiarioDelta = '{57F639D0-753A-4DD5-8553-4836768A68E8}'; - RID_ApuntesDelta = '{74F9A357-E9A3-454C-8D87-86065C5B2C10}'; - RID_AsientosDelta = '{291CBAA5-42AB-45D6-A5D0-59D694A8960E}'; - RID_SubCuentasDelta = '{0C092B2B-41F6-4F70-B073-F1B68F9FA233}'; - RID_CuentasDelta = '{152D2AD4-8B66-49AC-8D07-33C76A60CB85}'; - RID_CuentasEspecialesDelta = '{0E63EE73-6CE9-4F33-9DB7-B02B1190DA20}'; - RID_EpigrafesDelta = '{2EB3D408-B118-4BC5-AABE-FAC7393086AB}'; - RID_BalancesDelta = '{964A4194-0DF5-4CA7-A922-DB219CC96B39}'; + RID_DiarioDelta = '{00C7E090-F36E-4A94-924F-81591065C131}'; + RID_ApuntesDelta = '{462A727F-D66D-4493-83A3-6CAF34F994D7}'; + RID_AsientosDelta = '{3A7F1EB1-7C5B-47BF-8DFA-4C86EFF0686E}'; + RID_SubCuentasDelta = '{E88435DC-570C-43D8-A8B0-004C1C775CF0}'; + RID_CuentasDelta = '{A26B4CE1-63F7-49F3-8A0A-F2840D95587C}'; + RID_CuentasEspecialesDelta = '{089CB669-7830-4908-9344-42AEC93D8320}'; + RID_EpigrafesDelta = '{BFE5CD3F-52C2-400A-93A6-ACB723F7390E}'; + RID_BalancesDelta = '{543250BB-1C2E-4448-AEA8-EDC23591A2ED}'; type { IDiarioDelta } IDiarioDelta = interface(IDiario) - ['{57F639D0-753A-4DD5-8553-4836768A68E8}'] + ['{00C7E090-F36E-4A94-924F-81591065C131}'] { Property getters and setters } function GetOldID_APUNTEValue : Integer; function GetOldID_ASIENTOValue : Integer; function GetOldORDEN_ASIENTOValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; function GetOldID_SUBCUENTAValue : Integer; - function GetOldSUBCUENTAValue : String; + function GetOldREF_SUBCUENTAValue : String; + function GetOldID_EJERCICIOValue : Integer; function GetOldCONCEPTOValue : String; + function GetOldDOCUMENTOValue : String; function GetOldDEBEValue : Currency; function GetOldHABERValue : Currency; function GetOldPUNTEADOValue : SmallInt; @@ -40,8 +42,10 @@ type property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; - property OldSUBCUENTA : String read GetOldSUBCUENTAValue; + property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; + property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDEBE : Currency read GetOldDEBEValue; property OldHABER : Currency read GetOldHABERValue; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; @@ -82,18 +86,30 @@ type function GetOldID_SUBCUENTAIsNull: Boolean; virtual; procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual; - function GetSUBCUENTAValue: String; virtual; - function GetSUBCUENTAIsNull: Boolean; virtual; - function GetOldSUBCUENTAValue: String; virtual; - function GetOldSUBCUENTAIsNull: Boolean; virtual; - procedure SetSUBCUENTAValue(const aValue: String); virtual; - procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetREF_SUBCUENTAValue: String; virtual; + function GetREF_SUBCUENTAIsNull: Boolean; virtual; + function GetOldREF_SUBCUENTAValue: String; virtual; + function GetOldREF_SUBCUENTAIsNull: Boolean; virtual; + procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; + procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetID_EJERCICIOValue: Integer; virtual; + function GetID_EJERCICIOIsNull: Boolean; virtual; + function GetOldID_EJERCICIOValue: Integer; virtual; + function GetOldID_EJERCICIOIsNull: Boolean; virtual; + procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; + procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; function GetCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual; procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetDOCUMENTOValue: String; virtual; + function GetDOCUMENTOIsNull: Boolean; virtual; + function GetOldDOCUMENTOValue: String; virtual; + function GetOldDOCUMENTOIsNull: Boolean; virtual; + procedure SetDOCUMENTOValue(const aValue: String); virtual; + procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual; function GetDEBEValue: Currency; virtual; function GetDEBEIsNull: Boolean; virtual; function GetOldDEBEValue: Currency; virtual; @@ -134,14 +150,22 @@ type property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull; - property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue; - property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; - property OldSUBCUENTA : String read GetOldSUBCUENTAValue; - property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; + property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; + property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; + property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; + property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull; + property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; + property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; + property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; + property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; + property DOCUMENTO : String read GetDOCUMENTOValue write SetDOCUMENTOValue; + property DOCUMENTOIsNull : Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; + property OldDOCUMENTO : String read GetOldDOCUMENTOValue; + property OldDOCUMENTOIsNull : Boolean read GetOldDOCUMENTOIsNull; property DEBE : Currency read GetDEBEValue write SetDEBEValue; property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull; property OldDEBE : Currency read GetOldDEBEValue; @@ -163,32 +187,30 @@ type { IApuntesDelta } IApuntesDelta = interface(IApuntes) - ['{74F9A357-E9A3-454C-8D87-86065C5B2C10}'] + ['{462A727F-D66D-4493-83A3-6CAF34F994D7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ASIENTOValue : Integer; - function GetOldCONCEPTOValue : String; - function GetOldPUNTEADOValue : SmallInt; - function GetOldDEBEValue : Currency; - function GetOldHABERValue : Currency; - function GetOldID_FACTURAValue : Integer; - function GetOldID_RECIBOValue : Integer; function GetOldID_SUBCUENTAValue : Integer; function GetOldREF_SUBCUENTAValue : String; function GetOldSUBCUENTAValue : String; + function GetOldCONCEPTOValue : String; + function GetOldDOCUMENTOValue : String; + function GetOldDEBEValue : Currency; + function GetOldHABERValue : Currency; + function GetOldPUNTEADOValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; - property OldDEBE : Currency read GetOldDEBEValue; - property OldHABER : Currency read GetOldHABERValue; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldID_RECIBO : Integer read GetOldID_RECIBOValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldDOCUMENTO : String read GetOldDOCUMENTOValue; + property OldDEBE : Currency read GetOldDEBEValue; + property OldHABER : Currency read GetOldHABERValue; + property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; end; { TApuntesBusinessProcessorRules } @@ -208,42 +230,6 @@ type function GetOldID_ASIENTOIsNull: Boolean; virtual; procedure SetID_ASIENTOValue(const aValue: Integer); virtual; procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - function GetOldCONCEPTOValue: String; virtual; - function GetOldCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetPUNTEADOValue: SmallInt; virtual; - function GetPUNTEADOIsNull: Boolean; virtual; - function GetOldPUNTEADOValue: SmallInt; virtual; - function GetOldPUNTEADOIsNull: Boolean; virtual; - procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; - procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; - function GetDEBEValue: Currency; virtual; - function GetDEBEIsNull: Boolean; virtual; - function GetOldDEBEValue: Currency; virtual; - function GetOldDEBEIsNull: Boolean; virtual; - procedure SetDEBEValue(const aValue: Currency); virtual; - procedure SetDEBEIsNull(const aValue: Boolean); virtual; - function GetHABERValue: Currency; virtual; - function GetHABERIsNull: Boolean; virtual; - function GetOldHABERValue: Currency; virtual; - function GetOldHABERIsNull: Boolean; virtual; - procedure SetHABERValue(const aValue: Currency); virtual; - procedure SetHABERIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - function GetOldID_FACTURAValue: Integer; virtual; - function GetOldID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetID_RECIBOValue: Integer; virtual; - function GetID_RECIBOIsNull: Boolean; virtual; - function GetOldID_RECIBOValue: Integer; virtual; - function GetOldID_RECIBOIsNull: Boolean; virtual; - procedure SetID_RECIBOValue(const aValue: Integer); virtual; - procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual; function GetID_SUBCUENTAValue: Integer; virtual; function GetID_SUBCUENTAIsNull: Boolean; virtual; function GetOldID_SUBCUENTAValue: Integer; virtual; @@ -262,6 +248,36 @@ type function GetOldSUBCUENTAIsNull: Boolean; virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + function GetOldCONCEPTOValue: String; virtual; + function GetOldCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetDOCUMENTOValue: String; virtual; + function GetDOCUMENTOIsNull: Boolean; virtual; + function GetOldDOCUMENTOValue: String; virtual; + function GetOldDOCUMENTOIsNull: Boolean; virtual; + procedure SetDOCUMENTOValue(const aValue: String); virtual; + procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual; + function GetDEBEValue: Currency; virtual; + function GetDEBEIsNull: Boolean; virtual; + function GetOldDEBEValue: Currency; virtual; + function GetOldDEBEIsNull: Boolean; virtual; + procedure SetDEBEValue(const aValue: Currency); virtual; + procedure SetDEBEIsNull(const aValue: Boolean); virtual; + function GetHABERValue: Currency; virtual; + function GetHABERIsNull: Boolean; virtual; + function GetOldHABERValue: Currency; virtual; + function GetOldHABERIsNull: Boolean; virtual; + procedure SetHABERValue(const aValue: Currency); virtual; + procedure SetHABERIsNull(const aValue: Boolean); virtual; + function GetPUNTEADOValue: SmallInt; virtual; + function GetPUNTEADOIsNull: Boolean; virtual; + function GetOldPUNTEADOValue: SmallInt; virtual; + function GetOldPUNTEADOIsNull: Boolean; virtual; + procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; + procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -272,30 +288,6 @@ type property ID_ASIENTOIsNull : Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; property OldID_ASIENTOIsNull : Boolean read GetOldID_ASIENTOIsNull; - property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; - property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; - property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; - property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; - property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull; - property DEBE : Currency read GetDEBEValue write SetDEBEValue; - property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull; - property OldDEBE : Currency read GetOldDEBEValue; - property OldDEBEIsNull : Boolean read GetOldDEBEIsNull; - property HABER : Currency read GetHABERValue write SetHABERValue; - property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull; - property OldHABER : Currency read GetOldHABERValue; - property OldHABERIsNull : Boolean read GetOldHABERIsNull; - property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; - property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue; - property ID_RECIBOIsNull : Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; - property OldID_RECIBO : Integer read GetOldID_RECIBOValue; - property OldID_RECIBOIsNull : Boolean read GetOldID_RECIBOIsNull; property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; @@ -308,6 +300,26 @@ type property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; + property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; + property DOCUMENTO : String read GetDOCUMENTOValue write SetDOCUMENTOValue; + property DOCUMENTOIsNull : Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; + property OldDOCUMENTO : String read GetOldDOCUMENTOValue; + property OldDOCUMENTOIsNull : Boolean read GetOldDOCUMENTOIsNull; + property DEBE : Currency read GetDEBEValue write SetDEBEValue; + property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull; + property OldDEBE : Currency read GetOldDEBEValue; + property OldDEBEIsNull : Boolean read GetOldDEBEIsNull; + property HABER : Currency read GetHABERValue write SetHABERValue; + property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull; + property OldHABER : Currency read GetOldHABERValue; + property OldHABERIsNull : Boolean read GetOldHABERIsNull; + property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; + property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; + property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; + property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -317,7 +329,7 @@ type { IAsientosDelta } IAsientosDelta = interface(IAsientos) - ['{291CBAA5-42AB-45D6-A5D0-59D694A8960E}'] + ['{3A7F1EB1-7C5B-47BF-8DFA-4C86EFF0686E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; @@ -375,7 +387,7 @@ type { ISubCuentasDelta } ISubCuentasDelta = interface(ISubCuentas) - ['{0C092B2B-41F6-4F70-B073-F1B68F9FA233}'] + ['{E88435DC-570C-43D8-A8B0-004C1C775CF0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -505,7 +517,7 @@ type { ICuentasDelta } ICuentasDelta = interface(ICuentas) - ['{152D2AD4-8B66-49AC-8D07-33C76A60CB85}'] + ['{A26B4CE1-63F7-49F3-8A0A-F2840D95587C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_CUENTAValue : String; @@ -647,7 +659,7 @@ type { ICuentasEspecialesDelta } ICuentasEspecialesDelta = interface(ICuentasEspeciales) - ['{0E63EE73-6CE9-4F33-9DB7-B02B1190DA20}'] + ['{089CB669-7830-4908-9344-42AEC93D8320}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -705,7 +717,7 @@ type { IEpigrafesDelta } IEpigrafesDelta = interface(IEpigrafes) - ['{2EB3D408-B118-4BC5-AABE-FAC7393086AB}'] + ['{BFE5CD3F-52C2-400A-93A6-ACB723F7390E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_EPIGRAFEValue : String; @@ -799,7 +811,7 @@ type { IBalancesDelta } IBalancesDelta = interface(IBalances) - ['{964A4194-0DF5-4CA7-A922-DB219CC96B39}'] + ['{543250BB-1C2E-4448-AEA8-EDC23591A2ED}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_BALANCEValue : String; @@ -1098,35 +1110,66 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := Null; end; -function TDiarioBusinessProcessorRules.GetSUBCUENTAValue: String; +function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]; end; -function TDiarioBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean; +function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]); end; -function TDiarioBusinessProcessorRules.GetOldSUBCUENTAValue: String; +function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]; end; -function TDiarioBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean; +function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]); end; -procedure TDiarioBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String); +procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := aValue; end; -procedure TDiarioBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean); +procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null; +end; + +function TDiarioBusinessProcessorRules.GetID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]; +end; + +function TDiarioBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_EJERCICIO]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_EJERCICIO]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := Null; end; function TDiarioBusinessProcessorRules.GetCONCEPTOValue: String; @@ -1160,6 +1203,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO] := Null; end; +function TDiarioBusinessProcessorRules.GetDOCUMENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO]; +end; + +function TDiarioBusinessProcessorRules.GetDOCUMENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO]); +end; + +function TDiarioBusinessProcessorRules.GetOldDOCUMENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDOCUMENTO]; +end; + +function TDiarioBusinessProcessorRules.GetOldDOCUMENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDOCUMENTO]); +end; + +procedure TDiarioBusinessProcessorRules.SetDOCUMENTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetDOCUMENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO] := Null; +end; + function TDiarioBusinessProcessorRules.GetDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE]; @@ -1327,192 +1401,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := Null; end; -function TApuntesBusinessProcessorRules.GetCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]; -end; - -function TApuntesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]); -end; - -function TApuntesBusinessProcessorRules.GetOldCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]; -end; - -function TApuntesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]); -end; - -procedure TApuntesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := aValue; -end; - -procedure TApuntesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := Null; -end; - -function TApuntesBusinessProcessorRules.GetPUNTEADOValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]; -end; - -function TApuntesBusinessProcessorRules.GetPUNTEADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]); -end; - -function TApuntesBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]; -end; - -function TApuntesBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]); -end; - -procedure TApuntesBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := aValue; -end; - -procedure TApuntesBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := Null; -end; - -function TApuntesBusinessProcessorRules.GetDEBEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]; -end; - -function TApuntesBusinessProcessorRules.GetDEBEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]); -end; - -function TApuntesBusinessProcessorRules.GetOldDEBEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]; -end; - -function TApuntesBusinessProcessorRules.GetOldDEBEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]); -end; - -procedure TApuntesBusinessProcessorRules.SetDEBEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := aValue; -end; - -procedure TApuntesBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := Null; -end; - -function TApuntesBusinessProcessorRules.GetHABERValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]; -end; - -function TApuntesBusinessProcessorRules.GetHABERIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]); -end; - -function TApuntesBusinessProcessorRules.GetOldHABERValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]; -end; - -function TApuntesBusinessProcessorRules.GetOldHABERIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]); -end; - -procedure TApuntesBusinessProcessorRules.SetHABERValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := aValue; -end; - -procedure TApuntesBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := Null; -end; - -function TApuntesBusinessProcessorRules.GetID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_FACTURA]; -end; - -function TApuntesBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_FACTURA]); -end; - -function TApuntesBusinessProcessorRules.GetOldID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_FACTURA]; -end; - -function TApuntesBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_FACTURA]); -end; - -procedure TApuntesBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_FACTURA] := aValue; -end; - -procedure TApuntesBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_FACTURA] := Null; -end; - -function TApuntesBusinessProcessorRules.GetID_RECIBOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_RECIBO]; -end; - -function TApuntesBusinessProcessorRules.GetID_RECIBOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_RECIBO]); -end; - -function TApuntesBusinessProcessorRules.GetOldID_RECIBOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_RECIBO]; -end; - -function TApuntesBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_RECIBO]); -end; - -procedure TApuntesBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_RECIBO] := aValue; -end; - -procedure TApuntesBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_RECIBO] := Null; -end; - function TApuntesBusinessProcessorRules.GetID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA]; @@ -1606,6 +1494,161 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA] := Null; end; +function TApuntesBusinessProcessorRules.GetCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]; +end; + +function TApuntesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]); +end; + +function TApuntesBusinessProcessorRules.GetOldCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]; +end; + +function TApuntesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]); +end; + +procedure TApuntesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := Null; +end; + +function TApuntesBusinessProcessorRules.GetDOCUMENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO]; +end; + +function TApuntesBusinessProcessorRules.GetDOCUMENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO]); +end; + +function TApuntesBusinessProcessorRules.GetOldDOCUMENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDOCUMENTO]; +end; + +function TApuntesBusinessProcessorRules.GetOldDOCUMENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDOCUMENTO]); +end; + +procedure TApuntesBusinessProcessorRules.SetDOCUMENTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetDOCUMENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO] := Null; +end; + +function TApuntesBusinessProcessorRules.GetDEBEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]; +end; + +function TApuntesBusinessProcessorRules.GetDEBEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]); +end; + +function TApuntesBusinessProcessorRules.GetOldDEBEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]; +end; + +function TApuntesBusinessProcessorRules.GetOldDEBEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]); +end; + +procedure TApuntesBusinessProcessorRules.SetDEBEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := Null; +end; + +function TApuntesBusinessProcessorRules.GetHABERValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]; +end; + +function TApuntesBusinessProcessorRules.GetHABERIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]); +end; + +function TApuntesBusinessProcessorRules.GetOldHABERValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]; +end; + +function TApuntesBusinessProcessorRules.GetOldHABERIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]); +end; + +procedure TApuntesBusinessProcessorRules.SetHABERValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := Null; +end; + +function TApuntesBusinessProcessorRules.GetPUNTEADOValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]; +end; + +function TApuntesBusinessProcessorRules.GetPUNTEADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]); +end; + +function TApuntesBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]; +end; + +function TApuntesBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]); +end; + +procedure TApuntesBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := Null; +end; + { TAsientosBusinessProcessorRules } constructor TAsientosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contabilidad/Model/uBizApuntes.pas b/Source/Modulos/Contabilidad/Model/uBizApuntes.pas new file mode 100644 index 00000000..498e888a --- /dev/null +++ b/Source/Modulos/Contabilidad/Model/uBizApuntes.pas @@ -0,0 +1,54 @@ +unit uBizApuntes; + +interface + +uses + uDAInterfaces, uDADataTable, schContabilidadClient_Intf; + +const + BIZ_CLIENT_Apunte = 'Client.Apunte'; + +type + IBizApunte = interface(IApuntes) + ['{D26061DB-FFF4-456F-B442-A14A19501DD0}'] + function EsNuevo : Boolean; + end; + + TBizApunte = class(TApuntesDataTableRules, IBizApunte) + protected + procedure OnNewRecord(Sender: TDADataTable); override; + public + procedure IniciarValoresApunteNueva; + function EsNuevo : Boolean; + end; + +implementation + +{ TBizApunte } + +uses + SysUtils, uDataTableUtils, uFactuGES_App; + +function TBizApunte.EsNuevo: Boolean; +begin + Result := (ID < 0); +end; + +procedure TBizApunte.IniciarValoresApunteNueva; +begin +// ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; +end; + +procedure TBizApunte.OnNewRecord(Sender: TDADataTable); +begin + inherited; + IniciarValoresApunteNueva; +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_Apunte, TBizApunte); + +finalization + +end. + diff --git a/Source/Modulos/Contabilidad/Model/uBizAsientos.pas b/Source/Modulos/Contabilidad/Model/uBizAsientos.pas index 263dd1bb..2f78a233 100644 --- a/Source/Modulos/Contabilidad/Model/uBizAsientos.pas +++ b/Source/Modulos/Contabilidad/Model/uBizAsientos.pas @@ -3,7 +3,7 @@ unit uBizAsientos; interface uses - uDAInterfaces, uDADataTable, schContabilidadClient_Intf; + uDAInterfaces, uDADataTable, schContabilidadClient_Intf, uBizApuntes; const BIZ_CLIENT_Asiento = 'Client.Asiento'; @@ -11,15 +11,29 @@ const type IBizAsiento = interface(IAsientos) ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}'] + + function GetApuntes: IBizApunte; + procedure SetApuntes(Value: IBizApunte); + property Apuntes: IBizApunte read GetApuntes write SetApuntes; + function EsNuevo : Boolean; end; TBizAsiento = class(TAsientosDataTableRules, IBizAsiento) protected + FApuntes : IBizApunte; + FApuntesLink : TDADataSource; + function GetApuntes: IBizApunte; + procedure SetApuntes(Value: IBizApunte); procedure OnNewRecord(Sender: TDADataTable); override; + public + property Apuntes: IBizApunte read GetApuntes write SetApuntes; procedure IniciarValoresAsientoNueva; function EsNuevo : Boolean; + + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; end; implementation @@ -29,11 +43,31 @@ implementation uses SysUtils, uDataTableUtils, uFactuGES_App; +constructor TBizAsiento.Create(aDataTable: TDADataTable); +begin + inherited; + FApuntes := Nil; + FApuntesLink := TDADataSource.Create(NIL); + FApuntesLink.DataTable := aDataTable; +end; + +destructor TBizAsiento.Destroy; +begin + FApuntes := NIL; + FApuntesLink.Free; + inherited; +end; + function TBizAsiento.EsNuevo: Boolean; begin Result := (ID < 0); end; +function TBizAsiento.GetApuntes: IBizApunte; +begin + Result := FApuntes; +end; + procedure TBizAsiento.IniciarValoresAsientoNueva; begin // ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; @@ -45,6 +79,12 @@ begin IniciarValoresAsientoNueva; end; +procedure TBizAsiento.SetApuntes(Value: IBizApunte); +begin + FApuntes := Value; + EnlazarMaestroDetalle(FApuntesLink, FApuntes); +end; + initialization RegisterDataTableRules(BIZ_CLIENT_Asiento, TBizAsiento); diff --git a/Source/Modulos/Contabilidad/Model/uBizDiario.pas b/Source/Modulos/Contabilidad/Model/uBizDiario.pas new file mode 100644 index 00000000..ce349bd1 --- /dev/null +++ b/Source/Modulos/Contabilidad/Model/uBizDiario.pas @@ -0,0 +1,29 @@ +unit uBizDiario; + +interface + +uses + uDAInterfaces, uDADataTable, schContabilidadClient_Intf, uBizApuntes; + +const + BIZ_CLIENT_Diario = 'Client.Diario'; + +type + IBizDiario = interface(IDiario) + ['{E2924908-0B5A-43DD-B03E-672F592FA19B}'] + end; + + TBizDiario = class(TDiarioDataTableRules, IBizDiario) + end; + +implementation +{ TBizDiario } + + +initialization + RegisterDataTableRules(BIZ_CLIENT_Diario, TBizDiario); + +finalization + +end. + diff --git a/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas b/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas index f6577341..cbe111bc 100644 --- a/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas +++ b/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas @@ -3,7 +3,7 @@ unit uBizSubCuentas; interface uses - uDAInterfaces, uDADataTable, schContabilidadClient_Intf; + uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf; const BIZ_CLIENT_SubCuenta = 'Client.SubCuenta'; @@ -14,10 +14,16 @@ type function EsNuevo : Boolean; end; - TBizSubCuenta = class(TSubCuentasDataTableRules, IBizSubCuenta) + TBizSubCuenta = class(TSubCuentasDataTableRules, IBizSubCuenta, ISeleccionable) protected + FSeleccionableInterface: ISeleccionable; procedure OnNewRecord(Sender: TDADataTable); override; public + property SeleccionableInterface : ISeleccionable read FSeleccionableInterface + write FSeleccionableInterface implements ISeleccionable; + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + procedure IniciarValoresSubCuentaNueva; function EsNuevo : Boolean; end; @@ -29,6 +35,18 @@ implementation uses SysUtils, uDataTableUtils, uFactuGES_App; +constructor TBizSubCuenta.Create(aDataTable: TDADataTable); +begin + inherited; + FSeleccionableInterface := TSeleccionable.Create(aDataTable); +end; + +destructor TBizSubCuenta.Destroy; +begin + FSeleccionableInterface := NIL; + inherited; +end; + function TBizSubCuenta.EsNuevo: Boolean; begin Result := (ID < 0); diff --git a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas index fa261443..b03c37bd 100644 --- a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas +++ b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas @@ -52,7 +52,7 @@ uses uEpigrafesController, uBalancesController, uCuentasEspecialesController, uCuentasController, uSubCuentasController, uAsientosController, uBizEpigrafes, uBizBalances, uBizCuentasEspeciales, uBizCuentas, uBizSubCuentas, - uBizAsientos, + uBizAsientos, uBizDiario, uContabilidadViewRegister; function GetModule : TModuleController; @@ -66,11 +66,11 @@ exports procedure TPluginContabilidad.actAsientosExecute(Sender: TObject); var AAsientosController : IAsientosController; - AAsientos : IBizAsiento; + ADiario : IBizDiario; begin AAsientosController := TAsientosController.Create; - AAsientos := (AAsientosController.BuscarTodos as IBizAsiento); - AAsientosController.VerTodos(AAsientos); + ADiario := (AAsientosController.BuscarDiario as IBizDiario); + AAsientosController.VerDiario(ADiario); end; procedure TPluginContabilidad.actBalancesExecute(Sender: TObject); diff --git a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm index b5e57846..4e817f60 100644 --- a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm +++ b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm @@ -313,6 +313,14 @@ object srvContabilidad: TsrvContabilidad Name = 'Apuntes_SUBCUENTA' DataType = datString Size = 255 + end + item + Name = 'Epigrafes_ID_EMPRESA' + DataType = datInteger + end + item + Name = 'Cuentas_ID_EMPRESA' + DataType = datInteger end> Left = 150 Top = 24 @@ -354,13 +362,21 @@ object srvContabilidad: TsrvContabilidad TableField = 'ID_SUBCUENTA' end item - DatasetField = 'SUBCUENTA' - TableField = 'SUBCUENTA' + DatasetField = 'REF_SUBCUENTA' + TableField = 'REF_SUBCUENTA' + end + item + DatasetField = 'ID_EJERCICIO' + TableField = 'ID_EJERCICIO' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end + item + DatasetField = 'DOCUMENTO' + TableField = 'DOCUMENTO' + end item DatasetField = 'DEBE' TableField = 'DEBE' @@ -398,15 +414,24 @@ object srvContabilidad: TsrvContabilidad DataType = datInteger end item - Name = 'SUBCUENTA' + Name = 'REF_SUBCUENTA' DataType = datString Size = 15 end + item + Name = 'ID_EJERCICIO' + DataType = datInteger + end item Name = 'CONCEPTO' DataType = datString Size = 255 end + item + Name = 'DOCUMENTO' + DataType = datString + Size = 255 + end item Name = 'DEBE' DataType = datCurrency @@ -430,14 +455,13 @@ object srvContabilidad: TsrvContabilidad TargetTable = 'CONT_APUNTES' Name = 'IBX' SQL = - 'SELECT '#10' CONT_APUNTES.ID, CONT_APUNTES.ID_ASIENTO, CONT_APUNT' + - 'ES.CONCEPTO,'#10' CONT_APUNTES.PUNTEADO, CONT_APUNTES.DEBE, CONT_' + - 'APUNTES.HABER,'#10' CONT_APUNTES.ID_FACTURA, CONT_APUNTES.ID_RECI' + - 'BO,'#10' CONT_APUNTES.ID_SUBCUENTA, CONT_SUBCUENTAS.REF_SUBCUENTA' + - ' as REF_SUBCUENTA,'#10' CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA'#10 + - ' FROM'#10' CONT_APUNTES'#10' LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUB' + - 'CUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)'#10' WHERE {Where}'#10' ORDER ' + - 'BY CONT_APUNTES.ID'#10 + 'SELECT'#10' CONT_APUNTES.ID,'#10' CONT_APUNTES.ID_ASIENTO,'#10' CON' + + 'T_APUNTES.ID_SUBCUENTA,'#10' CONT_SUBCUENTAS.REF_SUBCUENTA,'#10' C' + + 'ONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,'#10' CONT_APUNTES.CONCEP' + + 'TO,'#10' CONT_APUNTES.DOCUMENTO,'#10' CONT_APUNTES.DEBE,'#10' CONT_' + + 'APUNTES.HABER,'#10' CONT_APUNTES.PUNTEADO'#10#10'FROM CONT_APUNTES'#10'LEFT' + + ' JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_S' + + 'UBCUENTA)'#10'WHERE {Where}'#10'ORDER BY CONT_APUNTES.ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -448,30 +472,6 @@ object srvContabilidad: TsrvContabilidad DatasetField = 'ID_ASIENTO' TableField = 'ID_ASIENTO' end - item - DatasetField = 'CONCEPTO' - TableField = 'CONCEPTO' - end - item - DatasetField = 'PUNTEADO' - TableField = 'PUNTEADO' - end - item - DatasetField = 'DEBE' - TableField = 'DEBE' - end - item - DatasetField = 'HABER' - TableField = 'HABER' - end - item - DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' - end - item - DatasetField = 'ID_RECIBO' - TableField = 'ID_RECIBO' - end item DatasetField = 'ID_SUBCUENTA' TableField = 'ID_SUBCUENTA' @@ -485,6 +485,26 @@ object srvContabilidad: TsrvContabilidad DatasetField = 'SUBCUENTA' TableField = '' SQLOrigin = 'SUBCUENTA' + end + item + DatasetField = 'CONCEPTO' + TableField = 'CONCEPTO' + end + item + DatasetField = 'DOCUMENTO' + TableField = 'DOCUMENTO' + end + item + DatasetField = 'DEBE' + TableField = 'DEBE' + end + item + DatasetField = 'HABER' + TableField = 'HABER' + end + item + DatasetField = 'PUNTEADO' + TableField = 'PUNTEADO' end> end> Name = 'Apuntes' @@ -501,37 +521,6 @@ object srvContabilidad: TsrvContabilidad DataType = datInteger DictionaryEntry = 'Apuntes_ID_ASIENTO' end - item - Name = 'CONCEPTO' - DataType = datString - Size = 255 - DictionaryEntry = 'Apuntes_CONCEPTO' - end - item - Name = 'PUNTEADO' - DataType = datSmallInt - DictionaryEntry = 'Apuntes_PUNTEADO' - end - item - Name = 'DEBE' - DataType = datCurrency - DictionaryEntry = 'Apuntes_DEBE' - end - item - Name = 'HABER' - DataType = datCurrency - DictionaryEntry = 'Apuntes_HABER' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DictionaryEntry = 'Apuntes_ID_FACTURA' - end - item - Name = 'ID_RECIBO' - DataType = datInteger - DictionaryEntry = 'Apuntes_ID_RECIBO' - end item Name = 'ID_SUBCUENTA' DataType = datInteger @@ -548,6 +537,32 @@ object srvContabilidad: TsrvContabilidad DataType = datString Size = 255 DictionaryEntry = 'Apuntes_SUBCUENTA' + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 255 + DictionaryEntry = 'Apuntes_CONCEPTO' + end + item + Name = 'DOCUMENTO' + DataType = datString + Size = 255 + end + item + Name = 'DEBE' + DataType = datCurrency + DictionaryEntry = 'Apuntes_DEBE' + end + item + Name = 'HABER' + DataType = datCurrency + DictionaryEntry = 'Apuntes_HABER' + end + item + Name = 'PUNTEADO' + DataType = datSmallInt + DictionaryEntry = 'Apuntes_PUNTEADO' end> end item @@ -753,7 +768,6 @@ object srvContabilidad: TsrvContabilidad Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_CUENTAS_ID' - ServerAutoRefresh = True DictionaryEntry = 'Cuentas_ID' InPrimaryKey = True end @@ -1355,18 +1369,100 @@ object srvContabilidad: TsrvContabilidad Params = < item Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_CONT_ASIENTOS_ID' + Value = '' + end + item + Name = 'FECHA_ASIENTO' + Value = '' + end + item + Name = 'ORDEN' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'CONT_ASIENTOS' + SQL = + 'INSERT'#10' INTO CONT_ASIENTOS'#10' (ID, FECHA_ASIENTO, ORDEN)'#10' VAL' + + 'UES'#10' (:ID, :FECHA_ASIENTO, :ORDEN)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_Asientos' + end + item + Params = < + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'CONT_ASIENTOS' + SQL = 'DELETE '#10' FROM'#10' CONT_ASIENTOS'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_Asientos' + end + item + Params = < + item + Name = 'FECHA_ASIENTO' + Value = '' + end + item + Name = 'ORDEN' + Value = '' + end + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'CONT_ASIENTOS' + SQL = + 'UPDATE CONT_ASIENTOS'#10' SET '#10' FECHA_ASIENTO = :FECHA_ASIENTO, ' + + #10' ORDEN = :ORDEN'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_Asientos' + end + item + Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_CONT_APUNTES_ID' Value = '' end item Name = 'ID_ASIENTO' Value = '' end + item + Name = 'ID_SUBCUENTA' + Value = '' + end item Name = 'CONCEPTO' Value = '' end item - Name = 'PUNTEADO' + Name = 'DOCUMENTO' Value = '' end item @@ -1378,15 +1474,7 @@ object srvContabilidad: TsrvContabilidad Value = '' end item - Name = 'ID_FACTURA' - Value = '' - end - item - Name = 'ID_RECIBO' - Value = '' - end - item - Name = 'ID_SUBCUENTA' + Name = 'PUNTEADO' Value = '' end> Statements = < @@ -1396,10 +1484,10 @@ object srvContabilidad: TsrvContabilidad Default = True TargetTable = 'CONT_APUNTES' SQL = - 'INSERT'#10' INTO CONT_APUNTES'#10' (ID, ID_ASIENTO, CONCEPTO, PUNTEA' + - 'DO, DEBE, HABER, ID_FACTURA,'#10' ID_RECIBO, ID_SUBCUENTA)'#10' VAL' + - 'UES'#10' (:ID, :ID_ASIENTO, :CONCEPTO, :PUNTEADO, :DEBE, :HABER, ' + - ':ID_FACTURA,'#10' :ID_RECIBO, :ID_SUBCUENTA)'#10 + 'INSERT'#10' INTO CONT_APUNTES'#10' (ID, ID_ASIENTO, ID_SUBCUENTA, CO' + + 'NCEPTO, DOCUMENTO, DEBE, HABER, PUNTEADO)'#10' VALUES'#10' (:ID, :ID' + + '_ASIENTO, :ID_SUBCUENTA, :CONCEPTO, :DOCUMENTO, :DEBE, :HABER, :' + + 'PUNTEADO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1426,11 +1514,11 @@ object srvContabilidad: TsrvContabilidad item Params = < item - Name = 'ID' + Name = 'ID_ASIENTO' Value = '' end item - Name = 'ID_ASIENTO' + Name = 'ID_SUBCUENTA' Value = '' end item @@ -1438,7 +1526,7 @@ object srvContabilidad: TsrvContabilidad Value = '' end item - Name = 'PUNTEADO' + Name = 'DOCUMENTO' Value = '' end item @@ -1450,15 +1538,7 @@ object srvContabilidad: TsrvContabilidad Value = '' end item - Name = 'ID_FACTURA' - Value = '' - end - item - Name = 'ID_RECIBO' - Value = '' - end - item - Name = 'ID_SUBCUENTA' + Name = 'PUNTEADO' Value = '' end item @@ -1472,11 +1552,10 @@ object srvContabilidad: TsrvContabilidad Default = True TargetTable = 'CONT_APUNTES' SQL = - 'UPDATE CONT_APUNTES'#10' SET '#10' ID = :ID,'#10' ID_ASIENTO = :ID_AS' + - 'IENTO, '#10' CONCEPTO = :CONCEPTO, '#10' PUNTEADO = :PUNTEADO, '#10' ' + - ' DEBE = :DEBE, '#10' HABER = :HABER, '#10' ID_FACTURA = :ID_FACTU' + - 'RA, '#10' ID_RECIBO = :ID_RECIBO, '#10' ID_SUBCUENTA = :ID_SUBCUEN' + - 'TA'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'UPDATE CONT_APUNTES'#10' SET '#10' ID_ASIENTO = :ID_ASIENTO, '#10' ID' + + '_SUBCUENTA = :ID_SUBCUENTA, '#10' CONCEPTO = :CONCEPTO,'#10' DOCUM' + + 'ENTO = :DOCUMENTO, '#10' DEBE = :DEBE, '#10' HABER = :HABER, '#10' ' + + 'PUNTEADO = :PUNTEADO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1578,12 +1657,23 @@ object srvContabilidad: TsrvContabilidad object bpApuntes: TDABusinessProcessor Schema = schContabilidad InsertCommandName = 'Insert_Apuntes' - DeleteCommandName = 'Insert_Apuntes' + DeleteCommandName = 'Delete_Apuntes' UpdateCommandName = 'Update_Apuntes' ReferencedDataset = 'Apuntes' - ProcessorOptions = [poPrepareCommands] + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 192 end + object bpAsientos: TDABusinessProcessor + Schema = schContabilidad + InsertCommandName = 'Insert_Asientos' + DeleteCommandName = 'Delete_Asientos' + UpdateCommandName = 'Update_Asientos' + ReferencedDataset = 'Asientos' + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 152 + Top = 192 + end end diff --git a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas index 06f97836..4ab62329 100644 --- a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas +++ b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas @@ -27,11 +27,11 @@ type bpCuentas: TDABusinessProcessor; bpSubCuentas: TDABusinessProcessor; bpApuntes: TDABusinessProcessor; + bpAsientos: TDABusinessProcessor; schContabilidad: TDASchema; DataDictionary: TDADataDictionary; procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); private protected end; diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk index 5d1bcd90..f19c2621 100644 --- a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk +++ b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk @@ -104,7 +104,12 @@ contains uViewCuentasEspeciales in 'uViewCuentasEspeciales.pas' {frViewCuentasEspeciales: TFrame}, uEditorElegirCuentasEspeciales in 'uEditorElegirCuentasEspeciales.pas' {fEditorElegirCuentasEspeciales: TfEditorEjercicios}, uEditorElegirCuentas in 'uEditorElegirCuentas.pas' {fEditorElegirCuentas: TfEditorEjercicios}, - uViewAsientos in 'uViewAsientos.pas' {frViewAsientos: TFrame}, - uEditorAsientos in 'uEditorAsientos.pas' {fEditorAsientos: TfEditorAsientos}; + uViewDiario in 'uViewDiario.pas' {frViewDiario: TFrame}, + uEditorDiario in 'uEditorDiario.pas' {fEditorDiario: TfEditorEjercicios}, + uViewApunte in 'uViewApunte.pas' {frViewApunte: TFrame}, + uViewApuntes in 'uViewApuntes.pas' {frViewApuntes: TFrame}, + uEditorAsiento in 'uEditorAsiento.pas' {fEditorAsiento: TfEditorEjercicios}, + uEditorApunte in 'uEditorApunte.pas' {fEditorApunte: TfEditorEjercicios}, + uEditorElegirSubCuentas in 'uEditorElegirSubCuentas.pas' {fEditorElegirSubCuentas: TfEditorEjercicios}; end. diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj index e079306b..24e5f211 100644 --- a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj +++ b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj @@ -98,7 +98,11 @@
frViewEpigrafes
TFrame - + +
fEditorApunte
+ TfEditorEjercicios + +
fEditorAsiento
TfEditorEjercicios @@ -126,6 +130,10 @@
fEditorCuentasEspeciales
TfEditorEjercicios + +
fEditorDiario
+ TfEditorEjercicios +
fEditorElegirBalances
TfEditorEjercicios @@ -142,6 +150,10 @@
fEditorElegirEpigrafes
TfEditorEjercicios + +
fEditorElegirSubCuentas
+ TfEditorEjercicios +
fEditorEpigrafe
TfEditorEjercicios @@ -158,8 +170,12 @@
fEditorSubCuentas
TfEditorEjercicios - -
frViewAsientos
+ +
frViewApunte
+ TFrame + + +
frViewApuntes
TFrame @@ -178,6 +194,10 @@
frViewCuentasEspeciales
TFrame + +
frViewDiario
+ TFrame +
frViewEpigrafe
TFrame diff --git a/Source/Modulos/Contabilidad/Views/uContabilidadViewRegister.pas b/Source/Modulos/Contabilidad/Views/uContabilidadViewRegister.pas index e9226971..b53403fe 100644 --- a/Source/Modulos/Contabilidad/Views/uContabilidadViewRegister.pas +++ b/Source/Modulos/Contabilidad/Views/uContabilidadViewRegister.pas @@ -12,9 +12,8 @@ uses uEditorCuentaEspecial, uEditorCuentasEspeciales, uEditorElegirCuentasEspeciales, uEditorEpigrafe, uEditorElegirEpigrafes, uEditorEpigrafes, uEditorCuenta, uEditorCuentas, uEditorElegirCuentas, - uEditorSubCuenta, uEditorSubCuentas, -// uEditorAsiento, - uEditorAsientos; + uEditorSubCuenta, uEditorSubCuentas, uEditorElegirSubCuentas, + uEditorAsiento, uEditorDiario, uEditorApunte; procedure RegisterViews; begin @@ -32,8 +31,10 @@ begin EditorRegistry.RegisterClass(TfEditorElegirCuentas, 'EditorElegirCuentas'); EditorRegistry.RegisterClass(TfEditorSubCuentas, 'EditorSubCuentas'); EditorRegistry.RegisterClass(TfEditorSubCuenta, 'EditorSubCuenta'); -// EditorRegistry.RegisterClass(TfEditorAsiento, 'EditorAsiento'); - EditorRegistry.RegisterClass(TfEditorAsientos, 'EditorAsientos'); + EditorRegistry.RegisterClass(TfEditorElegirSubCuentas, 'EditorElegirSubCuentas'); + EditorRegistry.RegisterClass(TfEditorAsiento, 'EditorAsiento'); + EditorRegistry.RegisterClass(TfEditorDiario, 'EditorDiario'); + EditorRegistry.RegisterClass(TfEditorApunte, 'EditorApunte'); end; procedure UnregisterViews; @@ -52,8 +53,10 @@ begin EditorRegistry.UnRegisterClass(TfEditorElegirCuentas); EditorRegistry.UnRegisterClass(TfEditorSubCuentas); EditorRegistry.UnRegisterClass(TfEditorSubCuenta); - EditorRegistry.UnRegisterClass(TfEditorAsientos); -// EditorRegistry.UnRegisterClass(TfEditorAsiento); + EditorRegistry.UnRegisterClass(TfEditorElegirSubCuentas); + EditorRegistry.UnRegisterClass(TfEditorDiario); + EditorRegistry.UnRegisterClass(TfEditorAsiento); + EditorRegistry.UnRegisterClass(TfEditorApunte); end; end. diff --git a/Source/Modulos/Contabilidad/Views/uEditorApunte.dfm b/Source/Modulos/Contabilidad/Views/uEditorApunte.dfm new file mode 100644 index 00000000..ada0e15a --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorApunte.dfm @@ -0,0 +1,144 @@ +inherited fEditorApunte: TfEditorApunte + Left = 374 + Top = 273 + HorzScrollBar.Visible = False + VertScrollBar.Visible = False + Caption = 'Ficha de apunte' + ClientWidth = 632 + Scaled = False + OnClose = CustomEditorClose + ExplicitWidth = 640 + ExplicitHeight = 488 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 632 + Caption = 'Apunte' + ExplicitWidth = 632 + inherited Image1: TImage + Left = 605 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB51930000020F4944415478DAE5D4DB2B04 + 511800F06FB659D7CD2D892816B984258992242129E5924BDEE49147FF81571E + 9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC3963C7EEEC65 + CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2FAD2709B5E + B8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FBAB986B9619 + D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3368FB0AE8E + 5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2DA0D150E4E0 + 402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0B13C701C87 + DBA58555282E2B045A4B83D691AE685040578C6339585DDC8082923C0CC9D13F + 83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB77D08593919 + 222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A74EE2D4814A + 18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F203129016FA11C + 9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE21818F0F56 + 88D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7C53196FD5D + 1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F186ADFDFDE + 1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA0D53044B0D + ADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048F8C2FC82A1 + 889083DF93D867F65E51168D0000000049454E44AE426082} + ExplicitLeft = 607 + end + end + inherited TBXDock: TTBXDock + Width = 632 + ExplicitWidth = 632 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 330 + inherited TBXItem2: TTBXItem + Visible = False + end + inherited TBXItem5: TTBXItem + Visible = False + end + inherited TBXItem23: TTBXItem + Visible = False + end + inherited TBXItem3: TTBXItem + Visible = False + end + end + inherited tbxMenu: TTBXToolbar + DockPos = 0 + ExplicitWidth = 632 + inherited TBXSubmenuItem4: TTBXSubmenuItem + inherited TBXItem8: TTBXItem + Visible = False + end + inherited TBXSeparatorItem5: TTBXSeparatorItem + Visible = False + end + inherited TBXItem10: TTBXItem + Visible = False + end + inherited TBXItem21: TTBXItem + Visible = False + end + inherited TBXItem22: TTBXItem + Visible = False + end + inherited TBXItem9: TTBXItem + Visible = False + end + end + inherited TBXSubmenuItem1: TTBXSubmenuItem + inherited TBXItem32: TTBXItem + Visible = False + end + inherited TBXItem31: TTBXItem + Visible = False + end + inherited TBXSeparatorItem13: TTBXSeparatorItem + Visible = False + end + end + end + end + inherited pgPaginas: TPageControl + Width = 632 + ExplicitWidth = 632 + inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 624 + ExplicitHeight = 338 + end + end + inherited StatusBar: TJvStatusBar + Width = 632 + Panels = < + item + Width = 200 + end> + ExplicitWidth = 632 + end + inherited EditorActionList: TActionList + Top = 128 + end + inherited SmallImages: TPngImageList + Top = 112 + end + inherited dsDataTable: TDADataSource [6] + Left = 168 + Top = 120 + end + inherited LargeImages: TPngImageList [7] + Top = 112 + end + inherited JvFormStorage: TJvFormStorage [8] + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 320 + Top = 248 + object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel + GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + GroupOptions.CaptionOptions.Font.Color = clWindowText + GroupOptions.CaptionOptions.Font.Height = -11 + GroupOptions.CaptionOptions.Font.Name = 'Tahoma' + GroupOptions.CaptionOptions.Font.Style = [fsBold] + GroupOptions.CaptionOptions.TextColor = clHighlight + GroupOptions.CaptionOptions.UseDefaultFont = False + end + end +end diff --git a/Source/Modulos/Contabilidad/Views/uEditorApunte.pas b/Source/Modulos/Contabilidad/Views/uEditorApunte.pas new file mode 100644 index 00000000..5d70215d --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorApunte.pas @@ -0,0 +1,211 @@ +unit uEditorApunte; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent, + uBizApuntes, JvNavigationPane, ActnList, + uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList, + TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, + uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, + TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, + JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, + + uViewApuntes, uIEditorApunte, uApuntesController, JvExComCtrls, + JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, uViewDetallesGenerico, + cxDropDownEdit, cxCalendar, cxDBEdit, dxLayoutControl, + cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit, cxControls, + uViewApunte; + +type + TfEditorApunte = class(TfEditorDBItem, IEditorApunte) + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; + procedure FormShow(Sender: TObject); + procedure dsDataTableDataChange(Sender: TObject; Field: TField); + procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); + protected + FController : IApuntesController; + FApunte: IBizApunte; + FViewApunte : IViewApunte; + + function GetController : IApuntesController; + procedure SetController (const Value : IApuntesController); virtual; + function GetApunte: IBizApunte; virtual; + procedure SetApunte(const Value: IBizApunte); virtual; + function GetViewApunte: IViewApunte; + procedure SetViewApunte(const Value: IViewApunte); + property ViewApunte: IViewApunte read GetViewApunte write SetViewApunte; + + procedure GuardarInterno; override; + procedure EliminarInterno; override; + + procedure PonerTitulos(const ATitulo: string = ''); override; + + //Si queremos crear otra vista para el editor heredado solo tendriamos que + //sobreescribir este metodo + procedure AsignarVista; virtual; + + public + property Apunte: IBizApunte read GetApunte write SetApunte; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + uCustomEditor, uDataModuleBase, uFactuGES_App; + +function ShowEditorApunte (ABizObject : TDADataTableRules): TModalResult; +var + AEditor: TfEditorApunte; +begin + AEditor := TfEditorApunte.Create(Application); + try + AEditor.Apunte := (ABizObject as IBizApunte); + Result := AEditor.ShowModal; + finally + AEditor.Release; + end; +end; + +{ +******************************* TfEditorApunte ******************************* +} +function TfEditorApunte.GetApunte: IBizApunte; +begin + Result := FApunte; +end; + +function TfEditorApunte.GetController: IApuntesController; +begin + Result := FController; +end; + +function TfEditorApunte.GetViewApunte: IViewApunte; +begin + Result := FViewApunte; +end; + +procedure TfEditorApunte.GuardarInterno; +begin + inherited; + FController.Guardar(FApunte); + Modified := False; +end; + +procedure TfEditorApunte.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + if Assigned(Apunte) then + begin + if Apunte.EsNuevo then + FTitulo := 'Nueva Apunte - ' + AppFactuGES.EjercicioActivo.NOMBRE + else + FTitulo := 'Apunte' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; // + ' - ' + Apunte.DESCRIPCION; + end; + + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorApunte.SetApunte(const Value: IBizApunte); +begin + FApunte := Value; + dsDataTable.DataTable := FApunte.DataTable; + + if Assigned(FViewApunte) and Assigned(Apunte) then + FViewApunte.Apunte := Apunte; +end; + +procedure TfEditorApunte.SetController(const Value: IApuntesController); +begin + FController := Value; +// if Assigned(ViewApunte) then +// ViewApunte.Controller := FController; +end; + +procedure TfEditorApunte.SetViewApunte(const Value: IViewApunte); +begin + FViewApunte := Value; + + if Assigned(FViewApunte) and Assigned(Apunte) then + FViewApunte.Apunte := Apunte; +end; + +procedure TfEditorApunte.FormShow(Sender: TObject); +begin + inherited; + +// if not Assigned(FViewApunte) then +// raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(Apunte) then + raise Exception.Create('No hay ningún almacén asignado'); + + Apunte.DataTable.Active := True; +end; + +destructor TfEditorApunte.Destroy; +begin + // Utilizar mejor OnClose; + inherited; +end; + +procedure TfEditorApunte.AsignarVista; +var + AViewApunte: TfrViewApunte; +begin + AViewApunte := TfrViewApunte.create(Self); + with AViewApunte do + begin + Parent := pagGeneral; + Align := alClient; +// dxLayoutControlApunte.LookAndFeel := dxLayoutOfficeLookAndFeel1; + end; + ViewApunte := AViewApunte; +end; + +constructor TfEditorApunte.Create(AOwner: TComponent); +begin + inherited; + FController := TApuntesController.Create; + pgPaginas.ActivePageIndex := 0; + AsignarVista; +end; + +procedure TfEditorApunte.CustomEditorClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + dsDataTable.DataTable := NIL; + FController := Nil; + FViewApunte := NIL; + FApunte := NIL; +end; + +procedure TfEditorApunte.dsDataTableDataChange(Sender: TObject; + Field: TField); +begin + inherited; + if Assigned(FApunte) and (not (FApunte.DataTable.Fetching) or + not (FApunte.DataTable.Opening) or not (FApunte.DataTable.Closing)) then + PonerTitulos; +end; + +procedure TfEditorApunte.EliminarInterno; +begin + if (Application.MessageBox('¿Desea borrar esta Apunte?', 'Atención', MB_YESNO) = IDYES) then + begin + inherited; + if not FController.Eliminar(FApunte) then + actRefrescar.Execute; + end; +end; + +end. + diff --git a/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm b/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm new file mode 100644 index 00000000..dfedd06c --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm @@ -0,0 +1,270 @@ +inherited fEditorAsiento: TfEditorAsiento + Left = 374 + Top = 273 + HorzScrollBar.Visible = False + VertScrollBar.Visible = False + Caption = 'Ficha de asiento' + ClientWidth = 632 + Scaled = False + OnClose = CustomEditorClose + ExplicitWidth = 640 + ExplicitHeight = 488 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 632 + Caption = 'Asiento' + ExplicitWidth = 632 + inherited Image1: TImage + Left = 605 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB51930000020F4944415478DAE5D4DB2B04 + 511800F06FB659D7CD2D892816B984258992242129E5924BDEE49147FF81571E + 9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC3963C7EEEC65 + CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2FAD2709B5E + B8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FBAB986B9619 + D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3368FB0AE8E + 5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2DA0D150E4E0 + 402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0B13C701C87 + DBA58555282E2B045A4B83D691AE685040578C6339585DDC8082923C0CC9D13F + 83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB77D08593919 + 222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A74EE2D4814A + 18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F203129016FA11C + 9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE21818F0F56 + 88D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7C53196FD5D + 1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F186ADFDFDE + 1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA0D53044B0D + ADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048F8C2FC82A1 + 889083DF93D867F65E51168D0000000049454E44AE426082} + ExplicitLeft = 607 + end + end + inherited TBXDock: TTBXDock + Width = 632 + ExplicitWidth = 632 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 330 + inherited TBXItem2: TTBXItem + Visible = False + end + inherited TBXItem5: TTBXItem + Visible = False + end + inherited TBXItem23: TTBXItem + Visible = False + end + inherited TBXItem3: TTBXItem + Visible = False + end + end + inherited tbxMenu: TTBXToolbar + DockPos = 0 + ExplicitWidth = 632 + inherited TBXSubmenuItem4: TTBXSubmenuItem + inherited TBXItem8: TTBXItem + Visible = False + end + inherited TBXSeparatorItem5: TTBXSeparatorItem + Visible = False + end + inherited TBXItem10: TTBXItem + Visible = False + end + inherited TBXItem21: TTBXItem + Visible = False + end + inherited TBXItem22: TTBXItem + Visible = False + end + inherited TBXItem9: TTBXItem + Visible = False + end + end + inherited TBXSubmenuItem1: TTBXSubmenuItem + inherited TBXItem32: TTBXItem + Visible = False + end + inherited TBXItem31: TTBXItem + Visible = False + end + inherited TBXSeparatorItem13: TTBXSeparatorItem + Visible = False + end + end + end + end + inherited pgPaginas: TPageControl + Width = 632 + ExplicitWidth = 632 + inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 624 + ExplicitHeight = 338 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 624 + Height = 338 + Align = alClient + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + DesignSize = ( + 624 + 338) + object edtOrden: TcxDBSpinEdit + Left = 49 + Top = 10 + AutoSize = False + DataBinding.DataField = 'ORDEN' + DataBinding.DataSource = dsDataTable + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = '0' + Properties.ImmediatePost = True + Properties.MaxValue = 100.000000000000000000 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [] + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + Style.ButtonStyle = bts3D + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Height = 21 + Width = 168 + end + object edtFecha: TcxDBDateEdit + Left = 361 + Top = 10 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_ASIENTO' + DataBinding.DataSource = dsDataTable + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 158 + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Orden:' + Control = edtOrden + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha:' + Control = edtFecha + ControlOptions.ShowBorder = False + end + end + end + end + object pagApuntes: TTabSheet + Caption = 'Apuntes' + ImageIndex = 1 + inline frViewApuntes1: TfrViewApuntes + Left = 0 + Top = 0 + Width = 624 + Height = 338 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 624 + ExplicitHeight = 338 + inherited cxGrid: TcxGrid + Width = 624 + Height = 313 + ExplicitWidth = 624 + ExplicitHeight = 313 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.FooterSummaryItems = < + item + Format = '0 ejercicios' + Kind = skCount + Column = frViewApuntes1.cxGridViewID_ASIENTO + end> + end + end + inherited ToolBar1: TToolBar + Width = 624 + ExplicitWidth = 624 + end + end + end + end + inherited StatusBar: TJvStatusBar + Width = 632 + Panels = < + item + Width = 200 + end> + ExplicitWidth = 632 + end + inherited EditorActionList: TActionList + Top = 128 + end + inherited SmallImages: TPngImageList + Top = 112 + end + inherited dsDataTable: TDADataSource [6] + Left = 16 + Top = 168 + end + inherited LargeImages: TPngImageList [7] + Top = 112 + end + inherited JvFormStorage: TJvFormStorage [8] + end + inherited StatusBarImages: TPngImageList + Left = 24 + Top = 208 + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 320 + Top = 248 + object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel + GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + GroupOptions.CaptionOptions.Font.Color = clWindowText + GroupOptions.CaptionOptions.Font.Height = -11 + GroupOptions.CaptionOptions.Font.Name = 'Tahoma' + GroupOptions.CaptionOptions.Font.Style = [fsBold] + GroupOptions.CaptionOptions.TextColor = clHighlight + GroupOptions.CaptionOptions.UseDefaultFont = False + end + end +end diff --git a/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas b/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas new file mode 100644 index 00000000..1610e93b --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas @@ -0,0 +1,232 @@ +unit uEditorAsiento; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent, + uBizAsientos, JvNavigationPane, ActnList, + uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList, + TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, + uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, + TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, + JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, + + uIEditorAsiento, uAsientosController, JvExComCtrls, + JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, uViewDetallesGenerico, + uViewApuntes, cxDropDownEdit, cxCalendar, cxDBEdit, dxLayoutControl, + cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit, cxControls, DBCtrls; + +type + TfEditorAsiento = class(TfEditorDBItem, IEditorAsiento) + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; + pagApuntes: TTabSheet; + frViewApuntes1: TfrViewApuntes; + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Item1: TdxLayoutItem; + edtOrden: TcxDBSpinEdit; + dxLayoutControl1Item2: TdxLayoutItem; + edtFecha: TcxDBDateEdit; + procedure FormShow(Sender: TObject); + procedure dsDataTableDataChange(Sender: TObject; Field: TField); + procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); + protected + FController : IAsientosController; + FAsiento: IBizAsiento; +// FViewAsiento : IViewAsiento; + + function GetController : IAsientosController; + procedure SetController (const Value : IAsientosController); virtual; + function GetAsiento: IBizAsiento; virtual; + procedure SetAsiento(const Value: IBizAsiento); virtual; +// function GetViewAsiento: IViewAsiento; +// procedure SetViewAsiento(const Value: IViewAsiento); +// property ViewAsiento: IViewAsiento read GetViewAsiento write SetViewAsiento; + + procedure GuardarInterno; override; + procedure EliminarInterno; override; + + procedure PonerTitulos(const ATitulo: string = ''); override; + + //Si queremos crear otra vista para el editor heredado solo tendriamos que + //sobreescribir este metodo +// procedure AsignarVista; virtual; + + public + property Asiento: IBizAsiento read GetAsiento write SetAsiento; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + uCustomEditor, uDataModuleBase, uFactuGES_App; + +function ShowEditorAsiento (ABizObject : TDADataTableRules): TModalResult; +var + AEditor: TfEditorAsiento; +begin + AEditor := TfEditorAsiento.Create(Application); + try + AEditor.Asiento := (ABizObject as IBizAsiento); + Result := AEditor.ShowModal; + finally + AEditor.Release; + end; +end; + +{ +******************************* TfEditorAsiento ******************************* +} +function TfEditorAsiento.GetAsiento: IBizAsiento; +begin + Result := FAsiento; +end; + +function TfEditorAsiento.GetController: IAsientosController; +begin + Result := FController; +end; + +{ +function TfEditorAsiento.GetViewAsiento: IViewAsiento; +begin + Result := FViewAsiento; +end; +} + +procedure TfEditorAsiento.GuardarInterno; +begin + inherited; + FController.Guardar(FAsiento); + Modified := False; +end; + +procedure TfEditorAsiento.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + if Assigned(Asiento) then + begin + if Asiento.EsNuevo then + FTitulo := 'Nueva Asiento - ' + AppFactuGES.EjercicioActivo.NOMBRE + else + FTitulo := 'Asiento' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; // + ' - ' + Asiento.DESCRIPCION; + end; + + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorAsiento.SetAsiento(const Value: IBizAsiento); +begin + FAsiento := Value; + + if Assigned(FAsiento) then + begin + dsDataTable.DataTable := FAsiento.DataTable; + frViewApuntes1.Apuntes := FAsiento.Apuntes + end + else + begin + dsDataTable.DataTable := Nil; + frViewApuntes1.Apuntes := Nil; + end; + +// if Assigned(FViewAsiento) and Assigned(Asiento) then +// FViewAsiento.Asiento := Asiento; +end; + +procedure TfEditorAsiento.SetController(const Value: IAsientosController); +begin + FController := Value; +// if Assigned(ViewAsiento) then +// ViewAsiento.Controller := FController; +end; + +{ +procedure TfEditorAsiento.SetViewAsiento(const Value: IViewAsiento); +begin + FViewAsiento := Value; + + if Assigned(FViewAsiento) and Assigned(Asiento) then + FViewAsiento.Asiento := Asiento; +end; +} + +procedure TfEditorAsiento.FormShow(Sender: TObject); +begin + inherited; + +// if not Assigned(FViewAsiento) then +// raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(Asiento) then + raise Exception.Create('No hay ningún almacén asignado'); + + Asiento.DataTable.Active := True; +end; + +destructor TfEditorAsiento.Destroy; +begin + // Utilizar mejor OnClose; + inherited; +end; + +{ +procedure TfEditorAsiento.AsignarVista; +var + AViewAsiento: TfrViewAsiento; +begin + AViewAsiento := TfrViewAsiento.create(Self); + with AViewAsiento do + begin + Parent := pagGeneral; + Align := alClient; +// dxLayoutControlAsiento.LookAndFeel := dxLayoutOfficeLookAndFeel1; + end; + ViewAsiento := AViewAsiento; +end; +} + +constructor TfEditorAsiento.Create(AOwner: TComponent); +begin + inherited; + pgPaginas.ActivePageIndex := 0; +// AsignarVista; +end; + +procedure TfEditorAsiento.CustomEditorClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + dsDataTable.DataTable := NIL; +// FViewAsiento := NIL; + FAsiento := NIL; +end; + +procedure TfEditorAsiento.dsDataTableDataChange(Sender: TObject; Field: TField); +begin + inherited; +{ + if Assigned(FAsiento) and (not (FAsiento.DataTable.Fetching) or + not (FAsiento.DataTable.Opening) or not (FAsiento.DataTable.Closing)) then + PonerTitulos; +} +end; + +procedure TfEditorAsiento.EliminarInterno; +begin + if (Application.MessageBox('¿Desea borrar esta Asiento?', 'Atención', MB_YESNO) = IDYES) then + begin + inherited; + if not FController.Eliminar(FAsiento) then + actRefrescar.Execute; + end; +end; + +end. + diff --git a/Source/Modulos/Contabilidad/Views/uEditorAsientos.pas b/Source/Modulos/Contabilidad/Views/uEditorAsientos.pas deleted file mode 100644 index 88b4f6a02014a5531eab6adb5ed4cf38f7ce186a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4327 zcmbtX-EP}96z+9^yu-N|U_0|1td|Lj!H%84LGyz+?Y66ek!XjTOllP6BrWdnUdO>?0A1~e@|&A?Oa5X z7kMVL{XL=|m5$9r)~5@ZWnv-mG<(Y4IF;b(t*}aHho_T7WVq3%Gb_@274eqQ&Kf>; zYV0!WGul{*#4NB?$sdVK_UYD`1akPw^2Axba=w~8HUQ@Qb!KLO5mg zwa|db-zxdwt-*4n-Z!gZgM?h@tpqBVpYE2~L+{z;TXZPlz zJChnA!-cE6Uu5KZ#mUsFm2ib>M5o^JBbqiTTp^w|?jXGPN1NRW&p3d~xY9P)5tj*_ zN#}2D18>xwH3z$q(V0V;C%J50DpiLs0`x|YFK9`!@U0Xv`gQU{BC)yfXvQorh;OW6CCn<<<<+IUU@dB(X7tdm(yCb2x5oTvo&wYP2>wK5Y$_KCse)y3#$0=%H|sHIzl|4iow z)E@THjpkivOr4FKnnj~8l!>#ZQ0k{v_BNGNYCqr25jAn3Hfb78P`!aqAjbF40DVR- zwI+u(gFRA{t?a|b@Mb?W-3twR&_=!crWB%iX^eF_eO>w_;8KsfqcGN|hdTX+HLtbe z*jN+h7c=~cNJVV${zEIV3Z()ta8cugffwJZXCizvFvymI^IEZ6F$!XuN|Nd<8s?3h zBhN854JMB=%3aB@r5ir-{PGNstPg3m!wa+K)P>-#u1VUMItj?``S=yFz2HsV&qBGdnk|yG8nK#A(DzW>>XULTIk^+hChl0zQqY0 z)8IcN+*m5KOj*sUlxsj1-*JWngJu$)H5O%ns#YDw)H|?=Y0$P2)33zIhbRi>xQ%Mq sG1%4dT6dpsv|KIiucz;Md@3RN5WdP inherited cxGridViewID_ASIENTO: TcxGridDBColumn IsCaptionAssigned = True @@ -81,52 +84,49 @@ inherited fEditorAsientos: TfEditorAsientos end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 543 + ExplicitWidth = 543 inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 543 inherited dxLayoutControl1: TdxLayoutControl Width = 543 - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end + ExplicitWidth = 543 inherited edtFechaFinFiltro: TcxDateEdit Left = 337 ExplicitLeft = 337 - ExplicitWidth = 121 - Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 543 + ExplicitWidth = 543 inherited tbxBotones: TTBXToolbar Width = 533 + ExplicitWidth = 533 end end end end inherited pnlAgrupaciones: TTBXDockablePanel Top = 297 - ExplicitWidth = 554 + ExplicitTop = 297 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 543 + ExplicitWidth = 543 inherited TBXToolbar1: TTBXToolbar Width = 533 + ExplicitWidth = 533 end end end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 39426.815642349540000000 + ReportDocument.CreationDate = 39428.774937233790000000 BuiltInReportLink = True end end inherited cxViewGridPopupMenu: TcxGridPopupMenu PopupMenus = < item - GridView = frViewAsientos1.cxGridView + GridView = frViewDiario1.cxGridView HitTypes = [gvhtCell] Index = 0 end> diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas new file mode 100644 index 00000000..97c6faf4 --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas @@ -0,0 +1,156 @@ +unit uEditorDiario; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent, + JvNavigationPane, uViewDiario, uBizAsientos, ActnList, DBActns, uViewGrid, + Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX, + TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable, + JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage, + JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, + uViewBarraSeleccion, pngimage, uIEditorDiario, uEditorGridBase, + JvComponentBase, uViewGridBase, uAsientosController, JvExComCtrls, + JvStatusBar, uDAInterfaces, uViewEpigrafes, uBizDiario; + +type + TfEditorDiario = class(TfEditorGridBase, IEditorDiario) + frViewDiario1: TfrViewDiario; + procedure FormShow(Sender: TObject); + private + FDiario: IBizDiario; + FController : IAsientosController; + protected + function GetDiario: IBizDiario; + procedure SetDiario(const Value: IBizDiario); + function GetController : IAsientosController; virtual; + procedure SetController (const Value : IAsientosController); virtual; + + procedure NuevoInterno; override; + procedure EliminarInterno; override; + procedure ModificarInterno; override; + procedure DuplicarInterno; override; + + public + procedure PonerTitulos(const ATitulo: string = ''); override; + property Diario: IBizDiario read GetDiario write SetDiario; + property Controller : IAsientosController read GetController write SetController; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +uses + uCustomEditor, uDataModuleUsuarios, +// uEditorEpigrafe, + uEditorDBBase, uFactuGES_App, + cxGrid, cxGridCustomTableView; //, uListaAsientos; + +{$R *.dfm} + +{ +****************************** TfEditorAsientos ******************************* +} +procedure TfEditorDiario.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(ViewGrid) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(Diario) then + raise Exception.Create('No hay ningún Diario asignado'); + + Diario.DataTable.Active := True; + ViewGrid.GotoFirst; +end; + +function TfEditorDiario.GetDiario: IBizDiario; +begin + Result := FDiario; +end; + +function TfEditorDiario.GetController: IAsientosController; +begin + Result := FController; +end; + +procedure TfEditorDiario.ModificarInterno; +begin + inherited; + FController.Ver(FController.Buscar(Diario.ID_ASIENTO)); +end; + +procedure TfEditorDiario.NuevoInterno; +begin + inherited; + FController.Ver(FController.Anadir); +end; + +procedure TfEditorDiario.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + FTitulo := 'Lista de Asientos - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorDiario.SetDiario(const Value: IBizDiario); +begin + FDiario := Value; + dsDataTable.DataTable := FDiario.DataTable; + if Assigned(ViewGrid) then + (ViewGrid as IViewDiario).Diario := Diario; +end; + +procedure TfEditorDiario.SetController(const Value: IAsientosController); +begin + FController := Value; +end; + +destructor TfEditorDiario.Destroy; +begin + FDiario := NIL; + inherited; +end; + +procedure TfEditorDiario.DuplicarInterno; +var + AEpigrafe : IBizAsiento; +begin +AppFactuGES.ShowCapado; +{ + inherited; + AEpigrafe := FController.Duplicar(Asientos); + try + FController.Ver(AEpigrafe); + finally + actRefrescar.Execute; + end; +} +end; + +procedure TfEditorDiario.EliminarInterno; +begin + +{ + if (Application.MessageBox('¿Desea borrar este almacén?', 'Atención', MB_YESNO) = IDYES) then + begin + inherited; + //Para que en el caso de no poderse realizar la operación se refresquen + //los datos y no nos permita eliminar un registro a la segunda + if not FController.Eliminar(Asientos) then + actRefrescar.Execute; + end; +} +end; + +constructor TfEditorDiario.Create(AOwner: TComponent); +begin + inherited; + ViewGrid := frViewDiario1; //CreateView(TfrViewAsientos) as IViewAsientos; +end; + +end. diff --git a/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm b/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm new file mode 100644 index 00000000..fe30d873 --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm @@ -0,0 +1,256 @@ +inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas + Caption = 'Seleccionar pedido de cliente' + ClientWidth = 656 + ExplicitWidth = 664 + PixelsPerInch = 96 + TextHeight = 13 + object JvgWizardHeader1: TJvgWizardHeader [0] + Left = 0 + Top = 27 + Width = 656 + Height = 60 + CaptionFont.Charset = DEFAULT_CHARSET + CaptionFont.Color = clWindowText + CaptionFont.Height = -11 + CaptionFont.Name = 'Tahoma' + CaptionFont.Style = [fsBold] + CommentFont.Charset = DEFAULT_CHARSET + CommentFont.Color = clWindowText + CommentFont.Height = -11 + CommentFont.Name = 'Tahoma' + CommentFont.Style = [] + SymbolFont.Charset = DEFAULT_CHARSET + SymbolFont.Color = clHighlightText + SymbolFont.Height = -35 + SymbolFont.Name = 'Wingdings' + SymbolFont.Style = [fsBold] + Captions.Strings = ( + 'Seleccione el pedido de proveedor') + Comments.Strings = ( + ' ') + Gradient.FromColor = clHighlight + Gradient.ToColor = clWindow + Gradient.Active = False + Gradient.Orientation = fgdVertical + BufferedDraw = False + ExplicitTop = 16 + end + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 656 + Caption = 'Lista de pedidos de proveedor' + Visible = False + ExplicitWidth = 656 + inherited Image1: TImage + Left = 629 + ExplicitLeft = 629 + end + end + inherited TBXDock: TTBXDock + Top = 87 + Width = 656 + ExplicitTop = 87 + ExplicitWidth = 656 + inherited tbxMain: TTBXToolbar + Align = alRight + ExplicitWidth = 126 + inherited TBXItem2: TTBXItem + Visible = False + end + inherited TBXItem5: TTBXItem + Visible = False + end + inherited TBXItem4: TTBXItem + Visible = False + end + inherited TBXItem6: TTBXItem + Visible = False + end + inherited TBXItem36: TTBXItem + Action = actAnchoAuto2 + end + end + inherited tbxFiltro: TTBXToolbar + Left = 126 + Top = 23 + DockPos = 115 + DockRow = 1 + ExplicitLeft = 126 + ExplicitTop = 23 + inherited TBXItem34: TTBXItem + Action = actQuitarFiltro2 + end + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 656 + end + end + inherited StatusBar: TJvStatusBar + Width = 656 + Visible = False + ExplicitWidth = 656 + end + inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] + Left = 0 + Top = 376 + Width = 656 + Height = 49 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + ReadOnly = False + ExplicitTop = 376 + ExplicitWidth = 656 + inherited JvFooter1: TJvFooter + Width = 656 + ExplicitWidth = 656 + inherited bSeleccionar: TJvFooterBtn + Left = 444 + ExplicitLeft = 444 + end + inherited bCancelar: TJvFooterBtn + Left = 548 + ExplicitLeft = 548 + end + end + inherited BarraSeleccionActionList: TActionList + inherited actSeleccionar: TAction + OnExecute = frViewBarraSeleccion1actSeleccionarExecute + OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate + end + inherited actCancelar: TAction + OnExecute = frViewBarraSeleccion1actCancelarExecute + end + end + end + inherited frViewSubCuentas1: TfrViewSubCuentas [5] + Top = 162 + Width = 656 + Height = 214 + ExplicitTop = 162 + ExplicitWidth = 656 + ExplicitHeight = 214 + inherited cxGrid: TcxGrid + Width = 656 + Height = 86 + ExplicitWidth = 656 + ExplicitHeight = 86 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Format = '0 pedidos' + Kind = skCount + end> + inherited cxGridViewID: TcxGridDBColumn + IsCaptionAssigned = True + end + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 656 + ExplicitWidth = 656 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 656 + inherited dxLayoutControl1: TdxLayoutControl + Width = 656 + ExplicitWidth = 656 + inherited edtFechaFinFiltro: TcxDateEdit + Left = 294 + ExplicitLeft = 294 + ExplicitWidth = 421 + Width = 421 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 656 + ExplicitWidth = 656 + inherited tbxBotones: TTBXToolbar + Width = 646 + ExplicitWidth = 646 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 188 + ExplicitTop = 188 + ExplicitWidth = 656 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 656 + ExplicitWidth = 656 + inherited TBXToolbar1: TTBXToolbar + Width = 646 + ExplicitWidth = 646 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + BuiltInReportLink = True + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewSubCuentas1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + end + inherited EditorActionList: TActionList [8] + Left = 112 + Top = 192 + inherited actDuplicar: TAction + Visible = False + end + end + inherited dsDataTable: TDADataSource + Left = 8 + Top = 192 + end + inherited JvFormStorage: TJvFormStorage [12] + end + inherited GridPopupMenu: TPopupMenu + Left = 80 + Top = 192 + end + object EditorSeleccionActionList: TActionList + Images = SmallImages + Left = 152 + Top = 192 + object actBuscar2: TAction + Category = 'Buscar' + Caption = 'Buscar' + ImageIndex = 10 + ShortCut = 114 + end + object actQuitarFiltro2: TAction + Category = 'Buscar' + Caption = 'Quitar filtro y ver todo' + ImageIndex = 19 + OnExecute = actQuitarFiltro2Execute + end + object actAnchoAuto2: TAction + Category = 'Ver' + Caption = 'Ancho autom'#225'tico' + ImageIndex = 21 + OnExecute = actAnchoAuto2Execute + end + end +end diff --git a/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.pas b/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.pas new file mode 100644 index 00000000..ca871fa7 --- /dev/null +++ b/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.pas @@ -0,0 +1,126 @@ +unit uEditorElegirSubCuentas; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage, + JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, + ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, + ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, + pngimage, ExtCtrls, JvExControls, JvComponent, + JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, + uBizSubCuentas, uIEditorElegirSubCuentas, + JvExComCtrls, JvStatusBar, uEditorSubCuentas, uViewSubCuentas, + JSDialog, uDAInterfaces; + +type + TfEditorElegirSubCuentas = class(TfEditorSubCuentas, IEditorElegirSubCuentas) + frViewBarraSeleccion1: TfrViewBarraSeleccion; + JvgWizardHeader1: TJvgWizardHeader; + EditorSeleccionActionList: TActionList; + actBuscar2: TAction; + actQuitarFiltro2: TAction; + actAnchoAuto2: TAction; + procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject); + procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject); + procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure actAnchoAuto2Execute(Sender: TObject); + procedure actQuitarFiltro2Execute(Sender: TObject); + protected + procedure SetMultiSelect (AValue : Boolean); + function GetMultiSelect : Boolean; + function GetSubCuentasSeleccionados: IBizSubCuenta; + procedure SetViewGrid(const Value: IViewGridBase); override; + procedure SetMensaje (const AValue: String); + function GetMensaje: String; + public + property Mensaje : String read GetMensaje write SetMensaje; + property SubCuentasSeleccionados: IBizSubCuenta read GetSubCuentasSeleccionados; + property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; + end; + +implementation + +uses + uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils, + uGridUtils, uEditorBase, uSubCuentasController; + +{$R *.dfm} + +{ TfEditorElegirSubCuentas } + +procedure TfEditorElegirSubCuentas.actAnchoAuto2Execute(Sender: TObject); +begin + inherited; + actAnchoAuto.Execute; +end; + +procedure TfEditorElegirSubCuentas.actQuitarFiltro2Execute(Sender: TObject); +begin + inherited; + actQuitarFiltro.Execute; +end; + +procedure TfEditorElegirSubCuentas.FormShow(Sender: TObject); +begin + inherited; + EditorActionList.State := asSuspended; +end; + +procedure TfEditorElegirSubCuentas.frViewBarraSeleccion1actCancelarExecute( + Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfEditorElegirSubCuentas.frViewBarraSeleccion1actSeleccionarExecute( + Sender: TObject); +begin + inherited; + ModalResult := mrOk; +end; + +procedure TfEditorElegirSubCuentas.frViewBarraSeleccion1actSeleccionarUpdate( + Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0) +end; + +function TfEditorElegirSubCuentas.GetSubCuentasSeleccionados: IBizSubCuenta; +begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (SubCuentas as ISeleccionable).SelectedRecords); + // En SelectedRecords tengo los ID de las filas seleccionadas del grid + Result := (Controller as ISubCuentasController).ExtraerSeleccionados(SubCuentas) as IBizSubCuenta; +end; + +function TfEditorElegirSubCuentas.GetMensaje: String; +begin + Result := JvgWizardHeader1.Comments.Text; +end; + +function TfEditorElegirSubCuentas.GetMultiSelect: Boolean; +begin + Result := ViewGrid.MultiSelect; +end; + +procedure TfEditorElegirSubCuentas.SetMensaje(const AValue: String); +begin + JvgWizardHeader1.Comments.Text := AValue; +end; + +procedure TfEditorElegirSubCuentas.SetMultiSelect(AValue: Boolean); +begin + ViewGrid.MultiSelect := AValue; +end; + +procedure TfEditorElegirSubCuentas.SetViewGrid(const Value: IViewGridBase); +begin + inherited; + ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute; +end; + +end. diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas b/Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas index fb488c93..25c5fc95 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas +++ b/Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas @@ -55,7 +55,7 @@ implementation {$R *.dfm} uses - uCustomEditor, uDataModuleBase; + uCustomEditor, uDataModuleBase, uFactuGES_App; function ShowEditorEpigrafe (ABizObject : TDADataTableRules): TModalResult; var @@ -102,9 +102,9 @@ begin if Assigned(Epigrafe) then begin if Epigrafe.EsNuevo then - FTitulo := 'Nuevo epígrafe' + FTitulo := 'Nuevo epígrafe - ' + AppFactuGES.EjercicioActivo.NOMBRE else - FTitulo := 'Epígrafe' + ' - ' + Epigrafe.DESCRIPCION; + FTitulo := 'Epígrafe' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' - ' + Epigrafe.DESCRIPCION; end; inherited PonerTitulos(FTitulo); diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm index efdf279f..156a8806 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm +++ b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm @@ -2,7 +2,6 @@ inherited fEditorEpigrafes: TfEditorEpigrafes Left = 489 Top = 325 Caption = 'Lista de epigrafes' - ExplicitWidth = 320 ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 @@ -91,9 +90,19 @@ inherited fEditorEpigrafes: TfEditorEpigrafes inherited dxLayoutControl1: TdxLayoutControl Width = 543 ExplicitWidth = 543 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit Left = 337 ExplicitLeft = 337 + ExplicitWidth = 121 + Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -109,7 +118,7 @@ inherited fEditorEpigrafes: TfEditorEpigrafes inherited pnlAgrupaciones: TTBXDockablePanel Top = 297 ExplicitTop = 297 - ExplicitWidth = 128 + ExplicitWidth = 543 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 543 ExplicitWidth = 543 diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas index f54e854da7ec788de68c8e6ddf453c61ab4992ea..15f5ba525ad0a2b1ccfc82ec96ee25ed932d2a5c 100644 GIT binary patch delta 60 zcmbQLbU