unit schArticulosClient_Intf;

interface

uses
  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;

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_ProveedoresConArticulos = '{379657B4-60F9-4869-8118-D64DDB75F498}';
  RID_Articulos_Proveedores = '{635679F2-8A86-4BD7-9618-266ACE873E9E}';
  RID_Articulos = '{7639CA52-0BFC-4310-803D-83E8E87B60B2}';
  RID_ArticulosParaCompra = '{004BCA46-82E3-457F-B022-A3FD38B0657E}';

  { Data table names }
  nme_ProveedoresConArticulos = 'ProveedoresConArticulos';
  nme_Articulos_Proveedores = 'Articulos_Proveedores';
  nme_Articulos = 'Articulos';
  nme_ArticulosParaCompra = 'ArticulosParaCompra';

  { ProveedoresConArticulos fields }
  fld_ProveedoresConArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_ProveedoresConArticulosNOMBRE = 'NOMBRE';

  { ProveedoresConArticulos field indexes }
  idx_ProveedoresConArticulosID_PROVEEDOR = 0;
  idx_ProveedoresConArticulosNOMBRE = 1;

  { Articulos_Proveedores fields }
  fld_Articulos_ProveedoresID = 'ID';
  fld_Articulos_ProveedoresID_ARTICULO = 'ID_ARTICULO';
  fld_Articulos_ProveedoresID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_Articulos_ProveedoresREFERENCIA_PROV = 'REFERENCIA_PROV';
  fld_Articulos_ProveedoresPRECIO_COSTE = 'PRECIO_COSTE';
  fld_Articulos_ProveedoresDESCUENTO = 'DESCUENTO';
  fld_Articulos_ProveedoresPRECIO_NETO = 'PRECIO_NETO';
  fld_Articulos_ProveedoresPRECIO_PORTE = 'PRECIO_PORTE';
  fld_Articulos_ProveedoresPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
  fld_Articulos_ProveedoresPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';

  { Articulos_Proveedores field indexes }
  idx_Articulos_ProveedoresID = 0;
  idx_Articulos_ProveedoresID_ARTICULO = 1;
  idx_Articulos_ProveedoresID_PROVEEDOR = 2;
  idx_Articulos_ProveedoresREFERENCIA_PROV = 3;
  idx_Articulos_ProveedoresPRECIO_COSTE = 4;
  idx_Articulos_ProveedoresDESCUENTO = 5;
  idx_Articulos_ProveedoresPRECIO_NETO = 6;
  idx_Articulos_ProveedoresPRECIO_PORTE = 7;
  idx_Articulos_ProveedoresPRECIO_PVP_VENTA = 8;
  idx_Articulos_ProveedoresPRECIO_PVP_TOTAL = 9;

  { Articulos fields }
  fld_ArticulosID = 'ID';
  fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
  fld_ArticulosREFERENCIA = 'REFERENCIA';
  fld_ArticulosDESCRIPCION = 'DESCRIPCION';
  fld_ArticulosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
  fld_ArticulosFAMILIA = 'FAMILIA';
  fld_ArticulosIMAGEN = 'IMAGEN';
  fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
  fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
  fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
  fld_ArticulosUSUARIO = 'USUARIO';
  fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV';
  fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
  fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
  fld_ArticulosDESCUENTO = 'DESCUENTO';
  fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
  fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
  fld_ArticulosELIMINADO = 'ELIMINADO';
  fld_ArticulosFABRICANTE = 'FABRICANTE';
  fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR';
  fld_ArticulosPARAM_MARGEN = 'PARAM_MARGEN';
  fld_ArticulosPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
  fld_ArticulosTIEMPO = 'TIEMPO';
  fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
  fld_ArticulosMANO_OBRA = 'MANO_OBRA';
  fld_ArticulosPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
  fld_ArticulosCAMPOTECNICO = 'CAMPOTECNICO';
  fld_ArticulosCODIGOTECNICO = 'CODIGOTECNICO';
  fld_ArticulosDISENOTECNICO = 'DISENOTECNICO';
  fld_ArticulosPRECIO = 'PRECIO';

  { Articulos field indexes }
  idx_ArticulosID = 0;
  idx_ArticulosID_EMPRESA = 1;
  idx_ArticulosREFERENCIA = 2;
  idx_ArticulosDESCRIPCION = 3;
  idx_ArticulosUNIDAD_MEDIDA = 4;
  idx_ArticulosFAMILIA = 5;
  idx_ArticulosIMAGEN = 6;
  idx_ArticulosCOMISIONABLE = 7;
  idx_ArticulosFECHA_ALTA = 8;
  idx_ArticulosFECHA_MODIFICACION = 9;
  idx_ArticulosUSUARIO = 10;
  idx_ArticulosREFERENCIA_PROV = 11;
  idx_ArticulosPRECIO_COSTE = 12;
  idx_ArticulosPRECIO_PORTE = 13;
  idx_ArticulosDESCUENTO = 14;
  idx_ArticulosPRECIO_NETO = 15;
  idx_ArticulosINVENTARIABLE = 16;
  idx_ArticulosELIMINADO = 17;
  idx_ArticulosFABRICANTE = 18;
  idx_ArticulosREFERENCIA_FABR = 19;
  idx_ArticulosPARAM_MARGEN = 20;
  idx_ArticulosPRECIO_PVP_VENTA = 21;
  idx_ArticulosTIEMPO = 22;
  idx_ArticulosPARAM_TIEMPO = 23;
  idx_ArticulosMANO_OBRA = 24;
  idx_ArticulosPRECIO_PVP_TOTAL = 25;
  idx_ArticulosCAMPOTECNICO = 26;
  idx_ArticulosCODIGOTECNICO = 27;
  idx_ArticulosDISENOTECNICO = 28;
  idx_ArticulosPRECIO = 29;

  { ArticulosParaCompra fields }
  fld_ArticulosParaCompraID = 'ID';
  fld_ArticulosParaCompraID_EMPRESA = 'ID_EMPRESA';
  fld_ArticulosParaCompraREFERENCIA = 'REFERENCIA';
  fld_ArticulosParaCompraDESCRIPCION = 'DESCRIPCION';
  fld_ArticulosParaCompraUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
  fld_ArticulosParaCompraFAMILIA = 'FAMILIA';
  fld_ArticulosParaCompraIMAGEN = 'IMAGEN';
  fld_ArticulosParaCompraCOMISIONABLE = 'COMISIONABLE';
  fld_ArticulosParaCompraFECHA_ALTA = 'FECHA_ALTA';
  fld_ArticulosParaCompraFECHA_MODIFICACION = 'FECHA_MODIFICACION';
  fld_ArticulosParaCompraUSUARIO = 'USUARIO';
  fld_ArticulosParaCompraREFERENCIA_PROV = 'REFERENCIA_PROV';
  fld_ArticulosParaCompraPRECIO_COSTE = 'PRECIO_COSTE';
  fld_ArticulosParaCompraPRECIO_PORTE = 'PRECIO_PORTE';
  fld_ArticulosParaCompraDESCUENTO = 'DESCUENTO';
  fld_ArticulosParaCompraPRECIO_NETO = 'PRECIO_NETO';
  fld_ArticulosParaCompraINVENTARIABLE = 'INVENTARIABLE';
  fld_ArticulosParaCompraID_PROVEEDOR = 'ID_PROVEEDOR';
  fld_ArticulosParaCompraNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
  fld_ArticulosParaCompraELIMINADO = 'ELIMINADO';
  fld_ArticulosParaCompraFABRICANTE = 'FABRICANTE';
  fld_ArticulosParaCompraREFERENCIA_FABR = 'REFERENCIA_FABR';
  fld_ArticulosParaCompraPARAM_MARGEN = 'PARAM_MARGEN';
  fld_ArticulosParaCompraPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
  fld_ArticulosParaCompraTIEMPO = 'TIEMPO';
  fld_ArticulosParaCompraPARAM_TIEMPO = 'PARAM_TIEMPO';
  fld_ArticulosParaCompraMANO_OBRA = 'MANO_OBRA';
  fld_ArticulosParaCompraPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
  fld_ArticulosParaCompraID_ARTICULO = 'ID_ARTICULO';

  { ArticulosParaCompra field indexes }
  idx_ArticulosParaCompraID = 0;
  idx_ArticulosParaCompraID_EMPRESA = 1;
  idx_ArticulosParaCompraREFERENCIA = 2;
  idx_ArticulosParaCompraDESCRIPCION = 3;
  idx_ArticulosParaCompraUNIDAD_MEDIDA = 4;
  idx_ArticulosParaCompraFAMILIA = 5;
  idx_ArticulosParaCompraIMAGEN = 6;
  idx_ArticulosParaCompraCOMISIONABLE = 7;
  idx_ArticulosParaCompraFECHA_ALTA = 8;
  idx_ArticulosParaCompraFECHA_MODIFICACION = 9;
  idx_ArticulosParaCompraUSUARIO = 10;
  idx_ArticulosParaCompraREFERENCIA_PROV = 11;
  idx_ArticulosParaCompraPRECIO_COSTE = 12;
  idx_ArticulosParaCompraPRECIO_PORTE = 13;
  idx_ArticulosParaCompraDESCUENTO = 14;
  idx_ArticulosParaCompraPRECIO_NETO = 15;
  idx_ArticulosParaCompraINVENTARIABLE = 16;
  idx_ArticulosParaCompraID_PROVEEDOR = 17;
  idx_ArticulosParaCompraNOMBRE_PROVEEDOR = 18;
  idx_ArticulosParaCompraELIMINADO = 19;
  idx_ArticulosParaCompraFABRICANTE = 20;
  idx_ArticulosParaCompraREFERENCIA_FABR = 21;
  idx_ArticulosParaCompraPARAM_MARGEN = 22;
  idx_ArticulosParaCompraPRECIO_PVP_VENTA = 23;
  idx_ArticulosParaCompraTIEMPO = 24;
  idx_ArticulosParaCompraPARAM_TIEMPO = 25;
  idx_ArticulosParaCompraMANO_OBRA = 26;
  idx_ArticulosParaCompraPRECIO_PVP_TOTAL = 27;
  idx_ArticulosParaCompraID_ARTICULO = 28;

