git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@133 c93665c3-c93d-084d-9b98-7d5f4a9c3376
803 lines
40 KiB
ObjectPascal
803 lines
40 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 = '{CAD3971F-0746-414E-9D24-39D78E9C8795}';
|
|
|
|
{ Data table names }
|
|
nme_InfMargenArticulo = 'InfMargenArticulo';
|
|
|
|
{ InfMargenArticulo fields }
|
|
fld_InfMargenArticuloID_EMPRESA = 'ID_EMPRESA';
|
|
fld_InfMargenArticuloID_CLIENTE = 'ID_CLIENTE';
|
|
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_InfMargenArticuloNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
|
|
fld_InfMargenArticuloNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
|
|
fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
|
|
fld_InfMargenArticuloNIF_CIF_AGENTE = 'NIF_CIF_AGENTE';
|
|
fld_InfMargenArticuloNOMBRE_AGENTE = 'NOMBRE_AGENTE';
|
|
fld_InfMargenArticuloIMP_UNIDAD_ULT_VENT = 'IMP_UNIDAD_ULT_VENT';
|
|
fld_InfMargenArticuloIMP_NETO_ULT_VENT = 'IMP_NETO_ULT_VENT';
|
|
fld_InfMargenArticuloIMP_PORTE_ULT_VENT = 'IMP_PORTE_ULT_VENT';
|
|
fld_InfMargenArticuloIMP_UNIDAD_PRO_VENT = 'IMP_UNIDAD_PRO_VENT';
|
|
fld_InfMargenArticuloIMP_NETO_PRO_VENT = 'IMP_NETO_PRO_VENT';
|
|
fld_InfMargenArticuloIMP_PORTE_PRO_VENT = 'IMP_PORTE_PRO_VENT';
|
|
fld_InfMargenArticuloIMP_UNIDAD_COMPRA = 'IMP_UNIDAD_COMPRA';
|
|
fld_InfMargenArticuloIMP_NETO_COMPRA = 'IMP_NETO_COMPRA';
|
|
fld_InfMargenArticuloIMP_PORTE_COMPRA = 'IMP_PORTE_COMPRA';
|
|
fld_InfMargenArticuloIMP_UNIDAD_ULT_COMP = 'IMP_UNIDAD_ULT_COMP';
|
|
fld_InfMargenArticuloIMP_NETO_ULT_COMP = 'IMP_NETO_ULT_COMP';
|
|
fld_InfMargenArticuloIMP_PORTE_ULT_COMP = 'IMP_PORTE_ULT_COMP';
|
|
fld_InfMargenArticuloIMP_UNIDAD_PRO_COMP = 'IMP_UNIDAD_PRO_COMP';
|
|
fld_InfMargenArticuloIMP_NETO_PRO_COMP = 'IMP_NETO_PRO_COMP';
|
|
fld_InfMargenArticuloIMP_PORTE_PRO_COMP = 'IMP_PORTE_PRO_COMP';
|
|
fld_InfMargenArticuloIMP_MARGEN_ULT_VENT_COMPRA = 'IMP_MARGEN_ULT_VENT_COMPRA';
|
|
fld_InfMargenArticuloPOR_MARGEN_ULT_VENT_COMPRA = 'POR_MARGEN_ULT_VENT_COMPRA';
|
|
fld_InfMargenArticuloIMP_MARGEN_ULT_VENT_ULT_COMP = 'IMP_MARGEN_ULT_VENT_ULT_COMP';
|
|
fld_InfMargenArticuloPOR_MARGEN_ULT_VENT_ULT_COMP = 'POR_MARGEN_ULT_VENT_ULT_COMP';
|
|
fld_InfMargenArticuloIMP_MARGEN_ULT_VENT_PRO_COMP = 'IMP_MARGEN_ULT_VENT_PRO_COMP';
|
|
fld_InfMargenArticuloPOR_MARGEN_ULT_VENT_PRO_COMP = 'POR_MARGEN_ULT_VENT_PRO_COMP';
|
|
fld_InfMargenArticuloIMP_MARGEN_PRO_VENT_COMPRA = 'IMP_MARGEN_PRO_VENT_COMPRA';
|
|
fld_InfMargenArticuloPOR_MARGEN_PRO_VENT_COMPRA = 'POR_MARGEN_PRO_VENT_COMPRA';
|
|
fld_InfMargenArticuloIMP_MARGEN_PRO_VENT_ULT_COMP = 'IMP_MARGEN_PRO_VENT_ULT_COMP';
|
|
fld_InfMargenArticuloPOR_MARGEN_PRO_VENT_ULT_COMP = 'POR_MARGEN_PRO_VENT_ULT_COMP';
|
|
fld_InfMargenArticuloIMP_MARGEN_PRO_VENT_PRO_COMP = 'IMP_MARGEN_PRO_VENT_PRO_COMP';
|
|
fld_InfMargenArticuloPOR_MARGEN_PRO_VENT_PRO_COMP = 'POR_MARGEN_PRO_VENT_PRO_COMP';
|
|
|
|
{ InfMargenArticulo field indexes }
|
|
idx_InfMargenArticuloID_EMPRESA = 0;
|
|
idx_InfMargenArticuloID_CLIENTE = 1;
|
|
idx_InfMargenArticuloID_ARTICULO = 2;
|
|
idx_InfMargenArticuloFAMILIA = 3;
|
|
idx_InfMargenArticuloREFERENCIA = 4;
|
|
idx_InfMargenArticuloREFERENCIA_PROV = 5;
|
|
idx_InfMargenArticuloDESCRIPCION = 6;
|
|
idx_InfMargenArticuloCOMISIONABLE = 7;
|
|
idx_InfMargenArticuloINVENTARIABLE = 8;
|
|
idx_InfMargenArticuloNIF_CIF_CLIENTE = 9;
|
|
idx_InfMargenArticuloNOMBRE_CLIENTE = 10;
|
|
idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE = 11;
|
|
idx_InfMargenArticuloNIF_CIF_AGENTE = 12;
|
|
idx_InfMargenArticuloNOMBRE_AGENTE = 13;
|
|
idx_InfMargenArticuloIMP_UNIDAD_ULT_VENT = 14;
|
|
idx_InfMargenArticuloIMP_NETO_ULT_VENT = 15;
|
|
idx_InfMargenArticuloIMP_PORTE_ULT_VENT = 16;
|
|
idx_InfMargenArticuloIMP_UNIDAD_PRO_VENT = 17;
|
|
idx_InfMargenArticuloIMP_NETO_PRO_VENT = 18;
|
|
idx_InfMargenArticuloIMP_PORTE_PRO_VENT = 19;
|
|
idx_InfMargenArticuloIMP_UNIDAD_COMPRA = 20;
|
|
idx_InfMargenArticuloIMP_NETO_COMPRA = 21;
|
|
idx_InfMargenArticuloIMP_PORTE_COMPRA = 22;
|
|
idx_InfMargenArticuloIMP_UNIDAD_ULT_COMP = 23;
|
|
idx_InfMargenArticuloIMP_NETO_ULT_COMP = 24;
|
|
idx_InfMargenArticuloIMP_PORTE_ULT_COMP = 25;
|
|
idx_InfMargenArticuloIMP_UNIDAD_PRO_COMP = 26;
|
|
idx_InfMargenArticuloIMP_NETO_PRO_COMP = 27;
|
|
idx_InfMargenArticuloIMP_PORTE_PRO_COMP = 28;
|
|
idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_COMPRA = 29;
|
|
idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_COMPRA = 30;
|
|
idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_ULT_COMP = 31;
|
|
idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_ULT_COMP = 32;
|
|
idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_PRO_COMP = 33;
|
|
idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_PRO_COMP = 34;
|
|
idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_COMPRA = 35;
|
|
idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_COMPRA = 36;
|
|
idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_ULT_COMP = 37;
|
|
idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_ULT_COMP = 38;
|
|
idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_PRO_COMP = 39;
|
|
idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_PRO_COMP = 40;
|
|
|
|
type
|
|
{ IInfMargenArticulo }
|
|
IInfMargenArticulo = interface(IDAStronglyTypedDataTable)
|
|
['{5CC3A6EA-5D25-4D3E-A94F-04B1CAD301C4}']
|
|
{ Property getters and setters }
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetID_CLIENTEValue: Integer;
|
|
procedure SetID_CLIENTEValue(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 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 GetNIF_CIF_AGENTEValue: String;
|
|
procedure SetNIF_CIF_AGENTEValue(const aValue: String);
|
|
function GetNOMBRE_AGENTEValue: String;
|
|
procedure SetNOMBRE_AGENTEValue(const aValue: String);
|
|
function GetIMP_UNIDAD_ULT_VENTValue: Float;
|
|
procedure SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float);
|
|
function GetIMP_NETO_ULT_VENTValue: Float;
|
|
procedure SetIMP_NETO_ULT_VENTValue(const aValue: Float);
|
|
function GetIMP_PORTE_ULT_VENTValue: Float;
|
|
procedure SetIMP_PORTE_ULT_VENTValue(const aValue: Float);
|
|
function GetIMP_UNIDAD_PRO_VENTValue: Float;
|
|
procedure SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float);
|
|
function GetIMP_NETO_PRO_VENTValue: Float;
|
|
procedure SetIMP_NETO_PRO_VENTValue(const aValue: Float);
|
|
function GetIMP_PORTE_PRO_VENTValue: Float;
|
|
procedure SetIMP_PORTE_PRO_VENTValue(const aValue: Float);
|
|
function GetIMP_UNIDAD_COMPRAValue: Float;
|
|
procedure SetIMP_UNIDAD_COMPRAValue(const aValue: Float);
|
|
function GetIMP_NETO_COMPRAValue: Float;
|
|
procedure SetIMP_NETO_COMPRAValue(const aValue: Float);
|
|
function GetIMP_PORTE_COMPRAValue: Float;
|
|
procedure SetIMP_PORTE_COMPRAValue(const aValue: Float);
|
|
function GetIMP_UNIDAD_ULT_COMPValue: Float;
|
|
procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
|
|
function GetIMP_NETO_ULT_COMPValue: Float;
|
|
procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float);
|
|
function GetIMP_PORTE_ULT_COMPValue: Float;
|
|
procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
|
|
function GetIMP_UNIDAD_PRO_COMPValue: Float;
|
|
procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
|
|
function GetIMP_NETO_PRO_COMPValue: Float;
|
|
procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float);
|
|
function GetIMP_PORTE_PRO_COMPValue: Float;
|
|
procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
|
|
function GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
procedure SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
function GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
procedure SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
function GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
procedure SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
function GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
procedure SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
function GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
procedure SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
function GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
procedure SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
function GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
procedure SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
function GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
procedure SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
function GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
procedure SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
function GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
procedure SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
function GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
procedure SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
function GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
procedure SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
|
|
|
|
{ Properties }
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
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 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 NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property IMP_UNIDAD_ULT_VENT: Float read GetIMP_UNIDAD_ULT_VENTValue write SetIMP_UNIDAD_ULT_VENTValue;
|
|
property IMP_NETO_ULT_VENT: Float read GetIMP_NETO_ULT_VENTValue write SetIMP_NETO_ULT_VENTValue;
|
|
property IMP_PORTE_ULT_VENT: Float read GetIMP_PORTE_ULT_VENTValue write SetIMP_PORTE_ULT_VENTValue;
|
|
property IMP_UNIDAD_PRO_VENT: Float read GetIMP_UNIDAD_PRO_VENTValue write SetIMP_UNIDAD_PRO_VENTValue;
|
|
property IMP_NETO_PRO_VENT: Float read GetIMP_NETO_PRO_VENTValue write SetIMP_NETO_PRO_VENTValue;
|
|
property IMP_PORTE_PRO_VENT: Float read GetIMP_PORTE_PRO_VENTValue write SetIMP_PORTE_PRO_VENTValue;
|
|
property IMP_UNIDAD_COMPRA: Float read GetIMP_UNIDAD_COMPRAValue write SetIMP_UNIDAD_COMPRAValue;
|
|
property IMP_NETO_COMPRA: Float read GetIMP_NETO_COMPRAValue write SetIMP_NETO_COMPRAValue;
|
|
property IMP_PORTE_COMPRA: Float read GetIMP_PORTE_COMPRAValue write SetIMP_PORTE_COMPRAValue;
|
|
property IMP_UNIDAD_ULT_COMP: Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
|
|
property IMP_NETO_ULT_COMP: Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
|
|
property IMP_PORTE_ULT_COMP: Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
|
|
property IMP_UNIDAD_PRO_COMP: Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
|
|
property IMP_NETO_PRO_COMP: Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
|
|
property IMP_PORTE_PRO_COMP: Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_COMPRA: Float read GetIMP_MARGEN_ULT_VENT_COMPRAValue write SetIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property POR_MARGEN_ULT_VENT_COMPRA: Float read GetPOR_MARGEN_ULT_VENT_COMPRAValue write SetPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property IMP_MARGEN_ULT_VENT_ULT_COMP: Float read GetIMP_MARGEN_ULT_VENT_ULT_COMPValue write SetIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_ULT_COMP: Float read GetPOR_MARGEN_ULT_VENT_ULT_COMPValue write SetPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_PRO_COMP: Float read GetIMP_MARGEN_ULT_VENT_PRO_COMPValue write SetIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_PRO_COMP: Float read GetPOR_MARGEN_ULT_VENT_PRO_COMPValue write SetPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_COMPRA: Float read GetIMP_MARGEN_PRO_VENT_COMPRAValue write SetIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property POR_MARGEN_PRO_VENT_COMPRA: Float read GetPOR_MARGEN_PRO_VENT_COMPRAValue write SetPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property IMP_MARGEN_PRO_VENT_ULT_COMP: Float read GetIMP_MARGEN_PRO_VENT_ULT_COMPValue write SetIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_ULT_COMP: Float read GetPOR_MARGEN_PRO_VENT_ULT_COMPValue write SetPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_PRO_COMP: Float read GetIMP_MARGEN_PRO_VENT_PRO_COMPValue write SetIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_PRO_COMP: Float read GetPOR_MARGEN_PRO_VENT_PRO_COMPValue write SetPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
end;
|
|
|
|
{ TInfMargenArticuloDataTableRules }
|
|
TInfMargenArticuloDataTableRules = class(TDADataTableRules, IInfMargenArticulo)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetID_CLIENTEValue: Integer; virtual;
|
|
procedure SetID_CLIENTEValue(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 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 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 GetIMP_UNIDAD_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_NETO_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_PORTE_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
|
|
{ Properties }
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
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 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 NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property IMP_UNIDAD_ULT_VENT: Float read GetIMP_UNIDAD_ULT_VENTValue write SetIMP_UNIDAD_ULT_VENTValue;
|
|
property IMP_NETO_ULT_VENT: Float read GetIMP_NETO_ULT_VENTValue write SetIMP_NETO_ULT_VENTValue;
|
|
property IMP_PORTE_ULT_VENT: Float read GetIMP_PORTE_ULT_VENTValue write SetIMP_PORTE_ULT_VENTValue;
|
|
property IMP_UNIDAD_PRO_VENT: Float read GetIMP_UNIDAD_PRO_VENTValue write SetIMP_UNIDAD_PRO_VENTValue;
|
|
property IMP_NETO_PRO_VENT: Float read GetIMP_NETO_PRO_VENTValue write SetIMP_NETO_PRO_VENTValue;
|
|
property IMP_PORTE_PRO_VENT: Float read GetIMP_PORTE_PRO_VENTValue write SetIMP_PORTE_PRO_VENTValue;
|
|
property IMP_UNIDAD_COMPRA: Float read GetIMP_UNIDAD_COMPRAValue write SetIMP_UNIDAD_COMPRAValue;
|
|
property IMP_NETO_COMPRA: Float read GetIMP_NETO_COMPRAValue write SetIMP_NETO_COMPRAValue;
|
|
property IMP_PORTE_COMPRA: Float read GetIMP_PORTE_COMPRAValue write SetIMP_PORTE_COMPRAValue;
|
|
property IMP_UNIDAD_ULT_COMP: Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
|
|
property IMP_NETO_ULT_COMP: Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
|
|
property IMP_PORTE_ULT_COMP: Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
|
|
property IMP_UNIDAD_PRO_COMP: Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
|
|
property IMP_NETO_PRO_COMP: Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
|
|
property IMP_PORTE_PRO_COMP: Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_COMPRA: Float read GetIMP_MARGEN_ULT_VENT_COMPRAValue write SetIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property POR_MARGEN_ULT_VENT_COMPRA: Float read GetPOR_MARGEN_ULT_VENT_COMPRAValue write SetPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property IMP_MARGEN_ULT_VENT_ULT_COMP: Float read GetIMP_MARGEN_ULT_VENT_ULT_COMPValue write SetIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_ULT_COMP: Float read GetPOR_MARGEN_ULT_VENT_ULT_COMPValue write SetPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_PRO_COMP: Float read GetIMP_MARGEN_ULT_VENT_PRO_COMPValue write SetIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_PRO_COMP: Float read GetPOR_MARGEN_ULT_VENT_PRO_COMPValue write SetPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_COMPRA: Float read GetIMP_MARGEN_PRO_VENT_COMPRAValue write SetIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property POR_MARGEN_PRO_VENT_COMPRA: Float read GetPOR_MARGEN_PRO_VENT_COMPRAValue write SetPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property IMP_MARGEN_PRO_VENT_ULT_COMP: Float read GetIMP_MARGEN_PRO_VENT_ULT_COMPValue write SetIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_ULT_COMP: Float read GetPOR_MARGEN_PRO_VENT_ULT_COMPValue write SetPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_PRO_COMP: Float read GetIMP_MARGEN_PRO_VENT_PRO_COMPValue write SetIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_PRO_COMP: Float read GetPOR_MARGEN_PRO_VENT_PRO_COMPValue write SetPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
|
|
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_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.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloID_CLIENTE].AsInteger;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloID_CLIENTE].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.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.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.GetIMP_UNIDAD_ULT_VENTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_ULT_VENT].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_ULT_VENT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_NETO_ULT_VENTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_NETO_ULT_VENT].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_NETO_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_NETO_ULT_VENT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_PORTE_ULT_VENTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_ULT_VENT].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_PORTE_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_ULT_VENT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_UNIDAD_PRO_VENTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_PRO_VENT].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_PRO_VENT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_NETO_PRO_VENTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_NETO_PRO_VENT].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_NETO_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_NETO_PRO_VENT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_PORTE_PRO_VENTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_PRO_VENT].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_PORTE_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_PRO_VENT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_UNIDAD_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_UNIDAD_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_NETO_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_NETO_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_NETO_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_NETO_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_PORTE_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_PORTE_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_NETO_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_NETO_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_UNIDAD_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_NETO_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_NETO_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_PORTE_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_ULT_VENT_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_ULT_VENT_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_COMPRA].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_COMPRA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_ULT_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_ULT_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloIMP_MARGEN_PRO_VENT_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TInfMargenArticuloDataTableRules.GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_PRO_COMP].AsFloat;
|
|
end;
|
|
|
|
procedure TInfMargenArticuloDataTableRules.SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_InfMargenArticuloPOR_MARGEN_PRO_VENT_PRO_COMP].AsFloat := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_InfMargenArticulo, TInfMargenArticuloDataTableRules);
|
|
|
|
end.
|