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_Proveedores = '{87B29B7A-D26D-47C1-B451-2E9507E1D4E4}'; RID_Articulos = '{08E0E528-EFF1-4E46-AC45-F8FFEE66DB70}'; RID_ArticulosParaCompra = '{15CE5F47-3637-4744-9304-6622CF313564}'; RID_ArticulosParaCliente = '{C0BD03FB-8506-40EC-93DC-F0086D1E91D5}'; { Data table names } nme_Articulos_Proveedores = 'Articulos_Proveedores'; nme_Articulos = 'Articulos'; nme_ArticulosParaCompra = 'ArticulosParaCompra'; nme_ArticulosParaCliente = 'ArticulosParaCliente'; { 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; { 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_Proveedores } IArticulos_Proveedores = interface(IDAStronglyTypedDataTable) ['{7FB357F1-45E4-4E4B-B65A-81F004523888}'] { 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; { IArticulos } IArticulos = interface(IDAStronglyTypedDataTable) ['{56F08BA4-4BA6-4572-8925-96DAFF9FD5CC}'] { 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) ['{0D172C24-4F33-4CE9-93D0-EBDC340246A5}'] { 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) ['{714FC5E2-EF88-41C2-8187-EA797434BC6E}'] { 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_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; { 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_Proveedores, TArticulos_ProveedoresDataTableRules); RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules); RegisterDataTableRules(RID_ArticulosParaCompra, TArticulosParaCompraDataTableRules); RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules); end.