unit schContactosServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContactosClient_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_DarEmpresasContactoDelta = '{8F89EA13-4300-4EF1-A765-B9F16B4D2F54}';
  RID_PersonalContactoDelta = '{8A8E62CB-05B7-468D-A8FA-1E0F7F020323}';
  RID_DarTiendaDeUsuarioDelta = '{C88504ED-116B-41EA-BFBB-6386B6B97166}';
  RID_SubCuentasContactoDelta = '{1E23A929-7818-4A84-9827-F44C026095BE}';
  RID_ContactosDelta = '{0A499049-0836-49EA-A0E8-48EFBC087814}';
  RID_GruposClienteDelta = '{DDC372FC-D1E5-4560-80DC-371EADCD7154}';
  RID_DatosBancariosDelta = '{1A23BE03-1CF1-425F-8508-2EA9F5EBFCE2}';
  RID_ContactosDireccionesDelta = '{A8A43023-CFC3-44E5-9C0C-0C11E6110F1E}';
  RID_ClientesDelta = '{3C5E5FFE-B6D2-45C5-AFFA-FB11993BF73A}';
  RID_ProveedoresDelta = '{933D6182-B6DB-40E9-BA65-D4DDA0FF63E4}';
  RID_VendedoresDelta = '{670CF45E-35ED-496D-ACB7-02E24F7EF991}';
  RID_DireccionesContactoDelta = '{110EC6A6-BC18-4C1D-A82C-B08E23345CCB}';
  RID_ClientesDescuentosDelta = '{4C4BEB48-604A-437D-9B23-77022C3B6C1F}';
  RID_ProcedenciasClienteDelta = '{EAF868C1-3667-4C24-A1A5-DE46896D0125}';
  RID_GruposProveedorDelta = '{37A333B0-4BB7-484E-B6AF-4A088F43EBFF}';
  RID_Contactos_RefreshDelta = '{214CA371-4CD0-44C9-BFD3-1888CA6C33D1}';

