unit schContactosServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContactosClient_Intf;

const
  { Delta rules ids 
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
  RID_ContactosDelta = '{83090F71-F00B-4D1A-88EE-8A5FDEA11091}';
  RID_DatosBancariosDelta = '{657B549F-B362-41BE-88BA-D5D9A949DEEC}';
  RID_DireccionesContactoDelta = '{4C3C24B7-E822-435C-A50F-A5277C128EB7}';
  RID_Contactos_RefreshDelta = '{28CA07B8-EFF9-4CCD-9BC5-131999C9AD63}';
  RID_PersonalContactoDelta = '{0017AE39-9949-4AE6-984E-371BC57EFA3B}';
  RID_PacientesDelta = '{442B4BC7-B6D6-4637-839F-5EC54A16674A}';

type
  { IContactosDelta }
  IContactosDelta = interface(IContactos)
  ['{83090F71-F00B-4D1A-88EE-8A5FDEA11091}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;

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

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

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

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

  end;

  { IDatosBancariosDelta }
  IDatosBancariosDelta = interface(IDatosBancarios)
  ['{657B549F-B362-41BE-88BA-D5D9A949DEEC}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldTITULARValue : String;
    function GetOldENTIDADValue : String;
    function GetOldSUCURSALValue : String;
    function GetOldDCValue : String;
    function GetOldCUENTAValue : String;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;

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

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

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

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

  end;

  { IDireccionesContactoDelta }
  IDireccionesContactoDelta = interface(IDireccionesContacto)
  ['{4C3C24B7-E822-435C-A50F-A5277C128EB7}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldNOMBREValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldEMAILValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldPORTEValue : Float;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;

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

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

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

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

  end;

  { IContactos_RefreshDelta }
  IContactos_RefreshDelta = interface(IContactos_Refresh)
  ['{28CA07B8-EFF9-4CCD-9BC5-131999C9AD63}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldPERSONA_CONTACTOValue : String;

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

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

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

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

  end;

  { IPersonalContactoDelta }
  IPersonalContactoDelta = interface(IPersonalContacto)
  ['{0017AE39-9949-4AE6-984E-371BC57EFA3B}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldPUESTOValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldEMAILValue : String;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;

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

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

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

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

  end;

  { IPacientesDelta }
  IPacientesDelta = interface(IPacientes)
  ['{442B4BC7-B6D6-4637-839F-5EC54A16674A}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_CATEGORIAValue : Integer;
    function GetOldNIF_CIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldCALLEValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONO_1Value : String;
    function GetOldTELEFONO_2Value : String;
    function GetOldMOVIL_1Value : String;
    function GetOldMOVIL_2Value : String;
    function GetOldFAXValue : String;
    function GetOldEMAIL_1Value : String;
    function GetOldEMAIL_2Value : String;
    function GetOldPAGINA_WEBValue : String;
    function GetOldNOTASValue : IROStrings;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldFECHA_NACIMIENTOValue : DateTime;
    function GetOldNUMERO_SSValue : String;
    function GetOldFECHA_BAJAValue : DateTime;
    function GetOldCAUSA_BAJAValue : String;
    function GetOldPABELLONValue : String;

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

  { TPacientesBusinessProcessorRules }
  TPacientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPacientes, IPacientesDelta)
  private
    f_NOTAS: IROStrings;
    procedure NOTAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CATEGORIAValue: Integer; virtual;
    function GetID_CATEGORIAIsNull: Boolean; virtual;
    function GetOldID_CATEGORIAValue: Integer; virtual;
    function GetOldID_CATEGORIAIsNull: Boolean; virtual;
    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    function GetOldNIF_CIFValue: String; virtual;
    function GetOldNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    function GetOldNOMBREValue: String; virtual;
    function GetOldNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    function GetOldPERSONA_CONTACTOValue: String; virtual;
    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    function GetCALLEIsNull: Boolean; virtual;
    function GetOldCALLEValue: String; virtual;
    function GetOldCALLEIsNull: Boolean; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    function GetOldCODIGO_POSTALValue: String; virtual;
    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_1Value: String; virtual;
    function GetTELEFONO_1IsNull: Boolean; virtual;
    function GetOldTELEFONO_1Value: String; virtual;
    function GetOldTELEFONO_1IsNull: Boolean; virtual;
    procedure SetTELEFONO_1Value(const aValue: String); virtual;
    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
    function GetTELEFONO_2Value: String; virtual;
    function GetTELEFONO_2IsNull: Boolean; virtual;
    function GetOldTELEFONO_2Value: String; virtual;
    function GetOldTELEFONO_2IsNull: Boolean; virtual;
    procedure SetTELEFONO_2Value(const aValue: String); virtual;
    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_1Value: String; virtual;
    function GetMOVIL_1IsNull: Boolean; virtual;
    function GetOldMOVIL_1Value: String; virtual;
    function GetOldMOVIL_1IsNull: Boolean; virtual;
    procedure SetMOVIL_1Value(const aValue: String); virtual;
    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
    function GetMOVIL_2Value: String; virtual;
    function GetMOVIL_2IsNull: Boolean; virtual;
    function GetOldMOVIL_2Value: String; virtual;
    function GetOldMOVIL_2IsNull: Boolean; virtual;
    procedure SetMOVIL_2Value(const aValue: String); virtual;
    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
    function GetFAXValue: String; virtual;
    function GetFAXIsNull: Boolean; virtual;
    function GetOldFAXValue: String; virtual;
    function GetOldFAXIsNull: Boolean; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    procedure SetFAXIsNull(const aValue: Boolean); virtual;
    function GetEMAIL_1Value: String; virtual;
    function GetEMAIL_1IsNull: Boolean; virtual;
    function GetOldEMAIL_1Value: String; virtual;
    function GetOldEMAIL_1IsNull: Boolean; virtual;
    procedure SetEMAIL_1Value(const aValue: String); virtual;
    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
    function GetEMAIL_2Value: String; virtual;
    function GetEMAIL_2IsNull: Boolean; virtual;
    function GetOldEMAIL_2Value: String; virtual;
    function GetOldEMAIL_2IsNull: Boolean; virtual;
    procedure SetEMAIL_2Value(const aValue: String); virtual;
    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
    function GetPAGINA_WEBValue: String; virtual;
    function GetPAGINA_WEBIsNull: Boolean; virtual;
    function GetOldPAGINA_WEBValue: String; virtual;
    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
    function GetNOTASValue: IROStrings; virtual;
    function GetNOTASIsNull: Boolean; virtual;
    function GetOldNOTASValue: IROStrings; virtual;
    function GetOldNOTASIsNull: Boolean; virtual;
    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    function GetOldFECHA_ALTAValue: DateTime; virtual;
    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    function GetOldUSUARIOValue: String; virtual;
    function GetOldUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_NACIMIENTOValue: DateTime; virtual;
    function GetFECHA_NACIMIENTOIsNull: Boolean; virtual;
    function GetOldFECHA_NACIMIENTOValue: DateTime; virtual;
    function GetOldFECHA_NACIMIENTOIsNull: Boolean; virtual;
    procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual;
    procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); virtual;
    function GetNUMERO_SSValue: String; virtual;
    function GetNUMERO_SSIsNull: Boolean; virtual;
    function GetOldNUMERO_SSValue: String; virtual;
    function GetOldNUMERO_SSIsNull: Boolean; virtual;
    procedure SetNUMERO_SSValue(const aValue: String); virtual;
    procedure SetNUMERO_SSIsNull(const aValue: Boolean); virtual;
    function GetFECHA_BAJAValue: DateTime; virtual;
    function GetFECHA_BAJAIsNull: Boolean; virtual;
    function GetOldFECHA_BAJAValue: DateTime; virtual;
    function GetOldFECHA_BAJAIsNull: Boolean; virtual;
    procedure SetFECHA_BAJAValue(const aValue: DateTime); virtual;
    procedure SetFECHA_BAJAIsNull(const aValue: Boolean); virtual;
    function GetCAUSA_BAJAValue: String; virtual;
    function GetCAUSA_BAJAIsNull: Boolean; virtual;
    function GetOldCAUSA_BAJAValue: String; virtual;
    function GetOldCAUSA_BAJAIsNull: Boolean; virtual;
    procedure SetCAUSA_BAJAValue(const aValue: String); virtual;
    procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual;
    function GetPABELLONValue: String; virtual;
    function GetPABELLONIsNull: Boolean; virtual;
    function GetOldPABELLONValue: String; virtual;
    function GetOldPABELLONIsNull: Boolean; virtual;
    procedure SetPABELLONValue(const aValue: String); virtual;
    procedure SetPABELLONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
    property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
    property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property OldNIF_CIF : String read GetOldNIF_CIFValue;
    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
    property FAX : String read GetFAXValue write SetFAXValue;
    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
    property OldFAX : String read GetOldFAXValue;
    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
    property NOTAS : IROStrings read GetNOTASValue;
    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
    property OldNOTAS : IROStrings read GetOldNOTASValue;
    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
    property FECHA_NACIMIENTO : DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
    property FECHA_NACIMIENTOIsNull : Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull;
    property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
    property OldFECHA_NACIMIENTOIsNull : Boolean read GetOldFECHA_NACIMIENTOIsNull;
    property NUMERO_SS : String read GetNUMERO_SSValue write SetNUMERO_SSValue;
    property NUMERO_SSIsNull : Boolean read GetNUMERO_SSIsNull write SetNUMERO_SSIsNull;
    property OldNUMERO_SS : String read GetOldNUMERO_SSValue;
    property OldNUMERO_SSIsNull : Boolean read GetOldNUMERO_SSIsNull;
    property FECHA_BAJA : DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue;
    property FECHA_BAJAIsNull : Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
    property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue;
    property OldFECHA_BAJAIsNull : Boolean read GetOldFECHA_BAJAIsNull;
    property CAUSA_BAJA : String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
    property CAUSA_BAJAIsNull : Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull;
    property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
    property OldCAUSA_BAJAIsNull : Boolean read GetOldCAUSA_BAJAIsNull;
    property PABELLON : String read GetPABELLONValue write SetPABELLONValue;
    property PABELLONIsNull : Boolean read GetPABELLONIsNull write SetPABELLONIsNull;
    property OldPABELLON : String read GetOldPABELLONValue;
    property OldPABELLONIsNull : Boolean read GetOldPABELLONIsNull;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers, uDAInterfaces;

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

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

destructor TContactosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

destructor TDatosBancariosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

destructor TDireccionesContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function TDireccionesContactoBusinessProcessorRules.GetPORTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]);
end;

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

function TDireccionesContactoBusinessProcessorRules.GetOldPORTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]);
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue;
end;

procedure TDireccionesContactoBusinessProcessorRules.SetPORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := Null;
end;

function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA];
end;

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

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

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

