LuisLeon_FactuGES/Codigo/Modulos/Remesas de cliente2/Model/schRemesasClienteClient_Intf.pas

unit schRemesasClienteClient_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable;

const
  { Data table 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_darReferencia = '{BF5FDF1F-AAC2-425F-9C02-897640872790}';
  RID_RemesasCliente = '{3691E40F-453B-4F33-AE0A-6F24E8D6F7D0}';
  RID_RemesasCliente_Refresh = '{F637A0D5-390C-4F7C-8D1C-A5C2B567B2A5}';

  { Data table names }
  nme_darReferencia = 'darReferencia';
  nme_RemesasCliente = 'RemesasCliente';
  nme_RemesasCliente_Refresh = 'RemesasCliente_Refresh';

  { darReferencia fields }
  fld_darReferenciaVALOR = 'VALOR';

  { darReferencia field indexes }
  idx_darReferenciaVALOR = 0;

  { RemesasCliente fields }
  fld_RemesasClienteID = 'ID';
  fld_RemesasClienteID_EMPRESA = 'ID_EMPRESA';
  fld_RemesasClienteREFERENCIA = 'REFERENCIA';
  fld_RemesasClienteFECHA_REMESA = 'FECHA_REMESA';
  fld_RemesasClienteTITULAR = 'TITULAR';
  fld_RemesasClienteENTIDAD = 'ENTIDAD';
  fld_RemesasClienteSUCURSAL = 'SUCURSAL';
  fld_RemesasClienteDC = 'DC';
  fld_RemesasClienteCUENTA = 'CUENTA';
  fld_RemesasClienteDESCRIPCION = 'DESCRIPCION';
  fld_RemesasClienteUSUARIO = 'USUARIO';

  { RemesasCliente field indexes }
  idx_RemesasClienteID = 0;
  idx_RemesasClienteID_EMPRESA = 1;
  idx_RemesasClienteREFERENCIA = 2;
  idx_RemesasClienteFECHA_REMESA = 3;
  idx_RemesasClienteTITULAR = 4;
  idx_RemesasClienteENTIDAD = 5;
  idx_RemesasClienteSUCURSAL = 6;
  idx_RemesasClienteDC = 7;
  idx_RemesasClienteCUENTA = 8;
  idx_RemesasClienteDESCRIPCION = 9;
  idx_RemesasClienteUSUARIO = 10;

  { RemesasCliente_Refresh fields }
  fld_RemesasCliente_RefreshID = 'ID';
  fld_RemesasCliente_RefreshID_EMPRESA = 'ID_EMPRESA';
  fld_RemesasCliente_RefreshREFERENCIA = 'REFERENCIA';
  fld_RemesasCliente_RefreshFECHA_REMESA = 'FECHA_REMESA';
  fld_RemesasCliente_RefreshTITULAR = 'TITULAR';
  fld_RemesasCliente_RefreshENTIDAD = 'ENTIDAD';
  fld_RemesasCliente_RefreshSUCURSAL = 'SUCURSAL';
  fld_RemesasCliente_RefreshDC = 'DC';
  fld_RemesasCliente_RefreshCUENTA = 'CUENTA';
  fld_RemesasCliente_RefreshDESCRIPCION = 'DESCRIPCION';
  fld_RemesasCliente_RefreshUSUARIO = 'USUARIO';

  { RemesasCliente_Refresh field indexes }
  idx_RemesasCliente_RefreshID = 0;
  idx_RemesasCliente_RefreshID_EMPRESA = 1;
  idx_RemesasCliente_RefreshREFERENCIA = 2;
  idx_RemesasCliente_RefreshFECHA_REMESA = 3;
  idx_RemesasCliente_RefreshTITULAR = 4;
  idx_RemesasCliente_RefreshENTIDAD = 5;
  idx_RemesasCliente_RefreshSUCURSAL = 6;
  idx_RemesasCliente_RefreshDC = 7;
  idx_RemesasCliente_RefreshCUENTA = 8;
  idx_RemesasCliente_RefreshDESCRIPCION = 9;
  idx_RemesasCliente_RefreshUSUARIO = 10;

type
  { IdarReferencia }
  IdarReferencia = interface(IDAStronglyTypedDataTable)
  ['{208C85F5-1C29-4A74-848C-30EEB8258E5B}']
    { Property getters and setters }
    function GetVALORValue: String;
    procedure SetVALORValue(const aValue: String);


    { Properties }
    property VALOR: String read GetVALORValue write SetVALORValue;
  end;

  { TdarReferenciaDataTableRules }
  TdarReferenciaDataTableRules = class(TDADataTableRules, IdarReferencia)
  private
  protected
    { Property getters and setters }
    function GetVALORValue: String; virtual;
    procedure SetVALORValue(const aValue: String); virtual;

    { Properties }
    property VALOR: String read GetVALORValue write SetVALORValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IRemesasCliente }
  IRemesasCliente = interface(IDAStronglyTypedDataTable)
  ['{2B1ECE62-854C-4381-977D-37FCA5571891}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetID_EMPRESAValue: Integer;
    procedure SetID_EMPRESAValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetFECHA_REMESAValue: DateTime;
    procedure SetFECHA_REMESAValue(const aValue: DateTime);
    function GetTITULARValue: String;
    procedure SetTITULARValue(const aValue: String);
    function GetENTIDADValue: String;
    procedure SetENTIDADValue(const aValue: String);
    function GetSUCURSALValue: String;
    procedure SetSUCURSALValue(const aValue: String);
    function GetDCValue: String;
    procedure SetDCValue(const aValue: String);
    function GetCUENTAValue: String;
    procedure SetCUENTAValue(const aValue: String);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
    property TITULAR: String read GetTITULARValue write SetTITULARValue;
    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
    property DC: String read GetDCValue write SetDCValue;
    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
  end;

  { TRemesasClienteDataTableRules }
  TRemesasClienteDataTableRules = class(TDADataTableRules, IRemesasCliente)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHA_REMESAValue: DateTime; virtual;
    procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
    function GetTITULARValue: String; virtual;
    procedure SetTITULARValue(const aValue: String); virtual;
    function GetENTIDADValue: String; virtual;
    procedure SetENTIDADValue(const aValue: String); virtual;
    function GetSUCURSALValue: String; virtual;
    procedure SetSUCURSALValue(const aValue: String); virtual;
    function GetDCValue: String; virtual;
    procedure SetDCValue(const aValue: String); virtual;
    function GetCUENTAValue: String; virtual;
    procedure SetCUENTAValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
    property TITULAR: String read GetTITULARValue write SetTITULARValue;
    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
    property DC: String read GetDCValue write SetDCValue;
    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IRemesasCliente_Refresh }
  IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable)
  ['{444C9D0E-0A6F-4A43-9AD3-5D8E48581A9B}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetID_EMPRESAValue: Integer;
    procedure SetID_EMPRESAValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetFECHA_REMESAValue: DateTime;
    procedure SetFECHA_REMESAValue(const aValue: DateTime);
    function GetTITULARValue: String;
    procedure SetTITULARValue(const aValue: String);
    function GetENTIDADValue: String;
    procedure SetENTIDADValue(const aValue: String);
    function GetSUCURSALValue: String;
    procedure SetSUCURSALValue(const aValue: String);
    function GetDCValue: String;
    procedure SetDCValue(const aValue: String);
    function GetCUENTAValue: String;
    procedure SetCUENTAValue(const aValue: String);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
    property TITULAR: String read GetTITULARValue write SetTITULARValue;
    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
    property DC: String read GetDCValue write SetDCValue;
    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
  end;

  { TRemesasCliente_RefreshDataTableRules }
  TRemesasCliente_RefreshDataTableRules = class(TDADataTableRules, IRemesasCliente_Refresh)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHA_REMESAValue: DateTime; virtual;
    procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
    function GetTITULARValue: String; virtual;
    procedure SetTITULARValue(const aValue: String); virtual;
    function GetENTIDADValue: String; virtual;
    procedure SetENTIDADValue(const aValue: String); virtual;
    function GetSUCURSALValue: String; virtual;
    procedure SetSUCURSALValue(const aValue: String); virtual;
    function GetDCValue: String; virtual;
    procedure SetDCValue(const aValue: String); virtual;
    function GetCUENTAValue: String; virtual;
    procedure SetCUENTAValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
    property TITULAR: String read GetTITULARValue write SetTITULARValue;
    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
    property DC: String read GetDCValue write SetDCValue;
    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

implementation

uses Variants;

{ TdarReferenciaDataTableRules }
constructor TdarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TdarReferenciaDataTableRules.Destroy;
begin
  inherited;
end;

function TdarReferenciaDataTableRules.GetVALORValue: String;
begin
  result := DataTable.Fields[idx_darReferenciaVALOR].AsString;
end;

procedure TdarReferenciaDataTableRules.SetVALORValue(const aValue: String);
begin
  DataTable.Fields[idx_darReferenciaVALOR].AsString := aValue;
end;


{ TRemesasClienteDataTableRules }
constructor TRemesasClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TRemesasClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TRemesasClienteDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_RemesasClienteID].AsInteger;
end;

