unit schFacturasClienteServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schFacturasClienteClient_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_ListaAnosFacturasDelta = '{E5DB6C55-5B68-4B8A-825B-C84D13D9456D}';
  RID_DarReferenciaFacturaDelta = '{45121769-EC6F-4045-9D56-FAA87687E68B}';
  RID_FacturasClienteDelta = '{04EFDBF9-E923-48FA-B960-078A10F69155}';
  RID_DetallesFacturasClienteDelta = '{CDDF089B-A4FE-4ECF-9CA2-C27E6F7947CF}';
  RID_InformeCabeceraFacturaClienteDelta = '{E5773B7E-6449-4935-B809-E04C0634015B}';
  RID_InformeDetallesFacturaClienteDelta = '{CB8F77F7-5D7D-4BEF-84F0-3A429BBE7FB9}';

type
  { IListaAnosFacturasDelta }
  IListaAnosFacturasDelta = interface(IListaAnosFacturas)
  ['{E5DB6C55-5B68-4B8A-825B-C84D13D9456D}']
    { Property getters and setters }
    function GetOldANOValue : String;

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

  { TListaAnosFacturasBusinessProcessorRules }
  TListaAnosFacturasBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosFacturas, IListaAnosFacturasDelta)
  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;

  { IDarReferenciaFacturaDelta }
  IDarReferenciaFacturaDelta = interface(IDarReferenciaFactura)
  ['{45121769-EC6F-4045-9D56-FAA87687E68B}']
    { Property getters and setters }
    function GetOldREFERENCIAValue : String;

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

  { TDarReferenciaFacturaBusinessProcessorRules }
  TDarReferenciaFacturaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferenciaFactura, IDarReferenciaFacturaDelta)
  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;

  { IFacturasClienteDelta }
  IFacturasClienteDelta = interface(IFacturasCliente)
  ['{04EFDBF9-E923-48FA-B960-078A10F69155}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldFECHAFACTURAValue : DateTime;
    function GetOldREFERENCIAValue : String;
    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 GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNIFCIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldCODIGOALBARANValue : Integer;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldFECHAFACTURA : DateTime read GetOldFECHAFACTURAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    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 OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
  end;

  { TFacturasClienteBusinessProcessorRules }
  TFacturasClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasCliente, IFacturasClienteDelta)
  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 GetFECHAFACTURAValue: DateTime; virtual;
    function GetOldFECHAFACTURAValue: DateTime; virtual;
    procedure SetFECHAFACTURAValue(const aValue: DateTime); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); 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 GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); 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 GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(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 GetCODIGOALBARANValue: Integer; virtual;
    function GetOldCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property FECHAFACTURA : DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property OldFECHAFACTURA : DateTime read GetOldFECHAFACTURAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    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 CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    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 PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    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 CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;

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

  end;

  { IDetallesFacturasClienteDelta }
  IDetallesFacturasClienteDelta = interface(IDetallesFacturasCliente)
  ['{CDDF089B-A4FE-4ECF-9CA2-C27E6F7947CF}']
    { Property getters and setters }
    function GetOldCODIGOFACTURAValue : 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 GetOldVALORADOValue : String;

    { Properties }
    property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue;
    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 OldVALORADO : String read GetOldVALORADOValue;
  end;

  { TDetallesFacturasClienteBusinessProcessorRules }
  TDetallesFacturasClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IDetallesFacturasCliente, IDetallesFacturasClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOFACTURAValue: Integer; virtual;
    function GetOldCODIGOFACTURAValue: Integer; virtual;
    procedure SetCODIGOFACTURAValue(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 GetVALORADOValue: String; virtual;
    function GetOldVALORADOValue: String; virtual;
    procedure SetVALORADOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOFACTURA : Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
    property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue;
    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 VALORADO : String read GetVALORADOValue write SetVALORADOValue;
    property OldVALORADO : String read GetOldVALORADOValue;

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

  end;

  { IInformeCabeceraFacturaClienteDelta }
  IInformeCabeceraFacturaClienteDelta = interface(IInformeCabeceraFacturaCliente)
  ['{E5773B7E-6449-4935-B809-E04C0634015B}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldFECHAFACTURAValue : DateTime;
    function GetOldREFERENCIAValue : String;
    function GetOldCODIGOCONTACTOValue : 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 GetOldNIFCIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldFECHAFACTURA : DateTime read GetOldFECHAFACTURAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    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 OldNIFCIF : String read GetOldNIFCIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
  end;

  { TInformeCabeceraFacturaClienteBusinessProcessorRules }
  TInformeCabeceraFacturaClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeCabeceraFacturaCliente, IInformeCabeceraFacturaClienteDelta)
  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 GetFECHAFACTURAValue: DateTime; virtual;
    function GetOldFECHAFACTURAValue: DateTime; virtual;
    procedure SetFECHAFACTURAValue(const aValue: DateTime); 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 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 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 GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(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;

    { 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 FECHAFACTURA : DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property OldFECHAFACTURA : DateTime read GetOldFECHAFACTURAValue;
    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 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 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 PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGOPOSTAL : String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;

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

  end;

  { IInformeDetallesFacturaClienteDelta }
  IInformeDetallesFacturaClienteDelta = interface(IInformeDetallesFacturaCliente)
  ['{CB8F77F7-5D7D-4BEF-84F0-3A429BBE7FB9}']
    { Property getters and setters }
    function GetOldCODIGOFACTURAValue : Integer;
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCANTIDADValue : Integer;
    function GetOldIMPORTEUNIDADValue : Currency;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldTIPOValue : String;
    function GetOldPOSICIONValue : Integer;
    function GetOldVALORADOValue : String;

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

  { TInformeDetallesFacturaClienteBusinessProcessorRules }
  TInformeDetallesFacturaClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeDetallesFacturaCliente, IInformeDetallesFacturaClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOFACTURAValue: Integer; virtual;
    function GetOldCODIGOFACTURAValue: Integer; virtual;
    procedure SetCODIGOFACTURAValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    function GetOldNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    function GetOldIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    function GetOldIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetTIPOValue: String; virtual;
    function GetOldTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetPOSICIONValue: Integer; virtual;
    function GetOldPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetVALORADOValue: String; virtual;
    function GetOldVALORADOValue: String; virtual;
    procedure SetVALORADOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOFACTURA : Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
    property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue;
    property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property IMPORTEUNIDAD : Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
    property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property TIPO : String read GetTIPOValue write SetTIPOValue;
    property OldTIPO : String read GetOldTIPOValue;
    property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
    property OldVALORADO : String read GetOldVALORADOValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TListaAnosFacturasBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TListaAnosFacturasBusinessProcessorRules.GetANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosFacturasANO];
end;

function TListaAnosFacturasBusinessProcessorRules.GetOldANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosFacturasANO];
end;

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


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

destructor TDarReferenciaFacturaBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDarReferenciaFacturaBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaFacturaREFERENCIA];
end;

function TDarReferenciaFacturaBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaFacturaREFERENCIA];
end;

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


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

