AlonsoYSal_FactuGES/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas

unit schAlbaranesClienteServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schAlbaranesClienteClient_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_ListaAnosAlbaranesDelta = '{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}';
  RID_DarReferenciaAlbaranDelta = '{060883BE-0C2D-4803-80D9-9D2E675F0F71}';
  RID_AlbaranClienteDelta = '{423E76BF-AECD-4833-9826-939D0CEAA727}';
  RID_AlbaranDePresupuestoDelta = '{18FC44A8-B09C-42A8-8364-CBA395F2BF34}';
  RID_DetallesAlbaranClienteDelta = '{15388383-8B5E-42C8-B067-6D2BC5B591B9}';
  RID_AlbaranCliente_RefreshDatasetDelta = '{C27FA34C-AC2D-4258-982E-2C454BF6F451}';
  RID_InformeCabeceraAlbaranPagoDelta = '{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}';
  RID_InformeDetallesAlbaranPagoDelta = '{8F113EFE-98EE-495C-BCFF-37E5479F27AB}';
  RID_DarSumaImportesDelta = '{ABF43821-73BF-42CB-9086-3677C16A7153}';

type
  { IListaAnosAlbaranesDelta }
  IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
  ['{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}']
    { Property getters and setters }
    function GetOldANOValue : String;

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

  { TListaAnosAlbaranesBusinessProcessorRules }
  TListaAnosAlbaranesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosAlbaranes, IListaAnosAlbaranesDelta)
  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;

  { IDarReferenciaAlbaranDelta }
  IDarReferenciaAlbaranDelta = interface(IDarReferenciaAlbaran)
  ['{060883BE-0C2D-4803-80D9-9D2E675F0F71}']
    { Property getters and setters }
    function GetOldREFERENCIAValue : String;

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

  { TDarReferenciaAlbaranBusinessProcessorRules }
  TDarReferenciaAlbaranBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferenciaAlbaran, IDarReferenciaAlbaranDelta)
  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;

  { IAlbaranClienteDelta }
  IAlbaranClienteDelta = interface(IAlbaranCliente)
  ['{423E76BF-AECD-4833-9826-939D0CEAA727}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldFECHAALBARANValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldFECHAPAGOValue : DateTime;
    function GetOldCODIGOPRESUPUESTOValue : Integer;
    function GetOldBASEIMPONIBLEValue : Currency;
    function GetOldDESCUENTOValue : Float;
    function GetOldIMPORTEDESCUENTOValue : Currency;
    function GetOldIVAValue : Float;
    function GetOldIMPORTEIVAValue : Currency;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldFORMAPAGOValue : IROStrings;
    function GetOldREFERENCIAPRESUPUESTOValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldFECHAALBARAN : DateTime read GetOldFECHAALBARANValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    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 OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property OldREFERENCIAPRESUPUESTO : String read GetOldREFERENCIAPRESUPUESTOValue;
  end;

  { TAlbaranClienteBusinessProcessorRules }
  TAlbaranClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranCliente, IAlbaranClienteDelta)
  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 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 GetFECHAALBARANValue: DateTime; virtual;
    function GetOldFECHAALBARANValue: DateTime; virtual;
    procedure SetFECHAALBARANValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    function GetOldFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    function GetOldCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); 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 GetFORMAPAGOValue: IROStrings; virtual;
    function GetOldFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetREFERENCIAPRESUPUESTOValue: String; virtual;
    function GetOldREFERENCIAPRESUPUESTOValue: String; virtual;
    procedure SetREFERENCIAPRESUPUESTOValue(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 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 FECHAALBARAN : DateTime read GetFECHAALBARANValue write SetFECHAALBARANValue;
    property OldFECHAALBARAN : DateTime read GetOldFECHAALBARANValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property FECHAPAGO : DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    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 FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property REFERENCIAPRESUPUESTO : String read GetREFERENCIAPRESUPUESTOValue write SetREFERENCIAPRESUPUESTOValue;
    property OldREFERENCIAPRESUPUESTO : String read GetOldREFERENCIAPRESUPUESTOValue;

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

  end;

  { IAlbaranDePresupuestoDelta }
  IAlbaranDePresupuestoDelta = interface(IAlbaranDePresupuesto)
  ['{18FC44A8-B09C-42A8-8364-CBA395F2BF34}']
    { Property getters and setters }
    function GetOldCODIGOValue : Integer;

    { Properties }
    property OldCODIGO : Integer read GetOldCODIGOValue;
  end;

  { TAlbaranDePresupuestoBusinessProcessorRules }
  TAlbaranDePresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranDePresupuesto, IAlbaranDePresupuestoDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;

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

  end;

  { IDetallesAlbaranClienteDelta }
  IDetallesAlbaranClienteDelta = interface(IDetallesAlbaranCliente)
  ['{15388383-8B5E-42C8-B067-6D2BC5B591B9}']
    { Property getters and setters }
    function GetOldCODIGOALBARANValue : Integer;
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldPOSICIONValue : Integer;
    function GetOldTIPOValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCANTIDADValue : Integer;
    function GetOldIMPORTEUNIDADValue : Currency;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldVISIBLEValue : String;
    function GetOldPUNTOSValue : Integer;
    function GetOldIMPORTEPUNTOSValue : Currency;
    function GetOldVALORADOValue : String;

    { Properties }
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property OldTIPO : String read GetOldTIPOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property OldVISIBLE : String read GetOldVISIBLEValue;
    property OldPUNTOS : Integer read GetOldPUNTOSValue;
    property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
    property OldVALORADO : String read GetOldVALORADOValue;
  end;

  { TDetallesAlbaranClienteBusinessProcessorRules }
  TDetallesAlbaranClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IDetallesAlbaranCliente, IDetallesAlbaranClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOALBARANValue: Integer; virtual;
    function GetOldCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    function GetOldNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetPOSICIONValue: Integer; virtual;
    function GetOldPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetTIPOValue: String; virtual;
    function GetOldTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); 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 GetVISIBLEValue: String; virtual;
    function GetOldVISIBLEValue: String; virtual;
    procedure SetVISIBLEValue(const aValue: String); virtual;
    function GetPUNTOSValue: Integer; virtual;
    function GetOldPUNTOSValue: Integer; virtual;
    procedure SetPUNTOSValue(const aValue: Integer); virtual;
    function GetIMPORTEPUNTOSValue: Currency; virtual;
    function GetOldIMPORTEPUNTOSValue: Currency; virtual;
    procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
    function GetVALORADOValue: String; virtual;
    function GetOldVALORADOValue: String; virtual;
    procedure SetVALORADOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
    property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property TIPO : String read GetTIPOValue write SetTIPOValue;
    property OldTIPO : String read GetOldTIPOValue;
    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 VISIBLE : String read GetVISIBLEValue write SetVISIBLEValue;
    property OldVISIBLE : String read GetOldVISIBLEValue;
    property PUNTOS : Integer read GetPUNTOSValue write SetPUNTOSValue;
    property OldPUNTOS : Integer read GetOldPUNTOSValue;
    property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
    property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
    property OldVALORADO : String read GetOldVALORADOValue;

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

  end;

  { IAlbaranCliente_RefreshDatasetDelta }
  IAlbaranCliente_RefreshDatasetDelta = interface(IAlbaranCliente_RefreshDataset)
  ['{C27FA34C-AC2D-4258-982E-2C454BF6F451}']
    { Property getters and setters }
    function GetOldCODIGOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldSITUACIONValue : String;
    function GetOldREFERENCIAPRESUPUESTOValue : String;

    { Properties }
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldREFERENCIAPRESUPUESTO : String read GetOldREFERENCIAPRESUPUESTOValue;
  end;

  { TAlbaranCliente_RefreshDatasetBusinessProcessorRules }
  TAlbaranCliente_RefreshDatasetBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranCliente_RefreshDataset, IAlbaranCliente_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 GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetREFERENCIAPRESUPUESTOValue: String; virtual;
    function GetOldREFERENCIAPRESUPUESTOValue: String; virtual;
    procedure SetREFERENCIAPRESUPUESTOValue(const aValue: String); virtual;

    { Properties }
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property REFERENCIAPRESUPUESTO : String read GetREFERENCIAPRESUPUESTOValue write SetREFERENCIAPRESUPUESTOValue;
    property OldREFERENCIAPRESUPUESTO : String read GetOldREFERENCIAPRESUPUESTOValue;

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

  end;

  { IInformeCabeceraAlbaranPagoDelta }
  IInformeCabeceraAlbaranPagoDelta = interface(IInformeCabeceraAlbaranPago)
  ['{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldFECHAALBARANValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldFECHAPAGOValue : DateTime;
    function GetOldBASEIMPONIBLEValue : Float;
    function GetOldDESCUENTOValue : Float;
    function GetOldIMPORTEDESCUENTOValue : Float;
    function GetOldIVAValue : Float;
    function GetOldIMPORTEIVAValue : Float;
    function GetOldIMPORTETOTALValue : Float;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldFORMAPAGOValue : IROStrings;
    function GetOldCODIGOPRESUPUESTOValue : Integer;
    function GetOldREFERENCIAPREValue : String;
    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 OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldFECHAALBARAN : DateTime read GetOldFECHAALBARANValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    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 OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    property OldREFERENCIAPRE : String read GetOldREFERENCIAPREValue;
    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;

  { TInformeCabeceraAlbaranPagoBusinessProcessorRules }
  TInformeCabeceraAlbaranPagoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeCabeceraAlbaranPago, IInformeCabeceraAlbaranPagoDelta)
  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 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 GetFECHAALBARANValue: DateTime; virtual;
    function GetOldFECHAALBARANValue: DateTime; virtual;
    procedure SetFECHAALBARANValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    function GetOldFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(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 GetFORMAPAGOValue: IROStrings; virtual;
    function GetOldFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    function GetOldCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAPREValue: String; virtual;
    function GetOldREFERENCIAPREValue: String; virtual;
    procedure SetREFERENCIAPREValue(const aValue: String); 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property FECHAALBARAN : DateTime read GetFECHAALBARANValue write SetFECHAALBARANValue;
    property OldFECHAALBARAN : DateTime read GetOldFECHAALBARANValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property FECHAPAGO : DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    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 FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
    property REFERENCIAPRE : String read GetREFERENCIAPREValue write SetREFERENCIAPREValue;
    property OldREFERENCIAPRE : String read GetOldREFERENCIAPREValue;
    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;

  { IInformeDetallesAlbaranPagoDelta }
  IInformeDetallesAlbaranPagoDelta = interface(IInformeDetallesAlbaranPago)
  ['{8F113EFE-98EE-495C-BCFF-37E5479F27AB}']
    { Property getters and setters }
    function GetOldCODIGOALBARANValue : Integer;
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCANTIDADValue : Integer;
    function GetOldIMPORTEUNIDADValue : Float;
    function GetOldIMPORTETOTALValue : Float;
    function GetOldTIPOValue : String;
    function GetOldPOSICIONValue : Integer;
    function GetOldVALORADOValue : String;

    { Properties }
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue;
    property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
    property OldTIPO : String read GetOldTIPOValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property OldVALORADO : String read GetOldVALORADOValue;
  end;

  { TInformeDetallesAlbaranPagoBusinessProcessorRules }
  TInformeDetallesAlbaranPagoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeDetallesAlbaranPago, IInformeDetallesAlbaranPagoDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOALBARANValue: Integer; virtual;
    function GetOldCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(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: Float; virtual;
    function GetOldIMPORTEUNIDADValue: Float; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual;
    function GetIMPORTETOTALValue: Float; virtual;
    function GetOldIMPORTETOTALValue: Float; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Float); virtual;
    function GetTIPOValue: String; virtual;
    function GetOldTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetPOSICIONValue: Integer; virtual;
    function GetOldPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetVALORADOValue: String; virtual;
    function GetOldVALORADOValue: String; virtual;
    procedure SetVALORADOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
    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 : Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue;
    property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
    property TIPO : String read GetTIPOValue write SetTIPOValue;
    property OldTIPO : String read GetOldTIPOValue;
    property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
    property OldVALORADO : String read GetOldVALORADOValue;

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

  end;

  { IDarSumaImportesDelta }
  IDarSumaImportesDelta = interface(IDarSumaImportes)
  ['{ABF43821-73BF-42CB-9086-3677C16A7153}']
    { Property getters and setters }
    function GetOldBASEIMPONIBLEValue : Float;
    function GetOldIMPORTEIVAValue : Float;
    function GetOldIMPORTETOTALValue : Float;

    { Properties }
    property OldBASEIMPONIBLE : Float read GetOldBASEIMPONIBLEValue;
    property OldIMPORTEIVA : Float read GetOldIMPORTEIVAValue;
    property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
  end;

  { TDarSumaImportesBusinessProcessorRules }
  TDarSumaImportesBusinessProcessorRules = class(TDABusinessProcessorRules, IDarSumaImportes, IDarSumaImportesDelta)
  private
  protected
    { Property getters and setters }
    function GetBASEIMPONIBLEValue: Float; virtual;
    function GetOldBASEIMPONIBLEValue: Float; virtual;
    procedure SetBASEIMPONIBLEValue(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;

    { Properties }
    property BASEIMPONIBLE : Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property OldBASEIMPONIBLE : Float read GetOldBASEIMPONIBLEValue;
    property IMPORTEIVA : Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property OldIMPORTEIVA : Float read GetOldIMPORTEIVAValue;
    property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TListaAnosAlbaranesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TListaAnosAlbaranesBusinessProcessorRules.GetANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO];
end;

function TListaAnosAlbaranesBusinessProcessorRules.GetOldANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosAlbaranesANO];
end;

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


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

destructor TDarReferenciaAlbaranBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDarReferenciaAlbaranBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaAlbaranREFERENCIA];
end;

function TDarReferenciaAlbaranBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaAlbaranREFERENCIA];
end;

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


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

destructor TAlbaranClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TAlbaranClienteBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteCODIGOEMPRESA];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteCODIGOEMPRESA];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteCODIGO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteCODIGO];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFECHAALTA];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteFECHAALTA];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteUSUARIO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteUSUARIO];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteREFERENCIA];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteREFERENCIA];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteCODIGOCONTACTO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteCODIGOCONTACTO];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteNOMBRE];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteNOMBRE];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetFECHAALBARANValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFECHAALBARAN];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldFECHAALBARANValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteFECHAALBARAN];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetFECHAALBARANValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFECHAALBARAN] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteSITUACION];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteSITUACION];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFECHAPAGO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteFECHAPAGO];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFECHAPAGO] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteCODIGOPRESUPUESTO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteCODIGOPRESUPUESTO];
end;

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

function TAlbaranClienteBusinessProcessorRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteBASEIMPONIBLE];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteBASEIMPONIBLE];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetBASEIMPONIBLEValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteBASEIMPONIBLE] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteDESCUENTO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteDESCUENTO];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteDESCUENTO] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIMPORTEDESCUENTO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteIMPORTEDESCUENTO];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetIMPORTEDESCUENTOValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIMPORTEDESCUENTO] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIVA];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteIVA];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetIVAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIVA] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIMPORTEIVA];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteIMPORTEIVA];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetIMPORTEIVAValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIMPORTEIVA] := aValue;
end;

function TAlbaranClienteBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIMPORTETOTAL];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteIMPORTETOTAL];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteIMPORTETOTAL] := aValue;
end;

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

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

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

function TAlbaranClienteBusinessProcessorRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFORMAPAGO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteFORMAPAGO];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteFORMAPAGO] := aValue.Text;
end;

function TAlbaranClienteBusinessProcessorRules.GetREFERENCIAPRESUPUESTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteREFERENCIAPRESUPUESTO];
end;

function TAlbaranClienteBusinessProcessorRules.GetOldREFERENCIAPRESUPUESTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranClienteREFERENCIAPRESUPUESTO];
end;

procedure TAlbaranClienteBusinessProcessorRules.SetREFERENCIAPRESUPUESTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranClienteREFERENCIAPRESUPUESTO] := aValue;
end;


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

destructor TAlbaranDePresupuestoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TAlbaranDePresupuestoBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranDePresupuestoCODIGO];
end;

function TAlbaranDePresupuestoBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranDePresupuestoCODIGO];
end;

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


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

destructor TDetallesAlbaranClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetCODIGOALBARANValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteCODIGOALBARAN];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldCODIGOALBARANValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteCODIGOALBARAN];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetCODIGOALBARANValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteCODIGOALBARAN] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteNUMCONCEPTO];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteNUMCONCEPTO];
end;

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

function TDetallesAlbaranClienteBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClientePOSICION];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClientePOSICION];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClientePOSICION] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteTIPO];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteTIPO];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteTIPO] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteDESCRIPCION];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteDESCRIPCION];
end;

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

function TDetallesAlbaranClienteBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteCANTIDAD];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteCANTIDAD];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteCANTIDAD] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEUNIDAD];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteIMPORTEUNIDAD];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetIMPORTEUNIDADValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEUNIDAD] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTETOTAL];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteIMPORTETOTAL];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTETOTAL] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetVISIBLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVISIBLE];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldVISIBLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteVISIBLE];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetVISIBLEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVISIBLE] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetPUNTOSValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClientePUNTOS];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldPUNTOSValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClientePUNTOS];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetPUNTOSValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClientePUNTOS] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetIMPORTEPUNTOSValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEPUNTOS];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldIMPORTEPUNTOSValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteIMPORTEPUNTOS];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetIMPORTEPUNTOSValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEPUNTOS] := aValue;
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO];
end;

function TDetallesAlbaranClienteBusinessProcessorRules.GetOldVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteVALORADO];
end;

procedure TDetallesAlbaranClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO] := aValue;
end;


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

destructor TAlbaranCliente_RefreshDatasetBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranCliente_RefreshDatasetCODIGO];
end;

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranCliente_RefreshDatasetCODIGO];
end;

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

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranCliente_RefreshDatasetNOMBRE];
end;

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranCliente_RefreshDatasetNOMBRE];
end;

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

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranCliente_RefreshDatasetSITUACION];
end;

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranCliente_RefreshDatasetSITUACION];
end;

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

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetREFERENCIAPRESUPUESTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO];
end;

