git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@244 c93665c3-c93d-084d-9b98-7d5f4a9c3376
1175 lines
49 KiB
ObjectPascal
1175 lines
49 KiB
ObjectPascal
unit schArticulosClient_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable;
|
|
|
|
const
|
|
{ Data table rules ids
|
|
Feel free to change them to something more human readable
|
|
but make sure they are unique in the context of your application }
|
|
RID_Articulos = '{67A6E9A1-BD9E-4BDE-B085-2345937FF30E}';
|
|
RID_Articulos_Refresh = '{21FABDE6-850B-4AAB-8F39-6F0B27572F72}';
|
|
RID_ArticulosParaCliente = '{F39D6A45-36F6-4909-8D24-A6C840090679}';
|
|
|
|
{ Data table names }
|
|
nme_Articulos = 'Articulos';
|
|
nme_Articulos_Refresh = 'Articulos_Refresh';
|
|
nme_ArticulosParaCliente = 'ArticulosParaCliente';
|
|
|
|
{ Articulos fields }
|
|
fld_ArticulosID = 'ID';
|
|
fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
|
|
fld_ArticulosREFERENCIA = 'REFERENCIA';
|
|
fld_ArticulosDESCRIPCION = 'DESCRIPCION';
|
|
fld_ArticulosFAMILIA = 'FAMILIA';
|
|
fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
|
|
fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
|
|
fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
|
fld_ArticulosUSUARIO = 'USUARIO';
|
|
fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV';
|
|
fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
|
|
fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
|
|
fld_ArticulosDESCUENTO = 'DESCUENTO';
|
|
fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
|
|
fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
|
|
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
|
|
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
|
|
fld_ArticulosELIMINADO = 'ELIMINADO';
|
|
fld_ArticulosTIENDA_WEB = 'TIENDA_WEB';
|
|
|
|
{ Articulos field indexes }
|
|
idx_ArticulosID = 0;
|
|
idx_ArticulosID_EMPRESA = 1;
|
|
idx_ArticulosREFERENCIA = 2;
|
|
idx_ArticulosDESCRIPCION = 3;
|
|
idx_ArticulosFAMILIA = 4;
|
|
idx_ArticulosCOMISIONABLE = 5;
|
|
idx_ArticulosFECHA_ALTA = 6;
|
|
idx_ArticulosFECHA_MODIFICACION = 7;
|
|
idx_ArticulosUSUARIO = 8;
|
|
idx_ArticulosREFERENCIA_PROV = 9;
|
|
idx_ArticulosPRECIO_COSTE = 10;
|
|
idx_ArticulosPRECIO_PORTE = 11;
|
|
idx_ArticulosDESCUENTO = 12;
|
|
idx_ArticulosPRECIO_NETO = 13;
|
|
idx_ArticulosINVENTARIABLE = 14;
|
|
idx_ArticulosID_PROVEEDOR = 15;
|
|
idx_ArticulosNOMBRE_PROVEEDOR = 16;
|
|
idx_ArticulosELIMINADO = 17;
|
|
idx_ArticulosTIENDA_WEB = 18;
|
|
|
|
{ Articulos_Refresh fields }
|
|
fld_Articulos_RefreshID = 'ID';
|
|
fld_Articulos_RefreshID_EMPRESA = 'ID_EMPRESA';
|
|
fld_Articulos_RefreshREFERENCIA = 'REFERENCIA';
|
|
fld_Articulos_RefreshDESCRIPCION = 'DESCRIPCION';
|
|
fld_Articulos_RefreshFAMILIA = 'FAMILIA';
|
|
fld_Articulos_RefreshCOMISIONABLE = 'COMISIONABLE';
|
|
fld_Articulos_RefreshFECHA_ALTA = 'FECHA_ALTA';
|
|
fld_Articulos_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
|
fld_Articulos_RefreshUSUARIO = 'USUARIO';
|
|
fld_Articulos_RefreshREFERENCIA_PROV = 'REFERENCIA_PROV';
|
|
fld_Articulos_RefreshPRECIO_COSTE = 'PRECIO_COSTE';
|
|
fld_Articulos_RefreshPRECIO_PORTE = 'PRECIO_PORTE';
|
|
fld_Articulos_RefreshDESCUENTO = 'DESCUENTO';
|
|
fld_Articulos_RefreshPRECIO_NETO = 'PRECIO_NETO';
|
|
fld_Articulos_RefreshINVENTARIABLE = 'INVENTARIABLE';
|
|
fld_Articulos_RefreshID_PROVEEDOR = 'ID_PROVEEDOR';
|
|
fld_Articulos_RefreshNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
|
|
fld_Articulos_RefreshELIMINADO = 'ELIMINADO';
|
|
fld_Articulos_RefreshTIENDA_WEB = 'TIENDA_WEB';
|
|
|
|
{ Articulos_Refresh field indexes }
|
|
idx_Articulos_RefreshID = 0;
|
|
idx_Articulos_RefreshID_EMPRESA = 1;
|
|
idx_Articulos_RefreshREFERENCIA = 2;
|
|
idx_Articulos_RefreshDESCRIPCION = 3;
|
|
idx_Articulos_RefreshFAMILIA = 4;
|
|
idx_Articulos_RefreshCOMISIONABLE = 5;
|
|
idx_Articulos_RefreshFECHA_ALTA = 6;
|
|
idx_Articulos_RefreshFECHA_MODIFICACION = 7;
|
|
idx_Articulos_RefreshUSUARIO = 8;
|
|
idx_Articulos_RefreshREFERENCIA_PROV = 9;
|
|
idx_Articulos_RefreshPRECIO_COSTE = 10;
|
|
idx_Articulos_RefreshPRECIO_PORTE = 11;
|
|
idx_Articulos_RefreshDESCUENTO = 12;
|
|
idx_Articulos_RefreshPRECIO_NETO = 13;
|
|
idx_Articulos_RefreshINVENTARIABLE = 14;
|
|
idx_Articulos_RefreshID_PROVEEDOR = 15;
|
|
idx_Articulos_RefreshNOMBRE_PROVEEDOR = 16;
|
|
idx_Articulos_RefreshELIMINADO = 17;
|
|
idx_Articulos_RefreshTIENDA_WEB = 18;
|
|
|
|
{ ArticulosParaCliente fields }
|
|
fld_ArticulosParaClienteID = 'ID';
|
|
fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
|
|
fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
|
|
fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
|
|
fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
|
|
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_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
|
|
fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE';
|
|
fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
|
|
fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
|
|
fld_ArticulosParaClienteTIENDA_WEB = 'TIENDA_WEB';
|
|
|
|
{ ArticulosParaCliente field indexes }
|
|
idx_ArticulosParaClienteID = 0;
|
|
idx_ArticulosParaClienteID_EMPRESA = 1;
|
|
idx_ArticulosParaClienteREFERENCIA = 2;
|
|
idx_ArticulosParaClienteDESCRIPCION = 3;
|
|
idx_ArticulosParaClienteFAMILIA = 4;
|
|
idx_ArticulosParaClienteCOMISIONABLE = 5;
|
|
idx_ArticulosParaClienteFECHA_ALTA = 6;
|
|
idx_ArticulosParaClienteFECHA_MODIFICACION = 7;
|
|
idx_ArticulosParaClienteUSUARIO = 8;
|
|
idx_ArticulosParaClienteREFERENCIA_PROV = 9;
|
|
idx_ArticulosParaClientePRECIO_COSTE = 10;
|
|
idx_ArticulosParaClientePRECIO_PORTE = 11;
|
|
idx_ArticulosParaClienteDESCUENTO = 12;
|
|
idx_ArticulosParaClientePRECIO_NETO = 13;
|
|
idx_ArticulosParaClienteID_PROVEEDOR = 14;
|
|
idx_ArticulosParaClienteINVENTARIABLE = 15;
|
|
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 16;
|
|
idx_ArticulosParaClienteELIMINADO = 17;
|
|
idx_ArticulosParaClienteTIENDA_WEB = 18;
|
|
|
|
type
|
|
{ IArticulos }
|
|
IArticulos = interface(IDAStronglyTypedDataTable)
|
|
['{4A6C2A86-EC5A-46D6-AD3C-70F4FD2800E5}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetFAMILIAValue: String;
|
|
procedure SetFAMILIAValue(const aValue: String);
|
|
function GetCOMISIONABLEValue: Integer;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer);
|
|
function GetFECHA_ALTAValue: DateTime;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetREFERENCIA_PROVValue: String;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String);
|
|
function GetPRECIO_COSTEValue: Float;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float);
|
|
function GetPRECIO_PORTEValue: Float;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float);
|
|
function GetDESCUENTOValue: Float;
|
|
procedure SetDESCUENTOValue(const aValue: Float);
|
|
function GetPRECIO_NETOValue: Float;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float);
|
|
function GetINVENTARIABLEValue: Integer;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer);
|
|
function GetID_PROVEEDORValue: Integer;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
|
function GetNOMBRE_PROVEEDORValue: String;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
function GetELIMINADOValue: Integer;
|
|
procedure SetELIMINADOValue(const aValue: Integer);
|
|
function GetTIENDA_WEBValue: Integer;
|
|
procedure SetTIENDA_WEBValue(const aValue: Integer);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
|
|
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
end;
|
|
|
|
{ TArticulosDataTableRules }
|
|
TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetPRECIO_COSTEValue: Float; virtual;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
|
|
function GetPRECIO_PORTEValue: Float; virtual;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
function GetPRECIO_NETOValue: Float; virtual;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetID_PROVEEDORValue: Integer; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetELIMINADOValue: Integer; virtual;
|
|
procedure SetELIMINADOValue(const aValue: Integer); virtual;
|
|
function GetTIENDA_WEBValue: Integer; virtual;
|
|
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
|
|
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IArticulos_Refresh }
|
|
IArticulos_Refresh = interface(IDAStronglyTypedDataTable)
|
|
['{2CE83C46-541D-4951-952C-F19534CFDFDE}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetFAMILIAValue: String;
|
|
procedure SetFAMILIAValue(const aValue: String);
|
|
function GetCOMISIONABLEValue: Integer;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer);
|
|
function GetFECHA_ALTAValue: DateTime;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetREFERENCIA_PROVValue: String;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String);
|
|
function GetPRECIO_COSTEValue: Float;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float);
|
|
function GetPRECIO_PORTEValue: Float;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float);
|
|
function GetDESCUENTOValue: Float;
|
|
procedure SetDESCUENTOValue(const aValue: Float);
|
|
function GetPRECIO_NETOValue: Float;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float);
|
|
function GetINVENTARIABLEValue: Integer;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer);
|
|
function GetID_PROVEEDORValue: Integer;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
|
function GetNOMBRE_PROVEEDORValue: String;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
function GetELIMINADOValue: Integer;
|
|
procedure SetELIMINADOValue(const aValue: Integer);
|
|
function GetTIENDA_WEBValue: Integer;
|
|
procedure SetTIENDA_WEBValue(const aValue: Integer);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
|
|
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
end;
|
|
|
|
{ TArticulos_RefreshDataTableRules }
|
|
TArticulos_RefreshDataTableRules = class(TDADataTableRules, IArticulos_Refresh)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetPRECIO_COSTEValue: Float; virtual;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
|
|
function GetPRECIO_PORTEValue: Float; virtual;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
function GetPRECIO_NETOValue: Float; virtual;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetID_PROVEEDORValue: Integer; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetELIMINADOValue: Integer; virtual;
|
|
procedure SetELIMINADOValue(const aValue: Integer); virtual;
|
|
function GetTIENDA_WEBValue: Integer; virtual;
|
|
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
|
|
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IArticulosParaCliente }
|
|
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
|
|
['{AD638688-5161-4D7A-9A8A-3CC31E0140A1}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetFAMILIAValue: String;
|
|
procedure SetFAMILIAValue(const aValue: String);
|
|
function GetCOMISIONABLEValue: Integer;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer);
|
|
function GetFECHA_ALTAValue: DateTime;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetREFERENCIA_PROVValue: String;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String);
|
|
function GetPRECIO_COSTEValue: Float;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float);
|
|
function GetPRECIO_PORTEValue: Float;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float);
|
|
function GetDESCUENTOValue: Float;
|
|
procedure SetDESCUENTOValue(const aValue: Float);
|
|
function GetPRECIO_NETOValue: Float;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float);
|
|
function GetID_PROVEEDORValue: Integer;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
|
function GetINVENTARIABLEValue: Integer;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer);
|
|
function GetNOMBRE_PROVEEDORValue: String;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
function GetELIMINADOValue: Integer;
|
|
procedure SetELIMINADOValue(const aValue: Integer);
|
|
function GetTIENDA_WEBValue: Integer;
|
|
procedure SetTIENDA_WEBValue(const aValue: Integer);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
|
|
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
end;
|
|
|
|
{ TArticulosParaClienteDataTableRules }
|
|
TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetPRECIO_COSTEValue: Float; virtual;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
|
|
function GetPRECIO_PORTEValue: Float; virtual;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
function GetPRECIO_NETOValue: Float; virtual;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float); virtual;
|
|
function GetID_PROVEEDORValue: Integer; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetELIMINADOValue: Integer; virtual;
|
|
procedure SetELIMINADOValue(const aValue: Integer); virtual;
|
|
function GetTIENDA_WEBValue: Integer; virtual;
|
|
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
|
|
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants;
|
|
|
|
{ TArticulosDataTableRules }
|
|
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TArticulosDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosID].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosREFERENCIA].AsString;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosREFERENCIA].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosFAMILIA].AsString;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetREFERENCIA_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.GetPRECIO_COSTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetPRECIO_PORTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetPRECIO_NETOValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosPRECIO_NETO].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosPRECIO_NETO].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosINVENTARIABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetELIMINADOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosELIMINADO].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetELIMINADOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosELIMINADO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosDataTableRules.GetTIENDA_WEBValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosTIENDA_WEB].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosTIENDA_WEB].AsInteger := aValue;
|
|
end;
|
|
|
|
|
|
{ TArticulos_RefreshDataTableRules }
|
|
constructor TArticulos_RefreshDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TArticulos_RefreshDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshID].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshID_EMPRESA].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshID_EMPRESA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshREFERENCIA].AsString;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshREFERENCIA].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshFAMILIA].AsString;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshFAMILIA].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshCOMISIONABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshCOMISIONABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshFECHA_ALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshFECHA_ALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshFECHA_MODIFICACION].AsDateTime;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshREFERENCIA_PROV].AsString;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshREFERENCIA_PROV].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetPRECIO_COSTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshPRECIO_COSTE].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshPRECIO_COSTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetPRECIO_PORTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshPRECIO_PORTE].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshPRECIO_PORTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshDESCUENTO].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshDESCUENTO].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetPRECIO_NETOValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshPRECIO_NETO].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetPRECIO_NETOValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshPRECIO_NETO].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshINVENTARIABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshINVENTARIABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshID_PROVEEDOR].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshID_PROVEEDOR].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshNOMBRE_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshNOMBRE_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetELIMINADOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshELIMINADO].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetELIMINADOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshELIMINADO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulos_RefreshDataTableRules.GetTIENDA_WEBValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_Articulos_RefreshTIENDA_WEB].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulos_RefreshDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_Articulos_RefreshTIENDA_WEB].AsInteger := aValue;
|
|
end;
|
|
|
|
|
|
{ TArticulosParaClienteDataTableRules }
|
|
constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TArticulosParaClienteDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
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.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.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.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.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.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosParaClienteDataTableRules.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_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.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.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.GetPRECIO_COSTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsFloat := aValue;
|
|
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.GetPRECIO_NETOValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsFloat;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsFloat := aValue;
|
|
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.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsInteger := aValue;
|
|
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.GetELIMINADOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TArticulosParaClienteDataTableRules.GetTIENDA_WEBValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsInteger;
|
|
end;
|
|
|
|
procedure TArticulosParaClienteDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsInteger := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
|
|
RegisterDataTableRules(RID_Articulos_Refresh, TArticulos_RefreshDataTableRules);
|
|
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);
|
|
|
|
end.
|