type
  { IDarEmpresasContactoDelta }
  IDarEmpresasContactoDelta = interface(IDarEmpresasContacto)
  ['{8F89EA13-4300-4EF1-A765-B9F16B4D2F54}']
    { Property getters and setters }
    function GetOldID_EMPRESAValue : Integer;

    { Properties }
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
  end;

  { TDarEmpresasContactoBusinessProcessorRules }
  TDarEmpresasContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDarEmpresasContacto, IDarEmpresasContactoDelta)
  private
  protected
    { Property getters and setters }
    function GetID_EMPRESAValue: Integer; virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;

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

  end;

  { IPersonalContactoDelta }
  IPersonalContactoDelta = interface(IPersonalContacto)
  ['{8A8E62CB-05B7-468D-A8FA-1E0F7F020323}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldPUESTOValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldEMAILValue : String;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldPUESTO : String read GetOldPUESTOValue;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL : String read GetOldEMAILValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
  end;

  { TPersonalContactoBusinessProcessorRules }
  TPersonalContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IPersonalContacto, IPersonalContactoDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CONTACTOValue: Integer; virtual;
    function GetID_CONTACTOIsNull: Boolean; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOIsNull: Boolean; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetPUESTOValue: String; virtual;
    function GetPUESTOIsNull: Boolean; virtual;
    function GetOldPUESTOValue: String; virtual;
    function GetOldPUESTOIsNull: Boolean; virtual;
    procedure SetPUESTOValue(const aValue: String); virtual;
    procedure SetPUESTOIsNull(const aValue: Boolean); virtual;
    function GetTELEFONOValue: String; virtual;
    function GetTELEFONOIsNull: Boolean; virtual;
    function GetOldTELEFONOValue: String; virtual;
    function GetOldTELEFONOIsNull: Boolean; virtual;
    procedure SetTELEFONOValue(const aValue: String); virtual;
    procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
    function GetMOVILValue: String; virtual;
    function GetMOVILIsNull: Boolean; virtual;
    function GetOldMOVILValue: String; virtual;
    function GetOldMOVILIsNull: Boolean; virtual;
    procedure SetMOVILValue(const aValue: String); virtual;
    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAILValue: String; virtual;
    function GetEMAILIsNull: Boolean; virtual;
    function GetOldEMAILValue: String; virtual;
    function GetOldEMAILIsNull: Boolean; virtual;
    procedure SetEMAILValue(const aValue: String); virtual;
    procedure SetEMAILIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property PUESTO : String read GetPUESTOValue write SetPUESTOValue;
    property PUESTOIsNull : Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
    property OldPUESTO : String read GetOldPUESTOValue;
    property OldPUESTOIsNull : Boolean read GetOldPUESTOIsNull;
    property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
    property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
    property MOVIL : String read GetMOVILValue write SetMOVILValue;
    property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL : String read GetEMAILValue write SetEMAILValue;
    property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
    property OldEMAIL : String read GetOldEMAILValue;
    property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;

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

  end;

  { IDarTiendaDeUsuarioDelta }
  IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
  ['{C88504ED-116B-41EA-BFBB-6386B6B97166}']
    { Property getters and setters }
    function GetOldID_TIENDAValue : Integer;

    { Properties }
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
  end;

  { TDarTiendaDeUsuarioBusinessProcessorRules }
  TDarTiendaDeUsuarioBusinessProcessorRules = class(TDABusinessProcessorRules, IDarTiendaDeUsuario, IDarTiendaDeUsuarioDelta)
  private
  protected
    { Property getters and setters }
    function GetID_TIENDAValue: Integer; virtual;
    function GetID_TIENDAIsNull: Boolean; virtual;
    function GetOldID_TIENDAValue: Integer; virtual;
    function GetOldID_TIENDAIsNull: Boolean; virtual;
    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;

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

  end;

  { ISubCuentasContactoDelta }
  ISubCuentasContactoDelta = interface(ISubCuentasContacto)
  ['{1E23A929-7818-4A84-9827-F44C026095BE}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_SUBCUENTAValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_CUENTAValue : Integer;
    function GetOldID_EJERCICIOValue : Integer;
    function GetOldID_CONTACTOValue : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
  end;

  { TSubCuentasContactoBusinessProcessorRules }
  TSubCuentasContactoBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentasContacto, ISubCuentasContactoDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetREF_SUBCUENTAValue: String; virtual;
    function GetREF_SUBCUENTAIsNull: Boolean; virtual;
    function GetOldREF_SUBCUENTAValue: String; virtual;
    function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
    procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
    procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
    function GetID_CUENTAValue: Integer; virtual;
    function GetID_CUENTAIsNull: Boolean; virtual;
    function GetOldID_CUENTAValue: Integer; virtual;
    function GetOldID_CUENTAIsNull: Boolean; virtual;
    procedure SetID_CUENTAValue(const aValue: Integer); virtual;
    procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
    function GetID_EJERCICIOValue: Integer; virtual;
    function GetID_EJERCICIOIsNull: Boolean; virtual;
    function GetOldID_EJERCICIOValue: Integer; virtual;
    function GetOldID_EJERCICIOIsNull: Boolean; virtual;
    procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
    procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
    function GetID_CONTACTOValue: Integer; virtual;
    function GetID_CONTACTOIsNull: Boolean; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOIsNull: Boolean; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
    property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
    property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
    property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
    property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue;
    property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
    property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
    property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull;
    property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
    property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
    property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;

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

  end;

  { IContactosDelta }
  IContactosDelta = interface(IContactos)
  ['{0A499049-0836-49EA-A0E8-48EFBC087814}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldID_TIENDAValue : Integer;
    function GetOldTIENDAValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldTIENDA : String read GetOldTIENDAValue;
  end;

  { TContactosBusinessProcessorRules }
  TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetID_CATEGORIAIsNull: Boolean; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAIsNull: Boolean; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetTELEFONO_1IsNull: Boolean; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1IsNull: Boolean; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetTELEFONO_2IsNull: Boolean; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2IsNull: Boolean; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetMOVIL_1IsNull: Boolean; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1IsNull: Boolean; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetMOVIL_2IsNull: Boolean; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2IsNull: Boolean; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetEMAIL_1IsNull: Boolean; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1IsNull: Boolean; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetEMAIL_2IsNull: Boolean; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2IsNull: Boolean; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetPAGINA_WEBIsNull: Boolean; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    function GetOldUSUARIOValue: String; virtual;
    function GetOldUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetID_TIENDAValue: Integer; virtual;
    function GetID_TIENDAIsNull: Boolean; virtual;
    function GetOldID_TIENDAValue: Integer; virtual;
    function GetOldID_TIENDAIsNull: Boolean; virtual;
    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
    function GetTIENDAValue: String; virtual;
    function GetTIENDAIsNull: Boolean; virtual;
    function GetOldTIENDAValue: String; virtual;
    function GetOldTIENDAIsNull: Boolean; virtual;
    procedure SetTIENDAValue(const aValue: String); virtual;
    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
    property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
    property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;

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

  end;

  { IGruposClienteDelta }
  IGruposClienteDelta = interface(IGruposCliente)
  ['{DDC372FC-D1E5-4560-80DC-371EADCD7154}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TGruposClienteBusinessProcessorRules }
  TGruposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposCliente, IGruposClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;

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

  end;

  { IDatosBancariosDelta }
  IDatosBancariosDelta = interface(IDatosBancarios)
  ['{1A23BE03-1CF1-425F-8508-2EA9F5EBFCE2}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldTITULARValue : String;
    function GetOldENTIDADValue : String;
    function GetOldSUCURSALValue : String;
    function GetOldDCValue : String;
    function GetOldCUENTAValue : String;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldTITULAR : String read GetOldTITULARValue;
    property OldENTIDAD : String read GetOldENTIDADValue;
    property OldSUCURSAL : String read GetOldSUCURSALValue;
    property OldDC : String read GetOldDCValue;
    property OldCUENTA : String read GetOldCUENTAValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
  end;

  { TDatosBancariosBusinessProcessorRules }
  TDatosBancariosBusinessProcessorRules = class(TDABusinessProcessorRules, IDatosBancarios, IDatosBancariosDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CONTACTOValue: Integer; virtual;
    function GetID_CONTACTOIsNull: Boolean; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOIsNull: Boolean; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetTITULARValue: String; virtual;
    function GetTITULARIsNull: Boolean; virtual;
    function GetOldTITULARValue: String; virtual;
    function GetOldTITULARIsNull: Boolean; virtual;
    procedure SetTITULARValue(const aValue: String); virtual;
    procedure SetTITULARIsNull(const aValue: Boolean); virtual;
    function GetENTIDADValue: String; virtual;
    function GetENTIDADIsNull: Boolean; virtual;
    function GetOldENTIDADValue: String; virtual;
    function GetOldENTIDADIsNull: Boolean; virtual;
    procedure SetENTIDADValue(const aValue: String); virtual;
    procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
    function GetSUCURSALValue: String; virtual;
    function GetSUCURSALIsNull: Boolean; virtual;
    function GetOldSUCURSALValue: String; virtual;
    function GetOldSUCURSALIsNull: Boolean; virtual;
    procedure SetSUCURSALValue(const aValue: String); virtual;
    procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
    function GetDCValue: String; virtual;
    function GetDCIsNull: Boolean; virtual;
    function GetOldDCValue: String; virtual;
    function GetOldDCIsNull: Boolean; virtual;
    procedure SetDCValue(const aValue: String); virtual;
    procedure SetDCIsNull(const aValue: Boolean); virtual;
    function GetCUENTAValue: String; virtual;
    function GetCUENTAIsNull: Boolean; virtual;
    function GetOldCUENTAValue: String; virtual;
    function GetOldCUENTAIsNull: Boolean; virtual;
    procedure SetCUENTAValue(const aValue: String); virtual;
    procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
    property TITULAR : String read GetTITULARValue write SetTITULARValue;
    property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull;
    property OldTITULAR : String read GetOldTITULARValue;
    property OldTITULARIsNull : Boolean read GetOldTITULARIsNull;
    property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
    property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
    property OldENTIDAD : String read GetOldENTIDADValue;
    property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull;
    property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
    property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
    property OldSUCURSAL : String read GetOldSUCURSALValue;
    property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull;
    property DC : String read GetDCValue write SetDCValue;
    property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull;
    property OldDC : String read GetOldDCValue;
    property OldDCIsNull : Boolean read GetOldDCIsNull;
    property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
    property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
    property OldCUENTA : String read GetOldCUENTAValue;
    property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;

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

  end;

  { IContactosDireccionesDelta }
  IContactosDireccionesDelta = interface(IContactosDirecciones)
  ['{A8A43023-CFC3-44E5-9C0C-0C11E6110F1E}']
    { Property getters and setters }
    function GetOldID_CONTACTOValue : Integer;
    function GetOldID_DIRECCIONValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldNIF_CIFValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldEMAILValue : String;
    function GetOldPERSONA_CONTACTOValue : String;

    { Properties }
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL : String read GetOldEMAILValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
  end;

  { TContactosDireccionesBusinessProcessorRules }
  TContactosDireccionesBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosDirecciones, IContactosDireccionesDelta)
  private
  protected
    { Property getters and setters }
    function GetID_CONTACTOValue: Integer; virtual;
    function GetID_CONTACTOIsNull: Boolean; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOIsNull: Boolean; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetID_DIRECCIONValue: Integer; virtual;
    function GetID_DIRECCIONIsNull: Boolean; virtual;
    function GetOldID_DIRECCIONValue: Integer; virtual;
    function GetOldID_DIRECCIONIsNull: Boolean; virtual;
    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONOValue: String; virtual;
    function GetTELEFONOIsNull: Boolean; virtual;
    function GetOldTELEFONOValue: String; virtual;
    function GetOldTELEFONOIsNull: Boolean; virtual;
    procedure SetTELEFONOValue(const aValue: String); virtual;
    procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
    function GetMOVILValue: String; virtual;
    function GetMOVILIsNull: Boolean; virtual;
    function GetOldMOVILValue: String; virtual;
    function GetOldMOVILIsNull: Boolean; virtual;
    procedure SetMOVILValue(const aValue: String); virtual;
    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAILValue: String; virtual;
    function GetEMAILIsNull: Boolean; virtual;
    function GetOldEMAILValue: String; virtual;
    function GetOldEMAILIsNull: Boolean; virtual;
    procedure SetEMAILValue(const aValue: String); virtual;
    procedure SetEMAILIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
    property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
    property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
    property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
    property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
    property MOVIL : String read GetMOVILValue write SetMOVILValue;
    property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL : String read GetEMAILValue write SetEMAILValue;
    property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
    property OldEMAIL : String read GetOldEMAILValue;
    property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;

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

  end;

  { IClientesDelta }
  IClientesDelta = interface(IClientes)
  ['{3C5E5FFE-B6D2-45C5-AFFA-FB11993BF73A}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldID_TIENDAValue : Integer;
    function GetOldTIENDAValue : String;
    function GetOldGRUPO_CLIENTEValue : String;
    function GetOldNOMBRE_COMERCIALValue : String;
    function GetOldBLOQUEADOValue : SmallInt;
    function GetOldREGIMEN_IVAValue : String;
    function GetOldMOTIVO_BLOQUEOValue : String;
    function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
    function GetOldID_TIPO_IVAValue : Integer;
    function GetOldID_FORMA_PAGOValue : Integer;
    function GetOldTIENDA_WEBValue : SmallInt;
    function GetOldCODIGO_ASIGNADOValue : String;
    function GetOldIGNORAR_CONTABILIDADValue : Integer;
    function GetOldTIENE_SUBCUENTAValue : Integer;
    function GetOldPROCEDENCIA_CLIENTEValue : String;
    function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
    function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
    function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
    function GetOldLISTA_NOMBRESValue : String;
    function GetOldLOPDValue : SmallInt;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
    property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
    property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
    property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
    property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
    property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
    property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
    property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
    property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
    property OldLOPD : SmallInt read GetOldLOPDValue;
  end;

  { TClientesBusinessProcessorRules }
  TClientesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientes, IClientesDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetID_CATEGORIAIsNull: Boolean; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAIsNull: Boolean; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetTELEFONO_1IsNull: Boolean; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1IsNull: Boolean; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetTELEFONO_2IsNull: Boolean; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2IsNull: Boolean; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetMOVIL_1IsNull: Boolean; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1IsNull: Boolean; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetMOVIL_2IsNull: Boolean; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2IsNull: Boolean; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetEMAIL_1IsNull: Boolean; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1IsNull: Boolean; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetEMAIL_2IsNull: Boolean; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2IsNull: Boolean; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetPAGINA_WEBIsNull: Boolean; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    function GetOldUSUARIOValue: String; virtual;
    function GetOldUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetID_TIENDAValue: Integer; virtual;
    function GetID_TIENDAIsNull: Boolean; virtual;
    function GetOldID_TIENDAValue: Integer; virtual;
    function GetOldID_TIENDAIsNull: Boolean; virtual;
    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
    function GetTIENDAValue: String; virtual;
    function GetTIENDAIsNull: Boolean; virtual;
    function GetOldTIENDAValue: String; virtual;
    function GetOldTIENDAIsNull: Boolean; virtual;
    procedure SetTIENDAValue(const aValue: String); virtual;
    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
    function GetGRUPO_CLIENTEValue: String; virtual;
    function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
    function GetOldGRUPO_CLIENTEValue: String; virtual;
    function GetOldGRUPO_CLIENTEIsNull: Boolean; virtual;
    procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
    procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_COMERCIALValue: String; virtual;
    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
    function GetOldNOMBRE_COMERCIALValue: String; virtual;
    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
    function GetBLOQUEADOValue: SmallInt; virtual;
    function GetBLOQUEADOIsNull: Boolean; virtual;
    function GetOldBLOQUEADOValue: SmallInt; virtual;
    function GetOldBLOQUEADOIsNull: Boolean; virtual;
    procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
    procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
    function GetREGIMEN_IVAValue: String; virtual;
    function GetREGIMEN_IVAIsNull: Boolean; virtual;
    function GetOldREGIMEN_IVAValue: String; virtual;
    function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
    procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
    procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
    function GetMOTIVO_BLOQUEOValue: String; virtual;
    function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
    function GetOldMOTIVO_BLOQUEOValue: String; virtual;
    function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual;
    procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
    procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
    function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
    function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
    function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
    function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    function GetID_TIPO_IVAIsNull: Boolean; virtual;
    function GetOldID_TIPO_IVAValue: Integer; virtual;
    function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
    function GetID_FORMA_PAGOValue: Integer; virtual;
    function GetID_FORMA_PAGOIsNull: Boolean; virtual;
    function GetOldID_FORMA_PAGOValue: Integer; virtual;
    function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
    function GetTIENDA_WEBValue: SmallInt; virtual;
    function GetTIENDA_WEBIsNull: Boolean; virtual;
    function GetOldTIENDA_WEBValue: SmallInt; virtual;
    function GetOldTIENDA_WEBIsNull: Boolean; virtual;
    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_ASIGNADOValue: String; virtual;
    function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
    function GetOldCODIGO_ASIGNADOValue: String; virtual;
    function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
    function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
    function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
    function GetOldIGNORAR_CONTABILIDADValue: Integer; virtual;
    function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
    function GetTIENE_SUBCUENTAValue: Integer; virtual;
    function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
    function GetOldTIENE_SUBCUENTAValue: Integer; virtual;
    function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual;
    procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
    procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
    function GetPROCEDENCIA_CLIENTEValue: String; virtual;
    function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
    function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
    function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
    procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
    procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
    function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
    function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
    procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
    procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
    function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
    function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
    function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
    procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
    procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
    function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
    function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
    function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
    procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
    procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
    function GetLISTA_NOMBRESValue: String; virtual;
    function GetLISTA_NOMBRESIsNull: Boolean; virtual;
    function GetOldLISTA_NOMBRESValue: String; virtual;
    function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
    procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
    procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
    function GetLOPDValue: SmallInt; virtual;
    function GetLOPDIsNull: Boolean; virtual;
    function GetOldLOPDValue: SmallInt; virtual;
    function GetOldLOPDIsNull: Boolean; virtual;
    procedure SetLOPDValue(const aValue: SmallInt); virtual;
    procedure SetLOPDIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
    property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
    property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
    property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
    property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
    property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
    property OldGRUPO_CLIENTEIsNull : Boolean read GetOldGRUPO_CLIENTEIsNull;
    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
    property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
    property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
    property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
    property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull;
    property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
    property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
    property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
    property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
    property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
    property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull;
    property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
    property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
    property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
    property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
    property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
    property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
    property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
    property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
    property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
    property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
    property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
    property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
    property IGNORAR_CONTABILIDAD : Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
    property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
    property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
    property TIENE_SUBCUENTA : Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
    property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
    property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
    property OldTIENE_SUBCUENTAIsNull : Boolean read GetOldTIENE_SUBCUENTAIsNull;
    property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
    property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
    property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
    property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
    property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
    property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
    property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
    property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
    property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
    property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
    property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
    property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
    property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
    property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
    property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
    property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
    property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
    property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
    property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
    property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
    property LOPD : SmallInt read GetLOPDValue write SetLOPDValue;
    property LOPDIsNull : Boolean read GetLOPDIsNull write SetLOPDIsNull;
    property OldLOPD : SmallInt read GetOldLOPDValue;
    property OldLOPDIsNull : Boolean read GetOldLOPDIsNull;

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

  end;

  { IProveedoresDelta }
  IProveedoresDelta = interface(IProveedores)
  ['{933D6182-B6DB-40E9-BA65-D4DDA0FF63E4}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldID_TIENDAValue : Integer;
    function GetOldTIENDAValue : String;
    function GetOldDESCUENTOValue : Float;
    function GetOldDESCRIPCION_PROVEEDORValue : String;
    function GetOldCODIGO_ASIGNADOValue : String;
    function GetOldGRUPO_PROVEEDORValue : String;
    function GetOldREGIMEN_IVAValue : String;
    function GetOldID_TIPO_IVAValue : Integer;
    function GetOldID_FORMA_PAGOValue : Integer;
    function GetOldTIENDA_WEBValue : SmallInt;
    function GetOldHOMOLOGADOValue : SmallInt;
    function GetOldCERTIFICACIONValue : String;
    function GetOldIGNORAR_CONTABILIDADValue : Integer;
    function GetOldTIENE_SUBCUENTAValue : Integer;
    function GetOldNOMBRE_COMERCIALValue : String;
    function GetOldES_ACREEDORValue : SmallInt;
    function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
    function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
    function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
    property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
    property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
    property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
    property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
    property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
    property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
    property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
    property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
  end;

  { TProveedoresBusinessProcessorRules }
  TProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedores, IProveedoresDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetID_CATEGORIAIsNull: Boolean; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAIsNull: Boolean; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetTELEFONO_1IsNull: Boolean; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1IsNull: Boolean; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetTELEFONO_2IsNull: Boolean; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2IsNull: Boolean; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetMOVIL_1IsNull: Boolean; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1IsNull: Boolean; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetMOVIL_2IsNull: Boolean; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2IsNull: Boolean; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetEMAIL_1IsNull: Boolean; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1IsNull: Boolean; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetEMAIL_2IsNull: Boolean; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2IsNull: Boolean; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetPAGINA_WEBIsNull: Boolean; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    function GetOldUSUARIOValue: String; virtual;
    function GetOldUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetID_TIENDAValue: Integer; virtual;
    function GetID_TIENDAIsNull: Boolean; virtual;
    function GetOldID_TIENDAValue: Integer; virtual;
    function GetOldID_TIENDAIsNull: Boolean; virtual;
    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
    function GetTIENDAValue: String; virtual;
    function GetTIENDAIsNull: Boolean; virtual;
    function GetOldTIENDAValue: String; virtual;
    function GetOldTIENDAIsNull: Boolean; virtual;
    procedure SetTIENDAValue(const aValue: String); virtual;
    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    function GetOldDESCUENTOValue: Float; virtual;
    function GetOldDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION_PROVEEDORValue: String; virtual;
    function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
    function GetOldDESCRIPCION_PROVEEDORValue: String; virtual;
    function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
    procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
    procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_ASIGNADOValue: String; virtual;
    function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
    function GetOldCODIGO_ASIGNADOValue: String; virtual;
    function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
    function GetGRUPO_PROVEEDORValue: String; virtual;
    function GetGRUPO_PROVEEDORIsNull: Boolean; virtual;
    function GetOldGRUPO_PROVEEDORValue: String; virtual;
    function GetOldGRUPO_PROVEEDORIsNull: Boolean; virtual;
    procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual;
    procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetREGIMEN_IVAValue: String; virtual;
    function GetREGIMEN_IVAIsNull: Boolean; virtual;
    function GetOldREGIMEN_IVAValue: String; virtual;
    function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
    procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
    procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    function GetID_TIPO_IVAIsNull: Boolean; virtual;
    function GetOldID_TIPO_IVAValue: Integer; virtual;
    function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
    function GetID_FORMA_PAGOValue: Integer; virtual;
    function GetID_FORMA_PAGOIsNull: Boolean; virtual;
    function GetOldID_FORMA_PAGOValue: Integer; virtual;
    function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
    function GetTIENDA_WEBValue: SmallInt; virtual;
    function GetTIENDA_WEBIsNull: Boolean; virtual;
    function GetOldTIENDA_WEBValue: SmallInt; virtual;
    function GetOldTIENDA_WEBIsNull: Boolean; virtual;
    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
    function GetHOMOLOGADOValue: SmallInt; virtual;
    function GetHOMOLOGADOIsNull: Boolean; virtual;
    function GetOldHOMOLOGADOValue: SmallInt; virtual;
    function GetOldHOMOLOGADOIsNull: Boolean; virtual;
    procedure SetHOMOLOGADOValue(const aValue: SmallInt); virtual;
    procedure SetHOMOLOGADOIsNull(const aValue: Boolean); virtual;
    function GetCERTIFICACIONValue: String; virtual;
    function GetCERTIFICACIONIsNull: Boolean; virtual;
    function GetOldCERTIFICACIONValue: String; virtual;
    function GetOldCERTIFICACIONIsNull: Boolean; virtual;
    procedure SetCERTIFICACIONValue(const aValue: String); virtual;
    procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
    function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
    function GetOldIGNORAR_CONTABILIDADValue: Integer; virtual;
    function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
    function GetTIENE_SUBCUENTAValue: Integer; virtual;
    function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
    function GetOldTIENE_SUBCUENTAValue: Integer; virtual;
    function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual;
    procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
    procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_COMERCIALValue: String; virtual;
    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
    function GetOldNOMBRE_COMERCIALValue: String; virtual;
    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
    function GetES_ACREEDORValue: SmallInt; virtual;
    function GetES_ACREEDORIsNull: Boolean; virtual;
    function GetOldES_ACREEDORValue: SmallInt; virtual;
    function GetOldES_ACREEDORIsNull: Boolean; virtual;
    procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
    procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
    function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
    function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
    function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
    procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
    procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
    function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
    function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
    function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
    procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
    procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
    function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
    function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
    function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
    procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
    procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
    property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
    property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
    property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
    property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
    property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
    property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull;
    property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
    property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
    property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
    property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
    property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
    property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
    property OldGRUPO_PROVEEDORIsNull : Boolean read GetOldGRUPO_PROVEEDORIsNull;
    property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
    property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
    property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
    property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
    property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
    property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
    property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
    property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
    property HOMOLOGADO : SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
    property HOMOLOGADOIsNull : Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
    property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
    property OldHOMOLOGADOIsNull : Boolean read GetOldHOMOLOGADOIsNull;
    property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
    property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
    property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
    property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull;
    property IGNORAR_CONTABILIDAD : Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
    property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
    property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
    property TIENE_SUBCUENTA : Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
    property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
    property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
    property OldTIENE_SUBCUENTAIsNull : Boolean read GetOldTIENE_SUBCUENTAIsNull;
    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
    property ES_ACREEDOR : SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
    property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
    property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
    property OldES_ACREEDORIsNull : Boolean read GetOldES_ACREEDORIsNull;
    property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
    property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
    property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
    property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
    property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
    property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
    property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
    property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
    property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
    property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
    property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
    property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;

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

  end;

  { IVendedoresDelta }
  IVendedoresDelta = interface(IVendedores)
  ['{670CF45E-35ED-496D-ACB7-02E24F7EF991}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldID_TIENDAValue : Integer;
    function GetOldTIENDAValue : String;
    function GetOldCOMISIONValue : Float;
    function GetOldID_USUARIOValue : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldCOMISION : Float read GetOldCOMISIONValue;
    property OldID_USUARIO : Integer read GetOldID_USUARIOValue;
  end;

  { TVendedoresBusinessProcessorRules }
  TVendedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IVendedores, IVendedoresDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetID_CATEGORIAIsNull: Boolean; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAIsNull: Boolean; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetTELEFONO_1IsNull: Boolean; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1IsNull: Boolean; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetTELEFONO_2IsNull: Boolean; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2IsNull: Boolean; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetMOVIL_1IsNull: Boolean; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1IsNull: Boolean; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetMOVIL_2IsNull: Boolean; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2IsNull: Boolean; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetEMAIL_1IsNull: Boolean; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1IsNull: Boolean; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetEMAIL_2IsNull: Boolean; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2IsNull: Boolean; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetPAGINA_WEBIsNull: Boolean; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    function GetOldUSUARIOValue: String; virtual;
    function GetOldUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetID_TIENDAValue: Integer; virtual;
    function GetID_TIENDAIsNull: Boolean; virtual;
    function GetOldID_TIENDAValue: Integer; virtual;
    function GetOldID_TIENDAIsNull: Boolean; virtual;
    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
    function GetTIENDAValue: String; virtual;
    function GetTIENDAIsNull: Boolean; virtual;
    function GetOldTIENDAValue: String; virtual;
    function GetOldTIENDAIsNull: Boolean; virtual;
    procedure SetTIENDAValue(const aValue: String); virtual;
    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
    function GetCOMISIONValue: Float; virtual;
    function GetCOMISIONIsNull: Boolean; virtual;
    function GetOldCOMISIONValue: Float; virtual;
    function GetOldCOMISIONIsNull: Boolean; virtual;
    procedure SetCOMISIONValue(const aValue: Float); virtual;
    procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
    function GetID_USUARIOValue: Integer; virtual;
    function GetID_USUARIOIsNull: Boolean; virtual;
    function GetOldID_USUARIOValue: Integer; virtual;
    function GetOldID_USUARIOIsNull: Boolean; virtual;
    procedure SetID_USUARIOValue(const aValue: Integer); virtual;
    procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
    property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
    property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
    property OldTIENDA : String read GetOldTIENDAValue;
    property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
    property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
    property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
    property OldCOMISION : Float read GetOldCOMISIONValue;
    property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull;
    property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue;
    property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
    property OldID_USUARIO : Integer read GetOldID_USUARIOValue;
    property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull;

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

  end;

  { IDireccionesContactoDelta }
  IDireccionesContactoDelta = interface(IDireccionesContacto)
  ['{110EC6A6-BC18-4C1D-A82C-B08E23345CCB}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldNOMBREValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldEMAILValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldPORTEValue : Float;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL : String read GetOldEMAILValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldPORTE : Float read GetOldPORTEValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
  end;

  { TDireccionesContactoBusinessProcessorRules }
  TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CONTACTOValue: Integer; virtual;
    function GetID_CONTACTOIsNull: Boolean; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOIsNull: Boolean; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetTELEFONOValue: String; virtual;
    function GetTELEFONOIsNull: Boolean; virtual;
    function GetOldTELEFONOValue: String; virtual;
    function GetOldTELEFONOIsNull: Boolean; virtual;
    procedure SetTELEFONOValue(const aValue: String); virtual;
    procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
    function GetMOVILValue: String; virtual;
    function GetMOVILIsNull: Boolean; virtual;
    function GetOldMOVILValue: String; virtual;
    function GetOldMOVILIsNull: Boolean; virtual;
    procedure SetMOVILValue(const aValue: String); virtual;
    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAILValue: String; virtual;
    function GetEMAILIsNull: Boolean; virtual;
    function GetOldEMAILValue: String; virtual;
    function GetOldEMAILIsNull: Boolean; virtual;
    procedure SetEMAILValue(const aValue: String); virtual;
    procedure SetEMAILIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetPORTEValue: Float; virtual;
    function GetPORTEIsNull: Boolean; virtual;
    function GetOldPORTEValue: Float; virtual;
    function GetOldPORTEIsNull: Boolean; virtual;
    procedure SetPORTEValue(const aValue: Float); virtual;
    procedure SetPORTEIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
    property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
    property MOVIL : String read GetMOVILValue write SetMOVILValue;
    property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL : String read GetEMAILValue write SetEMAILValue;
    property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
    property OldEMAIL : String read GetOldEMAILValue;
    property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property PORTE : Float read GetPORTEValue write SetPORTEValue;
    property PORTEIsNull : Boolean read GetPORTEIsNull write SetPORTEIsNull;
    property OldPORTE : Float read GetOldPORTEValue;
    property OldPORTEIsNull : Boolean read GetOldPORTEIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;

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

  end;

  { IClientesDescuentosDelta }
  IClientesDescuentosDelta = interface(IClientesDescuentos)
  ['{4C4BEB48-604A-437D-9B23-77022C3B6C1F}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CLIENTEValue : Integer;
    function GetOldID_PROVEEDORValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldDESCUENTOValue : Float;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
  end;

  { TClientesDescuentosBusinessProcessorRules }
  TClientesDescuentosBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesDescuentos, IClientesDescuentosDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CLIENTEValue: Integer; virtual;
    function GetID_CLIENTEIsNull: Boolean; virtual;
    function GetOldID_CLIENTEValue: Integer; virtual;
    function GetOldID_CLIENTEIsNull: Boolean; virtual;
    procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
    procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    function GetID_PROVEEDORIsNull: Boolean; virtual;
    function GetOldID_PROVEEDORValue: Integer; virtual;
    function GetOldID_PROVEEDORIsNull: Boolean; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    function GetOldDESCUENTOValue: Float; virtual;
    function GetOldDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
    property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
    property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;

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

  end;

  { IProcedenciasClienteDelta }
  IProcedenciasClienteDelta = interface(IProcedenciasCliente)
  ['{EAF868C1-3667-4C24-A1A5-DE46896D0125}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TProcedenciasClienteBusinessProcessorRules }
  TProcedenciasClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IProcedenciasCliente, IProcedenciasClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;

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

  end;

  { IGruposProveedorDelta }
  IGruposProveedorDelta = interface(IGruposProveedor)
  ['{37A333B0-4BB7-484E-B6AF-4A088F43EBFF}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TGruposProveedorBusinessProcessorRules }
  TGruposProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposProveedor, IGruposProveedorDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;

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

  end;

  { IContactos_RefreshDelta }
  IContactos_RefreshDelta = interface(IContactos_Refresh)
  ['{214CA371-4CD0-44C9-BFD3-1888CA6C33D1}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldPERSONA_CONTACTOValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldFAX : String read GetOldFAXValue;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
  end;

  { TContactos_RefreshBusinessProcessorRules }
  TContactos_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos_Refresh, IContactos_RefreshDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetTELEFONO_1IsNull: Boolean; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1IsNull: Boolean; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetTELEFONO_2IsNull: Boolean; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2IsNull: Boolean; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetMOVIL_1IsNull: Boolean; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1IsNull: Boolean; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetMOVIL_2IsNull: Boolean; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2IsNull: Boolean; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetEMAIL_1IsNull: Boolean; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1IsNull: Boolean; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetEMAIL_2IsNull: Boolean; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2IsNull: Boolean; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetPAGINA_WEBIsNull: Boolean; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    function GetOldUSUARIOValue: String; virtual;
    function GetOldUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers, uDAInterfaces;

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

destructor TDarEmpresasContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDarEmpresasContactoBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA];
end;

function TDarEmpresasContactoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA]);
end;

function TDarEmpresasContactoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarEmpresasContactoID_EMPRESA];
end;

function TDarEmpresasContactoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarEmpresasContactoID_EMPRESA]);
end;

procedure TDarEmpresasContactoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA] := aValue;
end;

procedure TDarEmpresasContactoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA] := Null;
end;


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

destructor TPersonalContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TPersonalContactoBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID];
end;

function TPersonalContactoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID];
end;

function TPersonalContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO];
end;

function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO];
end;

function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE];
end;

function TPersonalContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE];
end;

function TPersonalContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]);
end;

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

procedure TPersonalContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetPUESTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO];
end;

function TPersonalContactoBusinessProcessorRules.GetPUESTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldPUESTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO];
end;

function TPersonalContactoBusinessProcessorRules.GetOldPUESTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetPUESTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetPUESTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO];
end;

function TPersonalContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO];
end;

function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL];
end;

function TPersonalContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL];
end;

function TPersonalContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]);
end;

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

procedure TPersonalContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX];
end;

function TPersonalContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX];
end;

function TPersonalContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL];
end;

function TPersonalContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL];
end;

function TPersonalContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA];
end;

function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA];
end;

function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := Null;
end;

function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION];
end;

function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
end;

function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION];
end;

function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
end;

procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := aValue;
end;

procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := Null;
end;


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

destructor TDarTiendaDeUsuarioBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDarTiendaDeUsuarioBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA];
end;

function TDarTiendaDeUsuarioBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA]);
end;

function TDarTiendaDeUsuarioBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarTiendaDeUsuarioID_TIENDA];
end;

function TDarTiendaDeUsuarioBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarTiendaDeUsuarioID_TIENDA]);
end;

procedure TDarTiendaDeUsuarioBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA] := aValue;
end;

procedure TDarTiendaDeUsuarioBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA] := Null;
end;


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

destructor TSubCuentasContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TSubCuentasContactoBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID];
end;

function TSubCuentasContactoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID]);
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID];
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID]);
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID] := aValue;
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID] := Null;
end;

function TSubCuentasContactoBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA];
end;

function TSubCuentasContactoBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA]);
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoREF_SUBCUENTA];
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoREF_SUBCUENTA]);
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA] := aValue;
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA] := Null;
end;

function TSubCuentasContactoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION];
end;

function TSubCuentasContactoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION]);
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoDESCRIPCION];
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoDESCRIPCION]);
end;

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

procedure TSubCuentasContactoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION] := Null;
end;

function TSubCuentasContactoBusinessProcessorRules.GetID_CUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA];
end;

function TSubCuentasContactoBusinessProcessorRules.GetID_CUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA]);
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldID_CUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CUENTA];
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CUENTA]);
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA] := aValue;
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA] := Null;
end;

function TSubCuentasContactoBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO];
end;

function TSubCuentasContactoBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO]);
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_EJERCICIO];
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_EJERCICIO]);
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO] := aValue;
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO] := Null;
end;

function TSubCuentasContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO];
end;

function TSubCuentasContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO]);
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CONTACTO];
end;

function TSubCuentasContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CONTACTO]);
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO] := aValue;
end;

procedure TSubCuentasContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO] := Null;
end;


{ TContactosBusinessProcessorRules }
constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := NOTAS_OnChange;
  f_NOTAS := NewROStrings(StrList,True);
end;

destructor TContactosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TContactosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := TStringList(Sender).Text;
end;

function TContactosBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID];
end;

function TContactosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]);
end;

function TContactosBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID];
end;

function TContactosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]);
end;

procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := Null;
end;

function TContactosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA];
end;

function TContactosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]);
end;

function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA];
end;

function TContactosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]);
end;

procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := Null;
end;

function TContactosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF];
end;

function TContactosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]);
end;

function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF];
end;

function TContactosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]);
end;

procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := Null;
end;

function TContactosBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE];
end;

function TContactosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]);
end;

function TContactosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE];
end;

function TContactosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]);
end;

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

procedure TContactosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := Null;
end;

function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO];
end;

function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]);
end;

function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO];
end;

function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]);
end;

procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := Null;
end;

function TContactosBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE];
end;

function TContactosBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]);
end;

function TContactosBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE];
end;

function TContactosBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]);
end;

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

procedure TContactosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := Null;
end;

function TContactosBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION];
end;

function TContactosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]);
end;

function TContactosBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION];
end;

function TContactosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]);
end;

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

procedure TContactosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := Null;
end;

function TContactosBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA];
end;

function TContactosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]);
end;

function TContactosBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA];
end;

function TContactosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]);
end;

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

procedure TContactosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := Null;
end;

function TContactosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL];
end;

function TContactosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]);
end;

function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL];
end;

function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]);
end;

procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := Null;
end;

function TContactosBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1];
end;

function TContactosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]);
end;

function TContactosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1];
end;

function TContactosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]);
end;

procedure TContactosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := Null;
end;

function TContactosBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2];
end;

function TContactosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]);
end;

function TContactosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2];
end;

function TContactosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]);
end;

procedure TContactosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := Null;
end;

function TContactosBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1];
end;

function TContactosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]);
end;

function TContactosBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1];
end;

function TContactosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]);
end;

procedure TContactosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := Null;
end;

function TContactosBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2];
end;

function TContactosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]);
end;

function TContactosBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2];
end;

function TContactosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]);
end;

procedure TContactosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := Null;
end;

function TContactosBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX];
end;

function TContactosBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]);
end;

function TContactosBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX];
end;

function TContactosBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]);
end;

procedure TContactosBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := Null;
end;

function TContactosBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1];
end;

function TContactosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]);
end;

function TContactosBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1];
end;

function TContactosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]);
end;

procedure TContactosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := Null;
end;

function TContactosBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2];
end;

function TContactosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]);
end;

function TContactosBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2];
end;

function TContactosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]);
end;

procedure TContactosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := Null;
end;

function TContactosBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB];
end;

function TContactosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]);
end;

function TContactosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB];
end;

function TContactosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]);
end;

procedure TContactosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := Null;
end;

function TContactosBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := f_NOTAS;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS];
end;

function TContactosBusinessProcessorRules.GetNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]);
end;

function TContactosBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS];
end;

function TContactosBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]);
end;

procedure TContactosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := Null;
end;

function TContactosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA];
end;

function TContactosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]);
end;

function TContactosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA];
end;

function TContactosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]);
end;

procedure TContactosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := Null;
end;

function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION];
end;

function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]);
end;

function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION];
end;

function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]);
end;

procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := Null;
end;

function TContactosBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO];
end;

function TContactosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]);
end;

function TContactosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO];
end;

function TContactosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]);
end;

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

procedure TContactosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := Null;
end;

function TContactosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA];
end;

function TContactosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]);
end;

function TContactosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA];
end;

function TContactosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]);
end;

procedure TContactosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := Null;
end;

function TContactosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA];
end;

function TContactosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]);
end;

function TContactosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA];
end;

function TContactosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]);
end;

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

procedure TContactosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null;
end;

function TContactosBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_TIENDA];
end;

function TContactosBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_TIENDA]);
end;

function TContactosBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_TIENDA];
end;

function TContactosBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_TIENDA]);
end;

procedure TContactosBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_TIENDA] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_TIENDA] := Null;
end;

