AlonsoYSal_FactuGES/Modulos/Montajes/Reglas/schMontajesServer_Intf.pas

unit schMontajesServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schMontajesClient_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_ListaAnosMontajesDelta = '{54D6F856-69C9-46C4-9708-EB06E21F64C9}';
  RID_darNuevaReferenciaDelta = '{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}';
  RID_InformeCabeceraFichaDelta = '{07C12000-AFBD-4F89-9F4B-1CF8AE219608}';
  RID_MontajesDelta = '{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}';
  RID_Refresh_MontajesDelta = '{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}';
  RID_FichaBeneficiosDelta = '{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}';
  RID_InformeDetallesFichaDelta = '{DBF71433-4943-46FE-A536-15E29D1E77D8}';
  RID_FichaBeneficios_AuxDelta = '{C55A8142-1206-48A0-9CB1-FE4EF597289F}';

type
  { IListaAnosMontajesDelta }
  IListaAnosMontajesDelta = interface(IListaAnosMontajes)
  ['{54D6F856-69C9-46C4-9708-EB06E21F64C9}']
    { Property getters and setters }
    function GetOldANOValue : String;

    { Properties }
    property OldANO : String read GetOldANOValue;
  end;

  { TListaAnosMontajesBusinessProcessorRules }
  TListaAnosMontajesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosMontajes, IListaAnosMontajesDelta)
  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;

  { IdarNuevaReferenciaDelta }
  IdarNuevaReferenciaDelta = interface(IdarNuevaReferencia)
  ['{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}']
    { Property getters and setters }
    function GetOldREFERENCIAValue : String;

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

  { TdarNuevaReferenciaBusinessProcessorRules }
  TdarNuevaReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IdarNuevaReferencia, IdarNuevaReferenciaDelta)
  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;

  { IInformeCabeceraFichaDelta }
  IInformeCabeceraFichaDelta = interface(IInformeCabeceraFicha)
  ['{07C12000-AFBD-4F89-9F4B-1CF8AE219608}']
    { Property getters and setters }
    function GetOldREFERENCIAValue : String;
    function GetOldFECHAINICIOValue : DateTime;
    function GetOldFECHAFINValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldNIFCIFValue : String;
    function GetOldCALLEValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldTELEFONO1Value : String;
    function GetOldTELEFONO2Value : String;
    function GetOldMOVILValue : String;

    { Properties }
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldFECHAINICIO : DateTime read GetOldFECHAINICIOValue;
    property OldFECHAFIN : DateTime read GetOldFECHAFINValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldTELEFONO1 : String read GetOldTELEFONO1Value;
    property OldTELEFONO2 : String read GetOldTELEFONO2Value;
    property OldMOVIL : String read GetOldMOVILValue;
  end;

  { TInformeCabeceraFichaBusinessProcessorRules }
  TInformeCabeceraFichaBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeCabeceraFicha, IInformeCabeceraFichaDelta)
  private
  protected
    { Property getters and setters }
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAINICIOValue: DateTime; virtual;
    function GetOldFECHAINICIOValue: DateTime; virtual;
    procedure SetFECHAINICIOValue(const aValue: DateTime); virtual;
    function GetFECHAFINValue: DateTime; virtual;
    function GetOldFECHAFINValue: DateTime; virtual;
    procedure SetFECHAFINValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); 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 GetNIFCIFValue: String; virtual;
    function GetOldNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(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 GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property FECHAINICIO : DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property OldFECHAINICIO : DateTime read GetOldFECHAINICIOValue;
    property FECHAFIN : DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property OldFECHAFIN : DateTime read GetOldFECHAFINValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    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 NIFCIF : String read GetNIFCIFValue write SetNIFCIFValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    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 PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    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;

  { IMontajesDelta }
  IMontajesDelta = interface(IMontajes)
  ['{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldFECHAINICIOValue : DateTime;
    function GetOldFECHAFINValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldCODIGOPRESUPUESTOValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : 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 OldFECHAINICIO : DateTime read GetOldFECHAINICIOValue;
    property OldFECHAFIN : DateTime read GetOldFECHAFINValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldOPCION : String read GetOldOPCIONValue;
  end;

  { TMontajesBusinessProcessorRules }
  TMontajesBusinessProcessorRules = class(TDABusinessProcessorRules, IMontajes, IMontajesDelta)
  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 GetFECHAINICIOValue: DateTime; virtual;
    function GetOldFECHAINICIOValue: DateTime; virtual;
    procedure SetFECHAINICIOValue(const aValue: DateTime); virtual;
    function GetFECHAFINValue: DateTime; virtual;
    function GetOldFECHAFINValue: DateTime; virtual;
    procedure SetFECHAFINValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    function GetOldCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(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 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 FECHAINICIO : DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property OldFECHAINICIO : DateTime read GetOldFECHAINICIOValue;
    property FECHAFIN : DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property OldFECHAFIN : DateTime read GetOldFECHAFINValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    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 OPCION : String read GetOPCIONValue write SetOPCIONValue;
    property OldOPCION : String read GetOldOPCIONValue;

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

  end;

  { IRefresh_MontajesDelta }
  IRefresh_MontajesDelta = interface(IRefresh_Montajes)
  ['{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldFECHAINICIOValue : DateTime;
    function GetOldFECHAFINValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldCODIGOPRESUPUESTOValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : 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 OldFECHAINICIO : DateTime read GetOldFECHAINICIOValue;
    property OldFECHAFIN : DateTime read GetOldFECHAFINValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldOPCION : String read GetOldOPCIONValue;
  end;

  { TRefresh_MontajesBusinessProcessorRules }
  TRefresh_MontajesBusinessProcessorRules = class(TDABusinessProcessorRules, IRefresh_Montajes, IRefresh_MontajesDelta)
  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 GetFECHAINICIOValue: DateTime; virtual;
    function GetOldFECHAINICIOValue: DateTime; virtual;
    procedure SetFECHAINICIOValue(const aValue: DateTime); virtual;
    function GetFECHAFINValue: DateTime; virtual;
    function GetOldFECHAFINValue: DateTime; virtual;
    procedure SetFECHAFINValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    function GetOldCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(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 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 FECHAINICIO : DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property OldFECHAINICIO : DateTime read GetOldFECHAINICIOValue;
    property FECHAFIN : DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property OldFECHAFIN : DateTime read GetOldFECHAFINValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    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 OPCION : String read GetOPCIONValue write SetOPCIONValue;
    property OldOPCION : String read GetOldOPCIONValue;

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

  end;

  { IFichaBeneficiosDelta }
  IFichaBeneficiosDelta = interface(IFichaBeneficios)
  ['{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}']
    { Property getters and setters }
    function GetOldCODIGOMONTAJEValue : Integer;
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldMODELOValue : String;
    function GetOldPROVEEDORValue : String;
    function GetOldCOMPRAValue : Float;
    function GetOldVENTAValue : Float;

    { Properties }
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldMODELO : String read GetOldMODELOValue;
    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
    property OldCOMPRA : Float read GetOldCOMPRAValue;
    property OldVENTA : Float read GetOldVENTAValue;
  end;

  { TFichaBeneficiosBusinessProcessorRules }
  TFichaBeneficiosBusinessProcessorRules = class(TDABusinessProcessorRules, IFichaBeneficios, IFichaBeneficiosDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOMONTAJEValue: Integer; virtual;
    function GetOldCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(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 GetMODELOValue: String; virtual;
    function GetOldMODELOValue: String; virtual;
    procedure SetMODELOValue(const aValue: String); virtual;
    function GetPROVEEDORValue: String; virtual;
    function GetOldPROVEEDORValue: String; virtual;
    procedure SetPROVEEDORValue(const aValue: String); virtual;
    function GetCOMPRAValue: Float; virtual;
    function GetOldCOMPRAValue: Float; virtual;
    procedure SetCOMPRAValue(const aValue: Float); virtual;
    function GetVENTAValue: Float; virtual;
    function GetOldVENTAValue: Float; virtual;
    procedure SetVENTAValue(const aValue: Float); virtual;

    { Properties }
    property CODIGOMONTAJE : Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    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 MODELO : String read GetMODELOValue write SetMODELOValue;
    property OldMODELO : String read GetOldMODELOValue;
    property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
    property COMPRA : Float read GetCOMPRAValue write SetCOMPRAValue;
    property OldCOMPRA : Float read GetOldCOMPRAValue;
    property VENTA : Float read GetVENTAValue write SetVENTAValue;
    property OldVENTA : Float read GetOldVENTAValue;

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

  end;

  { IInformeDetallesFichaDelta }
  IInformeDetallesFichaDelta = interface(IInformeDetallesFicha)
  ['{DBF71433-4943-46FE-A536-15E29D1E77D8}']
    { Property getters and setters }
    function GetOldDESCRIPCIONValue : String;
    function GetOldMODELOValue : String;
    function GetOldPROVEEDORValue : String;
    function GetOldCOMPRAValue : Float;
    function GetOldVENTAValue : Float;

    { Properties }
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldMODELO : String read GetOldMODELOValue;
    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
    property OldCOMPRA : Float read GetOldCOMPRAValue;
    property OldVENTA : Float read GetOldVENTAValue;
  end;

  { TInformeDetallesFichaBusinessProcessorRules }
  TInformeDetallesFichaBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeDetallesFicha, IInformeDetallesFichaDelta)
  private
  protected
    { Property getters and setters }
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetMODELOValue: String; virtual;
    function GetOldMODELOValue: String; virtual;
    procedure SetMODELOValue(const aValue: String); virtual;
    function GetPROVEEDORValue: String; virtual;
    function GetOldPROVEEDORValue: String; virtual;
    procedure SetPROVEEDORValue(const aValue: String); virtual;
    function GetCOMPRAValue: Float; virtual;
    function GetOldCOMPRAValue: Float; virtual;
    procedure SetCOMPRAValue(const aValue: Float); virtual;
    function GetVENTAValue: Float; virtual;
    function GetOldVENTAValue: Float; virtual;
    procedure SetVENTAValue(const aValue: Float); virtual;

    { Properties }
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property MODELO : String read GetMODELOValue write SetMODELOValue;
    property OldMODELO : String read GetOldMODELOValue;
    property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
    property COMPRA : Float read GetCOMPRAValue write SetCOMPRAValue;
    property OldCOMPRA : Float read GetOldCOMPRAValue;
    property VENTA : Float read GetVENTAValue write SetVENTAValue;
    property OldVENTA : Float read GetOldVENTAValue;

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

  end;

  { IFichaBeneficios_AuxDelta }
  IFichaBeneficios_AuxDelta = interface(IFichaBeneficios_Aux)
  ['{C55A8142-1206-48A0-9CB1-FE4EF597289F}']
    { Property getters and setters }
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TFichaBeneficios_AuxBusinessProcessorRules }
  TFichaBeneficios_AuxBusinessProcessorRules = class(TDABusinessProcessorRules, IFichaBeneficios_Aux, IFichaBeneficios_AuxDelta)
  private
  protected
    { Property getters and setters }
    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;

    { Properties }
    property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TListaAnosMontajesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TListaAnosMontajesBusinessProcessorRules.GetANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosMontajesANO];
end;

function TListaAnosMontajesBusinessProcessorRules.GetOldANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosMontajesANO];
end;

procedure TListaAnosMontajesBusinessProcessorRules.SetANOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosMontajesANO] := aValue;
end;


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

destructor TdarNuevaReferenciaBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TdarNuevaReferenciaBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_darNuevaReferenciaREFERENCIA];
end;

function TdarNuevaReferenciaBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_darNuevaReferenciaREFERENCIA];
end;

procedure TdarNuevaReferenciaBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_darNuevaReferenciaREFERENCIA] := aValue;
end;


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

destructor TInformeCabeceraFichaBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaREFERENCIA];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaREFERENCIA];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaREFERENCIA] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetFECHAINICIOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaFECHAINICIO];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldFECHAINICIOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaFECHAINICIO];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetFECHAINICIOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaFECHAINICIO] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetFECHAFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaFECHAFIN];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldFECHAFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaFECHAFIN];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetFECHAFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaFECHAFIN] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaSITUACION];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaSITUACION];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaSITUACION] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaOBSERVACIONES];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaOBSERVACIONES];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaOBSERVACIONES] := aValue.Text;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaCODIGOCONTACTO];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaCODIGOCONTACTO];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaCODIGOCONTACTO] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaNOMBRE];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaNOMBRE];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaNOMBRE] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaNIFCIF];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaNIFCIF];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetNIFCIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaNIFCIF] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaCALLE];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaCALLE];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaCALLE] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaCODIGOPOSTAL];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaCODIGOPOSTAL];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetCODIGOPOSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaCODIGOPOSTAL] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaPOBLACION];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaPOBLACION];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaPOBLACION] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaPROVINCIA];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaPROVINCIA];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaPROVINCIA] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetTELEFONO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaTELEFONO1];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldTELEFONO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaTELEFONO1];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetTELEFONO1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaTELEFONO1] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetTELEFONO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaTELEFONO2];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldTELEFONO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaTELEFONO2];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetTELEFONO2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaTELEFONO2] := aValue;
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaMOVIL];
end;

function TInformeCabeceraFichaBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFichaMOVIL];
end;

procedure TInformeCabeceraFichaBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFichaMOVIL] := aValue;
end;


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

destructor TMontajesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TMontajesBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGOEMPRESA];
end;

function TMontajesBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesCODIGOEMPRESA];
end;

procedure TMontajesBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGOEMPRESA] := aValue;
end;

function TMontajesBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGO];
end;

function TMontajesBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesCODIGO];
end;

procedure TMontajesBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGO] := aValue;
end;

function TMontajesBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesFECHAALTA];
end;

function TMontajesBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesFECHAALTA];
end;

procedure TMontajesBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesFECHAALTA] := aValue;
end;

function TMontajesBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesUSUARIO];
end;

function TMontajesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesUSUARIO];
end;

procedure TMontajesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesUSUARIO] := aValue;
end;

function TMontajesBusinessProcessorRules.GetFECHAINICIOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesFECHAINICIO];
end;

function TMontajesBusinessProcessorRules.GetOldFECHAINICIOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesFECHAINICIO];
end;

procedure TMontajesBusinessProcessorRules.SetFECHAINICIOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesFECHAINICIO] := aValue;
end;

function TMontajesBusinessProcessorRules.GetFECHAFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesFECHAFIN];
end;

function TMontajesBusinessProcessorRules.GetOldFECHAFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesFECHAFIN];
end;

