LuisLeon_FactuGES/Modulos/Articulos/Model/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 = '{1EDFB8D5-3C18-417F-8B10-E3D74F9A54A8}';
  RID_DatosProveedor = '{46FCFA77-7050-4790-8609-A29AA80506B4}';
  RID_DatosProveedor_Refresh = '{97FED04A-3310-4DEE-AD3E-95CE224AE102}';
  RID_Articulos_Refresh = '{D07C4F40-B572-435F-9D14-2009AE91404F}';

  { Data table names }
  nme_Articulos = 'Articulos';
  nme_DatosProveedor = 'DatosProveedor';
  nme_DatosProveedor_Refresh = 'DatosProveedor_Refresh';
  nme_Articulos_Refresh = 'Articulos_Refresh';

  { Articulos fields }
  fld_ArticulosID = 'ID';
  fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
  fld_ArticulosREFERENCIA = 'REFERENCIA';
  fld_ArticulosDESCRIPCION = 'DESCRIPCION';
  fld_ArticulosFAMILIA = 'FAMILIA';
  fld_ArticulosIMAGEN = 'IMAGEN';
  fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
  fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
  fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
  fld_ArticulosUSUARIO = 'USUARIO';
  fld_ArticulosREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
  fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
  fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
  fld_ArticulosDESCUENTO = 'DESCUENTO';
  fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';

  { Articulos field indexes }
  idx_ArticulosID = 0;
  idx_ArticulosID_EMPRESA = 1;
  idx_ArticulosREFERENCIA = 2;
  idx_ArticulosDESCRIPCION = 3;
  idx_ArticulosFAMILIA = 4;
  idx_ArticulosIMAGEN = 5;
  idx_ArticulosCOMISIONABLE = 6;
  idx_ArticulosFECHA_ALTA = 7;
  idx_ArticulosFECHA_MODIFICACION = 8;
  idx_ArticulosUSUARIO = 9;
  idx_ArticulosREFERENCIA_PROVEEDOR = 10;
  idx_ArticulosPRECIO_COSTE = 11;
  idx_ArticulosPRECIO_PORTE = 12;
  idx_ArticulosDESCUENTO = 13;
  idx_ArticulosID_PROVEEDOR = 14;
  idx_ArticulosNOMBRE_PROVEEDOR = 15;

  { DatosProveedor fields }
  fld_DatosProveedorID = 'ID';
  fld_DatosProveedorID_ARTICULO = 'ID_ARTICULO';
  fld_DatosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_DatosProveedorREFERENCIA = 'REFERENCIA';
  fld_DatosProveedorPRECIO_COSTE = 'PRECIO_COSTE';
  fld_DatosProveedorPRECIO_PORTE = 'PRECIO_PORTE';
  fld_DatosProveedorDESCUENTO = 'DESCUENTO';
  fld_DatosProveedorNOMBRE = 'NOMBRE';

  { DatosProveedor field indexes }
  idx_DatosProveedorID = 0;
  idx_DatosProveedorID_ARTICULO = 1;
  idx_DatosProveedorID_PROVEEDOR = 2;
  idx_DatosProveedorREFERENCIA = 3;
  idx_DatosProveedorPRECIO_COSTE = 4;
  idx_DatosProveedorPRECIO_PORTE = 5;
  idx_DatosProveedorDESCUENTO = 6;
  idx_DatosProveedorNOMBRE = 7;

  { DatosProveedor_Refresh fields }
  fld_DatosProveedor_RefreshID = 'ID';
  fld_DatosProveedor_RefreshID_ARTICULO = 'ID_ARTICULO';
  fld_DatosProveedor_RefreshID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_DatosProveedor_RefreshREFERENCIA = 'REFERENCIA';
  fld_DatosProveedor_RefreshPRECIO_COSTE = 'PRECIO_COSTE';
  fld_DatosProveedor_RefreshPRECIO_PORTE = 'PRECIO_PORTE';
  fld_DatosProveedor_RefreshDESCUENTO = 'DESCUENTO';
  fld_DatosProveedor_RefreshNOMBRE = 'NOMBRE';

  { DatosProveedor_Refresh field indexes }
  idx_DatosProveedor_RefreshID = 0;
  idx_DatosProveedor_RefreshID_ARTICULO = 1;
  idx_DatosProveedor_RefreshID_PROVEEDOR = 2;
  idx_DatosProveedor_RefreshREFERENCIA = 3;
  idx_DatosProveedor_RefreshPRECIO_COSTE = 4;
  idx_DatosProveedor_RefreshPRECIO_PORTE = 5;
  idx_DatosProveedor_RefreshDESCUENTO = 6;
  idx_DatosProveedor_RefreshNOMBRE = 7;

  { Articulos_Refresh fields }
  fld_Articulos_RefreshID = 'ID';
  fld_Articulos_RefreshID_EMPRESA = 'ID_EMPRESA';
  fld_Articulos_RefreshFECHA_ALTA = 'FECHA_ALTA';
  fld_Articulos_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
  fld_Articulos_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
  fld_Articulos_RefreshPRECIO_COSTE = 'PRECIO_COSTE';
  fld_Articulos_RefreshPRECIO_PORTE = 'PRECIO_PORTE';
  fld_Articulos_RefreshDESCUENTO = 'DESCUENTO';
  fld_Articulos_RefreshID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_Articulos_RefreshNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';

  { Articulos_Refresh field indexes }
  idx_Articulos_RefreshID = 0;
  idx_Articulos_RefreshID_EMPRESA = 1;
  idx_Articulos_RefreshFECHA_ALTA = 2;
  idx_Articulos_RefreshFECHA_MODIFICACION = 3;
  idx_Articulos_RefreshREFERENCIA_PROVEEDOR = 4;
  idx_Articulos_RefreshPRECIO_COSTE = 5;
  idx_Articulos_RefreshPRECIO_PORTE = 6;
  idx_Articulos_RefreshDESCUENTO = 7;
  idx_Articulos_RefreshID_PROVEEDOR = 8;
  idx_Articulos_RefreshNOMBRE_PROVEEDOR = 9;

