Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
67aeac2920
Tecsitel_FactuGES2/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
david 67aeac2920 Provincias y poblaciones 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@448 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2008-06-09 18:10:00 +00:00

1952 lines
83 KiB
ObjectPascal
Raw Blame History

unit schArticulosClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, 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 = '{7AF29D8D-9759-4857-A440-E0AE2002CA7F}';
RID_ArticulosParaCliente = '{5FDF1300-DD2E-45E9-88DF-CA220201A815}';
{ Data table names }
nme_Articulos = 'Articulos';
nme_ArticulosParaCliente = 'ArticulosParaCliente';
{ Articulos fields }
fld_ArticulosID = 'ID';
fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
fld_ArticulosREFERENCIA = 'REFERENCIA';
fld_ArticulosDESCRIPCION = 'DESCRIPCION';
fld_ArticulosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_ArticulosFAMILIA = 'FAMILIA';
fld_ArticulosIMAGEN = 'IMAGEN';
fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ArticulosUSUARIO = 'USUARIO';
fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosDESCUENTO = 'DESCUENTO';
fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosELIMINADO = 'ELIMINADO';
fld_ArticulosFABRICANTE = 'FABRICANTE';
fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosTIEMPO = 'TIEMPO';
fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosMANO_OBRA = 'MANO_OBRA';
fld_ArticulosPRECIO_PVP = 'PRECIO_PVP';
{ Articulos field indexes }
idx_ArticulosID = 0;
idx_ArticulosID_EMPRESA = 1;
idx_ArticulosREFERENCIA = 2;
idx_ArticulosDESCRIPCION = 3;
idx_ArticulosUNIDAD_MEDIDA = 4;
idx_ArticulosFAMILIA = 5;
idx_ArticulosIMAGEN = 6;
idx_ArticulosCOMISIONABLE = 7;
idx_ArticulosFECHA_ALTA = 8;
idx_ArticulosFECHA_MODIFICACION = 9;
idx_ArticulosUSUARIO = 10;
idx_ArticulosREFERENCIA_PROV = 11;
idx_ArticulosPRECIO_COSTE = 12;
idx_ArticulosPRECIO_PORTE = 13;
idx_ArticulosDESCUENTO = 14;
idx_ArticulosPRECIO_NETO = 15;
idx_ArticulosINVENTARIABLE = 16;
idx_ArticulosID_PROVEEDOR = 17;
idx_ArticulosNOMBRE_PROVEEDOR = 18;
idx_ArticulosELIMINADO = 19;
idx_ArticulosFABRICANTE = 20;
idx_ArticulosREFERENCIA_FABR = 21;
idx_ArticulosTIEMPO = 22;
idx_ArticulosPARAM_TIEMPO = 23;
idx_ArticulosMANO_OBRA = 24;
idx_ArticulosPRECIO_PVP = 25;
{ ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID';
fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
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_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosParaClienteTIEMPO = 'TIEMPO';
fld_ArticulosParaClientePARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosParaClienteMANO_OBRA = 'MANO_OBRA';
fld_ArticulosParaClientePRECIO_PVP = 'PRECIO_PVP';
{ ArticulosParaCliente field indexes }
idx_ArticulosParaClienteID = 0;
idx_ArticulosParaClienteID_EMPRESA = 1;
idx_ArticulosParaClienteREFERENCIA = 2;
idx_ArticulosParaClienteDESCRIPCION = 3;
idx_ArticulosParaClienteUNIDAD_MEDIDA = 4;
idx_ArticulosParaClienteFAMILIA = 5;
idx_ArticulosParaClienteIMAGEN = 6;
idx_ArticulosParaClienteCOMISIONABLE = 7;
idx_ArticulosParaClienteFECHA_ALTA = 8;
idx_ArticulosParaClienteFECHA_MODIFICACION = 9;
idx_ArticulosParaClienteUSUARIO = 10;
idx_ArticulosParaClienteREFERENCIA_PROV = 11;
idx_ArticulosParaClientePRECIO_COSTE = 12;
idx_ArticulosParaClientePRECIO_PORTE = 13;
idx_ArticulosParaClienteDESCUENTO = 14;
idx_ArticulosParaClientePRECIO_NETO = 15;
idx_ArticulosParaClienteINVENTARIABLE = 16;
idx_ArticulosParaClienteID_PROVEEDOR = 17;
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18;
idx_ArticulosParaClienteELIMINADO = 19;
idx_ArticulosParaClienteFABRICANTE = 20;
idx_ArticulosParaClienteREFERENCIA_FABR = 21;
idx_ArticulosParaClienteTIEMPO = 22;
idx_ArticulosParaClientePARAM_TIEMPO = 23;
idx_ArticulosParaClienteMANO_OBRA = 24;
idx_ArticulosParaClientePRECIO_PVP = 25;
type
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{688FF0B4-9CA5-4C09-B82C-4D288BCF418F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean);
function GetIMAGENValue: IROStream;
function GetIMAGENIsNull: Boolean;
procedure SetIMAGENIsNull(const aValue: Boolean);
function GetCOMISIONABLEValue: Integer;
procedure SetCOMISIONABLEValue(const aValue: Integer);
function GetCOMISIONABLEIsNull: Boolean;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONIsNull: Boolean;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetREFERENCIA_PROVIsNull: Boolean;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetPRECIO_PORTEValue: Currency;
procedure SetPRECIO_PORTEValue(const aValue: Currency);
function GetPRECIO_PORTEIsNull: Boolean;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetPRECIO_NETOValue: Currency;
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: SmallInt;
procedure SetINVENTARIABLEValue(const aValue: SmallInt);
function GetINVENTARIABLEIsNull: Boolean;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBRE_PROVEEDORValue: String;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetNOMBRE_PROVEEDORIsNull: Boolean;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
function GetELIMINADOValue: SmallInt;
procedure SetELIMINADOValue(const aValue: SmallInt);
function GetELIMINADOIsNull: Boolean;
procedure SetELIMINADOIsNull(const aValue: Boolean);
function GetFABRICANTEValue: String;
procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABRValue: String;
procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetTIEMPOValue: Integer;
procedure SetTIEMPOValue(const aValue: Integer);
function GetTIEMPOIsNull: Boolean;
procedure SetTIEMPOIsNull(const aValue: Boolean);
function GetPARAM_TIEMPOValue: Float;
procedure SetPARAM_TIEMPOValue(const aValue: Float);
function GetPARAM_TIEMPOIsNull: Boolean;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
function GetMANO_OBRAValue: Currency;
procedure SetMANO_OBRAValue(const aValue: Currency);
function GetMANO_OBRAIsNull: Boolean;
procedure SetMANO_OBRAIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
end;
{ TArticulosDataTableRules }
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
function GetELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
function GetFABRICANTEValue: String; virtual;
procedure SetFABRICANTEValue(const aValue: String); virtual;
function GetFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual;
function GetTIEMPOIsNull: Boolean; virtual;
procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Float; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetMANO_OBRAValue: Currency; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
function GetMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{
<20><><EFBFBD><EFBFBD> Esta tabla debe tener los mismos campos y orden de campos que 'Art<72>culos' !!!!
}
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{74039390-BC6A-4257-9DAC-63898C73E1A6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean);
function GetIMAGENValue: IROStream;
function GetIMAGENIsNull: Boolean;
procedure SetIMAGENIsNull(const aValue: Boolean);
function GetCOMISIONABLEValue: Integer;
procedure SetCOMISIONABLEValue(const aValue: Integer);
function GetCOMISIONABLEIsNull: Boolean;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONIsNull: Boolean;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetREFERENCIA_PROVIsNull: Boolean;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetPRECIO_PORTEValue: Currency;
procedure SetPRECIO_PORTEValue(const aValue: Currency);
function GetPRECIO_PORTEIsNull: Boolean;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetPRECIO_NETOValue: Currency;
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: SmallInt;
procedure SetINVENTARIABLEValue(const aValue: SmallInt);
function GetINVENTARIABLEIsNull: Boolean;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBRE_PROVEEDORValue: String;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetNOMBRE_PROVEEDORIsNull: Boolean;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
function GetELIMINADOValue: SmallInt;
procedure SetELIMINADOValue(const aValue: SmallInt);
function GetELIMINADOIsNull: Boolean;
procedure SetELIMINADOIsNull(const aValue: Boolean);
function GetFABRICANTEValue: String;
procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABRValue: String;
procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetTIEMPOValue: Integer;
procedure SetTIEMPOValue(const aValue: Integer);
function GetTIEMPOIsNull: Boolean;
procedure SetTIEMPOIsNull(const aValue: Boolean);
function GetPARAM_TIEMPOValue: Float;
procedure SetPARAM_TIEMPOValue(const aValue: Float);
function GetPARAM_TIEMPOIsNull: Boolean;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
function GetMANO_OBRAValue: Currency;
procedure SetMANO_OBRAValue(const aValue: Currency);
function GetMANO_OBRAIsNull: Boolean;
procedure SetMANO_OBRAIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
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 GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
function GetELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
function GetFABRICANTEValue: String; virtual;
procedure SetFABRICANTEValue(const aValue: String); virtual;
function GetFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual;
function GetTIEMPOIsNull: Boolean; virtual;
procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Float; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetMANO_OBRAValue: Currency; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
function GetMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
{ TArticulosDataTableRules }
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosDataTableRules.Destroy;
begin
inherited;
end;
procedure TArticulosDataTableRules.IMAGEN_OnChange(Sender: TObject);
begin
if DataTable.Editing then DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(TROStream(Sender));
end;
function TArticulosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosID].AsInteger;
end;
procedure TArticulosDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosID].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosID].IsNull;
end;
procedure TArticulosDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosID].AsVariant := Null;
end;
function TArticulosDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger;
end;
procedure TArticulosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosID_EMPRESA].IsNull;
end;
procedure TArticulosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosID_EMPRESA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA].AsString;
end;
procedure TArticulosDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosREFERENCIA].AsString := aValue;
end;
function TArticulosDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA].IsNull;
end;
procedure TArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosREFERENCIA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ArticulosDESCRIPCION].AsString;
end;
procedure TArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosDESCRIPCION].AsString := aValue;
end;
function TArticulosDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosDESCRIPCION].IsNull;
end;
procedure TArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosDESCRIPCION].AsVariant := Null;
end;
function TArticulosDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString;
end;
procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString := aValue;
end;
function TArticulosDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].IsNull;
end;
procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_ArticulosFAMILIA].AsString;
end;
procedure TArticulosDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue;
end;
function TArticulosDataTableRules.GetFAMILIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosFAMILIA].IsNull;
end;
procedure TArticulosDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosFAMILIA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetIMAGENValue: IROStream;
begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result);
result.Position := 0;
end;
end;
function TArticulosDataTableRules.GetIMAGENIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosIMAGEN].IsNull;
end;
procedure TArticulosDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosIMAGEN].AsVariant := Null;
end;
function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger;
end;
procedure TArticulosDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetCOMISIONABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosCOMISIONABLE].IsNull;
end;
procedure TArticulosDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosCOMISIONABLE].AsVariant := Null;
end;
function TArticulosDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime;
end;
procedure TArticulosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime := aValue;
end;
function TArticulosDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosFECHA_ALTA].IsNull;
end;
procedure TArticulosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosFECHA_ALTA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime;
end;
procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TArticulosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].IsNull;
end;
procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsVariant := Null;
end;
function TArticulosDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_ArticulosUSUARIO].AsString;
end;
procedure TArticulosDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosUSUARIO].AsString := aValue;
end;
function TArticulosDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosUSUARIO].IsNull;
end;
procedure TArticulosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosUSUARIO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetREFERENCIA_PROVValue: String;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString := aValue;
end;
function TArticulosDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].IsNull;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsVariant := Null;
end;
function TArticulosDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat;
end;
procedure TArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat := aValue;
end;
function TArticulosDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosDESCUENTO].IsNull;
end;
procedure TArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosDESCUENTO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_NETOValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_NETO].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt;
end;
procedure TArticulosDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt := aValue;
end;
function TArticulosDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosINVENTARIABLE].IsNull;
end;
procedure TArticulosDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosINVENTARIABLE].AsVariant := Null;
end;
function TArticulosDataTableRules.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.GetFABRICANTEValue: String;
begin
result := DataTable.Fields[idx_ArticulosFABRICANTE].AsString;
end;
procedure TArticulosDataTableRules.SetFABRICANTEValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosFABRICANTE].AsString := aValue;
end;
function TArticulosDataTableRules.GetFABRICANTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosFABRICANTE].IsNull;
end;
procedure TArticulosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null;
end;
function TArticulosDataTableRules.GetREFERENCIA_FABRValue: String;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString := aValue;
end;
function TArticulosDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].IsNull;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null;
end;
function TArticulosDataTableRules.GetTIEMPOValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosTIEMPO].AsInteger;
end;
procedure TArticulosDataTableRules.SetTIEMPOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosTIEMPO].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetTIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosTIEMPO].IsNull;
end;
procedure TArticulosDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosTIEMPO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPARAM_TIEMPOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat;
end;
procedure TArticulosDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat := aValue;
end;
function TArticulosDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].IsNull;
end;
procedure TArticulosDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetMANO_OBRAValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency;
end;
procedure TArticulosDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetMANO_OBRAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosMANO_OBRA].IsNull;
end;
procedure TArticulosDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosMANO_OBRA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_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;
{ 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.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].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: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger := 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.GetFABRICANTEValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetFABRICANTEValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetFABRICANTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetTIEMPOValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetTIEMPOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetTIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTIEMPO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPARAM_TIEMPOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].AsFloat;
end;
procedure TArticulosParaClienteDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].AsFloat := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetMANO_OBRAValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetMANO_OBRAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);
end.
Reference in New Issue View Git Blame Copy Permalink