AlonsoYSal_FactuGES/Modulos/Contactos/Reglas/schContactosServer_Intf.pas

unit schContactosServer_Intf;

interface

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

const
  { Delta rules ids 
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
  RID_ContactosDelta = '{ABA17B6E-08D8-4454-BDAD-B910A3F7D35B}';
  RID_CategoriasContactoDelta = '{C03A6727-9993-417A-84DE-298B5E76771C}';
  RID_CategoriasDelta = '{697295F3-01C7-4FE0-8676-78D00C743CDF}';

type
  { IContactosDelta }
  IContactosDelta = interface(IContactos)
  ['{ABA17B6E-08D8-4454-BDAD-B910A3F7D35B}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldNIFCIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldNOTASValue : String;
    function GetOldCALLEValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldTELEFONO1Value : String;
    function GetOldTELEFONO2Value : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldCORREO1Value : String;
    function GetOldCORREO2Value : String;
    function GetOldPAGINAWEBValue : String;
    function GetOldPERSONACONTACTOValue : String;
    function GetOldBAJA_LOGICAValue : Integer;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNOTAS : String read GetOldNOTASValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldTELEFONO1 : String read GetOldTELEFONO1Value;
    property OldTELEFONO2 : String read GetOldTELEFONO2Value;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldFAX : String read GetOldFAXValue;
    property OldCORREO1 : String read GetOldCORREO1Value;
    property OldCORREO2 : String read GetOldCORREO2Value;
    property OldPAGINAWEB : String read GetOldPAGINAWEBValue;
    property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue;
    property OldBAJA_LOGICA : Integer read GetOldBAJA_LOGICAValue;
  end;

  { TContactosBusinessProcessorRules }
  TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetNIFCIFValue: String; virtual;
    function GetOldNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNOTASValue: String; virtual;
    function GetOldNOTASValue: String; virtual;
    procedure SetNOTASValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    function GetOldCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetTELEFONO1Value: String; virtual;
    function GetOldTELEFONO1Value: String; virtual;
    procedure SetTELEFONO1Value(const aValue: String); virtual;
    function GetTELEFONO2Value: String; virtual;
    function GetOldTELEFONO2Value: String; virtual;
    procedure SetTELEFONO2Value(const aValue: String); virtual;
    function GetMOVILValue: String; virtual;
    function GetOldMOVILValue: String; virtual;
    procedure SetMOVILValue(const aValue: String); virtual;
    function GetFAXValue: String; virtual;
    function GetOldFAXValue: String; virtual;
    procedure SetFAXValue(const aValue: String); virtual;
    function GetCORREO1Value: String; virtual;
    function GetOldCORREO1Value: String; virtual;
    procedure SetCORREO1Value(const aValue: String); virtual;
    function GetCORREO2Value: String; virtual;
    function GetOldCORREO2Value: String; virtual;
    procedure SetCORREO2Value(const aValue: String); virtual;
    function GetPAGINAWEBValue: String; virtual;
    function GetOldPAGINAWEBValue: String; virtual;
    procedure SetPAGINAWEBValue(const aValue: String); virtual;
    function GetPERSONACONTACTOValue: String; virtual;
    function GetOldPERSONACONTACTOValue: String; virtual;
    procedure SetPERSONACONTACTOValue(const aValue: String); virtual;
    function GetBAJA_LOGICAValue: Integer; virtual;
    function GetOldBAJA_LOGICAValue: Integer; virtual;
    procedure SetBAJA_LOGICAValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property NIFCIF : String read GetNIFCIFValue write SetNIFCIFValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property NOTAS : String read GetNOTASValue write SetNOTASValue;
    property OldNOTAS : String read GetOldNOTASValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGOPOSTAL : String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property TELEFONO1 : String read GetTELEFONO1Value write SetTELEFONO1Value;
    property OldTELEFONO1 : String read GetOldTELEFONO1Value;
    property TELEFONO2 : String read GetTELEFONO2Value write SetTELEFONO2Value;
    property OldTELEFONO2 : String read GetOldTELEFONO2Value;
    property MOVIL : String read GetMOVILValue write SetMOVILValue;
    property OldMOVIL : String read GetOldMOVILValue;
    property FAX : String read GetFAXValue write SetFAXValue;
    property OldFAX : String read GetOldFAXValue;
    property CORREO1 : String read GetCORREO1Value write SetCORREO1Value;
    property OldCORREO1 : String read GetOldCORREO1Value;
    property CORREO2 : String read GetCORREO2Value write SetCORREO2Value;
    property OldCORREO2 : String read GetOldCORREO2Value;
    property PAGINAWEB : String read GetPAGINAWEBValue write SetPAGINAWEBValue;
    property OldPAGINAWEB : String read GetOldPAGINAWEBValue;
    property PERSONACONTACTO : String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue;
    property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue;
    property BAJA_LOGICA : Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue;
    property OldBAJA_LOGICA : Integer read GetOldBAJA_LOGICAValue;

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

  end;

  { ICategoriasContactoDelta }
  ICategoriasContactoDelta = interface(ICategoriasContacto)
  ['{C03A6727-9993-417A-84DE-298B5E76771C}']
    { Property getters and setters }
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldCODIGOCATEGORIAValue : Integer;

    { Properties }
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
  end;

  { TCategoriasContactoBusinessProcessorRules }
  TCategoriasContactoBusinessProcessorRules = class(TDABusinessProcessorRules, ICategoriasContacto, ICategoriasContactoDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetCODIGOCATEGORIAValue: Integer; virtual;
    function GetOldCODIGOCATEGORIAValue: Integer; virtual;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property CODIGOCATEGORIA : Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;

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

  end;

  { ICategoriasDelta }
  ICategoriasDelta = interface(ICategorias)
  ['{697295F3-01C7-4FE0-8676-78D00C743CDF}']
    { Property getters and setters }
    function GetOldCODIGOValue : Integer;
    function GetOldDESCRIPCIONValue : String;

    { Properties }
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
  end;

  { TCategoriasBusinessProcessorRules }
  TCategoriasBusinessProcessorRules = class(TDABusinessProcessorRules, ICategorias, ICategoriasDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TContactosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TContactosBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGOEMPRESA];
end;

function TContactosBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGOEMPRESA];
end;

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

function TContactosBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO];
end;

function TContactosBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO];
end;

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

function TContactosBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHAALTA];
end;

function TContactosBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHAALTA];
end;

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

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

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

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

function TContactosBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIFCIF];
end;

function TContactosBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIFCIF];
end;

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

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

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

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

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

function TContactosBusinessProcessorRules.GetOldNOTASValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS];
end;

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

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

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

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

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

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

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

function TContactosBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGOPOSTAL];
end;

function TContactosBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGOPOSTAL];
end;

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

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

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

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

function TContactosBusinessProcessorRules.GetTELEFONO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO1];
end;

function TContactosBusinessProcessorRules.GetOldTELEFONO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO1];
end;

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

function TContactosBusinessProcessorRules.GetTELEFONO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO2];
end;

function TContactosBusinessProcessorRules.GetOldTELEFONO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO2];
end;

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

function TContactosBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL];
end;

function TContactosBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL];
end;

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

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

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

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

function TContactosBusinessProcessorRules.GetCORREO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCORREO1];
end;

function TContactosBusinessProcessorRules.GetOldCORREO1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCORREO1];
end;

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

function TContactosBusinessProcessorRules.GetCORREO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCORREO2];
end;

function TContactosBusinessProcessorRules.GetOldCORREO2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCORREO2];
end;

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

function TContactosBusinessProcessorRules.GetPAGINAWEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINAWEB];
end;

function TContactosBusinessProcessorRules.GetOldPAGINAWEBValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINAWEB];
end;

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

function TContactosBusinessProcessorRules.GetPERSONACONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONACONTACTO];
end;

function TContactosBusinessProcessorRules.GetOldPERSONACONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONACONTACTO];
end;

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

function TContactosBusinessProcessorRules.GetBAJA_LOGICAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosBAJA_LOGICA];
end;

function TContactosBusinessProcessorRules.GetOldBAJA_LOGICAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosBAJA_LOGICA];
end;

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


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

destructor TCategoriasContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TCategoriasContactoBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasContactoCODIGOCONTACTO];
end;

function TCategoriasContactoBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CategoriasContactoCODIGOCONTACTO];
end;

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

function TCategoriasContactoBusinessProcessorRules.GetCODIGOCATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasContactoCODIGOCATEGORIA];
end;

function TCategoriasContactoBusinessProcessorRules.GetOldCODIGOCATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CategoriasContactoCODIGOCATEGORIA];
end;

procedure TCategoriasContactoBusinessProcessorRules.SetCODIGOCATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasContactoCODIGOCATEGORIA] := aValue;
end;


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

destructor TCategoriasBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TCategoriasBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasCODIGO];
end;

function TCategoriasBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CategoriasCODIGO];
end;

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

function TCategoriasBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasDESCRIPCION];
end;

function TCategoriasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CategoriasDESCRIPCION];
end;

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


initialization
  RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_CategoriasContactoDelta, TCategoriasContactoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_CategoriasDelta, TCategoriasBusinessProcessorRules);

end.