1949 lines
73 KiB
ObjectPascal
1949 lines
73 KiB
ObjectPascal
unit schEDISalesClient_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_RDX_ARTVEN = '{D0532CCF-994D-4445-B3AC-544120B18841}';
|
|
RID_RDX_CABVEN = '{9B9CC64F-37C7-4B46-BF30-02E8CB14ED5B}';
|
|
RID_RDX_LUGVEN = '{8CBF6BF1-7E83-43F2-BC61-6F692B9137CC}';
|
|
|
|
{ Data table names }
|
|
nme_RDX_ARTVEN = 'RDX_ARTVEN';
|
|
nme_RDX_CABVEN = 'RDX_CABVEN';
|
|
nme_RDX_LUGVEN = 'RDX_LUGVEN';
|
|
|
|
{ RDX_ARTVEN fields }
|
|
fld_RDX_ARTVENCLAVE1 = 'CLAVE1';
|
|
fld_RDX_ARTVENCLAVE2 = 'CLAVE2';
|
|
fld_RDX_ARTVENCLAVE3 = 'CLAVE3';
|
|
fld_RDX_ARTVENEANART = 'EANART';
|
|
fld_RDX_ARTVENCODCOM = 'CODCOM';
|
|
fld_RDX_ARTVENNUMVAR = 'NUMVAR';
|
|
fld_RDX_ARTVENCODPRO = 'CODPRO';
|
|
fld_RDX_ARTVENDESARTCO = 'DESARTCO';
|
|
fld_RDX_ARTVENDESART = 'DESART';
|
|
fld_RDX_ARTVENNUMCON = 'NUMCON';
|
|
fld_RDX_ARTVENNUMLIS = 'NUMLIS';
|
|
fld_RDX_ARTVENCONESP1 = 'CONESP1';
|
|
fld_RDX_ARTVENCONESP2 = 'CONESP2';
|
|
fld_RDX_ARTVENCONESP3 = 'CONESP3';
|
|
fld_RDX_ARTVENVALVEN = 'VALVEN';
|
|
fld_RDX_ARTVENPRENETCT = 'PRENETCT';
|
|
fld_RDX_ARTVENPREBRUCT = 'PREBRUCT';
|
|
fld_RDX_ARTVENPREINFET = 'PREINFET';
|
|
fld_RDX_ARTVENPREINFFT = 'PREINFFT';
|
|
fld_RDX_ARTVENPRECALCT = 'PRECALCT';
|
|
fld_RDX_ARTVENPRENETCA = 'PRENETCA';
|
|
fld_RDX_ARTVENPREBRUCA = 'PREBRUCA';
|
|
fld_RDX_ARTVENPREINFEA = 'PREINFEA';
|
|
fld_RDX_ARTVENPREINFFA = 'PREINFFA';
|
|
fld_RDX_ARTVENPRECALCA = 'PRECALCA';
|
|
fld_RDX_ARTVENBAPRUN1 = 'BAPRUN1';
|
|
fld_RDX_ARTVENUNIMED1 = 'UNIMED1';
|
|
fld_RDX_ARTVENBAPRUN2 = 'BAPRUN2';
|
|
fld_RDX_ARTVENUNIMED2 = 'UNIMED2';
|
|
fld_RDX_ARTVENBAPRUN3 = 'BAPRUN3';
|
|
fld_RDX_ARTVENUNIMED3 = 'UNIMED3';
|
|
fld_RDX_ARTVENBAPRUN4 = 'BAPRUN4';
|
|
fld_RDX_ARTVENUNIMED4 = 'UNIMED4';
|
|
fld_RDX_ARTVENBAPRUN5 = 'BAPRUN5';
|
|
fld_RDX_ARTVENUNIMED5 = 'UNIMED5';
|
|
fld_RDX_ARTVENCANVEN = 'CANVEN';
|
|
fld_RDX_ARTVENEXIPRO = 'EXIPRO';
|
|
fld_RDX_ARTVENDESEXI = 'DESEXI';
|
|
fld_RDX_ARTVENESPMEDCV = 'ESPMEDCV';
|
|
fld_RDX_ARTVENESPMEDEP = 'ESPMEDEP';
|
|
fld_RDX_ARTVENESPMEDDE = 'ESPMEDDE';
|
|
fld_RDX_ARTVENCANDEV = 'CANDEV';
|
|
fld_RDX_ARTVENEANVEN = 'EANVEN';
|
|
fld_RDX_ARTVENNOMVEN = 'NOMVEN';
|
|
fld_RDX_ARTVENNUMTALON = 'NUMTALON';
|
|
fld_RDX_ARTVENCANVENNET = 'CANVENNET';
|
|
fld_RDX_ARTVENUMEDVENNET = 'UMEDVENNET';
|
|
fld_RDX_ARTVENCANESP = 'CANESP';
|
|
fld_RDX_ARTVENUMEDESP = 'UMEDESP';
|
|
|
|
{ RDX_ARTVEN field indexes }
|
|
idx_RDX_ARTVENCLAVE1 = 0;
|
|
idx_RDX_ARTVENCLAVE2 = 1;
|
|
idx_RDX_ARTVENCLAVE3 = 2;
|
|
idx_RDX_ARTVENEANART = 3;
|
|
idx_RDX_ARTVENCODCOM = 4;
|
|
idx_RDX_ARTVENNUMVAR = 5;
|
|
idx_RDX_ARTVENCODPRO = 6;
|
|
idx_RDX_ARTVENDESARTCO = 7;
|
|
idx_RDX_ARTVENDESART = 8;
|
|
idx_RDX_ARTVENNUMCON = 9;
|
|
idx_RDX_ARTVENNUMLIS = 10;
|
|
idx_RDX_ARTVENCONESP1 = 11;
|
|
idx_RDX_ARTVENCONESP2 = 12;
|
|
idx_RDX_ARTVENCONESP3 = 13;
|
|
idx_RDX_ARTVENVALVEN = 14;
|
|
idx_RDX_ARTVENPRENETCT = 15;
|
|
idx_RDX_ARTVENPREBRUCT = 16;
|
|
idx_RDX_ARTVENPREINFET = 17;
|
|
idx_RDX_ARTVENPREINFFT = 18;
|
|
idx_RDX_ARTVENPRECALCT = 19;
|
|
idx_RDX_ARTVENPRENETCA = 20;
|
|
idx_RDX_ARTVENPREBRUCA = 21;
|
|
idx_RDX_ARTVENPREINFEA = 22;
|
|
idx_RDX_ARTVENPREINFFA = 23;
|
|
idx_RDX_ARTVENPRECALCA = 24;
|
|
idx_RDX_ARTVENBAPRUN1 = 25;
|
|
idx_RDX_ARTVENUNIMED1 = 26;
|
|
idx_RDX_ARTVENBAPRUN2 = 27;
|
|
idx_RDX_ARTVENUNIMED2 = 28;
|
|
idx_RDX_ARTVENBAPRUN3 = 29;
|
|
idx_RDX_ARTVENUNIMED3 = 30;
|
|
idx_RDX_ARTVENBAPRUN4 = 31;
|
|
idx_RDX_ARTVENUNIMED4 = 32;
|
|
idx_RDX_ARTVENBAPRUN5 = 33;
|
|
idx_RDX_ARTVENUNIMED5 = 34;
|
|
idx_RDX_ARTVENCANVEN = 35;
|
|
idx_RDX_ARTVENEXIPRO = 36;
|
|
idx_RDX_ARTVENDESEXI = 37;
|
|
idx_RDX_ARTVENESPMEDCV = 38;
|
|
idx_RDX_ARTVENESPMEDEP = 39;
|
|
idx_RDX_ARTVENESPMEDDE = 40;
|
|
idx_RDX_ARTVENCANDEV = 41;
|
|
idx_RDX_ARTVENEANVEN = 42;
|
|
idx_RDX_ARTVENNOMVEN = 43;
|
|
idx_RDX_ARTVENNUMTALON = 44;
|
|
idx_RDX_ARTVENCANVENNET = 45;
|
|
idx_RDX_ARTVENUMEDVENNET = 46;
|
|
idx_RDX_ARTVENCANESP = 47;
|
|
idx_RDX_ARTVENUMEDESP = 48;
|
|
|
|
{ RDX_CABVEN fields }
|
|
fld_RDX_CABVENCLAVE1 = 'CLAVE1';
|
|
fld_RDX_CABVENNUMINF = 'NUMINF';
|
|
fld_RDX_CABVENFUNCION = 'FUNCION';
|
|
fld_RDX_CABVENFECINI = 'FECINI';
|
|
fld_RDX_CABVENFECFIN = 'FECFIN';
|
|
fld_RDX_CABVENFECINF = 'FECINF';
|
|
fld_RDX_CABVENPERVENINI = 'PERVENINI';
|
|
fld_RDX_CABVENPERVENFIN = 'PERVENFIN';
|
|
fld_RDX_CABVENEANOFI = 'EANOFI';
|
|
fld_RDX_CABVENEANEMI = 'EANEMI';
|
|
fld_RDX_CABVENEANREC = 'EANREC';
|
|
fld_RDX_CABVENEANVEN = 'EANVEN';
|
|
fld_RDX_CABVENEANALM = 'EANALM';
|
|
fld_RDX_CABVENEANREP = 'EANREP';
|
|
fld_RDX_CABVENEANPRO = 'EANPRO';
|
|
fld_RDX_CABVENEANADMSA = 'EANADMSA';
|
|
fld_RDX_CABVENEANREPSR = 'EANREPSR';
|
|
fld_RDX_CABVENADMVENSA = 'ADMVENSA';
|
|
fld_RDX_CABVENREPDEPSR = 'REPDEPSR';
|
|
fld_RDX_CABVENEMAILSA = 'EMAILSA';
|
|
fld_RDX_CABVENNUMFAXSA = 'NUMFAXSA';
|
|
fld_RDX_CABVENNUMTELSA = 'NUMTELSA';
|
|
fld_RDX_CABVENNUMTLXSA = 'NUMTLXSA';
|
|
fld_RDX_CABVENX400SA = 'X400SA';
|
|
fld_RDX_CABVENEMAILSR = 'EMAILSR';
|
|
fld_RDX_CABVENNUMFAXSR = 'NUMFAXSR';
|
|
fld_RDX_CABVENNUMTELSR = 'NUMTELSR';
|
|
fld_RDX_CABVENNUMTLXSR = 'NUMTLXSR';
|
|
fld_RDX_CABVENX400SR = 'X400SR';
|
|
fld_RDX_CABVENNUMPRE = 'NUMPRE';
|
|
fld_RDX_CABVENNUMINFSC = 'NUMINFSC';
|
|
fld_RDX_CABVENNUMCON = 'NUMCON';
|
|
fld_RDX_CABVENFECPRE = 'FECPRE';
|
|
fld_RDX_CABVENFECINFSC = 'FECINFSC';
|
|
fld_RDX_CABVENFECCON = 'FECCON';
|
|
fld_RDX_CABVENDIVPED = 'DIVPED';
|
|
fld_RDX_CABVENDIVPRE = 'DIVPRE';
|
|
fld_RDX_CABVENDIVPAG = 'DIVPAG';
|
|
fld_RDX_CABVENDIVPEDF = 'DIVPEDF';
|
|
fld_RDX_CABVENDIVPREF = 'DIVPREF';
|
|
fld_RDX_CABVENDIVPAGF = 'DIVPAGF';
|
|
fld_RDX_CABVENTASCAM = 'TASCAM';
|
|
fld_RDX_CABVENFECTAS = 'FECTAS';
|
|
|
|
{ RDX_CABVEN field indexes }
|
|
idx_RDX_CABVENCLAVE1 = 0;
|
|
idx_RDX_CABVENNUMINF = 1;
|
|
idx_RDX_CABVENFUNCION = 2;
|
|
idx_RDX_CABVENFECINI = 3;
|
|
idx_RDX_CABVENFECFIN = 4;
|
|
idx_RDX_CABVENFECINF = 5;
|
|
idx_RDX_CABVENPERVENINI = 6;
|
|
idx_RDX_CABVENPERVENFIN = 7;
|
|
idx_RDX_CABVENEANOFI = 8;
|
|
idx_RDX_CABVENEANEMI = 9;
|
|
idx_RDX_CABVENEANREC = 10;
|
|
idx_RDX_CABVENEANVEN = 11;
|
|
idx_RDX_CABVENEANALM = 12;
|
|
idx_RDX_CABVENEANREP = 13;
|
|
idx_RDX_CABVENEANPRO = 14;
|
|
idx_RDX_CABVENEANADMSA = 15;
|
|
idx_RDX_CABVENEANREPSR = 16;
|
|
idx_RDX_CABVENADMVENSA = 17;
|
|
idx_RDX_CABVENREPDEPSR = 18;
|
|
idx_RDX_CABVENEMAILSA = 19;
|
|
idx_RDX_CABVENNUMFAXSA = 20;
|
|
idx_RDX_CABVENNUMTELSA = 21;
|
|
idx_RDX_CABVENNUMTLXSA = 22;
|
|
idx_RDX_CABVENX400SA = 23;
|
|
idx_RDX_CABVENEMAILSR = 24;
|
|
idx_RDX_CABVENNUMFAXSR = 25;
|
|
idx_RDX_CABVENNUMTELSR = 26;
|
|
idx_RDX_CABVENNUMTLXSR = 27;
|
|
idx_RDX_CABVENX400SR = 28;
|
|
idx_RDX_CABVENNUMPRE = 29;
|
|
idx_RDX_CABVENNUMINFSC = 30;
|
|
idx_RDX_CABVENNUMCON = 31;
|
|
idx_RDX_CABVENFECPRE = 32;
|
|
idx_RDX_CABVENFECINFSC = 33;
|
|
idx_RDX_CABVENFECCON = 34;
|
|
idx_RDX_CABVENDIVPED = 35;
|
|
idx_RDX_CABVENDIVPRE = 36;
|
|
idx_RDX_CABVENDIVPAG = 37;
|
|
idx_RDX_CABVENDIVPEDF = 38;
|
|
idx_RDX_CABVENDIVPREF = 39;
|
|
idx_RDX_CABVENDIVPAGF = 40;
|
|
idx_RDX_CABVENTASCAM = 41;
|
|
idx_RDX_CABVENFECTAS = 42;
|
|
|
|
{ RDX_LUGVEN fields }
|
|
fld_RDX_LUGVENCLAVE1 = 'CLAVE1';
|
|
fld_RDX_LUGVENCLAVE2 = 'CLAVE2';
|
|
fld_RDX_LUGVENEANLUG = 'EANLUG';
|
|
fld_RDX_LUGVENLUGVEN = 'LUGVEN';
|
|
fld_RDX_LUGVENFECINI = 'FECINI';
|
|
fld_RDX_LUGVENFECFIN = 'FECFIN';
|
|
fld_RDX_LUGVENPERVENINI = 'PERVENINI';
|
|
fld_RDX_LUGVENPERVENFIN = 'PERVENFIN';
|
|
|
|
{ RDX_LUGVEN field indexes }
|
|
idx_RDX_LUGVENCLAVE1 = 0;
|
|
idx_RDX_LUGVENCLAVE2 = 1;
|
|
idx_RDX_LUGVENEANLUG = 2;
|
|
idx_RDX_LUGVENLUGVEN = 3;
|
|
idx_RDX_LUGVENFECINI = 4;
|
|
idx_RDX_LUGVENFECFIN = 5;
|
|
idx_RDX_LUGVENPERVENINI = 6;
|
|
idx_RDX_LUGVENPERVENFIN = 7;
|
|
|
|
type
|
|
{ IRDX_ARTVEN }
|
|
IRDX_ARTVEN = interface(IDAStronglyTypedDataTable)
|
|
['{9EC1A018-B12C-49B8-A8D7-852A5453C9B0}']
|
|
{ Property getters and setters }
|
|
function GetCLAVE1Value: Float;
|
|
procedure SetCLAVE1Value(const aValue: Float);
|
|
function GetCLAVE2Value: Float;
|
|
procedure SetCLAVE2Value(const aValue: Float);
|
|
function GetCLAVE3Value: Float;
|
|
procedure SetCLAVE3Value(const aValue: Float);
|
|
function GetEANARTValue: String;
|
|
procedure SetEANARTValue(const aValue: String);
|
|
function GetCODCOMValue: String;
|
|
procedure SetCODCOMValue(const aValue: String);
|
|
function GetNUMVARValue: String;
|
|
procedure SetNUMVARValue(const aValue: String);
|
|
function GetCODPROValue: String;
|
|
procedure SetCODPROValue(const aValue: String);
|
|
function GetDESARTCOValue: String;
|
|
procedure SetDESARTCOValue(const aValue: String);
|
|
function GetDESARTValue: String;
|
|
procedure SetDESARTValue(const aValue: String);
|
|
function GetNUMCONValue: String;
|
|
procedure SetNUMCONValue(const aValue: String);
|
|
function GetNUMLISValue: String;
|
|
procedure SetNUMLISValue(const aValue: String);
|
|
function GetCONESP1Value: String;
|
|
procedure SetCONESP1Value(const aValue: String);
|
|
function GetCONESP2Value: String;
|
|
procedure SetCONESP2Value(const aValue: String);
|
|
function GetCONESP3Value: String;
|
|
procedure SetCONESP3Value(const aValue: String);
|
|
function GetVALVENValue: Float;
|
|
procedure SetVALVENValue(const aValue: Float);
|
|
function GetPRENETCTValue: Float;
|
|
procedure SetPRENETCTValue(const aValue: Float);
|
|
function GetPREBRUCTValue: Float;
|
|
procedure SetPREBRUCTValue(const aValue: Float);
|
|
function GetPREINFETValue: Float;
|
|
procedure SetPREINFETValue(const aValue: Float);
|
|
function GetPREINFFTValue: Float;
|
|
procedure SetPREINFFTValue(const aValue: Float);
|
|
function GetPRECALCTValue: Float;
|
|
procedure SetPRECALCTValue(const aValue: Float);
|
|
function GetPRENETCAValue: Float;
|
|
procedure SetPRENETCAValue(const aValue: Float);
|
|
function GetPREBRUCAValue: Float;
|
|
procedure SetPREBRUCAValue(const aValue: Float);
|
|
function GetPREINFEAValue: Float;
|
|
procedure SetPREINFEAValue(const aValue: Float);
|
|
function GetPREINFFAValue: Float;
|
|
procedure SetPREINFFAValue(const aValue: Float);
|
|
function GetPRECALCAValue: Float;
|
|
procedure SetPRECALCAValue(const aValue: Float);
|
|
function GetBAPRUN1Value: Float;
|
|
procedure SetBAPRUN1Value(const aValue: Float);
|
|
function GetUNIMED1Value: String;
|
|
procedure SetUNIMED1Value(const aValue: String);
|
|
function GetBAPRUN2Value: Float;
|
|
procedure SetBAPRUN2Value(const aValue: Float);
|
|
function GetUNIMED2Value: String;
|
|
procedure SetUNIMED2Value(const aValue: String);
|
|
function GetBAPRUN3Value: Float;
|
|
procedure SetBAPRUN3Value(const aValue: Float);
|
|
function GetUNIMED3Value: String;
|
|
procedure SetUNIMED3Value(const aValue: String);
|
|
function GetBAPRUN4Value: Float;
|
|
procedure SetBAPRUN4Value(const aValue: Float);
|
|
function GetUNIMED4Value: String;
|
|
procedure SetUNIMED4Value(const aValue: String);
|
|
function GetBAPRUN5Value: Float;
|
|
procedure SetBAPRUN5Value(const aValue: Float);
|
|
function GetUNIMED5Value: String;
|
|
procedure SetUNIMED5Value(const aValue: String);
|
|
function GetCANVENValue: Float;
|
|
procedure SetCANVENValue(const aValue: Float);
|
|
function GetEXIPROValue: Float;
|
|
procedure SetEXIPROValue(const aValue: Float);
|
|
function GetDESEXIValue: Float;
|
|
procedure SetDESEXIValue(const aValue: Float);
|
|
function GetESPMEDCVValue: String;
|
|
procedure SetESPMEDCVValue(const aValue: String);
|
|
function GetESPMEDEPValue: String;
|
|
procedure SetESPMEDEPValue(const aValue: String);
|
|
function GetESPMEDDEValue: String;
|
|
procedure SetESPMEDDEValue(const aValue: String);
|
|
function GetCANDEVValue: Float;
|
|
procedure SetCANDEVValue(const aValue: Float);
|
|
function GetEANVENValue: String;
|
|
procedure SetEANVENValue(const aValue: String);
|
|
function GetNOMVENValue: String;
|
|
procedure SetNOMVENValue(const aValue: String);
|
|
function GetNUMTALONValue: String;
|
|
procedure SetNUMTALONValue(const aValue: String);
|
|
function GetCANVENNETValue: Float;
|
|
procedure SetCANVENNETValue(const aValue: Float);
|
|
function GetUMEDVENNETValue: String;
|
|
procedure SetUMEDVENNETValue(const aValue: String);
|
|
function GetCANESPValue: Float;
|
|
procedure SetCANESPValue(const aValue: Float);
|
|
function GetUMEDESPValue: String;
|
|
procedure SetUMEDESPValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value;
|
|
property CLAVE2: Float read GetCLAVE2Value write SetCLAVE2Value;
|
|
property CLAVE3: Float read GetCLAVE3Value write SetCLAVE3Value;
|
|
property EANART: String read GetEANARTValue write SetEANARTValue;
|
|
property CODCOM: String read GetCODCOMValue write SetCODCOMValue;
|
|
property NUMVAR: String read GetNUMVARValue write SetNUMVARValue;
|
|
property CODPRO: String read GetCODPROValue write SetCODPROValue;
|
|
property DESARTCO: String read GetDESARTCOValue write SetDESARTCOValue;
|
|
property DESART: String read GetDESARTValue write SetDESARTValue;
|
|
property NUMCON: String read GetNUMCONValue write SetNUMCONValue;
|
|
property NUMLIS: String read GetNUMLISValue write SetNUMLISValue;
|
|
property CONESP1: String read GetCONESP1Value write SetCONESP1Value;
|
|
property CONESP2: String read GetCONESP2Value write SetCONESP2Value;
|
|
property CONESP3: String read GetCONESP3Value write SetCONESP3Value;
|
|
property VALVEN: Float read GetVALVENValue write SetVALVENValue;
|
|
property PRENETCT: Float read GetPRENETCTValue write SetPRENETCTValue;
|
|
property PREBRUCT: Float read GetPREBRUCTValue write SetPREBRUCTValue;
|
|
property PREINFET: Float read GetPREINFETValue write SetPREINFETValue;
|
|
property PREINFFT: Float read GetPREINFFTValue write SetPREINFFTValue;
|
|
property PRECALCT: Float read GetPRECALCTValue write SetPRECALCTValue;
|
|
property PRENETCA: Float read GetPRENETCAValue write SetPRENETCAValue;
|
|
property PREBRUCA: Float read GetPREBRUCAValue write SetPREBRUCAValue;
|
|
property PREINFEA: Float read GetPREINFEAValue write SetPREINFEAValue;
|
|
property PREINFFA: Float read GetPREINFFAValue write SetPREINFFAValue;
|
|
property PRECALCA: Float read GetPRECALCAValue write SetPRECALCAValue;
|
|
property BAPRUN1: Float read GetBAPRUN1Value write SetBAPRUN1Value;
|
|
property UNIMED1: String read GetUNIMED1Value write SetUNIMED1Value;
|
|
property BAPRUN2: Float read GetBAPRUN2Value write SetBAPRUN2Value;
|
|
property UNIMED2: String read GetUNIMED2Value write SetUNIMED2Value;
|
|
property BAPRUN3: Float read GetBAPRUN3Value write SetBAPRUN3Value;
|
|
property UNIMED3: String read GetUNIMED3Value write SetUNIMED3Value;
|
|
property BAPRUN4: Float read GetBAPRUN4Value write SetBAPRUN4Value;
|
|
property UNIMED4: String read GetUNIMED4Value write SetUNIMED4Value;
|
|
property BAPRUN5: Float read GetBAPRUN5Value write SetBAPRUN5Value;
|
|
property UNIMED5: String read GetUNIMED5Value write SetUNIMED5Value;
|
|
property CANVEN: Float read GetCANVENValue write SetCANVENValue;
|
|
property EXIPRO: Float read GetEXIPROValue write SetEXIPROValue;
|
|
property DESEXI: Float read GetDESEXIValue write SetDESEXIValue;
|
|
property ESPMEDCV: String read GetESPMEDCVValue write SetESPMEDCVValue;
|
|
property ESPMEDEP: String read GetESPMEDEPValue write SetESPMEDEPValue;
|
|
property ESPMEDDE: String read GetESPMEDDEValue write SetESPMEDDEValue;
|
|
property CANDEV: Float read GetCANDEVValue write SetCANDEVValue;
|
|
property EANVEN: String read GetEANVENValue write SetEANVENValue;
|
|
property NOMVEN: String read GetNOMVENValue write SetNOMVENValue;
|
|
property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue;
|
|
property CANVENNET: Float read GetCANVENNETValue write SetCANVENNETValue;
|
|
property UMEDVENNET: String read GetUMEDVENNETValue write SetUMEDVENNETValue;
|
|
property CANESP: Float read GetCANESPValue write SetCANESPValue;
|
|
property UMEDESP: String read GetUMEDESPValue write SetUMEDESPValue;
|
|
end;
|
|
|
|
{ TRDX_ARTVENDataTableRules }
|
|
TRDX_ARTVENDataTableRules = class(TDADataTableRules, IRDX_ARTVEN)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCLAVE1Value: Float; virtual;
|
|
procedure SetCLAVE1Value(const aValue: Float); virtual;
|
|
function GetCLAVE2Value: Float; virtual;
|
|
procedure SetCLAVE2Value(const aValue: Float); virtual;
|
|
function GetCLAVE3Value: Float; virtual;
|
|
procedure SetCLAVE3Value(const aValue: Float); virtual;
|
|
function GetEANARTValue: String; virtual;
|
|
procedure SetEANARTValue(const aValue: String); virtual;
|
|
function GetCODCOMValue: String; virtual;
|
|
procedure SetCODCOMValue(const aValue: String); virtual;
|
|
function GetNUMVARValue: String; virtual;
|
|
procedure SetNUMVARValue(const aValue: String); virtual;
|
|
function GetCODPROValue: String; virtual;
|
|
procedure SetCODPROValue(const aValue: String); virtual;
|
|
function GetDESARTCOValue: String; virtual;
|
|
procedure SetDESARTCOValue(const aValue: String); virtual;
|
|
function GetDESARTValue: String; virtual;
|
|
procedure SetDESARTValue(const aValue: String); virtual;
|
|
function GetNUMCONValue: String; virtual;
|
|
procedure SetNUMCONValue(const aValue: String); virtual;
|
|
function GetNUMLISValue: String; virtual;
|
|
procedure SetNUMLISValue(const aValue: String); virtual;
|
|
function GetCONESP1Value: String; virtual;
|
|
procedure SetCONESP1Value(const aValue: String); virtual;
|
|
function GetCONESP2Value: String; virtual;
|
|
procedure SetCONESP2Value(const aValue: String); virtual;
|
|
function GetCONESP3Value: String; virtual;
|
|
procedure SetCONESP3Value(const aValue: String); virtual;
|
|
function GetVALVENValue: Float; virtual;
|
|
procedure SetVALVENValue(const aValue: Float); virtual;
|
|
function GetPRENETCTValue: Float; virtual;
|
|
procedure SetPRENETCTValue(const aValue: Float); virtual;
|
|
function GetPREBRUCTValue: Float; virtual;
|
|
procedure SetPREBRUCTValue(const aValue: Float); virtual;
|
|
function GetPREINFETValue: Float; virtual;
|
|
procedure SetPREINFETValue(const aValue: Float); virtual;
|
|
function GetPREINFFTValue: Float; virtual;
|
|
procedure SetPREINFFTValue(const aValue: Float); virtual;
|
|
function GetPRECALCTValue: Float; virtual;
|
|
procedure SetPRECALCTValue(const aValue: Float); virtual;
|
|
function GetPRENETCAValue: Float; virtual;
|
|
procedure SetPRENETCAValue(const aValue: Float); virtual;
|
|
function GetPREBRUCAValue: Float; virtual;
|
|
procedure SetPREBRUCAValue(const aValue: Float); virtual;
|
|
function GetPREINFEAValue: Float; virtual;
|
|
procedure SetPREINFEAValue(const aValue: Float); virtual;
|
|
function GetPREINFFAValue: Float; virtual;
|
|
procedure SetPREINFFAValue(const aValue: Float); virtual;
|
|
function GetPRECALCAValue: Float; virtual;
|
|
procedure SetPRECALCAValue(const aValue: Float); virtual;
|
|
function GetBAPRUN1Value: Float; virtual;
|
|
procedure SetBAPRUN1Value(const aValue: Float); virtual;
|
|
function GetUNIMED1Value: String; virtual;
|
|
procedure SetUNIMED1Value(const aValue: String); virtual;
|
|
function GetBAPRUN2Value: Float; virtual;
|
|
procedure SetBAPRUN2Value(const aValue: Float); virtual;
|
|
function GetUNIMED2Value: String; virtual;
|
|
procedure SetUNIMED2Value(const aValue: String); virtual;
|
|
function GetBAPRUN3Value: Float; virtual;
|
|
procedure SetBAPRUN3Value(const aValue: Float); virtual;
|
|
function GetUNIMED3Value: String; virtual;
|
|
procedure SetUNIMED3Value(const aValue: String); virtual;
|
|
function GetBAPRUN4Value: Float; virtual;
|
|
procedure SetBAPRUN4Value(const aValue: Float); virtual;
|
|
function GetUNIMED4Value: String; virtual;
|
|
procedure SetUNIMED4Value(const aValue: String); virtual;
|
|
function GetBAPRUN5Value: Float; virtual;
|
|
procedure SetBAPRUN5Value(const aValue: Float); virtual;
|
|
function GetUNIMED5Value: String; virtual;
|
|
procedure SetUNIMED5Value(const aValue: String); virtual;
|
|
function GetCANVENValue: Float; virtual;
|
|
procedure SetCANVENValue(const aValue: Float); virtual;
|
|
function GetEXIPROValue: Float; virtual;
|
|
procedure SetEXIPROValue(const aValue: Float); virtual;
|
|
function GetDESEXIValue: Float; virtual;
|
|
procedure SetDESEXIValue(const aValue: Float); virtual;
|
|
function GetESPMEDCVValue: String; virtual;
|
|
procedure SetESPMEDCVValue(const aValue: String); virtual;
|
|
function GetESPMEDEPValue: String; virtual;
|
|
procedure SetESPMEDEPValue(const aValue: String); virtual;
|
|
function GetESPMEDDEValue: String; virtual;
|
|
procedure SetESPMEDDEValue(const aValue: String); virtual;
|
|
function GetCANDEVValue: Float; virtual;
|
|
procedure SetCANDEVValue(const aValue: Float); virtual;
|
|
function GetEANVENValue: String; virtual;
|
|
procedure SetEANVENValue(const aValue: String); virtual;
|
|
function GetNOMVENValue: String; virtual;
|
|
procedure SetNOMVENValue(const aValue: String); virtual;
|
|
function GetNUMTALONValue: String; virtual;
|
|
procedure SetNUMTALONValue(const aValue: String); virtual;
|
|
function GetCANVENNETValue: Float; virtual;
|
|
procedure SetCANVENNETValue(const aValue: Float); virtual;
|
|
function GetUMEDVENNETValue: String; virtual;
|
|
procedure SetUMEDVENNETValue(const aValue: String); virtual;
|
|
function GetCANESPValue: Float; virtual;
|
|
procedure SetCANESPValue(const aValue: Float); virtual;
|
|
function GetUMEDESPValue: String; virtual;
|
|
procedure SetUMEDESPValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value;
|
|
property CLAVE2: Float read GetCLAVE2Value write SetCLAVE2Value;
|
|
property CLAVE3: Float read GetCLAVE3Value write SetCLAVE3Value;
|
|
property EANART: String read GetEANARTValue write SetEANARTValue;
|
|
property CODCOM: String read GetCODCOMValue write SetCODCOMValue;
|
|
property NUMVAR: String read GetNUMVARValue write SetNUMVARValue;
|
|
property CODPRO: String read GetCODPROValue write SetCODPROValue;
|
|
property DESARTCO: String read GetDESARTCOValue write SetDESARTCOValue;
|
|
property DESART: String read GetDESARTValue write SetDESARTValue;
|
|
property NUMCON: String read GetNUMCONValue write SetNUMCONValue;
|
|
property NUMLIS: String read GetNUMLISValue write SetNUMLISValue;
|
|
property CONESP1: String read GetCONESP1Value write SetCONESP1Value;
|
|
property CONESP2: String read GetCONESP2Value write SetCONESP2Value;
|
|
property CONESP3: String read GetCONESP3Value write SetCONESP3Value;
|
|
property VALVEN: Float read GetVALVENValue write SetVALVENValue;
|
|
property PRENETCT: Float read GetPRENETCTValue write SetPRENETCTValue;
|
|
property PREBRUCT: Float read GetPREBRUCTValue write SetPREBRUCTValue;
|
|
property PREINFET: Float read GetPREINFETValue write SetPREINFETValue;
|
|
property PREINFFT: Float read GetPREINFFTValue write SetPREINFFTValue;
|
|
property PRECALCT: Float read GetPRECALCTValue write SetPRECALCTValue;
|
|
property PRENETCA: Float read GetPRENETCAValue write SetPRENETCAValue;
|
|
property PREBRUCA: Float read GetPREBRUCAValue write SetPREBRUCAValue;
|
|
property PREINFEA: Float read GetPREINFEAValue write SetPREINFEAValue;
|
|
property PREINFFA: Float read GetPREINFFAValue write SetPREINFFAValue;
|
|
property PRECALCA: Float read GetPRECALCAValue write SetPRECALCAValue;
|
|
property BAPRUN1: Float read GetBAPRUN1Value write SetBAPRUN1Value;
|
|
property UNIMED1: String read GetUNIMED1Value write SetUNIMED1Value;
|
|
property BAPRUN2: Float read GetBAPRUN2Value write SetBAPRUN2Value;
|
|
property UNIMED2: String read GetUNIMED2Value write SetUNIMED2Value;
|
|
property BAPRUN3: Float read GetBAPRUN3Value write SetBAPRUN3Value;
|
|
property UNIMED3: String read GetUNIMED3Value write SetUNIMED3Value;
|
|
property BAPRUN4: Float read GetBAPRUN4Value write SetBAPRUN4Value;
|
|
property UNIMED4: String read GetUNIMED4Value write SetUNIMED4Value;
|
|
property BAPRUN5: Float read GetBAPRUN5Value write SetBAPRUN5Value;
|
|
property UNIMED5: String read GetUNIMED5Value write SetUNIMED5Value;
|
|
property CANVEN: Float read GetCANVENValue write SetCANVENValue;
|
|
property EXIPRO: Float read GetEXIPROValue write SetEXIPROValue;
|
|
property DESEXI: Float read GetDESEXIValue write SetDESEXIValue;
|
|
property ESPMEDCV: String read GetESPMEDCVValue write SetESPMEDCVValue;
|
|
property ESPMEDEP: String read GetESPMEDEPValue write SetESPMEDEPValue;
|
|
property ESPMEDDE: String read GetESPMEDDEValue write SetESPMEDDEValue;
|
|
property CANDEV: Float read GetCANDEVValue write SetCANDEVValue;
|
|
property EANVEN: String read GetEANVENValue write SetEANVENValue;
|
|
property NOMVEN: String read GetNOMVENValue write SetNOMVENValue;
|
|
property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue;
|
|
property CANVENNET: Float read GetCANVENNETValue write SetCANVENNETValue;
|
|
property UMEDVENNET: String read GetUMEDVENNETValue write SetUMEDVENNETValue;
|
|
property CANESP: Float read GetCANESPValue write SetCANESPValue;
|
|
property UMEDESP: String read GetUMEDESPValue write SetUMEDESPValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRDX_CABVEN }
|
|
IRDX_CABVEN = interface(IDAStronglyTypedDataTable)
|
|
['{5180F5AB-5BAF-4C8C-80F8-498D0D1252B5}']
|
|
{ Property getters and setters }
|
|
function GetCLAVE1Value: Float;
|
|
procedure SetCLAVE1Value(const aValue: Float);
|
|
function GetNUMINFValue: String;
|
|
procedure SetNUMINFValue(const aValue: String);
|
|
function GetFUNCIONValue: String;
|
|
procedure SetFUNCIONValue(const aValue: String);
|
|
function GetFECINIValue: DateTime;
|
|
procedure SetFECINIValue(const aValue: DateTime);
|
|
function GetFECFINValue: DateTime;
|
|
procedure SetFECFINValue(const aValue: DateTime);
|
|
function GetFECINFValue: DateTime;
|
|
procedure SetFECINFValue(const aValue: DateTime);
|
|
function GetPERVENINIValue: DateTime;
|
|
procedure SetPERVENINIValue(const aValue: DateTime);
|
|
function GetPERVENFINValue: DateTime;
|
|
procedure SetPERVENFINValue(const aValue: DateTime);
|
|
function GetEANOFIValue: String;
|
|
procedure SetEANOFIValue(const aValue: String);
|
|
function GetEANEMIValue: String;
|
|
procedure SetEANEMIValue(const aValue: String);
|
|
function GetEANRECValue: String;
|
|
procedure SetEANRECValue(const aValue: String);
|
|
function GetEANVENValue: String;
|
|
procedure SetEANVENValue(const aValue: String);
|
|
function GetEANALMValue: String;
|
|
procedure SetEANALMValue(const aValue: String);
|
|
function GetEANREPValue: String;
|
|
procedure SetEANREPValue(const aValue: String);
|
|
function GetEANPROValue: String;
|
|
procedure SetEANPROValue(const aValue: String);
|
|
function GetEANADMSAValue: String;
|
|
procedure SetEANADMSAValue(const aValue: String);
|
|
function GetEANREPSRValue: String;
|
|
procedure SetEANREPSRValue(const aValue: String);
|
|
function GetADMVENSAValue: String;
|
|
procedure SetADMVENSAValue(const aValue: String);
|
|
function GetREPDEPSRValue: String;
|
|
procedure SetREPDEPSRValue(const aValue: String);
|
|
function GetEMAILSAValue: String;
|
|
procedure SetEMAILSAValue(const aValue: String);
|
|
function GetNUMFAXSAValue: String;
|
|
procedure SetNUMFAXSAValue(const aValue: String);
|
|
function GetNUMTELSAValue: String;
|
|
procedure SetNUMTELSAValue(const aValue: String);
|
|
function GetNUMTLXSAValue: String;
|
|
procedure SetNUMTLXSAValue(const aValue: String);
|
|
function GetX400SAValue: String;
|
|
procedure SetX400SAValue(const aValue: String);
|
|
function GetEMAILSRValue: String;
|
|
procedure SetEMAILSRValue(const aValue: String);
|
|
function GetNUMFAXSRValue: String;
|
|
procedure SetNUMFAXSRValue(const aValue: String);
|
|
function GetNUMTELSRValue: String;
|
|
procedure SetNUMTELSRValue(const aValue: String);
|
|
function GetNUMTLXSRValue: String;
|
|
procedure SetNUMTLXSRValue(const aValue: String);
|
|
function GetX400SRValue: String;
|
|
procedure SetX400SRValue(const aValue: String);
|
|
function GetNUMPREValue: String;
|
|
procedure SetNUMPREValue(const aValue: String);
|
|
function GetNUMINFSCValue: String;
|
|
procedure SetNUMINFSCValue(const aValue: String);
|
|
function GetNUMCONValue: String;
|
|
procedure SetNUMCONValue(const aValue: String);
|
|
function GetFECPREValue: DateTime;
|
|
procedure SetFECPREValue(const aValue: DateTime);
|
|
function GetFECINFSCValue: DateTime;
|
|
procedure SetFECINFSCValue(const aValue: DateTime);
|
|
function GetFECCONValue: DateTime;
|
|
procedure SetFECCONValue(const aValue: DateTime);
|
|
function GetDIVPEDValue: String;
|
|
procedure SetDIVPEDValue(const aValue: String);
|
|
function GetDIVPREValue: String;
|
|
procedure SetDIVPREValue(const aValue: String);
|
|
function GetDIVPAGValue: String;
|
|
procedure SetDIVPAGValue(const aValue: String);
|
|
function GetDIVPEDFValue: String;
|
|
procedure SetDIVPEDFValue(const aValue: String);
|
|
function GetDIVPREFValue: String;
|
|
procedure SetDIVPREFValue(const aValue: String);
|
|
function GetDIVPAGFValue: String;
|
|
procedure SetDIVPAGFValue(const aValue: String);
|
|
function GetTASCAMValue: Float;
|
|
procedure SetTASCAMValue(const aValue: Float);
|
|
function GetFECTASValue: DateTime;
|
|
procedure SetFECTASValue(const aValue: DateTime);
|
|
|
|
|
|
{ Properties }
|
|
property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value;
|
|
property NUMINF: String read GetNUMINFValue write SetNUMINFValue;
|
|
property FUNCION: String read GetFUNCIONValue write SetFUNCIONValue;
|
|
property FECINI: DateTime read GetFECINIValue write SetFECINIValue;
|
|
property FECFIN: DateTime read GetFECFINValue write SetFECFINValue;
|
|
property FECINF: DateTime read GetFECINFValue write SetFECINFValue;
|
|
property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue;
|
|
property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue;
|
|
property EANOFI: String read GetEANOFIValue write SetEANOFIValue;
|
|
property EANEMI: String read GetEANEMIValue write SetEANEMIValue;
|
|
property EANREC: String read GetEANRECValue write SetEANRECValue;
|
|
property EANVEN: String read GetEANVENValue write SetEANVENValue;
|
|
property EANALM: String read GetEANALMValue write SetEANALMValue;
|
|
property EANREP: String read GetEANREPValue write SetEANREPValue;
|
|
property EANPRO: String read GetEANPROValue write SetEANPROValue;
|
|
property EANADMSA: String read GetEANADMSAValue write SetEANADMSAValue;
|
|
property EANREPSR: String read GetEANREPSRValue write SetEANREPSRValue;
|
|
property ADMVENSA: String read GetADMVENSAValue write SetADMVENSAValue;
|
|
property REPDEPSR: String read GetREPDEPSRValue write SetREPDEPSRValue;
|
|
property EMAILSA: String read GetEMAILSAValue write SetEMAILSAValue;
|
|
property NUMFAXSA: String read GetNUMFAXSAValue write SetNUMFAXSAValue;
|
|
property NUMTELSA: String read GetNUMTELSAValue write SetNUMTELSAValue;
|
|
property NUMTLXSA: String read GetNUMTLXSAValue write SetNUMTLXSAValue;
|
|
property X400SA: String read GetX400SAValue write SetX400SAValue;
|
|
property EMAILSR: String read GetEMAILSRValue write SetEMAILSRValue;
|
|
property NUMFAXSR: String read GetNUMFAXSRValue write SetNUMFAXSRValue;
|
|
property NUMTELSR: String read GetNUMTELSRValue write SetNUMTELSRValue;
|
|
property NUMTLXSR: String read GetNUMTLXSRValue write SetNUMTLXSRValue;
|
|
property X400SR: String read GetX400SRValue write SetX400SRValue;
|
|
property NUMPRE: String read GetNUMPREValue write SetNUMPREValue;
|
|
property NUMINFSC: String read GetNUMINFSCValue write SetNUMINFSCValue;
|
|
property NUMCON: String read GetNUMCONValue write SetNUMCONValue;
|
|
property FECPRE: DateTime read GetFECPREValue write SetFECPREValue;
|
|
property FECINFSC: DateTime read GetFECINFSCValue write SetFECINFSCValue;
|
|
property FECCON: DateTime read GetFECCONValue write SetFECCONValue;
|
|
property DIVPED: String read GetDIVPEDValue write SetDIVPEDValue;
|
|
property DIVPRE: String read GetDIVPREValue write SetDIVPREValue;
|
|
property DIVPAG: String read GetDIVPAGValue write SetDIVPAGValue;
|
|
property DIVPEDF: String read GetDIVPEDFValue write SetDIVPEDFValue;
|
|
property DIVPREF: String read GetDIVPREFValue write SetDIVPREFValue;
|
|
property DIVPAGF: String read GetDIVPAGFValue write SetDIVPAGFValue;
|
|
property TASCAM: Float read GetTASCAMValue write SetTASCAMValue;
|
|
property FECTAS: DateTime read GetFECTASValue write SetFECTASValue;
|
|
end;
|
|
|
|
{ TRDX_CABVENDataTableRules }
|
|
TRDX_CABVENDataTableRules = class(TDADataTableRules, IRDX_CABVEN)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCLAVE1Value: Float; virtual;
|
|
procedure SetCLAVE1Value(const aValue: Float); virtual;
|
|
function GetNUMINFValue: String; virtual;
|
|
procedure SetNUMINFValue(const aValue: String); virtual;
|
|
function GetFUNCIONValue: String; virtual;
|
|
procedure SetFUNCIONValue(const aValue: String); virtual;
|
|
function GetFECINIValue: DateTime; virtual;
|
|
procedure SetFECINIValue(const aValue: DateTime); virtual;
|
|
function GetFECFINValue: DateTime; virtual;
|
|
procedure SetFECFINValue(const aValue: DateTime); virtual;
|
|
function GetFECINFValue: DateTime; virtual;
|
|
procedure SetFECINFValue(const aValue: DateTime); virtual;
|
|
function GetPERVENINIValue: DateTime; virtual;
|
|
procedure SetPERVENINIValue(const aValue: DateTime); virtual;
|
|
function GetPERVENFINValue: DateTime; virtual;
|
|
procedure SetPERVENFINValue(const aValue: DateTime); virtual;
|
|
function GetEANOFIValue: String; virtual;
|
|
procedure SetEANOFIValue(const aValue: String); virtual;
|
|
function GetEANEMIValue: String; virtual;
|
|
procedure SetEANEMIValue(const aValue: String); virtual;
|
|
function GetEANRECValue: String; virtual;
|
|
procedure SetEANRECValue(const aValue: String); virtual;
|
|
function GetEANVENValue: String; virtual;
|
|
procedure SetEANVENValue(const aValue: String); virtual;
|
|
function GetEANALMValue: String; virtual;
|
|
procedure SetEANALMValue(const aValue: String); virtual;
|
|
function GetEANREPValue: String; virtual;
|
|
procedure SetEANREPValue(const aValue: String); virtual;
|
|
function GetEANPROValue: String; virtual;
|
|
procedure SetEANPROValue(const aValue: String); virtual;
|
|
function GetEANADMSAValue: String; virtual;
|
|
procedure SetEANADMSAValue(const aValue: String); virtual;
|
|
function GetEANREPSRValue: String; virtual;
|
|
procedure SetEANREPSRValue(const aValue: String); virtual;
|
|
function GetADMVENSAValue: String; virtual;
|
|
procedure SetADMVENSAValue(const aValue: String); virtual;
|
|
function GetREPDEPSRValue: String; virtual;
|
|
procedure SetREPDEPSRValue(const aValue: String); virtual;
|
|
function GetEMAILSAValue: String; virtual;
|
|
procedure SetEMAILSAValue(const aValue: String); virtual;
|
|
function GetNUMFAXSAValue: String; virtual;
|
|
procedure SetNUMFAXSAValue(const aValue: String); virtual;
|
|
function GetNUMTELSAValue: String; virtual;
|
|
procedure SetNUMTELSAValue(const aValue: String); virtual;
|
|
function GetNUMTLXSAValue: String; virtual;
|
|
procedure SetNUMTLXSAValue(const aValue: String); virtual;
|
|
function GetX400SAValue: String; virtual;
|
|
procedure SetX400SAValue(const aValue: String); virtual;
|
|
function GetEMAILSRValue: String; virtual;
|
|
procedure SetEMAILSRValue(const aValue: String); virtual;
|
|
function GetNUMFAXSRValue: String; virtual;
|
|
procedure SetNUMFAXSRValue(const aValue: String); virtual;
|
|
function GetNUMTELSRValue: String; virtual;
|
|
procedure SetNUMTELSRValue(const aValue: String); virtual;
|
|
function GetNUMTLXSRValue: String; virtual;
|
|
procedure SetNUMTLXSRValue(const aValue: String); virtual;
|
|
function GetX400SRValue: String; virtual;
|
|
procedure SetX400SRValue(const aValue: String); virtual;
|
|
function GetNUMPREValue: String; virtual;
|
|
procedure SetNUMPREValue(const aValue: String); virtual;
|
|
function GetNUMINFSCValue: String; virtual;
|
|
procedure SetNUMINFSCValue(const aValue: String); virtual;
|
|
function GetNUMCONValue: String; virtual;
|
|
procedure SetNUMCONValue(const aValue: String); virtual;
|
|
function GetFECPREValue: DateTime; virtual;
|
|
procedure SetFECPREValue(const aValue: DateTime); virtual;
|
|
function GetFECINFSCValue: DateTime; virtual;
|
|
procedure SetFECINFSCValue(const aValue: DateTime); virtual;
|
|
function GetFECCONValue: DateTime; virtual;
|
|
procedure SetFECCONValue(const aValue: DateTime); virtual;
|
|
function GetDIVPEDValue: String; virtual;
|
|
procedure SetDIVPEDValue(const aValue: String); virtual;
|
|
function GetDIVPREValue: String; virtual;
|
|
procedure SetDIVPREValue(const aValue: String); virtual;
|
|
function GetDIVPAGValue: String; virtual;
|
|
procedure SetDIVPAGValue(const aValue: String); virtual;
|
|
function GetDIVPEDFValue: String; virtual;
|
|
procedure SetDIVPEDFValue(const aValue: String); virtual;
|
|
function GetDIVPREFValue: String; virtual;
|
|
procedure SetDIVPREFValue(const aValue: String); virtual;
|
|
function GetDIVPAGFValue: String; virtual;
|
|
procedure SetDIVPAGFValue(const aValue: String); virtual;
|
|
function GetTASCAMValue: Float; virtual;
|
|
procedure SetTASCAMValue(const aValue: Float); virtual;
|
|
function GetFECTASValue: DateTime; virtual;
|
|
procedure SetFECTASValue(const aValue: DateTime); virtual;
|
|
|
|
{ Properties }
|
|
property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value;
|
|
property NUMINF: String read GetNUMINFValue write SetNUMINFValue;
|
|
property FUNCION: String read GetFUNCIONValue write SetFUNCIONValue;
|
|
property FECINI: DateTime read GetFECINIValue write SetFECINIValue;
|
|
property FECFIN: DateTime read GetFECFINValue write SetFECFINValue;
|
|
property FECINF: DateTime read GetFECINFValue write SetFECINFValue;
|
|
property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue;
|
|
property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue;
|
|
property EANOFI: String read GetEANOFIValue write SetEANOFIValue;
|
|
property EANEMI: String read GetEANEMIValue write SetEANEMIValue;
|
|
property EANREC: String read GetEANRECValue write SetEANRECValue;
|
|
property EANVEN: String read GetEANVENValue write SetEANVENValue;
|
|
property EANALM: String read GetEANALMValue write SetEANALMValue;
|
|
property EANREP: String read GetEANREPValue write SetEANREPValue;
|
|
property EANPRO: String read GetEANPROValue write SetEANPROValue;
|
|
property EANADMSA: String read GetEANADMSAValue write SetEANADMSAValue;
|
|
property EANREPSR: String read GetEANREPSRValue write SetEANREPSRValue;
|
|
property ADMVENSA: String read GetADMVENSAValue write SetADMVENSAValue;
|
|
property REPDEPSR: String read GetREPDEPSRValue write SetREPDEPSRValue;
|
|
property EMAILSA: String read GetEMAILSAValue write SetEMAILSAValue;
|
|
property NUMFAXSA: String read GetNUMFAXSAValue write SetNUMFAXSAValue;
|
|
property NUMTELSA: String read GetNUMTELSAValue write SetNUMTELSAValue;
|
|
property NUMTLXSA: String read GetNUMTLXSAValue write SetNUMTLXSAValue;
|
|
property X400SA: String read GetX400SAValue write SetX400SAValue;
|
|
property EMAILSR: String read GetEMAILSRValue write SetEMAILSRValue;
|
|
property NUMFAXSR: String read GetNUMFAXSRValue write SetNUMFAXSRValue;
|
|
property NUMTELSR: String read GetNUMTELSRValue write SetNUMTELSRValue;
|
|
property NUMTLXSR: String read GetNUMTLXSRValue write SetNUMTLXSRValue;
|
|
property X400SR: String read GetX400SRValue write SetX400SRValue;
|
|
property NUMPRE: String read GetNUMPREValue write SetNUMPREValue;
|
|
property NUMINFSC: String read GetNUMINFSCValue write SetNUMINFSCValue;
|
|
property NUMCON: String read GetNUMCONValue write SetNUMCONValue;
|
|
property FECPRE: DateTime read GetFECPREValue write SetFECPREValue;
|
|
property FECINFSC: DateTime read GetFECINFSCValue write SetFECINFSCValue;
|
|
property FECCON: DateTime read GetFECCONValue write SetFECCONValue;
|
|
property DIVPED: String read GetDIVPEDValue write SetDIVPEDValue;
|
|
property DIVPRE: String read GetDIVPREValue write SetDIVPREValue;
|
|
property DIVPAG: String read GetDIVPAGValue write SetDIVPAGValue;
|
|
property DIVPEDF: String read GetDIVPEDFValue write SetDIVPEDFValue;
|
|
property DIVPREF: String read GetDIVPREFValue write SetDIVPREFValue;
|
|
property DIVPAGF: String read GetDIVPAGFValue write SetDIVPAGFValue;
|
|
property TASCAM: Float read GetTASCAMValue write SetTASCAMValue;
|
|
property FECTAS: DateTime read GetFECTASValue write SetFECTASValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRDX_LUGVEN }
|
|
IRDX_LUGVEN = interface(IDAStronglyTypedDataTable)
|
|
['{1F9C102A-BE07-4CEC-BBE3-7B062C9F8618}']
|
|
{ Property getters and setters }
|
|
function GetCLAVE1Value: Float;
|
|
procedure SetCLAVE1Value(const aValue: Float);
|
|
function GetCLAVE2Value: Integer;
|
|
procedure SetCLAVE2Value(const aValue: Integer);
|
|
function GetEANLUGValue: String;
|
|
procedure SetEANLUGValue(const aValue: String);
|
|
function GetLUGVENValue: String;
|
|
procedure SetLUGVENValue(const aValue: String);
|
|
function GetFECINIValue: DateTime;
|
|
procedure SetFECINIValue(const aValue: DateTime);
|
|
function GetFECFINValue: DateTime;
|
|
procedure SetFECFINValue(const aValue: DateTime);
|
|
function GetPERVENINIValue: DateTime;
|
|
procedure SetPERVENINIValue(const aValue: DateTime);
|
|
function GetPERVENFINValue: DateTime;
|
|
procedure SetPERVENFINValue(const aValue: DateTime);
|
|
|
|
|
|
{ Properties }
|
|
property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value;
|
|
property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value;
|
|
property EANLUG: String read GetEANLUGValue write SetEANLUGValue;
|
|
property LUGVEN: String read GetLUGVENValue write SetLUGVENValue;
|
|
property FECINI: DateTime read GetFECINIValue write SetFECINIValue;
|
|
property FECFIN: DateTime read GetFECFINValue write SetFECFINValue;
|
|
property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue;
|
|
property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue;
|
|
end;
|
|
|
|
{ TRDX_LUGVENDataTableRules }
|
|
TRDX_LUGVENDataTableRules = class(TDADataTableRules, IRDX_LUGVEN)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCLAVE1Value: Float; virtual;
|
|
procedure SetCLAVE1Value(const aValue: Float); virtual;
|
|
function GetCLAVE2Value: Integer; virtual;
|
|
procedure SetCLAVE2Value(const aValue: Integer); virtual;
|
|
function GetEANLUGValue: String; virtual;
|
|
procedure SetEANLUGValue(const aValue: String); virtual;
|
|
function GetLUGVENValue: String; virtual;
|
|
procedure SetLUGVENValue(const aValue: String); virtual;
|
|
function GetFECINIValue: DateTime; virtual;
|
|
procedure SetFECINIValue(const aValue: DateTime); virtual;
|
|
function GetFECFINValue: DateTime; virtual;
|
|
procedure SetFECFINValue(const aValue: DateTime); virtual;
|
|
function GetPERVENINIValue: DateTime; virtual;
|
|
procedure SetPERVENINIValue(const aValue: DateTime); virtual;
|
|
function GetPERVENFINValue: DateTime; virtual;
|
|
procedure SetPERVENFINValue(const aValue: DateTime); virtual;
|
|
|
|
{ Properties }
|
|
property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value;
|
|
property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value;
|
|
property EANLUG: String read GetEANLUGValue write SetEANLUGValue;
|
|
property LUGVEN: String read GetLUGVENValue write SetLUGVENValue;
|
|
property FECINI: DateTime read GetFECINIValue write SetFECINIValue;
|
|
property FECFIN: DateTime read GetFECFINValue write SetFECFINValue;
|
|
property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue;
|
|
property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants;
|
|
|
|
{ TRDX_ARTVENDataTableRules }
|
|
constructor TRDX_ARTVENDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRDX_ARTVENDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCLAVE1Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCLAVE1].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCLAVE1Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCLAVE1].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCLAVE2Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCLAVE2].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCLAVE2Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCLAVE2].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCLAVE3Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCLAVE3].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCLAVE3Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCLAVE3].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetEANARTValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENEANART].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetEANARTValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENEANART].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCODCOMValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCODCOM].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCODCOMValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCODCOM].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetNUMVARValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENNUMVAR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetNUMVARValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENNUMVAR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCODPROValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCODPRO].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCODPROValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCODPRO].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetDESARTCOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENDESARTCO].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetDESARTCOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENDESARTCO].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetDESARTValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENDESART].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetDESARTValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENDESART].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetNUMCONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENNUMCON].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetNUMCONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENNUMCON].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetNUMLISValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENNUMLIS].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetNUMLISValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENNUMLIS].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCONESP1Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCONESP1].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCONESP1Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCONESP1].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCONESP2Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCONESP2].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCONESP2Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCONESP2].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCONESP3Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCONESP3].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCONESP3Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCONESP3].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetVALVENValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENVALVEN].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetVALVENValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENVALVEN].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPRENETCTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPRENETCT].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPRENETCTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPRENETCT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPREBRUCTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPREBRUCT].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPREBRUCTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPREBRUCT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPREINFETValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPREINFET].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPREINFETValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPREINFET].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPREINFFTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPREINFFT].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPREINFFTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPREINFFT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPRECALCTValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPRECALCT].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPRECALCTValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPRECALCT].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPRENETCAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPRENETCA].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPRENETCAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPRENETCA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPREBRUCAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPREBRUCA].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPREBRUCAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPREBRUCA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPREINFEAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPREINFEA].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPREINFEAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPREINFEA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPREINFFAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPREINFFA].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPREINFFAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPREINFFA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetPRECALCAValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENPRECALCA].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetPRECALCAValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENPRECALCA].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetBAPRUN1Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENBAPRUN1].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetBAPRUN1Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENBAPRUN1].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUNIMED1Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUNIMED1].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUNIMED1Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUNIMED1].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetBAPRUN2Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENBAPRUN2].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetBAPRUN2Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENBAPRUN2].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUNIMED2Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUNIMED2].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUNIMED2Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUNIMED2].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetBAPRUN3Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENBAPRUN3].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetBAPRUN3Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENBAPRUN3].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUNIMED3Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUNIMED3].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUNIMED3Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUNIMED3].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetBAPRUN4Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENBAPRUN4].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetBAPRUN4Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENBAPRUN4].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUNIMED4Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUNIMED4].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUNIMED4Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUNIMED4].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetBAPRUN5Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENBAPRUN5].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetBAPRUN5Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENBAPRUN5].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUNIMED5Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUNIMED5].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUNIMED5Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUNIMED5].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCANVENValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCANVEN].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCANVENValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCANVEN].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetEXIPROValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENEXIPRO].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetEXIPROValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENEXIPRO].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetDESEXIValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENDESEXI].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetDESEXIValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENDESEXI].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetESPMEDCVValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENESPMEDCV].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetESPMEDCVValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENESPMEDCV].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetESPMEDEPValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENESPMEDEP].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetESPMEDEPValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENESPMEDEP].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetESPMEDDEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENESPMEDDE].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetESPMEDDEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENESPMEDDE].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCANDEVValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCANDEV].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCANDEVValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCANDEV].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetEANVENValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENEANVEN].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetEANVENValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENEANVEN].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetNOMVENValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENNOMVEN].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetNOMVENValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENNOMVEN].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetNUMTALONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENNUMTALON].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetNUMTALONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENNUMTALON].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCANVENNETValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCANVENNET].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCANVENNETValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCANVENNET].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUMEDVENNETValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUMEDVENNET].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUMEDVENNETValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUMEDVENNET].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetCANESPValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENCANESP].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetCANESPValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENCANESP].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_ARTVENDataTableRules.GetUMEDESPValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_ARTVENUMEDESP].AsString;
|
|
end;
|
|
|
|
procedure TRDX_ARTVENDataTableRules.SetUMEDESPValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_ARTVENUMEDESP].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TRDX_CABVENDataTableRules }
|
|
constructor TRDX_CABVENDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRDX_CABVENDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetCLAVE1Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENCLAVE1].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetCLAVE1Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENCLAVE1].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMINFValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMINF].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMINFValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMINF].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFUNCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFUNCION].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFUNCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFUNCION].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECINIValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECINI].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECINIValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECINI].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECFINValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECFIN].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECFINValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECFIN].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECINFValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECINF].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECINFValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECINF].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetPERVENINIValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENPERVENINI].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetPERVENINIValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENPERVENINI].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetPERVENFINValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENPERVENFIN].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetPERVENFINValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENPERVENFIN].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANOFIValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANOFI].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANOFIValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANOFI].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANEMIValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANEMI].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANEMIValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANEMI].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANRECValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANREC].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANRECValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANREC].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANVENValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANVEN].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANVENValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANVEN].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANALMValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANALM].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANALMValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANALM].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANREPValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANREP].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANREPValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANREP].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANPROValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANPRO].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANPROValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANPRO].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANADMSAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANADMSA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANADMSAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANADMSA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEANREPSRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEANREPSR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEANREPSRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEANREPSR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetADMVENSAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENADMVENSA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetADMVENSAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENADMVENSA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetREPDEPSRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENREPDEPSR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetREPDEPSRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENREPDEPSR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEMAILSAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEMAILSA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEMAILSAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEMAILSA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMFAXSAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMFAXSAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMTELSAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMTELSA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMTELSAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMTELSA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMTLXSAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMTLXSA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMTLXSAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMTLXSA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetX400SAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENX400SA].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetX400SAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENX400SA].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetEMAILSRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENEMAILSR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetEMAILSRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENEMAILSR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMFAXSRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMFAXSR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMFAXSRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMFAXSR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMTELSRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMTELSR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMTELSRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMTELSR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMTLXSRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMTLXSR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMTLXSRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMTLXSR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetX400SRValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENX400SR].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetX400SRValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENX400SR].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMPREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMPRE].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMPREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMPRE].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMINFSCValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMINFSC].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMINFSCValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMINFSC].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetNUMCONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENNUMCON].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetNUMCONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENNUMCON].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECPREValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECPRE].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECPREValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECPRE].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECINFSCValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECINFSC].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECINFSCValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECINFSC].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECCONValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECCON].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECCONValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECCON].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetDIVPEDValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENDIVPED].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetDIVPEDValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENDIVPED].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetDIVPREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENDIVPRE].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetDIVPREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENDIVPRE].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetDIVPAGValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENDIVPAG].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetDIVPAGValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENDIVPAG].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetDIVPEDFValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENDIVPEDF].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetDIVPEDFValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENDIVPEDF].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetDIVPREFValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENDIVPREF].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetDIVPREFValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENDIVPREF].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetDIVPAGFValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENDIVPAGF].AsString;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetDIVPAGFValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENDIVPAGF].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetTASCAMValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENTASCAM].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetTASCAMValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENTASCAM].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_CABVENDataTableRules.GetFECTASValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_CABVENFECTAS].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_CABVENDataTableRules.SetFECTASValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_CABVENFECTAS].AsDateTime := aValue;
|
|
end;
|
|
|
|
|
|
{ TRDX_LUGVENDataTableRules }
|
|
constructor TRDX_LUGVENDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRDX_LUGVENDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetCLAVE1Value: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENCLAVE1].AsFloat;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetCLAVE1Value(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENCLAVE1].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetCLAVE2Value: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENCLAVE2].AsInteger;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetCLAVE2Value(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENCLAVE2].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetEANLUGValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENEANLUG].AsString;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetEANLUGValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENEANLUG].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetLUGVENValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENLUGVEN].AsString;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetLUGVENValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENLUGVEN].AsString := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetFECINIValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENFECINI].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetFECINIValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENFECINI].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetFECFINValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENFECFIN].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetFECFINValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENFECFIN].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetPERVENINIValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENPERVENINI].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetPERVENINIValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENPERVENINI].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRDX_LUGVENDataTableRules.GetPERVENFINValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RDX_LUGVENPERVENFIN].AsDateTime;
|
|
end;
|
|
|
|
procedure TRDX_LUGVENDataTableRules.SetPERVENFINValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RDX_LUGVENPERVENFIN].AsDateTime := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_RDX_ARTVEN, TRDX_ARTVENDataTableRules);
|
|
RegisterDataTableRules(RID_RDX_CABVEN, TRDX_CABVENDataTableRules);
|
|
RegisterDataTableRules(RID_RDX_LUGVEN, TRDX_LUGVENDataTableRules);
|
|
|
|
end.
|