type
  { IProveedoresConArticulos }
  IProveedoresConArticulos = interface(IDAStronglyTypedDataTable)
  ['{4215D7A1-8D56-455F-9C17-805F5314F50A}']
    { Property getters and setters }
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetID_PROVEEDORIsNull: Boolean;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetNOMBREIsNull: Boolean;
    procedure SetNOMBREIsNull(const aValue: Boolean);


    { Properties }
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
  end;

  { TProveedoresConArticulosDataTableRules }
  TProveedoresConArticulosDataTableRules = class(TIntfObjectDADataTableRules, IProveedoresConArticulos)
  private
  protected
    { Property getters and setters }
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetID_PROVEEDORIsNull: Boolean; virtual;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;

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

  end;

  { IArticulos_Proveedores }
  IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
  ['{C71C6CA0-947C-4626-94E1-C78CFDE009EA}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetID_ARTICULOValue: Integer;
    procedure SetID_ARTICULOValue(const aValue: Integer);
    function GetID_ARTICULOIsNull: Boolean;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean);
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetID_PROVEEDORIsNull: Boolean;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
    function GetREFERENCIA_PROVValue: String;
    procedure SetREFERENCIA_PROVValue(const aValue: String);
    function GetREFERENCIA_PROVIsNull: Boolean;
    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
    function GetPRECIO_COSTEValue: Currency;
    procedure SetPRECIO_COSTEValue(const aValue: Currency);
    function GetPRECIO_COSTEIsNull: Boolean;
    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetDESCUENTOIsNull: Boolean;
    procedure SetDESCUENTOIsNull(const aValue: Boolean);
    function GetPRECIO_NETOValue: Currency;
    procedure SetPRECIO_NETOValue(const aValue: Currency);
    function GetPRECIO_NETOIsNull: Boolean;
    procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
    function GetPRECIO_PORTEValue: Currency;
    procedure SetPRECIO_PORTEValue(const aValue: Currency);
    function GetPRECIO_PORTEIsNull: Boolean;
    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
    function GetPRECIO_PVP_VENTAValue: Currency;
    procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency);
    function GetPRECIO_PVP_VENTAIsNull: Boolean;
    procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
    function GetPRECIO_PVP_TOTALValue: Currency;
    procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
    function GetPRECIO_PVP_TOTALIsNull: Boolean;
    procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
    property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
    property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
    property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
    property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
  end;

  { TArticulos_ProveedoresDataTableRules }
  TArticulos_ProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IArticulos_Proveedores)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetID_ARTICULOIsNull: Boolean; virtual;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetID_PROVEEDORIsNull: Boolean; virtual;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIA_PROVValue: String; virtual;
    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_COSTEValue: Currency; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
    function GetPRECIO_COSTEIsNull: Boolean; virtual;
    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_NETOValue: Currency; virtual;
    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
    function GetPRECIO_NETOIsNull: Boolean; virtual;
    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PORTEValue: Currency; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
    function GetPRECIO_PORTEIsNull: Boolean; virtual;
    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PVP_VENTAValue: Currency; virtual;
    procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
    function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
    procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PVP_TOTALValue: Currency; virtual;
    procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
    function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
    procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
    property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
    property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
    property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
    property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;

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

  end;

  { IArticulos }
  IArticulos = interface(IDAStronglyTypedDataTable)
  ['{E78CD6D0-3E58-4560-B23C-84A4495CB1EA}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetID_EMPRESAValue: Integer;
    procedure SetID_EMPRESAValue(const aValue: Integer);
    function GetID_EMPRESAIsNull: Boolean;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetREFERENCIAIsNull: Boolean;
    procedure SetREFERENCIAIsNull(const aValue: Boolean);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetDESCRIPCIONIsNull: Boolean;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
    function GetUNIDAD_MEDIDAValue: String;
    procedure SetUNIDAD_MEDIDAValue(const aValue: String);
    function GetUNIDAD_MEDIDAIsNull: Boolean;
    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
    function GetFAMILIAValue: String;
    procedure SetFAMILIAValue(const aValue: String);
    function GetFAMILIAIsNull: Boolean;
    procedure SetFAMILIAIsNull(const aValue: Boolean);
    function GetIMAGENValue: IROStream;
    function GetIMAGENIsNull: Boolean;
    procedure SetIMAGENIsNull(const aValue: Boolean);
    function GetCOMISIONABLEValue: Integer;
    procedure SetCOMISIONABLEValue(const aValue: Integer);
    function GetCOMISIONABLEIsNull: Boolean;
    procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
    function GetFECHA_ALTAValue: DateTime;
    procedure SetFECHA_ALTAValue(const aValue: DateTime);
    function GetFECHA_ALTAIsNull: Boolean;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
    function GetFECHA_MODIFICACIONValue: DateTime;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
    function GetFECHA_MODIFICACIONIsNull: Boolean;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetUSUARIOIsNull: Boolean;
    procedure SetUSUARIOIsNull(const aValue: Boolean);
    function GetREFERENCIA_PROVValue: String;
    procedure SetREFERENCIA_PROVValue(const aValue: String);
    function GetREFERENCIA_PROVIsNull: Boolean;
    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
    function GetPRECIO_COSTEValue: Currency;
    procedure SetPRECIO_COSTEValue(const aValue: Currency);
    function GetPRECIO_COSTEIsNull: Boolean;
    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
    function GetPRECIO_PORTEValue: Currency;
    procedure SetPRECIO_PORTEValue(const aValue: Currency);
    function GetPRECIO_PORTEIsNull: Boolean;
    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetDESCUENTOIsNull: Boolean;
    procedure SetDESCUENTOIsNull(const aValue: Boolean);
    function GetPRECIO_NETOValue: Currency;
    procedure SetPRECIO_NETOValue(const aValue: Currency);
    function GetPRECIO_NETOIsNull: Boolean;
    procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
    function GetINVENTARIABLEValue: SmallInt;
    procedure SetINVENTARIABLEValue(const aValue: SmallInt);
    function GetINVENTARIABLEIsNull: Boolean;
    procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
    function GetELIMINADOValue: SmallInt;
    procedure SetELIMINADOValue(const aValue: SmallInt);
    function GetELIMINADOIsNull: Boolean;
    procedure SetELIMINADOIsNull(const aValue: Boolean);
    function GetFABRICANTEValue: String;
    procedure SetFABRICANTEValue(const aValue: String);
    function GetFABRICANTEIsNull: Boolean;
    procedure SetFABRICANTEIsNull(const aValue: Boolean);
    function GetREFERENCIA_FABRValue: String;
    procedure SetREFERENCIA_FABRValue(const aValue: String);
    function GetREFERENCIA_FABRIsNull: Boolean;
    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
    function GetPARAM_MARGENValue: Float;
    procedure SetPARAM_MARGENValue(const aValue: Float);
    function GetPARAM_MARGENIsNull: Boolean;
    procedure SetPARAM_MARGENIsNull(const aValue: Boolean);
    function GetPRECIO_PVP_VENTAValue: Currency;
    procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency);
    function GetPRECIO_PVP_VENTAIsNull: Boolean;
    procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
    function GetTIEMPOValue: Integer;
    procedure SetTIEMPOValue(const aValue: Integer);
    function GetTIEMPOIsNull: Boolean;
    procedure SetTIEMPOIsNull(const aValue: Boolean);
    function GetPARAM_TIEMPOValue: Float;
    procedure SetPARAM_TIEMPOValue(const aValue: Float);
    function GetPARAM_TIEMPOIsNull: Boolean;
    procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
    function GetMANO_OBRAValue: Currency;
    procedure SetMANO_OBRAValue(const aValue: Currency);
    function GetMANO_OBRAIsNull: Boolean;
    procedure SetMANO_OBRAIsNull(const aValue: Boolean);
    function GetPRECIO_PVP_TOTALValue: Currency;
    procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
    function GetPRECIO_PVP_TOTALIsNull: Boolean;
    procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
    function GetCAMPOTECNICOValue: String;
    procedure SetCAMPOTECNICOValue(const aValue: String);
    function GetCAMPOTECNICOIsNull: Boolean;
    procedure SetCAMPOTECNICOIsNull(const aValue: Boolean);
    function GetCODIGOTECNICOValue: String;
    procedure SetCODIGOTECNICOValue(const aValue: String);
    function GetCODIGOTECNICOIsNull: Boolean;
    procedure SetCODIGOTECNICOIsNull(const aValue: Boolean);
    function GetDISENOTECNICOValue: String;
    procedure SetDISENOTECNICOValue(const aValue: String);
    function GetDISENOTECNICOIsNull: Boolean;
    procedure SetDISENOTECNICOIsNull(const aValue: Boolean);
    function GetPRECIOValue: Currency;
    procedure SetPRECIOValue(const aValue: Currency);
    function GetPRECIOIsNull: Boolean;
    procedure SetPRECIOIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
    property IMAGEN: IROStream read GetIMAGENValue;
    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
    property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
    property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
    property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
    property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
    property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
    property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
    property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
    property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
    property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
    property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
    property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
    property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
    property CAMPOTECNICO: String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
    property CAMPOTECNICOIsNull: Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
    property CODIGOTECNICO: String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
    property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
    property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
    property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
    property PRECIO: Currency read GetPRECIOValue write SetPRECIOValue;
    property PRECIOIsNull: Boolean read GetPRECIOIsNull write SetPRECIOIsNull;
  end;

  { TArticulosDataTableRules }
  TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
  private
    f_IMAGEN: IROStream;
    procedure IMAGEN_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
    function GetUNIDAD_MEDIDAValue: String; virtual;
    procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
    function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
    function GetFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetFAMILIAIsNull: Boolean; virtual;
    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
    function GetIMAGENValue: IROStream; virtual;
    function GetIMAGENIsNull: Boolean; virtual;
    procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
    function GetCOMISIONABLEValue: Integer; virtual;
    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
    function GetCOMISIONABLEIsNull: Boolean; virtual;
    procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIA_PROVValue: String; virtual;
    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_COSTEValue: Currency; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
    function GetPRECIO_COSTEIsNull: Boolean; virtual;
    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PORTEValue: Currency; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
    function GetPRECIO_PORTEIsNull: Boolean; virtual;
    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_NETOValue: Currency; virtual;
    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
    function GetPRECIO_NETOIsNull: Boolean; virtual;
    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
    function GetINVENTARIABLEValue: SmallInt; virtual;
    procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
    function GetINVENTARIABLEIsNull: Boolean; virtual;
    procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
    function GetELIMINADOValue: SmallInt; virtual;
    procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
    function GetELIMINADOIsNull: Boolean; virtual;
    procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
    function GetFABRICANTEValue: String; virtual;
    procedure SetFABRICANTEValue(const aValue: String); virtual;
    function GetFABRICANTEIsNull: Boolean; virtual;
    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIA_FABRValue: String; virtual;
    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
    function GetPARAM_MARGENValue: Float; virtual;
    procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
    function GetPARAM_MARGENIsNull: Boolean; virtual;
    procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PVP_VENTAValue: Currency; virtual;
    procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
    function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
    procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
    function GetTIEMPOValue: Integer; virtual;
    procedure SetTIEMPOValue(const aValue: Integer); virtual;
    function GetTIEMPOIsNull: Boolean; virtual;
    procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
    function GetPARAM_TIEMPOValue: Float; virtual;
    procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
    function GetPARAM_TIEMPOIsNull: Boolean; virtual;
    procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
    function GetMANO_OBRAValue: Currency; virtual;
    procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
    function GetMANO_OBRAIsNull: Boolean; virtual;
    procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PVP_TOTALValue: Currency; virtual;
    procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
    function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
    procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
    function GetCAMPOTECNICOValue: String; virtual;
    procedure SetCAMPOTECNICOValue(const aValue: String); virtual;
    function GetCAMPOTECNICOIsNull: Boolean; virtual;
    procedure SetCAMPOTECNICOIsNull(const aValue: Boolean); virtual;
    function GetCODIGOTECNICOValue: String; virtual;
    procedure SetCODIGOTECNICOValue(const aValue: String); virtual;
    function GetCODIGOTECNICOIsNull: Boolean; virtual;
    procedure SetCODIGOTECNICOIsNull(const aValue: Boolean); virtual;
    function GetDISENOTECNICOValue: String; virtual;
    procedure SetDISENOTECNICOValue(const aValue: String); virtual;
    function GetDISENOTECNICOIsNull: Boolean; virtual;
    procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual;
    function GetPRECIOValue: Currency; virtual;
    procedure SetPRECIOValue(const aValue: Currency); virtual;
    function GetPRECIOIsNull: Boolean; virtual;
    procedure SetPRECIOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
    property IMAGEN: IROStream read GetIMAGENValue;
    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
    property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
    property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
    property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
    property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
    property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
    property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
    property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
    property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
    property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
    property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
    property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
    property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
    property CAMPOTECNICO: String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
    property CAMPOTECNICOIsNull: Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
    property CODIGOTECNICO: String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
    property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
    property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
    property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
    property PRECIO: Currency read GetPRECIOValue write SetPRECIOValue;
    property PRECIOIsNull: Boolean read GetPRECIOIsNull write SetPRECIOIsNull;

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

  end;

  {
  ¡¡¡¡ Esta tabla debe tener los mismos campos y orden de campos que 'Artículos' !!!!
  }
  { IArticulosParaCompra }
  IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
  ['{0AD09829-8805-4658-9A87-86A073704946}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetID_EMPRESAValue: Integer;
    procedure SetID_EMPRESAValue(const aValue: Integer);
    function GetID_EMPRESAIsNull: Boolean;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetREFERENCIAIsNull: Boolean;
    procedure SetREFERENCIAIsNull(const aValue: Boolean);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetDESCRIPCIONIsNull: Boolean;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
    function GetUNIDAD_MEDIDAValue: String;
    procedure SetUNIDAD_MEDIDAValue(const aValue: String);
    function GetUNIDAD_MEDIDAIsNull: Boolean;
    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
    function GetFAMILIAValue: String;
    procedure SetFAMILIAValue(const aValue: String);
    function GetFAMILIAIsNull: Boolean;
    procedure SetFAMILIAIsNull(const aValue: Boolean);
    function GetIMAGENValue: IROStream;
    function GetIMAGENIsNull: Boolean;
    procedure SetIMAGENIsNull(const aValue: Boolean);
    function GetCOMISIONABLEValue: Integer;
    procedure SetCOMISIONABLEValue(const aValue: Integer);
    function GetCOMISIONABLEIsNull: Boolean;
    procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
    function GetFECHA_ALTAValue: DateTime;
    procedure SetFECHA_ALTAValue(const aValue: DateTime);
    function GetFECHA_ALTAIsNull: Boolean;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
    function GetFECHA_MODIFICACIONValue: DateTime;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
    function GetFECHA_MODIFICACIONIsNull: Boolean;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetUSUARIOIsNull: Boolean;
    procedure SetUSUARIOIsNull(const aValue: Boolean);
    function GetREFERENCIA_PROVValue: String;
    procedure SetREFERENCIA_PROVValue(const aValue: String);
    function GetREFERENCIA_PROVIsNull: Boolean;
    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
    function GetPRECIO_COSTEValue: Currency;
    procedure SetPRECIO_COSTEValue(const aValue: Currency);
    function GetPRECIO_COSTEIsNull: Boolean;
    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
    function GetPRECIO_PORTEValue: Currency;
    procedure SetPRECIO_PORTEValue(const aValue: Currency);
    function GetPRECIO_PORTEIsNull: Boolean;
    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetDESCUENTOIsNull: Boolean;
    procedure SetDESCUENTOIsNull(const aValue: Boolean);
    function GetPRECIO_NETOValue: Currency;
    procedure SetPRECIO_NETOValue(const aValue: Currency);
    function GetPRECIO_NETOIsNull: Boolean;
    procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
    function GetINVENTARIABLEValue: SmallInt;
    procedure SetINVENTARIABLEValue(const aValue: SmallInt);
    function GetINVENTARIABLEIsNull: Boolean;
    procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
    function GetID_PROVEEDORValue: Integer;
    procedure SetID_PROVEEDORValue(const aValue: Integer);
    function GetID_PROVEEDORIsNull: Boolean;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
    function GetNOMBRE_PROVEEDORValue: String;
    procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
    function GetNOMBRE_PROVEEDORIsNull: Boolean;
    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
    function GetELIMINADOValue: SmallInt;
    procedure SetELIMINADOValue(const aValue: SmallInt);
    function GetELIMINADOIsNull: Boolean;
    procedure SetELIMINADOIsNull(const aValue: Boolean);
    function GetFABRICANTEValue: String;
    procedure SetFABRICANTEValue(const aValue: String);
    function GetFABRICANTEIsNull: Boolean;
    procedure SetFABRICANTEIsNull(const aValue: Boolean);
    function GetREFERENCIA_FABRValue: String;
    procedure SetREFERENCIA_FABRValue(const aValue: String);
    function GetREFERENCIA_FABRIsNull: Boolean;
    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
    function GetPARAM_MARGENValue: Float;
    procedure SetPARAM_MARGENValue(const aValue: Float);
    function GetPARAM_MARGENIsNull: Boolean;
    procedure SetPARAM_MARGENIsNull(const aValue: Boolean);
    function GetPRECIO_PVP_VENTAValue: Currency;
    procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency);
    function GetPRECIO_PVP_VENTAIsNull: Boolean;
    procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
    function GetTIEMPOValue: Integer;
    procedure SetTIEMPOValue(const aValue: Integer);
    function GetTIEMPOIsNull: Boolean;
    procedure SetTIEMPOIsNull(const aValue: Boolean);
    function GetPARAM_TIEMPOValue: Float;
    procedure SetPARAM_TIEMPOValue(const aValue: Float);
    function GetPARAM_TIEMPOIsNull: Boolean;
    procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
    function GetMANO_OBRAValue: Currency;
    procedure SetMANO_OBRAValue(const aValue: Currency);
    function GetMANO_OBRAIsNull: Boolean;
    procedure SetMANO_OBRAIsNull(const aValue: Boolean);
    function GetPRECIO_PVP_TOTALValue: Currency;
    procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
    function GetPRECIO_PVP_TOTALIsNull: Boolean;
    procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
    function GetID_ARTICULOValue: Integer;
    procedure SetID_ARTICULOValue(const aValue: Integer);
    function GetID_ARTICULOIsNull: Boolean;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
    property IMAGEN: IROStream read GetIMAGENValue;
    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
    property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
    property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
    property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
    property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
    property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
    property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
    property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
    property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
    property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
    property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
    property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
    property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
    property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
  end;

  { TArticulosParaCompraDataTableRules }
  TArticulosParaCompraDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCompra)
  private
    f_IMAGEN: IROStream;
    procedure IMAGEN_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
    function GetUNIDAD_MEDIDAValue: String; virtual;
    procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
    function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
    function GetFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetFAMILIAIsNull: Boolean; virtual;
    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
    function GetIMAGENValue: IROStream; virtual;
    function GetIMAGENIsNull: Boolean; virtual;
    procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
    function GetCOMISIONABLEValue: Integer; virtual;
    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
    function GetCOMISIONABLEIsNull: Boolean; virtual;
    procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIA_PROVValue: String; virtual;
    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_COSTEValue: Currency; virtual;
    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
    function GetPRECIO_COSTEIsNull: Boolean; virtual;
    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PORTEValue: Currency; virtual;
    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
    function GetPRECIO_PORTEIsNull: Boolean; virtual;
    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_NETOValue: Currency; virtual;
    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
    function GetPRECIO_NETOIsNull: Boolean; virtual;
    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
    function GetINVENTARIABLEValue: SmallInt; virtual;
    procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
    function GetINVENTARIABLEIsNull: Boolean; virtual;
    procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
    function GetID_PROVEEDORValue: Integer; virtual;
    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
    function GetID_PROVEEDORIsNull: Boolean; virtual;
    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_PROVEEDORValue: String; virtual;
    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
    function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
    function GetELIMINADOValue: SmallInt; virtual;
    procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
    function GetELIMINADOIsNull: Boolean; virtual;
    procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
    function GetFABRICANTEValue: String; virtual;
    procedure SetFABRICANTEValue(const aValue: String); virtual;
    function GetFABRICANTEIsNull: Boolean; virtual;
    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIA_FABRValue: String; virtual;
    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
    function GetPARAM_MARGENValue: Float; virtual;
    procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
    function GetPARAM_MARGENIsNull: Boolean; virtual;
    procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PVP_VENTAValue: Currency; virtual;
    procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
    function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
    procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
    function GetTIEMPOValue: Integer; virtual;
    procedure SetTIEMPOValue(const aValue: Integer); virtual;
    function GetTIEMPOIsNull: Boolean; virtual;
    procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
    function GetPARAM_TIEMPOValue: Float; virtual;
    procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
    function GetPARAM_TIEMPOIsNull: Boolean; virtual;
    procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
    function GetMANO_OBRAValue: Currency; virtual;
    procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
    function GetMANO_OBRAIsNull: Boolean; virtual;
    procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
    function GetPRECIO_PVP_TOTALValue: Currency; virtual;
    procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
    function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
    procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetID_ARTICULOIsNull: Boolean; virtual;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
    property IMAGEN: IROStream read GetIMAGENValue;
    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
    property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
    property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
    property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
    property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
    property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
    property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
    property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
    property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
    property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
    property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
    property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
    property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
    property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;

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

  end;

