AlonsoYSal_FactuGES/Modulos/Contactos/Servidor/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 = '{180A19A6-D1CF-4681-BDC0-3B59C38D3AAC}';
  RID_CategoriasContactoDelta = '{3B1B6925-6451-43CC-90F7-5E115C229DD1}';
  RID_CategoriasDelta = '{63723E47-D160-486B-ADCD-16EF79B30E87}';

type
  { IContactosDelta }
  IContactosDelta = interface(ICONTACTOS)
    ['{180A19A6-D1CF-4681-BDC0-3B59C38D3AAC}']
    function GetOldCALLEValue: string;
    function GetOldCODIGOEMPRESAValue: Integer;
    function GetOldCODIGOPOSTALValue: string;
    function GetOldCODIGOValue: Integer;
    function GetOldCORREO1Value: string;
    function GetOldCORREO2Value: string;
    function GetOldFAXValue: string;
    function GetOldFECHAALTAValue: DateTime;
    function GetOldMOVILValue: string;
    function GetOldNIFCIFValue: string;
    function GetOldNOMBREValue: string;
    function GetOldNOTASValue: string;
    function GetOldPAGINAWEBValue: string;
    function GetOldPERSONACONTACTOValue: string;
    function GetOldPOBLACIONValue: string;
    function GetOldPROVINCIAValue: string;
    function GetOldTELEFONO1Value: string;
    function GetOldTELEFONO2Value: string;
    function GetOldUSUARIOValue: string;
    property OldCALLE: string read GetOldCALLEValue;
    property OldCODIGO: Integer read GetOldCODIGOValue;
    property OldCODIGOEMPRESA: Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGOPOSTAL: string read GetOldCODIGOPOSTALValue;
    property OldCORREO1: string read GetOldCORREO1Value;
    property OldCORREO2: string read GetOldCORREO2Value;
    property OldFAX: string read GetOldFAXValue;
    property OldFECHAALTA: DateTime read GetOldFECHAALTAValue;
    property OldMOVIL: string read GetOldMOVILValue;
    property OldNIFCIF: string read GetOldNIFCIFValue;
    property OldNOMBRE: string read GetOldNOMBREValue;
    property OldNOTAS: string read GetOldNOTASValue;
    property OldPAGINAWEB: string read GetOldPAGINAWEBValue;
    property OldPERSONACONTACTO: string read GetOldPERSONACONTACTOValue;
    property OldPOBLACION: string read GetOldPOBLACIONValue;
    property OldPROVINCIA: string read GetOldPROVINCIAValue;
    property OldTELEFONO1: string read GetOldTELEFONO1Value;
    property OldTELEFONO2: string read GetOldTELEFONO2Value;
    property OldUSUARIO: string read GetOldUSUARIOValue;
  end;
  
  { TContactosBusinessProcessorRules }
  TContactosBusinessProcessorRules = class(TDABusinessProcessorRules,
          IContactos, IContactosDelta)
  protected
    function GetCALLEValue: string; virtual;
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetCODIGOPOSTALValue: string; virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetCORREO1Value: string; virtual;
    function GetCORREO2Value: string; virtual;
    function GetFAXValue: string; virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetMOVILValue: string; virtual;
    function GetNIFCIFValue: string; virtual;
    function GetNOMBREValue: string; virtual;
    function GetNOTASValue: string; virtual;
    function GetOldCALLEValue: string; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOPOSTALValue: string; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    function GetOldCORREO1Value: string; virtual;
    function GetOldCORREO2Value: string; virtual;
    function GetOldFAXValue: string; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    function GetOldMOVILValue: string; virtual;
    function GetOldNIFCIFValue: string; virtual;
    function GetOldNOMBREValue: string; virtual;
    function GetOldNOTASValue: string; virtual;
    function GetOldPAGINAWEBValue: string; virtual;
    function GetOldPERSONACONTACTOValue: string; virtual;
    function GetOldPOBLACIONValue: string; virtual;
    function GetOldPROVINCIAValue: string; virtual;
    function GetOldTELEFONO1Value: string; virtual;
    function GetOldTELEFONO2Value: string; virtual;
    function GetOldUSUARIOValue: string; virtual;
    function GetPAGINAWEBValue: string; virtual;
    function GetPERSONACONTACTOValue: string; virtual;
    function GetPOBLACIONValue: string; virtual;
    function GetPROVINCIAValue: string; virtual;
    function GetTELEFONO1Value: string; virtual;
    function GetTELEFONO2Value: string; virtual;
    function GetUSUARIOValue: string; virtual;
    procedure SetCALLEValue(const aValue: string); virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    procedure SetCODIGOPOSTALValue(const aValue: string); virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    procedure SetCORREO1Value(const aValue: string); virtual;
    procedure SetCORREO2Value(const aValue: string); virtual;
    procedure SetFAXValue(const aValue: string); virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    procedure SetMOVILValue(const aValue: string); virtual;
    procedure SetNIFCIFValue(const aValue: string); virtual;
    procedure SetNOMBREValue(const aValue: string); virtual;
    procedure SetNOTASValue(const aValue: string); virtual;
    procedure SetPAGINAWEBValue(const aValue: string); virtual;
    procedure SetPERSONACONTACTOValue(const aValue: string); virtual;
    procedure SetPOBLACIONValue(const aValue: string); virtual;
    procedure SetPROVINCIAValue(const aValue: string); virtual;
    procedure SetTELEFONO1Value(const aValue: string); virtual;
    procedure SetTELEFONO2Value(const aValue: string); virtual;
    procedure SetUSUARIOValue(const aValue: string); virtual;
    property CALLE: string read GetCALLEValue write SetCALLEValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write
            SetCODIGOEMPRESAValue;
    property CODIGOPOSTAL: string read GetCODIGOPOSTALValue write
            SetCODIGOPOSTALValue;
    property CORREO1: string read GetCORREO1Value write SetCORREO1Value;
    property CORREO2: string read GetCORREO2Value write SetCORREO2Value;
    property FAX: string read GetFAXValue write SetFAXValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property MOVIL: string read GetMOVILValue write SetMOVILValue;
    property NIFCIF: string read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: string read GetNOMBREValue write SetNOMBREValue;
    property NOTAS: string read GetNOTASValue write SetNOTASValue;
    property OldCALLE: string read GetOldCALLEValue;
    property OldCODIGO: Integer read GetOldCODIGOValue;
    property OldCODIGOEMPRESA: Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGOPOSTAL: string read GetOldCODIGOPOSTALValue;
    property OldCORREO1: string read GetOldCORREO1Value;
    property OldCORREO2: string read GetOldCORREO2Value;
    property OldFAX: string read GetOldFAXValue;
    property OldFECHAALTA: DateTime read GetOldFECHAALTAValue;
    property OldMOVIL: string read GetOldMOVILValue;
    property OldNIFCIF: string read GetOldNIFCIFValue;
    property OldNOMBRE: string read GetOldNOMBREValue;
    property OldNOTAS: string read GetOldNOTASValue;
    property OldPAGINAWEB: string read GetOldPAGINAWEBValue;
    property OldPERSONACONTACTO: string read GetOldPERSONACONTACTOValue;
    property OldPOBLACION: string read GetOldPOBLACIONValue;
    property OldPROVINCIA: string read GetOldPROVINCIAValue;
    property OldTELEFONO1: string read GetOldTELEFONO1Value;
    property OldTELEFONO2: string read GetOldTELEFONO2Value;
    property OldUSUARIO: string read GetOldUSUARIOValue;
    property PAGINAWEB: string read GetPAGINAWEBValue write SetPAGINAWEBValue;
    property PERSONACONTACTO: string read GetPERSONACONTACTOValue write
            SetPERSONACONTACTOValue;
    property POBLACION: string read GetPOBLACIONValue write SetPOBLACIONValue;
    property PROVINCIA: string read GetPROVINCIAValue write SetPROVINCIAValue;
    property TELEFONO1: string read GetTELEFONO1Value write SetTELEFONO1Value;
    property TELEFONO2: string read GetTELEFONO2Value write SetTELEFONO2Value;
    property USUARIO: string read GetUSUARIOValue write SetUSUARIOValue;
  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;
  end;
  
  { ICategoriasContactoDelta }
  ICategoriasContactoDelta = interface(ICategoriasContacto)
    ['{3B1B6925-6451-43CC-90F7-5E115C229DD1}']
    function GetOldCODIGOCATEGORIAValue: Integer;
    function GetOldCODIGOCONTACTOValue: Integer;
    property OldCODIGOCATEGORIA: Integer read GetOldCODIGOCATEGORIAValue;
    property OldCODIGOCONTACTO: Integer read GetOldCODIGOCONTACTOValue;
  end;
  
  { TCategoriasContactoBusinessProcessorRules }
  TCategoriasContactoBusinessProcessorRules = class(TDABusinessProcessorRules,
          ICategoriasContacto, ICategoriasContactoDelta)
  protected
    function GetCODIGOCATEGORIAValue: Integer; virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCATEGORIAValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write
            SetCODIGOCATEGORIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write
            SetCODIGOCONTACTOValue;
    property OldCODIGOCATEGORIA: Integer read GetOldCODIGOCATEGORIAValue;
    property OldCODIGOCONTACTO: Integer read GetOldCODIGOCONTACTOValue;
  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;
  end;
  
  { ICategoriasDelta }
  ICategoriasDelta = interface(ICATEGORIAS)
    ['{63723E47-D160-486B-ADCD-16EF79B30E87}']
    function GetOldCODIGOValue: Integer;
    function GetOldDESCRIPCIONValue: string;
    property OldCODIGO: Integer read GetOldCODIGOValue;
    property OldDESCRIPCION: string read GetOldDESCRIPCIONValue;
  end;
  
  { TCategoriasBusinessProcessorRules }
  TCategoriasBusinessProcessorRules = class(TDABusinessProcessorRules,
          ICategorias, ICategoriasDelta)
  protected
    function GetCODIGOValue: Integer; virtual;
    function GetDESCRIPCIONValue: string; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    function GetOldDESCRIPCIONValue: string; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    procedure SetDESCRIPCIONValue(const aValue: string); virtual;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property DESCRIPCION: string read GetDESCRIPCIONValue write
            SetDESCRIPCIONValue;
    property OldCODIGO: Integer read GetOldCODIGOValue;
    property OldDESCRIPCION: string read GetOldDESCRIPCIONValue;
  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;
  end;
  
implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TContactosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

destructor TCategoriasContactoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

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

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

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

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

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

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


{ TCategoriasBusinessProcessorRules }
{
********************** 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.GetDESCRIPCIONValue: string;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasDESCRIPCION];
end;

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

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

procedure TCategoriasBusinessProcessorRules.SetCODIGOValue(const aValue:
        Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_CategoriasCODIGO] := aValue;
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.