Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e7f40aac81
AbetoDesign_FactuGES2/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
roberto e7f40aac81 Version 4.7.2 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@194 93f398dd-4eb6-7a46-baf6-13f46f578da2
2024-09-12 16:51:35 +00:00

3318 lines
141 KiB
ObjectPascal
Raw Blame History

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_Articulos_Idiomas = '{CA36FB8D-EBC4-40BD-B949-ACF9376DFBEC}';
RID_Articulos_Proveedores = '{C9284F93-BA23-4B4B-88AD-2FC6912DC918}';
RID_ListaTarifasArticulos = '{A712EE0C-ED10-42A4-A078-9D785B77E37E}';
RID_Articulos = '{F2A461FF-55BE-4122-9BF0-24F3B3F3F92F}';
RID_ArticulosParaCompra = '{D358BEF7-F6F7-40A9-8FBC-A99861FDA8BF}';
RID_ArticulosParaCliente = '{25B01101-DEC2-4472-9B4B-1D5D5CB6A7B5}';
{ Data table names }
nme_Articulos_Idiomas = 'Articulos_Idiomas';
nme_Articulos_Proveedores = 'Articulos_Proveedores';
nme_ListaTarifasArticulos = 'ListaTarifasArticulos';
nme_Articulos = 'Articulos';
nme_ArticulosParaCompra = 'ArticulosParaCompra';
nme_ArticulosParaCliente = 'ArticulosParaCliente';
{ Articulos_Idiomas fields }
fld_Articulos_IdiomasID = 'ID';
fld_Articulos_IdiomasID_ARTICULO = 'ID_ARTICULO';
fld_Articulos_IdiomasID_IDIOMA = 'ID_IDIOMA';
fld_Articulos_IdiomasDESCRIPCION = 'DESCRIPCION';
{ Articulos_Idiomas field indexes }
idx_Articulos_IdiomasID = 0;
idx_Articulos_IdiomasID_ARTICULO = 1;
idx_Articulos_IdiomasID_IDIOMA = 2;
idx_Articulos_IdiomasDESCRIPCION = 3;
{ 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';
fld_Articulos_ProveedoresFECHA_ACTUALIZACION = 'FECHA_ACTUALIZACION';
{ 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;
idx_Articulos_ProveedoresFECHA_ACTUALIZACION = 10;
{ ListaTarifasArticulos fields }
fld_ListaTarifasArticulosTARIFA = 'TARIFA';
{ ListaTarifasArticulos field indexes }
idx_ListaTarifasArticulosTARIFA = 0;
{ Articulos fields }
fld_ArticulosID = 'ID';
fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
fld_ArticulosREFERENCIA = 'REFERENCIA';
fld_ArticulosDESCRIPCION = 'DESCRIPCION';
fld_ArticulosFAMILIA = 'FAMILIA';
fld_ArticulosIMAGEN = 'IMAGEN';
fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ArticulosUSUARIO = 'USUARIO';
fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosDESCUENTO = 'DESCUENTO';
fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosPRECIO_PVP = 'PRECIO_PVP';
fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosELIMINADO = 'ELIMINADO';
fld_ArticulosTARIFA = 'TARIFA';
fld_ArticulosFABRICANTE = 'FABRICANTE';
fld_ArticulosREFERENCIA_FAB = 'REFERENCIA_FAB';
fld_ArticulosSTOCK_MIN = 'STOCK_MIN';
fld_ArticulosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
{ Articulos field indexes }
idx_ArticulosID = 0;
idx_ArticulosID_EMPRESA = 1;
idx_ArticulosREFERENCIA = 2;
idx_ArticulosDESCRIPCION = 3;
idx_ArticulosFAMILIA = 4;
idx_ArticulosIMAGEN = 5;
idx_ArticulosCOMISIONABLE = 6;
idx_ArticulosFECHA_ALTA = 7;
idx_ArticulosFECHA_MODIFICACION = 8;
idx_ArticulosUSUARIO = 9;
idx_ArticulosREFERENCIA_PROV = 10;
idx_ArticulosPRECIO_COSTE = 11;
idx_ArticulosPRECIO_PORTE = 12;
idx_ArticulosDESCUENTO = 13;
idx_ArticulosPRECIO_NETO = 14;
idx_ArticulosPRECIO_PVP = 15;
idx_ArticulosINVENTARIABLE = 16;
idx_ArticulosID_PROVEEDOR = 17;
idx_ArticulosNOMBRE_PROVEEDOR = 18;
idx_ArticulosELIMINADO = 19;
idx_ArticulosTARIFA = 20;
idx_ArticulosFABRICANTE = 21;
idx_ArticulosREFERENCIA_FAB = 22;
idx_ArticulosSTOCK_MIN = 23;
idx_ArticulosUNIDAD_MEDIDA = 24;
{ ArticulosParaCompra fields }
fld_ArticulosParaCompraID = 'ID';
fld_ArticulosParaCompraID_EMPRESA = 'ID_EMPRESA';
fld_ArticulosParaCompraREFERENCIA = 'REFERENCIA';
fld_ArticulosParaCompraDESCRIPCION = 'DESCRIPCION';
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_ArticulosParaCompraPRECIO_PVP = 'PRECIO_PVP';
fld_ArticulosParaCompraINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosParaCompraID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosParaCompraNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosParaCompraELIMINADO = 'ELIMINADO';
fld_ArticulosParaCompraTARIFA = 'TARIFA';
fld_ArticulosParaCompraFABRICANTE = 'FABRICANTE';
fld_ArticulosParaCompraREFERENCIA_FAB = 'REFERENCIA_FAB';
fld_ArticulosParaCompraSTOCK_MIN = 'STOCK_MIN';
fld_ArticulosParaCompraUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
{ ArticulosParaCompra field indexes }
idx_ArticulosParaCompraID = 0;
idx_ArticulosParaCompraID_EMPRESA = 1;
idx_ArticulosParaCompraREFERENCIA = 2;
idx_ArticulosParaCompraDESCRIPCION = 3;
idx_ArticulosParaCompraFAMILIA = 4;
idx_ArticulosParaCompraIMAGEN = 5;
idx_ArticulosParaCompraCOMISIONABLE = 6;
idx_ArticulosParaCompraFECHA_ALTA = 7;
idx_ArticulosParaCompraFECHA_MODIFICACION = 8;
idx_ArticulosParaCompraUSUARIO = 9;
idx_ArticulosParaCompraREFERENCIA_PROV = 10;
idx_ArticulosParaCompraPRECIO_COSTE = 11;
idx_ArticulosParaCompraPRECIO_PORTE = 12;
idx_ArticulosParaCompraDESCUENTO = 13;
idx_ArticulosParaCompraPRECIO_NETO = 14;
idx_ArticulosParaCompraPRECIO_PVP = 15;
idx_ArticulosParaCompraINVENTARIABLE = 16;
idx_ArticulosParaCompraID_PROVEEDOR = 17;
idx_ArticulosParaCompraNOMBRE_PROVEEDOR = 18;
idx_ArticulosParaCompraELIMINADO = 19;
idx_ArticulosParaCompraTARIFA = 20;
idx_ArticulosParaCompraFABRICANTE = 21;
idx_ArticulosParaCompraREFERENCIA_FAB = 22;
idx_ArticulosParaCompraSTOCK_MIN = 23;
idx_ArticulosParaCompraUNIDAD_MEDIDA = 24;
{ ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID';
fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
fld_ArticulosParaClienteCOMISIONABLE = 'COMISIONABLE';
fld_ArticulosParaClienteFECHA_ALTA = 'FECHA_ALTA';
fld_ArticulosParaClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ArticulosParaClienteUSUARIO = 'USUARIO';
fld_ArticulosParaClienteREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_ArticulosParaClientePRECIO_COSTE = 'PRECIO_COSTE';
fld_ArticulosParaClientePRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosParaClienteDESCUENTO = 'DESCUENTO';
fld_ArticulosParaClientePRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
fld_ArticulosParaClienteTARIFA = 'TARIFA';
{ ArticulosParaCliente field indexes }
idx_ArticulosParaClienteID = 0;
idx_ArticulosParaClienteID_EMPRESA = 1;
idx_ArticulosParaClienteREFERENCIA = 2;
idx_ArticulosParaClienteDESCRIPCION = 3;
idx_ArticulosParaClienteFAMILIA = 4;
idx_ArticulosParaClienteIMAGEN = 5;
idx_ArticulosParaClienteCOMISIONABLE = 6;
idx_ArticulosParaClienteFECHA_ALTA = 7;
idx_ArticulosParaClienteFECHA_MODIFICACION = 8;
idx_ArticulosParaClienteUSUARIO = 9;
idx_ArticulosParaClienteREFERENCIA_PROV = 10;
idx_ArticulosParaClientePRECIO_COSTE = 11;
idx_ArticulosParaClientePRECIO_PORTE = 12;
idx_ArticulosParaClienteDESCUENTO = 13;
idx_ArticulosParaClientePRECIO_NETO = 14;
idx_ArticulosParaClienteINVENTARIABLE = 15;
idx_ArticulosParaClienteID_PROVEEDOR = 16;
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17;
idx_ArticulosParaClienteELIMINADO = 18;
idx_ArticulosParaClienteTARIFA = 19;
type
{ IArticulos_Idiomas }
IArticulos_Idiomas = interface(IDAStronglyTypedDataTable)
['{1C06F143-723E-453D-8F29-C831211A03DA}']
{ 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_IDIOMAValue: Integer;
procedure SetID_IDIOMAValue(const aValue: Integer);
function GetID_IDIOMAIsNull: Boolean;
procedure SetID_IDIOMAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(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_IDIOMA: Integer read GetID_IDIOMAValue write SetID_IDIOMAValue;
property ID_IDIOMAIsNull: Boolean read GetID_IDIOMAIsNull write SetID_IDIOMAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TArticulos_IdiomasDataTableRules }
TArticulos_IdiomasDataTableRules = class(TIntfObjectDADataTableRules, IArticulos_Idiomas)
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_IDIOMAValue: Integer; virtual;
procedure SetID_IDIOMAValue(const aValue: Integer); virtual;
function GetID_IDIOMAIsNull: Boolean; virtual;
procedure SetID_IDIOMAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(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_IDIOMA: Integer read GetID_IDIOMAValue write SetID_IDIOMAValue;
property ID_IDIOMAIsNull: Boolean read GetID_IDIOMAIsNull write SetID_IDIOMAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulos_Proveedores }
IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
['{5D245A95-9A41-4AC2-A9B2-0B1463781159}']
{ 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);
function GetFECHA_ACTUALIZACIONValue: DateTime;
procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime);
function GetFECHA_ACTUALIZACIONIsNull: Boolean;
procedure SetFECHA_ACTUALIZACIONIsNull(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;
property FECHA_ACTUALIZACION: DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue;
property FECHA_ACTUALIZACIONIsNull: Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull;
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;
function GetFECHA_ACTUALIZACIONValue: DateTime; virtual;
procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime); virtual;
function GetFECHA_ACTUALIZACIONIsNull: Boolean; virtual;
procedure SetFECHA_ACTUALIZACIONIsNull(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;
property FECHA_ACTUALIZACION: DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue;
property FECHA_ACTUALIZACIONIsNull: Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IListaTarifasArticulos }
IListaTarifasArticulos = interface(IDAStronglyTypedDataTable)
['{38167D0D-2A63-4906-AE78-52DDC03650B8}']
{ Property getters and setters }
function GetTARIFAValue: String;
procedure SetTARIFAValue(const aValue: String);
function GetTARIFAIsNull: Boolean;
procedure SetTARIFAIsNull(const aValue: Boolean);
{ Properties }
property TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
end;
{ TListaTarifasArticulosDataTableRules }
TListaTarifasArticulosDataTableRules = class(TIntfObjectDADataTableRules, IListaTarifasArticulos)
private
protected
{ Property getters and setters }
function GetTARIFAValue: String; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
function GetTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAIsNull(const aValue: Boolean); virtual;
{ Properties }
property TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{8C685168-9176-4A63-9017-8E8AFF5A02BF}']
{ 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 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 GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(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 GetTARIFAValue: String;
procedure SetTARIFAValue(const aValue: String);
function GetTARIFAIsNull: Boolean;
procedure SetTARIFAIsNull(const aValue: Boolean);
function GetFABRICANTEValue: String;
procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABValue: String;
procedure SetREFERENCIA_FABValue(const aValue: String);
function GetREFERENCIA_FABIsNull: Boolean;
procedure SetREFERENCIA_FABIsNull(const aValue: Boolean);
function GetSTOCK_MINValue: Integer;
procedure SetSTOCK_MINValue(const aValue: Integer);
function GetSTOCK_MINIsNull: Boolean;
procedure SetSTOCK_MINIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(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 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 PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
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 TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FAB: String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue;
property REFERENCIA_FABIsNull: Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull;
property STOCK_MIN: Integer read GetSTOCK_MINValue write SetSTOCK_MINValue;
property STOCK_MINIsNull: Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
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 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 GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(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 GetTARIFAValue: String; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
function GetTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAIsNull(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_FABValue: String; virtual;
procedure SetREFERENCIA_FABValue(const aValue: String); virtual;
function GetREFERENCIA_FABIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABIsNull(const aValue: Boolean); virtual;
function GetSTOCK_MINValue: Integer; virtual;
procedure SetSTOCK_MINValue(const aValue: Integer); virtual;
function GetSTOCK_MINIsNull: Boolean; virtual;
procedure SetSTOCK_MINIsNull(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;
{ 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 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 PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
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 TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FAB: String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue;
property REFERENCIA_FABIsNull: Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull;
property STOCK_MIN: Integer read GetSTOCK_MINValue write SetSTOCK_MINValue;
property STOCK_MINIsNull: Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulosParaCompra }
IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
['{238881BE-DB16-41C6-8B6C-D6CD5B7883B1}']
{ 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 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: SmallInt;
procedure SetCOMISIONABLEValue(const aValue: SmallInt);
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 GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(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 GetTARIFAValue: String;
procedure SetTARIFAValue(const aValue: String);
function GetTARIFAIsNull: Boolean;
procedure SetTARIFAIsNull(const aValue: Boolean);
function GetFABRICANTEValue: String;
procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABValue: String;
procedure SetREFERENCIA_FABValue(const aValue: String);
function GetREFERENCIA_FABIsNull: Boolean;
procedure SetREFERENCIA_FABIsNull(const aValue: Boolean);
function GetSTOCK_MINValue: Integer;
procedure SetSTOCK_MINValue(const aValue: Integer);
function GetSTOCK_MINIsNull: Boolean;
procedure SetSTOCK_MINIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(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 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: SmallInt 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 PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
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 TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FAB: String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue;
property REFERENCIA_FABIsNull: Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull;
property STOCK_MIN: Integer read GetSTOCK_MINValue write SetSTOCK_MINValue;
property STOCK_MINIsNull: Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
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 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: SmallInt; virtual;
procedure SetCOMISIONABLEValue(const aValue: SmallInt); 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 GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(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 GetTARIFAValue: String; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
function GetTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAIsNull(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_FABValue: String; virtual;
procedure SetREFERENCIA_FABValue(const aValue: String); virtual;
function GetREFERENCIA_FABIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABIsNull(const aValue: Boolean); virtual;
function GetSTOCK_MINValue: Integer; virtual;
procedure SetSTOCK_MINValue(const aValue: Integer); virtual;
function GetSTOCK_MINIsNull: Boolean; virtual;
procedure SetSTOCK_MINIsNull(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;
{ 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 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: SmallInt 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 PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
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 TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FAB: String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue;
property REFERENCIA_FABIsNull: Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull;
property STOCK_MIN: Integer read GetSTOCK_MINValue write SetSTOCK_MINValue;
property STOCK_MINIsNull: Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{27669A8F-EB0C-4241-BF6E-7B0E6BA32784}']
{ 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 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: SmallInt;
procedure SetCOMISIONABLEValue(const aValue: SmallInt);
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 GetTARIFAValue: String;
procedure SetTARIFAValue(const aValue: String);
function GetTARIFAIsNull: Boolean;
procedure SetTARIFAIsNull(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 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: SmallInt 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 TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
end;
{ TArticulosParaClienteDataTableRules }
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
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 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: SmallInt; virtual;
procedure SetCOMISIONABLEValue(const aValue: SmallInt); 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 GetTARIFAValue: String; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
function GetTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAIsNull(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 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: SmallInt 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 TARIFA: String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull: Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
{ TArticulos_IdiomasDataTableRules }
constructor TArticulos_IdiomasDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TArticulos_IdiomasDataTableRules.Destroy;
begin
inherited;
end;
function TArticulos_IdiomasDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_IdiomasID].AsInteger;
end;
procedure TArticulos_IdiomasDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_IdiomasID].AsInteger := aValue;
end;
function TArticulos_IdiomasDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_IdiomasID].IsNull;
end;
procedure TArticulos_IdiomasDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_IdiomasID].AsVariant := Null;
end;
function TArticulos_IdiomasDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_IdiomasID_ARTICULO].AsInteger;
end;
procedure TArticulos_IdiomasDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_IdiomasID_ARTICULO].AsInteger := aValue;
end;
function TArticulos_IdiomasDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_IdiomasID_ARTICULO].IsNull;
end;
procedure TArticulos_IdiomasDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_IdiomasID_ARTICULO].AsVariant := Null;
end;
function TArticulos_IdiomasDataTableRules.GetID_IDIOMAValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_IdiomasID_IDIOMA].AsInteger;
end;
procedure TArticulos_IdiomasDataTableRules.SetID_IDIOMAValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_IdiomasID_IDIOMA].AsInteger := aValue;
end;
function TArticulos_IdiomasDataTableRules.GetID_IDIOMAIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_IdiomasID_IDIOMA].IsNull;
end;
procedure TArticulos_IdiomasDataTableRules.SetID_IDIOMAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_IdiomasID_IDIOMA].AsVariant := Null;
end;
function TArticulos_IdiomasDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_Articulos_IdiomasDESCRIPCION].AsString;
end;
procedure TArticulos_IdiomasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_Articulos_IdiomasDESCRIPCION].AsString := aValue;
end;
function TArticulos_IdiomasDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_IdiomasDESCRIPCION].IsNull;
end;
procedure TArticulos_IdiomasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_IdiomasDESCRIPCION].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;
function TArticulos_ProveedoresDataTableRules.GetFECHA_ACTUALIZACIONValue: DateTime;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].AsDateTime;
end;
procedure TArticulos_ProveedoresDataTableRules.SetFECHA_ACTUALIZACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].AsDateTime := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetFECHA_ACTUALIZACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].AsVariant := Null;
end;
{ TListaTarifasArticulosDataTableRules }
constructor TListaTarifasArticulosDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TListaTarifasArticulosDataTableRules.Destroy;
begin
inherited;
end;
function TListaTarifasArticulosDataTableRules.GetTARIFAValue: String;
begin
result := DataTable.Fields[idx_ListaTarifasArticulosTARIFA].AsString;
end;
procedure TListaTarifasArticulosDataTableRules.SetTARIFAValue(const aValue: String);
begin
DataTable.Fields[idx_ListaTarifasArticulosTARIFA].AsString := aValue;
end;
function TListaTarifasArticulosDataTableRules.GetTARIFAIsNull: boolean;
begin
result := DataTable.Fields[idx_ListaTarifasArticulosTARIFA].IsNull;
end;
procedure TListaTarifasArticulosDataTableRules.SetTARIFAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ListaTarifasArticulosTARIFA].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.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.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PVP].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.GetID_PROVEEDORValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger;
end;
procedure TArticulosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].IsNull;
end;
procedure TArticulosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsVariant := Null;
end;
function TArticulosDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString;
end;
procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString := aValue;
end;
function TArticulosDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].IsNull;
end;
procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].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.GetTARIFAValue: String;
begin
result := DataTable.Fields[idx_ArticulosTARIFA].AsString;
end;
procedure TArticulosDataTableRules.SetTARIFAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosTARIFA].AsString := aValue;
end;
function TArticulosDataTableRules.GetTARIFAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosTARIFA].IsNull;
end;
procedure TArticulosDataTableRules.SetTARIFAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosTARIFA].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_FABValue: String;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_FAB].AsString;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_FABValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosREFERENCIA_FAB].AsString := aValue;
end;
function TArticulosDataTableRules.GetREFERENCIA_FABIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_FAB].IsNull;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_FABIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosREFERENCIA_FAB].AsVariant := Null;
end;
function TArticulosDataTableRules.GetSTOCK_MINValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosSTOCK_MIN].AsInteger;
end;
procedure TArticulosDataTableRules.SetSTOCK_MINValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosSTOCK_MIN].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetSTOCK_MINIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosSTOCK_MIN].IsNull;
end;
procedure TArticulosDataTableRules.SetSTOCK_MINIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosSTOCK_MIN].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;
{ 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.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: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsSmallInt;
end;
procedure TArticulosParaCompraDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsSmallInt := 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.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].AsCurrency;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].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.GetTARIFAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraTARIFA].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetTARIFAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraTARIFA].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetTARIFAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraTARIFA].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetTARIFAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraTARIFA].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_FABValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FAB].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_FABValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FAB].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetREFERENCIA_FABIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FAB].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_FABIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_FAB].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetSTOCK_MINValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaCompraSTOCK_MIN].AsInteger;
end;
procedure TArticulosParaCompraDataTableRules.SetSTOCK_MINValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaCompraSTOCK_MIN].AsInteger := aValue;
end;
function TArticulosParaCompraDataTableRules.GetSTOCK_MINIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraSTOCK_MIN].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetSTOCK_MINIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraSTOCK_MIN].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;
{ TArticulosParaClienteDataTableRules }
constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosParaClienteDataTableRules.Destroy;
begin
inherited;
end;
procedure TArticulosParaClienteDataTableRules.IMAGEN_OnChange(Sender: TObject);
begin
if DataTable.Editing then DataTable.Fields[idx_ArticulosParaClienteIMAGEN].LoadFromStream(TROStream(Sender));
end;
function TArticulosParaClienteDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteID].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteID].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteID].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteID].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetFAMILIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetIMAGENValue: IROStream;
begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
DataTable.Fields[idx_ArticulosParaClienteIMAGEN].SaveToStream(result);
result.Position := 0;
end;
end;
function TArticulosParaClienteDataTableRules.GetIMAGENIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteIMAGEN].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt;
end;
procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt := aValue;
end;
function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsDateTime;
end;
procedure TArticulosParaClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsDateTime := aValue;
end;
function TArticulosParaClienteDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsDateTime;
end;
procedure TArticulosParaClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TArticulosParaClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteUSUARIO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIA_PROVValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsFloat;
end;
procedure TArticulosParaClienteDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsFloat := aValue;
end;
function TArticulosParaClienteDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt;
end;
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt := aValue;
end;
function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetID_PROVEEDORValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetELIMINADOValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt;
end;
procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt := aValue;
end;
function TArticulosParaClienteDataTableRules.GetELIMINADOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetTARIFAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTARIFA].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetTARIFAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteTARIFA].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetTARIFAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTARIFA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetTARIFAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteTARIFA].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Articulos_Idiomas, TArticulos_IdiomasDataTableRules);
RegisterDataTableRules(RID_Articulos_Proveedores, TArticulos_ProveedoresDataTableRules);
RegisterDataTableRules(RID_ListaTarifasArticulos, TListaTarifasArticulosDataTableRules);
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCompra, TArticulosParaCompraDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);
end.
Reference in New Issue View Git Blame Copy Permalink