implementation

uses Variants, uROBinaryHelpers;

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

destructor TProveedoresConArticulosDataTableRules.Destroy;
begin
  inherited;
end;

function TProveedoresConArticulosDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].AsInteger;
end;

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

function TProveedoresConArticulosDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].IsNull;
end;

procedure TProveedoresConArticulosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].AsVariant := Null;
end;

function TProveedoresConArticulosDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].AsString;
end;

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

function TProveedoresConArticulosDataTableRules.GetNOMBREIsNull: boolean;
begin
  result := DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].IsNull;
end;

procedure TProveedoresConArticulosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].AsVariant := Null;
end;


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

destructor TArticulos_ProveedoresDataTableRules.Destroy;
begin
  inherited;
end;

function TArticulos_ProveedoresDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresID].AsInteger;
end;

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

function TArticulos_ProveedoresDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresID].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresID].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetID_ARTICULOValue: Integer;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].AsInteger;
end;

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

function TArticulos_ProveedoresDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].AsInteger;
end;

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

function TArticulos_ProveedoresDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetREFERENCIA_PROVValue: String;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].AsString;
end;

procedure TArticulos_ProveedoresDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
  DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].AsString := aValue;
end;

function TArticulos_ProveedoresDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].AsCurrency;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].AsCurrency := aValue;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].AsFloat;
end;

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

