Archivado/ConstruccionesCNJ_FactuGES
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
master
ConstruccionesCNJ_FactuGES/Modulos/Presupuestos/Model/schPresupuestosClient_Intf.pas
david 12013bdc69 Importación inicial 
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
2007-06-21 15:50:59 +00:00

1727 lines
71 KiB
ObjectPascal
Raw Permalink Blame History

unit schPresupuestosClient_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_darReferencia = '{B0F5BE35-1320-456B-B976-1ED086EFFE26}';
RID_Presupuestos = '{2622DAA6-0BE7-40CD-B788-338044C36767}';
RID_Presupuestos_Detalles = '{A664AE8C-2E1B-4273-BA7C-AFE8856E19EB}';
RID_Presupuestos_Refresh = '{304831CC-9E69-442E-9D3D-92234AC17C1A}';
{ Data table names }
nme_darReferencia = 'darReferencia';
nme_Presupuestos = 'Presupuestos';
nme_Presupuestos_Detalles = 'Presupuestos_Detalles';
nme_Presupuestos_Refresh = 'Presupuestos_Refresh';
{ darReferencia fields }
fld_darReferenciaVALOR = 'VALOR';
{ darReferencia field indexes }
idx_darReferenciaVALOR = 0;
{ Presupuestos fields }
fld_PresupuestosID = 'ID';
fld_PresupuestosID_EMPRESA = 'ID_EMPRESA';
fld_PresupuestosID_CLIENTE = 'ID_CLIENTE';
fld_PresupuestosNOMBRE = 'NOMBRE';
fld_PresupuestosNIF_CIF = 'NIF_CIF';
fld_PresupuestosCALLE = 'CALLE';
fld_PresupuestosPOBLACION = 'POBLACION';
fld_PresupuestosPROVINCIA = 'PROVINCIA';
fld_PresupuestosCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_PresupuestosTELEFONO_1 = 'TELEFONO_1';
fld_PresupuestosTELEFONO_2 = 'TELEFONO_2';
fld_PresupuestosFAX = 'FAX';
fld_PresupuestosMOVIL_1 = 'MOVIL_1';
fld_PresupuestosMOVIL_2 = 'MOVIL_2';
fld_PresupuestosEMAIL_1 = 'EMAIL_1';
fld_PresupuestosEMAIL_2 = 'EMAIL_2';
fld_PresupuestosID_VENDEDOR = 'ID_VENDEDOR';
fld_PresupuestosREFERENCIA = 'REFERENCIA';
fld_PresupuestosFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
fld_PresupuestosVIGENCIA = 'VIGENCIA';
fld_PresupuestosSITUACION = 'SITUACION';
fld_PresupuestosFECHA_DECISION = 'FECHA_DECISION';
fld_PresupuestosBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_PresupuestosDESCUENTO = 'DESCUENTO';
fld_PresupuestosIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_PresupuestosIVA = 'IVA';
fld_PresupuestosIMPORTE_IVA = 'IMPORTE_IVA';
fld_PresupuestosIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PresupuestosOBSERVACIONES = 'OBSERVACIONES';
fld_PresupuestosPLAZO_ENTREGA = 'PLAZO_ENTREGA';
fld_PresupuestosFORMA_PAGO = 'FORMA_PAGO';
fld_PresupuestosFECHA_ALTA = 'FECHA_ALTA';
fld_PresupuestosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_PresupuestosUSUARIO = 'USUARIO';
fld_PresupuestosFECHA_VALIDEZ = 'FECHA_VALIDEZ';
fld_PresupuestosID_MONTAJE = 'ID_MONTAJE';
{ Presupuestos field indexes }
idx_PresupuestosID = 0;
idx_PresupuestosID_EMPRESA = 1;
idx_PresupuestosID_CLIENTE = 2;
idx_PresupuestosNOMBRE = 3;
idx_PresupuestosNIF_CIF = 4;
idx_PresupuestosCALLE = 5;
idx_PresupuestosPOBLACION = 6;
idx_PresupuestosPROVINCIA = 7;
idx_PresupuestosCODIGO_POSTAL = 8;
idx_PresupuestosTELEFONO_1 = 9;
idx_PresupuestosTELEFONO_2 = 10;
idx_PresupuestosFAX = 11;
idx_PresupuestosMOVIL_1 = 12;
idx_PresupuestosMOVIL_2 = 13;
idx_PresupuestosEMAIL_1 = 14;
idx_PresupuestosEMAIL_2 = 15;
idx_PresupuestosID_VENDEDOR = 16;
idx_PresupuestosREFERENCIA = 17;
idx_PresupuestosFECHA_PRESUPUESTO = 18;
idx_PresupuestosVIGENCIA = 19;
idx_PresupuestosSITUACION = 20;
idx_PresupuestosFECHA_DECISION = 21;
idx_PresupuestosBASE_IMPONIBLE = 22;
idx_PresupuestosDESCUENTO = 23;
idx_PresupuestosIMPORTE_DESCUENTO = 24;
idx_PresupuestosIVA = 25;
idx_PresupuestosIMPORTE_IVA = 26;
idx_PresupuestosIMPORTE_TOTAL = 27;
idx_PresupuestosOBSERVACIONES = 28;
idx_PresupuestosPLAZO_ENTREGA = 29;
idx_PresupuestosFORMA_PAGO = 30;
idx_PresupuestosFECHA_ALTA = 31;
idx_PresupuestosFECHA_MODIFICACION = 32;
idx_PresupuestosUSUARIO = 33;
idx_PresupuestosFECHA_VALIDEZ = 34;
idx_PresupuestosID_MONTAJE = 35;
{ Presupuestos_Detalles fields }
fld_Presupuestos_DetallesID = 'ID';
fld_Presupuestos_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_Presupuestos_DetallesPOSICION = 'POSICION';
fld_Presupuestos_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_Presupuestos_DetallesCONCEPTO = 'CONCEPTO';
fld_Presupuestos_DetallesCANTIDAD = 'CANTIDAD';
fld_Presupuestos_DetallesPUNTOS = 'PUNTOS';
fld_Presupuestos_DetallesIMPORTE_PUNTOS = 'IMPORTE_PUNTOS';
fld_Presupuestos_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_Presupuestos_DetallesDESCUENTO = 'DESCUENTO';
fld_Presupuestos_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_Presupuestos_DetallesVISIBLE = 'VISIBLE';
{ Presupuestos_Detalles field indexes }
idx_Presupuestos_DetallesID = 0;
idx_Presupuestos_DetallesID_PRESUPUESTO = 1;
idx_Presupuestos_DetallesPOSICION = 2;
idx_Presupuestos_DetallesTIPO_DETALLE = 3;
idx_Presupuestos_DetallesCONCEPTO = 4;
idx_Presupuestos_DetallesCANTIDAD = 5;
idx_Presupuestos_DetallesPUNTOS = 6;
idx_Presupuestos_DetallesIMPORTE_PUNTOS = 7;
idx_Presupuestos_DetallesIMPORTE_UNIDAD = 8;
idx_Presupuestos_DetallesDESCUENTO = 9;
idx_Presupuestos_DetallesIMPORTE_TOTAL = 10;
idx_Presupuestos_DetallesVISIBLE = 11;
{ Presupuestos_Refresh fields }
fld_Presupuestos_RefreshID = 'ID';
fld_Presupuestos_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_Presupuestos_RefreshID_CLIENTE = 'ID_CLIENTE';
fld_Presupuestos_RefreshNOMBRE = 'NOMBRE';
fld_Presupuestos_RefreshNIF_CIF = 'NIF_CIF';
fld_Presupuestos_RefreshCALLE = 'CALLE';
fld_Presupuestos_RefreshPOBLACION = 'POBLACION';
fld_Presupuestos_RefreshPROVINCIA = 'PROVINCIA';
fld_Presupuestos_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_Presupuestos_RefreshTELEFONO_1 = 'TELEFONO_1';
fld_Presupuestos_RefreshTELEFONO_2 = 'TELEFONO_2';
fld_Presupuestos_RefreshFAX = 'FAX';
fld_Presupuestos_RefreshMOVIL_1 = 'MOVIL_1';
fld_Presupuestos_RefreshMOVIL_2 = 'MOVIL_2';
fld_Presupuestos_RefreshEMAIL_1 = 'EMAIL_1';
fld_Presupuestos_RefreshEMAIL_2 = 'EMAIL_2';
fld_Presupuestos_RefreshID_VENDEDOR = 'ID_VENDEDOR';
fld_Presupuestos_RefreshREFERENCIA = 'REFERENCIA';
fld_Presupuestos_RefreshFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
fld_Presupuestos_RefreshVIGENCIA = 'VIGENCIA';
fld_Presupuestos_RefreshSITUACION = 'SITUACION';
fld_Presupuestos_RefreshFECHA_DECISION = 'FECHA_DECISION';
fld_Presupuestos_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_Presupuestos_RefreshDESCUENTO = 'DESCUENTO';
fld_Presupuestos_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_Presupuestos_RefreshIVA = 'IVA';
fld_Presupuestos_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
fld_Presupuestos_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_Presupuestos_RefreshOBSERVACIONES = 'OBSERVACIONES';
fld_Presupuestos_RefreshPLAZO_ENTREGA = 'PLAZO_ENTREGA';
fld_Presupuestos_RefreshFORMA_PAGO = 'FORMA_PAGO';
fld_Presupuestos_RefreshFECHA_ALTA = 'FECHA_ALTA';
fld_Presupuestos_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_Presupuestos_RefreshUSUARIO = 'USUARIO';
fld_Presupuestos_RefreshFECHA_VALIDEZ = 'FECHA_VALIDEZ';
fld_Presupuestos_RefreshID_MONTAJE = 'ID_MONTAJE';
{ Presupuestos_Refresh field indexes }
idx_Presupuestos_RefreshID = 0;
idx_Presupuestos_RefreshID_EMPRESA = 1;
idx_Presupuestos_RefreshID_CLIENTE = 2;
idx_Presupuestos_RefreshNOMBRE = 3;
idx_Presupuestos_RefreshNIF_CIF = 4;
idx_Presupuestos_RefreshCALLE = 5;
idx_Presupuestos_RefreshPOBLACION = 6;
idx_Presupuestos_RefreshPROVINCIA = 7;
idx_Presupuestos_RefreshCODIGO_POSTAL = 8;
idx_Presupuestos_RefreshTELEFONO_1 = 9;
idx_Presupuestos_RefreshTELEFONO_2 = 10;
idx_Presupuestos_RefreshFAX = 11;
idx_Presupuestos_RefreshMOVIL_1 = 12;
idx_Presupuestos_RefreshMOVIL_2 = 13;
idx_Presupuestos_RefreshEMAIL_1 = 14;
idx_Presupuestos_RefreshEMAIL_2 = 15;
idx_Presupuestos_RefreshID_VENDEDOR = 16;
idx_Presupuestos_RefreshREFERENCIA = 17;
idx_Presupuestos_RefreshFECHA_PRESUPUESTO = 18;
idx_Presupuestos_RefreshVIGENCIA = 19;
idx_Presupuestos_RefreshSITUACION = 20;
idx_Presupuestos_RefreshFECHA_DECISION = 21;
idx_Presupuestos_RefreshBASE_IMPONIBLE = 22;
idx_Presupuestos_RefreshDESCUENTO = 23;
idx_Presupuestos_RefreshIMPORTE_DESCUENTO = 24;
idx_Presupuestos_RefreshIVA = 25;
idx_Presupuestos_RefreshIMPORTE_IVA = 26;
idx_Presupuestos_RefreshIMPORTE_TOTAL = 27;
idx_Presupuestos_RefreshOBSERVACIONES = 28;
idx_Presupuestos_RefreshPLAZO_ENTREGA = 29;
idx_Presupuestos_RefreshFORMA_PAGO = 30;
idx_Presupuestos_RefreshFECHA_ALTA = 31;
idx_Presupuestos_RefreshFECHA_MODIFICACION = 32;
idx_Presupuestos_RefreshUSUARIO = 33;
idx_Presupuestos_RefreshFECHA_VALIDEZ = 34;
idx_Presupuestos_RefreshID_MONTAJE = 35;
type
{ IdarReferencia }
IdarReferencia = interface(IDAStronglyTypedDataTable)
['{0470BFD0-9030-453B-8256-FB74514D9B75}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
{ Properties }
property VALOR: String read GetVALORValue write SetVALORValue;
end;
{ TdarReferenciaDataTableRules }
TdarReferenciaDataTableRules = class(TDADataTableRules, IdarReferencia)
private
protected
{ Property getters and setters }
function GetVALORValue: String; virtual;
procedure SetVALORValue(const aValue: String); virtual;
{ Properties }
property VALOR: String read GetVALORValue write SetVALORValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPresupuestos }
IPresupuestos = interface(IDAStronglyTypedDataTable)
['{435C38F5-3A91-45C6-B9B5-516C5C57862A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
function GetTELEFONO_1Value: String;
procedure SetTELEFONO_1Value(const aValue: String);
function GetTELEFONO_2Value: String;
procedure SetTELEFONO_2Value(const aValue: String);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
function GetMOVIL_1Value: String;
procedure SetMOVIL_1Value(const aValue: String);
function GetMOVIL_2Value: String;
procedure SetMOVIL_2Value(const aValue: String);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
function GetEMAIL_2Value: String;
procedure SetEMAIL_2Value(const aValue: String);
function GetID_VENDEDORValue: Integer;
procedure SetID_VENDEDORValue(const aValue: Integer);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetFECHA_PRESUPUESTOValue: DateTime;
procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime);
function GetVIGENCIAValue: Integer;
procedure SetVIGENCIAValue(const aValue: Integer);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetFECHA_DECISIONValue: DateTime;
procedure SetFECHA_DECISIONValue(const aValue: DateTime);
function GetBASE_IMPONIBLEValue: Float;
procedure SetBASE_IMPONIBLEValue(const aValue: Float);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_DESCUENTOValue: Float;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Float);
function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float);
function GetIMPORTE_IVAValue: Float;
procedure SetIMPORTE_IVAValue(const aValue: Float);
function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetOBSERVACIONESValue: IROStrings;
procedure SetOBSERVACIONESValue(const aValue: IROStrings);
function GetPLAZO_ENTREGAValue: IROStrings;
procedure SetPLAZO_ENTREGAValue(const aValue: IROStrings);
function GetFORMA_PAGOValue: IROStrings;
procedure SetFORMA_PAGOValue(const aValue: IROStrings);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetFECHA_VALIDEZValue: DateTime;
procedure SetFECHA_VALIDEZValue(const aValue: DateTime);
function GetID_MONTAJEValue: Integer;
procedure SetID_MONTAJEValue(const aValue: Integer);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property FAX: String read GetFAXValue write SetFAXValue;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property FECHA_PRESUPUESTO: DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue;
property VIGENCIA: Integer read GetVIGENCIAValue write SetVIGENCIAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property BASE_IMPONIBLE: Float read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Float read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Float read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property PLAZO_ENTREGA: IROStrings read GetPLAZO_ENTREGAValue write SetPLAZO_ENTREGAValue;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_VALIDEZ: DateTime read GetFECHA_VALIDEZValue write SetFECHA_VALIDEZValue;
property ID_MONTAJE: Integer read GetID_MONTAJEValue write SetID_MONTAJEValue;
end;
{ TPresupuestosDataTableRules }
TPresupuestosDataTableRules = class(TDADataTableRules, IPresupuestos)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
function GetTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
function GetMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
function GetID_VENDEDORValue: Integer; virtual;
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetFECHA_PRESUPUESTOValue: DateTime; virtual;
procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime); virtual;
function GetVIGENCIAValue: Integer; virtual;
procedure SetVIGENCIAValue(const aValue: Integer); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetFECHA_DECISIONValue: DateTime; virtual;
procedure SetFECHA_DECISIONValue(const aValue: DateTime); virtual;
function GetBASE_IMPONIBLEValue: Float; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Float); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Float; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Float); virtual;
function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Float; virtual;
procedure SetIMPORTE_IVAValue(const aValue: Float); virtual;
function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual;
procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
function GetPLAZO_ENTREGAValue: IROStrings; virtual;
procedure SetPLAZO_ENTREGAValue(const aValue: IROStrings); virtual;
function GetFORMA_PAGOValue: IROStrings; virtual;
procedure SetFORMA_PAGOValue(const aValue: IROStrings); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetFECHA_VALIDEZValue: DateTime; virtual;
procedure SetFECHA_VALIDEZValue(const aValue: DateTime); virtual;
function GetID_MONTAJEValue: Integer; virtual;
procedure SetID_MONTAJEValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property FAX: String read GetFAXValue write SetFAXValue;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property FECHA_PRESUPUESTO: DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue;
property VIGENCIA: Integer read GetVIGENCIAValue write SetVIGENCIAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property BASE_IMPONIBLE: Float read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Float read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Float read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property PLAZO_ENTREGA: IROStrings read GetPLAZO_ENTREGAValue write SetPLAZO_ENTREGAValue;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_VALIDEZ: DateTime read GetFECHA_VALIDEZValue write SetFECHA_VALIDEZValue;
property ID_MONTAJE: Integer read GetID_MONTAJEValue write SetID_MONTAJEValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPresupuestos_Detalles }
IPresupuestos_Detalles = interface(IDAStronglyTypedDataTable)
['{24147B62-8039-4D2F-A27B-F31D6A7D7ED5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_PRESUPUESTOValue: Integer;
procedure SetID_PRESUPUESTOValue(const aValue: Integer);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetTIPO_DETALLEValue: String;
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetPUNTOSValue: Integer;
procedure SetPUNTOSValue(const aValue: Integer);
function GetIMPORTE_PUNTOSValue: Float;
procedure SetIMPORTE_PUNTOSValue(const aValue: Float);
function GetIMPORTE_UNIDADValue: Float;
procedure SetIMPORTE_UNIDADValue(const aValue: Float);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
property IMPORTE_PUNTOS: Float read GetIMPORTE_PUNTOSValue write SetIMPORTE_PUNTOSValue;
property IMPORTE_UNIDAD: Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
end;
{ TPresupuestos_DetallesDataTableRules }
TPresupuestos_DetallesDataTableRules = class(TDADataTableRules, IPresupuestos_Detalles)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_PRESUPUESTOValue: Integer; virtual;
procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetPUNTOSValue: Integer; virtual;
procedure SetPUNTOSValue(const aValue: Integer); virtual;
function GetIMPORTE_PUNTOSValue: Float; virtual;
procedure SetIMPORTE_PUNTOSValue(const aValue: Float); virtual;
function GetIMPORTE_UNIDADValue: Float; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Float); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
property IMPORTE_PUNTOS: Float read GetIMPORTE_PUNTOSValue write SetIMPORTE_PUNTOSValue;
property IMPORTE_UNIDAD: Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPresupuestos_Refresh }
IPresupuestos_Refresh = interface(IDAStronglyTypedDataTable)
['{30AEC914-BD10-48B2-AB88-CDDD545AE065}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
function GetTELEFONO_1Value: String;
procedure SetTELEFONO_1Value(const aValue: String);
function GetTELEFONO_2Value: String;
procedure SetTELEFONO_2Value(const aValue: String);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
function GetMOVIL_1Value: String;
procedure SetMOVIL_1Value(const aValue: String);
function GetMOVIL_2Value: String;
procedure SetMOVIL_2Value(const aValue: String);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
function GetEMAIL_2Value: String;
procedure SetEMAIL_2Value(const aValue: String);
function GetID_VENDEDORValue: Integer;
procedure SetID_VENDEDORValue(const aValue: Integer);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetFECHA_PRESUPUESTOValue: DateTime;
procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime);
function GetVIGENCIAValue: Integer;
procedure SetVIGENCIAValue(const aValue: Integer);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetFECHA_DECISIONValue: DateTime;
procedure SetFECHA_DECISIONValue(const aValue: DateTime);
function GetBASE_IMPONIBLEValue: Float;
procedure SetBASE_IMPONIBLEValue(const aValue: Float);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_DESCUENTOValue: Float;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Float);
function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float);
function GetIMPORTE_IVAValue: Float;
procedure SetIMPORTE_IVAValue(const aValue: Float);
function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetOBSERVACIONESValue: IROStrings;
procedure SetOBSERVACIONESValue(const aValue: IROStrings);
function GetPLAZO_ENTREGAValue: IROStrings;
procedure SetPLAZO_ENTREGAValue(const aValue: IROStrings);
function GetFORMA_PAGOValue: IROStrings;
procedure SetFORMA_PAGOValue(const aValue: IROStrings);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetFECHA_VALIDEZValue: DateTime;
procedure SetFECHA_VALIDEZValue(const aValue: DateTime);
function GetID_MONTAJEValue: Integer;
procedure SetID_MONTAJEValue(const aValue: Integer);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property FAX: String read GetFAXValue write SetFAXValue;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property FECHA_PRESUPUESTO: DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue;
property VIGENCIA: Integer read GetVIGENCIAValue write SetVIGENCIAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property BASE_IMPONIBLE: Float read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Float read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Float read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property PLAZO_ENTREGA: IROStrings read GetPLAZO_ENTREGAValue write SetPLAZO_ENTREGAValue;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_VALIDEZ: DateTime read GetFECHA_VALIDEZValue write SetFECHA_VALIDEZValue;
property ID_MONTAJE: Integer read GetID_MONTAJEValue write SetID_MONTAJEValue;
end;
{ TPresupuestos_RefreshDataTableRules }
TPresupuestos_RefreshDataTableRules = class(TDADataTableRules, IPresupuestos_Refresh)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
function GetTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
function GetMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
function GetID_VENDEDORValue: Integer; virtual;
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetFECHA_PRESUPUESTOValue: DateTime; virtual;
procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime); virtual;
function GetVIGENCIAValue: Integer; virtual;
procedure SetVIGENCIAValue(const aValue: Integer); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetFECHA_DECISIONValue: DateTime; virtual;
procedure SetFECHA_DECISIONValue(const aValue: DateTime); virtual;
function GetBASE_IMPONIBLEValue: Float; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Float); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Float; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Float); virtual;
function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Float; virtual;
procedure SetIMPORTE_IVAValue(const aValue: Float); virtual;
function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual;
procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
function GetPLAZO_ENTREGAValue: IROStrings; virtual;
procedure SetPLAZO_ENTREGAValue(const aValue: IROStrings); virtual;
function GetFORMA_PAGOValue: IROStrings; virtual;
procedure SetFORMA_PAGOValue(const aValue: IROStrings); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetFECHA_VALIDEZValue: DateTime; virtual;
procedure SetFECHA_VALIDEZValue(const aValue: DateTime); virtual;
function GetID_MONTAJEValue: Integer; virtual;
procedure SetID_MONTAJEValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property FAX: String read GetFAXValue write SetFAXValue;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property FECHA_PRESUPUESTO: DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue;
property VIGENCIA: Integer read GetVIGENCIAValue write SetVIGENCIAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property BASE_IMPONIBLE: Float read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Float read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Float read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property PLAZO_ENTREGA: IROStrings read GetPLAZO_ENTREGAValue write SetPLAZO_ENTREGAValue;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_VALIDEZ: DateTime read GetFECHA_VALIDEZValue write SetFECHA_VALIDEZValue;
property ID_MONTAJE: Integer read GetID_MONTAJEValue write SetID_MONTAJEValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants;
{ TdarReferenciaDataTableRules }
constructor TdarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TdarReferenciaDataTableRules.Destroy;
begin
inherited;
end;
function TdarReferenciaDataTableRules.GetVALORValue: String;
begin
result := DataTable.Fields[idx_darReferenciaVALOR].AsString;
end;
procedure TdarReferenciaDataTableRules.SetVALORValue(const aValue: String);
begin
DataTable.Fields[idx_darReferenciaVALOR].AsString := aValue;
end;
{ TPresupuestosDataTableRules }
constructor TPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPresupuestosDataTableRules.Destroy;
begin
inherited;
end;
function TPresupuestosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosID].AsInteger;
end;
procedure TPresupuestosDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosID].AsInteger := aValue;
end;
function TPresupuestosDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosID_EMPRESA].AsInteger;
end;
procedure TPresupuestosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosID_EMPRESA].AsInteger := aValue;
end;
function TPresupuestosDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosID_CLIENTE].AsInteger;
end;
procedure TPresupuestosDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosID_CLIENTE].AsInteger := aValue;
end;
function TPresupuestosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_PresupuestosNOMBRE].AsString;
end;
procedure TPresupuestosDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosNOMBRE].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_PresupuestosNIF_CIF].AsString;
end;
procedure TPresupuestosDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosNIF_CIF].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCALLE].AsString;
end;
procedure TPresupuestosDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosCALLE].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_PresupuestosPOBLACION].AsString;
end;
procedure TPresupuestosDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosPOBLACION].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_PresupuestosPROVINCIA].AsString;
end;
procedure TPresupuestosDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosPROVINCIA].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCODIGO_POSTAL].AsString;
end;
procedure TPresupuestosDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosCODIGO_POSTAL].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_PresupuestosTELEFONO_1].AsString;
end;
procedure TPresupuestosDataTableRules.SetTELEFONO_1Value(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosTELEFONO_1].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_PresupuestosTELEFONO_2].AsString;
end;
procedure TPresupuestosDataTableRules.SetTELEFONO_2Value(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosTELEFONO_2].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_PresupuestosFAX].AsString;
end;
procedure TPresupuestosDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosFAX].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_PresupuestosMOVIL_1].AsString;
end;
procedure TPresupuestosDataTableRules.SetMOVIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosMOVIL_1].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_PresupuestosMOVIL_2].AsString;
end;
procedure TPresupuestosDataTableRules.SetMOVIL_2Value(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosMOVIL_2].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_PresupuestosEMAIL_1].AsString;
end;
procedure TPresupuestosDataTableRules.SetEMAIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosEMAIL_1].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_PresupuestosEMAIL_2].AsString;
end;
procedure TPresupuestosDataTableRules.SetEMAIL_2Value(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosEMAIL_2].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetID_VENDEDORValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosID_VENDEDOR].AsInteger;
end;
procedure TPresupuestosDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosID_VENDEDOR].AsInteger := aValue;
end;
function TPresupuestosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PresupuestosREFERENCIA].AsString;
end;
procedure TPresupuestosDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosREFERENCIA].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetFECHA_PRESUPUESTOValue: DateTime;
begin
result := DataTable.Fields[idx_PresupuestosFECHA_PRESUPUESTO].AsDateTime;
end;
procedure TPresupuestosDataTableRules.SetFECHA_PRESUPUESTOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PresupuestosFECHA_PRESUPUESTO].AsDateTime := aValue;
end;
function TPresupuestosDataTableRules.GetVIGENCIAValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosVIGENCIA].AsInteger;
end;
procedure TPresupuestosDataTableRules.SetVIGENCIAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosVIGENCIA].AsInteger := aValue;
end;
function TPresupuestosDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_PresupuestosSITUACION].AsString;
end;
procedure TPresupuestosDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosSITUACION].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetFECHA_DECISIONValue: DateTime;
begin
result := DataTable.Fields[idx_PresupuestosFECHA_DECISION].AsDateTime;
end;
procedure TPresupuestosDataTableRules.SetFECHA_DECISIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PresupuestosFECHA_DECISION].AsDateTime := aValue;
end;
function TPresupuestosDataTableRules.GetBASE_IMPONIBLEValue: Float;
begin
result := DataTable.Fields[idx_PresupuestosBASE_IMPONIBLE].AsFloat;
end;
procedure TPresupuestosDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Float);
begin
DataTable.Fields[idx_PresupuestosBASE_IMPONIBLE].AsFloat := aValue;
end;
function TPresupuestosDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_PresupuestosDESCUENTO].AsFloat;
end;
procedure TPresupuestosDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_PresupuestosDESCUENTO].AsFloat := aValue;
end;
function TPresupuestosDataTableRules.GetIMPORTE_DESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_PresupuestosIMPORTE_DESCUENTO].AsFloat;
end;
procedure TPresupuestosDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_PresupuestosIMPORTE_DESCUENTO].AsFloat := aValue;
end;
function TPresupuestosDataTableRules.GetIVAValue: Float;
begin
result := DataTable.Fields[idx_PresupuestosIVA].AsFloat;
end;
procedure TPresupuestosDataTableRules.SetIVAValue(const aValue: Float);
begin
DataTable.Fields[idx_PresupuestosIVA].AsFloat := aValue;
end;
function TPresupuestosDataTableRules.GetIMPORTE_IVAValue: Float;
begin
result := DataTable.Fields[idx_PresupuestosIMPORTE_IVA].AsFloat;
end;
procedure TPresupuestosDataTableRules.SetIMPORTE_IVAValue(const aValue: Float);
begin
DataTable.Fields[idx_PresupuestosIMPORTE_IVA].AsFloat := aValue;
end;
function TPresupuestosDataTableRules.GetIMPORTE_TOTALValue: Float;
begin
result := DataTable.Fields[idx_PresupuestosIMPORTE_TOTAL].AsFloat;
end;
procedure TPresupuestosDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
DataTable.Fields[idx_PresupuestosIMPORTE_TOTAL].AsFloat := aValue;
end;
function TPresupuestosDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PresupuestosOBSERVACIONES].AsString;
end;
procedure TPresupuestosDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PresupuestosOBSERVACIONES].AsString := aValue.Text;
end;
function TPresupuestosDataTableRules.GetPLAZO_ENTREGAValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PresupuestosPLAZO_ENTREGA].AsString;
end;
procedure TPresupuestosDataTableRules.SetPLAZO_ENTREGAValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PresupuestosPLAZO_ENTREGA].AsString := aValue.Text;
end;
function TPresupuestosDataTableRules.GetFORMA_PAGOValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PresupuestosFORMA_PAGO].AsString;
end;
procedure TPresupuestosDataTableRules.SetFORMA_PAGOValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PresupuestosFORMA_PAGO].AsString := aValue.Text;
end;
function TPresupuestosDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_PresupuestosFECHA_ALTA].AsDateTime;
end;
procedure TPresupuestosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PresupuestosFECHA_ALTA].AsDateTime := aValue;
end;
function TPresupuestosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PresupuestosFECHA_MODIFICACION].AsDateTime;
end;
procedure TPresupuestosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PresupuestosFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TPresupuestosDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosUSUARIO].AsString;
end;
procedure TPresupuestosDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosUSUARIO].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetFECHA_VALIDEZValue: DateTime;
begin
result := DataTable.Fields[idx_PresupuestosFECHA_VALIDEZ].AsDateTime;
end;
procedure TPresupuestosDataTableRules.SetFECHA_VALIDEZValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PresupuestosFECHA_VALIDEZ].AsDateTime := aValue;
end;
function TPresupuestosDataTableRules.GetID_MONTAJEValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosID_MONTAJE].AsInteger;
end;
procedure TPresupuestosDataTableRules.SetID_MONTAJEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosID_MONTAJE].AsInteger := aValue;
end;
{ TPresupuestos_DetallesDataTableRules }
constructor TPresupuestos_DetallesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPresupuestos_DetallesDataTableRules.Destroy;
begin
inherited;
end;
function TPresupuestos_DetallesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesID].AsInteger;
end;
procedure TPresupuestos_DetallesDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_DetallesID].AsInteger := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetID_PRESUPUESTOValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesID_PRESUPUESTO].AsInteger;
end;
procedure TPresupuestos_DetallesDataTableRules.SetID_PRESUPUESTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_DetallesID_PRESUPUESTO].AsInteger := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesPOSICION].AsInteger;
end;
procedure TPresupuestos_DetallesDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_DetallesPOSICION].AsInteger := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetTIPO_DETALLEValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesTIPO_DETALLE].AsString;
end;
procedure TPresupuestos_DetallesDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_DetallesTIPO_DETALLE].AsString := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesCONCEPTO].AsString;
end;
procedure TPresupuestos_DetallesDataTableRules.SetCONCEPTOValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_DetallesCONCEPTO].AsString := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetCANTIDADValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesCANTIDAD].AsInteger;
end;
procedure TPresupuestos_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_DetallesCANTIDAD].AsInteger := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetPUNTOSValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesPUNTOS].AsInteger;
end;
procedure TPresupuestos_DetallesDataTableRules.SetPUNTOSValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_DetallesPUNTOS].AsInteger := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetIMPORTE_PUNTOSValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesIMPORTE_PUNTOS].AsFloat;
end;
procedure TPresupuestos_DetallesDataTableRules.SetIMPORTE_PUNTOSValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_DetallesIMPORTE_PUNTOS].AsFloat := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesIMPORTE_UNIDAD].AsFloat;
end;
procedure TPresupuestos_DetallesDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_DetallesIMPORTE_UNIDAD].AsFloat := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesDESCUENTO].AsFloat;
end;
procedure TPresupuestos_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_DetallesDESCUENTO].AsFloat := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetIMPORTE_TOTALValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesIMPORTE_TOTAL].AsFloat;
end;
procedure TPresupuestos_DetallesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_DetallesIMPORTE_TOTAL].AsFloat := aValue;
end;
function TPresupuestos_DetallesDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_DetallesVISIBLE].AsInteger;
end;
procedure TPresupuestos_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_DetallesVISIBLE].AsInteger := aValue;
end;
{ TPresupuestos_RefreshDataTableRules }
constructor TPresupuestos_RefreshDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPresupuestos_RefreshDataTableRules.Destroy;
begin
inherited;
end;
function TPresupuestos_RefreshDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshID].AsInteger;
end;
procedure TPresupuestos_RefreshDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_RefreshID].AsInteger := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshID_EMPRESA].AsInteger;
end;
procedure TPresupuestos_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_RefreshID_EMPRESA].AsInteger := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshID_CLIENTE].AsInteger;
end;
procedure TPresupuestos_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_RefreshID_CLIENTE].AsInteger := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshNOMBRE].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshNOMBRE].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshNIF_CIF].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshNIF_CIF].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshCALLE].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshCALLE].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshPOBLACION].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshPOBLACION].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshPROVINCIA].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshPROVINCIA].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshCODIGO_POSTAL].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshCODIGO_POSTAL].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshTELEFONO_1].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetTELEFONO_1Value(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshTELEFONO_1].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshTELEFONO_2].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetTELEFONO_2Value(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshTELEFONO_2].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshFAX].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshFAX].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshMOVIL_1].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetMOVIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshMOVIL_1].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshMOVIL_2].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetMOVIL_2Value(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshMOVIL_2].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshEMAIL_1].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetEMAIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshEMAIL_1].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshEMAIL_2].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetEMAIL_2Value(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshEMAIL_2].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetID_VENDEDORValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshID_VENDEDOR].AsInteger;
end;
procedure TPresupuestos_RefreshDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_RefreshID_VENDEDOR].AsInteger := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshREFERENCIA].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshREFERENCIA].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetFECHA_PRESUPUESTOValue: DateTime;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshFECHA_PRESUPUESTO].AsDateTime;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFECHA_PRESUPUESTOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Presupuestos_RefreshFECHA_PRESUPUESTO].AsDateTime := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetVIGENCIAValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshVIGENCIA].AsInteger;
end;
procedure TPresupuestos_RefreshDataTableRules.SetVIGENCIAValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_RefreshVIGENCIA].AsInteger := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshSITUACION].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshSITUACION].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetFECHA_DECISIONValue: DateTime;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshFECHA_DECISION].AsDateTime;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFECHA_DECISIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Presupuestos_RefreshFECHA_DECISION].AsDateTime := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetBASE_IMPONIBLEValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshBASE_IMPONIBLE].AsFloat;
end;
procedure TPresupuestos_RefreshDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_RefreshBASE_IMPONIBLE].AsFloat := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshDESCUENTO].AsFloat;
end;
procedure TPresupuestos_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_RefreshDESCUENTO].AsFloat := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetIMPORTE_DESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshIMPORTE_DESCUENTO].AsFloat;
end;
procedure TPresupuestos_RefreshDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_RefreshIMPORTE_DESCUENTO].AsFloat := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetIVAValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshIVA].AsFloat;
end;
procedure TPresupuestos_RefreshDataTableRules.SetIVAValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_RefreshIVA].AsFloat := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetIMPORTE_IVAValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshIMPORTE_IVA].AsFloat;
end;
procedure TPresupuestos_RefreshDataTableRules.SetIMPORTE_IVAValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_RefreshIMPORTE_IVA].AsFloat := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshIMPORTE_TOTAL].AsFloat;
end;
procedure TPresupuestos_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
DataTable.Fields[idx_Presupuestos_RefreshIMPORTE_TOTAL].AsFloat := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_Presupuestos_RefreshOBSERVACIONES].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_Presupuestos_RefreshOBSERVACIONES].AsString := aValue.Text;
end;
function TPresupuestos_RefreshDataTableRules.GetPLAZO_ENTREGAValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_Presupuestos_RefreshPLAZO_ENTREGA].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetPLAZO_ENTREGAValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_Presupuestos_RefreshPLAZO_ENTREGA].AsString := aValue.Text;
end;
function TPresupuestos_RefreshDataTableRules.GetFORMA_PAGOValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_Presupuestos_RefreshFORMA_PAGO].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFORMA_PAGOValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_Presupuestos_RefreshFORMA_PAGO].AsString := aValue.Text;
end;
function TPresupuestos_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshFECHA_ALTA].AsDateTime;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Presupuestos_RefreshFECHA_ALTA].AsDateTime := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshFECHA_MODIFICACION].AsDateTime;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Presupuestos_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshUSUARIO].AsString;
end;
procedure TPresupuestos_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshUSUARIO].AsString := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetFECHA_VALIDEZValue: DateTime;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshFECHA_VALIDEZ].AsDateTime;
end;
procedure TPresupuestos_RefreshDataTableRules.SetFECHA_VALIDEZValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Presupuestos_RefreshFECHA_VALIDEZ].AsDateTime := aValue;
end;
function TPresupuestos_RefreshDataTableRules.GetID_MONTAJEValue: Integer;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshID_MONTAJE].AsInteger;
end;
procedure TPresupuestos_RefreshDataTableRules.SetID_MONTAJEValue(const aValue: Integer);
begin
DataTable.Fields[idx_Presupuestos_RefreshID_MONTAJE].AsInteger := aValue;
end;
initialization
RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules);
RegisterDataTableRules(RID_Presupuestos, TPresupuestosDataTableRules);
RegisterDataTableRules(RID_Presupuestos_Detalles, TPresupuestos_DetallesDataTableRules);
RegisterDataTableRules(RID_Presupuestos_Refresh, TPresupuestos_RefreshDataTableRules);
end.
Reference in New Issue View Git Blame Copy Permalink