type
  { IArticulos }
  IArticulos = interface(IDAStronglyTypedDataTable)
  ['{57BA46CA-134B-4547-873B-E5B8E7EAD063}']
    { 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 GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetFAMILIAValue: String;
    procedure SetFAMILIAValue(const aValue: String);
    function GetIMAGENValue: IROStream;
    procedure SetIMAGENValue(const aValue: IROStream);
    function GetCOMISIONABLEValue: Integer;
    procedure SetCOMISIONABLEValue(const aValue: Integer);
    function GetFECHA_ALTAValue: DateTime;
    procedure SetFECHA_ALTAValue(const aValue: DateTime);
    function GetFECHA_MODIFICACIONValue: DateTime;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetREFERENCIA_PROVEEDORValue: String;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
    function GetPRECIO_COSTEValue: Float;
    procedure SetPRECIO_COSTEValue(const aValue: Float);
    function GetPRECIO_PORTEValue: Float;
    procedure SetPRECIO_PORTEValue(const aValue: Float);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetNOMBRE_PROVEEDORValue: String;
    procedure SetNOMBRE_PROVEEDORValue(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 DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
    property IMAGEN: IROStream read GetIMAGENValue write SetIMAGENValue;
    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
  end;

  { TArticulosDataTableRules }
  TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
  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 GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetIMAGENValue: IROStream; virtual;
    procedure SetIMAGENValue(const aValue: IROStream); virtual;
    function GetCOMISIONABLEValue: Integer; virtual;
    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVEEDORValue: String; virtual;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
    function GetPRECIO_COSTEValue: Float; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
    function GetPRECIO_PORTEValue: Float; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetNOMBRE_PROVEEDORValue: String; virtual;
    procedure SetNOMBRE_PROVEEDORValue(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 DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
    property IMAGEN: IROStream read GetIMAGENValue write SetIMAGENValue;
    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;

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

  end;

  { IDatosProveedor }
  IDatosProveedor = interface(IDAStronglyTypedDataTable)
  ['{0AFD1FB8-D9D6-40CC-A801-F3108AFDFCBE}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetID_ARTICULOValue: Integer;
    procedure SetID_ARTICULOValue(const aValue: Integer);
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetPRECIO_COSTEValue: Float;
    procedure SetPRECIO_COSTEValue(const aValue: Float);
    function GetPRECIO_PORTEValue: Float;
    procedure SetPRECIO_PORTEValue(const aValue: Float);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
  end;

  { TDatosProveedorDataTableRules }
  TDatosProveedorDataTableRules = class(TDADataTableRules, IDatosProveedor)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetPRECIO_COSTEValue: Float; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
    function GetPRECIO_PORTEValue: Float; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;

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

  end;

  { IDatosProveedor_Refresh }
  IDatosProveedor_Refresh = interface(IDAStronglyTypedDataTable)
  ['{12D06253-905D-4D04-8D30-A3951FEF5B41}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetID_ARTICULOValue: Integer;
    procedure SetID_ARTICULOValue(const aValue: Integer);
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetPRECIO_COSTEValue: Float;
    procedure SetPRECIO_COSTEValue(const aValue: Float);
    function GetPRECIO_PORTEValue: Float;
    procedure SetPRECIO_PORTEValue(const aValue: Float);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
  end;

  { TDatosProveedor_RefreshDataTableRules }
  TDatosProveedor_RefreshDataTableRules = class(TDADataTableRules, IDatosProveedor_Refresh)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetPRECIO_COSTEValue: Float; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
    function GetPRECIO_PORTEValue: Float; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;

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

  end;

  { IArticulos_Refresh }
  IArticulos_Refresh = interface(IDAStronglyTypedDataTable)
  ['{7A75D409-64BE-456A-B997-DE254F24EC24}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetID_EMPRESAValue: Integer;
    procedure SetID_EMPRESAValue(const aValue: Integer);
    function GetFECHA_ALTAValue: DateTime;
    procedure SetFECHA_ALTAValue(const aValue: DateTime);
    function GetFECHA_MODIFICACIONValue: DateTime;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
    function GetREFERENCIA_PROVEEDORValue: String;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
    function GetPRECIO_COSTEValue: Float;
    procedure SetPRECIO_COSTEValue(const aValue: Float);
    function GetPRECIO_PORTEValue: Float;
    procedure SetPRECIO_PORTEValue(const aValue: Float);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetNOMBRE_PROVEEDORValue: String;
    procedure SetNOMBRE_PROVEEDORValue(const aValue: String);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
  end;

  { TArticulos_RefreshDataTableRules }
  TArticulos_RefreshDataTableRules = class(TDADataTableRules, IArticulos_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 GetFECHA_ALTAValue: DateTime; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    function GetREFERENCIA_PROVEEDORValue: String; virtual;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
    function GetPRECIO_COSTEValue: Float; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
    function GetPRECIO_PORTEValue: Float; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetNOMBRE_PROVEEDORValue: String; virtual;
    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;

  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.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosID].AsInteger;
end;

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

function TArticulosDataTableRules.GetID_EMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger;
end;

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

function TArticulosDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA].AsString;
end;

procedure TArticulosDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosREFERENCIA].AsString := 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.GetFAMILIAValue: String;
begin
  result := DataTable.Fields[idx_ArticulosFAMILIA].AsString;
end;

procedure TArticulosDataTableRules.SetFAMILIAValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue;
end;

function TArticulosDataTableRules.GetIMAGENValue: IROStream;
begin
  result := NewROStream();
  DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result);
end;

procedure TArticulosDataTableRules.SetIMAGENValue(const aValue: IROStream);
begin
  DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(aValue);
end;

function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger;
end;

procedure TArticulosDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger := aValue;
end;

function TArticulosDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime;
end;

procedure TArticulosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime := aValue;
end;

function TArticulosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime;
end;

procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime := aValue;
end;

function TArticulosDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_ArticulosUSUARIO].AsString;
end;

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

function TArticulosDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROVEEDOR].AsString;
end;

procedure TArticulosDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosREFERENCIA_PROVEEDOR].AsString := aValue;
end;