function TArticulos_ProveedoresDataTableRules.GetDESCUENTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_NETOValue: Currency;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].AsCurrency;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].AsCurrency := aValue;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].AsCurrency;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].AsCurrency := aValue;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].AsCurrency;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].AsCurrency := aValue;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].AsVariant := Null;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].AsCurrency;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].AsCurrency := aValue;
end;

function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
begin
  result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].IsNull;
end;

procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].AsVariant := Null;
end;


{ TArticulosDataTableRules }
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
var
  ROStream: TROStream;
begin
  inherited;

  ROStream := TROStream.Create;
  ROStream.OnChange := IMAGEN_OnChange;
  f_IMAGEN := ROStream;
end;

destructor TArticulosDataTableRules.Destroy;
begin
  inherited;
end;

procedure TArticulosDataTableRules.IMAGEN_OnChange(Sender: TObject);
begin
  if DataTable.Editing then DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(TROStream(Sender));
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.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosID].IsNull;
end;

procedure TArticulosDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosID].AsVariant := Null;
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.GetID_EMPRESAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosID_EMPRESA].IsNull;
end;

procedure TArticulosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosID_EMPRESA].AsVariant := Null;
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.GetREFERENCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA].IsNull;
end;

procedure TArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosREFERENCIA].AsVariant := Null;
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.GetDESCRIPCIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosDESCRIPCION].IsNull;
end;

