git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@122 c93665c3-c93d-084d-9b98-7d5f4a9c3376
1019 lines
51 KiB
ObjectPascal
1019 lines
51 KiB
ObjectPascal
unit schInfMargenArticuloClient_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_InfMargenArticulo = '{2DD59805-C1A8-4B91-B689-421A44964DA9}';
|
|
|
|
{ Data table names }
|
|
nme_InfMargenArticulo = 'InfMargenArticulo';
|
|
|
|
{ InfMargenArticulo fields }
|
|
fld_InfMargenArticuloID_FACTURA = 'ID_FACTURA';
|
|
fld_InfMargenArticuloID_EMPRESA = 'ID_EMPRESA';
|
|
fld_InfMargenArticuloREFERENCIA_FACTURA = 'REFERENCIA_FACTURA';
|
|
fld_InfMargenArticuloFECHA_FACTURA = 'FECHA_FACTURA';
|
|
fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA = 'IMPORTE_TOTAL_FACTURA';
|
|
fld_InfMargenArticuloID_COMISION_FACTURA = 'ID_COMISION_FACTURA';
|
|
fld_InfMargenArticuloID_ARTICULO = 'ID_ARTICULO';
|
|
fld_InfMargenArticuloFAMILIA = 'FAMILIA';
|
|
fld_InfMargenArticuloREFERENCIA = 'REFERENCIA';
|
|
fld_InfMargenArticuloREFERENCIA_PROV = 'REFERENCIA_PROV';
|
|
fld_InfMargenArticuloDESCRIPCION = 'DESCRIPCION';
|
|
fld_InfMargenArticuloCOMISIONABLE = 'COMISIONABLE';
|
|
fld_InfMargenArticuloINVENTARIABLE = 'INVENTARIABLE';
|
|
fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE = 'IMPORTE_UNIDAD_COSTE';
|
|
fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE = 'DESCUENTO_PROVEEDOR_COSTE';
|
|
fld_InfMargenArticuloIMPORTE_NETO_COSTE = 'IMPORTE_NETO_COSTE';
|
|
fld_InfMargenArticuloIMPORTE_PORTE_COSTE = 'IMPORTE_PORTE_COSTE';
|
|
fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA = 'IMPORTE_UNIDAD_ULTIMA_COMPRA';
|
|
fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA = 'IMPORTE_NETO_ULTIMA_COMPRA';
|
|
fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA = 'IMPORTE_PORTE_ULTIMA_COMPRA';
|
|
fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA';
|
|
fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA = 'IMPORTE_NETO_PROMEDIO_COMPRA';
|
|
fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA = 'IMPORTE_PORTE_PROMEDIO_COMPRA';
|
|
fld_InfMargenArticuloCANTIDAD = 'CANTIDAD';
|
|
fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA = 'IMPORTE_UNIDAD_VENTA';
|
|
fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA = 'DESCUENTO_CLIENTE_VENTA';
|
|
fld_InfMargenArticuloIMPORTE_NETO_VENTA = 'IMPORTE_NETO_VENTA';
|
|
fld_InfMargenArticuloIMPORTE_PORTE_VENTA = 'IMPORTE_PORTE_VENTA';
|
|
fld_InfMargenArticuloIMPORTE_TOTAL_VENTA = 'IMPORTE_TOTAL_VENTA';
|
|
fld_InfMargenArticuloIMPORTE_MARGEN_COSTE = 'IMPORTE_MARGEN_COSTE';
|
|
fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE = 'PORCENTAJE_MARGEN_COSTE';
|
|
fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA = 'IMPORTE_MARGEN_ULT_COMPRA';
|
|
fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA = 'PORCENTAJE_MARGEN_ULT_COMPRA';
|
|
fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA = 'IMPORTE_MARGEN_PROM_COMPRA';
|
|
fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA = 'PORCENTAJE_MARGEN_PROM_COMPRA';
|
|
fld_InfMargenArticuloNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR';
|
|
fld_InfMargenArticuloNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
|
|
fld_InfMargenArticuloCALLE_PROVEEDOR = 'CALLE_PROVEEDOR';
|
|
fld_InfMargenArticuloPOBLACION_PROVEEDOR = 'POBLACION_PROVEEDOR';
|
|
fld_InfMargenArticuloPROVINCIA_PROVEEDOR = 'PROVINCIA_PROVEEDOR';
|
|
fld_InfMargenArticuloNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
|
|
fld_InfMargenArticuloNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
|
|
fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
|
|
fld_InfMargenArticuloCALLE_CLIENTE = 'CALLE_CLIENTE';
|
|
fld_InfMargenArticuloPOBLACION_CLIENTE = 'POBLACION_CLIENTE';
|
|
fld_InfMargenArticuloPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
|
|
fld_InfMargenArticuloNIF_CIF_AGENTE = 'NIF_CIF_AGENTE';
|
|
fld_InfMargenArticuloNOMBRE_AGENTE = 'NOMBRE_AGENTE';
|
|
fld_InfMargenArticuloCALLE_AGENTE = 'CALLE_AGENTE';
|
|
fld_InfMargenArticuloPOBLACION_AGENTE = 'POBLACION_AGENTE';
|
|
fld_InfMargenArticuloPROVINCIA_AGENTE = 'PROVINCIA_AGENTE';
|
|
fld_InfMargenArticuloCOMISION_AGENTE = 'COMISION_AGENTE';
|
|
fld_InfMargenArticuloIMPORTE_COMISION_AGENTE = 'IMPORTE_COMISION_AGENTE';
|
|
|
|
{ InfMargenArticulo field indexes }
|
|
idx_InfMargenArticuloID_FACTURA = 0;
|
|
idx_InfMargenArticuloID_EMPRESA = 1;
|
|
idx_InfMargenArticuloREFERENCIA_FACTURA = 2;
|
|
idx_InfMargenArticuloFECHA_FACTURA = 3;
|
|
idx_InfMargenArticuloIMPORTE_TOTAL_FACTURA = 4;
|
|
idx_InfMargenArticuloID_COMISION_FACTURA = 5;
|
|
idx_InfMargenArticuloID_ARTICULO = 6;
|
|
idx_InfMargenArticuloFAMILIA = 7;
|
|
idx_InfMargenArticuloREFERENCIA = 8;
|
|
idx_InfMargenArticuloREFERENCIA_PROV = 9;
|
|
idx_InfMargenArticuloDESCRIPCION = 10;
|
|
idx_InfMargenArticuloCOMISIONABLE = 11;
|
|
idx_InfMargenArticuloINVENTARIABLE = 12;
|
|
idx_InfMargenArticuloIMPORTE_UNIDAD_COSTE = 13;
|
|
idx_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE = 14;
|
|
idx_InfMargenArticuloIMPORTE_NETO_COSTE = 15;
|
|
idx_InfMargenArticuloIMPORTE_PORTE_COSTE = 16;
|
|
idx_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA = 17;
|
|
idx_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA = 18;
|
|
idx_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA = 19;
|
|
idx_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA = 20;
|
|
idx_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA = 21;
|
|
idx_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA = 22;
|
|
idx_InfMargenArticuloCANTIDAD = 23;
|
|
idx_InfMargenArticuloIMPORTE_UNIDAD_VENTA = 24;
|
|
idx_InfMargenArticuloDESCUENTO_CLIENTE_VENTA = 25;
|
|
idx_InfMargenArticuloIMPORTE_NETO_VENTA = 26;
|
|
idx_InfMargenArticuloIMPORTE_PORTE_VENTA = 27;
|
|
idx_InfMargenArticuloIMPORTE_TOTAL_VENTA = 28;
|
|
idx_InfMargenArticuloIMPORTE_MARGEN_COSTE = 29;
|
|
idx_InfMargenArticuloPORCENTAJE_MARGEN_COSTE = 30;
|
|
idx_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA = 31;
|
|
idx_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA = 32;
|
|
idx_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA = 33;
|
|
idx_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA = 34;
|
|
idx_InfMargenArticuloNIF_CIF_PROVEEDOR = 35;
|
|
idx_InfMargenArticuloNOMBRE_PROVEEDOR = 36;
|
|
idx_InfMargenArticuloCALLE_PROVEEDOR = 37;
|
|
idx_InfMargenArticuloPOBLACION_PROVEEDOR = 38;
|
|
idx_InfMargenArticuloPROVINCIA_PROVEEDOR = 39;
|
|
idx_InfMargenArticuloNIF_CIF_CLIENTE = 40;
|
|
idx_InfMargenArticuloNOMBRE_CLIENTE = 41;
|
|
idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE = 42;
|
|
idx_InfMargenArticuloCALLE_CLIENTE = 43;
|
|
idx_InfMargenArticuloPOBLACION_CLIENTE = 44;
|
|
idx_InfMargenArticuloPROVINCIA_CLIENTE = 45;
|
|
idx_InfMargenArticuloNIF_CIF_AGENTE = 46;
|
|
idx_InfMargenArticuloNOMBRE_AGENTE = 47;
|
|
idx_InfMargenArticuloCALLE_AGENTE = 48;
|
|
idx_InfMargenArticuloPOBLACION_AGENTE = 49;
|
|
idx_InfMargenArticuloPROVINCIA_AGENTE = 50;
|
|
idx_InfMargenArticuloCOMISION_AGENTE = 51;
|
|
idx_InfMargenArticuloIMPORTE_COMISION_AGENTE = 52;
|
|
|
|
type
|
|
{ IInfMargenArticulo }
|
|
IInfMargenArticulo = interface(IDAStronglyTypedDataTable)
|
|
['{5C058494-52F5-48F3-A25C-1A5F74D7C2E3}']
|
|
{ Property getters and setters }
|
|
function GetID_FACTURAValue: Integer;
|
|
procedure SetID_FACTURAValue(const aValue: Integer);
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetREFERENCIA_FACTURAValue: String;
|
|
procedure SetREFERENCIA_FACTURAValue(const aValue: String);
|
|
function GetFECHA_FACTURAValue: DateTime;
|
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
function GetIMPORTE_TOTAL_FACTURAValue: Currency;
|
|
procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency);
|
|
function GetID_COMISION_FACTURAValue: Integer;
|
|
procedure SetID_COMISION_FACTURAValue(const aValue: Integer);
|
|
function GetID_ARTICULOValue: Integer;
|
|
procedure SetID_ARTICULOValue(const aValue: Integer);
|
|
function GetFAMILIAValue: String;
|
|
procedure SetFAMILIAValue(const aValue: String);
|
|
function GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetREFERENCIA_PROVValue: String;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetCOMISIONABLEValue: Integer;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer);
|
|
function GetINVENTARIABLEValue: Integer;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer);
|
|
function GetIMPORTE_UNIDAD_COSTEValue: Currency;
|
|
procedure SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency);
|
|
function GetDESCUENTO_PROVEEDOR_COSTEValue: Float;
|
|
procedure SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float);
|
|
function GetIMPORTE_NETO_COSTEValue: Currency;
|
|
procedure SetIMPORTE_NETO_COSTEValue(const aValue: Currency);
|
|
function GetIMPORTE_PORTE_COSTEValue: Currency;
|
|
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency);
|
|
function GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency);
|
|
function GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency);
|
|
function GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency);
|
|
function GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency);
|
|
function GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency);
|
|
function GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency);
|
|
function GetCANTIDADValue: Integer;
|
|
procedure SetCANTIDADValue(const aValue: Integer);
|
|
function GetIMPORTE_UNIDAD_VENTAValue: Currency;
|
|
procedure SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency);
|
|
function GetDESCUENTO_CLIENTE_VENTAValue: Float;
|
|
procedure SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float);
|
|
function GetIMPORTE_NETO_VENTAValue: Currency;
|
|
procedure SetIMPORTE_NETO_VENTAValue(const aValue: Currency);
|
|
function GetIMPORTE_PORTE_VENTAValue: Float;
|
|
procedure SetIMPORTE_PORTE_VENTAValue(const aValue: Float);
|
|
function GetIMPORTE_TOTAL_VENTAValue: Currency;
|
|
procedure SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency);
|
|
function GetIMPORTE_MARGEN_COSTEValue: Currency;
|
|
procedure SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency);
|
|
function GetPORCENTAJE_MARGEN_COSTEValue: Float;
|
|
procedure SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float);
|
|
function GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency);
|
|
function GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float;
|
|
procedure SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float);
|
|
function GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency;
|
|
procedure SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency);
|
|
function GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float;
|
|
procedure SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float);
|
|
function GetNIF_CIF_PROVEEDORValue: String;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
function GetNOMBRE_PROVEEDORValue: String;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
function GetCALLE_PROVEEDORValue: String;
|
|
procedure SetCALLE_PROVEEDORValue(const aValue: String);
|
|
function GetPOBLACION_PROVEEDORValue: String;
|
|
procedure SetPOBLACION_PROVEEDORValue(const aValue: String);
|
|
function GetPROVINCIA_PROVEEDORValue: String;
|
|
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String);
|
|
function GetNIF_CIF_CLIENTEValue: String;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
function GetNOMBRE_CLIENTEValue: String;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
|
|
function GetCALLE_CLIENTEValue: String;
|
|
procedure SetCALLE_CLIENTEValue(const aValue: String);
|
|
function GetPOBLACION_CLIENTEValue: String;
|
|
procedure SetPOBLACION_CLIENTEValue(const aValue: String);
|
|
function GetPROVINCIA_CLIENTEValue: String;
|
|
procedure SetPROVINCIA_CLIENTEValue(const aValue: String);
|
|
function GetNIF_CIF_AGENTEValue: String;
|
|
procedure SetNIF_CIF_AGENTEValue(const aValue: String);
|
|
function GetNOMBRE_AGENTEValue: String;
|
|
procedure SetNOMBRE_AGENTEValue(const aValue: String);
|
|
function GetCALLE_AGENTEValue: String;
|
|
procedure SetCALLE_AGENTEValue(const aValue: String);
|
|
function GetPOBLACION_AGENTEValue: String;
|
|
procedure SetPOBLACION_AGENTEValue(const aValue: String);
|
|
function GetPROVINCIA_AGENTEValue: String;
|
|
procedure SetPROVINCIA_AGENTEValue(const aValue: String);
|
|
function GetCOMISION_AGENTEValue: Float;
|
|
procedure SetCOMISION_AGENTEValue(const aValue: Float);
|
|
function GetIMPORTE_COMISION_AGENTEValue: Currency;
|
|
procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency);
|
|
|
|
|
|
{ Properties }
|
|
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
|
|
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
property IMPORTE_TOTAL_FACTURA: Currency read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue;
|
|
property ID_COMISION_FACTURA: Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue;
|
|
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property IMPORTE_UNIDAD_COSTE: Currency read GetIMPORTE_UNIDAD_COSTEValue write SetIMPORTE_UNIDAD_COSTEValue;
|
|
property DESCUENTO_PROVEEDOR_COSTE: Float read GetDESCUENTO_PROVEEDOR_COSTEValue write SetDESCUENTO_PROVEEDOR_COSTEValue;
|
|
property IMPORTE_NETO_COSTE: Currency read GetIMPORTE_NETO_COSTEValue write SetIMPORTE_NETO_COSTEValue;
|
|
property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
|
|
property IMPORTE_UNIDAD_ULTIMA_COMPRA: Currency read GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue write SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue;
|
|
property IMPORTE_NETO_ULTIMA_COMPRA: Currency read GetIMPORTE_NETO_ULTIMA_COMPRAValue write SetIMPORTE_NETO_ULTIMA_COMPRAValue;
|
|
property IMPORTE_PORTE_ULTIMA_COMPRA: Currency read GetIMPORTE_PORTE_ULTIMA_COMPRAValue write SetIMPORTE_PORTE_ULTIMA_COMPRAValue;
|
|
property IMPORTE_UNIDAD_PROMEDIO_COMPRA: Currency read GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue write SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue;
|
|
property IMPORTE_NETO_PROMEDIO_COMPRA: Currency read GetIMPORTE_NETO_PROMEDIO_COMPRAValue write SetIMPORTE_NETO_PROMEDIO_COMPRAValue;
|
|
property IMPORTE_PORTE_PROMEDIO_COMPRA: Currency read GetIMPORTE_PORTE_PROMEDIO_COMPRAValue write SetIMPORTE_PORTE_PROMEDIO_COMPRAValue;
|
|
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
|
property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
|
|
property DESCUENTO_CLIENTE_VENTA: Float read GetDESCUENTO_CLIENTE_VENTAValue write SetDESCUENTO_CLIENTE_VENTAValue;
|
|
property IMPORTE_NETO_VENTA: Currency read GetIMPORTE_NETO_VENTAValue write SetIMPORTE_NETO_VENTAValue;
|
|
property IMPORTE_PORTE_VENTA: Float read GetIMPORTE_PORTE_VENTAValue write SetIMPORTE_PORTE_VENTAValue;
|
|
property IMPORTE_TOTAL_VENTA: Currency read GetIMPORTE_TOTAL_VENTAValue write SetIMPORTE_TOTAL_VENTAValue;
|
|
property IMPORTE_MARGEN_COSTE: Currency read GetIMPORTE_MARGEN_COSTEValue write SetIMPORTE_MARGEN_COSTEValue;
|
|
property PORCENTAJE_MARGEN_COSTE: Float read GetPORCENTAJE_MARGEN_COSTEValue write SetPORCENTAJE_MARGEN_COSTEValue;
|
|
property IMPORTE_MARGEN_ULT_COMPRA: Currency read GetIMPORTE_MARGEN_ULT_COMPRAValue write SetIMPORTE_MARGEN_ULT_COMPRAValue;
|
|
property PORCENTAJE_MARGEN_ULT_COMPRA: Float read GetPORCENTAJE_MARGEN_ULT_COMPRAValue write SetPORCENTAJE_MARGEN_ULT_COMPRAValue;
|
|
property IMPORTE_MARGEN_PROM_COMPRA: Currency read GetIMPORTE_MARGEN_PROM_COMPRAValue write SetIMPORTE_MARGEN_PROM_COMPRAValue;
|
|
property PORCENTAJE_MARGEN_PROM_COMPRA: Float read GetPORCENTAJE_MARGEN_PROM_COMPRAValue write SetPORCENTAJE_MARGEN_PROM_COMPRAValue;
|
|
property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
|
|
property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
|
|
property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
|
|
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
|
|
property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
|
|
property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
|
|
property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property CALLE_AGENTE: String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue;
|
|
property POBLACION_AGENTE: String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue;
|
|
property PROVINCIA_AGENTE: String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue;
|
|
property COMISION_AGENTE: Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue;
|
|
property IMPORTE_COMISION_AGENTE: Currency read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue;
|
|
end;
|
|
|
|
{ TInfMargenArticuloDataTableRules }
|
|
TInfMargenArticuloDataTableRules = class(TDADataTableRules, IInfMargenArticulo)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetID_FACTURAValue: Integer; virtual;
|
|
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIA_FACTURAValue: String; virtual;
|
|
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
|
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
|
function GetIMPORTE_TOTAL_FACTURAValue: Currency; virtual;
|
|
procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); virtual;
|
|
function GetID_COMISION_FACTURAValue: Integer; virtual;
|
|
procedure SetID_COMISION_FACTURAValue(const aValue: Integer); virtual;
|
|
function GetID_ARTICULOValue: Integer; virtual;
|
|
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetIMPORTE_UNIDAD_COSTEValue: Currency; virtual;
|
|
procedure SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); virtual;
|
|
function GetDESCUENTO_PROVEEDOR_COSTEValue: Float; virtual;
|
|
procedure SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_NETO_COSTEValue: Currency; virtual;
|
|
procedure SetIMPORTE_NETO_COSTEValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_PORTE_COSTEValue: Currency; virtual;
|
|
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetCANTIDADValue: Integer; virtual;
|
|
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
|
function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
|
|
procedure SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); virtual;
|
|
function GetDESCUENTO_CLIENTE_VENTAValue: Float; virtual;
|
|
procedure SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_NETO_VENTAValue: Currency; virtual;
|
|
procedure SetIMPORTE_NETO_VENTAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_PORTE_VENTAValue: Float; virtual;
|
|
procedure SetIMPORTE_PORTE_VENTAValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_TOTAL_VENTAValue: Currency; virtual;
|
|
procedure SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_MARGEN_COSTEValue: Currency; virtual;
|
|
procedure SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); virtual;
|
|
function GetPORCENTAJE_MARGEN_COSTEValue: Float; virtual;
|
|
procedure SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; virtual;
|
|
procedure SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; virtual;
|
|
procedure SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); virtual;
|
|
function GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; virtual;
|
|
procedure SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); virtual;
|
|
function GetNIF_CIF_PROVEEDORValue: String; virtual;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetCALLE_PROVEEDORValue: String; virtual;
|
|
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetPOBLACION_PROVEEDORValue: String; virtual;
|
|
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetPROVINCIA_PROVEEDORValue: String; virtual;
|
|
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
|
|
function GetCALLE_CLIENTEValue: String; virtual;
|
|
procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetPOBLACION_CLIENTEValue: String; virtual;
|
|
procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
|
|
function GetPROVINCIA_CLIENTEValue: String; virtual;
|
|
procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_AGENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_AGENTEValue: String; virtual;
|
|
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
|
function GetCALLE_AGENTEValue: String; virtual;
|
|
procedure SetCALLE_AGENTEValue(const aValue: String); virtual;
|
|
function GetPOBLACION_AGENTEValue: String; virtual;
|
|
procedure SetPOBLACION_AGENTEValue(const aValue: String); virtual;
|
|
function GetPROVINCIA_AGENTEValue: String; virtual;
|
|
procedure SetPROVINCIA_AGENTEValue(const aValue: String); virtual;
|
|
function GetCOMISION_AGENTEValue: Float; virtual;
|
|
procedure SetCOMISION_AGENTEValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_COMISION_AGENTEValue: Currency; virtual;
|
|
procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); virtual;
|
|
|
|
{ Properties }
|
|
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
|
|
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
property IMPORTE_TOTAL_FACTURA: Currency read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue;
|
|
property ID_COMISION_FACTURA: Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue;
|
|
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property IMPORTE_UNIDAD_COSTE: Currency read GetIMPORTE_UNIDAD_COSTEValue write SetIMPORTE_UNIDAD_COSTEValue;
|
|
property DESCUENTO_PROVEEDOR_COSTE: Float read GetDESCUENTO_PROVEEDOR_COSTEValue write SetDESCUENTO_PROVEEDOR_COSTEValue;
|
|
property IMPORTE_NETO_COSTE: Currency read GetIMPORTE_NETO_COSTEValue write SetIMPORTE_NETO_COSTEValue;
|
|
property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
|
|
property IMPORTE_UNIDAD_ULTIMA_COMPRA: Currency read GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue write SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue;
|
|
property IMPORTE_NETO_ULTIMA_COMPRA: Currency read GetIMPORTE_NETO_ULTIMA_COMPRAValue write SetIMPORTE_NETO_ULTIMA_COMPRAValue;
|
|
property IMPORTE_PORTE_ULTIMA_COMPRA: Currency read GetIMPORTE_PORTE_ULTIMA_COMPRAValue write SetIMPORTE_PORTE_ULTIMA_COMPRAValue;
|
|
property IMPORTE_UNIDAD_PROMEDIO_COMPRA: Currency read GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue write SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue;
|
|
property IMPORTE_NETO_PROMEDIO_COMPRA: Currency read GetIMPORTE_NETO_PROMEDIO_COMPRAValue write SetIMPORTE_NETO_PROMEDIO_COMPRAValue;
|
|
property IMPORTE_PORTE_PROMEDIO_COMPRA: Currency read GetIMPORTE_PORTE_PROMEDIO_COMPRAValue write SetIMPORTE_PORTE_PROMEDIO_COMPRAValue;
|
|
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
|
property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
|
|
property DESCUENTO_CLIENTE_VENTA: Float read GetDESCUENTO_CLIENTE_VENTAValue write SetDESCUENTO_CLIENTE_VENTAValue;
|
|
property IMPORTE_NETO_VENTA: Currency read GetIMPORTE_NETO_VENTAValue write SetIMPORTE_NETO_VENTAValue;
|
|
property IMPORTE_PORTE_VENTA: Float read GetIMPORTE_PORTE_VENTAValue write SetIMPORTE_PORTE_VENTAValue;
|
|
property IMPORTE_TOTAL_VENTA: Currency read GetIMPORTE_TOTAL_VENTAValue write SetIMPORTE_TOTAL_VENTAValue;
|
|
property IMPORTE_MARGEN_COSTE: Currency read GetIMPORTE_MARGEN_COSTEValue write SetIMPORTE_MARGEN_COSTEValue;
|
|
property PORCENTAJE_MARGEN_COSTE: Float read GetPORCENTAJE_MARGEN_COSTEValue write SetPORCENTAJE_MARGEN_COSTEValue;
|
|
property IMPORTE_MARGEN_ULT_COMPRA: Currency read GetIMPORTE_MARGEN_ULT_COMPRAValue write SetIMPORTE_MARGEN_ULT_COMPRAValue;
|
|
property PORCENTAJE_MARGEN_ULT_COMPRA: Float read GetPORCENTAJE_MARGEN_ULT_COMPRAValue write SetPORCENTAJE_MARGEN_ULT_COMPRAValue;
|
|
property IMPORTE_MARGEN_PROM_COMPRA: Currency read GetIMPORTE_MARGEN_PROM_COMPRAValue write SetIMPORTE_MARGEN_PROM_COMPRAValue;
|
|
property PORCENTAJE_MARGEN_PROM_COMPRA: Float read GetPORCENTAJE_MARGEN_PROM_COMPRAValue write SetPORCENTAJE_MARGEN_PROM_COMPRAValue;
|
|
property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
|
|
property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
|
|
property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
|
|
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
|
|
property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
|
|
property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
|
|
property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property CALLE_AGENTE: String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue;
|
|
property POBLACION_AGENTE: String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue;
|
|
property PROVINCIA_AGENTE: String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue;
|
|
property COMISION_AGENTE: Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue;
|
|
property IMPORTE_COMISION_AGENTE: Currency read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants;
|
|
|
|
{ TInfMargenArticuloDataTableRules }
|
|
constructor TInfMargenArticuloDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TInfMargenArticuloDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloID_FACTURA].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloID_FACTURA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloID_EMPRESA].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloID_EMPRESA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetREFERENCIA_FACTURAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloREFERENCIA_FACTURA].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetREFERENCIA_FACTURAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloREFERENCIA_FACTURA].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloFECHA_FACTURA].AsDateTime;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloFECHA_FACTURA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_TOTAL_FACTURAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_FACTURA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_FACTURA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetID_COMISION_FACTURAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloID_COMISION_FACTURA].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetID_COMISION_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloID_COMISION_FACTURA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetID_ARTICULOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloID_ARTICULO].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloID_ARTICULO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloFAMILIA].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloFAMILIA].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloREFERENCIA].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloREFERENCIA].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloREFERENCIA_PROV].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloREFERENCIA_PROV].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloCOMISIONABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloCOMISIONABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloINVENTARIABLE].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloINVENTARIABLE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_COSTEValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_COSTE].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_COSTE].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetDESCUENTO_PROVEEDOR_COSTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_COSTEValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_COSTE].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_COSTEValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_COSTE].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_COSTEValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_COSTE].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_COSTEValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_COSTE].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetCANTIDADValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloCANTIDAD].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetCANTIDADValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloCANTIDAD].AsInteger := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_VENTAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_VENTA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_VENTA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetDESCUENTO_CLIENTE_VENTAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloDESCUENTO_CLIENTE_VENTA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloDESCUENTO_CLIENTE_VENTA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_VENTAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_VENTA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_VENTAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_VENTA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_VENTAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_VENTA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_VENTAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_VENTA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_TOTAL_VENTAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_VENTA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_VENTA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_MARGEN_COSTEValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_COSTE].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_COSTE].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPORCENTAJE_MARGEN_COSTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_COSTE].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_COSTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNIF_CIF_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNIF_CIF_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNOMBRE_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetCALLE_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloCALLE_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetCALLE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloCALLE_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOBLACION_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOBLACION_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOBLACION_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPROVINCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPROVINCIA_PROVEEDOR].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPROVINCIA_PROVEEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNIF_CIF_CLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNIF_CIF_CLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_CLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNOMBRE_CLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetCALLE_CLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloCALLE_CLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloCALLE_CLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOBLACION_CLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOBLACION_CLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOBLACION_CLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPROVINCIA_CLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPROVINCIA_CLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPROVINCIA_CLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNIF_CIF_AGENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNIF_CIF_AGENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNIF_CIF_AGENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_AGENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloNOMBRE_AGENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetCALLE_AGENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloCALLE_AGENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetCALLE_AGENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloCALLE_AGENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOBLACION_AGENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOBLACION_AGENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOBLACION_AGENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOBLACION_AGENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPROVINCIA_AGENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPROVINCIA_AGENTE].AsString;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPROVINCIA_AGENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPROVINCIA_AGENTE].AsString := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetCOMISION_AGENTEValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloCOMISION_AGENTE].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetCOMISION_AGENTEValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloCOMISION_AGENTE].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMPORTE_COMISION_AGENTEValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_COMISION_AGENTE].AsCurrency;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMPORTE_COMISION_AGENTE].AsCurrency := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_InfMargenArticulo, TInfMargenArticuloDataTableRules);
|
|
|
|
end.
|