function TArticulosDataTableRules.GetPRECIO_COSTEValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsFloat;
end;

procedure TArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsFloat := aValue;
end;

function TArticulosDataTableRules.GetPRECIO_PORTEValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsFloat;
end;

procedure TArticulosDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsFloat := aValue;
end;

function TArticulosDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat;
end;

procedure TArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat := aValue;
end;

function TArticulosDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger;
end;

procedure TArticulosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger := aValue;
end;

function TArticulosDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString;
end;

procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString := aValue;
end;


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

destructor TDatosProveedorDataTableRules.Destroy;
begin
  inherited;
end;

function TDatosProveedorDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_DatosProveedorID].AsInteger;
end;

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

function TDatosProveedorDataTableRules.GetID_ARTICULOValue: Integer;
begin
  result := DataTable.Fields[idx_DatosProveedorID_ARTICULO].AsInteger;
end;

procedure TDatosProveedorDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DatosProveedorID_ARTICULO].AsInteger := aValue;
end;

function TDatosProveedorDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_DatosProveedorID_PROVEEDOR].AsInteger;
end;

procedure TDatosProveedorDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DatosProveedorID_PROVEEDOR].AsInteger := aValue;
end;

function TDatosProveedorDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_DatosProveedorREFERENCIA].AsString;
end;

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

function TDatosProveedorDataTableRules.GetPRECIO_COSTEValue: Float;
begin
  result := DataTable.Fields[idx_DatosProveedorPRECIO_COSTE].AsFloat;
end;

procedure TDatosProveedorDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_DatosProveedorPRECIO_COSTE].AsFloat := aValue;
end;

function TDatosProveedorDataTableRules.GetPRECIO_PORTEValue: Float;
begin
  result := DataTable.Fields[idx_DatosProveedorPRECIO_PORTE].AsFloat;
end;

procedure TDatosProveedorDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_DatosProveedorPRECIO_PORTE].AsFloat := aValue;
end;

function TDatosProveedorDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_DatosProveedorDESCUENTO].AsFloat;
end;

procedure TDatosProveedorDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_DatosProveedorDESCUENTO].AsFloat := aValue;
end;

function TDatosProveedorDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_DatosProveedorNOMBRE].AsString;
end;

procedure TDatosProveedorDataTableRules.SetNOMBREValue(const aValue: String);
begin
  DataTable.Fields[idx_DatosProveedorNOMBRE].AsString := aValue;
end;


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

destructor TDatosProveedor_RefreshDataTableRules.Destroy;
begin
  inherited;
end;

function TDatosProveedor_RefreshDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshID].AsInteger;
end;

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

function TDatosProveedor_RefreshDataTableRules.GetID_ARTICULOValue: Integer;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshID_ARTICULO].AsInteger;
end;

procedure TDatosProveedor_RefreshDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DatosProveedor_RefreshID_ARTICULO].AsInteger := aValue;
end;

function TDatosProveedor_RefreshDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshID_PROVEEDOR].AsInteger;
end;

procedure TDatosProveedor_RefreshDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DatosProveedor_RefreshID_PROVEEDOR].AsInteger := aValue;
end;

function TDatosProveedor_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshREFERENCIA].AsString;
end;

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

function TDatosProveedor_RefreshDataTableRules.GetPRECIO_COSTEValue: Float;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshPRECIO_COSTE].AsFloat;
end;

procedure TDatosProveedor_RefreshDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_DatosProveedor_RefreshPRECIO_COSTE].AsFloat := aValue;
end;

function TDatosProveedor_RefreshDataTableRules.GetPRECIO_PORTEValue: Float;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshPRECIO_PORTE].AsFloat;
end;

procedure TDatosProveedor_RefreshDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_DatosProveedor_RefreshPRECIO_PORTE].AsFloat := aValue;
end;

function TDatosProveedor_RefreshDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshDESCUENTO].AsFloat;
end;

procedure TDatosProveedor_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_DatosProveedor_RefreshDESCUENTO].AsFloat := aValue;
end;

function TDatosProveedor_RefreshDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_DatosProveedor_RefreshNOMBRE].AsString;
end;

procedure TDatosProveedor_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
begin
  DataTable.Fields[idx_DatosProveedor_RefreshNOMBRE].AsString := aValue;
end;


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

destructor TArticulos_RefreshDataTableRules.Destroy;
begin
  inherited;
end;

function TArticulos_RefreshDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_Articulos_RefreshID].AsInteger;
end;

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

function TArticulos_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_Articulos_RefreshID_EMPRESA].AsInteger;
end;

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

function TArticulos_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_Articulos_RefreshFECHA_ALTA].AsDateTime;
end;

procedure TArticulos_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Articulos_RefreshFECHA_ALTA].AsDateTime := aValue;
end;

function TArticulos_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_Articulos_RefreshFECHA_MODIFICACION].AsDateTime;
end;

procedure TArticulos_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Articulos_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
end;

function TArticulos_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_Articulos_RefreshREFERENCIA_PROVEEDOR].AsString;
end;

procedure TArticulos_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_Articulos_RefreshREFERENCIA_PROVEEDOR].AsString := aValue;
end;

function TArticulos_RefreshDataTableRules.GetPRECIO_COSTEValue: Float;
begin
  result := DataTable.Fields[idx_Articulos_RefreshPRECIO_COSTE].AsFloat;
end;

procedure TArticulos_RefreshDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_Articulos_RefreshPRECIO_COSTE].AsFloat := aValue;
end;

function TArticulos_RefreshDataTableRules.GetPRECIO_PORTEValue: Float;
begin
  result := DataTable.Fields[idx_Articulos_RefreshPRECIO_PORTE].AsFloat;
end;

procedure TArticulos_RefreshDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_Articulos_RefreshPRECIO_PORTE].AsFloat := aValue;
end;

function TArticulos_RefreshDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_Articulos_RefreshDESCUENTO].AsFloat;
end;

procedure TArticulos_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_Articulos_RefreshDESCUENTO].AsFloat := aValue;
end;

function TArticulos_RefreshDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_Articulos_RefreshID_PROVEEDOR].AsInteger;
end;

procedure TArticulos_RefreshDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Articulos_RefreshID_PROVEEDOR].AsInteger := aValue;
end;

function TArticulos_RefreshDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_Articulos_RefreshNOMBRE_PROVEEDOR].AsString;
end;

procedure TArticulos_RefreshDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_Articulos_RefreshNOMBRE_PROVEEDOR].AsString := aValue;
end;


initialization
  RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
  RegisterDataTableRules(RID_DatosProveedor, TDatosProveedorDataTableRules);
  RegisterDataTableRules(RID_DatosProveedor_Refresh, TDatosProveedor_RefreshDataTableRules);
  RegisterDataTableRules(RID_Articulos_Refresh, TArticulos_RefreshDataTableRules);

end.