function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
end;

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

function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
end;

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

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

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


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

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

destructor TContactos_RefreshBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

function TContactos_RefreshBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB];
end;

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

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

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

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

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

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA];
end;

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

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

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

function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO];
end;

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

function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO];
end;

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

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

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


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

destructor TPersonalContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

destructor TPacientesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

function TPacientesBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesID];
end;

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

function TPacientesBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesID];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesID_CATEGORIA];
end;

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

function TPacientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesID_CATEGORIA];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesNIF_CIF];
end;

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

function TPacientesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesNIF_CIF];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesNOMBRE];
end;

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

function TPacientesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesNOMBRE];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPERSONA_CONTACTO];
end;

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

function TPacientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPERSONA_CONTACTO];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCALLE];
end;

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

function TPacientesBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesCALLE];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPOBLACION];
end;

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

function TPacientesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPOBLACION];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPROVINCIA];
end;

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

function TPacientesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPROVINCIA];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCODIGO_POSTAL];
end;

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

function TPacientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesCODIGO_POSTAL];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesTELEFONO_1];
end;

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

function TPacientesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesTELEFONO_1];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesTELEFONO_2];
end;

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

function TPacientesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesTELEFONO_2];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesMOVIL_1];
end;

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

function TPacientesBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesMOVIL_1];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesMOVIL_2];
end;

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

function TPacientesBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesMOVIL_2];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFAX];
end;

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

function TPacientesBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFAX];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesEMAIL_1];
end;

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

function TPacientesBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesEMAIL_1];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesEMAIL_2];
end;

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

function TPacientesBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesEMAIL_2];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPAGINA_WEB];
end;

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

function TPacientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPAGINA_WEB];
end;

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

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

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

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

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

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

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

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

function TPacientesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_ALTA];
end;

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

function TPacientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFECHA_ALTA];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_MODIFICACION];
end;

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

function TPacientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFECHA_MODIFICACION];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesUSUARIO];
end;

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

function TPacientesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesUSUARIO];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesID_EMPRESA];
end;

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

function TPacientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesID_EMPRESA];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesREFERENCIA];
end;

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

function TPacientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesREFERENCIA];
end;

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

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

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

function TPacientesBusinessProcessorRules.GetFECHA_NACIMIENTOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_NACIMIENTO];
end;

function TPacientesBusinessProcessorRules.GetFECHA_NACIMIENTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_NACIMIENTO]);
end;

function TPacientesBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFECHA_NACIMIENTO];
end;

function TPacientesBusinessProcessorRules.GetOldFECHA_NACIMIENTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFECHA_NACIMIENTO]);
end;

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

procedure TPacientesBusinessProcessorRules.SetFECHA_NACIMIENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_NACIMIENTO] := Null;
end;