function TAlbaranCliente_RefreshDatasetBusinessProcessorRules.GetOldREFERENCIAPRESUPUESTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO];
end;

procedure TAlbaranCliente_RefreshDatasetBusinessProcessorRules.SetREFERENCIAPRESUPUESTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO] := aValue;
end;


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

destructor TInformeCabeceraAlbaranPagoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoCODIGOEMPRESA];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoCODIGOEMPRESA];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoCODIGO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoCODIGO];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFECHAALTA];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoFECHAALTA];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoUSUARIO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoUSUARIO];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoREFERENCIA];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoREFERENCIA];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoCODIGOCONTACTO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoCODIGOCONTACTO];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetFECHAALBARANValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFECHAALBARAN];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldFECHAALBARANValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoFECHAALBARAN];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetFECHAALBARANValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFECHAALBARAN] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoSITUACION];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoSITUACION];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFECHAPAGO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoFECHAPAGO];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFECHAPAGO] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetBASEIMPONIBLEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoBASEIMPONIBLE];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoBASEIMPONIBLE];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetBASEIMPONIBLEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoBASEIMPONIBLE] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoDESCUENTO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoDESCUENTO];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoDESCUENTO] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetIMPORTEDESCUENTOValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIVA];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoIVA];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetIVAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIVA] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetIMPORTEIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIMPORTEIVA];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldIMPORTEIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoIMPORTEIVA];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetIMPORTEIVAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIMPORTEIVA] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIMPORTETOTAL];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoIMPORTETOTAL];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoIMPORTETOTAL] := aValue;
end;

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

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

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFORMAPAGO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoFORMAPAGO];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoFORMAPAGO] := aValue.Text;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoCODIGOPRESUPUESTO];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldCODIGOPRESUPUESTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoCODIGOPRESUPUESTO];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetREFERENCIAPREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoREFERENCIAPRE];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldREFERENCIAPREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoREFERENCIAPRE];
end;