procedure TMontajesBusinessProcessorRules.SetFECHAFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesFECHAFIN] := aValue;
end;

function TMontajesBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesSITUACION];
end;

function TMontajesBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesSITUACION];
end;

procedure TMontajesBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesSITUACION] := aValue;
end;

function TMontajesBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesOBSERVACIONES];
end;

function TMontajesBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesOBSERVACIONES];
end;

procedure TMontajesBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesOBSERVACIONES] := aValue.Text;
end;

function TMontajesBusinessProcessorRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGOPRESUPUESTO];
end;

function TMontajesBusinessProcessorRules.GetOldCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesCODIGOPRESUPUESTO];
end;

procedure TMontajesBusinessProcessorRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGOPRESUPUESTO] := aValue;
end;

function TMontajesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesREFERENCIA];
end;

function TMontajesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesREFERENCIA];
end;

procedure TMontajesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesREFERENCIA] := aValue;
end;

function TMontajesBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGOCONTACTO];
end;

function TMontajesBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesCODIGOCONTACTO];
end;

procedure TMontajesBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesCODIGOCONTACTO] := aValue;
end;

function TMontajesBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesNOMBRE];
end;

function TMontajesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesNOMBRE];
end;

procedure TMontajesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesNOMBRE] := aValue;
end;

function TMontajesBusinessProcessorRules.GetOPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesOPCION];
end;

function TMontajesBusinessProcessorRules.GetOldOPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_MontajesOPCION];
end;

procedure TMontajesBusinessProcessorRules.SetOPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_MontajesOPCION] := aValue;
end;


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

destructor TRefresh_MontajesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRefresh_MontajesBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGOEMPRESA];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesCODIGOEMPRESA];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGOEMPRESA] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGO];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesCODIGO];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGO] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesFECHAALTA];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesFECHAALTA];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesFECHAALTA] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesUSUARIO];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesUSUARIO];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesUSUARIO] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetFECHAINICIOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesFECHAINICIO];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldFECHAINICIOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesFECHAINICIO];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetFECHAINICIOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesFECHAINICIO] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetFECHAFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesFECHAFIN];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldFECHAFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesFECHAFIN];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetFECHAFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesFECHAFIN] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesSITUACION];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesSITUACION];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesSITUACION] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesOBSERVACIONES];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesOBSERVACIONES];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesOBSERVACIONES] := aValue.Text;
end;

function TRefresh_MontajesBusinessProcessorRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGOPRESUPUESTO];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesCODIGOPRESUPUESTO];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGOPRESUPUESTO] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesREFERENCIA];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesREFERENCIA];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesREFERENCIA] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGOCONTACTO];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesCODIGOCONTACTO];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesCODIGOCONTACTO] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesNOMBRE];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesNOMBRE];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesNOMBRE] := aValue;
end;

function TRefresh_MontajesBusinessProcessorRules.GetOPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesOPCION];
end;