procedure TRemesasClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_RemesasClienteID].AsInteger := aValue;
end;

function TRemesasClienteDataTableRules.GetID_EMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_RemesasClienteID_EMPRESA].AsInteger;
end;

procedure TRemesasClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_RemesasClienteID_EMPRESA].AsInteger := aValue;
end;

function TRemesasClienteDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString;
end;

procedure TRemesasClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetFECHA_REMESAValue: DateTime;
begin
  result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime;
end;

procedure TRemesasClienteDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime := aValue;
end;

function TRemesasClienteDataTableRules.GetTITULARValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteTITULAR].AsString;
end;

procedure TRemesasClienteDataTableRules.SetTITULARValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteTITULAR].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetENTIDADValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteENTIDAD].AsString;
end;

procedure TRemesasClienteDataTableRules.SetENTIDADValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteENTIDAD].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetSUCURSALValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteSUCURSAL].AsString;
end;

procedure TRemesasClienteDataTableRules.SetSUCURSALValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteSUCURSAL].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetDCValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteDC].AsString;
end;

procedure TRemesasClienteDataTableRules.SetDCValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteDC].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetCUENTAValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteCUENTA].AsString;
end;

procedure TRemesasClienteDataTableRules.SetCUENTAValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteCUENTA].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteDESCRIPCION].AsString;
end;

