AlonsoYSal_FactuGES/Modulos/Articulos/Reglas/schArticulosClient_Intf.pas

unit schArticulosClient_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_ARTICULOS = '{5E5E80E8-DDC5-4E93-9501-219E5E37B69F}';
  RID_Refresh_ARTICULOS = '{666A9B90-4226-4465-AFB7-F86AE114FB72}';

  { Data table names }
  nme_ARTICULOS = 'ARTICULOS';
  nme_Refresh_ARTICULOS = 'Refresh_ARTICULOS';

  { ARTICULOS fields }
  fld_ARTICULOSCODIGO = 'CODIGO';
  fld_ARTICULOSCODIGOALMACEN = 'CODIGOALMACEN';
  fld_ARTICULOSCODIGOPEDIDO = 'CODIGOPEDIDO';
  fld_ARTICULOSCANTIDAD = 'CANTIDAD';
  fld_ARTICULOSCODIGOMONTAJE = 'CODIGOMONTAJE';
  fld_ARTICULOSDESCRIPCION = 'DESCRIPCION';
  fld_ARTICULOSREFERENCIAPEDIDO = 'REFERENCIAPEDIDO';
  fld_ARTICULOSREFERENCIAMONTAJE = 'REFERENCIAMONTAJE';
  fld_ARTICULOSCLIENTE = 'CLIENTE';
  fld_ARTICULOSALMACEN = 'ALMACEN';
  fld_ARTICULOSSITUACION = 'SITUACION';

  { ARTICULOS field indexes }
  idx_ARTICULOSCODIGO = 0;
  idx_ARTICULOSCODIGOALMACEN = 1;
  idx_ARTICULOSCODIGOPEDIDO = 2;
  idx_ARTICULOSCANTIDAD = 3;
  idx_ARTICULOSCODIGOMONTAJE = 4;
  idx_ARTICULOSDESCRIPCION = 5;
  idx_ARTICULOSREFERENCIAPEDIDO = 6;
  idx_ARTICULOSREFERENCIAMONTAJE = 7;
  idx_ARTICULOSCLIENTE = 8;
  idx_ARTICULOSALMACEN = 9;
  idx_ARTICULOSSITUACION = 10;

  { Refresh_ARTICULOS fields }
  fld_Refresh_ARTICULOSCODIGO = 'CODIGO';
  fld_Refresh_ARTICULOSCODIGOALMACEN = 'CODIGOALMACEN';
  fld_Refresh_ARTICULOSCODIGOPEDIDO = 'CODIGOPEDIDO';
  fld_Refresh_ARTICULOSCODIGOMONTAJE = 'CODIGOMONTAJE';
  fld_Refresh_ARTICULOSDESCRIPCION = 'DESCRIPCION';
  fld_Refresh_ARTICULOSREFERENCIAPEDIDO = 'REFERENCIAPEDIDO';
  fld_Refresh_ARTICULOSREFERENCIAMONTAJE = 'REFERENCIAMONTAJE';
  fld_Refresh_ARTICULOSCLIENTE = 'CLIENTE';
  fld_Refresh_ARTICULOSALMACEN = 'ALMACEN';
  fld_Refresh_ARTICULOSSITUACION = 'SITUACION';

  { Refresh_ARTICULOS field indexes }
  idx_Refresh_ARTICULOSCODIGO = 0;
  idx_Refresh_ARTICULOSCODIGOALMACEN = 1;
  idx_Refresh_ARTICULOSCODIGOPEDIDO = 2;
  idx_Refresh_ARTICULOSCODIGOMONTAJE = 3;
  idx_Refresh_ARTICULOSDESCRIPCION = 4;
  idx_Refresh_ARTICULOSREFERENCIAPEDIDO = 5;
  idx_Refresh_ARTICULOSREFERENCIAMONTAJE = 6;
  idx_Refresh_ARTICULOSCLIENTE = 7;
  idx_Refresh_ARTICULOSALMACEN = 8;
  idx_Refresh_ARTICULOSSITUACION = 9;