procedure TArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosDESCRIPCION].AsVariant := Null;
end;

function TArticulosDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
  result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString;
end;

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

function TArticulosDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].IsNull;
end;

procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsVariant := Null;
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.GetFAMILIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosFAMILIA].IsNull;
end;

procedure TArticulosDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosFAMILIA].AsVariant := Null;
end;

function TArticulosDataTableRules.GetIMAGENValue: IROStream;
begin
  result := f_IMAGEN;
  result.Position := 0;
  if not Result.InUpdateMode then begin
    DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result);
    result.Position := 0;
  end;
end;

function TArticulosDataTableRules.GetIMAGENIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosIMAGEN].IsNull;
end;

procedure TArticulosDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosIMAGEN].AsVariant := Null;
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.GetCOMISIONABLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosCOMISIONABLE].IsNull;
end;

procedure TArticulosDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosCOMISIONABLE].AsVariant := Null;
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_ALTAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosFECHA_ALTA].IsNull;
end;

procedure TArticulosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosFECHA_ALTA].AsVariant := Null;
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.GetFECHA_MODIFICACIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].IsNull;
end;

procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsVariant := Null;
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.GetUSUARIOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosUSUARIO].IsNull;
end;

procedure TArticulosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosUSUARIO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetREFERENCIA_PROVValue: String;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString;
end;

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

function TArticulosDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].IsNull;
end;

procedure TArticulosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency;
end;

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

function TArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].IsNull;
end;

procedure TArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency;
end;

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

function TArticulosDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].IsNull;
end;

procedure TArticulosDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsVariant := Null;
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.GetDESCUENTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosDESCUENTO].IsNull;
end;

procedure TArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosDESCUENTO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPRECIO_NETOValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency;
end;

procedure TArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency := aValue;
end;

function TArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_NETO].IsNull;
end;

procedure TArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
  result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt;
end;

procedure TArticulosDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
  DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt := aValue;
end;

function TArticulosDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosINVENTARIABLE].IsNull;
end;

procedure TArticulosDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosINVENTARIABLE].AsVariant := Null;
end;

function TArticulosDataTableRules.GetELIMINADOValue: SmallInt;
begin
  result := DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt;
end;

procedure TArticulosDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
begin
  DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt := aValue;
end;

function TArticulosDataTableRules.GetELIMINADOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosELIMINADO].IsNull;
end;

procedure TArticulosDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosELIMINADO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetFABRICANTEValue: String;
begin
  result := DataTable.Fields[idx_ArticulosFABRICANTE].AsString;
end;

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

function TArticulosDataTableRules.GetFABRICANTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosFABRICANTE].IsNull;
end;