procedure TRemesasClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteDESCRIPCION].AsString := aValue;
end;

function TRemesasClienteDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_RemesasClienteUSUARIO].AsString;
end;

procedure TRemesasClienteDataTableRules.SetUSUARIOValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasClienteUSUARIO].AsString := aValue;
end;


{ TRemesasCliente_RefreshDataTableRules }
constructor TRemesasCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TRemesasCliente_RefreshDataTableRules.Destroy;
begin
  inherited;
end;

function TRemesasCliente_RefreshDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshID].AsInteger;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshID].AsInteger := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshID_EMPRESA].AsInteger;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshID_EMPRESA].AsInteger := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetTITULARValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshTITULAR].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetTITULARValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshTITULAR].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetENTIDADValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshENTIDAD].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetENTIDADValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshENTIDAD].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetSUCURSALValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshSUCURSAL].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetSUCURSALValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshSUCURSAL].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetDCValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshDC].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetDCValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshDC].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetCUENTAValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshCUENTA].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetCUENTAValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshCUENTA].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshDESCRIPCION].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshDESCRIPCION].AsString := aValue;
end;

function TRemesasCliente_RefreshDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_RemesasCliente_RefreshUSUARIO].AsString;
end;

procedure TRemesasCliente_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
begin
  DataTable.Fields[idx_RemesasCliente_RefreshUSUARIO].AsString := aValue;
end;


initialization
  RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules);
  RegisterDataTableRules(RID_RemesasCliente, TRemesasClienteDataTableRules);
  RegisterDataTableRules(RID_RemesasCliente_Refresh, TRemesasCliente_RefreshDataTableRules);

end.