type
  { IARTICULOS }
  IARTICULOS = interface(IDAStronglyTypedDataTable)
  ['{26AD3DE8-2AF7-4110-B0C7-4894B1913FFE}']
    { Property getters and setters }
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetCODIGOALMACENValue: Integer;
    procedure SetCODIGOALMACENValue(const aValue: Integer);
    function GetCODIGOPEDIDOValue: Integer;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer);
    function GetCANTIDADValue: Integer;
    procedure SetCANTIDADValue(const aValue: Integer);
    function GetCODIGOMONTAJEValue: Integer;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetREFERENCIAPEDIDOValue: String;
    procedure SetREFERENCIAPEDIDOValue(const aValue: String);
    function GetREFERENCIAMONTAJEValue: String;
    procedure SetREFERENCIAMONTAJEValue(const aValue: String);
    function GetCLIENTEValue: String;
    procedure SetCLIENTEValue(const aValue: String);
    function GetALMACENValue: String;
    procedure SetALMACENValue(const aValue: String);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);


    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property REFERENCIAPEDIDO: String read GetREFERENCIAPEDIDOValue write SetREFERENCIAPEDIDOValue;
    property REFERENCIAMONTAJE: String read GetREFERENCIAMONTAJEValue write SetREFERENCIAMONTAJEValue;
    property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
    property ALMACEN: String read GetALMACENValue write SetALMACENValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
  end;

  { TARTICULOSDataTableRules }
  TARTICULOSDataTableRules = class(TDADataTableRules, IARTICULOS)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetREFERENCIAPEDIDOValue: String; virtual;
    procedure SetREFERENCIAPEDIDOValue(const aValue: String); virtual;
    function GetREFERENCIAMONTAJEValue: String; virtual;
    procedure SetREFERENCIAMONTAJEValue(const aValue: String); virtual;
    function GetCLIENTEValue: String; virtual;
    procedure SetCLIENTEValue(const aValue: String); virtual;
    function GetALMACENValue: String; virtual;
    procedure SetALMACENValue(const aValue: String); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property REFERENCIAPEDIDO: String read GetREFERENCIAPEDIDOValue write SetREFERENCIAPEDIDOValue;
    property REFERENCIAMONTAJE: String read GetREFERENCIAMONTAJEValue write SetREFERENCIAMONTAJEValue;
    property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
    property ALMACEN: String read GetALMACENValue write SetALMACENValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;

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

  end;

  { IRefresh_ARTICULOS }
  IRefresh_ARTICULOS = interface(IDAStronglyTypedDataTable)
  ['{4A2E068E-6FE3-4536-AAE0-D24663E16D56}']
    { Property getters and setters }
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetCODIGOALMACENValue: Integer;
    procedure SetCODIGOALMACENValue(const aValue: Integer);
    function GetCODIGOPEDIDOValue: Integer;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer);
    function GetCODIGOMONTAJEValue: Integer;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetREFERENCIAPEDIDOValue: String;
    procedure SetREFERENCIAPEDIDOValue(const aValue: String);
    function GetREFERENCIAMONTAJEValue: String;
    procedure SetREFERENCIAMONTAJEValue(const aValue: String);
    function GetCLIENTEValue: String;
    procedure SetCLIENTEValue(const aValue: String);
    function GetALMACENValue: String;
    procedure SetALMACENValue(const aValue: String);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);


    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property REFERENCIAPEDIDO: String read GetREFERENCIAPEDIDOValue write SetREFERENCIAPEDIDOValue;
    property REFERENCIAMONTAJE: String read GetREFERENCIAMONTAJEValue write SetREFERENCIAMONTAJEValue;
    property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
    property ALMACEN: String read GetALMACENValue write SetALMACENValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
  end;

  { TRefresh_ARTICULOSDataTableRules }
  TRefresh_ARTICULOSDataTableRules = class(TDADataTableRules, IRefresh_ARTICULOS)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetREFERENCIAPEDIDOValue: String; virtual;
    procedure SetREFERENCIAPEDIDOValue(const aValue: String); virtual;
    function GetREFERENCIAMONTAJEValue: String; virtual;
    procedure SetREFERENCIAMONTAJEValue(const aValue: String); virtual;
    function GetCLIENTEValue: String; virtual;
    procedure SetCLIENTEValue(const aValue: String); virtual;
    function GetALMACENValue: String; virtual;
    procedure SetALMACENValue(const aValue: String); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property REFERENCIAPEDIDO: String read GetREFERENCIAPEDIDOValue write SetREFERENCIAPEDIDOValue;
    property REFERENCIAMONTAJE: String read GetREFERENCIAMONTAJEValue write SetREFERENCIAMONTAJEValue;
    property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
    property ALMACEN: String read GetALMACENValue write SetALMACENValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;

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

  end;

implementation

uses Variants;

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

destructor TARTICULOSDataTableRules.Destroy;
begin
  inherited;
end;

function TARTICULOSDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_ARTICULOSCODIGO].AsInteger;
end;

procedure TARTICULOSDataTableRules.SetCODIGOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ARTICULOSCODIGO].AsInteger := aValue;
end;

function TARTICULOSDataTableRules.GetCODIGOALMACENValue: Integer;
begin
  result := DataTable.Fields[idx_ARTICULOSCODIGOALMACEN].AsInteger;
