Tecsitel_FactuGES2/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

unit schContactosServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, 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_ContactosDelta = '{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}';
  RID_GruposClienteDelta = '{4D46364E-1E11-4648-A9C7-AE4B81FB675C}';
  RID_DatosBancariosDelta = '{D4227F74-9431-45EA-8F09-20FFE80E34B1}';
  RID_ContactosCategoriasDelta = '{EB18171B-206D-4CFF-97FF-CB91350EAF4C}';
  RID_ClientesDelta = '{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}';
  RID_ProveedoresDelta = '{168C19DE-0AD5-40CB-B737-628846E311FE}';
  RID_EmpleadosDelta = '{6544E069-D22D-49D4-AAFE-47DD92FA7744}';
  RID_DireccionesContactoDelta = '{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}';
  RID_ClientesDescuentosDelta = '{2E020115-E0E9-464F-B175-1BED0E2BF0B1}';
  RID_GruposProveedorDelta = '{14E46C85-BAAE-4A15-B868-EC579AF38A8A}';
  RID_GruposEmpleadoDelta = '{364591F3-D581-4104-9125-7CE465563DEB}';

type
  { IContactosDelta }
  IContactosDelta = interface(IContactos)
  ['{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}']
    { 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 GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : 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 OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
  end;

  { TContactosBusinessProcessorRules }
  TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    function GetFAXValue: String; virtual;
    function GetOldFAXValue: String; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    procedure SetNOTASValue(const aValue: IROStrings); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property FAX : String read GetFAXValue write SetFAXValue;
    property OldFAX : String read GetOldFAXValue;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;

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

  end;

  { IGruposClienteDelta }
  IGruposClienteDelta = interface(IGruposCliente)
  ['{4D46364E-1E11-4648-A9C7-AE4B81FB675C}']
    { Property getters and setters }
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TGruposClienteBusinessProcessorRules }
  TGruposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposCliente, IGruposClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;

    { Properties }
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;

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

  end;

  { IDatosBancariosDelta }
  IDatosBancariosDelta = interface(IDatosBancarios)
  ['{D4227F74-9431-45EA-8F09-20FFE80E34B1}']
    { 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;

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

  { TDatosBancariosBusinessProcessorRules }
  TDatosBancariosBusinessProcessorRules = class(TDABusinessProcessorRules, IDatosBancarios, IDatosBancariosDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    function GetTITULARValue: String; virtual;
    function GetOldTITULARValue: String; virtual;
    procedure SetTITULARValue(const aValue: String); virtual;
    function GetENTIDADValue: String; virtual;
    function GetOldENTIDADValue: String; virtual;
    procedure SetENTIDADValue(const aValue: String); virtual;
    function GetSUCURSALValue: String; virtual;
    function GetOldSUCURSALValue: String; virtual;
    procedure SetSUCURSALValue(const aValue: String); virtual;
    function GetDCValue: String; virtual;
    function GetOldDCValue: String; virtual;
    procedure SetDCValue(const aValue: String); virtual;
    function GetCUENTAValue: String; virtual;
    function GetOldCUENTAValue: String; virtual;
    procedure SetCUENTAValue(const aValue: String); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property TITULAR : String read GetTITULARValue write SetTITULARValue;
    property OldTITULAR : String read GetOldTITULARValue;
    property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
    property OldENTIDAD : String read GetOldENTIDADValue;
    property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
    property OldSUCURSAL : String read GetOldSUCURSALValue;
    property DC : String read GetDCValue write SetDCValue;
    property OldDC : String read GetOldDCValue;
    property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
    property OldCUENTA : String read GetOldCUENTAValue;

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

  end;

  { IContactosCategoriasDelta }
  IContactosCategoriasDelta = interface(IContactosCategorias)
  ['{EB18171B-206D-4CFF-97FF-CB91350EAF4C}']
    { Property getters and setters }
    function GetOldID_CONTACTOValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;

    { Properties }
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
  end;

  { TContactosCategoriasBusinessProcessorRules }
  TContactosCategoriasBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosCategorias, IContactosCategoriasDelta)
  private
  protected
    { Property getters and setters }
    function GetID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;

    { Properties }
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;

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

  end;

  { IClientesDelta }
  IClientesDelta = interface(IClientes)
  ['{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldID_TIPO_IVAValue : Integer;
    function GetOldREGIMEN_IVAValue : String;
    function GetOldID_FORMA_PAGOValue : Integer;
    function GetOldTIENDA_WEBValue : Integer;
    function GetOldRECARGO_EQUIVALENCIAValue : Integer;
    function GetOldGRUPO_CLIENTEValue : String;
    function GetOldNOMBRE_COMERCIALValue : String;
    function GetOldVENCIMIENTO_FACTURASValue : Integer;
    function GetOldBLOQUEADOValue : Integer;
    function GetOldMOTIVO_BLOQUEOValue : 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 OldCALLE : String read GetOldCALLEValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    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 OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
    property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
    property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
    property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
    property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
    property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
  end;

  { TClientesBusinessProcessorRules }
  TClientesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientes, IClientesDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    function GetFAXValue: String; virtual;
    function GetOldFAXValue: String; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    procedure SetNOTASValue(const aValue: IROStrings); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    function GetOldID_TIPO_IVAValue: Integer; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    function GetREGIMEN_IVAValue: String; virtual;
    function GetOldREGIMEN_IVAValue: String; virtual;
    procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
    function GetID_FORMA_PAGOValue: Integer; virtual;
    function GetOldID_FORMA_PAGOValue: Integer; virtual;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
    function GetTIENDA_WEBValue: Integer; virtual;
    function GetOldTIENDA_WEBValue: Integer; virtual;
    procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
    function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
    function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
    function GetGRUPO_CLIENTEValue: String; virtual;
    function GetOldGRUPO_CLIENTEValue: String; virtual;
    procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_COMERCIALValue: String; virtual;
    function GetOldNOMBRE_COMERCIALValue: String; virtual;
    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
    function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
    function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual;
    procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
    function GetBLOQUEADOValue: Integer; virtual;
    function GetOldBLOQUEADOValue: Integer; virtual;
    procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
    function GetMOTIVO_BLOQUEOValue: String; virtual;
    function GetOldMOTIVO_BLOQUEOValue: String; virtual;
    procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property FAX : String read GetFAXValue write SetFAXValue;
    property OldFAX : String read GetOldFAXValue;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
    property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
    property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
    property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
    property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
    property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
    property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
    property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
    property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
    property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
    property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;

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

  end;

  { IProveedoresDelta }
  IProveedoresDelta = interface(IProveedores)
  ['{168C19DE-0AD5-40CB-B737-628846E311FE}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldID_TIPO_IVAValue : Integer;
    function GetOldREGIMEN_IVAValue : String;
    function GetOldID_FORMA_PAGOValue : Integer;
    function GetOldTIENDA_WEBValue : Integer;
    function GetOldDESCUENTOValue : Float;
    function GetOldDESCRIPCION_PROVEEDORValue : String;
    function GetOldCODIGO_ASIGNADOValue : String;
    function GetOldHOMOLOGADOValue : Integer;
    function GetOldCERTIFICACIONValue : String;
    function GetOldGRUPO_PROVEEDORValue : 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 OldCALLE : String read GetOldCALLEValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    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 OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
    property OldHOMOLOGADO : Integer read GetOldHOMOLOGADOValue;
    property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
    property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
  end;

  { TProveedoresBusinessProcessorRules }
  TProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedores, IProveedoresDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    function GetFAXValue: String; virtual;
    function GetOldFAXValue: String; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    procedure SetNOTASValue(const aValue: IROStrings); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    function GetOldID_TIPO_IVAValue: Integer; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    function GetREGIMEN_IVAValue: String; virtual;
    function GetOldREGIMEN_IVAValue: String; virtual;
    procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
    function GetID_FORMA_PAGOValue: Integer; virtual;
    function GetOldID_FORMA_PAGOValue: Integer; virtual;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
    function GetTIENDA_WEBValue: Integer; virtual;
    function GetOldTIENDA_WEBValue: Integer; virtual;
    procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
    function GetDESCUENTOValue: Float; virtual;
    function GetOldDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetDESCRIPCION_PROVEEDORValue: String; virtual;
    function GetOldDESCRIPCION_PROVEEDORValue: String; virtual;
    procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
    function GetCODIGO_ASIGNADOValue: String; virtual;
    function GetOldCODIGO_ASIGNADOValue: String; virtual;
    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
    function GetHOMOLOGADOValue: Integer; virtual;
    function GetOldHOMOLOGADOValue: Integer; virtual;
    procedure SetHOMOLOGADOValue(const aValue: Integer); virtual;
    function GetCERTIFICACIONValue: String; virtual;
    function GetOldCERTIFICACIONValue: String; virtual;
    procedure SetCERTIFICACIONValue(const aValue: String); virtual;
    function GetGRUPO_PROVEEDORValue: String; virtual;
    function GetOldGRUPO_PROVEEDORValue: String; virtual;
    procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property FAX : String read GetFAXValue write SetFAXValue;
    property OldFAX : String read GetOldFAXValue;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
    property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
    property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
    property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
    property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
    property HOMOLOGADO : Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
    property OldHOMOLOGADO : Integer read GetOldHOMOLOGADOValue;
    property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
    property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
    property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
    property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;

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

  end;

  { IEmpleadosDelta }
  IEmpleadosDelta = interface(IEmpleados)
  ['{6544E069-D22D-49D4-AAFE-47DD92FA7744}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldCATEGORIAValue : String;
    function GetOldFECHA_NACIMIENTOValue : DateTime;
    function GetOldFECHA_ALTA_EMPRESAValue : DateTime;
    function GetOldFORMACION_BASEValue : IROStrings;
    function GetOldFORMACION_COMPLEValue : IROStrings;
    function GetOldFORMACION_RECIBIDAValue : IROStrings;
    function GetOldEXPERIENCIAValue : IROStrings;

    { 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 OldCALLE : String read GetOldCALLEValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    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 OldUSUARIO : String read GetOldUSUARIOValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldCATEGORIA : String read GetOldCATEGORIAValue;
    property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
    property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
    property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue;
    property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
    property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
    property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
  end;

  { TEmpleadosBusinessProcessorRules }
  TEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpleados, IEmpleadosDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    function GetFAXValue: String; virtual;
    function GetOldFAXValue: String; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    procedure SetNOTASValue(const aValue: IROStrings); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCATEGORIAValue: String; virtual;
    function GetOldCATEGORIAValue: String; virtual;
    procedure SetCATEGORIAValue(const aValue: String); virtual;
    function GetFECHA_NACIMIENTOValue: DateTime; virtual;
    function GetOldFECHA_NACIMIENTOValue: DateTime; virtual;
    procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual;
    function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual;
    function GetOldFECHA_ALTA_EMPRESAValue: DateTime; virtual;
    procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual;
    function GetFORMACION_BASEValue: IROStrings; virtual;
    function GetOldFORMACION_BASEValue: IROStrings; virtual;
    procedure SetFORMACION_BASEValue(const aValue: IROStrings); virtual;
    function GetFORMACION_COMPLEValue: IROStrings; virtual;
    function GetOldFORMACION_COMPLEValue: IROStrings; virtual;
    procedure SetFORMACION_COMPLEValue(const aValue: IROStrings); virtual;
    function GetFORMACION_RECIBIDAValue: IROStrings; virtual;
    function GetOldFORMACION_RECIBIDAValue: IROStrings; virtual;
    procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings); virtual;
    function GetEXPERIENCIAValue: IROStrings; virtual;
    function GetOldEXPERIENCIAValue: IROStrings; virtual;
    procedure SetEXPERIENCIAValue(const aValue: IROStrings); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property FAX : String read GetFAXValue write SetFAXValue;
    property OldFAX : String read GetOldFAXValue;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
    property OldCATEGORIA : String read GetOldCATEGORIAValue;
    property FECHA_NACIMIENTO : DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
    property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
    property FECHA_ALTA_EMPRESA : DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue;
    property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
    property FORMACION_BASE : IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue;
    property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue;
    property FORMACION_COMPLE : IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue;
    property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
    property FORMACION_RECIBIDA : IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue;
    property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
    property EXPERIENCIA : IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue;
    property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;

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

  end;

  { IDireccionesContactoDelta }
  IDireccionesContactoDelta = interface(IDireccionesContacto)
  ['{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldEMAILValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldPORTEValue : Float;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    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;
  end;

  { TDireccionesContactoBusinessProcessorRules }
  TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CONTACTOValue: Integer; virtual;
    function GetOldID_CONTACTOValue: Integer; virtual;
    procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    function GetTELEFONOValue: String; virtual;
    function GetOldTELEFONOValue: String; virtual;
    procedure SetTELEFONOValue(const aValue: String); virtual;
    function GetMOVILValue: String; virtual;
    function GetOldMOVILValue: String; virtual;
    procedure SetMOVILValue(const aValue: String); virtual;
    function GetFAXValue: String; virtual;
    function GetOldFAXValue: String; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    function GetEMAILValue: String; virtual;
    function GetOldEMAILValue: String; virtual;
    procedure SetEMAILValue(const aValue: String); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    procedure SetNOTASValue(const aValue: IROStrings); virtual;
    function GetPORTEValue: Float; virtual;
    function GetOldPORTEValue: Float; virtual;
    procedure SetPORTEValue(const aValue: Float); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
    property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property MOVIL : String read GetMOVILValue write SetMOVILValue;
    property OldMOVIL : String read GetOldMOVILValue;
    property FAX : String read GetFAXValue write SetFAXValue;
    property OldFAX : String read GetOldFAXValue;
    property EMAIL : String read GetEMAILValue write SetEMAILValue;
    property OldEMAIL : String read GetOldEMAILValue;
    property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property PORTE : Float read GetPORTEValue write SetPORTEValue;
    property OldPORTE : Float read GetOldPORTEValue;

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

  end;

  { IClientesDescuentosDelta }
  IClientesDescuentosDelta = interface(IClientesDescuentos)
  ['{2E020115-E0E9-464F-B175-1BED0E2BF0B1}']
    { 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 GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_CLIENTEValue: Integer; virtual;
    function GetOldID_CLIENTEValue: Integer; virtual;
    procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    function GetOldID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetDESCUENTOValue: Float; virtual;
    function GetOldDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;

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

  end;

  { IGruposProveedorDelta }
  IGruposProveedorDelta = interface(IGruposProveedor)
  ['{14E46C85-BAAE-4A15-B868-EC579AF38A8A}']
    { Property getters and setters }
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TGruposProveedorBusinessProcessorRules }
  TGruposProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposProveedor, IGruposProveedorDelta)
  private
  protected
    { Property getters and setters }
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;

    { Properties }
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;

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

  end;

  { IGruposEmpleadoDelta }
  IGruposEmpleadoDelta = interface(IGruposEmpleado)
  ['{364591F3-D581-4104-9125-7CE465563DEB}']
    { Property getters and setters }
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TGruposEmpleadoBusinessProcessorRules }
  TGruposEmpleadoBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposEmpleado, IGruposEmpleadoDelta)
  private
  protected
    { Property getters and setters }
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;

    { Properties }
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TContactosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TContactosBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := aValue.Text;
end;

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

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

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

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

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

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

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

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

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


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

destructor TGruposClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := aValue;
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.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID];
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

destructor TContactosCategoriasBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TContactosCategoriasBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO];
end;

function TContactosCategoriasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CONTACTO];
end;

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

function TContactosCategoriasBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA];
end;

function TContactosCategoriasBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CATEGORIA];
end;

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


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

destructor TClientesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TClientesBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := aValue.Text;
end;

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

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

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

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

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

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

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

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

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

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

function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
begin
  result := 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;

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

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

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

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

function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
begin
  result := 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;

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

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

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

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

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

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

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

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

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

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

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

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

function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
end;

function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
end;

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

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

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

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

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

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

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


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

destructor TProveedoresBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL];
end;

function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL];
end;

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

function TProveedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1];
end;

function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1];
end;

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

function TProveedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2];
end;

function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2];
end;

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

function TProveedoresBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1];
end;

function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1];
end;

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

function TProveedoresBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2];
end;

function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2];
end;

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

function TProveedoresBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX];
end;

function TProveedoresBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX];
end;

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

function TProveedoresBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1];
end;

function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1];
end;

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

function TProveedoresBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2];
end;

function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2];
end;

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

function TProveedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB];
end;

function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB];
end;

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

function TProveedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS];
end;

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

procedure TProveedoresBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := aValue.Text;
end;

function TProveedoresBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO];
end;

function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO];
end;

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

function TProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA];
end;

function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA];
end;

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

function TProveedoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA];
end;