function TContactosBusinessProcessorRules.GetTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTIENDA];
end;

function TContactosBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTIENDA]);
end;

function TContactosBusinessProcessorRules.GetOldTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTIENDA];
end;

function TContactosBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTIENDA]);
end;

procedure TContactosBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTIENDA] := aValue;
end;

procedure TContactosBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTIENDA] := Null;
end;


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

destructor TGruposClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TGruposClienteBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID];
end;

function TGruposClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]);
end;

function TGruposClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID];
end;

function TGruposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]);
end;

procedure TGruposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := aValue;
end;

procedure TGruposClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := Null;
end;

function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION];
end;

function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]);
end;

function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION];
end;

function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]);
end;

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

procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := Null;
end;


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

destructor TDatosBancariosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDatosBancariosBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID];
end;

function TDatosBancariosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID];
end;

function TDatosBancariosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO];
end;

function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO];
end;

function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetTITULARValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR];
end;

function TDatosBancariosBusinessProcessorRules.GetTITULARIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR];
end;

function TDatosBancariosBusinessProcessorRules.GetOldTITULARIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetENTIDADValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD];
end;

function TDatosBancariosBusinessProcessorRules.GetENTIDADIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD];
end;

function TDatosBancariosBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetSUCURSALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL];
end;

function TDatosBancariosBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL];
end;

function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetDCValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC];
end;

function TDatosBancariosBusinessProcessorRules.GetDCIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC];
end;

function TDatosBancariosBusinessProcessorRules.GetOldDCIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetCUENTAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA];
end;

function TDatosBancariosBusinessProcessorRules.GetCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA];
end;

function TDatosBancariosBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA];
end;

function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA];
end;

function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := Null;
end;

function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION];
end;

function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]);
end;

function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION];
end;

function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]);
end;

procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := aValue;
end;

procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := Null;
end;


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

destructor TContactosDireccionesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO];
end;

function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION];
end;

function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE];
end;

function TContactosDireccionesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE]);
end;

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

procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF];
end;

function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE];
end;

function TContactosDireccionesBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE]);
end;

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

procedure TContactosDireccionesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION];
end;

function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION]);
end;

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

procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA];
end;

function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA]);
end;

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

procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL];
end;

function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO];
end;

function TContactosDireccionesBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL];
end;

function TContactosDireccionesBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL]);
end;

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

procedure TContactosDireccionesBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX];
end;

function TContactosDireccionesBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL];
end;

function TContactosDireccionesBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := Null;
end;

function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO];
end;

function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]);
end;

function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO];
end;

function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]);
end;

procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := aValue;
end;

procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := Null;
end;


{ TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := NOTAS_OnChange;
  f_NOTAS := NewROStrings(StrList,True);
end;

destructor TClientesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TClientesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := TStringList(Sender).Text;
end;

function TClientesBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID];
end;

function TClientesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]);
end;

function TClientesBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID];
end;

function TClientesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]);
end;

procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := Null;
end;

function TClientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA];
end;

function TClientesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]);
end;

function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA];
end;

function TClientesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]);
end;

procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := Null;
end;

function TClientesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF];
end;

function TClientesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]);
end;

function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF];
end;

function TClientesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]);
end;

procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := Null;
end;

function TClientesBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE];
end;

function TClientesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]);
end;

function TClientesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE];
end;

function TClientesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]);
end;

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

procedure TClientesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := Null;
end;

function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO];
end;

function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]);
end;

function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO];
end;

function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]);
end;

procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := Null;
end;

function TClientesBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE];
end;

function TClientesBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]);
end;

function TClientesBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE];
end;

function TClientesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]);
end;

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

procedure TClientesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := Null;
end;

function TClientesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION];
end;

function TClientesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]);
end;

function TClientesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION];
end;

function TClientesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]);
end;

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

procedure TClientesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := Null;
end;

function TClientesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA];
end;

function TClientesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]);
end;

function TClientesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA];
end;

function TClientesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]);
end;

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

procedure TClientesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := Null;
end;

function TClientesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL];
end;

function TClientesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]);
end;

function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL];
end;

function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]);
end;

procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := Null;
end;

function TClientesBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1];
end;

function TClientesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]);
end;

function TClientesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1];
end;

function TClientesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]);
end;

procedure TClientesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := Null;
end;

function TClientesBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2];
end;

function TClientesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]);
end;

function TClientesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2];
end;

function TClientesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]);
end;

procedure TClientesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := Null;
end;

function TClientesBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1];
end;

function TClientesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]);
end;

function TClientesBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1];
end;

function TClientesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]);
end;

procedure TClientesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := Null;
end;

function TClientesBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2];
end;

function TClientesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]);
end;

function TClientesBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2];
end;

function TClientesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]);
end;

procedure TClientesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := Null;
end;

function TClientesBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX];
end;

function TClientesBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]);
end;

function TClientesBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX];
end;

function TClientesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]);
end;

procedure TClientesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := Null;
end;

function TClientesBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1];
end;

function TClientesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]);
end;

function TClientesBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1];
end;

function TClientesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]);
end;

procedure TClientesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := Null;
end;

function TClientesBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2];
end;

function TClientesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]);
end;

function TClientesBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2];
end;

function TClientesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]);
end;

procedure TClientesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := Null;
end;

function TClientesBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB];
end;

function TClientesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]);
end;

function TClientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB];
end;

function TClientesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]);
end;

procedure TClientesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := Null;
end;

function TClientesBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := f_NOTAS;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS];
end;

function TClientesBusinessProcessorRules.GetNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]);
end;

function TClientesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS];
end;

function TClientesBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]);
end;

procedure TClientesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := Null;
end;

function TClientesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA];
end;

function TClientesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]);
end;

function TClientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA];
end;

function TClientesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]);
end;

procedure TClientesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := Null;
end;

function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION];
end;

function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]);
end;

function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION];
end;

function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]);
end;

procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := Null;
end;

function TClientesBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO];
end;

function TClientesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]);
end;

function TClientesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO];
end;

function TClientesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]);
end;

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

procedure TClientesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := Null;
end;

function TClientesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA];
end;

function TClientesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]);
end;

function TClientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA];
end;

function TClientesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]);
end;

procedure TClientesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := Null;
end;

function TClientesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA];
end;

function TClientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]);
end;

function TClientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA];
end;

function TClientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]);
end;

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

procedure TClientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null;
end;

function TClientesBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIENDA];
end;

function TClientesBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIENDA]);
end;

function TClientesBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIENDA];
end;

function TClientesBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIENDA]);
end;

procedure TClientesBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIENDA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIENDA] := Null;
end;

function TClientesBusinessProcessorRules.GetTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA];
end;

function TClientesBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA]);
end;

function TClientesBusinessProcessorRules.GetOldTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA];
end;

function TClientesBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA]);
end;

procedure TClientesBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA] := Null;
end;

function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
end;

function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]);
end;

function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE];
end;

function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]);
end;

procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := Null;
end;

function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
end;

function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]);
end;

function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL];
end;

function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]);
end;

procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
end;

function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
end;

function TClientesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]);
end;

function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO];
end;

function TClientesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]);
end;

procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := Null;
end;

function TClientesBusinessProcessorRules.GetREGIMEN_IVAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA];
end;

function TClientesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]);
end;

function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA];
end;

function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]);
end;

procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := Null;
end;

function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
end;

function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]);
end;

function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO];
end;

function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]);
end;

procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := Null;
end;

function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
end;

function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
end;

function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
end;

function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
end;

procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := Null;
end;

function TClientesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA];
end;

function TClientesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]);
end;

function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA];
end;

function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]);
end;

procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := Null;
end;

function TClientesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
end;

function TClientesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]);
end;

function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO];
end;

function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]);
end;

procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := Null;
end;

function TClientesBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB];
end;

function TClientesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]);
end;

function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB];
end;

function TClientesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]);
end;

procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
end;

function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
end;

function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]);
end;

function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO];
end;

function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]);
end;

procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
end;

function TClientesBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
end;

function TClientesBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]);
end;

function TClientesBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
end;

function TClientesBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIGNORAR_CONTABILIDAD]);
end;

procedure TClientesBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := Null;
end;

function TClientesBusinessProcessorRules.GetTIENE_SUBCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
end;

function TClientesBusinessProcessorRules.GetTIENE_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA]);
end;

function TClientesBusinessProcessorRules.GetOldTIENE_SUBCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENE_SUBCUENTA];
end;

function TClientesBusinessProcessorRules.GetOldTIENE_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENE_SUBCUENTA]);
end;

procedure TClientesBusinessProcessorRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] := Null;
end;

function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
end;

function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]);
end;

function TClientesBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
end;

function TClientesBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA_CLIENTE]);
end;

procedure TClientesBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null;
end;

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end;

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
end;

procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null;
end;

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
end;

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]);
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]);
end;

procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := Null;
end;

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
end;

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]);
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]);
end;

procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null;
end;

function TClientesBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES];
end;

function TClientesBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES]);
end;

function TClientesBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLISTA_NOMBRES];
end;

function TClientesBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLISTA_NOMBRES]);
end;

procedure TClientesBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES] := Null;
end;

function TClientesBusinessProcessorRules.GetLOPDValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLOPD];
end;

function TClientesBusinessProcessorRules.GetLOPDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLOPD]);
end;

function TClientesBusinessProcessorRules.GetOldLOPDValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLOPD];
end;

function TClientesBusinessProcessorRules.GetOldLOPDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLOPD]);
end;

procedure TClientesBusinessProcessorRules.SetLOPDValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLOPD] := aValue;
end;

procedure TClientesBusinessProcessorRules.SetLOPDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLOPD] := Null;
end;


{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := NOTAS_OnChange;
  f_NOTAS := NewROStrings(StrList,True);
end;

destructor TProveedoresBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TProveedoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := TStringList(Sender).Text;
end;

function TProveedoresBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID];
end;

function TProveedoresBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]);
end;

function TProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID];
end;

function TProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]);
end;

procedure TProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := Null;
end;

function TProveedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA];
end;

function TProveedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]);
end;

function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA];
end;

function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]);
end;

procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF];
end;

function TProveedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]);
end;

function TProveedoresBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF];
end;

function TProveedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]);
end;

procedure TProveedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := Null;
end;

function TProveedoresBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE];
end;

function TProveedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]);
end;

function TProveedoresBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE];
end;

function TProveedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := Null;
end;

function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO];
end;

function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]);
end;

function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO];
end;

function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]);
end;

procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := Null;
end;

function TProveedoresBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE];
end;

function TProveedoresBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]);
end;

function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE];
end;

function TProveedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := Null;
end;

function TProveedoresBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION];
end;

function TProveedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]);
end;

function TProveedoresBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION];
end;

function TProveedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := Null;
end;

function TProveedoresBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA];
end;

function TProveedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]);
end;

function TProveedoresBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA];
end;

function TProveedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL];
end;

function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]);
end;

function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL];
end;

function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]);
end;

procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := Null;
end;

function TProveedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1];
end;

function TProveedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]);
end;

function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1];
end;

function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]);
end;

procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := Null;
end;

function TProveedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2];
end;

function TProveedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]);
end;

function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2];
end;

function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]);
end;

procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := Null;
end;

function TProveedoresBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1];
end;

function TProveedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]);
end;

function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1];
end;

function TProveedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]);
end;

procedure TProveedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := Null;
end;

function TProveedoresBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2];
end;

function TProveedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]);
end;

function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2];
end;

function TProveedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]);
end;

procedure TProveedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := Null;
end;

function TProveedoresBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX];
end;

function TProveedoresBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]);
end;

function TProveedoresBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX];
end;

function TProveedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]);
end;

procedure TProveedoresBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := Null;
end;

function TProveedoresBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1];
end;

function TProveedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]);
end;

function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1];
end;

function TProveedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]);
end;

procedure TProveedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := Null;
end;

function TProveedoresBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2];
end;

function TProveedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]);
end;

function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2];
end;

function TProveedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]);
end;

procedure TProveedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := Null;
end;

function TProveedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB];
end;

function TProveedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]);
end;

function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB];
end;

function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]);
end;

procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := Null;
end;

function TProveedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := f_NOTAS;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS];
end;

function TProveedoresBusinessProcessorRules.GetNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]);
end;

function TProveedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS];
end;

function TProveedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]);
end;

procedure TProveedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := Null;
end;

function TProveedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA];
end;

function TProveedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]);
end;

function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA];
end;

function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]);
end;

procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION];
end;

function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]);
end;

function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION];
end;

function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]);
end;

procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := Null;
end;

function TProveedoresBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO];
end;

function TProveedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]);
end;

function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO];
end;

function TProveedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := Null;
end;

function TProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA];
end;

function TProveedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]);
end;

function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA];
end;

function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]);
end;

procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA];
end;

function TProveedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]);
end;

function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA];
end;

function TProveedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIENDA];
end;

function TProveedoresBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIENDA]);
end;

function TProveedoresBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIENDA];
end;

function TProveedoresBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIENDA]);
end;

procedure TProveedoresBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIENDA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIENDA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA];
end;

function TProveedoresBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA]);
end;

function TProveedoresBusinessProcessorRules.GetOldTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA];
end;

function TProveedoresBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA]);
end;

procedure TProveedoresBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO];
end;

function TProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]);
end;

function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO];
end;

function TProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]);
end;

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

procedure TProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := Null;
end;

function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
end;

function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]);
end;

function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
end;

function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]);
end;

procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null;
end;

function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO];
end;

function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]);
end;

function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO];
end;

function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO]);
end;

procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := Null;
end;

function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
end;

function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]);
end;

function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
end;

function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]);
end;

procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := Null;
end;

function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
end;

function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]);
end;

function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA];
end;

function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]);
end;

procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
end;

function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]);
end;

function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA];
end;

function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]);
end;

procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
end;

function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]);
end;

function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO];
end;

function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]);
end;

procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := Null;
end;

function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
end;

function TProveedoresBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]);
end;

function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB];
end;

function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]);
end;

procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := Null;
end;

function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
end;

function TProveedoresBusinessProcessorRules.GetHOMOLOGADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]);
end;

function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO];
end;

function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]);
end;

procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := Null;
end;

function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION];
end;

function TProveedoresBusinessProcessorRules.GetCERTIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]);
end;

function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION];
end;

function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]);
end;

procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null;
end;

function TProveedoresBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
end;

function TProveedoresBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]);
end;

function TProveedoresBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
end;

function TProveedoresBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]);
end;

procedure TProveedoresBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := Null;
end;

function TProveedoresBusinessProcessorRules.GetTIENE_SUBCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
end;

function TProveedoresBusinessProcessorRules.GetTIENE_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]);
end;

function TProveedoresBusinessProcessorRules.GetOldTIENE_SUBCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENE_SUBCUENTA];
end;

function TProveedoresBusinessProcessorRules.GetOldTIENE_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENE_SUBCUENTA]);
end;

procedure TProveedoresBusinessProcessorRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := Null;
end;

function TProveedoresBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
end;

function TProveedoresBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL]);
end;

function TProveedoresBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
end;

function TProveedoresBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE_COMERCIAL]);
end;

procedure TProveedoresBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL] := Null;
end;

function TProveedoresBusinessProcessorRules.GetES_ACREEDORValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
end;

function TProveedoresBusinessProcessorRules.GetES_ACREEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR]);
end;

function TProveedoresBusinessProcessorRules.GetOldES_ACREEDORValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresES_ACREEDOR];
end;

function TProveedoresBusinessProcessorRules.GetOldES_ACREEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresES_ACREEDOR]);
end;

procedure TProveedoresBusinessProcessorRules.SetES_ACREEDORValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetES_ACREEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null;
end;

function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end;

function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]);
end;

function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end;

function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]);
end;

procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := Null;
end;

function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
end;

function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]);
end;

function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
end;

function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]);
end;

procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := Null;
end;

function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
end;

function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]);
end;

function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
end;

function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]);
end;

procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := aValue;
end;

procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null;
end;


{ TVendedoresBusinessProcessorRules }
constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := NOTAS_OnChange;
  f_NOTAS := NewROStrings(StrList,True);
end;

destructor TVendedoresBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TVendedoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS] := TStringList(Sender).Text;
end;

function TVendedoresBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID];
end;

function TVendedoresBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID]);
end;

function TVendedoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID];
end;

function TVendedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID]);
end;

procedure TVendedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID] := Null;
end;

function TVendedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA];
end;

function TVendedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA]);
end;

function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA];
end;

function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA]);
end;

procedure TVendedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF];
end;

function TVendedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF]);
end;

function TVendedoresBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF];
end;

function TVendedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF]);
end;

procedure TVendedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF] := Null;
end;

function TVendedoresBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE];
end;

function TVendedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE]);
end;

function TVendedoresBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE];
end;

function TVendedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE]);
end;

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

procedure TVendedoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE] := Null;
end;

function TVendedoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO];
end;

function TVendedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO]);
end;

function TVendedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPERSONA_CONTACTO];
end;

function TVendedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPERSONA_CONTACTO]);
end;

procedure TVendedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO] := Null;
end;

function TVendedoresBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE];
end;

function TVendedoresBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE]);
end;

function TVendedoresBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE];
end;

function TVendedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE]);
end;

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

procedure TVendedoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE] := Null;
end;

function TVendedoresBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION];
end;

function TVendedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION]);
end;

function TVendedoresBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION];
end;

function TVendedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION]);
end;

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

procedure TVendedoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION] := Null;
end;

function TVendedoresBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA];
end;

function TVendedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA]);
end;

function TVendedoresBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA];
end;

function TVendedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA]);
end;

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

procedure TVendedoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL];
end;

function TVendedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL]);
end;

function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL];
end;

function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL]);
end;

procedure TVendedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL] := Null;
end;

function TVendedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1];
end;

function TVendedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1]);
end;

function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1];
end;

function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1]);
end;

procedure TVendedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1] := Null;
end;

function TVendedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2];
end;

function TVendedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2]);
end;

function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2];
end;

function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2]);
end;

procedure TVendedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2] := Null;
end;

function TVendedoresBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1];
end;

function TVendedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1]);
end;

function TVendedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1];
end;

function TVendedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1]);
end;

procedure TVendedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1] := Null;
end;

function TVendedoresBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2];
end;

function TVendedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2]);
end;

function TVendedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2];
end;

function TVendedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2]);
end;

procedure TVendedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2] := Null;
end;

function TVendedoresBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX];
end;

function TVendedoresBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX]);
end;

function TVendedoresBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX];
end;

function TVendedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX]);
end;

procedure TVendedoresBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX] := Null;
end;

function TVendedoresBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1];
end;

function TVendedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1]);
end;

function TVendedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1];
end;

function TVendedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1]);
end;

procedure TVendedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1] := Null;
end;

function TVendedoresBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2];
end;

function TVendedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2]);
end;

function TVendedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2];
end;

function TVendedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2]);
end;

procedure TVendedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2] := Null;
end;

function TVendedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB];
end;

function TVendedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB]);
end;

function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB];
end;

function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB]);
end;

procedure TVendedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB] := Null;
end;

function TVendedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := f_NOTAS;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS];
end;

function TVendedoresBusinessProcessorRules.GetNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS]);
end;

function TVendedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS];
end;

function TVendedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS]);
end;

procedure TVendedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS] := Null;
end;

function TVendedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA];
end;

function TVendedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA]);
end;

function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA];
end;

function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA]);
end;

procedure TVendedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION];
end;

function TVendedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION]);
end;

function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION];
end;

function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION]);
end;

procedure TVendedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION] := Null;
end;

function TVendedoresBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO];
end;

function TVendedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO]);
end;

function TVendedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO];
end;

function TVendedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO]);
end;

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

procedure TVendedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO] := Null;
end;

function TVendedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA];
end;

function TVendedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA]);
end;

function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA];
end;

function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA]);
end;

procedure TVendedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA];
end;

function TVendedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA]);
end;

function TVendedoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresREFERENCIA];
end;

function TVendedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresREFERENCIA]);
end;

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

procedure TVendedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_TIENDA];
end;

function TVendedoresBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_TIENDA]);
end;

function TVendedoresBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_TIENDA];
end;

function TVendedoresBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_TIENDA]);
end;

procedure TVendedoresBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_TIENDA] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_TIENDA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTIENDA];
end;

function TVendedoresBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTIENDA]);
end;

function TVendedoresBusinessProcessorRules.GetOldTIENDAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTIENDA];
end;

function TVendedoresBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTIENDA]);
end;

procedure TVendedoresBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTIENDA] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTIENDA] := Null;
end;

function TVendedoresBusinessProcessorRules.GetCOMISIONValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION];
end;

function TVendedoresBusinessProcessorRules.GetCOMISIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]);
end;

function TVendedoresBusinessProcessorRules.GetOldCOMISIONValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCOMISION];
end;

function TVendedoresBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCOMISION]);
end;

procedure TVendedoresBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION] := Null;
end;

function TVendedoresBusinessProcessorRules.GetID_USUARIOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_USUARIO];
end;

function TVendedoresBusinessProcessorRules.GetID_USUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_USUARIO]);
end;

function TVendedoresBusinessProcessorRules.GetOldID_USUARIOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_USUARIO];
end;

function TVendedoresBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_USUARIO]);
end;

procedure TVendedoresBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_USUARIO] := aValue;
end;

procedure TVendedoresBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_USUARIO] := Null;
end;


{ TDireccionesContactoBusinessProcessorRules }
constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := NOTAS_OnChange;
  f_NOTAS := NewROStrings(StrList,True);
end;

destructor TDireccionesContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TDireccionesContactoBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := TStringList(Sender).Text;
end;

function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID];
end;

function TDireccionesContactoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO];
end;

function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF];
end;

function TDireccionesContactoBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNIF_CIF];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNIF_CIF]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];
end;

function TDireccionesContactoBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]);
end;

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

procedure TDireccionesContactoBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION];
end;

function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]);
end;

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

procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA];
end;

function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]);
end;

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

procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;

function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;

function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE];
end;

function TDireccionesContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]);
end;

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

procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO];
end;

function TDireccionesContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL];
end;

function TDireccionesContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]);
end;

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

procedure TDireccionesContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX];
end;

function TDireccionesContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL];
end;

function TDireccionesContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := f_NOTAS;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS];
end;

function TDireccionesContactoBusinessProcessorRules.GetNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetPORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE];
end;

function TDireccionesContactoBusinessProcessorRules.GetPORTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPORTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA];
end;

function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
end;

function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]);
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := Null;
end;


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

destructor TClientesDescuentosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TClientesDescuentosBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID];
end;

function TClientesDescuentosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]);
end;

function TClientesDescuentosBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]);
end;

procedure TClientesDescuentosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := aValue;
end;

procedure TClientesDescuentosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := Null;
end;

function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE];
end;

function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]);
end;

function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]);
end;

procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := aValue;
end;

procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := Null;
end;

function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR];
end;

function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]);
end;

function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]);
end;

procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := aValue;
end;

procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := Null;
end;

function TClientesDescuentosBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE];
end;

function TClientesDescuentosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]);
end;

function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]);
end;

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

procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := Null;
end;

function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO];
end;

function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]);
end;

function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]);
end;

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

procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := Null;
end;


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

destructor TProcedenciasClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TProcedenciasClienteBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID];
end;

function TProcedenciasClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID]);
end;

function TProcedenciasClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteID];
end;

function TProcedenciasClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteID]);
end;

procedure TProcedenciasClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID] := aValue;
end;

procedure TProcedenciasClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID] := Null;
end;

function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION];
end;

function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION]);
end;

function TProcedenciasClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteDESCRIPCION];
end;

function TProcedenciasClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteDESCRIPCION]);
end;

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

procedure TProcedenciasClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION] := Null;
end;


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

destructor TGruposProveedorBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TGruposProveedorBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID];
end;

function TGruposProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]);
end;

function TGruposProveedorBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID];
end;

function TGruposProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]);
end;

procedure TGruposProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := aValue;
end;

procedure TGruposProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := Null;
end;

function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION];
end;

function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]);
end;

function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION];
end;

function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]);
end;

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

procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := Null;
end;


{ TContactos_RefreshBusinessProcessorRules }
constructor TContactos_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := NOTAS_OnChange;
  f_NOTAS := NewROStrings(StrList,True);
end;

destructor TContactos_RefreshBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TContactos_RefreshBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS] := TStringList(Sender).Text;
end;

function TContactos_RefreshBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID];
end;

function TContactos_RefreshBusinessProcessorRules.GetIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF];
end;

function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE];
end;

function TContactos_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE]);
end;

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

procedure TContactos_RefreshBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE];
end;

function TContactos_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE]);
end;

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

procedure TContactos_RefreshBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION];
end;

function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION]);
end;

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

procedure TContactos_RefreshBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA];
end;

function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA]);
end;

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

procedure TContactos_RefreshBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL];
end;

function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1];
end;

function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2];
end;

function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1];
end;

function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2];
end;

function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX];
end;

function TContactos_RefreshBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1];
end;

function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2];
end;

function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB];
end;

function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := f_NOTAS;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS];
end;

function TContactos_RefreshBusinessProcessorRules.GetNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA];
end;

function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION];
end;

function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO];
end;

function TContactos_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO]);
end;

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

procedure TContactos_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA];
end;

function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA]);
end;

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

procedure TContactos_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA] := Null;
end;

function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO];
end;

function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]);
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO];
end;

function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]);
end;

procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := aValue;
end;

procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := Null;
end;


initialization
  RegisterBusinessProcessorRules(RID_DarEmpresasContactoDelta, TDarEmpresasContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DarTiendaDeUsuarioDelta, TDarTiendaDeUsuarioBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ProcedenciasClienteDelta, TProcedenciasClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);

end.