procedure TArticulosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null;
end;

function TArticulosDataTableRules.GetREFERENCIA_FABRValue: String;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString;
end;

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

function TArticulosDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].IsNull;
end;

procedure TArticulosDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPARAM_MARGENValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsFloat;
end;

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

function TArticulosDataTableRules.GetPARAM_MARGENIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPARAM_MARGEN].IsNull;
end;

procedure TArticulosDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsCurrency;
end;

procedure TArticulosDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsCurrency := aValue;
end;

function TArticulosDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].IsNull;
end;

procedure TArticulosDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsVariant := Null;
end;

function TArticulosDataTableRules.GetTIEMPOValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosTIEMPO].AsInteger;
end;

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

function TArticulosDataTableRules.GetTIEMPOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosTIEMPO].IsNull;
end;

procedure TArticulosDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosTIEMPO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPARAM_TIEMPOValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat;
end;

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

function TArticulosDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].IsNull;
end;

procedure TArticulosDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetMANO_OBRAValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency;
end;

procedure TArticulosDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency := aValue;
end;

function TArticulosDataTableRules.GetMANO_OBRAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosMANO_OBRA].IsNull;
end;

procedure TArticulosDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosMANO_OBRA].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsCurrency;
end;

procedure TArticulosDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsCurrency := aValue;
end;

function TArticulosDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].IsNull;
end;

procedure TArticulosDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsVariant := Null;
end;

function TArticulosDataTableRules.GetCAMPOTECNICOValue: String;
begin
  result := DataTable.Fields[idx_ArticulosCAMPOTECNICO].AsString;
end;

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

function TArticulosDataTableRules.GetCAMPOTECNICOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosCAMPOTECNICO].IsNull;
end;

procedure TArticulosDataTableRules.SetCAMPOTECNICOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosCAMPOTECNICO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetCODIGOTECNICOValue: String;
begin
  result := DataTable.Fields[idx_ArticulosCODIGOTECNICO].AsString;
end;

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

function TArticulosDataTableRules.GetCODIGOTECNICOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosCODIGOTECNICO].IsNull;
end;

procedure TArticulosDataTableRules.SetCODIGOTECNICOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosCODIGOTECNICO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetDISENOTECNICOValue: String;
begin
  result := DataTable.Fields[idx_ArticulosDISENOTECNICO].AsString;
end;

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

function TArticulosDataTableRules.GetDISENOTECNICOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosDISENOTECNICO].IsNull;
end;

procedure TArticulosDataTableRules.SetDISENOTECNICOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosDISENOTECNICO].AsVariant := Null;
end;

function TArticulosDataTableRules.GetPRECIOValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO].AsCurrency;
end;

procedure TArticulosDataTableRules.SetPRECIOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosPRECIO].AsCurrency := aValue;
end;

function TArticulosDataTableRules.GetPRECIOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosPRECIO].IsNull;
end;

procedure TArticulosDataTableRules.SetPRECIOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosPRECIO].AsVariant := Null;
end;


{ TArticulosParaCompraDataTableRules }
constructor TArticulosParaCompraDataTableRules.Create(aDataTable: TDADataTable);
var
  ROStream: TROStream;
begin
  inherited;

  ROStream := TROStream.Create;
  ROStream.OnChange := IMAGEN_OnChange;
  f_IMAGEN := ROStream;
end;