function TRefresh_MontajesBusinessProcessorRules.GetOldOPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_MontajesOPCION];
end;

procedure TRefresh_MontajesBusinessProcessorRules.SetOPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_MontajesOPCION] := aValue;
end;


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

destructor TFichaBeneficiosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TFichaBeneficiosBusinessProcessorRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosCODIGOMONTAJE];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosCODIGOMONTAJE];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosCODIGOMONTAJE] := aValue;
end;

function TFichaBeneficiosBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosNUMCONCEPTO];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosNUMCONCEPTO];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetNUMCONCEPTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosNUMCONCEPTO] := aValue;
end;

function TFichaBeneficiosBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosDESCRIPCION];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosDESCRIPCION];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosDESCRIPCION] := aValue;
end;

function TFichaBeneficiosBusinessProcessorRules.GetMODELOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosMODELO];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldMODELOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosMODELO];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetMODELOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosMODELO] := aValue;
end;

function TFichaBeneficiosBusinessProcessorRules.GetPROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosPROVEEDOR];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldPROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosPROVEEDOR];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosPROVEEDOR] := aValue;
end;

function TFichaBeneficiosBusinessProcessorRules.GetCOMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosCOMPRA];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldCOMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosCOMPRA];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetCOMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosCOMPRA] := aValue;
end;

function TFichaBeneficiosBusinessProcessorRules.GetVENTAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosVENTA];
end;

function TFichaBeneficiosBusinessProcessorRules.GetOldVENTAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficiosVENTA];
end;

procedure TFichaBeneficiosBusinessProcessorRules.SetVENTAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficiosVENTA] := aValue;
end;


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

destructor TInformeDetallesFichaBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesFichaBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaDESCRIPCION];
end;

function TInformeDetallesFichaBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFichaDESCRIPCION];
end;

procedure TInformeDetallesFichaBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaDESCRIPCION] := aValue;
end;

function TInformeDetallesFichaBusinessProcessorRules.GetMODELOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaMODELO];
end;

function TInformeDetallesFichaBusinessProcessorRules.GetOldMODELOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFichaMODELO];
end;

procedure TInformeDetallesFichaBusinessProcessorRules.SetMODELOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaMODELO] := aValue;
end;

function TInformeDetallesFichaBusinessProcessorRules.GetPROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaPROVEEDOR];
end;

function TInformeDetallesFichaBusinessProcessorRules.GetOldPROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFichaPROVEEDOR];
end;

procedure TInformeDetallesFichaBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaPROVEEDOR] := aValue;
end;

function TInformeDetallesFichaBusinessProcessorRules.GetCOMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaCOMPRA];
end;

function TInformeDetallesFichaBusinessProcessorRules.GetOldCOMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFichaCOMPRA];
end;

procedure TInformeDetallesFichaBusinessProcessorRules.SetCOMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaCOMPRA] := aValue;
end;

function TInformeDetallesFichaBusinessProcessorRules.GetVENTAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaVENTA];
end;

function TInformeDetallesFichaBusinessProcessorRules.GetOldVENTAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFichaVENTA];
end;

procedure TInformeDetallesFichaBusinessProcessorRules.SetVENTAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFichaVENTA] := aValue;
end;


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

destructor TFichaBeneficios_AuxBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TFichaBeneficios_AuxBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficios_AuxNUMCONCEPTO];
end;

function TFichaBeneficios_AuxBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficios_AuxNUMCONCEPTO];
end;

procedure TFichaBeneficios_AuxBusinessProcessorRules.SetNUMCONCEPTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficios_AuxNUMCONCEPTO] := aValue;
end;

function TFichaBeneficios_AuxBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficios_AuxDESCRIPCION];
end;

function TFichaBeneficios_AuxBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FichaBeneficios_AuxDESCRIPCION];
end;

procedure TFichaBeneficios_AuxBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FichaBeneficios_AuxDESCRIPCION] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_ListaAnosMontajesDelta, TListaAnosMontajesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_darNuevaReferenciaDelta, TdarNuevaReferenciaBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeCabeceraFichaDelta, TInformeCabeceraFichaBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_MontajesDelta, TMontajesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Refresh_MontajesDelta, TRefresh_MontajesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_FichaBeneficiosDelta, TFichaBeneficiosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeDetallesFichaDelta, TInformeDetallesFichaBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_FichaBeneficios_AuxDelta, TFichaBeneficios_AuxBusinessProcessorRules);

end.