diff --git a/Source/ApplicationBase/Ejercicios/Model/uBizEjercicios.pas b/Source/ApplicationBase/Ejercicios/Model/uBizEjercicios.pas index adb0599f..2e3a40d8 100644 --- a/Source/ApplicationBase/Ejercicios/Model/uBizEjercicios.pas +++ b/Source/ApplicationBase/Ejercicios/Model/uBizEjercicios.pas @@ -7,6 +7,8 @@ uses const BIZ_CLIENT_Ejercicio = 'Client.Ejercicio'; + CTE_ABIERTO = 'ABIERTO'; + CTE_CERRADO = 'CERRADO'; type IBizEjercicio = interface(IEjercicios) @@ -27,7 +29,7 @@ implementation { TBizEjercicio } uses - SysUtils, uDataTableUtils, uFactuGES_App; + SysUtils, uDataTableUtils, uDateUtils, uFactuGES_App; function TBizEjercicio.EsNuevo: Boolean; begin @@ -38,6 +40,10 @@ procedure TBizEjercicio.IniciarValoresEjercicioNueva; begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ACTIVO := 1; + ESTADO := CTE_ABIERTO; + NOMBRE := 'Ejercicio ...'; + FECHA_INICIO := DarInicioAno(date); + FECHA_FIN := DarFinAno(date); end; procedure TBizEjercicio.OnNewRecord(Sender: TDADataTable); diff --git a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas index b8548c63..e3accec4 100644 --- a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas +++ b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.pas @@ -128,9 +128,9 @@ begin if Assigned(Ejercicio) then begin if Ejercicio.EsNuevo then - FTitulo := 'Nuevo almacén' + FTitulo := 'Nuevo ejercicio' else - FTitulo := 'Almacén' + ' - ' + Ejercicio.NOMBRE; + FTitulo := 'Ejercicio' + ' - ' + Ejercicio.NOMBRE; end; inherited PonerTitulos(FTitulo); @@ -218,7 +218,7 @@ end; procedure TfEditorEjercicio.EliminarInterno; begin - if (Application.MessageBox('¿Desea borrar este Ejercicio?', 'Atención', MB_YESNO) = IDYES) then + if (Application.MessageBox('¿Desea borrar este Ejercicio?, se borrará todo el PGC asociado', 'Atención', MB_YESNO) = IDYES) then begin inherited; if not FController.Eliminar(FEjercicio) then diff --git a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.dfm b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.dfm index af137869..f53e1660 100644 --- a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.dfm +++ b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.dfm @@ -62,11 +62,14 @@ inherited fEditorEjercicios: TfEditorEjercicios ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitLeft = -11 - ExplicitTop = -150 + ExplicitTop = 102 + ExplicitWidth = 543 + ExplicitHeight = 323 inherited cxGrid: TcxGrid Width = 543 Height = 195 + ExplicitWidth = 543 + ExplicitHeight = 195 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -81,9 +84,12 @@ inherited fEditorEjercicios: TfEditorEjercicios end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 543 + ExplicitWidth = 543 inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 543 inherited dxLayoutControl1: TdxLayoutControl Width = 543 + ExplicitWidth = 543 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 273 Width = 273 @@ -101,18 +107,24 @@ inherited fEditorEjercicios: TfEditorEjercicios end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 543 + ExplicitWidth = 543 inherited tbxBotones: TTBXToolbar Width = 533 + ExplicitWidth = 533 end end end end inherited pnlAgrupaciones: TTBXDockablePanel Top = 297 + ExplicitTop = 297 + ExplicitWidth = 543 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 543 + ExplicitWidth = 543 inherited TBXToolbar1: TTBXToolbar Width = 533 + ExplicitWidth = 533 end end end @@ -1490,7 +1502,7 @@ inherited fEditorEjercicios: TfEditorEjercicios end inherited dsDataTable: TDADataSource [9] end - inherited StatusBarImages: TPngImageList + inherited StatusBarImages: TPngImageList [10] Top = 232 end end diff --git a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.pas b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.pas index 338dffe1..5005e8ba 100644 Binary files a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.pas and b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicios.pas differ diff --git a/Source/ApplicationBase/Ejercicios/Views/uViewEjercicio.dfm b/Source/ApplicationBase/Ejercicios/Views/uViewEjercicio.dfm index 02671d73..dc46ebc4 100644 --- a/Source/ApplicationBase/Ejercicios/Views/uViewEjercicio.dfm +++ b/Source/ApplicationBase/Ejercicios/Views/uViewEjercicio.dfm @@ -98,7 +98,7 @@ inherited frViewEjercicio: TfrViewEjercicio object cxDBCheckBox2: TcxDBCheckBox Left = 22 Top = 28 - Caption = 'Ejercicio activo' + Caption = 'Activo' DataBinding.DataField = 'ACTIVO' DataBinding.DataSource = DADataSource Properties.Alignment = taRightJustify diff --git a/Source/ApplicationBase/Ejercicios/Views/uViewEjercicios.dfm b/Source/ApplicationBase/Ejercicios/Views/uViewEjercicios.dfm index a84c2e12..7b6e98d7 100644 --- a/Source/ApplicationBase/Ejercicios/Views/uViewEjercicios.dfm +++ b/Source/ApplicationBase/Ejercicios/Views/uViewEjercicios.dfm @@ -11,6 +11,7 @@ inherited frViewEjercicios: TfrViewEjercicios OptionsBehavior.PullFocusing = True object cxGridViewID: TcxGridDBColumn DataBinding.FieldName = 'ID' + Visible = False OnCustomDrawCell = cxGridViewIDCustomDrawCell BestFitMaxWidth = 22 MinWidth = 22 @@ -19,6 +20,7 @@ inherited frViewEjercicios: TfrViewEjercicios IsCaptionAssigned = True end object cxGridViewACTIVO: TcxGridDBColumn + Caption = 'Activo' DataBinding.FieldName = 'ACTIVO' PropertiesClassName = 'TcxImageComboBoxProperties' Properties.Items = < diff --git a/Source/Base/Utiles/uDateUtils.pas b/Source/Base/Utiles/uDateUtils.pas index ac53f0a0..76b2be64 100644 --- a/Source/Base/Utiles/uDateUtils.pas +++ b/Source/Base/Utiles/uDateUtils.pas @@ -8,12 +8,30 @@ uses function DarFechaPrimerDia(Date: TDateTime): TDateTime; function DarFechaUltimoDia(Date: TDateTime): TDateTime; function EsFechaVacia(AFecha : TDateTime): Boolean; +function DarInicioAno(AFecha: TDateTime): TDateTime; +function DarFinAno(AFecha: TDateTime): TDateTime; implementation const FECHA_NULA = -700000; +function DarInicioAno(AFecha: TDateTime): TDateTime; +var + Year, Month, Day: Word; +begin + DecodeDate(Date, Year, Month, Day); + Result := EncodeDate(Year, 1, 1); +end; + +function DarFinAno(AFecha: TDateTime): TDateTime; +var + Year, Month, Day: Word; +begin + DecodeDate(Date, Year, Month, Day); + Result := EncodeDate(Year, 12, 31); +end; + function EsFechaVacia(AFecha : TDateTime): Boolean; begin Result := (AFecha = FECHA_NULA) or (AFecha = 0); diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res and b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res differ diff --git a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas index 786c136a..2f74ecfd 100644 --- a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas +++ b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas @@ -13,7 +13,7 @@ type function Buscar(const ID: Integer): IBizAsiento; procedure VerDiario(ADiario: IBizDiario); procedure Ver(AAsiento: IBizAsiento); - function Anadir: IBizAsiento; + function Anadir(NumOrden:Integer): IBizAsiento; function Eliminar(AAsiento : IBizAsiento): Boolean; function Guardar(AAsiento : IBizAsiento): Boolean; procedure DescartarCambios(AAsiento : IBizAsiento); @@ -37,7 +37,7 @@ type function Eliminar(AAsiento : IBizAsiento): Boolean; function Guardar(AAsiento : IBizAsiento): Boolean; virtual; procedure DescartarCambios(AAsiento : IBizAsiento); virtual; - function Anadir: IBizAsiento; + function Anadir(NumOrden:Integer): IBizAsiento; function BuscarDiario: IBizDiario; function Buscar(const ID: Integer): IBizAsiento; procedure VerDiario(ADiario: IBizDiario); @@ -54,13 +54,14 @@ uses { TAsientosController } -function TAsientosController.Anadir: IBizAsiento; +function TAsientosController.Anadir(NumOrden:Integer): IBizAsiento; var AAsiento : IBizAsiento; begin AAsiento := FDataModule.GetAsientoItem(ID_NULO); AAsiento.DataTable.Active := True; AAsiento.Insert; + AAsiento.ORDEN := NumOrden; Result := AAsiento; end; diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index 74e443c2..d57e5f00 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas @@ -10,6 +10,9 @@ uses const // (REF_CUENTA = 430 SOLO CUENTAS DE CLIENTES) // (REF_CUENTA = 400 SOLO CUENTAS DE PROVEEDORES) + // (REF_CUENTA = 570 SOLO CUENTAS DE CLIENTES) + // (REF_CUENTA = 400 SOLO CUENTAS DE PROVEEDORES) + CTE_CUENTASCLIENTE = '430'; CTE_CUENTASPROVEEDOR = '400'; @@ -21,6 +24,7 @@ type procedure VerTodos(ASubCuentas: IBizSubCuenta); procedure Ver(ASubCuenta: IBizSubCuenta); procedure Anadir(ASubCuenta : IBizSubCuenta); + function Nuevo : IBizSubCuenta; function Eliminar(ASubCuenta : IBizSubCuenta): Boolean; function Guardar(ASubCuenta : IBizSubCuenta): Boolean; procedure DescartarCambios(ASubCuenta : IBizSubCuenta); @@ -33,12 +37,14 @@ type procedure ElegirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String); procedure VerSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); - procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); + procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String); + procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); end; TSubCuentasController = class(TObservador, ISubCuentasController) private function BuscarCuentas(TipoCuenta: String): IBizSubCuenta; + procedure AsignarSubCuentaAContacto(ASubCuenta: IBizSubCuenta; ASubCuentaContacto: IBizSubCuentasContacto); protected FDataModule : IDataModuleContabilidad; @@ -58,6 +64,7 @@ type function Guardar(ASubCuenta : IBizSubCuenta): Boolean; virtual; procedure DescartarCambios(ASubCuenta : IBizSubCuenta); virtual; procedure Anadir(ASubCuenta : IBizSubCuenta); + function Nuevo : IBizSubCuenta; function BuscarTodos: IBizSubCuenta; function Buscar(ID: Integer): IBizSubCuenta; procedure VerTodos(ASubCuentas: IBizSubCuenta); @@ -71,7 +78,8 @@ type procedure ElegirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String); procedure VerSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); - procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); + procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String); + procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); end; implementation @@ -90,9 +98,13 @@ begin ASubCuenta.Insert; end; -procedure TSubCuentasController.AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); +procedure TSubCuentasController.AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String); +var + ASubCuenta: IBizSubCuenta; begin -// + ASubCuenta := Nuevo; + Ver(ASubCuenta); + AsignarSubCuentaAContacto(ASubCuenta, ASubCuentaContacto); end; procedure TSubCuentasController.AsignarDataModule; @@ -100,6 +112,20 @@ begin FDataModule := TDataModuleContabilidad.Create(Nil); end; +procedure TSubCuentasController.AsignarSubCuentaAContacto(ASubCuenta: IBizSubCuenta; ASubCuentaContacto: IBizSubCuentasContacto); +begin + if Assigned(ASubCuenta) then + begin + EliminarSubCuentaContacto(ASubCuentaContacto); + + ASubCuentaContacto.Insert; + ASubCuentaContacto.ID := ASubCuenta.ID; + ASubCuentaContacto.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA; + ASubCuentaContacto.DESCRIPCION := ASubCuenta.DESCRIPCION; + ASubCuentaContacto.post; + end; +end; + function TSubCuentasController.Buscar(ID: Integer): IBizSubCuenta; var Condicion: TDAWhereExpression; @@ -352,20 +378,12 @@ var ASubCuenta: IBizSubCuenta; begin ASubCuenta := BuscarCuentas(TipoCuenta); - ASubCuenta := ElegirSubCuenta(ASubCuenta, 'sddsdsdsfsdf', False); + if (TipoCuenta = CTE_CUENTASCLIENTE) then + ASubCuenta := ElegirSubCuenta(ASubCuenta, 'El cliente debe tener una subcuenta asociada', False) + else + ASubCuenta := ElegirSubCuenta(ASubCuenta, 'El proveedor debe tener una subcuenta asociada', False); - if Assigned(ASubCuenta) then - begin - if Assigned(ASubCuentaContacto) - and (ASubCuentaContacto.DataTable.RecordCount > 0) then - ASubCuentaContacto.DataTable.Delete; - - ASubCuentaContacto.Insert; - ASubCuentaContacto.ID := ASubCuenta.ID; - ASubCuentaContacto.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA; - ASubCuentaContacto.DESCRIPCION := ASubCuenta.DESCRIPCION; - ASubCuentaContacto.post; - end; + AsignarSubCuentaAContacto(ASubCuenta, ASubCuentaContacto); end; function TSubCuentasController.Eliminar(ASubCuenta: IBizSubCuenta): Boolean; @@ -389,6 +407,13 @@ begin end; end; +procedure TSubCuentasController.EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto); +begin + if Assigned(ASubCuentaContacto) + and (not ASubCuentaContacto.DataTable.IsEmpty) then + ASubCuentaContacto.DataTable.Delete; +end; + function TSubCuentasController.ExtraerSeleccionados(ASubCuentas: IBizSubCuenta): IBizSubCuenta; var ASeleccionados : IBizSubCuenta; @@ -458,4 +483,15 @@ begin end; end; +function TSubCuentasController.Nuevo: IBizSubCuenta; +var + ASubCuenta : IBizSubCuenta; +begin + ASubCuenta := FDataModule.NewSubCuentaItem; + FiltrarEjercicio(ASubCuenta); + ASubCuenta.DataTable.Active := True; + ASubCuenta.Insert; + Result := ASubCuenta; +end; + end. diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm index 001cfd07..4b01cf31 100644 --- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm +++ b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm @@ -537,6 +537,14 @@ inherited DataModuleContabilidad: TDataModuleContabilidad Name = 'ID_ASIENTO' DataType = datInteger end + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'ID_PAGO' + DataType = datInteger + end item Name = 'ORDEN_ASIENTO' DataType = datInteger diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas index b47493d7..6a95a4c7 100644 --- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas +++ b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas @@ -41,6 +41,8 @@ type function GetEpigrafeItems: IBizEpigrafe; function GetCuentaItems: IBizCuenta; function GetSubCuentaItems: IBizSubCuenta; + function GetSubCuentaItem(const ID: Integer): IBizSubCuenta; + function NewSubCuentaItem : IBizSubCuenta; function GetDiarioItems: IBizDiario; function GetAsientoItem(const ID : Integer): IBizAsiento; function GetCuentaEspecialItems: IBizCuentaEspecial; @@ -167,6 +169,36 @@ begin end; end; +function TDataModuleContabilidad.GetSubCuentaItem(const ID: Integer): IBizSubCuenta; +var + ASubCuenta : TDAMemDataTable; + Condicion: TDAWhereExpression; + +begin + ShowHourglassCursor; + try + ASubCuenta := CloneDataTable(tbl_SubCuentas); + ASubCuenta.BusinessRulesID := BIZ_CLIENT_SUBCUENTA; + + //Filtramos por el ID del asiento + with ASubCuenta.DynamicWhere do + begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_SubCuentasID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + Result := (ASubCuenta as IBizSubCuenta); + finally + HideHourglassCursor; + end; + +end; + function TDataModuleContabilidad.GetSubCuentaItems: IBizSubCuenta; var AContabilidadSubCuenta : TDAMemDataTable; @@ -181,6 +213,11 @@ begin end; end; +function TDataModuleContabilidad.NewSubCuentaItem: IBizSubCuenta; +begin + Result := GetSubCuentaItem(ID_NULO) +end; + function TDataModuleContabilidad._GetApuntes: IBizApunte; var AApuntes : TDAMemDataTable; diff --git a/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas b/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas index d0672064..65417e11 100644 --- a/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas +++ b/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas @@ -14,6 +14,8 @@ type function GetBalanceItems: IBizBalance; function GetCuentaItems: IBizCuenta; function GetSubCuentaItems: IBizSubCuenta; + function GetSubCuentaItem(const ID: Integer): IBizSubCuenta; + function NewSubCuentaItem : IBizSubCuenta; function GetDiarioItems: IBizDiario; function GetAsientoItem(const ID : Integer): IBizAsiento; end; diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas index 3b2d0a18..3175bde2 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas @@ -3,20 +3,20 @@ unit schContabilidadClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; 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 = '{D82D3AB7-DF24-495E-8364-FE35C84A5B98}'; - RID_Apuntes = '{DB1540B8-60CF-41C1-9583-9DB8B436C90C}'; - RID_Asientos = '{25DD3D96-A3B1-4D2E-906D-5426063FC28B}'; - RID_SubCuentas = '{84DF18AF-8F7D-4059-A27D-498675555921}'; - RID_Cuentas = '{B4E99ED2-DEB9-4329-BAEB-7D68DEABB3BF}'; - RID_CuentasEspeciales = '{EAE10E2C-BA4C-4EBD-A88B-1E7D7315A189}'; - RID_Epigrafes = '{404E197C-5984-49EC-AE04-64D0E212112B}'; - RID_Balances = '{425C6D97-157D-4372-9312-FB797BDEADDF}'; + RID_Diario = '{0787046F-120C-4A01-8A04-584EE4380231}'; + RID_Apuntes = '{1E9E82E8-BF6A-4D59-94D2-FCFE941ECC5A}'; + RID_Asientos = '{FF4D35EE-F484-4318-BF3D-541AC6FF6E1D}'; + RID_SubCuentas = '{58254752-2847-4AF2-8324-A1420A0A5587}'; + RID_Cuentas = '{24DC0F53-D8EE-4961-B48B-410B729E42A8}'; + RID_CuentasEspeciales = '{01080B38-4450-490F-8598-413CF0101622}'; + RID_Epigrafes = '{A59D6410-3CDA-432F-BE68-4DD6874B49A4}'; + RID_Balances = '{514D2B6D-C0EA-4888-9961-1B334BC21C7B}'; { Data table names } nme_Diario = 'Diario'; @@ -31,6 +31,8 @@ const { Diario fields } fld_DiarioID_APUNTE = 'ID_APUNTE'; fld_DiarioID_ASIENTO = 'ID_ASIENTO'; + fld_DiarioID_FACTURA = 'ID_FACTURA'; + fld_DiarioID_PAGO = 'ID_PAGO'; fld_DiarioORDEN_ASIENTO = 'ORDEN_ASIENTO'; fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA'; @@ -45,16 +47,18 @@ const { Diario field indexes } idx_DiarioID_APUNTE = 0; idx_DiarioID_ASIENTO = 1; - idx_DiarioORDEN_ASIENTO = 2; - idx_DiarioFECHA_ASIENTO = 3; - idx_DiarioID_SUBCUENTA = 4; - idx_DiarioREF_SUBCUENTA = 5; - idx_DiarioID_EJERCICIO = 6; - idx_DiarioCONCEPTO = 7; - idx_DiarioDOCUMENTO = 8; - idx_DiarioDEBE = 9; - idx_DiarioHABER = 10; - idx_DiarioPUNTEADO = 11; + idx_DiarioID_FACTURA = 2; + idx_DiarioID_PAGO = 3; + idx_DiarioORDEN_ASIENTO = 4; + idx_DiarioFECHA_ASIENTO = 5; + idx_DiarioID_SUBCUENTA = 6; + idx_DiarioREF_SUBCUENTA = 7; + idx_DiarioID_EJERCICIO = 8; + idx_DiarioCONCEPTO = 9; + idx_DiarioDOCUMENTO = 10; + idx_DiarioDEBE = 11; + idx_DiarioHABER = 12; + idx_DiarioPUNTEADO = 13; { Apuntes fields } fld_ApuntesID = 'ID'; @@ -197,7 +201,7 @@ const type { IDiario } IDiario = interface(IDAStronglyTypedDataTable) - ['{44E078C5-01C0-49EA-BC54-7D59EC624B99}'] + ['{34F50D3B-CCFF-43ED-93B0-93F76A7E84FB}'] { Property getters and setters } function GetID_APUNTEValue: Integer; procedure SetID_APUNTEValue(const aValue: Integer); @@ -207,6 +211,14 @@ type procedure SetID_ASIENTOValue(const aValue: Integer); function GetID_ASIENTOIsNull: Boolean; procedure SetID_ASIENTOIsNull(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_PAGOValue: Integer; + procedure SetID_PAGOValue(const aValue: Integer); + function GetID_PAGOIsNull: Boolean; + procedure SetID_PAGOIsNull(const aValue: Boolean); function GetORDEN_ASIENTOValue: Integer; procedure SetORDEN_ASIENTOValue(const aValue: Integer); function GetORDEN_ASIENTOIsNull: Boolean; @@ -254,6 +266,10 @@ type property ID_APUNTEIsNull: Boolean read GetID_APUNTEIsNull write SetID_APUNTEIsNull; property ID_ASIENTO: Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; property ID_ASIENTOIsNull: Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue; + property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ORDEN_ASIENTO: Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; @@ -277,7 +293,7 @@ type end; { TDiarioDataTableRules } - TDiarioDataTableRules = class(TDADataTableRules, IDiario) + TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) private protected { Property getters and setters } @@ -289,6 +305,14 @@ type procedure SetID_ASIENTOValue(const aValue: Integer); virtual; function GetID_ASIENTOIsNull: Boolean; virtual; procedure SetID_ASIENTOIsNull(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_PAGOValue: Integer; virtual; + procedure SetID_PAGOValue(const aValue: Integer); virtual; + function GetID_PAGOIsNull: Boolean; virtual; + procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; function GetORDEN_ASIENTOValue: Integer; virtual; procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual; function GetORDEN_ASIENTOIsNull: Boolean; virtual; @@ -335,6 +359,10 @@ type property ID_APUNTEIsNull: Boolean read GetID_APUNTEIsNull write SetID_APUNTEIsNull; property ID_ASIENTO: Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; property ID_ASIENTOIsNull: Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue; + property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ORDEN_ASIENTO: Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; @@ -364,7 +392,7 @@ type { IApuntes } IApuntes = interface(IDAStronglyTypedDataTable) - ['{FA7E84FE-CFF8-43E4-8BCC-658C8AD5ED92}'] + ['{39419296-F36C-4B17-A285-6AE774DE20EA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -438,7 +466,7 @@ type end; { TApuntesDataTableRules } - TApuntesDataTableRules = class(TDADataTableRules, IApuntes) + TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) private protected { Property getters and setters } @@ -519,7 +547,7 @@ type { IAsientos } IAsientos = interface(IDAStronglyTypedDataTable) - ['{4EDC82EE-6AB5-419D-8A46-4EA93B9FCE62}'] + ['{29F8B64F-FFAF-4EC3-8E00-619240FAD65E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -557,7 +585,7 @@ type end; { TAsientosDataTableRules } - TAsientosDataTableRules = class(TDADataTableRules, IAsientos) + TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) private protected { Property getters and setters } @@ -602,7 +630,7 @@ type { ISubCuentas } ISubCuentas = interface(IDAStronglyTypedDataTable) - ['{2DF97A58-3A87-493F-BE0E-3B3A9AD434D1}'] + ['{69CA1EDA-1F20-4C22-BB2F-CF83E6E20FC9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -676,7 +704,7 @@ type end; { TSubCuentasDataTableRules } - TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas) + TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) private protected { Property getters and setters } @@ -757,7 +785,7 @@ type { ICuentas } ICuentas = interface(IDAStronglyTypedDataTable) - ['{224540E1-2427-45A3-8AE8-098EF584CC48}'] + ['{30AD049D-68C8-42E3-ABCD-A9A23B39E1D4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -825,7 +853,7 @@ type end; { TCuentasDataTableRules } - TCuentasDataTableRules = class(TDADataTableRules, ICuentas) + TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) private protected { Property getters and setters } @@ -900,7 +928,7 @@ type { ICuentasEspeciales } ICuentasEspeciales = interface(IDAStronglyTypedDataTable) - ['{6C618900-0005-4D0E-BCBD-D16CC6943D4D}'] + ['{9073F07B-053C-4FFA-BF6F-1A60A3278740}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -926,7 +954,7 @@ type end; { TCuentasEspecialesDataTableRules } - TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales) + TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) private protected { Property getters and setters } @@ -959,7 +987,7 @@ type { IEpigrafes } IEpigrafes = interface(IDAStronglyTypedDataTable) - ['{8D2F3AA1-A5A0-4BD2-AE75-02A77E561AC0}'] + ['{22C174EC-EF8A-4673-9D7B-9B837DDFFC73}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1003,7 +1031,7 @@ type end; { TEpigrafesDataTableRules } - TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes) + TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) private protected { Property getters and setters } @@ -1054,7 +1082,7 @@ type { IBalances } IBalances = interface(IDAStronglyTypedDataTable) - ['{1710F763-139F-4B4C-9AB8-565C7608CDC5}'] + ['{6B889291-1E5D-4F50-90F4-0B0DBDB40031}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1116,7 +1144,7 @@ type end; { TBalancesDataTableRules } - TBalancesDataTableRules = class(TDADataTableRules, IBalances) + TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) private protected { Property getters and setters } @@ -1240,6 +1268,48 @@ begin DataTable.Fields[idx_DiarioID_ASIENTO].AsVariant := Null; end; +function TDiarioDataTableRules.GetID_FACTURAValue: Integer; +begin + result := DataTable.Fields[idx_DiarioID_FACTURA].AsInteger; +end; + +procedure TDiarioDataTableRules.SetID_FACTURAValue(const aValue: Integer); +begin + DataTable.Fields[idx_DiarioID_FACTURA].AsInteger := aValue; +end; + +function TDiarioDataTableRules.GetID_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_DiarioID_FACTURA].IsNull; +end; + +procedure TDiarioDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DiarioID_FACTURA].AsVariant := Null; +end; + +function TDiarioDataTableRules.GetID_PAGOValue: Integer; +begin + result := DataTable.Fields[idx_DiarioID_PAGO].AsInteger; +end; + +procedure TDiarioDataTableRules.SetID_PAGOValue(const aValue: Integer); +begin + DataTable.Fields[idx_DiarioID_PAGO].AsInteger := aValue; +end; + +function TDiarioDataTableRules.GetID_PAGOIsNull: boolean; +begin + result := DataTable.Fields[idx_DiarioID_PAGO].IsNull; +end; + +procedure TDiarioDataTableRules.SetID_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DiarioID_PAGO].AsVariant := Null; +end; + function TDiarioDataTableRules.GetORDEN_ASIENTOValue: Integer; begin result := DataTable.Fields[idx_DiarioORDEN_ASIENTO].AsInteger; diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas index 083c35be..3f7fea88 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas @@ -9,22 +9,24 @@ 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 = '{A2BD28BD-6104-4050-A980-42D308B729CC}'; - RID_ApuntesDelta = '{77CF8AFF-894E-4CCC-B12B-694EB64A63B5}'; - RID_AsientosDelta = '{FBC0DED1-4573-4276-A430-60AD20D7CA81}'; - RID_SubCuentasDelta = '{E8522236-BC04-4A7A-8268-C4BB4CF8C186}'; - RID_CuentasDelta = '{02901439-401B-4A39-BC7F-9AA5D0AA3BB1}'; - RID_CuentasEspecialesDelta = '{60CA3AD9-10E2-4A89-B84E-413E469CA851}'; - RID_EpigrafesDelta = '{32161D74-2F7A-4BD5-8B4B-C2D8BB0B8B4B}'; - RID_BalancesDelta = '{430B2E47-5249-4A6F-9FE2-5307953BEB95}'; + RID_DiarioDelta = '{489AF8EC-B8CA-4327-8D7D-1E69C3F5D2CF}'; + RID_ApuntesDelta = '{63516B07-1307-4ED4-A78D-6A706E53F262}'; + RID_AsientosDelta = '{4091C97B-82C3-4C9E-AFF7-1A647A9A8F9F}'; + RID_SubCuentasDelta = '{627EB32A-BD56-4A63-B354-D1E03FAFB7A9}'; + RID_CuentasDelta = '{7C6308C3-D09C-49BB-8FCD-D557B421747D}'; + RID_CuentasEspecialesDelta = '{18300F58-6909-4C4A-9755-52B39262CC58}'; + RID_EpigrafesDelta = '{61340163-241D-4DF6-9CE2-807E5CD1A2E7}'; + RID_BalancesDelta = '{BB5830B6-4776-4278-B840-4D6453A709CA}'; type { IDiarioDelta } IDiarioDelta = interface(IDiario) - ['{A2BD28BD-6104-4050-A980-42D308B729CC}'] + ['{489AF8EC-B8CA-4327-8D7D-1E69C3F5D2CF}'] { Property getters and setters } function GetOldID_APUNTEValue : Integer; function GetOldID_ASIENTOValue : Integer; + function GetOldID_FACTURAValue : Integer; + function GetOldID_PAGOValue : Integer; function GetOldORDEN_ASIENTOValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; function GetOldID_SUBCUENTAValue : Integer; @@ -39,6 +41,8 @@ type { Properties } property OldID_APUNTE : Integer read GetOldID_APUNTEValue; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; @@ -68,6 +72,18 @@ type function GetOldID_ASIENTOIsNull: Boolean; virtual; procedure SetID_ASIENTOValue(const aValue: Integer); virtual; procedure SetID_ASIENTOIsNull(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_PAGOValue: Integer; virtual; + function GetID_PAGOIsNull: Boolean; virtual; + function GetOldID_PAGOValue: Integer; virtual; + function GetOldID_PAGOIsNull: Boolean; virtual; + procedure SetID_PAGOValue(const aValue: Integer); virtual; + procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; function GetORDEN_ASIENTOValue: Integer; virtual; function GetORDEN_ASIENTOIsNull: Boolean; virtual; function GetOldORDEN_ASIENTOValue: Integer; virtual; @@ -138,6 +154,14 @@ 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 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_PAGO : Integer read GetID_PAGOValue write SetID_PAGOValue; + property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; + property OldID_PAGO : Integer read GetOldID_PAGOValue; + property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull; property ORDEN_ASIENTO : Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; @@ -187,7 +211,7 @@ type { IApuntesDelta } IApuntesDelta = interface(IApuntes) - ['{77CF8AFF-894E-4CCC-B12B-694EB64A63B5}'] + ['{63516B07-1307-4ED4-A78D-6A706E53F262}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ASIENTOValue : Integer; @@ -341,7 +365,7 @@ type { IAsientosDelta } IAsientosDelta = interface(IAsientos) - ['{FBC0DED1-4573-4276-A430-60AD20D7CA81}'] + ['{4091C97B-82C3-4C9E-AFF7-1A647A9A8F9F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; @@ -423,7 +447,7 @@ type { ISubCuentasDelta } ISubCuentasDelta = interface(ISubCuentas) - ['{E8522236-BC04-4A7A-8268-C4BB4CF8C186}'] + ['{627EB32A-BD56-4A63-B354-D1E03FAFB7A9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -577,7 +601,7 @@ type { ICuentasDelta } ICuentasDelta = interface(ICuentas) - ['{02901439-401B-4A39-BC7F-9AA5D0AA3BB1}'] + ['{7C6308C3-D09C-49BB-8FCD-D557B421747D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_CUENTAValue : String; @@ -719,7 +743,7 @@ type { ICuentasEspecialesDelta } ICuentasEspecialesDelta = interface(ICuentasEspeciales) - ['{60CA3AD9-10E2-4A89-B84E-413E469CA851}'] + ['{18300F58-6909-4C4A-9755-52B39262CC58}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -777,7 +801,7 @@ type { IEpigrafesDelta } IEpigrafesDelta = interface(IEpigrafes) - ['{32161D74-2F7A-4BD5-8B4B-C2D8BB0B8B4B}'] + ['{61340163-241D-4DF6-9CE2-807E5CD1A2E7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_EPIGRAFEValue : String; @@ -871,7 +895,7 @@ type { IBalancesDelta } IBalancesDelta = interface(IBalances) - ['{430B2E47-5249-4A6F-9FE2-5307953BEB95}'] + ['{BB5830B6-4776-4278-B840-4D6453A709CA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_BALANCEValue : String; @@ -1077,6 +1101,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := Null; end; +function TDiarioBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]; +end; + +function TDiarioBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := Null; +end; + +function TDiarioBusinessProcessorRules.GetID_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]; +end; + +function TDiarioBusinessProcessorRules.GetID_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_PAGOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null; +end; + function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]; diff --git a/Source/Modulos/Contabilidad/Model/uBizAsientos.pas b/Source/Modulos/Contabilidad/Model/uBizAsientos.pas index 2f78a233..4eb71706 100644 --- a/Source/Modulos/Contabilidad/Model/uBizAsientos.pas +++ b/Source/Modulos/Contabilidad/Model/uBizAsientos.pas @@ -70,7 +70,7 @@ end; procedure TBizAsiento.IniciarValoresAsientoNueva; begin -// ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; + FECHA_ASIENTO := Date; end; procedure TBizAsiento.OnNewRecord(Sender: TDADataTable); diff --git a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm index 97f9aa4d..52c91dca 100644 --- a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm +++ b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm @@ -357,6 +357,10 @@ object srvContabilidad: TsrvContabilidad DatasetField = 'ID_ASIENTO' TableField = 'ID_ASIENTO' end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end item DatasetField = 'ORDEN_ASIENTO' TableField = 'ORDEN_ASIENTO' @@ -396,6 +400,10 @@ object srvContabilidad: TsrvContabilidad item DatasetField = 'PUNTEADO' TableField = 'PUNTEADO' + end + item + DatasetField = 'ID_PAGO' + TableField = 'ID_PAGO' end> end> Name = 'Diario' @@ -409,6 +417,14 @@ object srvContabilidad: TsrvContabilidad Name = 'ID_ASIENTO' DataType = datInteger end + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'ID_PAGO' + DataType = datInteger + end item Name = 'ORDEN_ASIENTO' DataType = datInteger diff --git a/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas b/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas index 86d1a8b3..200db59c 100644 Binary files a/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas and b/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas differ diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm index 92dd9b41..80f98314 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm +++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm @@ -2,6 +2,7 @@ inherited fEditorDiario: TfEditorDiario Left = 489 Top = 325 Caption = 'Libro de diario' + ExplicitWidth = 320 ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 @@ -31,7 +32,7 @@ inherited fEditorDiario: TfEditorDiario end inherited TBXDock: TTBXDock inherited tbxMain: TTBXToolbar - ExplicitWidth = 474 + ExplicitWidth = 403 end inherited tbxFiltro: TTBXToolbar ExplicitWidth = 269 @@ -70,6 +71,27 @@ inherited fEditorDiario: TfEditorDiario Height = 195 ExplicitWidth = 543 ExplicitHeight = 195 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewDiario1.cxGridViewDEBE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewDiario1.cxGridViewHABER + end + item + Format = #218'ltimo orden 0' + Kind = skMax + Column = frViewDiario1.cxGridViewORDEN + end> + inherited cxGridViewID_ASIENTO: TcxGridDBColumn + IsCaptionAssigned = True + end + end end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 543 @@ -141,6 +163,10 @@ inherited fEditorDiario: TfEditorDiario inherited actNuevo: TAction ImageIndex = 22 end + inherited actDuplicar: TAction + Enabled = False + Visible = False + end end inherited SmallImages: TPngImageList [5] PngImages = < diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas index 8f2494ee..f736bac1 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas +++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas @@ -18,6 +18,8 @@ type TfEditorDiario = class(TfEditorGridBase, IEditorDiario) frViewDiario1: TfrViewDiario; procedure FormShow(Sender: TObject); + procedure actModificarUpdate(Sender: TObject); + procedure actEliminarUpdate(Sender: TObject); private FDiario: IBizDiario; FController : IAsientosController; @@ -84,9 +86,15 @@ begin end; procedure TfEditorDiario.NuevoInterno; +var + NumOrden: Integer; begin inherited; - FController.Ver(FController.Anadir); + + NumOrden := ViewGrid._FocusedView.DataController.Summary.FooterSummaryValues[2]; + Inc(NumOrden); + + FController.Ver(FController.Anadir(NumOrden)); end; procedure TfEditorDiario.PonerTitulos(const ATitulo: string); @@ -147,6 +155,22 @@ begin } end; +procedure TfEditorDiario.actEliminarUpdate(Sender: TObject); +begin + inherited; + if (Sender as TAction).Enabled then + if Assigned(Diario) then + (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull; +end; + +procedure TfEditorDiario.actModificarUpdate(Sender: TObject); +begin + inherited; + if (Sender as TAction).Enabled then + if Assigned(Diario) then + (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull; +end; + constructor TfEditorDiario.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm b/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm index fe30d873..4d0d27da 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm +++ b/Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm @@ -1,5 +1,5 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas - Caption = 'Seleccionar pedido de cliente' + Caption = 'Seleccionar subcuenta' ClientWidth = 656 ExplicitWidth = 664 PixelsPerInch = 96 @@ -25,7 +25,7 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas SymbolFont.Name = 'Wingdings' SymbolFont.Style = [fsBold] Captions.Strings = ( - 'Seleccione el pedido de proveedor') + 'Seleccione la subcuenta') Comments.Strings = ( ' ') Gradient.FromColor = clHighlight @@ -37,7 +37,7 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas end inherited JvNavPanelHeader: TJvNavPanelHeader Width = 656 - Caption = 'Lista de pedidos de proveedor' + Caption = 'Lista de subcuentas' Visible = False ExplicitWidth = 656 inherited Image1: TImage @@ -164,9 +164,17 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas inherited dxLayoutControl1: TdxLayoutControl Width = 656 ExplicitWidth = 656 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit - Left = 294 - ExplicitLeft = 294 + Left = 225 + ExplicitLeft = 225 ExplicitWidth = 421 Width = 421 end diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas index 15f5ba52..417ef580 100644 Binary files a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas and b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas differ diff --git a/Source/Modulos/Contabilidad/Views/uEditorSubCuentas.pas b/Source/Modulos/Contabilidad/Views/uEditorSubCuentas.pas index f61510d3..89f4658f 100644 Binary files a/Source/Modulos/Contabilidad/Views/uEditorSubCuentas.pas and b/Source/Modulos/Contabilidad/Views/uEditorSubCuentas.pas differ diff --git a/Source/Modulos/Contabilidad/Views/uViewDiario.dfm b/Source/Modulos/Contabilidad/Views/uViewDiario.dfm index 17da469f..375d5083 100644 --- a/Source/Modulos/Contabilidad/Views/uViewDiario.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewDiario.dfm @@ -27,6 +27,14 @@ inherited frViewDiario: TfrViewDiario DataBinding.FieldName = 'ID_APUNTE' Visible = False end + object cxGridViewID_FACTURA: TcxGridDBColumn + Caption = 'Fac.Asoc.' + DataBinding.FieldName = 'ID_FACTURA' + end + object cxGridViewID_PAGO: TcxGridDBColumn + Caption = 'Pag.Asoc.' + DataBinding.FieldName = 'ID_PAGO' + end object cxGridViewFECHA_ASIENTO: TcxGridDBColumn Caption = 'Fecha asiento' DataBinding.FieldName = 'FECHA_ASIENTO' @@ -64,9 +72,6 @@ inherited frViewDiario: TfrViewDiario DataBinding.FieldName = 'HABER' PropertiesClassName = 'TcxCurrencyEditProperties' end - object cxGridViewID_FACTURA: TcxGridDBColumn - DataBinding.FieldName = 'ID_FACTURA' - end end end inherited frViewFiltroBase1: TfrViewFiltroBase diff --git a/Source/Modulos/Contabilidad/Views/uViewDiario.pas b/Source/Modulos/Contabilidad/Views/uViewDiario.pas index db4e0abf..8052aa17 100644 --- a/Source/Modulos/Contabilidad/Views/uViewDiario.pas +++ b/Source/Modulos/Contabilidad/Views/uViewDiario.pas @@ -36,6 +36,7 @@ type cxGridViewORDEN: TcxGridDBColumn; cxGridViewID_APUNTE: TcxGridDBColumn; cxGridViewID_FACTURA: TcxGridDBColumn; + cxGridViewID_PAGO: TcxGridDBColumn; procedure cxGridViewID_AsientoCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); protected diff --git a/Source/Modulos/Contabilidad/schContabilidadServer_Intf.pas b/Source/Modulos/Contabilidad/schContabilidadServer_Intf.pas new file mode 100644 index 00000000..dcf78399 --- /dev/null +++ b/Source/Modulos/Contabilidad/schContabilidadServer_Intf.pas @@ -0,0 +1,3276 @@ +unit schContabilidadServer_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContabilidadClient_Intf; + +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 = '{5AB4FC97-693C-460A-925E-56936CC6F220}'; + RID_ApuntesDelta = '{96F99DFB-E137-4E31-A0D8-39F7C43C8814}'; + RID_AsientosDelta = '{97378BCF-3017-4244-B469-E13A964B3AF0}'; + RID_SubCuentasDelta = '{7CC1A031-D5FA-41BC-9832-F3FA3541DD6E}'; + RID_CuentasDelta = '{2DA78E46-D506-4FD4-9CE3-DF3C9B0D2117}'; + RID_CuentasEspecialesDelta = '{9C5919F3-A43F-4AC6-8110-E867F70C0CDE}'; + RID_EpigrafesDelta = '{67FB0522-F1EC-47E8-B459-172539CFF79B}'; + RID_BalancesDelta = '{E9EE47C8-0762-4259-BDC9-7CF3EEF83D9E}'; + +type + { IDiarioDelta } + IDiarioDelta = interface(IDiario) + ['{5AB4FC97-693C-460A-925E-56936CC6F220}'] + { Property getters and setters } + function GetOldID_APUNTEValue : Integer; + function GetOldID_ASIENTOValue : Integer; + function GetOldID_FACTURAValue : Integer; + function GetOldID_PAGOValue : Integer; + function GetOldORDEN_ASIENTOValue : Integer; + function GetOldFECHA_ASIENTOValue : DateTime; + function GetOldID_SUBCUENTAValue : Integer; + function GetOldREF_SUBCUENTAValue : String; + function GetOldID_EJERCICIOValue : Integer; + function GetOldCONCEPTOValue : String; + function GetOldDOCUMENTOValue : String; + function GetOldDEBEValue : Currency; + function GetOldHABERValue : Currency; + function GetOldPUNTEADOValue : SmallInt; + + { Properties } + property OldID_APUNTE : Integer read GetOldID_APUNTEValue; + property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_PAGO : Integer read GetOldID_PAGOValue; + property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; + property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; + property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; + 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; + end; + + { TDiarioBusinessProcessorRules } + TDiarioBusinessProcessorRules = class(TDABusinessProcessorRules, IDiario, IDiarioDelta) + private + protected + { Property getters and setters } + function GetID_APUNTEValue: Integer; virtual; + function GetID_APUNTEIsNull: Boolean; virtual; + function GetOldID_APUNTEValue: Integer; virtual; + function GetOldID_APUNTEIsNull: Boolean; virtual; + procedure SetID_APUNTEValue(const aValue: Integer); virtual; + procedure SetID_APUNTEIsNull(const aValue: Boolean); virtual; + function GetID_ASIENTOValue: Integer; virtual; + function GetID_ASIENTOIsNull: Boolean; virtual; + function GetOldID_ASIENTOValue: Integer; virtual; + function GetOldID_ASIENTOIsNull: Boolean; virtual; + procedure SetID_ASIENTOValue(const aValue: Integer); virtual; + procedure SetID_ASIENTOIsNull(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_PAGOValue: Integer; virtual; + function GetID_PAGOIsNull: Boolean; virtual; + function GetOldID_PAGOValue: Integer; virtual; + function GetOldID_PAGOIsNull: Boolean; virtual; + procedure SetID_PAGOValue(const aValue: Integer); virtual; + procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; + function GetORDEN_ASIENTOValue: Integer; virtual; + function GetORDEN_ASIENTOIsNull: Boolean; virtual; + function GetOldORDEN_ASIENTOValue: Integer; virtual; + function GetOldORDEN_ASIENTOIsNull: Boolean; virtual; + procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual; + procedure SetORDEN_ASIENTOIsNull(const aValue: Boolean); virtual; + function GetFECHA_ASIENTOValue: DateTime; virtual; + function GetFECHA_ASIENTOIsNull: Boolean; virtual; + function GetOldFECHA_ASIENTOValue: DateTime; virtual; + function GetOldFECHA_ASIENTOIsNull: Boolean; virtual; + procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual; + function GetID_SUBCUENTAValue: Integer; virtual; + function GetID_SUBCUENTAIsNull: Boolean; virtual; + function GetOldID_SUBCUENTAValue: Integer; virtual; + function GetOldID_SUBCUENTAIsNull: Boolean; virtual; + procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; + procedure SetID_SUBCUENTAIsNull(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; + 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_APUNTE : Integer read GetID_APUNTEValue write SetID_APUNTEValue; + property ID_APUNTEIsNull : Boolean read GetID_APUNTEIsNull write SetID_APUNTEIsNull; + property OldID_APUNTE : Integer read GetOldID_APUNTEValue; + property OldID_APUNTEIsNull : Boolean read GetOldID_APUNTEIsNull; + property ID_ASIENTO : Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; + 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 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_PAGO : Integer read GetID_PAGOValue write SetID_PAGOValue; + property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; + property OldID_PAGO : Integer read GetOldID_PAGOValue; + property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull; + property ORDEN_ASIENTO : Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; + property ORDEN_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; + property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; + property OldORDEN_ASIENTOIsNull : Boolean read GetOldORDEN_ASIENTOIsNull; + property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; + property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; + property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; + property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull; + 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; + property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull; + 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; + 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; + destructor Destroy; override; + + end; + + { IApuntesDelta } + IApuntesDelta = interface(IApuntes) + ['{96F99DFB-E137-4E31-A0D8-39F7C43C8814}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_ASIENTOValue : Integer; + function GetOldID_SUBCUENTAValue : Integer; + function GetOldNUM_ORDENValue : 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 OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; + property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue; + 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 } + TApuntesBusinessProcessorRules = class(TDABusinessProcessorRules, IApuntes, IApuntesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_ASIENTOValue: Integer; virtual; + function GetID_ASIENTOIsNull: Boolean; virtual; + function GetOldID_ASIENTOValue: Integer; virtual; + function GetOldID_ASIENTOIsNull: Boolean; virtual; + procedure SetID_ASIENTOValue(const aValue: Integer); virtual; + procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual; + function GetID_SUBCUENTAValue: Integer; virtual; + function GetID_SUBCUENTAIsNull: Boolean; virtual; + function GetOldID_SUBCUENTAValue: Integer; virtual; + function GetOldID_SUBCUENTAIsNull: Boolean; virtual; + procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; + procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetNUM_ORDENValue: Integer; virtual; + function GetNUM_ORDENIsNull: Boolean; virtual; + function GetOldNUM_ORDENValue: Integer; virtual; + function GetOldNUM_ORDENIsNull: Boolean; virtual; + procedure SetNUM_ORDENValue(const aValue: Integer); virtual; + procedure SetNUM_ORDENIsNull(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 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 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; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_ASIENTO : Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; + 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 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; + property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull; + property NUM_ORDEN : Integer read GetNUM_ORDENValue write SetNUM_ORDENValue; + property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull; + property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue; + property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull; + 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 SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue; + 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; + destructor Destroy; override; + + end; + + { IAsientosDelta } + IAsientosDelta = interface(IAsientos) + ['{97378BCF-3017-4244-B469-E13A964B3AF0}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldFECHA_ASIENTOValue : DateTime; + function GetOldORDENValue : Integer; + function GetOldID_FACTURAValue : Integer; + function GetOldID_RECIBOValue : Integer; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; + property OldORDEN : Integer read GetOldORDENValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_RECIBO : Integer read GetOldID_RECIBOValue; + end; + + { TAsientosBusinessProcessorRules } + TAsientosBusinessProcessorRules = class(TDABusinessProcessorRules, IAsientos, IAsientosDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetFECHA_ASIENTOValue: DateTime; virtual; + function GetFECHA_ASIENTOIsNull: Boolean; virtual; + function GetOldFECHA_ASIENTOValue: DateTime; virtual; + function GetOldFECHA_ASIENTOIsNull: Boolean; virtual; + procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual; + function GetORDENValue: Integer; virtual; + function GetORDENIsNull: Boolean; virtual; + function GetOldORDENValue: Integer; virtual; + function GetOldORDENIsNull: Boolean; virtual; + procedure SetORDENValue(const aValue: Integer); virtual; + procedure SetORDENIsNull(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; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; + property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; + property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; + property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull; + property ORDEN : Integer read GetORDENValue write SetORDENValue; + property ORDENIsNull : Boolean read GetORDENIsNull write SetORDENIsNull; + property OldORDEN : Integer read GetOldORDENValue; + property OldORDENIsNull : Boolean read GetOldORDENIsNull; + 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; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { ISubCuentasDelta } + ISubCuentasDelta = interface(ISubCuentas) + ['{7CC1A031-D5FA-41BC-9832-F3FA3541DD6E}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREF_SUBCUENTAValue : String; + function GetOldDESCRIPCIONValue : String; + function GetOldID_EJERCICIOValue : Integer; + function GetOldID_CONTACTOValue : Integer; + function GetOldID_CUENTAValue : Integer; + function GetOldREF_CUENTAValue : String; + function GetOldCUENTAValue : String; + function GetOldDEBEValue : Currency; + function GetOldHABERValue : Currency; + function GetOldSALDOValue : Currency; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; + property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; + property OldID_CUENTA : Integer read GetOldID_CUENTAValue; + property OldREF_CUENTA : String read GetOldREF_CUENTAValue; + property OldCUENTA : String read GetOldCUENTAValue; + property OldDEBE : Currency read GetOldDEBEValue; + property OldHABER : Currency read GetOldHABERValue; + property OldSALDO : Currency read GetOldSALDOValue; + end; + + { TSubCuentasBusinessProcessorRules } + TSubCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentas, ISubCuentasDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(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 GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(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 GetID_CONTACTOValue: Integer; virtual; + function GetID_CONTACTOIsNull: Boolean; virtual; + function GetOldID_CONTACTOValue: Integer; virtual; + function GetOldID_CONTACTOIsNull: Boolean; virtual; + procedure SetID_CONTACTOValue(const aValue: Integer); virtual; + procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetID_CUENTAValue: Integer; virtual; + function GetID_CUENTAIsNull: Boolean; virtual; + function GetOldID_CUENTAValue: Integer; virtual; + function GetOldID_CUENTAIsNull: Boolean; virtual; + procedure SetID_CUENTAValue(const aValue: Integer); virtual; + procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual; + function GetREF_CUENTAValue: String; virtual; + function GetREF_CUENTAIsNull: Boolean; virtual; + function GetOldREF_CUENTAValue: String; virtual; + function GetOldREF_CUENTAIsNull: Boolean; virtual; + procedure SetREF_CUENTAValue(const aValue: String); virtual; + procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual; + function GetCUENTAValue: String; virtual; + function GetCUENTAIsNull: Boolean; virtual; + function GetOldCUENTAValue: String; virtual; + function GetOldCUENTAIsNull: Boolean; virtual; + procedure SetCUENTAValue(const aValue: String); virtual; + procedure SetCUENTAIsNull(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 GetSALDOValue: Currency; virtual; + function GetSALDOIsNull: Boolean; virtual; + function GetOldSALDOValue: Currency; virtual; + function GetOldSALDOIsNull: Boolean; virtual; + procedure SetSALDOValue(const aValue: Currency); virtual; + procedure SetSALDOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + 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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + 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 ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; + property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; + property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; + property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull; + property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue; + property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull; + property OldID_CUENTA : Integer read GetOldID_CUENTAValue; + property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull; + property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue; + property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull; + property OldREF_CUENTA : String read GetOldREF_CUENTAValue; + property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull; + property CUENTA : String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; + property OldCUENTA : String read GetOldCUENTAValue; + property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; + 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 SALDO : Currency read GetSALDOValue write SetSALDOValue; + property SALDOIsNull : Boolean read GetSALDOIsNull write SetSALDOIsNull; + property OldSALDO : Currency read GetOldSALDOValue; + property OldSALDOIsNull : Boolean read GetOldSALDOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { ICuentasDelta } + ICuentasDelta = interface(ICuentas) + ['{2DA78E46-D506-4FD4-9CE3-DF3C9B0D2117}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREF_CUENTAValue : String; + function GetOldID_EJERCICIOValue : Integer; + function GetOldDESCRIPCIONValue : String; + function GetOldID_EPIGRAFEValue : Integer; + function GetOldEPIGRAFEValue : String; + function GetOldID_BALANCEValue : Integer; + function GetOldBALANCEValue : String; + function GetOldID_CUENTA_ESPECIALValue : Integer; + function GetOldCUENTA_ESPECIALValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREF_CUENTA : String read GetOldREF_CUENTAValue; + property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue; + property OldEPIGRAFE : String read GetOldEPIGRAFEValue; + property OldID_BALANCE : Integer read GetOldID_BALANCEValue; + property OldBALANCE : String read GetOldBALANCEValue; + property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue; + property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue; + end; + + { TCuentasBusinessProcessorRules } + TCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentas, ICuentasDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREF_CUENTAValue: String; virtual; + function GetREF_CUENTAIsNull: Boolean; virtual; + function GetOldREF_CUENTAValue: String; virtual; + function GetOldREF_CUENTAIsNull: Boolean; virtual; + procedure SetREF_CUENTAValue(const aValue: String); virtual; + procedure SetREF_CUENTAIsNull(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 GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetID_EPIGRAFEValue: Integer; virtual; + function GetID_EPIGRAFEIsNull: Boolean; virtual; + function GetOldID_EPIGRAFEValue: Integer; virtual; + function GetOldID_EPIGRAFEIsNull: Boolean; virtual; + procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual; + procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual; + function GetEPIGRAFEValue: String; virtual; + function GetEPIGRAFEIsNull: Boolean; virtual; + function GetOldEPIGRAFEValue: String; virtual; + function GetOldEPIGRAFEIsNull: Boolean; virtual; + procedure SetEPIGRAFEValue(const aValue: String); virtual; + procedure SetEPIGRAFEIsNull(const aValue: Boolean); virtual; + function GetID_BALANCEValue: Integer; virtual; + function GetID_BALANCEIsNull: Boolean; virtual; + function GetOldID_BALANCEValue: Integer; virtual; + function GetOldID_BALANCEIsNull: Boolean; virtual; + procedure SetID_BALANCEValue(const aValue: Integer); virtual; + procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual; + function GetBALANCEValue: String; virtual; + function GetBALANCEIsNull: Boolean; virtual; + function GetOldBALANCEValue: String; virtual; + function GetOldBALANCEIsNull: Boolean; virtual; + procedure SetBALANCEValue(const aValue: String); virtual; + procedure SetBALANCEIsNull(const aValue: Boolean); virtual; + function GetID_CUENTA_ESPECIALValue: Integer; virtual; + function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual; + function GetOldID_CUENTA_ESPECIALValue: Integer; virtual; + function GetOldID_CUENTA_ESPECIALIsNull: Boolean; virtual; + procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual; + procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual; + function GetCUENTA_ESPECIALValue: String; virtual; + function GetCUENTA_ESPECIALIsNull: Boolean; virtual; + function GetOldCUENTA_ESPECIALValue: String; virtual; + function GetOldCUENTA_ESPECIALIsNull: Boolean; virtual; + procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual; + procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue; + property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull; + property OldREF_CUENTA : String read GetOldREF_CUENTAValue; + property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull; + 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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + property ID_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue; + property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull; + property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue; + property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull; + property EPIGRAFE : String read GetEPIGRAFEValue write SetEPIGRAFEValue; + property EPIGRAFEIsNull : Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull; + property OldEPIGRAFE : String read GetOldEPIGRAFEValue; + property OldEPIGRAFEIsNull : Boolean read GetOldEPIGRAFEIsNull; + property ID_BALANCE : Integer read GetID_BALANCEValue write SetID_BALANCEValue; + property ID_BALANCEIsNull : Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull; + property OldID_BALANCE : Integer read GetOldID_BALANCEValue; + property OldID_BALANCEIsNull : Boolean read GetOldID_BALANCEIsNull; + property BALANCE : String read GetBALANCEValue write SetBALANCEValue; + property BALANCEIsNull : Boolean read GetBALANCEIsNull write SetBALANCEIsNull; + property OldBALANCE : String read GetOldBALANCEValue; + property OldBALANCEIsNull : Boolean read GetOldBALANCEIsNull; + property ID_CUENTA_ESPECIAL : Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue; + property ID_CUENTA_ESPECIALIsNull : Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull; + property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue; + property OldID_CUENTA_ESPECIALIsNull : Boolean read GetOldID_CUENTA_ESPECIALIsNull; + property CUENTA_ESPECIAL : String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue; + property CUENTA_ESPECIALIsNull : Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull; + property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue; + property OldCUENTA_ESPECIALIsNull : Boolean read GetOldCUENTA_ESPECIALIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { ICuentasEspecialesDelta } + ICuentasEspecialesDelta = interface(ICuentasEspeciales) + ['{9C5919F3-A43F-4AC6-8110-E867F70C0CDE}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldDESCRIPCIONValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + end; + + { TCuentasEspecialesBusinessProcessorRules } + TCuentasEspecialesBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentasEspeciales, ICuentasEspecialesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IEpigrafesDelta } + IEpigrafesDelta = interface(IEpigrafes) + ['{67FB0522-F1EC-47E8-B459-172539CFF79B}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREF_EPIGRAFEValue : String; + function GetOldDESCRIPCIONValue : String; + function GetOldID_EJERCICIOValue : Integer; + function GetOldID_PADREValue : Integer; + function GetOldEPIGRAFE_PADREValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; + property OldID_PADRE : Integer read GetOldID_PADREValue; + property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue; + end; + + { TEpigrafesBusinessProcessorRules } + TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREF_EPIGRAFEValue: String; virtual; + function GetREF_EPIGRAFEIsNull: Boolean; virtual; + function GetOldREF_EPIGRAFEValue: String; virtual; + function GetOldREF_EPIGRAFEIsNull: Boolean; virtual; + procedure SetREF_EPIGRAFEValue(const aValue: String); virtual; + procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(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 GetID_PADREValue: Integer; virtual; + function GetID_PADREIsNull: Boolean; virtual; + function GetOldID_PADREValue: Integer; virtual; + function GetOldID_PADREIsNull: Boolean; virtual; + procedure SetID_PADREValue(const aValue: Integer); virtual; + procedure SetID_PADREIsNull(const aValue: Boolean); virtual; + function GetEPIGRAFE_PADREValue: String; virtual; + function GetEPIGRAFE_PADREIsNull: Boolean; virtual; + function GetOldEPIGRAFE_PADREValue: String; virtual; + function GetOldEPIGRAFE_PADREIsNull: Boolean; virtual; + procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual; + procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue; + property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull; + property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; + property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + 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 ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue; + property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull; + property OldID_PADRE : Integer read GetOldID_PADREValue; + property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull; + property EPIGRAFE_PADRE : String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue; + property EPIGRAFE_PADREIsNull : Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull; + property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue; + property OldEPIGRAFE_PADREIsNull : Boolean read GetOldEPIGRAFE_PADREIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IBalancesDelta } + IBalancesDelta = interface(IBalances) + ['{E9EE47C8-0762-4259-BDC9-7CF3EEF83D9E}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREF_BALANCEValue : String; + function GetOldNATURALEZAValue : String; + function GetOldNIVEL1Value : String; + function GetOldDESCRIPCION1Value : String; + function GetOldNIVEL2Value : String; + function GetOldDESCRIPCION2Value : String; + function GetOldNIVEL3Value : String; + function GetOldDESCRIPCION3Value : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREF_BALANCE : String read GetOldREF_BALANCEValue; + property OldNATURALEZA : String read GetOldNATURALEZAValue; + property OldNIVEL1 : String read GetOldNIVEL1Value; + property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value; + property OldNIVEL2 : String read GetOldNIVEL2Value; + property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value; + property OldNIVEL3 : String read GetOldNIVEL3Value; + property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value; + end; + + { TBalancesBusinessProcessorRules } + TBalancesBusinessProcessorRules = class(TDABusinessProcessorRules, IBalances, IBalancesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREF_BALANCEValue: String; virtual; + function GetREF_BALANCEIsNull: Boolean; virtual; + function GetOldREF_BALANCEValue: String; virtual; + function GetOldREF_BALANCEIsNull: Boolean; virtual; + procedure SetREF_BALANCEValue(const aValue: String); virtual; + procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual; + function GetNATURALEZAValue: String; virtual; + function GetNATURALEZAIsNull: Boolean; virtual; + function GetOldNATURALEZAValue: String; virtual; + function GetOldNATURALEZAIsNull: Boolean; virtual; + procedure SetNATURALEZAValue(const aValue: String); virtual; + procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual; + function GetNIVEL1Value: String; virtual; + function GetNIVEL1IsNull: Boolean; virtual; + function GetOldNIVEL1Value: String; virtual; + function GetOldNIVEL1IsNull: Boolean; virtual; + procedure SetNIVEL1Value(const aValue: String); virtual; + procedure SetNIVEL1IsNull(const aValue: Boolean); virtual; + function GetDESCRIPCION1Value: String; virtual; + function GetDESCRIPCION1IsNull: Boolean; virtual; + function GetOldDESCRIPCION1Value: String; virtual; + function GetOldDESCRIPCION1IsNull: Boolean; virtual; + procedure SetDESCRIPCION1Value(const aValue: String); virtual; + procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual; + function GetNIVEL2Value: String; virtual; + function GetNIVEL2IsNull: Boolean; virtual; + function GetOldNIVEL2Value: String; virtual; + function GetOldNIVEL2IsNull: Boolean; virtual; + procedure SetNIVEL2Value(const aValue: String); virtual; + procedure SetNIVEL2IsNull(const aValue: Boolean); virtual; + function GetDESCRIPCION2Value: String; virtual; + function GetDESCRIPCION2IsNull: Boolean; virtual; + function GetOldDESCRIPCION2Value: String; virtual; + function GetOldDESCRIPCION2IsNull: Boolean; virtual; + procedure SetDESCRIPCION2Value(const aValue: String); virtual; + procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual; + function GetNIVEL3Value: String; virtual; + function GetNIVEL3IsNull: Boolean; virtual; + function GetOldNIVEL3Value: String; virtual; + function GetOldNIVEL3IsNull: Boolean; virtual; + procedure SetNIVEL3Value(const aValue: String); virtual; + procedure SetNIVEL3IsNull(const aValue: Boolean); virtual; + function GetDESCRIPCION3Value: String; virtual; + function GetDESCRIPCION3IsNull: Boolean; virtual; + function GetOldDESCRIPCION3Value: String; virtual; + function GetOldDESCRIPCION3IsNull: Boolean; virtual; + procedure SetDESCRIPCION3Value(const aValue: String); virtual; + procedure SetDESCRIPCION3IsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property REF_BALANCE : String read GetREF_BALANCEValue write SetREF_BALANCEValue; + property REF_BALANCEIsNull : Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull; + property OldREF_BALANCE : String read GetOldREF_BALANCEValue; + property OldREF_BALANCEIsNull : Boolean read GetOldREF_BALANCEIsNull; + property NATURALEZA : String read GetNATURALEZAValue write SetNATURALEZAValue; + property NATURALEZAIsNull : Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull; + property OldNATURALEZA : String read GetOldNATURALEZAValue; + property OldNATURALEZAIsNull : Boolean read GetOldNATURALEZAIsNull; + property NIVEL1 : String read GetNIVEL1Value write SetNIVEL1Value; + property NIVEL1IsNull : Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull; + property OldNIVEL1 : String read GetOldNIVEL1Value; + property OldNIVEL1IsNull : Boolean read GetOldNIVEL1IsNull; + property DESCRIPCION1 : String read GetDESCRIPCION1Value write SetDESCRIPCION1Value; + property DESCRIPCION1IsNull : Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull; + property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value; + property OldDESCRIPCION1IsNull : Boolean read GetOldDESCRIPCION1IsNull; + property NIVEL2 : String read GetNIVEL2Value write SetNIVEL2Value; + property NIVEL2IsNull : Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull; + property OldNIVEL2 : String read GetOldNIVEL2Value; + property OldNIVEL2IsNull : Boolean read GetOldNIVEL2IsNull; + property DESCRIPCION2 : String read GetDESCRIPCION2Value write SetDESCRIPCION2Value; + property DESCRIPCION2IsNull : Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull; + property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value; + property OldDESCRIPCION2IsNull : Boolean read GetOldDESCRIPCION2IsNull; + property NIVEL3 : String read GetNIVEL3Value write SetNIVEL3Value; + property NIVEL3IsNull : Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull; + property OldNIVEL3 : String read GetOldNIVEL3Value; + property OldNIVEL3IsNull : Boolean read GetOldNIVEL3IsNull; + property DESCRIPCION3 : String read GetDESCRIPCION3Value write SetDESCRIPCION3Value; + property DESCRIPCION3IsNull : Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull; + property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value; + property OldDESCRIPCION3IsNull : Boolean read GetOldDESCRIPCION3IsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers, uDAInterfaces; + +{ TDiarioBusinessProcessorRules } +constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDiarioBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDiarioBusinessProcessorRules.GetID_APUNTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE]; +end; + +function TDiarioBusinessProcessorRules.GetID_APUNTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_APUNTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_APUNTE]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_APUNTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_APUNTE]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_APUNTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_APUNTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE] := Null; +end; + +function TDiarioBusinessProcessorRules.GetID_ASIENTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO]; +end; + +function TDiarioBusinessProcessorRules.GetID_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_ASIENTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_ASIENTO]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_ASIENTO]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_ASIENTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_ASIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := Null; +end; + +function TDiarioBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]; +end; + +function TDiarioBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := Null; +end; + +function TDiarioBusinessProcessorRules.GetID_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]; +end; + +function TDiarioBusinessProcessorRules.GetID_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_PAGOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null; +end; + +function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]; +end; + +function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]); +end; + +function TDiarioBusinessProcessorRules.GetOldORDEN_ASIENTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioORDEN_ASIENTO]; +end; + +function TDiarioBusinessProcessorRules.GetOldORDEN_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioORDEN_ASIENTO]); +end; + +procedure TDiarioBusinessProcessorRules.SetORDEN_ASIENTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetORDEN_ASIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO] := Null; +end; + +function TDiarioBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO]; +end; + +function TDiarioBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO]); +end; + +function TDiarioBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioFECHA_ASIENTO]; +end; + +function TDiarioBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioFECHA_ASIENTO]); +end; + +procedure TDiarioBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO] := Null; +end; + +function TDiarioBusinessProcessorRules.GetID_SUBCUENTAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA]; +end; + +function TDiarioBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA]); +end; + +function TDiarioBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_SUBCUENTA]; +end; + +function TDiarioBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_SUBCUENTA]); +end; + +procedure TDiarioBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := Null; +end; + +function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]; +end; + +function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]); +end; + +function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]; +end; + +function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]); +end; + +procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + 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; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO]; +end; + +function TDiarioBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO]); +end; + +function TDiarioBusinessProcessorRules.GetOldCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioCONCEPTO]; +end; + +function TDiarioBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioCONCEPTO]); +end; + +procedure TDiarioBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + 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]; +end; + +function TDiarioBusinessProcessorRules.GetDEBEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE]); +end; + +function TDiarioBusinessProcessorRules.GetOldDEBEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDEBE]; +end; + +function TDiarioBusinessProcessorRules.GetOldDEBEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDEBE]); +end; + +procedure TDiarioBusinessProcessorRules.SetDEBEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE] := Null; +end; + +function TDiarioBusinessProcessorRules.GetHABERValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER]; +end; + +function TDiarioBusinessProcessorRules.GetHABERIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER]); +end; + +function TDiarioBusinessProcessorRules.GetOldHABERValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioHABER]; +end; + +function TDiarioBusinessProcessorRules.GetOldHABERIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioHABER]); +end; + +procedure TDiarioBusinessProcessorRules.SetHABERValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER] := Null; +end; + +function TDiarioBusinessProcessorRules.GetPUNTEADOValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO]; +end; + +function TDiarioBusinessProcessorRules.GetPUNTEADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO]); +end; + +function TDiarioBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioPUNTEADO]; +end; + +function TDiarioBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioPUNTEADO]); +end; + +procedure TDiarioBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := Null; +end; + + +{ TApuntesBusinessProcessorRules } +constructor TApuntesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TApuntesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TApuntesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID]; +end; + +function TApuntesBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID]); +end; + +function TApuntesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID]; +end; + +function TApuntesBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID]); +end; + +procedure TApuntesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID] := Null; +end; + +function TApuntesBusinessProcessorRules.GetID_ASIENTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO]; +end; + +function TApuntesBusinessProcessorRules.GetID_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO]); +end; + +function TApuntesBusinessProcessorRules.GetOldID_ASIENTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_ASIENTO]; +end; + +function TApuntesBusinessProcessorRules.GetOldID_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_ASIENTO]); +end; + +procedure TApuntesBusinessProcessorRules.SetID_ASIENTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetID_ASIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := Null; +end; + +function TApuntesBusinessProcessorRules.GetID_SUBCUENTAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA]; +end; + +function TApuntesBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA]); +end; + +function TApuntesBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_SUBCUENTA]; +end; + +function TApuntesBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_SUBCUENTA]); +end; + +procedure TApuntesBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := Null; +end; + +function TApuntesBusinessProcessorRules.GetNUM_ORDENValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN]; +end; + +function TApuntesBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN]); +end; + +function TApuntesBusinessProcessorRules.GetOldNUM_ORDENValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN]; +end; + +function TApuntesBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN]); +end; + +procedure TApuntesBusinessProcessorRules.SetNUM_ORDENValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := Null; +end; + +function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA]; +end; + +function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA]); +end; + +function TApuntesBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesREF_SUBCUENTA]; +end; + +function TApuntesBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesREF_SUBCUENTA]); +end; + +procedure TApuntesBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA] := Null; +end; + +function TApuntesBusinessProcessorRules.GetSUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA]; +end; + +function TApuntesBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA]); +end; + +function TApuntesBusinessProcessorRules.GetOldSUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesSUBCUENTA]; +end; + +function TApuntesBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesSUBCUENTA]); +end; + +procedure TApuntesBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA] := aValue; +end; + +procedure TApuntesBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + 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); +begin + inherited; +end; + +destructor TAsientosBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TAsientosBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]; +end; + +function TAsientosBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]); +end; + +function TAsientosBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]; +end; + +function TAsientosBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]); +end; + +procedure TAsientosBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := aValue; +end; + +procedure TAsientosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := Null; +end; + +function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]; +end; + +function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]); +end; + +function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]; +end; + +function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]); +end; + +procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := aValue; +end; + +procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := Null; +end; + +function TAsientosBusinessProcessorRules.GetORDENValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN]; +end; + +function TAsientosBusinessProcessorRules.GetORDENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN]); +end; + +function TAsientosBusinessProcessorRules.GetOldORDENValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosORDEN]; +end; + +function TAsientosBusinessProcessorRules.GetOldORDENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosORDEN]); +end; + +procedure TAsientosBusinessProcessorRules.SetORDENValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := aValue; +end; + +procedure TAsientosBusinessProcessorRules.SetORDENIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := Null; +end; + +function TAsientosBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA]; +end; + +function TAsientosBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA]); +end; + +function TAsientosBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA]; +end; + +function TAsientosBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA]); +end; + +procedure TAsientosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := aValue; +end; + +procedure TAsientosBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := Null; +end; + +function TAsientosBusinessProcessorRules.GetID_RECIBOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO]; +end; + +function TAsientosBusinessProcessorRules.GetID_RECIBOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO]); +end; + +function TAsientosBusinessProcessorRules.GetOldID_RECIBOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO]; +end; + +function TAsientosBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO]); +end; + +procedure TAsientosBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := aValue; +end; + +procedure TAsientosBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := Null; +end; + + +{ TSubCuentasBusinessProcessorRules } +constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TSubCuentasBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TSubCuentasBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]; +end; + +function TSubCuentasBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]; +end; + +function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]; +end; + +function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetID_CONTACTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]; +end; + +function TSubCuentasBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetID_CUENTAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetID_CUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetREF_CUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasCUENTA]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasCUENTA]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetDEBEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE]; +end; + +function TSubCuentasBusinessProcessorRules.GetDEBEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldDEBEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDEBE]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldDEBEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDEBE]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetDEBEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetHABERValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER]; +end; + +function TSubCuentasBusinessProcessorRules.GetHABERIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldHABERValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasHABER]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldHABERIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasHABER]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetHABERValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER] := Null; +end; + +function TSubCuentasBusinessProcessorRules.GetSALDOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO]; +end; + +function TSubCuentasBusinessProcessorRules.GetSALDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO]); +end; + +function TSubCuentasBusinessProcessorRules.GetOldSALDOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasSALDO]; +end; + +function TSubCuentasBusinessProcessorRules.GetOldSALDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasSALDO]); +end; + +procedure TSubCuentasBusinessProcessorRules.SetSALDOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO] := aValue; +end; + +procedure TSubCuentasBusinessProcessorRules.SetSALDOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO] := Null; +end; + + +{ TCuentasBusinessProcessorRules } +constructor TCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TCuentasBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TCuentasBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]; +end; + +function TCuentasBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]); +end; + +function TCuentasBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]; +end; + +function TCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]); +end; + +procedure TCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := Null; +end; + +function TCuentasBusinessProcessorRules.GetREF_CUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]; +end; + +function TCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]); +end; + +function TCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]; +end; + +function TCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]); +end; + +procedure TCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := Null; +end; + +function TCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]; +end; + +function TCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]); +end; + +function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]; +end; + +function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]); +end; + +procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null; +end; + +function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]; +end; + +function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]); +end; + +function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]; +end; + +function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]); +end; + +procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null; +end; + +function TCuentasBusinessProcessorRules.GetID_EPIGRAFEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]; +end; + +function TCuentasBusinessProcessorRules.GetID_EPIGRAFEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]); +end; + +function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]; +end; + +function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]); +end; + +procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null; +end; + +function TCuentasBusinessProcessorRules.GetEPIGRAFEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]; +end; + +function TCuentasBusinessProcessorRules.GetEPIGRAFEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]); +end; + +function TCuentasBusinessProcessorRules.GetOldEPIGRAFEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]; +end; + +function TCuentasBusinessProcessorRules.GetOldEPIGRAFEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]); +end; + +procedure TCuentasBusinessProcessorRules.SetEPIGRAFEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetEPIGRAFEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := Null; +end; + +function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]; +end; + +function TCuentasBusinessProcessorRules.GetID_BALANCEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]); +end; + +function TCuentasBusinessProcessorRules.GetOldID_BALANCEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]; +end; + +function TCuentasBusinessProcessorRules.GetOldID_BALANCEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]); +end; + +procedure TCuentasBusinessProcessorRules.SetID_BALANCEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetID_BALANCEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null; +end; + +function TCuentasBusinessProcessorRules.GetBALANCEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]; +end; + +function TCuentasBusinessProcessorRules.GetBALANCEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]); +end; + +function TCuentasBusinessProcessorRules.GetOldBALANCEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]; +end; + +function TCuentasBusinessProcessorRules.GetOldBALANCEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]); +end; + +procedure TCuentasBusinessProcessorRules.SetBALANCEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetBALANCEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := Null; +end; + +function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]; +end; + +function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]); +end; + +function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]; +end; + +function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]); +end; + +procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null; +end; + +function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]; +end; + +function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]); +end; + +function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]; +end; + +function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]); +end; + +procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := aValue; +end; + +procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := Null; +end; + + +{ TCuentasEspecialesBusinessProcessorRules } +constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TCuentasEspecialesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]); +end; + +function TCuentasEspecialesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]); +end; + +procedure TCuentasEspecialesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := aValue; +end; + +procedure TCuentasEspecialesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := Null; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]); +end; + +function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]); +end; + +procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := aValue; +end; + +procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := Null; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]); +end; + +function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]; +end; + +function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]); +end; + +procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := aValue; +end; + +procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := Null; +end; + + +{ TEpigrafesBusinessProcessorRules } +constructor TEpigrafesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TEpigrafesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TEpigrafesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]; +end; + +function TEpigrafesBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]); +end; + +function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]; +end; + +function TEpigrafesBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]); +end; + +procedure TEpigrafesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := aValue; +end; + +procedure TEpigrafesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := Null; +end; + +function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]; +end; + +function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]); +end; + +function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]; +end; + +function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]); +end; + +procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue; +end; + +procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null; +end; + +function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]; +end; + +function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]); +end; + +function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]; +end; + +function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]); +end; + +procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := aValue; +end; + +procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := Null; +end; + +function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]; +end; + +function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]); +end; + +function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]; +end; + +function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]); +end; + +procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := aValue; +end; + +procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null; +end; + +function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]; +end; + +function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]); +end; + +function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]; +end; + +function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]); +end; + +procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue; +end; + +procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null; +end; + +function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]; +end; + +function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]); +end; + +function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]; +end; + +function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]); +end; + +procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := aValue; +end; + +procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := Null; +end; + + +{ TBalancesBusinessProcessorRules } +constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TBalancesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TBalancesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]; +end; + +function TBalancesBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]); +end; + +function TBalancesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]; +end; + +function TBalancesBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]); +end; + +procedure TBalancesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := Null; +end; + +function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]; +end; + +function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]); +end; + +function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]; +end; + +function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]); +end; + +procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null; +end; + +function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]; +end; + +function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]); +end; + +function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]; +end; + +function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]); +end; + +procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null; +end; + +function TBalancesBusinessProcessorRules.GetNIVEL1Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]; +end; + +function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]); +end; + +function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]; +end; + +function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]); +end; + +procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null; +end; + +function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]; +end; + +function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]); +end; + +function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]; +end; + +function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]); +end; + +procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null; +end; + +function TBalancesBusinessProcessorRules.GetNIVEL2Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]; +end; + +function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]); +end; + +function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]; +end; + +function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]); +end; + +procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null; +end; + +function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]; +end; + +function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]); +end; + +function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]; +end; + +function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]); +end; + +procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null; +end; + +function TBalancesBusinessProcessorRules.GetNIVEL3Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]; +end; + +function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]); +end; + +function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]; +end; + +function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]); +end; + +procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null; +end; + +function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]; +end; + +function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]); +end; + +function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]; +end; + +function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]); +end; + +procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue; +end; + +procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null; +end; + + +initialization + RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_SubCuentasDelta, TSubCuentasBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_CuentasDelta, TCuentasBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules); + +end.