destructor TArticulosParaCompraDataTableRules.Destroy;
begin
  inherited;
end;

procedure TArticulosParaCompraDataTableRules.IMAGEN_OnChange(Sender: TObject);
begin
  if DataTable.Editing then DataTable.Fields[idx_ArticulosParaCompraIMAGEN].LoadFromStream(TROStream(Sender));
end;

function TArticulosParaCompraDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID].AsInteger;
end;

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

function TArticulosParaCompraDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraID].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetID_EMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].AsInteger;
end;

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

function TArticulosParaCompraDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].AsString;
end;

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

function TArticulosParaCompraDataTableRules.GetREFERENCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].AsString;
end;

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

function TArticulosParaCompraDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraUNIDAD_MEDIDA].AsString;
end;

procedure TArticulosParaCompraDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosParaCompraUNIDAD_MEDIDA].AsString := aValue;
end;

function TArticulosParaCompraDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraUNIDAD_MEDIDA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraUNIDAD_MEDIDA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetFAMILIAValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFAMILIA].AsString;
end;

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

function TArticulosParaCompraDataTableRules.GetFAMILIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFAMILIA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraFAMILIA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetIMAGENValue: IROStream;
begin
  result := f_IMAGEN;
  result.Position := 0;
  if not Result.InUpdateMode then begin
    DataTable.Fields[idx_ArticulosParaCompraIMAGEN].SaveToStream(result);
    result.Position := 0;
  end;
end;

function TArticulosParaCompraDataTableRules.GetIMAGENIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraIMAGEN].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraIMAGEN].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetCOMISIONABLEValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsInteger;
end;

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

function TArticulosParaCompraDataTableRules.GetCOMISIONABLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].AsDateTime;
end;

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

function TArticulosParaCompraDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].AsDateTime;
end;

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

function TArticulosParaCompraDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraUSUARIO].AsString;
end;

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

function TArticulosParaCompraDataTableRules.GetUSUARIOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraUSUARIO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraUSUARIO].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetREFERENCIA_PROVValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].AsString;
end;

procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].AsString := aValue;
end;

function TArticulosParaCompraDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].AsCurrency;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].AsCurrency := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].AsCurrency;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].AsCurrency := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].AsFloat;
end;

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

function TArticulosParaCompraDataTableRules.GetDESCUENTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_NETOValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].AsCurrency;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].AsCurrency := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].AsSmallInt;
end;

procedure TArticulosParaCompraDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
  DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].AsSmallInt := aValue;
end;

function TArticulosParaCompraDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetID_PROVEEDORValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].AsInteger;
end;

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

function TArticulosParaCompraDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].AsString;
end;

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

function TArticulosParaCompraDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetELIMINADOValue: SmallInt;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraELIMINADO].AsSmallInt;
end;

procedure TArticulosParaCompraDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
begin
  DataTable.Fields[idx_ArticulosParaCompraELIMINADO].AsSmallInt := aValue;
end;

function TArticulosParaCompraDataTableRules.GetELIMINADOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraELIMINADO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraELIMINADO].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetFABRICANTEValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFABRICANTE].AsString;
end;

procedure TArticulosParaCompraDataTableRules.SetFABRICANTEValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosParaCompraFABRICANTE].AsString := aValue;
end;

function TArticulosParaCompraDataTableRules.GetFABRICANTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraFABRICANTE].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraFABRICANTE].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetREFERENCIA_FABRValue: String;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FABR].AsString;
end;

procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
  DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FABR].AsString := aValue;
end;

function TArticulosParaCompraDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FABR].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FABR].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPARAM_MARGENValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPARAM_MARGEN].AsFloat;
end;

procedure TArticulosParaCompraDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
begin
  DataTable.Fields[idx_ArticulosParaCompraPARAM_MARGEN].AsFloat := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPARAM_MARGENIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPARAM_MARGEN].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPARAM_MARGEN].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_VENTA].AsCurrency;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_VENTA].AsCurrency := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_VENTA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_VENTA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetTIEMPOValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraTIEMPO].AsInteger;
end;

procedure TArticulosParaCompraDataTableRules.SetTIEMPOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ArticulosParaCompraTIEMPO].AsInteger := aValue;
end;

function TArticulosParaCompraDataTableRules.GetTIEMPOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraTIEMPO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraTIEMPO].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPARAM_TIEMPOValue: Float;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPARAM_TIEMPO].AsFloat;
end;

procedure TArticulosParaCompraDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
  DataTable.Fields[idx_ArticulosParaCompraPARAM_TIEMPO].AsFloat := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPARAM_TIEMPO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPARAM_TIEMPO].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetMANO_OBRAValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraMANO_OBRA].AsCurrency;
end;

procedure TArticulosParaCompraDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosParaCompraMANO_OBRA].AsCurrency := aValue;
end;

function TArticulosParaCompraDataTableRules.GetMANO_OBRAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraMANO_OBRA].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraMANO_OBRA].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_TOTAL].AsCurrency;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_TOTAL].AsCurrency := aValue;
end;

function TArticulosParaCompraDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_TOTAL].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP_TOTAL].AsVariant := Null;
end;

function TArticulosParaCompraDataTableRules.GetID_ARTICULOValue: Integer;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID_ARTICULO].AsInteger;
end;

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

function TArticulosParaCompraDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ArticulosParaCompraID_ARTICULO].IsNull;
end;

procedure TArticulosParaCompraDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ArticulosParaCompraID_ARTICULO].AsVariant := Null;
end;


initialization
  RegisterDataTableRules(RID_ProveedoresConArticulos, TProveedoresConArticulosDataTableRules);
  RegisterDataTableRules(RID_Articulos_Proveedores, TArticulos_ProveedoresDataTableRules);
  RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
  RegisterDataTableRules(RID_ArticulosParaCompra, TArticulosParaCompraDataTableRules);

end.