destructor TFacturasClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TFacturasClienteBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGOEMPRESA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGOEMPRESA];
end;

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

function TFacturasClienteBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGO];
end;

function TFacturasClienteBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGO];
end;

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

function TFacturasClienteBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHAALTA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHAALTA];
end;

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

function TFacturasClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteUSUARIO];
end;

function TFacturasClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteUSUARIO];
end;

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

function TFacturasClienteBusinessProcessorRules.GetFECHAFACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHAFACTURA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldFECHAFACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHAFACTURA];
end;

procedure TFacturasClienteBusinessProcessorRules.SetFECHAFACTURAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHAFACTURA] := aValue;
end;

function TFacturasClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA];
end;

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

function TFacturasClienteBusinessProcessorRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteBASEIMPONIBLE];
end;

function TFacturasClienteBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteBASEIMPONIBLE];
end;

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

function TFacturasClienteBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO];
end;

function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO];
end;

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

function TFacturasClienteBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTEDESCUENTO];
end;

function TFacturasClienteBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTEDESCUENTO];
end;

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

function TFacturasClienteBusinessProcessorRules.GetIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIVA];
end;

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

function TFacturasClienteBusinessProcessorRules.GetIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTEIVA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTEIVA];
end;

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

function TFacturasClienteBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTETOTAL];
end;

function TFacturasClienteBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTETOTAL];
end;

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

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

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

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

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

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

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

function TFacturasClienteBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGOCONTACTO];
end;

function TFacturasClienteBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGOCONTACTO];
end;

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

function TFacturasClienteBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIFCIF];
end;

function TFacturasClienteBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNIFCIF];
end;

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

function TFacturasClienteBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE];
end;

function TFacturasClienteBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE];
end;

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

function TFacturasClienteBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCALLE];
end;

function TFacturasClienteBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCALLE];
end;

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

function TFacturasClienteBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROVINCIA];
end;

function TFacturasClienteBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROVINCIA];
end;

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

function TFacturasClienteBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGOPOSTAL];
end;

function TFacturasClienteBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGOPOSTAL];
end;

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

function TFacturasClienteBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePOBLACION];
end;

function TFacturasClienteBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePOBLACION];
end;

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

function TFacturasClienteBusinessProcessorRules.GetCODIGOALBARANValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGOALBARAN];
end;

function TFacturasClienteBusinessProcessorRules.GetOldCODIGOALBARANValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGOALBARAN];
end;

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


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

destructor TDetallesFacturasClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetCODIGOFACTURAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteCODIGOFACTURA];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldCODIGOFACTURAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteCODIGOFACTURA];
end;

procedure TDetallesFacturasClienteBusinessProcessorRules.SetCODIGOFACTURAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteCODIGOFACTURA] := aValue;
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteNUMCONCEPTO];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteNUMCONCEPTO];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClientePOSICION];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClientePOSICION];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteTIPO];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteTIPO];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteDESCRIPCION];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteDESCRIPCION];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteCANTIDAD];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteCANTIDAD];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteIMPORTEUNIDAD];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteIMPORTEUNIDAD];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteIMPORTETOTAL];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteIMPORTETOTAL];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetVISIBLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVISIBLE];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldVISIBLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteVISIBLE];
end;

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

function TDetallesFacturasClienteBusinessProcessorRules.GetVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVALORADO];
end;

function TDetallesFacturasClienteBusinessProcessorRules.GetOldVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteVALORADO];
end;

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


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

destructor TInformeCabeceraFacturaClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteCODIGOEMPRESA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteCODIGOEMPRESA];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteCODIGO];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteCODIGO];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteFECHAALTA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteFECHAALTA];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteUSUARIO];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteUSUARIO];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetFECHAFACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteFECHAFACTURA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldFECHAFACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteFECHAFACTURA];
end;

procedure TInformeCabeceraFacturaClienteBusinessProcessorRules.SetFECHAFACTURAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteFECHAFACTURA] := aValue;
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteREFERENCIA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteREFERENCIA];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteCODIGOCONTACTO];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteCODIGOCONTACTO];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteBASEIMPONIBLE];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteBASEIMPONIBLE];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteDESCUENTO];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteDESCUENTO];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteIMPORTEDESCUENTO];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteIMPORTEDESCUENTO];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteIVA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteIVA];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteIMPORTEIVA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteIMPORTEIVA];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteIMPORTETOTAL];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteIMPORTETOTAL];
end;

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

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

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

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

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

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

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteNIFCIF];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteNIFCIF];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteNOMBRE];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteNOMBRE];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteCALLE];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteCALLE];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClientePROVINCIA];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClientePROVINCIA];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClienteCODIGOPOSTAL];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClienteCODIGOPOSTAL];
end;

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

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraFacturaClientePOBLACION];
end;

function TInformeCabeceraFacturaClienteBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraFacturaClientePOBLACION];
end;

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


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

destructor TInformeDetallesFacturaClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetCODIGOFACTURAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteCODIGOFACTURA];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldCODIGOFACTURAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteCODIGOFACTURA];
end;

procedure TInformeDetallesFacturaClienteBusinessProcessorRules.SetCODIGOFACTURAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteCODIGOFACTURA] := aValue;
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteNUMCONCEPTO];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteNUMCONCEPTO];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteDESCRIPCION];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteDESCRIPCION];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteCANTIDAD];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteCANTIDAD];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteIMPORTEUNIDAD];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteIMPORTEUNIDAD];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteIMPORTETOTAL];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteIMPORTETOTAL];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteTIPO];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteTIPO];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClientePOSICION];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClientePOSICION];
end;

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

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteVALORADO];
end;

function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldVALORADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteVALORADO];
end;

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


initialization
  RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DarReferenciaFacturaDelta, TDarReferenciaFacturaBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_FacturasClienteDelta, TFacturasClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DetallesFacturasClienteDelta, TDetallesFacturasClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeCabeceraFacturaClienteDelta, TInformeCabeceraFacturaClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeDetallesFacturaClienteDelta, TInformeDetallesFacturaClienteBusinessProcessorRules);

end.