1332 lines
53 KiB
ObjectPascal
1332 lines
53 KiB
ObjectPascal
unit schVentasTerminadasClient_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
|
|
|
const
|
|
{ Data table rules ids
|
|
Feel free to change them to something more human readable
|
|
but make sure they are unique in the context of your application }
|
|
RID_VentasTerminadasCrossTab = '{2E68D174-CE7E-4597-A951-7670FA84D874}';
|
|
RID_VentasTerminadas = '{F20667F0-C1D2-4500-8E10-1B8577467C80}';
|
|
|
|
{ Data table names }
|
|
nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab';
|
|
nme_VentasTerminadas = 'VentasTerminadas';
|
|
|
|
{ VentasTerminadasCrossTab fields }
|
|
|
|
{ VentasTerminadasCrossTab field indexes }
|
|
|
|
{ VentasTerminadas fields }
|
|
fld_VentasTerminadasNUMINF = 'NUMINF';
|
|
fld_VentasTerminadasCLAVE1 = 'CLAVE1';
|
|
fld_VentasTerminadasCLAVE2 = 'CLAVE2';
|
|
fld_VentasTerminadasCLAVE3 = 'CLAVE3';
|
|
fld_VentasTerminadasFECHA = 'FECHA';
|
|
fld_VentasTerminadasDIA = 'DIA';
|
|
fld_VentasTerminadasDIASEMANA = 'DIASEMANA';
|
|
fld_VentasTerminadasMES = 'MES';
|
|
fld_VentasTerminadasANO = 'ANO';
|
|
fld_VentasTerminadasCENTRO = 'CENTRO';
|
|
fld_VentasTerminadasVENDEDOR = 'VENDEDOR';
|
|
fld_VentasTerminadasNUMTALON = 'NUMTALON';
|
|
fld_VentasTerminadasCODIGO = 'CODIGO';
|
|
fld_VentasTerminadasPRODUCTO = 'PRODUCTO';
|
|
fld_VentasTerminadasGRUPOPRODUCTO = 'GRUPOPRODUCTO';
|
|
fld_VentasTerminadasTIPOPRODUCTO = 'TIPOPRODUCTO';
|
|
fld_VentasTerminadasCOLECCION = 'COLECCION';
|
|
fld_VentasTerminadasCOLOR = 'COLOR';
|
|
fld_VentasTerminadasTALLA = 'TALLA';
|
|
fld_VentasTerminadasTALLA38 = 'TALLA38';
|
|
fld_VentasTerminadasTALLA40 = 'TALLA40';
|
|
fld_VentasTerminadasTALLA42 = 'TALLA42';
|
|
fld_VentasTerminadasTALLA44 = 'TALLA44';
|
|
fld_VentasTerminadasTALLA46 = 'TALLA46';
|
|
fld_VentasTerminadasTALLA48 = 'TALLA48';
|
|
fld_VentasTerminadasVTATERMDEV = 'VTATERMDEV';
|
|
fld_VentasTerminadasVTAFINALRESC = 'VTAFINALRESC';
|
|
fld_VentasTerminadasVENTAS = 'VENTAS';
|
|
fld_VentasTerminadasDEVOLUCIONES = 'DEVOLUCIONES';
|
|
fld_VentasTerminadasTOTAL = 'TOTAL';
|
|
fld_VentasTerminadasVALTERMDEV = 'VALTERMDEV';
|
|
fld_VentasTerminadasVALFINALRESC = 'VALFINALRESC';
|
|
fld_VentasTerminadasVALVEN = 'VALVEN';
|
|
fld_VentasTerminadasVALDEV = 'VALDEV';
|
|
fld_VentasTerminadasVALTOT = 'VALTOT';
|
|
|
|
{ VentasTerminadas field indexes }
|
|
idx_VentasTerminadasNUMINF = 0;
|
|
idx_VentasTerminadasCLAVE1 = 1;
|
|
idx_VentasTerminadasCLAVE2 = 2;
|
|
idx_VentasTerminadasCLAVE3 = 3;
|
|
idx_VentasTerminadasFECHA = 4;
|
|
idx_VentasTerminadasDIA = 5;
|
|
idx_VentasTerminadasDIASEMANA = 6;
|
|
idx_VentasTerminadasMES = 7;
|
|
idx_VentasTerminadasANO = 8;
|
|
idx_VentasTerminadasCENTRO = 9;
|
|
idx_VentasTerminadasVENDEDOR = 10;
|
|
idx_VentasTerminadasNUMTALON = 11;
|
|
idx_VentasTerminadasCODIGO = 12;
|
|
idx_VentasTerminadasPRODUCTO = 13;
|
|
idx_VentasTerminadasGRUPOPRODUCTO = 14;
|
|
idx_VentasTerminadasTIPOPRODUCTO = 15;
|
|
idx_VentasTerminadasCOLECCION = 16;
|
|
idx_VentasTerminadasCOLOR = 17;
|
|
idx_VentasTerminadasTALLA = 18;
|
|
idx_VentasTerminadasTALLA38 = 19;
|
|
idx_VentasTerminadasTALLA40 = 20;
|
|
idx_VentasTerminadasTALLA42 = 21;
|
|
idx_VentasTerminadasTALLA44 = 22;
|
|
idx_VentasTerminadasTALLA46 = 23;
|
|
idx_VentasTerminadasTALLA48 = 24;
|
|
idx_VentasTerminadasVTATERMDEV = 25;
|
|
idx_VentasTerminadasVTAFINALRESC = 26;
|
|
idx_VentasTerminadasVENTAS = 27;
|
|
idx_VentasTerminadasDEVOLUCIONES = 28;
|
|
idx_VentasTerminadasTOTAL = 29;
|
|
idx_VentasTerminadasVALTERMDEV = 30;
|
|
idx_VentasTerminadasVALFINALRESC = 31;
|
|
idx_VentasTerminadasVALVEN = 32;
|
|
idx_VentasTerminadasVALDEV = 33;
|
|
idx_VentasTerminadasVALTOT = 34;
|
|
|
|
type
|
|
{ IVentasTerminadasCrossTab }
|
|
IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable)
|
|
['{F1FA92FE-5A97-4645-A93A-CAFA9775A238}']
|
|
{ Property getters and setters }
|
|
|
|
|
|
{ Properties }
|
|
end;
|
|
|
|
{ TVentasTerminadasCrossTabDataTableRules }
|
|
TVentasTerminadasCrossTabDataTableRules = class(TDADataTableRules, IVentasTerminadasCrossTab)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
|
|
{ Properties }
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IVentasTerminadas }
|
|
IVentasTerminadas = interface(IDAStronglyTypedDataTable)
|
|
['{78DAAFC9-9EAE-4237-B301-3103B6C18EF2}']
|
|
{ Property getters and setters }
|
|
function GetNUMINFValue: String;
|
|
procedure SetNUMINFValue(const aValue: String);
|
|
function GetNUMINFIsNull: Boolean;
|
|
procedure SetNUMINFIsNull(const aValue: Boolean);
|
|
function GetCLAVE1Value: TBcd;
|
|
procedure SetCLAVE1Value(const aValue: TBcd);
|
|
function GetCLAVE1IsNull: Boolean;
|
|
procedure SetCLAVE1IsNull(const aValue: Boolean);
|
|
function GetCLAVE2Value: Integer;
|
|
procedure SetCLAVE2Value(const aValue: Integer);
|
|
function GetCLAVE2IsNull: Boolean;
|
|
procedure SetCLAVE2IsNull(const aValue: Boolean);
|
|
function GetCLAVE3Value: Integer;
|
|
procedure SetCLAVE3Value(const aValue: Integer);
|
|
function GetCLAVE3IsNull: Boolean;
|
|
procedure SetCLAVE3IsNull(const aValue: Boolean);
|
|
function GetFECHAValue: DateTime;
|
|
procedure SetFECHAValue(const aValue: DateTime);
|
|
function GetFECHAIsNull: Boolean;
|
|
procedure SetFECHAIsNull(const aValue: Boolean);
|
|
function GetDIAValue: Integer;
|
|
procedure SetDIAValue(const aValue: Integer);
|
|
function GetDIAIsNull: Boolean;
|
|
procedure SetDIAIsNull(const aValue: Boolean);
|
|
function GetDIASEMANAValue: WideString;
|
|
procedure SetDIASEMANAValue(const aValue: WideString);
|
|
function GetDIASEMANAIsNull: Boolean;
|
|
procedure SetDIASEMANAIsNull(const aValue: Boolean);
|
|
function GetMESValue: WideString;
|
|
procedure SetMESValue(const aValue: WideString);
|
|
function GetMESIsNull: Boolean;
|
|
procedure SetMESIsNull(const aValue: Boolean);
|
|
function GetANOValue: Integer;
|
|
procedure SetANOValue(const aValue: Integer);
|
|
function GetANOIsNull: Boolean;
|
|
procedure SetANOIsNull(const aValue: Boolean);
|
|
function GetCENTROValue: String;
|
|
procedure SetCENTROValue(const aValue: String);
|
|
function GetCENTROIsNull: Boolean;
|
|
procedure SetCENTROIsNull(const aValue: Boolean);
|
|
function GetVENDEDORValue: String;
|
|
procedure SetVENDEDORValue(const aValue: String);
|
|
function GetVENDEDORIsNull: Boolean;
|
|
procedure SetVENDEDORIsNull(const aValue: Boolean);
|
|
function GetNUMTALONValue: String;
|
|
procedure SetNUMTALONValue(const aValue: String);
|
|
function GetNUMTALONIsNull: Boolean;
|
|
procedure SetNUMTALONIsNull(const aValue: Boolean);
|
|
function GetCODIGOValue: String;
|
|
procedure SetCODIGOValue(const aValue: String);
|
|
function GetCODIGOIsNull: Boolean;
|
|
procedure SetCODIGOIsNull(const aValue: Boolean);
|
|
function GetPRODUCTOValue: String;
|
|
procedure SetPRODUCTOValue(const aValue: String);
|
|
function GetPRODUCTOIsNull: Boolean;
|
|
procedure SetPRODUCTOIsNull(const aValue: Boolean);
|
|
function GetGRUPOPRODUCTOValue: String;
|
|
procedure SetGRUPOPRODUCTOValue(const aValue: String);
|
|
function GetGRUPOPRODUCTOIsNull: Boolean;
|
|
procedure SetGRUPOPRODUCTOIsNull(const aValue: Boolean);
|
|
function GetTIPOPRODUCTOValue: String;
|
|
procedure SetTIPOPRODUCTOValue(const aValue: String);
|
|
function GetTIPOPRODUCTOIsNull: Boolean;
|
|
procedure SetTIPOPRODUCTOIsNull(const aValue: Boolean);
|
|
function GetCOLECCIONValue: String;
|
|
procedure SetCOLECCIONValue(const aValue: String);
|
|
function GetCOLECCIONIsNull: Boolean;
|
|
procedure SetCOLECCIONIsNull(const aValue: Boolean);
|
|
function GetCOLORValue: String;
|
|
procedure SetCOLORValue(const aValue: String);
|
|
function GetCOLORIsNull: Boolean;
|
|
procedure SetCOLORIsNull(const aValue: Boolean);
|
|
function GetTALLAValue: String;
|
|
procedure SetTALLAValue(const aValue: String);
|
|
function GetTALLAIsNull: Boolean;
|
|
procedure SetTALLAIsNull(const aValue: Boolean);
|
|
function GetTALLA38Value: TBcd;
|
|
procedure SetTALLA38Value(const aValue: TBcd);
|
|
function GetTALLA38IsNull: Boolean;
|
|
procedure SetTALLA38IsNull(const aValue: Boolean);
|
|
function GetTALLA40Value: TBcd;
|
|
procedure SetTALLA40Value(const aValue: TBcd);
|
|
function GetTALLA40IsNull: Boolean;
|
|
procedure SetTALLA40IsNull(const aValue: Boolean);
|
|
function GetTALLA42Value: TBcd;
|
|
procedure SetTALLA42Value(const aValue: TBcd);
|
|
function GetTALLA42IsNull: Boolean;
|
|
procedure SetTALLA42IsNull(const aValue: Boolean);
|
|
function GetTALLA44Value: TBcd;
|
|
procedure SetTALLA44Value(const aValue: TBcd);
|
|
function GetTALLA44IsNull: Boolean;
|
|
procedure SetTALLA44IsNull(const aValue: Boolean);
|
|
function GetTALLA46Value: TBcd;
|
|
procedure SetTALLA46Value(const aValue: TBcd);
|
|
function GetTALLA46IsNull: Boolean;
|
|
procedure SetTALLA46IsNull(const aValue: Boolean);
|
|
function GetTALLA48Value: TBcd;
|
|
procedure SetTALLA48Value(const aValue: TBcd);
|
|
function GetTALLA48IsNull: Boolean;
|
|
procedure SetTALLA48IsNull(const aValue: Boolean);
|
|
function GetVTATERMDEVValue: TBcd;
|
|
procedure SetVTATERMDEVValue(const aValue: TBcd);
|
|
function GetVTATERMDEVIsNull: Boolean;
|
|
procedure SetVTATERMDEVIsNull(const aValue: Boolean);
|
|
function GetVTAFINALRESCValue: TBcd;
|
|
procedure SetVTAFINALRESCValue(const aValue: TBcd);
|
|
function GetVTAFINALRESCIsNull: Boolean;
|
|
procedure SetVTAFINALRESCIsNull(const aValue: Boolean);
|
|
function GetVENTASValue: TBcd;
|
|
procedure SetVENTASValue(const aValue: TBcd);
|
|
function GetVENTASIsNull: Boolean;
|
|
procedure SetVENTASIsNull(const aValue: Boolean);
|
|
function GetDEVOLUCIONESValue: TBcd;
|
|
procedure SetDEVOLUCIONESValue(const aValue: TBcd);
|
|
function GetDEVOLUCIONESIsNull: Boolean;
|
|
procedure SetDEVOLUCIONESIsNull(const aValue: Boolean);
|
|
function GetTOTALValue: TBcd;
|
|
procedure SetTOTALValue(const aValue: TBcd);
|
|
function GetTOTALIsNull: Boolean;
|
|
procedure SetTOTALIsNull(const aValue: Boolean);
|
|
function GetVALTERMDEVValue: TBcd;
|
|
procedure SetVALTERMDEVValue(const aValue: TBcd);
|
|
function GetVALTERMDEVIsNull: Boolean;
|
|
procedure SetVALTERMDEVIsNull(const aValue: Boolean);
|
|
function GetVALFINALRESCValue: TBcd;
|
|
procedure SetVALFINALRESCValue(const aValue: TBcd);
|
|
function GetVALFINALRESCIsNull: Boolean;
|
|
procedure SetVALFINALRESCIsNull(const aValue: Boolean);
|
|
function GetVALVENValue: TBcd;
|
|
procedure SetVALVENValue(const aValue: TBcd);
|
|
function GetVALVENIsNull: Boolean;
|
|
procedure SetVALVENIsNull(const aValue: Boolean);
|
|
function GetVALDEVValue: TBcd;
|
|
procedure SetVALDEVValue(const aValue: TBcd);
|
|
function GetVALDEVIsNull: Boolean;
|
|
procedure SetVALDEVIsNull(const aValue: Boolean);
|
|
function GetVALTOTValue: TBcd;
|
|
procedure SetVALTOTValue(const aValue: TBcd);
|
|
function GetVALTOTIsNull: Boolean;
|
|
procedure SetVALTOTIsNull(const aValue: Boolean);
|
|
|
|
|
|
{ Properties }
|
|
property NUMINF: String read GetNUMINFValue write SetNUMINFValue;
|
|
property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull;
|
|
property CLAVE1: TBcd read GetCLAVE1Value write SetCLAVE1Value;
|
|
property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull;
|
|
property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value;
|
|
property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull;
|
|
property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value;
|
|
property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull;
|
|
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
|
|
property DIA: Integer read GetDIAValue write SetDIAValue;
|
|
property DIAIsNull: Boolean read GetDIAIsNull write SetDIAIsNull;
|
|
property DIASEMANA: WideString read GetDIASEMANAValue write SetDIASEMANAValue;
|
|
property DIASEMANAIsNull: Boolean read GetDIASEMANAIsNull write SetDIASEMANAIsNull;
|
|
property MES: WideString read GetMESValue write SetMESValue;
|
|
property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull;
|
|
property ANO: Integer read GetANOValue write SetANOValue;
|
|
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
|
property CENTRO: String read GetCENTROValue write SetCENTROValue;
|
|
property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull;
|
|
property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
|
|
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
|
|
property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue;
|
|
property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull;
|
|
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
|
|
property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue;
|
|
property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull;
|
|
property GRUPOPRODUCTO: String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue;
|
|
property GRUPOPRODUCTOIsNull: Boolean read GetGRUPOPRODUCTOIsNull write SetGRUPOPRODUCTOIsNull;
|
|
property TIPOPRODUCTO: String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue;
|
|
property TIPOPRODUCTOIsNull: Boolean read GetTIPOPRODUCTOIsNull write SetTIPOPRODUCTOIsNull;
|
|
property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue;
|
|
property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull;
|
|
property COLOR: String read GetCOLORValue write SetCOLORValue;
|
|
property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull;
|
|
property TALLA: String read GetTALLAValue write SetTALLAValue;
|
|
property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull;
|
|
property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value;
|
|
property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull;
|
|
property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value;
|
|
property TALLA40IsNull: Boolean read GetTALLA40IsNull write SetTALLA40IsNull;
|
|
property TALLA42: TBcd read GetTALLA42Value write SetTALLA42Value;
|
|
property TALLA42IsNull: Boolean read GetTALLA42IsNull write SetTALLA42IsNull;
|
|
property TALLA44: TBcd read GetTALLA44Value write SetTALLA44Value;
|
|
property TALLA44IsNull: Boolean read GetTALLA44IsNull write SetTALLA44IsNull;
|
|
property TALLA46: TBcd read GetTALLA46Value write SetTALLA46Value;
|
|
property TALLA46IsNull: Boolean read GetTALLA46IsNull write SetTALLA46IsNull;
|
|
property TALLA48: TBcd read GetTALLA48Value write SetTALLA48Value;
|
|
property TALLA48IsNull: Boolean read GetTALLA48IsNull write SetTALLA48IsNull;
|
|
property VTATERMDEV: TBcd read GetVTATERMDEVValue write SetVTATERMDEVValue;
|
|
property VTATERMDEVIsNull: Boolean read GetVTATERMDEVIsNull write SetVTATERMDEVIsNull;
|
|
property VTAFINALRESC: TBcd read GetVTAFINALRESCValue write SetVTAFINALRESCValue;
|
|
property VTAFINALRESCIsNull: Boolean read GetVTAFINALRESCIsNull write SetVTAFINALRESCIsNull;
|
|
property VENTAS: TBcd read GetVENTASValue write SetVENTASValue;
|
|
property VENTASIsNull: Boolean read GetVENTASIsNull write SetVENTASIsNull;
|
|
property DEVOLUCIONES: TBcd read GetDEVOLUCIONESValue write SetDEVOLUCIONESValue;
|
|
property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull;
|
|
property TOTAL: TBcd read GetTOTALValue write SetTOTALValue;
|
|
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
|
property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
|
property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
|
property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
|
property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
|
property VALVEN: TBcd read GetVALVENValue write SetVALVENValue;
|
|
property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
|
property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue;
|
|
property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
|
property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue;
|
|
property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
|
end;
|
|
|
|
{ TVentasTerminadasDataTableRules }
|
|
TVentasTerminadasDataTableRules = class(TDADataTableRules, IVentasTerminadas)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetNUMINFValue: String; virtual;
|
|
procedure SetNUMINFValue(const aValue: String); virtual;
|
|
function GetNUMINFIsNull: Boolean; virtual;
|
|
procedure SetNUMINFIsNull(const aValue: Boolean); virtual;
|
|
function GetCLAVE1Value: TBcd; virtual;
|
|
procedure SetCLAVE1Value(const aValue: TBcd); virtual;
|
|
function GetCLAVE1IsNull: Boolean; virtual;
|
|
procedure SetCLAVE1IsNull(const aValue: Boolean); virtual;
|
|
function GetCLAVE2Value: Integer; virtual;
|
|
procedure SetCLAVE2Value(const aValue: Integer); virtual;
|
|
function GetCLAVE2IsNull: Boolean; virtual;
|
|
procedure SetCLAVE2IsNull(const aValue: Boolean); virtual;
|
|
function GetCLAVE3Value: Integer; virtual;
|
|
procedure SetCLAVE3Value(const aValue: Integer); virtual;
|
|
function GetCLAVE3IsNull: Boolean; virtual;
|
|
procedure SetCLAVE3IsNull(const aValue: Boolean); virtual;
|
|
function GetFECHAValue: DateTime; virtual;
|
|
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
|
function GetFECHAIsNull: Boolean; virtual;
|
|
procedure SetFECHAIsNull(const aValue: Boolean); virtual;
|
|
function GetDIAValue: Integer; virtual;
|
|
procedure SetDIAValue(const aValue: Integer); virtual;
|
|
function GetDIAIsNull: Boolean; virtual;
|
|
procedure SetDIAIsNull(const aValue: Boolean); virtual;
|
|
function GetDIASEMANAValue: WideString; virtual;
|
|
procedure SetDIASEMANAValue(const aValue: WideString); virtual;
|
|
function GetDIASEMANAIsNull: Boolean; virtual;
|
|
procedure SetDIASEMANAIsNull(const aValue: Boolean); virtual;
|
|
function GetMESValue: WideString; virtual;
|
|
procedure SetMESValue(const aValue: WideString); virtual;
|
|
function GetMESIsNull: Boolean; virtual;
|
|
procedure SetMESIsNull(const aValue: Boolean); virtual;
|
|
function GetANOValue: Integer; virtual;
|
|
procedure SetANOValue(const aValue: Integer); virtual;
|
|
function GetANOIsNull: Boolean; virtual;
|
|
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
|
function GetCENTROValue: String; virtual;
|
|
procedure SetCENTROValue(const aValue: String); virtual;
|
|
function GetCENTROIsNull: Boolean; virtual;
|
|
procedure SetCENTROIsNull(const aValue: Boolean); virtual;
|
|
function GetVENDEDORValue: String; virtual;
|
|
procedure SetVENDEDORValue(const aValue: String); virtual;
|
|
function GetVENDEDORIsNull: Boolean; virtual;
|
|
procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetNUMTALONValue: String; virtual;
|
|
procedure SetNUMTALONValue(const aValue: String); virtual;
|
|
function GetNUMTALONIsNull: Boolean; virtual;
|
|
procedure SetNUMTALONIsNull(const aValue: Boolean); virtual;
|
|
function GetCODIGOValue: String; virtual;
|
|
procedure SetCODIGOValue(const aValue: String); virtual;
|
|
function GetCODIGOIsNull: Boolean; virtual;
|
|
procedure SetCODIGOIsNull(const aValue: Boolean); virtual;
|
|
function GetPRODUCTOValue: String; virtual;
|
|
procedure SetPRODUCTOValue(const aValue: String); virtual;
|
|
function GetPRODUCTOIsNull: Boolean; virtual;
|
|
procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual;
|
|
function GetGRUPOPRODUCTOValue: String; virtual;
|
|
procedure SetGRUPOPRODUCTOValue(const aValue: String); virtual;
|
|
function GetGRUPOPRODUCTOIsNull: Boolean; virtual;
|
|
procedure SetGRUPOPRODUCTOIsNull(const aValue: Boolean); virtual;
|
|
function GetTIPOPRODUCTOValue: String; virtual;
|
|
procedure SetTIPOPRODUCTOValue(const aValue: String); virtual;
|
|
function GetTIPOPRODUCTOIsNull: Boolean; virtual;
|
|
procedure SetTIPOPRODUCTOIsNull(const aValue: Boolean); virtual;
|
|
function GetCOLECCIONValue: String; virtual;
|
|
procedure SetCOLECCIONValue(const aValue: String); virtual;
|
|
function GetCOLECCIONIsNull: Boolean; virtual;
|
|
procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetCOLORValue: String; virtual;
|
|
procedure SetCOLORValue(const aValue: String); virtual;
|
|
function GetCOLORIsNull: Boolean; virtual;
|
|
procedure SetCOLORIsNull(const aValue: Boolean); virtual;
|
|
function GetTALLAValue: String; virtual;
|
|
procedure SetTALLAValue(const aValue: String); virtual;
|
|
function GetTALLAIsNull: Boolean; virtual;
|
|
procedure SetTALLAIsNull(const aValue: Boolean); virtual;
|
|
function GetTALLA38Value: TBcd; virtual;
|
|
procedure SetTALLA38Value(const aValue: TBcd); virtual;
|
|
function GetTALLA38IsNull: Boolean; virtual;
|
|
procedure SetTALLA38IsNull(const aValue: Boolean); virtual;
|
|
function GetTALLA40Value: TBcd; virtual;
|
|
procedure SetTALLA40Value(const aValue: TBcd); virtual;
|
|
function GetTALLA40IsNull: Boolean; virtual;
|
|
procedure SetTALLA40IsNull(const aValue: Boolean); virtual;
|
|
function GetTALLA42Value: TBcd; virtual;
|
|
procedure SetTALLA42Value(const aValue: TBcd); virtual;
|
|
function GetTALLA42IsNull: Boolean; virtual;
|
|
procedure SetTALLA42IsNull(const aValue: Boolean); virtual;
|
|
function GetTALLA44Value: TBcd; virtual;
|
|
procedure SetTALLA44Value(const aValue: TBcd); virtual;
|
|
function GetTALLA44IsNull: Boolean; virtual;
|
|
procedure SetTALLA44IsNull(const aValue: Boolean); virtual;
|
|
function GetTALLA46Value: TBcd; virtual;
|
|
procedure SetTALLA46Value(const aValue: TBcd); virtual;
|
|
function GetTALLA46IsNull: Boolean; virtual;
|
|
procedure SetTALLA46IsNull(const aValue: Boolean); virtual;
|
|
function GetTALLA48Value: TBcd; virtual;
|
|
procedure SetTALLA48Value(const aValue: TBcd); virtual;
|
|
function GetTALLA48IsNull: Boolean; virtual;
|
|
procedure SetTALLA48IsNull(const aValue: Boolean); virtual;
|
|
function GetVTATERMDEVValue: TBcd; virtual;
|
|
procedure SetVTATERMDEVValue(const aValue: TBcd); virtual;
|
|
function GetVTATERMDEVIsNull: Boolean; virtual;
|
|
procedure SetVTATERMDEVIsNull(const aValue: Boolean); virtual;
|
|
function GetVTAFINALRESCValue: TBcd; virtual;
|
|
procedure SetVTAFINALRESCValue(const aValue: TBcd); virtual;
|
|
function GetVTAFINALRESCIsNull: Boolean; virtual;
|
|
procedure SetVTAFINALRESCIsNull(const aValue: Boolean); virtual;
|
|
function GetVENTASValue: TBcd; virtual;
|
|
procedure SetVENTASValue(const aValue: TBcd); virtual;
|
|
function GetVENTASIsNull: Boolean; virtual;
|
|
procedure SetVENTASIsNull(const aValue: Boolean); virtual;
|
|
function GetDEVOLUCIONESValue: TBcd; virtual;
|
|
procedure SetDEVOLUCIONESValue(const aValue: TBcd); virtual;
|
|
function GetDEVOLUCIONESIsNull: Boolean; virtual;
|
|
procedure SetDEVOLUCIONESIsNull(const aValue: Boolean); virtual;
|
|
function GetTOTALValue: TBcd; virtual;
|
|
procedure SetTOTALValue(const aValue: TBcd); virtual;
|
|
function GetTOTALIsNull: Boolean; virtual;
|
|
procedure SetTOTALIsNull(const aValue: Boolean); virtual;
|
|
function GetVALTERMDEVValue: TBcd; virtual;
|
|
procedure SetVALTERMDEVValue(const aValue: TBcd); virtual;
|
|
function GetVALTERMDEVIsNull: Boolean; virtual;
|
|
procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual;
|
|
function GetVALFINALRESCValue: TBcd; virtual;
|
|
procedure SetVALFINALRESCValue(const aValue: TBcd); virtual;
|
|
function GetVALFINALRESCIsNull: Boolean; virtual;
|
|
procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual;
|
|
function GetVALVENValue: TBcd; virtual;
|
|
procedure SetVALVENValue(const aValue: TBcd); virtual;
|
|
function GetVALVENIsNull: Boolean; virtual;
|
|
procedure SetVALVENIsNull(const aValue: Boolean); virtual;
|
|
function GetVALDEVValue: TBcd; virtual;
|
|
procedure SetVALDEVValue(const aValue: TBcd); virtual;
|
|
function GetVALDEVIsNull: Boolean; virtual;
|
|
procedure SetVALDEVIsNull(const aValue: Boolean); virtual;
|
|
function GetVALTOTValue: TBcd; virtual;
|
|
procedure SetVALTOTValue(const aValue: TBcd); virtual;
|
|
function GetVALTOTIsNull: Boolean; virtual;
|
|
procedure SetVALTOTIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property NUMINF: String read GetNUMINFValue write SetNUMINFValue;
|
|
property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull;
|
|
property CLAVE1: TBcd read GetCLAVE1Value write SetCLAVE1Value;
|
|
property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull;
|
|
property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value;
|
|
property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull;
|
|
property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value;
|
|
property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull;
|
|
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
|
|
property DIA: Integer read GetDIAValue write SetDIAValue;
|
|
property DIAIsNull: Boolean read GetDIAIsNull write SetDIAIsNull;
|
|
property DIASEMANA: WideString read GetDIASEMANAValue write SetDIASEMANAValue;
|
|
property DIASEMANAIsNull: Boolean read GetDIASEMANAIsNull write SetDIASEMANAIsNull;
|
|
property MES: WideString read GetMESValue write SetMESValue;
|
|
property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull;
|
|
property ANO: Integer read GetANOValue write SetANOValue;
|
|
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
|
property CENTRO: String read GetCENTROValue write SetCENTROValue;
|
|
property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull;
|
|
property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
|
|
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
|
|
property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue;
|
|
property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull;
|
|
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
|
|
property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue;
|
|
property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull;
|
|
property GRUPOPRODUCTO: String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue;
|
|
property GRUPOPRODUCTOIsNull: Boolean read GetGRUPOPRODUCTOIsNull write SetGRUPOPRODUCTOIsNull;
|
|
property TIPOPRODUCTO: String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue;
|
|
property TIPOPRODUCTOIsNull: Boolean read GetTIPOPRODUCTOIsNull write SetTIPOPRODUCTOIsNull;
|
|
property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue;
|
|
property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull;
|
|
property COLOR: String read GetCOLORValue write SetCOLORValue;
|
|
property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull;
|
|
property TALLA: String read GetTALLAValue write SetTALLAValue;
|
|
property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull;
|
|
property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value;
|
|
property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull;
|
|
property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value;
|
|
property TALLA40IsNull: Boolean read GetTALLA40IsNull write SetTALLA40IsNull;
|
|
property TALLA42: TBcd read GetTALLA42Value write SetTALLA42Value;
|
|
property TALLA42IsNull: Boolean read GetTALLA42IsNull write SetTALLA42IsNull;
|
|
property TALLA44: TBcd read GetTALLA44Value write SetTALLA44Value;
|
|
property TALLA44IsNull: Boolean read GetTALLA44IsNull write SetTALLA44IsNull;
|
|
property TALLA46: TBcd read GetTALLA46Value write SetTALLA46Value;
|
|
property TALLA46IsNull: Boolean read GetTALLA46IsNull write SetTALLA46IsNull;
|
|
property TALLA48: TBcd read GetTALLA48Value write SetTALLA48Value;
|
|
property TALLA48IsNull: Boolean read GetTALLA48IsNull write SetTALLA48IsNull;
|
|
property VTATERMDEV: TBcd read GetVTATERMDEVValue write SetVTATERMDEVValue;
|
|
property VTATERMDEVIsNull: Boolean read GetVTATERMDEVIsNull write SetVTATERMDEVIsNull;
|
|
property VTAFINALRESC: TBcd read GetVTAFINALRESCValue write SetVTAFINALRESCValue;
|
|
property VTAFINALRESCIsNull: Boolean read GetVTAFINALRESCIsNull write SetVTAFINALRESCIsNull;
|
|
property VENTAS: TBcd read GetVENTASValue write SetVENTASValue;
|
|
property VENTASIsNull: Boolean read GetVENTASIsNull write SetVENTASIsNull;
|
|
property DEVOLUCIONES: TBcd read GetDEVOLUCIONESValue write SetDEVOLUCIONESValue;
|
|
property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull;
|
|
property TOTAL: TBcd read GetTOTALValue write SetTOTALValue;
|
|
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
|
property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
|
property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
|
property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
|
property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
|
property VALVEN: TBcd read GetVALVENValue write SetVALVENValue;
|
|
property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
|
property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue;
|
|
property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
|
property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue;
|
|
property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants, uROBinaryHelpers;
|
|
|
|
{ TVentasTerminadasCrossTabDataTableRules }
|
|
constructor TVentasTerminadasCrossTabDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TVentasTerminadasCrossTabDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
|
|
{ TVentasTerminadasDataTableRules }
|
|
constructor TVentasTerminadasDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TVentasTerminadasDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetNUMINFValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasNUMINF].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetNUMINFValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasNUMINF].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetNUMINFIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasNUMINF].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetNUMINFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasNUMINF].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCLAVE1Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCLAVE1].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCLAVE1Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCLAVE1].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCLAVE1IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCLAVE1].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCLAVE1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCLAVE1].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCLAVE2Value: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCLAVE2].AsInteger;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCLAVE2Value(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCLAVE2].AsInteger := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCLAVE2IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCLAVE2].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCLAVE2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCLAVE2].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCLAVE3Value: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCLAVE3].AsInteger;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCLAVE3Value(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCLAVE3].AsInteger := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCLAVE3IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCLAVE3].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCLAVE3IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCLAVE3].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetFECHAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasFECHA].AsDateTime;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetFECHAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasFECHA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetFECHAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasFECHA].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetFECHAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasFECHA].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetDIAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasDIA].AsInteger;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetDIAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasDIA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetDIAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasDIA].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetDIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasDIA].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetDIASEMANAValue: WideString;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasDIASEMANA].AsWideString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetDIASEMANAValue(const aValue: WideString);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasDIASEMANA].AsWideString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetDIASEMANAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasDIASEMANA].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetDIASEMANAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasDIASEMANA].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetMESValue: WideString;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasMES].AsWideString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetMESValue(const aValue: WideString);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasMES].AsWideString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetMESIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasMES].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetMESIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasMES].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetANOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasANO].AsInteger;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetANOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasANO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetANOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasANO].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetANOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasANO].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCENTROValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCENTRO].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCENTROValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCENTRO].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCENTROIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCENTRO].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCENTROIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCENTRO].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVENDEDORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVENDEDOR].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVENDEDORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVENDEDOR].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVENDEDORIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVENDEDOR].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVENDEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVENDEDOR].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetNUMTALONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasNUMTALON].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetNUMTALONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasNUMTALON].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetNUMTALONIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasNUMTALON].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetNUMTALONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasNUMTALON].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCODIGOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCODIGO].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCODIGOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCODIGO].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCODIGOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCODIGO].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCODIGOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCODIGO].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetPRODUCTOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasPRODUCTO].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetPRODUCTOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasPRODUCTO].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetPRODUCTOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasPRODUCTO].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasPRODUCTO].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetGRUPOPRODUCTOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetGRUPOPRODUCTOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetGRUPOPRODUCTOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetGRUPOPRODUCTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTIPOPRODUCTOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTIPOPRODUCTOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTIPOPRODUCTOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTIPOPRODUCTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCOLECCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCOLECCION].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCOLECCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCOLECCION].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCOLECCIONIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCOLECCION].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCOLECCION].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCOLORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCOLOR].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCOLORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasCOLOR].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetCOLORIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasCOLOR].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetCOLORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasCOLOR].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA].AsString;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA].AsString := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA38Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA38].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA38Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA38].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA38IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA38].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA38IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA38].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA40Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA40].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA40Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA40].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA40IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA40].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA40IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA40].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA42Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA42].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA42Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA42].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA42IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA42].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA42IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA42].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA44Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA44].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA44Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA44].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA44IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA44].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA44IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA44].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA46Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA46].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA46Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA46].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA46IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA46].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA46IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA46].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA48Value: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA48].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA48Value(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTALLA48].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTALLA48IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTALLA48].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTALLA48IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTALLA48].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVTATERMDEVValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVTATERMDEV].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVTATERMDEVValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVTATERMDEV].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVTATERMDEVIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVTATERMDEV].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVTATERMDEVIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVTATERMDEV].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVTAFINALRESCValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVTAFINALRESCValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVTAFINALRESCIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVTAFINALRESCIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVENTASValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVENTAS].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVENTASValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVENTAS].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVENTASIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVENTAS].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVENTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVENTAS].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetDEVOLUCIONESValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetDEVOLUCIONESValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetDEVOLUCIONESIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetDEVOLUCIONESIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTOTALValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTOTAL].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTOTALValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasTOTAL].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetTOTALIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasTOTAL].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetTOTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasTOTAL].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALTERMDEVValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALTERMDEVValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALTERMDEVIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALTERMDEVIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALFINALRESCValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALFINALRESCValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALFINALRESCIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALFINALRESCIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALVENValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALVENValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALVENIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALVEN].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALVENIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVALVEN].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALDEVValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALDEVValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALDEVIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALDEV].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALDEVIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVALDEV].AsVariant := Null;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALTOTValue: TBcd;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALTOTValue(const aValue: TBcd);
|
|
begin
|
|
DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal := aValue;
|
|
end;
|
|
|
|
function TVentasTerminadasDataTableRules.GetVALTOTIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_VentasTerminadasVALTOT].IsNull;
|
|
end;
|
|
|
|
procedure TVentasTerminadasDataTableRules.SetVALTOTIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_VentasTerminadasVALTOT].AsVariant := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_VentasTerminadasCrossTab, TVentasTerminadasCrossTabDataTableRules);
|
|
RegisterDataTableRules(RID_VentasTerminadas, TVentasTerminadasDataTableRules);
|
|
|
|
end.
|