procedure TInformeCabeceraAlbaranPagoBusinessProcessorRules.SetREFERENCIAPREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoREFERENCIAPRE] := aValue;
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoNIFCIF];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoNIFCIF];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoNOMBRE];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoNOMBRE];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoCALLE];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoCALLE];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoCODIGOPOSTAL];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoCODIGOPOSTAL];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoPOBLACION];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoPOBLACION];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetTELEFONO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoTELEFONO1];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldTELEFONO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoTELEFONO1];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetTELEFONO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoTELEFONO2];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldTELEFONO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoTELEFONO2];
end;

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

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraAlbaranPagoMOVIL];
end;

function TInformeCabeceraAlbaranPagoBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraAlbaranPagoMOVIL];
end;

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


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

destructor TInformeDetallesAlbaranPagoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCODIGOALBARANValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCODIGOALBARAN];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCODIGOALBARANValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoCODIGOALBARAN];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCODIGOALBARANValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCODIGOALBARAN] := aValue;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoNUMCONCEPTO];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoNUMCONCEPTO];
end;

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

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoDESCRIPCION];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoDESCRIPCION];
end;

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

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD] := aValue;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetIMPORTEUNIDADValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoIMPORTEUNIDAD];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoIMPORTEUNIDAD];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetIMPORTEUNIDADValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoIMPORTEUNIDAD] := aValue;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoIMPORTETOTAL];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoIMPORTETOTAL];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoIMPORTETOTAL] := aValue;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoTIPO];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoTIPO];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoTIPO] := aValue;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoPOSICION];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoPOSICION];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoPOSICION] := aValue;
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO];
end;

function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoVALORADO];
end;

procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetVALORADOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO] := aValue;
end;


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

destructor TDarSumaImportesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDarSumaImportesBusinessProcessorRules.GetBASEIMPONIBLEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarSumaImportesBASEIMPONIBLE];
end;

function TDarSumaImportesBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarSumaImportesBASEIMPONIBLE];
end;

procedure TDarSumaImportesBusinessProcessorRules.SetBASEIMPONIBLEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DarSumaImportesBASEIMPONIBLE] := aValue;
end;

function TDarSumaImportesBusinessProcessorRules.GetIMPORTEIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarSumaImportesIMPORTEIVA];
end;

function TDarSumaImportesBusinessProcessorRules.GetOldIMPORTEIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarSumaImportesIMPORTEIVA];
end;

procedure TDarSumaImportesBusinessProcessorRules.SetIMPORTEIVAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DarSumaImportesIMPORTEIVA] := aValue;
end;

function TDarSumaImportesBusinessProcessorRules.GetIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarSumaImportesIMPORTETOTAL];
end;

function TDarSumaImportesBusinessProcessorRules.GetOldIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarSumaImportesIMPORTETOTAL];
end;

procedure TDarSumaImportesBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DarSumaImportesIMPORTETOTAL] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DarReferenciaAlbaranDelta, TDarReferenciaAlbaranBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_AlbaranClienteDelta, TAlbaranClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_AlbaranDePresupuestoDelta, TAlbaranDePresupuestoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DetallesAlbaranClienteDelta, TDetallesAlbaranClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_AlbaranCliente_RefreshDatasetDelta, TAlbaranCliente_RefreshDatasetBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeCabeceraAlbaranPagoDelta, TInformeCabeceraAlbaranPagoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeDetallesAlbaranPagoDelta, TInformeDetallesAlbaranPagoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DarSumaImportesDelta, TDarSumaImportesBusinessProcessorRules);

end.