FactuGES2/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesServer_Intf.pas

unit schEpigrafesServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schEpigrafesClient_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_EpigrafesDelta = '{B415C12C-C2DA-45F0-BFF7-D80F4B2948BF}';

type
  { IEpigrafesDelta }
  IEpigrafesDelta = interface(IEpigrafes)
  ['{B415C12C-C2DA-45F0-BFF7-D80F4B2948BF}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_EPIGRAFEValue : String;
    function GetOldID_PADREValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_EJERCICIOValue : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
    property OldID_PADRE : Integer read GetOldID_PADREValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
  end;

  { TEpigrafesBusinessProcessorRules }
  TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetIDIsNull: Boolean; virtual;
    function GetOldIDValue: Integer; virtual;
    function GetOldIDIsNull: Boolean; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetREF_EPIGRAFEValue: String; virtual;
    function GetREF_EPIGRAFEIsNull: Boolean; virtual;
    function GetOldREF_EPIGRAFEValue: String; virtual;
    function GetOldREF_EPIGRAFEIsNull: Boolean; virtual;
    procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
    procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
    function GetID_PADREValue: Integer; virtual;
    function GetID_PADREIsNull: Boolean; virtual;
    function GetOldID_PADREValue: Integer; virtual;
    function GetOldID_PADREIsNull: Boolean; virtual;
    procedure SetID_PADREValue(const aValue: Integer); virtual;
    procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
    function GetID_EJERCICIOValue: Integer; virtual;
    function GetID_EJERCICIOIsNull: Boolean; virtual;
    function GetOldID_EJERCICIOValue: Integer; virtual;
    function GetOldID_EJERCICIOIsNull: Boolean; virtual;
    procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
    procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
    property OldID : Integer read GetOldIDValue;
    property OldIDIsNull : Boolean read GetOldIDIsNull;
    property REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
    property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
    property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
    property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull;
    property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
    property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
    property OldID_PADRE : Integer read GetOldID_PADREValue;
    property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
    property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
    property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
    property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers, uDAInterfaces;

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

destructor TEpigrafesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TEpigrafesBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID];
end;

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

function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID];
end;

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

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

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

function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE];
end;

function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]);
end;

function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE];
end;

function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]);
end;

procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue;
end;

procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null;
end;

function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
end;

function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
end;

function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
end;

function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
end;

procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
end;

procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
end;

function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION];
end;

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

function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION];
end;

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

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

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

function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO];
end;

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

function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO];
end;

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

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

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


initialization
  RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);

end.