function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA];
end;

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

function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
end;

function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
begin
  result := 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;

function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
end;

function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA];
end;

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

function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
end;

function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
begin
  result := 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;

function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
end;

function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB];
end;

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

function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO];
end;

function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO];
end;

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

function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
end;

function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
end;

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

function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO];
end;

function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO];
end;

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

function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
end;

function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO];
end;

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

function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION];
end;

function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION];
end;

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

function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
end;

function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
end;

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


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

destructor TEmpleadosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TEmpleadosBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID];
end;

function TEmpleadosBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID];
end;

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

function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA];
end;

function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA];
end;

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

function TEmpleadosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF];
end;

function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF];
end;

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

function TEmpleadosBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE];
end;

function TEmpleadosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE];
end;

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

function TEmpleadosBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE];
end;

function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE];
end;

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

function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO];
end;

function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO];
end;

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

function TEmpleadosBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION];
end;

function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION];
end;

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

function TEmpleadosBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA];
end;

function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA];
end;

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

function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL];
end;

function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL];
end;

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

function TEmpleadosBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1];
end;

function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1];
end;

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

function TEmpleadosBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2];
end;

function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2];
end;

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

function TEmpleadosBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1];
end;

function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1];
end;

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

function TEmpleadosBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2];
end;

function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2];
end;

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

function TEmpleadosBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX];
end;

function TEmpleadosBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX];
end;

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

function TEmpleadosBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1];
end;

function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1];
end;

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

function TEmpleadosBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2];
end;

function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2];
end;

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

function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB];
end;

function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB];
end;

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

function TEmpleadosBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS];
end;

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

procedure TEmpleadosBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := aValue.Text;
end;

function TEmpleadosBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO];
end;

function TEmpleadosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO];
end;

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

function TEmpleadosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA];
end;

function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA];
end;

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

function TEmpleadosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA];
end;

function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA];
end;

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

function TEmpleadosBusinessProcessorRules.GetCATEGORIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA];
end;

function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA];
end;

procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := aValue;
end;

function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO];
end;

function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO];
end;

procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := aValue;
end;

function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
end;

function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
end;

procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := aValue;
end;

function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE];
end;

function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE];
end;

procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := aValue.Text;
end;

function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
end;

function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE];
end;

procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := aValue.Text;
end;

function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
end;

function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA];
end;

procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := aValue.Text;
end;

function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
end;

function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA];
end;

procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := aValue.Text;
end;


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

destructor TDireccionesContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS];
end;

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

procedure TDireccionesContactoBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := aValue.Text;
end;

function TDireccionesContactoBusinessProcessorRules.GetPORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE];
end;

function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE];
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue;
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.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID];
end;

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

function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE];
end;

procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := aValue;
end;

function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR];
end;

procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := aValue;
end;

function TClientesDescuentosBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE];
end;

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

function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO];
end;

function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO];
end;

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


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

destructor TGruposProveedorBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION];
end;

function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION];
end;

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


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

destructor TGruposEmpleadoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION];
end;

function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION];
end;

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


initialization
  RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ContactosCategoriasDelta, TContactosCategoriasBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_EmpleadosDelta, TEmpleadosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_GruposEmpleadoDelta, TGruposEmpleadoBusinessProcessorRules);

end.