Tecsitel_FactuGES2/Source/Modulos/Obras/Model/schObrasServer_Intf.pas

unit schObrasServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schObrasClient_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_ObrasDelta = '{44665455-E349-4CA4-AAB6-2AFE8C829C04}';

type
  { IObrasDelta }
  IObrasDelta = interface(IObras)
  ['{44665455-E349-4CA4-AAB6-2AFE8C829C04}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldCODIGO_POSTALValue : String;
    function GetOldTELEFONOValue : String;
    function GetOldMOVILValue : String;
    function GetOldFAXValue : String;
    function GetOldPERSONA_CONTACTOValue : String;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldID_CLIENTEValue : Integer;
    function GetOldNOMBRE_CLIENTEValue : String;
    function GetOldID_SUBCONTRATAValue : Integer;
    function GetOldNOMBRE_SUBCONTRATAValue : String;
    function GetOldFECHA_ALTAValue : DateTime;
    function GetOldFECHA_MODIFICACIONValue : DateTime;
    function GetOldUSUARIOValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
    property OldTELEFONO : String read GetOldTELEFONOValue;
    property OldMOVIL : String read GetOldMOVILValue;
    property OldFAX : String read GetOldFAXValue;
    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
    property OldID_SUBCONTRATA : Integer read GetOldID_SUBCONTRATAValue;
    property OldNOMBRE_SUBCONTRATA : String read GetOldNOMBRE_SUBCONTRATAValue;
    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
  end;

  { TObrasBusinessProcessorRules }
  TObrasBusinessProcessorRules = class(TDABusinessProcessorRules, IObras, IObrasDelta)
  private
    f_OBSERVACIONES: IROStrings;
    procedure OBSERVACIONES_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_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 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 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 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 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 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 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 GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOBSERVACIONESIsNull: Boolean; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESIsNull: Boolean; virtual;
    procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
    function GetID_CLIENTEValue: Integer; virtual;
    function GetID_CLIENTEIsNull: Boolean; virtual;
    function GetOldID_CLIENTEValue: Integer; virtual;
    function GetOldID_CLIENTEIsNull: Boolean; virtual;
    procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
    procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_CLIENTEValue: String; virtual;
    function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
    function GetOldNOMBRE_CLIENTEValue: String; virtual;
    function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
    procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
    procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetID_SUBCONTRATAValue: Integer; virtual;
    function GetID_SUBCONTRATAIsNull: Boolean; virtual;
    function GetOldID_SUBCONTRATAValue: Integer; virtual;
    function GetOldID_SUBCONTRATAIsNull: Boolean; virtual;
    procedure SetID_SUBCONTRATAValue(const aValue: Integer); virtual;
    procedure SetID_SUBCONTRATAIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_SUBCONTRATAValue: String; virtual;
    function GetNOMBRE_SUBCONTRATAIsNull: Boolean; virtual;
    function GetOldNOMBRE_SUBCONTRATAValue: String; virtual;
    function GetOldNOMBRE_SUBCONTRATAIsNull: Boolean; virtual;
    procedure SetNOMBRE_SUBCONTRATAValue(const aValue: String); virtual;
    procedure SetNOMBRE_SUBCONTRATAIsNull(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;

    { 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_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 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 PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
    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 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 : 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 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 OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
    property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
    property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
    property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
    property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
    property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
    property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
    property ID_SUBCONTRATA : Integer read GetID_SUBCONTRATAValue write SetID_SUBCONTRATAValue;
    property ID_SUBCONTRATAIsNull : Boolean read GetID_SUBCONTRATAIsNull write SetID_SUBCONTRATAIsNull;
    property OldID_SUBCONTRATA : Integer read GetOldID_SUBCONTRATAValue;
    property OldID_SUBCONTRATAIsNull : Boolean read GetOldID_SUBCONTRATAIsNull;
    property NOMBRE_SUBCONTRATA : String read GetNOMBRE_SUBCONTRATAValue write SetNOMBRE_SUBCONTRATAValue;
    property NOMBRE_SUBCONTRATAIsNull : Boolean read GetNOMBRE_SUBCONTRATAIsNull write SetNOMBRE_SUBCONTRATAIsNull;
    property OldNOMBRE_SUBCONTRATA : String read GetOldNOMBRE_SUBCONTRATAValue;
    property OldNOMBRE_SUBCONTRATAIsNull : Boolean read GetOldNOMBRE_SUBCONTRATAIsNull;
    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;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers, uDAInterfaces;

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

  StrList := TStringList.Create;
  StrList.OnChange := OBSERVACIONES_OnChange;
  f_OBSERVACIONES := NewROStrings(StrList,True);
end;

destructor TObrasBusinessProcessorRules.Destroy;
begin
  inherited;
end;

procedure TObrasBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasOBSERVACIONES] := TStringList(Sender).Text;
end;

function TObrasBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID];
end;

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

function TObrasBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID];
end;

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

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

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

function TObrasBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_EMPRESA];
end;

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

function TObrasBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_EMPRESA];
end;

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

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

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

function TObrasBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE];
end;

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

function TObrasBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE];
end;

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

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

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

function TObrasBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasCALLE];
end;

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

function TObrasBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasCALLE];
end;

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

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

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

function TObrasBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasPROVINCIA];
end;

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

function TObrasBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasPROVINCIA];
end;

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

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

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

function TObrasBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasPOBLACION];
end;

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

function TObrasBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasPOBLACION];
end;

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

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

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

function TObrasBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasCODIGO_POSTAL];
end;

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

function TObrasBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasCODIGO_POSTAL];
end;

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

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

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

function TObrasBusinessProcessorRules.GetTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasTELEFONO];
end;

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

function TObrasBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasTELEFONO];
end;

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

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

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

function TObrasBusinessProcessorRules.GetMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasMOVIL];
end;

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

function TObrasBusinessProcessorRules.GetOldMOVILValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasMOVIL];
end;

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

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

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

function TObrasBusinessProcessorRules.GetFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasFAX];
end;

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

function TObrasBusinessProcessorRules.GetOldFAXValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasFAX];
end;

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

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

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

function TObrasBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasPERSONA_CONTACTO];
end;

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

function TObrasBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasPERSONA_CONTACTO];
end;

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

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

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

function TObrasBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := f_OBSERVACIONES;
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasOBSERVACIONES];
end;

function TObrasBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasOBSERVACIONES]);
end;

function TObrasBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasOBSERVACIONES];
end;

function TObrasBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasOBSERVACIONES]);
end;

procedure TObrasBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasOBSERVACIONES] := Null;
end;

function TObrasBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_CLIENTE];
end;

function TObrasBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_CLIENTE]);
end;

function TObrasBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_CLIENTE];
end;

function TObrasBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_CLIENTE]);
end;

procedure TObrasBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_CLIENTE] := aValue;
end;

procedure TObrasBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_CLIENTE] := Null;
end;

function TObrasBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_CLIENTE];
end;

function TObrasBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_CLIENTE]);
end;

function TObrasBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE_CLIENTE];
end;

function TObrasBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE_CLIENTE]);
end;

procedure TObrasBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_CLIENTE] := aValue;
end;

procedure TObrasBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_CLIENTE] := Null;
end;

function TObrasBusinessProcessorRules.GetID_SUBCONTRATAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA];
end;

function TObrasBusinessProcessorRules.GetID_SUBCONTRATAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA]);
end;

function TObrasBusinessProcessorRules.GetOldID_SUBCONTRATAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_SUBCONTRATA];
end;

function TObrasBusinessProcessorRules.GetOldID_SUBCONTRATAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_SUBCONTRATA]);
end;

procedure TObrasBusinessProcessorRules.SetID_SUBCONTRATAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA] := aValue;
end;

procedure TObrasBusinessProcessorRules.SetID_SUBCONTRATAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA] := Null;
end;

function TObrasBusinessProcessorRules.GetNOMBRE_SUBCONTRATAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA];
end;

function TObrasBusinessProcessorRules.GetNOMBRE_SUBCONTRATAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA]);
end;

function TObrasBusinessProcessorRules.GetOldNOMBRE_SUBCONTRATAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE_SUBCONTRATA];
end;

function TObrasBusinessProcessorRules.GetOldNOMBRE_SUBCONTRATAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE_SUBCONTRATA]);
end;

procedure TObrasBusinessProcessorRules.SetNOMBRE_SUBCONTRATAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA] := aValue;
end;

procedure TObrasBusinessProcessorRules.SetNOMBRE_SUBCONTRATAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA] := Null;
end;

function TObrasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasFECHA_ALTA];
end;

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

function TObrasBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasFECHA_ALTA];
end;

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

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

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

function TObrasBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasFECHA_MODIFICACION];
end;

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

function TObrasBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasFECHA_MODIFICACION];
end;

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

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

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

function TObrasBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasUSUARIO];
end;

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

function TObrasBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasUSUARIO];
end;

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

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

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


initialization
  RegisterBusinessProcessorRules(RID_ObrasDelta, TObrasBusinessProcessorRules);

end.