FactuGES2/Source/Modulos/Contabilidad balances/Model/schBalancesServer_Intf.pas

unit schBalancesServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schBalancesClient_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_BalancesDelta = '{161732E2-9E24-4D8A-A46A-FEB274D4C524}';

type
  { IBalancesDelta }
  IBalancesDelta = interface(IBalances)
  ['{161732E2-9E24-4D8A-A46A-FEB274D4C524}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_BALANCEValue : String;
    function GetOldNATURALEZAValue : String;
    function GetOldNIVEL1Value : String;
    function GetOldDESCRIPCION1Value : String;
    function GetOldNIVEL2Value : String;
    function GetOldDESCRIPCION2Value : String;
    function GetOldNIVEL3Value : String;
    function GetOldDESCRIPCION3Value : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldREF_BALANCE : String read GetOldREF_BALANCEValue;
    property OldNATURALEZA : String read GetOldNATURALEZAValue;
    property OldNIVEL1 : String read GetOldNIVEL1Value;
    property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value;
    property OldNIVEL2 : String read GetOldNIVEL2Value;
    property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value;
    property OldNIVEL3 : String read GetOldNIVEL3Value;
    property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value;
  end;

  { TBalancesBusinessProcessorRules }
  TBalancesBusinessProcessorRules = class(TDABusinessProcessorRules, IBalances, IBalancesDelta)
  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_BALANCEValue: String; virtual;
    function GetREF_BALANCEIsNull: Boolean; virtual;
    function GetOldREF_BALANCEValue: String; virtual;
    function GetOldREF_BALANCEIsNull: Boolean; virtual;
    procedure SetREF_BALANCEValue(const aValue: String); virtual;
    procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual;
    function GetNATURALEZAValue: String; virtual;
    function GetNATURALEZAIsNull: Boolean; virtual;
    function GetOldNATURALEZAValue: String; virtual;
    function GetOldNATURALEZAIsNull: Boolean; virtual;
    procedure SetNATURALEZAValue(const aValue: String); virtual;
    procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual;
    function GetNIVEL1Value: String; virtual;
    function GetNIVEL1IsNull: Boolean; virtual;
    function GetOldNIVEL1Value: String; virtual;
    function GetOldNIVEL1IsNull: Boolean; virtual;
    procedure SetNIVEL1Value(const aValue: String); virtual;
    procedure SetNIVEL1IsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION1Value: String; virtual;
    function GetDESCRIPCION1IsNull: Boolean; virtual;
    function GetOldDESCRIPCION1Value: String; virtual;
    function GetOldDESCRIPCION1IsNull: Boolean; virtual;
    procedure SetDESCRIPCION1Value(const aValue: String); virtual;
    procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual;
    function GetNIVEL2Value: String; virtual;
    function GetNIVEL2IsNull: Boolean; virtual;
    function GetOldNIVEL2Value: String; virtual;
    function GetOldNIVEL2IsNull: Boolean; virtual;
    procedure SetNIVEL2Value(const aValue: String); virtual;
    procedure SetNIVEL2IsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION2Value: String; virtual;
    function GetDESCRIPCION2IsNull: Boolean; virtual;
    function GetOldDESCRIPCION2Value: String; virtual;
    function GetOldDESCRIPCION2IsNull: Boolean; virtual;
    procedure SetDESCRIPCION2Value(const aValue: String); virtual;
    procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual;
    function GetNIVEL3Value: String; virtual;
    function GetNIVEL3IsNull: Boolean; virtual;
    function GetOldNIVEL3Value: String; virtual;
    function GetOldNIVEL3IsNull: Boolean; virtual;
    procedure SetNIVEL3Value(const aValue: String); virtual;
    procedure SetNIVEL3IsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION3Value: String; virtual;
    function GetDESCRIPCION3IsNull: Boolean; virtual;
    function GetOldDESCRIPCION3Value: String; virtual;
    function GetOldDESCRIPCION3IsNull: Boolean; virtual;
    procedure SetDESCRIPCION3Value(const aValue: String); virtual;
    procedure SetDESCRIPCION3IsNull(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_BALANCE : String read GetREF_BALANCEValue write SetREF_BALANCEValue;
    property REF_BALANCEIsNull : Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
    property OldREF_BALANCE : String read GetOldREF_BALANCEValue;
    property OldREF_BALANCEIsNull : Boolean read GetOldREF_BALANCEIsNull;
    property NATURALEZA : String read GetNATURALEZAValue write SetNATURALEZAValue;
    property NATURALEZAIsNull : Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
    property OldNATURALEZA : String read GetOldNATURALEZAValue;
    property OldNATURALEZAIsNull : Boolean read GetOldNATURALEZAIsNull;
    property NIVEL1 : String read GetNIVEL1Value write SetNIVEL1Value;
    property NIVEL1IsNull : Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
    property OldNIVEL1 : String read GetOldNIVEL1Value;
    property OldNIVEL1IsNull : Boolean read GetOldNIVEL1IsNull;
    property DESCRIPCION1 : String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
    property DESCRIPCION1IsNull : Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
    property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value;
    property OldDESCRIPCION1IsNull : Boolean read GetOldDESCRIPCION1IsNull;
    property NIVEL2 : String read GetNIVEL2Value write SetNIVEL2Value;
    property NIVEL2IsNull : Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
    property OldNIVEL2 : String read GetOldNIVEL2Value;
    property OldNIVEL2IsNull : Boolean read GetOldNIVEL2IsNull;
    property DESCRIPCION2 : String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
    property DESCRIPCION2IsNull : Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
    property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value;
    property OldDESCRIPCION2IsNull : Boolean read GetOldDESCRIPCION2IsNull;
    property NIVEL3 : String read GetNIVEL3Value write SetNIVEL3Value;
    property NIVEL3IsNull : Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
    property OldNIVEL3 : String read GetOldNIVEL3Value;
    property OldNIVEL3IsNull : Boolean read GetOldNIVEL3IsNull;
    property DESCRIPCION3 : String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
    property DESCRIPCION3IsNull : Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;
    property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value;
    property OldDESCRIPCION3IsNull : Boolean read GetOldDESCRIPCION3IsNull;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers, uDAInterfaces;

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

destructor TBalancesBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TBalancesBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID];
end;

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

function TBalancesBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID];
end;

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

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

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

function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE];
end;

function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]);
end;

function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE];
end;

function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]);
end;

procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null;
end;

function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA];
end;

function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]);
end;

function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA];
end;

function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]);
end;

procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null;
end;

function TBalancesBusinessProcessorRules.GetNIVEL1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1];
end;

function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]);
end;

function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1];
end;

function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]);
end;

procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null;
end;

function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1];
end;

function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]);
end;

function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1];
end;

function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]);
end;

procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null;
end;

function TBalancesBusinessProcessorRules.GetNIVEL2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2];
end;

function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]);
end;

function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2];
end;

function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]);
end;

procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null;
end;

function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2];
end;

function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]);
end;

function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2];
end;

function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]);
end;

procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null;
end;

function TBalancesBusinessProcessorRules.GetNIVEL3Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3];
end;

function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]);
end;

function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3];
end;

function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]);
end;

procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null;
end;

function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3];
end;

function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]);
end;

function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3];
end;

function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]);
end;

procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue;
end;

procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null;
end;


initialization
  RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);

end.