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_DarReferenciaPresupuestoDelta = '{4B701A1F-ACC9-4D23-935E-8B328BF582F5}';
  RID_DetallesPresupuestosDelta = '{C45170EB-B358-436C-BF5C-C7E3C11148DE}';
  RID_PresupuestosDelta = '{541676C9-1DFB-4C07-921F-F4CE705366E4}';
  RID_Presupuestos_RefreshDatasetDelta = '{81B341DA-DAC7-43A0-B8C4-8F7155EF6ECB}';
  RID_InformeCabeceraPresupuestoDelta = '{BF1CB438-CA21-4772-965C-614E91DD779F}';
  RID_InformeDetallesPresupuestoDelta = '{5A7FBD68-E8E5-4F9A-BC4C-72EB878826A8}';

type
  { IDarReferenciaPresupuestoDelta }
  IDarReferenciaPresupuestoDelta = interface(IDarReferenciaPresupuesto)
  ['{4B701A1F-ACC9-4D23-935E-8B328BF582F5}']
    { Property getters and setters }
    function GetOldREFERENCIAValue : String;

    { Properties }
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
  end;

  { TDarReferenciaPresupuestoBusinessProcessorRules }
  TDarReferenciaPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferenciaPresupuesto, IDarReferenciaPresupuestoDelta)
  private
  protected
    { Property getters and setters }
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;

    { Properties }
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IDetallesPresupuestosDelta }
  IDetallesPresupuestosDelta = interface(IDetallesPresupuestos)
  ['{C45170EB-B358-436C-BF5C-C7E3C11148DE}']
    { 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;

    { 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;
  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;

    { 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IPresupuestosDelta }
  IPresupuestosDelta = interface(IPresupuestos)
  ['{541676C9-1DFB-4C07-921F-F4CE705366E4}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : 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;

    { 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 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;
  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 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;

    { 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 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IPresupuestos_RefreshDatasetDelta }
  IPresupuestos_RefreshDatasetDelta = interface(IPresupuestos_RefreshDataset)
  ['{81B341DA-DAC7-43A0-B8C4-8F7155EF6ECB}']
    { Property getters and setters }
    function GetOldCODIGOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCODIGOALBARANValue : Integer;

    { Properties }
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
  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 GetCODIGOALBARANValue: Integer; virtual;
    function GetOldCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); 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 CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IInformeCabeceraPresupuestoDelta }
  IInformeCabeceraPresupuestoDelta = interface(IInformeCabeceraPresupuesto)
  ['{BF1CB438-CA21-4772-965C-614E91DD779F}']
    { 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 GetOldNIFCIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldTELEFONO1Value : String;
    function GetOldTELEFONO2Value : String;
    function GetOldMOVILValue : 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 OldNIFCIF : String read GetOldNIFCIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    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;
  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 GetNIFCIFValue: String; virtual;
    function GetOldNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(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;

    { 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 NIFCIF : String read GetNIFCIFValue write SetNIFCIFValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IInformeDetallesPresupuestoDelta }
  IInformeDetallesPresupuestoDelta = interface(IInformeDetallesPresupuesto)
  ['{5A7FBD68-E8E5-4F9A-BC4C-72EB878826A8}']
    { 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;

    { 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;
  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;

    { 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

implementation

uses
  Variants, uROBinaryHelpers;

{ TDarReferenciaPresupuestoBusinessProcessorRules }
constructor TDarReferenciaPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TDarReferenciaPresupuestoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDarReferenciaPresupuestoBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaPresupuestoREFERENCIA];
end;

function TDarReferenciaPresupuestoBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaPresupuestoREFERENCIA];
end;

procedure TDarReferenciaPresupuestoBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaPresupuestoREFERENCIA] := 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;


{ 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.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;


{ 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.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;


{ 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.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNIFCIF];
end;

function TInformeCabeceraPresupuestoBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPresupuestoNIFCIF];
end;

procedure TInformeCabeceraPresupuestoBusinessProcessorRules.SetNIFCIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPresupuestoNIFCIF] := aValue;
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.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;


{ 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;


initialization
  RegisterBusinessProcessorRules(RID_DarReferenciaPresupuestoDelta, TDarReferenciaPresupuestoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DetallesPresupuestosDelta, TDetallesPresupuestosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_PresupuestosDelta, TPresupuestosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Presupuestos_RefreshDatasetDelta, TPresupuestos_RefreshDatasetBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeCabeceraPresupuestoDelta, TInformeCabeceraPresupuestoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeDetallesPresupuestoDelta, TInformeDetallesPresupuestoBusinessProcessorRules);

end.