From c44470d4e882c1b9aa96b7f599c00505f29e6ace Mon Sep 17 00:00:00 2001 From: david Date: Mon, 25 Jan 2010 11:33:43 +0000 Subject: [PATCH] Arreglo de recibos de cliente para que coja los datos del cliente de la factura asociada git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@55 f33bb606-9f5c-448d-9c99-757f00063c96 --- .../Data/uDataModuleRecibosCliente.dfm | 30 +- .../Model/schRecibosClienteClient_Intf.pas | 166 +++- .../Model/schRecibosClienteServer_Intf.pas | 788 ++++++++++++++---- 3 files changed, 808 insertions(+), 176 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index a7e3a80..5c8f54f 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -10,12 +10,12 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Top = 24 end object rda_RecibosCliente: TDARemoteDataAdapter + DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer Left = 59 Top = 151 end @@ -115,8 +115,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente MasterSource = ds_RecibosCliente MasterFields = 'ID' DetailFields = 'ID_RECIBO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PagosCliente' IndexDefs = <> Left = 288 @@ -300,12 +298,30 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DataType = datString Size = 20 DictionaryEntry = 'RecibosCliente_USUARIO' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 254 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 254 + end + item + Name = 'DC' + DataType = datString + Size = 254 + end + item + Name = 'CUENTA' + DataType = datString + Size = 254 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RecibosCliente' IndexDefs = <> Left = 168 @@ -463,8 +479,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente MasterSource = ds_RecibosCliente MasterFields = 'ID' DetailFields = 'ID_RECIBO_COMPENSADO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RecibosCompensadosCli' IndexDefs = <> Left = 416 @@ -487,8 +501,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ListaAnosRecibos' IndexDefs = <> Left = 168 diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 8b5a5a3..cd8fc11 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosRecibos = '{85D6A88E-F93C-4EBD-856B-E3DD70661B8C}'; - RID_RecibosCliente = '{7AEE1847-3690-481E-AA36-7DD34941DAE0}'; - RID_PagosCliente = '{24604449-C6ED-4543-A84E-A9084B86E5EA}'; - RID_RecibosCompensadosCli = '{3198778B-C101-4E4C-94B1-A5B6EE3FB400}'; + RID_ListaAnosRecibos = '{F0EF45A4-9D97-4FE8-8CC2-3EF9F94F6628}'; + RID_RecibosCliente = '{162F780C-4D8B-412A-9DE3-FE73CBEBDB5A}'; + RID_PagosCliente = '{48DF1309-C3D6-4B75-AF08-105A3BC3F928}'; + RID_RecibosCompensadosCli = '{81DC46A4-8282-4FF6-B72C-50760325DC89}'; { Data table names } nme_ListaAnosRecibos = 'ListaAnosRecibos'; @@ -57,6 +57,10 @@ const fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosClienteUSUARIO = 'USUARIO'; + fld_RecibosClienteENTIDAD = 'ENTIDAD'; + fld_RecibosClienteSUCURSAL = 'SUCURSAL'; + fld_RecibosClienteDC = 'DC'; + fld_RecibosClienteCUENTA = 'CUENTA'; { RecibosCliente field indexes } idx_RecibosClienteID = 0; @@ -89,6 +93,10 @@ const idx_RecibosClienteFECHA_ALTA = 27; idx_RecibosClienteFECHA_MODIFICACION = 28; idx_RecibosClienteUSUARIO = 29; + idx_RecibosClienteENTIDAD = 30; + idx_RecibosClienteSUCURSAL = 31; + idx_RecibosClienteDC = 32; + idx_RecibosClienteCUENTA = 33; { PagosCliente fields } fld_PagosClienteID = 'ID'; @@ -185,7 +193,7 @@ const type { IListaAnosRecibos } IListaAnosRecibos = interface(IDAStronglyTypedDataTable) - ['{CB0E282C-8761-42F7-A898-261F109FAE48}'] + ['{C14A6067-4859-4033-AC4C-288F32393E97}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -199,7 +207,7 @@ type end; { TListaAnosRecibosDataTableRules } - TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos) + TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos) private protected { Property getters and setters } @@ -220,7 +228,7 @@ type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{76F7C244-A129-4A30-90CF-2CA8C4B52CAD}'] + ['{748631EC-3715-470F-A921-467E3ADAB5F5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -342,6 +350,22 @@ type procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetENTIDADValue: String; + procedure SetENTIDADValue(const aValue: String); + function GetENTIDADIsNull: Boolean; + procedure SetENTIDADIsNull(const aValue: Boolean); + function GetSUCURSALValue: String; + procedure SetSUCURSALValue(const aValue: String); + function GetSUCURSALIsNull: Boolean; + procedure SetSUCURSALIsNull(const aValue: Boolean); + function GetDCValue: String; + procedure SetDCValue(const aValue: String); + function GetDCIsNull: Boolean; + procedure SetDCIsNull(const aValue: Boolean); + function GetCUENTAValue: String; + procedure SetCUENTAValue(const aValue: String); + function GetCUENTAIsNull: Boolean; + procedure SetCUENTAIsNull(const aValue: Boolean); { Properties } @@ -405,10 +429,18 @@ type property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; + property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; + property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; + property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; end; { TRecibosClienteDataTableRules } - TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) + TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) private protected { Property getters and setters } @@ -532,6 +564,22 @@ type procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetENTIDADValue: String; virtual; + procedure SetENTIDADValue(const aValue: String); virtual; + function GetENTIDADIsNull: Boolean; virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; + function GetSUCURSALValue: String; virtual; + procedure SetSUCURSALValue(const aValue: String); virtual; + function GetSUCURSALIsNull: Boolean; virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; + function GetDCValue: String; virtual; + procedure SetDCValue(const aValue: String); virtual; + function GetDCIsNull: Boolean; virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; + function GetCUENTAValue: String; virtual; + procedure SetCUENTAValue(const aValue: String); virtual; + function GetCUENTAIsNull: Boolean; virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -594,6 +642,14 @@ type property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; + property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; + property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; + property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -603,7 +659,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{B9F92CCE-2ADD-4B5F-82AF-CEEA1C8B10EC}'] + ['{4A5203D1-23CA-484D-8BF8-ECB3EBE4BFB7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -683,7 +739,7 @@ type end; { TPagosClienteDataTableRules } - TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) + TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) private protected { Property getters and setters } @@ -770,7 +826,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{A98A69F6-4C14-4B5D-A299-3FC51C52104B}'] + ['{84668918-5039-4A33-9A1B-058490744457}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -958,7 +1014,7 @@ type end; { TRecibosCompensadosCliDataTableRules } - TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) + TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } @@ -1829,6 +1885,90 @@ begin DataTable.Fields[idx_RecibosClienteUSUARIO].AsVariant := Null; end; +function TRecibosClienteDataTableRules.GetENTIDADValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteENTIDAD].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetENTIDADValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteENTIDAD].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetENTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteENTIDAD].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteENTIDAD].AsVariant := Null; +end; + +function TRecibosClienteDataTableRules.GetSUCURSALValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteSUCURSAL].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetSUCURSALValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteSUCURSAL].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetSUCURSALIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteSUCURSAL].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteSUCURSAL].AsVariant := Null; +end; + +function TRecibosClienteDataTableRules.GetDCValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteDC].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetDCValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteDC].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetDCIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteDC].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteDC].AsVariant := Null; +end; + +function TRecibosClienteDataTableRules.GetCUENTAValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteCUENTA].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetCUENTAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteCUENTA].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetCUENTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteCUENTA].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteCUENTA].AsVariant := Null; +end; + { TPagosClienteDataTableRules } constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 4ece97d..4bc972a 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{C6F18E23-8B34-474E-BBB0-C5F929DD22BC}'; - RID_RecibosClienteDelta = '{271FBB55-92A8-42B7-96C9-15A5404D6869}'; - RID_PagosClienteDelta = '{7DA5462C-B7F5-4D2E-BD81-2BFCAD69EA92}'; - RID_RecibosCompensadosCliDelta = '{A670E8DA-B3CC-4578-A8DB-6F00B3230751}'; + RID_ListaAnosRecibosDelta = '{CCE93575-A8AD-40C7-8058-928601432A6D}'; + RID_RecibosClienteDelta = '{3D708DF9-89F4-4E1F-B828-27E14BECF119}'; + RID_PagosClienteDelta = '{94C70DF1-5535-4C04-B227-123B1B8E7FE5}'; + RID_RecibosCompensadosCliDelta = '{F5087755-FD90-439A-878B-5749589D42F5}'; type { IListaAnosRecibosDelta } IListaAnosRecibosDelta = interface(IListaAnosRecibos) - ['{C6F18E23-8B34-474E-BBB0-C5F929DD22BC}'] + ['{CCE93575-A8AD-40C7-8058-928601432A6D}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{271FBB55-92A8-42B7-96C9-15A5404D6869}'] + ['{3D708DF9-89F4-4E1F-B828-27E14BECF119}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -83,6 +83,10 @@ type function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; + function GetOldENTIDADValue : String; + function GetOldSUCURSALValue : String; + function GetOldDCValue : String; + function GetOldCUENTAValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -115,6 +119,10 @@ type property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; + property OldENTIDAD : String read GetOldENTIDADValue; + property OldSUCURSAL : String read GetOldSUCURSALValue; + property OldDC : String read GetOldDCValue; + property OldCUENTA : String read GetOldCUENTAValue; end; { TRecibosClienteBusinessProcessorRules } @@ -302,6 +310,30 @@ type function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetENTIDADValue: String; virtual; + function GetENTIDADIsNull: Boolean; virtual; + function GetOldENTIDADValue: String; virtual; + function GetOldENTIDADIsNull: Boolean; virtual; + procedure SetENTIDADValue(const aValue: String); virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; + function GetSUCURSALValue: String; virtual; + function GetSUCURSALIsNull: Boolean; virtual; + function GetOldSUCURSALValue: String; virtual; + function GetOldSUCURSALIsNull: Boolean; virtual; + procedure SetSUCURSALValue(const aValue: String); virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; + function GetDCValue: String; virtual; + function GetDCIsNull: Boolean; virtual; + function GetOldDCValue: String; virtual; + function GetOldDCIsNull: Boolean; virtual; + procedure SetDCValue(const aValue: String); virtual; + procedure SetDCIsNull(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; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -424,6 +456,22 @@ type property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull; + property OldENTIDAD : String read GetOldENTIDADValue; + property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull; + property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; + property OldSUCURSAL : String read GetOldSUCURSALValue; + property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull; + property DC : String read GetDCValue write SetDCValue; + property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull; + property OldDC : String read GetOldDCValue; + property OldDCIsNull : Boolean read GetOldDCIsNull; + property CUENTA : String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; + property OldCUENTA : String read GetOldCUENTAValue; + property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -433,7 +481,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{7DA5462C-B7F5-4D2E-BD81-2BFCAD69EA92}'] + ['{94C70DF1-5535-4C04-B227-123B1B8E7FE5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -599,7 +647,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{A670E8DA-B3CC-4578-A8DB-6F00B3230751}'] + ['{F5087755-FD90-439A-878B-5749589D42F5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -1001,8 +1049,10 @@ begin end; function TListaAnosRecibosBusinessProcessorRules.GetANOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO]; + result := VarIsNull(v) or VarIsClear(v); end; function TListaAnosRecibosBusinessProcessorRules.GetOldANOValue: String; @@ -1011,8 +1061,10 @@ begin end; function TListaAnosRecibosBusinessProcessorRules.GetOldANOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRecibosANO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRecibosANO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TListaAnosRecibosBusinessProcessorRules.SetANOValue(const aValue: String); @@ -1044,8 +1096,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldIDValue: Integer; @@ -1054,8 +1108,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -1075,8 +1131,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; @@ -1085,8 +1143,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); @@ -1106,8 +1166,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; @@ -1116,8 +1178,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); @@ -1137,8 +1201,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -1147,8 +1213,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -1168,8 +1236,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONValue: String; @@ -1178,8 +1248,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String); @@ -1199,8 +1271,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer; @@ -1209,8 +1283,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); @@ -1230,8 +1306,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetID_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAValue: Integer; @@ -1240,8 +1318,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); @@ -1261,8 +1341,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; @@ -1271,8 +1353,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); @@ -1292,8 +1376,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; @@ -1302,8 +1388,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); @@ -1323,8 +1411,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; @@ -1333,8 +1423,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); @@ -1354,8 +1446,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String; @@ -1364,8 +1458,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); @@ -1385,8 +1481,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: String; @@ -1395,8 +1493,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); @@ -1416,8 +1516,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetIMPORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEValue: Currency; @@ -1426,8 +1528,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); @@ -1447,8 +1551,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; @@ -1457,8 +1563,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); @@ -1478,8 +1586,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; @@ -1488,8 +1598,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); @@ -1509,8 +1621,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; @@ -1519,8 +1633,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); @@ -1540,8 +1656,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; @@ -1550,8 +1668,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); @@ -1571,8 +1691,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; @@ -1581,8 +1703,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); @@ -1602,8 +1726,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -1612,8 +1738,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -1633,8 +1761,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDATOS_BANCARIOS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDATOS_BANCARIOS]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; @@ -1643,8 +1773,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDATOS_BANCARIOS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDATOS_BANCARIOS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); @@ -1664,8 +1796,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; @@ -1674,8 +1808,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); @@ -1695,8 +1831,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; @@ -1705,8 +1843,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); @@ -1726,8 +1866,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; @@ -1736,8 +1878,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); @@ -1757,8 +1901,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String; @@ -1767,8 +1913,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String); @@ -1788,8 +1936,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String; @@ -1798,8 +1948,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String); @@ -1819,8 +1971,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String; @@ -1829,8 +1983,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); @@ -1850,8 +2006,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String; @@ -1860,8 +2018,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String); @@ -1881,8 +2041,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -1891,8 +2053,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -1912,8 +2076,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -1922,8 +2088,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -1943,8 +2111,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -1953,8 +2123,10 @@ begin end; function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -1968,6 +2140,146 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := Null; end; +function TRecibosClienteBusinessProcessorRules.GetENTIDADValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD]; +end; + +function TRecibosClienteBusinessProcessorRules.GetENTIDADIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldENTIDADValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetENTIDADValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD] := Null; +end; + +function TRecibosClienteBusinessProcessorRules.GetSUCURSALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL]; +end; + +function TRecibosClienteBusinessProcessorRules.GetSUCURSALIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldSUCURSALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetSUCURSALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL] := Null; +end; + +function TRecibosClienteBusinessProcessorRules.GetDCValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC]; +end; + +function TRecibosClienteBusinessProcessorRules.GetDCIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldDCValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldDCIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetDCValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC] := Null; +end; + +function TRecibosClienteBusinessProcessorRules.GetCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA]; +end; + +function TRecibosClienteBusinessProcessorRules.GetCUENTAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA] := Null; +end; + { TPagosClienteBusinessProcessorRules } constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -1986,8 +2298,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldIDValue: Integer; @@ -1996,8 +2310,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -2017,8 +2333,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetID_RECIBOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOValue: Integer; @@ -2027,8 +2345,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer); @@ -2048,8 +2368,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetTIPOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldTIPOValue: String; @@ -2058,8 +2380,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetTIPOValue(const aValue: String); @@ -2079,8 +2403,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime; @@ -2089,8 +2415,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime); @@ -2110,8 +2438,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetTITULARIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldTITULARValue: String; @@ -2120,8 +2450,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldTITULARIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetTITULARValue(const aValue: String); @@ -2141,8 +2473,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetENTIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldENTIDADValue: String; @@ -2151,8 +2485,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetENTIDADValue(const aValue: String); @@ -2172,8 +2508,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetSUCURSALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldSUCURSALValue: String; @@ -2182,8 +2520,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetSUCURSALValue(const aValue: String); @@ -2203,8 +2543,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetDCIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldDCValue: String; @@ -2213,8 +2555,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldDCIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetDCValue(const aValue: String); @@ -2234,8 +2578,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetCUENTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldCUENTAValue: String; @@ -2244,8 +2590,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetCUENTAValue(const aValue: String); @@ -2265,8 +2613,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -2275,8 +2625,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -2296,8 +2648,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -2306,8 +2660,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -2327,8 +2683,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPagosClienteBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -2337,8 +2695,10 @@ begin end; function TPagosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPagosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -2370,8 +2730,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDValue: Integer; @@ -2380,8 +2742,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -2401,8 +2765,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; @@ -2411,8 +2777,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); @@ -2432,8 +2800,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; @@ -2442,8 +2812,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); @@ -2463,8 +2835,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -2473,8 +2847,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -2494,8 +2870,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONValue: String; @@ -2504,8 +2882,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONValue(const aValue: String); @@ -2525,8 +2905,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAValue: Integer; @@ -2535,8 +2917,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); @@ -2556,8 +2940,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAValue: Integer; @@ -2566,8 +2952,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); @@ -2587,8 +2975,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; @@ -2597,8 +2987,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); @@ -2618,8 +3010,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; @@ -2628,8 +3022,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); @@ -2649,8 +3045,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; @@ -2659,8 +3057,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); @@ -2680,8 +3080,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONValue: String; @@ -2690,8 +3092,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); @@ -2711,8 +3115,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESValue: String; @@ -2721,8 +3127,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); @@ -2742,8 +3150,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEValue: Currency; @@ -2752,8 +3162,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); @@ -2773,8 +3185,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; @@ -2783,8 +3197,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); @@ -2804,8 +3220,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; @@ -2814,8 +3232,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); @@ -2835,8 +3255,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; @@ -2845,8 +3267,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); @@ -2866,8 +3290,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; @@ -2876,8 +3302,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); @@ -2897,8 +3325,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; @@ -2907,8 +3337,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); @@ -2928,8 +3360,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -2938,8 +3372,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -2959,8 +3395,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; @@ -2969,8 +3407,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); @@ -2990,8 +3430,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; @@ -3000,8 +3442,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); @@ -3021,8 +3465,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; @@ -3031,8 +3477,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); @@ -3052,8 +3500,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; @@ -3062,8 +3512,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); @@ -3083,8 +3535,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String; @@ -3093,8 +3547,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String); @@ -3114,8 +3570,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String; @@ -3124,8 +3582,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String); @@ -3145,8 +3605,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String; @@ -3155,8 +3617,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); @@ -3176,8 +3640,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String; @@ -3186,8 +3652,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String); @@ -3207,8 +3675,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -3217,8 +3687,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -3238,8 +3710,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -3248,8 +3722,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -3269,8 +3745,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -3279,8 +3757,10 @@ begin end; function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOValue(const aValue: String);