unit schPresupuestosServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schPresupuestosClient_Intf; const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } RID_ListaAnosPresupuestosDelta = '{FC74BF4F-DBCB-40A7-9939-935F32F3ADC0}'; RID_DetallesPresupuestosDelta = '{C37B1251-B984-4029-846F-2B30A25BAC11}'; RID_PresupuestosDelta = '{33560B0F-ADCB-4A5F-94D2-AED74BBAC7A6}'; RID_Presupuestos_RefreshDatasetDelta = '{B40C828C-F495-4BE7-85C2-4670FF7C4B03}'; RID_InformeCabeceraPresupuestoDelta = '{6285260E-3B0E-4DB0-A8A6-DDE3FF84220C}'; RID_InformeDetallesPresupuestoDelta = '{06FFD0BC-7D7D-457B-B402-6792784FEE19}'; type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) ['{FC74BF4F-DBCB-40A7-9939-935F32F3ADC0}'] { Property getters and setters } function GetOldANOValue : String; { Properties } property OldANO : String read GetOldANOValue; end; { TListaAnosPresupuestosBusinessProcessorRules } TListaAnosPresupuestosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosPresupuestos, IListaAnosPresupuestosDelta) private protected { Property getters and setters } function GetANOValue: String; virtual; function GetOldANOValue: String; virtual; procedure SetANOValue(const aValue: String); virtual; { Properties } property ANO : String read GetANOValue write SetANOValue; property OldANO : String read GetOldANOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDetallesPresupuestosDelta } IDetallesPresupuestosDelta = interface(IDetallesPresupuestos) ['{C37B1251-B984-4029-846F-2B30A25BAC11}'] { Property getters and setters } function GetOldCODIGOPRESUPUESTOValue : Integer; function GetOldNUMCONCEPTOValue : Integer; function GetOldDESCRIPCIONValue : String; function GetOldCANTIDADValue : Integer; function GetOldIMPORTEUNIDADValue : Currency; function GetOldIMPORTETOTALValue : Currency; function GetOldTIPOValue : String; function GetOldPOSICIONValue : Integer; function GetOldVISIBLEValue : String; function GetOldPUNTOSValue : Integer; function GetOldIMPORTEPUNTOSValue : Currency; function GetOldVALORADOValue : String; { Properties } property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue; property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OldTIPO : String read GetOldTIPOValue; property OldPOSICION : Integer read GetOldPOSICIONValue; property OldVISIBLE : String read GetOldVISIBLEValue; property OldPUNTOS : Integer read GetOldPUNTOSValue; property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue; property OldVALORADO : String read GetOldVALORADOValue; end; { TDetallesPresupuestosBusinessProcessorRules } TDetallesPresupuestosBusinessProcessorRules = class(TDABusinessProcessorRules, IDetallesPresupuestos, IDetallesPresupuestosDelta) private protected { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; virtual; function GetOldCODIGOPRESUPUESTOValue: Integer; virtual; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual; function GetNUMCONCEPTOValue: Integer; virtual; function GetOldNUMCONCEPTOValue: Integer; virtual; procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCANTIDADValue: Integer; virtual; function GetOldCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTEUNIDADValue: Currency; virtual; function GetOldIMPORTEUNIDADValue: Currency; virtual; procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual; function GetIMPORTETOTALValue: Currency; virtual; function GetOldIMPORTETOTALValue: Currency; virtual; procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; function GetOldPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; function GetVISIBLEValue: String; virtual; function GetOldVISIBLEValue: String; virtual; procedure SetVISIBLEValue(const aValue: String); virtual; function GetPUNTOSValue: Integer; virtual; function GetOldPUNTOSValue: Integer; virtual; procedure SetPUNTOSValue(const aValue: Integer); virtual; function GetIMPORTEPUNTOSValue: Currency; virtual; function GetOldIMPORTEPUNTOSValue: Currency; virtual; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual; function GetVALORADOValue: String; virtual; function GetOldVALORADOValue: String; virtual; procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue; property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property IMPORTEUNIDAD : Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue; property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue; property VISIBLE : String read GetVISIBLEValue write SetVISIBLEValue; property OldVISIBLE : String read GetOldVISIBLEValue; property PUNTOS : Integer read GetPUNTOSValue write SetPUNTOSValue; property OldPUNTOS : Integer read GetOldPUNTOSValue; property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue; property VALORADO : String read GetVALORADOValue write SetVALORADOValue; property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IPresupuestosDelta } IPresupuestosDelta = interface(IPresupuestos) ['{33560B0F-ADCB-4A5F-94D2-AED74BBAC7A6}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; function GetOldFECHAALTAValue : DateTime; function GetOldUSUARIOValue : String; function GetOldCODIGOCONTACTOValue : Integer; function GetOldNOMBREValue : String; function GetOldNIF_CIFValue : String; function GetOldREFERENCIAValue : String; function GetOldTIPOValue : String; function GetOldFECHAPRESUPUESTOValue : DateTime; function GetOldVIGENCIAPRESUPUESTOValue : DateTime; function GetOldSITUACIONValue : String; function GetOldFECHADECISIONValue : DateTime; function GetOldBASEIMPONIBLEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldIMPORTEDESCUENTOValue : Currency; function GetOldIVAValue : Float; function GetOldIMPORTEIVAValue : Currency; function GetOldIMPORTETOTALValue : Currency; function GetOldOBSERVACIONESValue : IROStrings; function GetOldPLAZOENTREGAValue : IROStrings; function GetOldFORMAPAGOValue : IROStrings; function GetOldCODIGOALBARANValue : Integer; function GetOldALBARANValue : String; function GetOldOPCIONValue : String; { Properties } property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue; property OldCODIGO : Integer read GetOldCODIGOValue; property OldFECHAALTA : DateTime read GetOldFECHAALTAValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldTIPO : String read GetOldTIPOValue; property OldFECHAPRESUPUESTO : DateTime read GetOldFECHAPRESUPUESTOValue; property OldVIGENCIAPRESUPUESTO : DateTime read GetOldVIGENCIAPRESUPUESTOValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldFECHADECISION : DateTime read GetOldFECHADECISIONValue; property OldBASEIMPONIBLE : Currency read GetOldBASEIMPONIBLEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTEDESCUENTO : Currency read GetOldIMPORTEDESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTEIVA : Currency read GetOldIMPORTEIVAValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldPLAZOENTREGA : IROStrings read GetOldPLAZOENTREGAValue; property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue; property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property OldALBARAN : String read GetOldALBARANValue; property OldOPCION : String read GetOldOPCIONValue; end; { TPresupuestosBusinessProcessorRules } TPresupuestosBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestos, IPresupuestosDelta) private protected { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; virtual; function GetOldCODIGOEMPRESAValue: Integer; virtual; procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual; function GetCODIGOValue: Integer; virtual; function GetOldCODIGOValue: Integer; virtual; procedure SetCODIGOValue(const aValue: Integer); virtual; function GetFECHAALTAValue: DateTime; virtual; function GetOldFECHAALTAValue: DateTime; virtual; procedure SetFECHAALTAValue(const aValue: DateTime); virtual; function GetUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetCODIGOCONTACTOValue: Integer; virtual; function GetOldCODIGOCONTACTOValue: Integer; virtual; procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual; function GetNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNIF_CIFValue: String; virtual; function GetOldNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetFECHAPRESUPUESTOValue: DateTime; virtual; function GetOldFECHAPRESUPUESTOValue: DateTime; virtual; procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetVIGENCIAPRESUPUESTOValue: DateTime; virtual; function GetOldVIGENCIAPRESUPUESTOValue: DateTime; virtual; procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetFECHADECISIONValue: DateTime; virtual; function GetOldFECHADECISIONValue: DateTime; virtual; procedure SetFECHADECISIONValue(const aValue: DateTime); virtual; function GetBASEIMPONIBLEValue: Currency; virtual; function GetOldBASEIMPONIBLEValue: Currency; virtual; procedure SetBASEIMPONIBLEValue(const aValue: Currency); virtual; function GetDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetIMPORTEDESCUENTOValue: Currency; virtual; function GetOldIMPORTEDESCUENTOValue: Currency; virtual; procedure SetIMPORTEDESCUENTOValue(const aValue: Currency); virtual; function GetIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetIMPORTEIVAValue: Currency; virtual; function GetOldIMPORTEIVAValue: Currency; virtual; procedure SetIMPORTEIVAValue(const aValue: Currency); virtual; function GetIMPORTETOTALValue: Currency; virtual; function GetOldIMPORTETOTALValue: Currency; virtual; procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetOBSERVACIONESValue: IROStrings; virtual; function GetOldOBSERVACIONESValue: IROStrings; virtual; procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual; function GetPLAZOENTREGAValue: IROStrings; virtual; function GetOldPLAZOENTREGAValue: IROStrings; virtual; procedure SetPLAZOENTREGAValue(const aValue: IROStrings); virtual; function GetFORMAPAGOValue: IROStrings; virtual; function GetOldFORMAPAGOValue: IROStrings; virtual; procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual; function GetCODIGOALBARANValue: Integer; virtual; function GetOldCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); virtual; function GetALBARANValue: String; virtual; function GetOldALBARANValue: String; virtual; procedure SetALBARANValue(const aValue: String); virtual; function GetOPCIONValue: String; virtual; function GetOldOPCIONValue: String; virtual; procedure SetOPCIONValue(const aValue: String); virtual; { Properties } property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue; property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue; property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue; property OldCODIGO : Integer read GetOldCODIGOValue; property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue; property OldFECHAALTA : DateTime read GetOldFECHAALTAValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue; property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property FECHAPRESUPUESTO : DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue; property OldFECHAPRESUPUESTO : DateTime read GetOldFECHAPRESUPUESTOValue; property VIGENCIAPRESUPUESTO : DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue; property OldVIGENCIAPRESUPUESTO : DateTime read GetOldVIGENCIAPRESUPUESTOValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property FECHADECISION : DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue; property OldFECHADECISION : DateTime read GetOldFECHADECISIONValue; property BASEIMPONIBLE : Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue; property OldBASEIMPONIBLE : Currency read GetOldBASEIMPONIBLEValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property IMPORTEDESCUENTO : Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue; property OldIMPORTEDESCUENTO : Currency read GetOldIMPORTEDESCUENTOValue; property IVA : Float read GetIVAValue write SetIVAValue; property OldIVA : Float read GetOldIVAValue; property IMPORTEIVA : Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue; property OldIMPORTEIVA : Currency read GetOldIMPORTEIVAValue; property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property PLAZOENTREGA : IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue; property OldPLAZOENTREGA : IROStrings read GetOldPLAZOENTREGAValue; property FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue; property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property ALBARAN : String read GetALBARANValue write SetALBARANValue; property OldALBARAN : String read GetOldALBARANValue; property OPCION : String read GetOPCIONValue write SetOPCIONValue; property OldOPCION : String read GetOldOPCIONValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IPresupuestos_RefreshDatasetDelta } IPresupuestos_RefreshDatasetDelta = interface(IPresupuestos_RefreshDataset) ['{B40C828C-F495-4BE7-85C2-4670FF7C4B03}'] { Property getters and setters } function GetOldCODIGOValue : Integer; function GetOldNOMBREValue : String; function GetOldREFERENCIAValue : String; function GetOldCODIGOALBARANValue : Integer; function GetOldALBARANValue : String; { Properties } property OldCODIGO : Integer read GetOldCODIGOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property OldALBARAN : String read GetOldALBARANValue; end; { TPresupuestos_RefreshDatasetBusinessProcessorRules } TPresupuestos_RefreshDatasetBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestos_RefreshDataset, IPresupuestos_RefreshDatasetDelta) private protected { Property getters and setters } function GetCODIGOValue: Integer; virtual; function GetOldCODIGOValue: Integer; virtual; procedure SetCODIGOValue(const aValue: Integer); virtual; function GetNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetCODIGOALBARANValue: Integer; virtual; function GetOldCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); virtual; function GetALBARANValue: String; virtual; function GetOldALBARANValue: String; virtual; procedure SetALBARANValue(const aValue: String); virtual; { Properties } property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue; property OldCODIGO : Integer read GetOldCODIGOValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property ALBARAN : String read GetALBARANValue write SetALBARANValue; property OldALBARAN : String read GetOldALBARANValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IInformeCabeceraPresupuestoDelta } IInformeCabeceraPresupuestoDelta = interface(IInformeCabeceraPresupuesto) ['{6285260E-3B0E-4DB0-A8A6-DDE3FF84220C}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; function GetOldFECHAALTAValue : DateTime; function GetOldUSUARIOValue : String; function GetOldCODIGOCONTACTOValue : Integer; function GetOldREFERENCIAValue : String; function GetOldTIPOValue : String; function GetOldFECHAPRESUPUESTOValue : DateTime; function GetOldVIGENCIAPRESUPUESTOValue : DateTime; function GetOldSITUACIONValue : String; function GetOldFECHADECISIONValue : DateTime; function GetOldBASEIMPONIBLEValue : Float; function GetOldDESCUENTOValue : Float; function GetOldIMPORTEDESCUENTOValue : Float; function GetOldIVAValue : Float; function GetOldIMPORTEIVAValue : Float; function GetOldIMPORTETOTALValue : Float; function GetOldOBSERVACIONESValue : IROStrings; function GetOldPLAZOENTREGAValue : IROStrings; function GetOldFORMAPAGOValue : IROStrings; function GetOldNOMBREValue : String; function GetOldNIF_CIFValue : String; function GetOldNOMBRE1Value : String; function GetOldCALLEValue : String; function GetOldCODIGOPOSTALValue : String; function GetOldPOBLACIONValue : String; function GetOldTELEFONO1Value : String; function GetOldTELEFONO2Value : String; function GetOldMOVILValue : String; function GetOldOPCIONValue : String; function GetOldCODIGOALBARANValue : Integer; function GetOldALBARANValue : String; { Properties } property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue; property OldCODIGO : Integer read GetOldCODIGOValue; property OldFECHAALTA : DateTime read GetOldFECHAALTAValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldTIPO : String read GetOldTIPOValue; property OldFECHAPRESUPUESTO : DateTime read GetOldFECHAPRESUPUESTOValue; property OldVIGENCIAPRESUPUESTO : DateTime read GetOldVIGENCIAPRESUPUESTOValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldFECHADECISION : DateTime read GetOldFECHADECISIONValue; property OldBASEIMPONIBLE : Float read GetOldBASEIMPONIBLEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTEDESCUENTO : Float read GetOldIMPORTEDESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTEIVA : Float read GetOldIMPORTEIVAValue; property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldPLAZOENTREGA : IROStrings read GetOldPLAZOENTREGAValue; property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNOMBRE1 : String read GetOldNOMBRE1Value; property OldCALLE : String read GetOldCALLEValue; property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldTELEFONO1 : String read GetOldTELEFONO1Value; property OldTELEFONO2 : String read GetOldTELEFONO2Value; property OldMOVIL : String read GetOldMOVILValue; property OldOPCION : String read GetOldOPCIONValue; property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property OldALBARAN : String read GetOldALBARANValue; end; { TInformeCabeceraPresupuestoBusinessProcessorRules } TInformeCabeceraPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeCabeceraPresupuesto, IInformeCabeceraPresupuestoDelta) private protected { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; virtual; function GetOldCODIGOEMPRESAValue: Integer; virtual; procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual; function GetCODIGOValue: Integer; virtual; function GetOldCODIGOValue: Integer; virtual; procedure SetCODIGOValue(const aValue: Integer); virtual; function GetFECHAALTAValue: DateTime; virtual; function GetOldFECHAALTAValue: DateTime; virtual; procedure SetFECHAALTAValue(const aValue: DateTime); virtual; function GetUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetCODIGOCONTACTOValue: Integer; virtual; function GetOldCODIGOCONTACTOValue: Integer; virtual; procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetFECHAPRESUPUESTOValue: DateTime; virtual; function GetOldFECHAPRESUPUESTOValue: DateTime; virtual; procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetVIGENCIAPRESUPUESTOValue: DateTime; virtual; function GetOldVIGENCIAPRESUPUESTOValue: DateTime; virtual; procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetFECHADECISIONValue: DateTime; virtual; function GetOldFECHADECISIONValue: DateTime; virtual; procedure SetFECHADECISIONValue(const aValue: DateTime); virtual; function GetBASEIMPONIBLEValue: Float; virtual; function GetOldBASEIMPONIBLEValue: Float; virtual; procedure SetBASEIMPONIBLEValue(const aValue: Float); virtual; function GetDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetIMPORTEDESCUENTOValue: Float; virtual; function GetOldIMPORTEDESCUENTOValue: Float; virtual; procedure SetIMPORTEDESCUENTOValue(const aValue: Float); virtual; function GetIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetIMPORTEIVAValue: Float; virtual; function GetOldIMPORTEIVAValue: Float; virtual; procedure SetIMPORTEIVAValue(const aValue: Float); virtual; function GetIMPORTETOTALValue: Float; virtual; function GetOldIMPORTETOTALValue: Float; virtual; procedure SetIMPORTETOTALValue(const aValue: Float); virtual; function GetOBSERVACIONESValue: IROStrings; virtual; function GetOldOBSERVACIONESValue: IROStrings; virtual; procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual; function GetPLAZOENTREGAValue: IROStrings; virtual; function GetOldPLAZOENTREGAValue: IROStrings; virtual; procedure SetPLAZOENTREGAValue(const aValue: IROStrings); virtual; function GetFORMAPAGOValue: IROStrings; virtual; function GetOldFORMAPAGOValue: IROStrings; virtual; procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual; function GetNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNIF_CIFValue: String; virtual; function GetOldNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNOMBRE1Value: String; virtual; function GetOldNOMBRE1Value: String; virtual; procedure SetNOMBRE1Value(const aValue: String); virtual; function GetCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCODIGOPOSTALValue: String; virtual; function GetOldCODIGOPOSTALValue: String; virtual; procedure SetCODIGOPOSTALValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; function GetOldPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetTELEFONO1Value: String; virtual; function GetOldTELEFONO1Value: String; virtual; procedure SetTELEFONO1Value(const aValue: String); virtual; function GetTELEFONO2Value: String; virtual; function GetOldTELEFONO2Value: String; virtual; procedure SetTELEFONO2Value(const aValue: String); virtual; function GetMOVILValue: String; virtual; function GetOldMOVILValue: String; virtual; procedure SetMOVILValue(const aValue: String); virtual; function GetOPCIONValue: String; virtual; function GetOldOPCIONValue: String; virtual; procedure SetOPCIONValue(const aValue: String); virtual; function GetCODIGOALBARANValue: Integer; virtual; function GetOldCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); virtual; function GetALBARANValue: String; virtual; function GetOldALBARANValue: String; virtual; procedure SetALBARANValue(const aValue: String); virtual; { Properties } property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue; property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue; property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue; property OldCODIGO : Integer read GetOldCODIGOValue; property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue; property OldFECHAALTA : DateTime read GetOldFECHAALTAValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue; property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property FECHAPRESUPUESTO : DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue; property OldFECHAPRESUPUESTO : DateTime read GetOldFECHAPRESUPUESTOValue; property VIGENCIAPRESUPUESTO : DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue; property OldVIGENCIAPRESUPUESTO : DateTime read GetOldVIGENCIAPRESUPUESTOValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property FECHADECISION : DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue; property OldFECHADECISION : DateTime read GetOldFECHADECISIONValue; property BASEIMPONIBLE : Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue; property OldBASEIMPONIBLE : Float read GetOldBASEIMPONIBLEValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property IMPORTEDESCUENTO : Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue; property OldIMPORTEDESCUENTO : Float read GetOldIMPORTEDESCUENTOValue; property IVA : Float read GetIVAValue write SetIVAValue; property OldIVA : Float read GetOldIVAValue; property IMPORTEIVA : Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue; property OldIMPORTEIVA : Float read GetOldIMPORTEIVAValue; property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue; property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property PLAZOENTREGA : IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue; property OldPLAZOENTREGA : IROStrings read GetOldPLAZOENTREGAValue; property FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property NOMBRE1 : String read GetNOMBRE1Value write SetNOMBRE1Value; property OldNOMBRE1 : String read GetOldNOMBRE1Value; property CALLE : String read GetCALLEValue write SetCALLEValue; property OldCALLE : String read GetOldCALLEValue; property CODIGOPOSTAL : String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property TELEFONO1 : String read GetTELEFONO1Value write SetTELEFONO1Value; property OldTELEFONO1 : String read GetOldTELEFONO1Value; property TELEFONO2 : String read GetTELEFONO2Value write SetTELEFONO2Value; property OldTELEFONO2 : String read GetOldTELEFONO2Value; property MOVIL : String read GetMOVILValue write SetMOVILValue; property OldMOVIL : String read GetOldMOVILValue; property OPCION : String read GetOPCIONValue write SetOPCIONValue; property OldOPCION : String read GetOldOPCIONValue; property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property ALBARAN : String read GetALBARANValue write SetALBARANValue; property OldALBARAN : String read GetOldALBARANValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IInformeDetallesPresupuestoDelta } IInformeDetallesPresupuestoDelta = interface(IInformeDetallesPresupuesto) ['{06FFD0BC-7D7D-457B-B402-6792784FEE19}'] { Property getters and setters } function GetOldCODIGOPRESUPUESTOValue : Integer; function GetOldNUMCONCEPTOValue : Integer; function GetOldDESCRIPCIONValue : String; function GetOldCANTIDADValue : Integer; function GetOldIMPORTEUNIDADValue : Currency; function GetOldIMPORTETOTALValue : Currency; function GetOldTIPOValue : String; function GetOldPOSICIONValue : Integer; function GetOldVALORADOValue : String; { Properties } property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue; property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OldTIPO : String read GetOldTIPOValue; property OldPOSICION : Integer read GetOldPOSICIONValue; property OldVALORADO : String read GetOldVALORADOValue; end; { TInformeDetallesPresupuestoBusinessProcessorRules } TInformeDetallesPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeDetallesPresupuesto, IInformeDetallesPresupuestoDelta) private protected { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; virtual; function GetOldCODIGOPRESUPUESTOValue: Integer; virtual; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual; function GetNUMCONCEPTOValue: Integer; virtual; function GetOldNUMCONCEPTOValue: Integer; virtual; procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCANTIDADValue: Integer; virtual; function GetOldCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTEUNIDADValue: Currency; virtual; function GetOldIMPORTEUNIDADValue: Currency; virtual; procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual; function GetIMPORTETOTALValue: Currency; virtual; function GetOldIMPORTETOTALValue: Currency; virtual; procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; function GetOldPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; function GetVALORADOValue: String; virtual; function GetOldVALORADOValue: String; virtual; procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue; property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property IMPORTEUNIDAD : Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue; property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue; property VALORADO : String read GetVALORADOValue write SetVALORADOValue; property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { TListaAnosPresupuestosBusinessProcessorRules } constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TListaAnosPresupuestosBusinessProcessorRules.Destroy; begin inherited; end; function TListaAnosPresupuestosBusinessProcessorRules.GetANOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPresupuestosANO]; end; function TListaAnosPresupuestosBusinessProcessorRules.GetOldANOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPresupuestosANO]; end; procedure TListaAnosPresupuestosBusinessProcessorRules.SetANOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPresupuestosANO] := aValue; end; { TDetallesPresupuestosBusinessProcessorRules } constructor TDetallesPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDetallesPresupuestosBusinessProcessorRules.Destroy; begin inherited; end; function TDetallesPresupuestosBusinessProcessorRules.GetCODIGOPRESUPUESTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosCODIGOPRESUPUESTO]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldCODIGOPRESUPUESTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosCODIGOPRESUPUESTO]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosCODIGOPRESUPUESTO] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetNUMCONCEPTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosNUMCONCEPTO]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosNUMCONCEPTO]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetNUMCONCEPTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosNUMCONCEPTO] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosDESCRIPCION]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosDESCRIPCION]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosDESCRIPCION] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosCANTIDAD]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosCANTIDAD]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosCANTIDAD] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTEUNIDAD]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosIMPORTEUNIDAD]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetIMPORTEUNIDADValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTEUNIDAD] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetIMPORTETOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTETOTAL]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosIMPORTETOTAL]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTETOTAL] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosTIPO]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosTIPO]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosTIPO] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetPOSICIONValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosPOSICION]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldPOSICIONValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosPOSICION]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosPOSICION] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetVISIBLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVISIBLE]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldVISIBLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosVISIBLE]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetVISIBLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVISIBLE] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetPUNTOSValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosPUNTOS]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldPUNTOSValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosPUNTOS]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetPUNTOSValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosPUNTOS] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetIMPORTEPUNTOSValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTEPUNTOS]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldIMPORTEPUNTOSValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosIMPORTEPUNTOS]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetIMPORTEPUNTOSValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTEPUNTOS] := aValue; end; function TDetallesPresupuestosBusinessProcessorRules.GetVALORADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVALORADO]; end; function TDetallesPresupuestosBusinessProcessorRules.GetOldVALORADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosVALORADO]; end; procedure TDetallesPresupuestosBusinessProcessorRules.SetVALORADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVALORADO] := aValue; end; { TPresupuestosBusinessProcessorRules } constructor TPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TPresupuestosBusinessProcessorRules.Destroy; begin inherited; end; function TPresupuestosBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOEMPRESA]; end; function TPresupuestosBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCODIGOEMPRESA]; end; procedure TPresupuestosBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOEMPRESA] := aValue; end; function TPresupuestosBusinessProcessorRules.GetCODIGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGO]; end; function TPresupuestosBusinessProcessorRules.GetOldCODIGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCODIGO]; end; procedure TPresupuestosBusinessProcessorRules.SetCODIGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetFECHAALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFECHAALTA]; end; function TPresupuestosBusinessProcessorRules.GetOldFECHAALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosFECHAALTA]; end; procedure TPresupuestosBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFECHAALTA] := aValue; end; function TPresupuestosBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosUSUARIO]; end; function TPresupuestosBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosUSUARIO]; end; procedure TPresupuestosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosUSUARIO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOCONTACTO]; end; function TPresupuestosBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCODIGOCONTACTO]; end; procedure TPresupuestosBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOCONTACTO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosNOMBRE]; end; function TPresupuestosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosNOMBRE]; end; procedure TPresupuestosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosNOMBRE] := aValue; end; function TPresupuestosBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosNIF_CIF]; end; function TPresupuestosBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosNIF_CIF]; end; procedure TPresupuestosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosNIF_CIF] := aValue; end; function TPresupuestosBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosREFERENCIA]; end; function TPresupuestosBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosREFERENCIA]; end; procedure TPresupuestosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosREFERENCIA] := aValue; end; function TPresupuestosBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosTIPO]; end; function TPresupuestosBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosTIPO]; end; procedure TPresupuestosBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosTIPO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetFECHAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFECHAPRESUPUESTO]; end; function TPresupuestosBusinessProcessorRules.GetOldFECHAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosFECHAPRESUPUESTO]; end; procedure TPresupuestosBusinessProcessorRules.SetFECHAPRESUPUESTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFECHAPRESUPUESTO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetVIGENCIAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosVIGENCIAPRESUPUESTO]; end; function TPresupuestosBusinessProcessorRules.GetOldVIGENCIAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosVIGENCIAPRESUPUESTO]; end; procedure TPresupuestosBusinessProcessorRules.SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosVIGENCIAPRESUPUESTO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosSITUACION]; end; function TPresupuestosBusinessProcessorRules.GetOldSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosSITUACION]; end; procedure TPresupuestosBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosSITUACION] := aValue; end; function TPresupuestosBusinessProcessorRules.GetFECHADECISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFECHADECISION]; end; function TPresupuestosBusinessProcessorRules.GetOldFECHADECISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosFECHADECISION]; end; procedure TPresupuestosBusinessProcessorRules.SetFECHADECISIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFECHADECISION] := aValue; end; function TPresupuestosBusinessProcessorRules.GetBASEIMPONIBLEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosBASEIMPONIBLE]; end; function TPresupuestosBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosBASEIMPONIBLE]; end; procedure TPresupuestosBusinessProcessorRules.SetBASEIMPONIBLEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosBASEIMPONIBLE] := aValue; end; function TPresupuestosBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosDESCUENTO]; end; function TPresupuestosBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosDESCUENTO]; end; procedure TPresupuestosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosDESCUENTO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIMPORTEDESCUENTO]; end; function TPresupuestosBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosIMPORTEDESCUENTO]; end; procedure TPresupuestosBusinessProcessorRules.SetIMPORTEDESCUENTOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIMPORTEDESCUENTO] := aValue; end; function TPresupuestosBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIVA]; end; function TPresupuestosBusinessProcessorRules.GetOldIVAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosIVA]; end; procedure TPresupuestosBusinessProcessorRules.SetIVAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIVA] := aValue; end; function TPresupuestosBusinessProcessorRules.GetIMPORTEIVAValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIMPORTEIVA]; end; function TPresupuestosBusinessProcessorRules.GetOldIMPORTEIVAValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosIMPORTEIVA]; end; procedure TPresupuestosBusinessProcessorRules.SetIMPORTEIVAValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIMPORTEIVA] := aValue; end; function TPresupuestosBusinessProcessorRules.GetIMPORTETOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIMPORTETOTAL]; end; function TPresupuestosBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosIMPORTETOTAL]; end; procedure TPresupuestosBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosIMPORTETOTAL] := aValue; end; function TPresupuestosBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosOBSERVACIONES]; end; function TPresupuestosBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosOBSERVACIONES]; end; procedure TPresupuestosBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosOBSERVACIONES] := aValue.Text; end; function TPresupuestosBusinessProcessorRules.GetPLAZOENTREGAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosPLAZOENTREGA]; end; function TPresupuestosBusinessProcessorRules.GetOldPLAZOENTREGAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosPLAZOENTREGA]; end; procedure TPresupuestosBusinessProcessorRules.SetPLAZOENTREGAValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosPLAZOENTREGA] := aValue.Text; end; function TPresupuestosBusinessProcessorRules.GetFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFORMAPAGO]; end; function TPresupuestosBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosFORMAPAGO]; end; procedure TPresupuestosBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosFORMAPAGO] := aValue.Text; end; function TPresupuestosBusinessProcessorRules.GetCODIGOALBARANValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOALBARAN]; end; function TPresupuestosBusinessProcessorRules.GetOldCODIGOALBARANValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCODIGOALBARAN]; end; procedure TPresupuestosBusinessProcessorRules.SetCODIGOALBARANValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOALBARAN] := aValue; end; function TPresupuestosBusinessProcessorRules.GetALBARANValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosALBARAN]; end; function TPresupuestosBusinessProcessorRules.GetOldALBARANValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosALBARAN]; end; procedure TPresupuestosBusinessProcessorRules.SetALBARANValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosALBARAN] := aValue; end; function TPresupuestosBusinessProcessorRules.GetOPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosOPCION]; end; function TPresupuestosBusinessProcessorRules.GetOldOPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosOPCION]; end; procedure TPresupuestosBusinessProcessorRules.SetOPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosOPCION] := aValue; end; { TPresupuestos_RefreshDatasetBusinessProcessorRules } constructor TPresupuestos_RefreshDatasetBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TPresupuestos_RefreshDatasetBusinessProcessorRules.Destroy; begin inherited; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetCODIGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetCODIGO]; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldCODIGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetCODIGO]; end; procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetCODIGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetCODIGO] := aValue; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetNOMBRE]; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetNOMBRE]; end; procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetNOMBRE] := aValue; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetREFERENCIA]; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetREFERENCIA]; end; procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetREFERENCIA] := aValue; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetCODIGOALBARANValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetCODIGOALBARAN]; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldCODIGOALBARANValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetCODIGOALBARAN]; end; procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetCODIGOALBARANValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetCODIGOALBARAN] := aValue; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetALBARANValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetALBARAN]; end; function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldALBARANValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetALBARAN]; end; procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetALBARANValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetALBARAN] := aValue; end; { TInformeCabeceraPresupuestoBusinessProcessorRules } constructor TInformeCabeceraPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TInformeCabeceraPresupuestoBusinessProcessorRules.Destroy; begin inherited; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOEMPRESA]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoCODIGOEMPRESA]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOEMPRESA] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetCODIGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldCODIGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoCODIGO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetCODIGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetFECHAALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFECHAALTA]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldFECHAALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoFECHAALTA]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFECHAALTA] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoUSUARIO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoUSUARIO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoUSUARIO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOCONTACTO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoCODIGOCONTACTO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOCONTACTO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoREFERENCIA]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoREFERENCIA]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoREFERENCIA] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoTIPO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoTIPO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoTIPO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetFECHAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFECHAPRESUPUESTO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldFECHAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoFECHAPRESUPUESTO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetFECHAPRESUPUESTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFECHAPRESUPUESTO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetVIGENCIAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldVIGENCIAPRESUPUESTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoSITUACION]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoSITUACION]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoSITUACION] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetFECHADECISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFECHADECISION]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldFECHADECISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoFECHADECISION]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetFECHADECISIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFECHADECISION] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetBASEIMPONIBLEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoBASEIMPONIBLE]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoBASEIMPONIBLE]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetBASEIMPONIBLEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoBASEIMPONIBLE] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoDESCUENTO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoDESCUENTO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoDESCUENTO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIMPORTEDESCUENTO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoIMPORTEDESCUENTO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetIMPORTEDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIMPORTEDESCUENTO] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIVA]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldIVAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoIVA]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetIVAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIVA] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetIMPORTEIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIMPORTEIVA]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldIMPORTEIVAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoIMPORTEIVA]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetIMPORTEIVAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIMPORTEIVA] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetIMPORTETOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIMPORTETOTAL]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldIMPORTETOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoIMPORTETOTAL]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoIMPORTETOTAL] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoOBSERVACIONES]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoOBSERVACIONES]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoOBSERVACIONES] := aValue.Text; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetPLAZOENTREGAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoPLAZOENTREGA]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldPLAZOENTREGAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoPLAZOENTREGA]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetPLAZOENTREGAValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoPLAZOENTREGA] := aValue.Text; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFORMAPAGO]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoFORMAPAGO]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoFORMAPAGO] := aValue.Text; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNOMBRE]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoNOMBRE]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNOMBRE] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNIF_CIF]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoNIF_CIF]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNIF_CIF] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetNOMBRE1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNOMBRE1]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldNOMBRE1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoNOMBRE1]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetNOMBRE1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNOMBRE1] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCALLE]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoCALLE]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCALLE] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetCODIGOPOSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOPOSTAL]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldCODIGOPOSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoCODIGOPOSTAL]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetCODIGOPOSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOPOSTAL] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoPOBLACION]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoPOBLACION]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoPOBLACION] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetTELEFONO1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoTELEFONO1]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldTELEFONO1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoTELEFONO1]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetTELEFONO1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoTELEFONO1] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetTELEFONO2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoTELEFONO2]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldTELEFONO2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoTELEFONO2]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetTELEFONO2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoTELEFONO2] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetMOVILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoMOVIL]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldMOVILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoMOVIL]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetMOVILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoMOVIL] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoOPCION]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldOPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoOPCION]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetOPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoOPCION] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetCODIGOALBARANValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOALBARAN]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldCODIGOALBARANValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoCODIGOALBARAN]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetCODIGOALBARANValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoCODIGOALBARAN] := aValue; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetALBARANValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoALBARAN]; end; function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldALBARANValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoALBARAN]; end; procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetALBARANValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoALBARAN] := aValue; end; { TInformeDetallesPresupuestoBusinessProcessorRules } constructor TInformeDetallesPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TInformeDetallesPresupuestoBusinessProcessorRules.Destroy; begin inherited; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetCODIGOPRESUPUESTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoCODIGOPRESUPUESTO]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldCODIGOPRESUPUESTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoCODIGOPRESUPUESTO]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoCODIGOPRESUPUESTO] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetNUMCONCEPTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoNUMCONCEPTO]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoNUMCONCEPTO]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetNUMCONCEPTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoNUMCONCEPTO] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoDESCRIPCION]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoDESCRIPCION]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoDESCRIPCION] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoCANTIDAD]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoCANTIDAD]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoCANTIDAD] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoIMPORTEUNIDAD]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoIMPORTEUNIDAD]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetIMPORTEUNIDADValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoIMPORTEUNIDAD] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetIMPORTETOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoIMPORTETOTAL]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoIMPORTETOTAL]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoIMPORTETOTAL] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoTIPO]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoTIPO]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoTIPO] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetPOSICIONValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoPOSICION]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldPOSICIONValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoPOSICION]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoPOSICION] := aValue; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetVALORADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoVALORADO]; end; function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldVALORADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoVALORADO]; end; procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetVALORADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoVALORADO] := aValue; end; initialization RegisterBusinessProcessorRules(RID_ListaAnosPresupuestosDelta, TListaAnosPresupuestosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DetallesPresupuestosDelta, TDetallesPresupuestosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PresupuestosDelta, TPresupuestosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_Presupuestos_RefreshDatasetDelta, TPresupuestos_RefreshDatasetBusinessProcessorRules); RegisterBusinessProcessorRules(RID_InformeCabeceraPresupuestoDelta, TInformeCabeceraPresupuestoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_InformeDetallesPresupuestoDelta, TInformeDetallesPresupuestoBusinessProcessorRules); end.