end;

procedure TARTICULOSDataTableRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ARTICULOSCODIGOALMACEN].AsInteger := aValue;
end;

function TARTICULOSDataTableRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := DataTable.Fields[idx_ARTICULOSCODIGOPEDIDO].AsInteger;
end;

procedure TARTICULOSDataTableRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ARTICULOSCODIGOPEDIDO].AsInteger := aValue;
end;

function TARTICULOSDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_ARTICULOSCANTIDAD].AsInteger;
end;

procedure TARTICULOSDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ARTICULOSCANTIDAD].AsInteger := aValue;
end;

function TARTICULOSDataTableRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := DataTable.Fields[idx_ARTICULOSCODIGOMONTAJE].AsInteger;
end;

procedure TARTICULOSDataTableRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ARTICULOSCODIGOMONTAJE].AsInteger := aValue;
end;

function TARTICULOSDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_ARTICULOSDESCRIPCION].AsString;
end;

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

function TARTICULOSDataTableRules.GetREFERENCIAPEDIDOValue: String;
begin
  result := DataTable.Fields[idx_ARTICULOSREFERENCIAPEDIDO].AsString;
end;

procedure TARTICULOSDataTableRules.SetREFERENCIAPEDIDOValue(const aValue: String);
begin
  DataTable.Fields[idx_ARTICULOSREFERENCIAPEDIDO].AsString := aValue;
end;

function TARTICULOSDataTableRules.GetREFERENCIAMONTAJEValue: String;
begin
  result := DataTable.Fields[idx_ARTICULOSREFERENCIAMONTAJE].AsString;
end;

procedure TARTICULOSDataTableRules.SetREFERENCIAMONTAJEValue(const aValue: String);
begin
  DataTable.Fields[idx_ARTICULOSREFERENCIAMONTAJE].AsString := aValue;
end;

function TARTICULOSDataTableRules.GetCLIENTEValue: String;
begin
  result := DataTable.Fields[idx_ARTICULOSCLIENTE].AsString;
end;

procedure TARTICULOSDataTableRules.SetCLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_ARTICULOSCLIENTE].AsString := aValue;
end;

function TARTICULOSDataTableRules.GetALMACENValue: String;
begin
  result := DataTable.Fields[idx_ARTICULOSALMACEN].AsString;
end;

procedure TARTICULOSDataTableRules.SetALMACENValue(const aValue: String);
begin
  DataTable.Fields[idx_ARTICULOSALMACEN].AsString := aValue;
end;

function TARTICULOSDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_ARTICULOSSITUACION].AsString;
end;

procedure TARTICULOSDataTableRules.SetSITUACIONValue(const aValue: String);
begin
  DataTable.Fields[idx_ARTICULOSSITUACION].AsString := aValue;
end;


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

destructor TRefresh_ARTICULOSDataTableRules.Destroy;
begin
  inherited;
end;

function TRefresh_ARTICULOSDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSCODIGO].AsInteger;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetCODIGOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSCODIGO].AsInteger := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetCODIGOALMACENValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSCODIGOALMACEN].AsInteger;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSCODIGOALMACEN].AsInteger := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSCODIGOPEDIDO].AsInteger;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSCODIGOPEDIDO].AsInteger := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSCODIGOMONTAJE].AsInteger;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSCODIGOMONTAJE].AsInteger := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSDESCRIPCION].AsString;
end;

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

function TRefresh_ARTICULOSDataTableRules.GetREFERENCIAPEDIDOValue: String;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSREFERENCIAPEDIDO].AsString;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetREFERENCIAPEDIDOValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSREFERENCIAPEDIDO].AsString := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetREFERENCIAMONTAJEValue: String;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSREFERENCIAMONTAJE].AsString;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetREFERENCIAMONTAJEValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSREFERENCIAMONTAJE].AsString := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetCLIENTEValue: String;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSCLIENTE].AsString;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetCLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSCLIENTE].AsString := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetALMACENValue: String;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSALMACEN].AsString;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetALMACENValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSALMACEN].AsString := aValue;
end;

function TRefresh_ARTICULOSDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_Refresh_ARTICULOSSITUACION].AsString;
end;

procedure TRefresh_ARTICULOSDataTableRules.SetSITUACIONValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_ARTICULOSSITUACION].AsString := aValue;
end;


initialization
  RegisterDataTableRules(RID_ARTICULOS, TARTICULOSDataTableRules);
  RegisterDataTableRules(RID_Refresh_ARTICULOS, TRefresh_ARTICULOSDataTableRules);

end.