function TPacientesBusinessProcessorRules.GetNUMERO_SSValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesNUMERO_SS];
end;

function TPacientesBusinessProcessorRules.GetNUMERO_SSIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesNUMERO_SS]);
end;

function TPacientesBusinessProcessorRules.GetOldNUMERO_SSValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesNUMERO_SS];
end;

function TPacientesBusinessProcessorRules.GetOldNUMERO_SSIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesNUMERO_SS]);
end;

procedure TPacientesBusinessProcessorRules.SetNUMERO_SSValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesNUMERO_SS] := aValue;
end;

procedure TPacientesBusinessProcessorRules.SetNUMERO_SSIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesNUMERO_SS] := Null;
end;

function TPacientesBusinessProcessorRules.GetFECHA_BAJAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_BAJA];
end;

function TPacientesBusinessProcessorRules.GetFECHA_BAJAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_BAJA]);
end;

function TPacientesBusinessProcessorRules.GetOldFECHA_BAJAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFECHA_BAJA];
end;

function TPacientesBusinessProcessorRules.GetOldFECHA_BAJAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesFECHA_BAJA]);
end;

procedure TPacientesBusinessProcessorRules.SetFECHA_BAJAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_BAJA] := aValue;
end;

procedure TPacientesBusinessProcessorRules.SetFECHA_BAJAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesFECHA_BAJA] := Null;
end;

function TPacientesBusinessProcessorRules.GetCAUSA_BAJAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCAUSA_BAJA];
end;

function TPacientesBusinessProcessorRules.GetCAUSA_BAJAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCAUSA_BAJA]);
end;

function TPacientesBusinessProcessorRules.GetOldCAUSA_BAJAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesCAUSA_BAJA];
end;

function TPacientesBusinessProcessorRules.GetOldCAUSA_BAJAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesCAUSA_BAJA]);
end;

procedure TPacientesBusinessProcessorRules.SetCAUSA_BAJAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCAUSA_BAJA] := aValue;
end;

procedure TPacientesBusinessProcessorRules.SetCAUSA_BAJAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCAUSA_BAJA] := Null;
end;

function TPacientesBusinessProcessorRules.GetPABELLONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON];
end;

function TPacientesBusinessProcessorRules.GetPABELLONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON]);
end;

function TPacientesBusinessProcessorRules.GetOldPABELLONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPABELLON];
end;

function TPacientesBusinessProcessorRules.GetOldPABELLONIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPABELLON]);
end;

procedure TPacientesBusinessProcessorRules.SetPABELLONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON] := aValue;
end;

procedure TPacientesBusinessProcessorRules.SetPABELLONIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON] := Null;
end;


initialization
  RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_PacientesDelta, TPacientesBusinessProcessorRules);

end.
