roberto
33a99cb3e7
version 2.0.4 git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@13 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
1576 lines
62 KiB
ObjectPascal
1576 lines
62 KiB
ObjectPascal
unit schObrasClient_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_Obras = '{706E785F-8451-4F9C-BABD-3F12E2D3BF11}';
|
|
RID_ContactosObra = '{8CDC2572-0DBF-4202-9B8F-4EE2F88B1D06}';
|
|
RID_RefrescoContactosObra = '{26502333-57D3-4E6D-88AB-BF31225D8154}';
|
|
RID_RefrescoObras = '{2AF0C7BC-A489-4BE5-A35B-03A7852E421D}';
|
|
RID_PresupuestosObra = '{D4BB70A5-2583-4D5B-9B4A-EAE6D8CE9C63}';
|
|
RID_RefrescoPresupuestosObra = '{FB6B6BDC-2071-4B29-BC6A-8C24A6FF50E2}';
|
|
RID_ProyectosObra = '{9136C848-59EF-487A-A721-E4B9CCC20408}';
|
|
|
|
{ Data table names }
|
|
nme_Obras = 'Obras';
|
|
nme_ContactosObra = 'ContactosObra';
|
|
nme_RefrescoContactosObra = 'RefrescoContactosObra';
|
|
nme_RefrescoObras = 'RefrescoObras';
|
|
nme_PresupuestosObra = 'PresupuestosObra';
|
|
nme_RefrescoPresupuestosObra = 'RefrescoPresupuestosObra';
|
|
nme_ProyectosObra = 'ProyectosObra';
|
|
|
|
{ Obras fields }
|
|
fld_ObrasCODIGOEMPRESA = 'CODIGOEMPRESA';
|
|
fld_ObrasCODIGO = 'CODIGO';
|
|
fld_ObrasFECHAALTA = 'FECHAALTA';
|
|
fld_ObrasUSUARIO = 'USUARIO';
|
|
fld_ObrasNOMBRE = 'NOMBRE';
|
|
fld_ObrasFECHAINIOBR = 'FECHAINIOBR';
|
|
fld_ObrasFECHAFINOBR = 'FECHAFINOBR';
|
|
fld_ObrasCALLE = 'CALLE';
|
|
fld_ObrasCODIGOPOSTAL = 'CODIGOPOSTAL';
|
|
fld_ObrasPOBLACION = 'POBLACION';
|
|
fld_ObrasPROVINCIA = 'PROVINCIA';
|
|
fld_ObrasTIPO = 'TIPO';
|
|
fld_ObrasDIMENSIONES = 'DIMENSIONES';
|
|
fld_ObrasHONORARIOS = 'HONORARIOS';
|
|
fld_ObrasIMPORTEHONORARIOS = 'IMPORTEHONORARIOS';
|
|
fld_ObrasAPLICAHONORARIOS = 'APLICAHONORARIOS';
|
|
fld_ObrasTOTALPRESUPUESTOSINI = 'TOTALPRESUPUESTOSINI';
|
|
fld_ObrasTOTALPRESUPUESTOSFIN = 'TOTALPRESUPUESTOSFIN';
|
|
fld_ObrasCODIGOCONTACTO = 'CODIGOCONTACTO';
|
|
fld_ObrasNOMBRECLIENTE = 'NOMBRECLIENTE';
|
|
fld_ObrasALMACEN = 'ALMACEN';
|
|
|
|
{ Obras field indexes }
|
|
idx_ObrasCODIGOEMPRESA = 0;
|
|
idx_ObrasCODIGO = 1;
|
|
idx_ObrasFECHAALTA = 2;
|
|
idx_ObrasUSUARIO = 3;
|
|
idx_ObrasNOMBRE = 4;
|
|
idx_ObrasFECHAINIOBR = 5;
|
|
idx_ObrasFECHAFINOBR = 6;
|
|
idx_ObrasCALLE = 7;
|
|
idx_ObrasCODIGOPOSTAL = 8;
|
|
idx_ObrasPOBLACION = 9;
|
|
idx_ObrasPROVINCIA = 10;
|
|
idx_ObrasTIPO = 11;
|
|
idx_ObrasDIMENSIONES = 12;
|
|
idx_ObrasHONORARIOS = 13;
|
|
idx_ObrasIMPORTEHONORARIOS = 14;
|
|
idx_ObrasAPLICAHONORARIOS = 15;
|
|
idx_ObrasTOTALPRESUPUESTOSINI = 16;
|
|
idx_ObrasTOTALPRESUPUESTOSFIN = 17;
|
|
idx_ObrasCODIGOCONTACTO = 18;
|
|
idx_ObrasNOMBRECLIENTE = 19;
|
|
idx_ObrasALMACEN = 20;
|
|
|
|
{ ContactosObra fields }
|
|
fld_ContactosObraCODIGOOBRA = 'CODIGOOBRA';
|
|
fld_ContactosObraCODIGOCONTACTO = 'CODIGOCONTACTO';
|
|
fld_ContactosObraNOMBRE = 'NOMBRE';
|
|
fld_ContactosObraCATEGORIAS = 'CATEGORIAS';
|
|
|
|
{ ContactosObra field indexes }
|
|
idx_ContactosObraCODIGOOBRA = 0;
|
|
idx_ContactosObraCODIGOCONTACTO = 1;
|
|
idx_ContactosObraNOMBRE = 2;
|
|
idx_ContactosObraCATEGORIAS = 3;
|
|
|
|
{ RefrescoContactosObra fields }
|
|
fld_RefrescoContactosObraCODIGOOBRA = 'CODIGOOBRA';
|
|
fld_RefrescoContactosObraCODIGOCONTACTO = 'CODIGOCONTACTO';
|
|
fld_RefrescoContactosObraNOMBRE = 'NOMBRE';
|
|
fld_RefrescoContactosObraCATEGORIAS = 'CATEGORIAS';
|
|
|
|
{ RefrescoContactosObra field indexes }
|
|
idx_RefrescoContactosObraCODIGOOBRA = 0;
|
|
idx_RefrescoContactosObraCODIGOCONTACTO = 1;
|
|
idx_RefrescoContactosObraNOMBRE = 2;
|
|
idx_RefrescoContactosObraCATEGORIAS = 3;
|
|
|
|
{ RefrescoObras fields }
|
|
fld_RefrescoObrasCODIGO = 'CODIGO';
|
|
fld_RefrescoObrasNOMBRECLIENTE = 'NOMBRECLIENTE';
|
|
|
|
{ RefrescoObras field indexes }
|
|
idx_RefrescoObrasCODIGO = 0;
|
|
idx_RefrescoObrasNOMBRECLIENTE = 1;
|
|
|
|
{ PresupuestosObra fields }
|
|
fld_PresupuestosObraCODIGO = 'CODIGO';
|
|
fld_PresupuestosObraCODIGOOBRA = 'CODIGOOBRA';
|
|
fld_PresupuestosObraCODIGOCONTACTO = 'CODIGOCONTACTO';
|
|
fld_PresupuestosObraFECHAALTA = 'FECHAALTA';
|
|
fld_PresupuestosObraUSUARIO = 'USUARIO';
|
|
fld_PresupuestosObraFECHA = 'FECHA';
|
|
fld_PresupuestosObraCLASE = 'CLASE';
|
|
fld_PresupuestosObraACEPTADO = 'ACEPTADO';
|
|
fld_PresupuestosObraTIPO = 'TIPO';
|
|
fld_PresupuestosObraDESCRIPCION = 'DESCRIPCION';
|
|
fld_PresupuestosObraPRESUPUESTOINICIAL = 'PRESUPUESTOINICIAL';
|
|
fld_PresupuestosObraPRESUPUESTOFINAL = 'PRESUPUESTOFINAL';
|
|
fld_PresupuestosObraAPLICARETENCION = 'APLICARETENCION';
|
|
fld_PresupuestosObraRETENCION = 'RETENCION';
|
|
fld_PresupuestosObraTIEMPORETENCION = 'TIEMPORETENCION';
|
|
fld_PresupuestosObraIMPORTERETENCION = 'IMPORTERETENCION';
|
|
fld_PresupuestosObraNOMBRE = 'NOMBRE';
|
|
|
|
{ PresupuestosObra field indexes }
|
|
idx_PresupuestosObraCODIGO = 0;
|
|
idx_PresupuestosObraCODIGOOBRA = 1;
|
|
idx_PresupuestosObraCODIGOCONTACTO = 2;
|
|
idx_PresupuestosObraFECHAALTA = 3;
|
|
idx_PresupuestosObraUSUARIO = 4;
|
|
idx_PresupuestosObraFECHA = 5;
|
|
idx_PresupuestosObraCLASE = 6;
|
|
idx_PresupuestosObraACEPTADO = 7;
|
|
idx_PresupuestosObraTIPO = 8;
|
|
idx_PresupuestosObraDESCRIPCION = 9;
|
|
idx_PresupuestosObraPRESUPUESTOINICIAL = 10;
|
|
idx_PresupuestosObraPRESUPUESTOFINAL = 11;
|
|
idx_PresupuestosObraAPLICARETENCION = 12;
|
|
idx_PresupuestosObraRETENCION = 13;
|
|
idx_PresupuestosObraTIEMPORETENCION = 14;
|
|
idx_PresupuestosObraIMPORTERETENCION = 15;
|
|
idx_PresupuestosObraNOMBRE = 16;
|
|
|
|
{ RefrescoPresupuestosObra fields }
|
|
fld_RefrescoPresupuestosObraCODIGO = 'CODIGO';
|
|
fld_RefrescoPresupuestosObraCODIGOOBRA = 'CODIGOOBRA';
|
|
fld_RefrescoPresupuestosObraCODIGOCONTACTO = 'CODIGOCONTACTO';
|
|
fld_RefrescoPresupuestosObraFECHAALTA = 'FECHAALTA';
|
|
fld_RefrescoPresupuestosObraUSUARIO = 'USUARIO';
|
|
fld_RefrescoPresupuestosObraFECHA = 'FECHA';
|
|
fld_RefrescoPresupuestosObraCLASE = 'CLASE';
|
|
fld_RefrescoPresupuestosObraACEPTADO = 'ACEPTADO';
|
|
fld_RefrescoPresupuestosObraTIPO = 'TIPO';
|
|
fld_RefrescoPresupuestosObraDESCRIPCION = 'DESCRIPCION';
|
|
fld_RefrescoPresupuestosObraPRESUPUESTOINICIAL = 'PRESUPUESTOINICIAL';
|
|
fld_RefrescoPresupuestosObraPRESUPUESTOFINAL = 'PRESUPUESTOFINAL';
|
|
fld_RefrescoPresupuestosObraAPLICARETENCION = 'APLICARETENCION';
|
|
fld_RefrescoPresupuestosObraRETENCION = 'RETENCION';
|
|
fld_RefrescoPresupuestosObraTIEMPORETENCION = 'TIEMPORETENCION';
|
|
fld_RefrescoPresupuestosObraIMPORTERETENCION = 'IMPORTERETENCION';
|
|
fld_RefrescoPresupuestosObraNOMBRE = 'NOMBRE';
|
|
|
|
{ RefrescoPresupuestosObra field indexes }
|
|
idx_RefrescoPresupuestosObraCODIGO = 0;
|
|
idx_RefrescoPresupuestosObraCODIGOOBRA = 1;
|
|
idx_RefrescoPresupuestosObraCODIGOCONTACTO = 2;
|
|
idx_RefrescoPresupuestosObraFECHAALTA = 3;
|
|
idx_RefrescoPresupuestosObraUSUARIO = 4;
|
|
idx_RefrescoPresupuestosObraFECHA = 5;
|
|
idx_RefrescoPresupuestosObraCLASE = 6;
|
|
idx_RefrescoPresupuestosObraACEPTADO = 7;
|
|
idx_RefrescoPresupuestosObraTIPO = 8;
|
|
idx_RefrescoPresupuestosObraDESCRIPCION = 9;
|
|
idx_RefrescoPresupuestosObraPRESUPUESTOINICIAL = 10;
|
|
idx_RefrescoPresupuestosObraPRESUPUESTOFINAL = 11;
|
|
idx_RefrescoPresupuestosObraAPLICARETENCION = 12;
|
|
idx_RefrescoPresupuestosObraRETENCION = 13;
|
|
idx_RefrescoPresupuestosObraTIEMPORETENCION = 14;
|
|
idx_RefrescoPresupuestosObraIMPORTERETENCION = 15;
|
|
idx_RefrescoPresupuestosObraNOMBRE = 16;
|
|
|
|
{ ProyectosObra fields }
|
|
fld_ProyectosObraCODIGO = 'CODIGO';
|
|
fld_ProyectosObraCODIGOOBRA = 'CODIGOOBRA';
|
|
fld_ProyectosObraDESCRIPCION = 'DESCRIPCION';
|
|
fld_ProyectosObraTIPO = 'TIPO';
|
|
fld_ProyectosObraTERMINADO = 'TERMINADO';
|
|
|
|
{ ProyectosObra field indexes }
|
|
idx_ProyectosObraCODIGO = 0;
|
|
idx_ProyectosObraCODIGOOBRA = 1;
|
|
idx_ProyectosObraDESCRIPCION = 2;
|
|
idx_ProyectosObraTIPO = 3;
|
|
idx_ProyectosObraTERMINADO = 4;
|
|
|
|
type
|
|
{ IObras }
|
|
IObras = interface(IDAStronglyTypedDataTable)
|
|
['{11724F77-5BBA-4824-B876-F8C629A90253}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOEMPRESAValue: Integer;
|
|
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
|
|
function GetCODIGOValue: Integer;
|
|
procedure SetCODIGOValue(const aValue: Integer);
|
|
function GetFECHAALTAValue: DateTime;
|
|
procedure SetFECHAALTAValue(const aValue: DateTime);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
function GetFECHAINIOBRValue: DateTime;
|
|
procedure SetFECHAINIOBRValue(const aValue: DateTime);
|
|
function GetFECHAFINOBRValue: DateTime;
|
|
procedure SetFECHAFINOBRValue(const aValue: DateTime);
|
|
function GetCALLEValue: String;
|
|
procedure SetCALLEValue(const aValue: String);
|
|
function GetCODIGOPOSTALValue: String;
|
|
procedure SetCODIGOPOSTALValue(const aValue: String);
|
|
function GetPOBLACIONValue: String;
|
|
procedure SetPOBLACIONValue(const aValue: String);
|
|
function GetPROVINCIAValue: String;
|
|
procedure SetPROVINCIAValue(const aValue: String);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetDIMENSIONESValue: Integer;
|
|
procedure SetDIMENSIONESValue(const aValue: Integer);
|
|
function GetHONORARIOSValue: Float;
|
|
procedure SetHONORARIOSValue(const aValue: Float);
|
|
function GetIMPORTEHONORARIOSValue: Currency;
|
|
procedure SetIMPORTEHONORARIOSValue(const aValue: Currency);
|
|
function GetAPLICAHONORARIOSValue: String;
|
|
procedure SetAPLICAHONORARIOSValue(const aValue: String);
|
|
function GetTOTALPRESUPUESTOSINIValue: Currency;
|
|
procedure SetTOTALPRESUPUESTOSINIValue(const aValue: Currency);
|
|
function GetTOTALPRESUPUESTOSFINValue: Currency;
|
|
procedure SetTOTALPRESUPUESTOSFINValue(const aValue: Currency);
|
|
function GetCODIGOCONTACTOValue: Integer;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
function GetNOMBRECLIENTEValue: String;
|
|
procedure SetNOMBRECLIENTEValue(const aValue: String);
|
|
function GetALMACENValue: String;
|
|
procedure SetALMACENValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property FECHAINIOBR: DateTime read GetFECHAINIOBRValue write SetFECHAINIOBRValue;
|
|
property FECHAFINOBR: DateTime read GetFECHAFINOBRValue write SetFECHAFINOBRValue;
|
|
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
|
property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
|
|
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
|
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property DIMENSIONES: Integer read GetDIMENSIONESValue write SetDIMENSIONESValue;
|
|
property HONORARIOS: Float read GetHONORARIOSValue write SetHONORARIOSValue;
|
|
property IMPORTEHONORARIOS: Currency read GetIMPORTEHONORARIOSValue write SetIMPORTEHONORARIOSValue;
|
|
property APLICAHONORARIOS: String read GetAPLICAHONORARIOSValue write SetAPLICAHONORARIOSValue;
|
|
property TOTALPRESUPUESTOSINI: Currency read GetTOTALPRESUPUESTOSINIValue write SetTOTALPRESUPUESTOSINIValue;
|
|
property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
|
property ALMACEN: String read GetALMACENValue write SetALMACENValue;
|
|
end;
|
|
|
|
{ TObrasDataTableRules }
|
|
TObrasDataTableRules = class(TDADataTableRules, IObras)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOEMPRESAValue: Integer; virtual;
|
|
procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
|
|
function GetCODIGOValue: Integer; virtual;
|
|
procedure SetCODIGOValue(const aValue: Integer); virtual;
|
|
function GetFECHAALTAValue: DateTime; virtual;
|
|
procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
function GetFECHAINIOBRValue: DateTime; virtual;
|
|
procedure SetFECHAINIOBRValue(const aValue: DateTime); virtual;
|
|
function GetFECHAFINOBRValue: DateTime; virtual;
|
|
procedure SetFECHAFINOBRValue(const aValue: DateTime); virtual;
|
|
function GetCALLEValue: String; virtual;
|
|
procedure SetCALLEValue(const aValue: String); virtual;
|
|
function GetCODIGOPOSTALValue: String; virtual;
|
|
procedure SetCODIGOPOSTALValue(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 GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetDIMENSIONESValue: Integer; virtual;
|
|
procedure SetDIMENSIONESValue(const aValue: Integer); virtual;
|
|
function GetHONORARIOSValue: Float; virtual;
|
|
procedure SetHONORARIOSValue(const aValue: Float); virtual;
|
|
function GetIMPORTEHONORARIOSValue: Currency; virtual;
|
|
procedure SetIMPORTEHONORARIOSValue(const aValue: Currency); virtual;
|
|
function GetAPLICAHONORARIOSValue: String; virtual;
|
|
procedure SetAPLICAHONORARIOSValue(const aValue: String); virtual;
|
|
function GetTOTALPRESUPUESTOSINIValue: Currency; virtual;
|
|
procedure SetTOTALPRESUPUESTOSINIValue(const aValue: Currency); virtual;
|
|
function GetTOTALPRESUPUESTOSFINValue: Currency; virtual;
|
|
procedure SetTOTALPRESUPUESTOSFINValue(const aValue: Currency); virtual;
|
|
function GetCODIGOCONTACTOValue: Integer; virtual;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
|
|
function GetNOMBRECLIENTEValue: String; virtual;
|
|
procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
|
|
function GetALMACENValue: String; virtual;
|
|
procedure SetALMACENValue(const aValue: String); virtual;
|
|
{ Properties }
|
|
property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property FECHAINIOBR: DateTime read GetFECHAINIOBRValue write SetFECHAINIOBRValue;
|
|
property FECHAFINOBR: DateTime read GetFECHAFINOBRValue write SetFECHAFINOBRValue;
|
|
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
|
property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
|
|
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
|
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property DIMENSIONES: Integer read GetDIMENSIONESValue write SetDIMENSIONESValue;
|
|
property HONORARIOS: Float read GetHONORARIOSValue write SetHONORARIOSValue;
|
|
property IMPORTEHONORARIOS: Currency read GetIMPORTEHONORARIOSValue write SetIMPORTEHONORARIOSValue;
|
|
property APLICAHONORARIOS: String read GetAPLICAHONORARIOSValue write SetAPLICAHONORARIOSValue;
|
|
property TOTALPRESUPUESTOSINI: Currency read GetTOTALPRESUPUESTOSINIValue write SetTOTALPRESUPUESTOSINIValue;
|
|
property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
|
property ALMACEN: String read GetALMACENValue write SetALMACENValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IContactosObra }
|
|
IContactosObra = interface(IDAStronglyTypedDataTable)
|
|
['{8693821E-2CD3-4DEA-BE72-42455259F4BF}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOOBRAValue: Integer;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer);
|
|
function GetCODIGOCONTACTOValue: Integer;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
function GetCATEGORIASValue: String;
|
|
procedure SetCATEGORIASValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property CATEGORIAS: String read GetCATEGORIASValue write SetCATEGORIASValue;
|
|
end;
|
|
|
|
{ TContactosObraDataTableRules }
|
|
TContactosObraDataTableRules = class(TDADataTableRules, IContactosObra)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOOBRAValue: Integer; virtual;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
|
|
function GetCODIGOCONTACTOValue: Integer; virtual;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
function GetCATEGORIASValue: String; virtual;
|
|
procedure SetCATEGORIASValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property CATEGORIAS: String read GetCATEGORIASValue write SetCATEGORIASValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRefrescoContactosObra }
|
|
IRefrescoContactosObra = interface(IDAStronglyTypedDataTable)
|
|
['{D5F7B06F-EA4B-4A73-9170-0E08622685E9}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOOBRAValue: Integer;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer);
|
|
function GetCODIGOCONTACTOValue: Integer;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
function GetCATEGORIASValue: String;
|
|
procedure SetCATEGORIASValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property CATEGORIAS: String read GetCATEGORIASValue write SetCATEGORIASValue;
|
|
end;
|
|
|
|
{ TRefrescoContactosObraDataTableRules }
|
|
TRefrescoContactosObraDataTableRules = class(TDADataTableRules, IRefrescoContactosObra)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOOBRAValue: Integer; virtual;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
|
|
function GetCODIGOCONTACTOValue: Integer; virtual;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
function GetCATEGORIASValue: String; virtual;
|
|
procedure SetCATEGORIASValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property CATEGORIAS: String read GetCATEGORIASValue write SetCATEGORIASValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRefrescoObras }
|
|
IRefrescoObras = interface(IDAStronglyTypedDataTable)
|
|
['{4257F5D3-7582-44F1-A649-5B7D27B2B031}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer;
|
|
procedure SetCODIGOValue(const aValue: Integer);
|
|
function GetNOMBRECLIENTEValue: String;
|
|
procedure SetNOMBRECLIENTEValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
|
end;
|
|
|
|
{ TRefrescoObrasDataTableRules }
|
|
TRefrescoObrasDataTableRules = class(TDADataTableRules, IRefrescoObras)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer; virtual;
|
|
procedure SetCODIGOValue(const aValue: Integer); virtual;
|
|
function GetNOMBRECLIENTEValue: String; virtual;
|
|
procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IPresupuestosObra }
|
|
IPresupuestosObra = interface(IDAStronglyTypedDataTable)
|
|
['{AAFE306D-A230-46AE-86D2-F86863330430}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer;
|
|
procedure SetCODIGOValue(const aValue: Integer);
|
|
function GetCODIGOOBRAValue: Integer;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer);
|
|
function GetCODIGOCONTACTOValue: Integer;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
function GetFECHAALTAValue: DateTime;
|
|
procedure SetFECHAALTAValue(const aValue: DateTime);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetFECHAValue: DateTime;
|
|
procedure SetFECHAValue(const aValue: DateTime);
|
|
function GetCLASEValue: String;
|
|
procedure SetCLASEValue(const aValue: String);
|
|
function GetACEPTADOValue: Integer;
|
|
procedure SetACEPTADOValue(const aValue: Integer);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetPRESUPUESTOINICIALValue: Currency;
|
|
procedure SetPRESUPUESTOINICIALValue(const aValue: Currency);
|
|
function GetPRESUPUESTOFINALValue: Currency;
|
|
procedure SetPRESUPUESTOFINALValue(const aValue: Currency);
|
|
function GetAPLICARETENCIONValue: Integer;
|
|
procedure SetAPLICARETENCIONValue(const aValue: Integer);
|
|
function GetRETENCIONValue: Float;
|
|
procedure SetRETENCIONValue(const aValue: Float);
|
|
function GetTIEMPORETENCIONValue: String;
|
|
procedure SetTIEMPORETENCIONValue(const aValue: String);
|
|
function GetIMPORTERETENCIONValue: Currency;
|
|
procedure SetIMPORTERETENCIONValue(const aValue: Currency);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
property CLASE: String read GetCLASEValue write SetCLASEValue;
|
|
property ACEPTADO: Integer read GetACEPTADOValue write SetACEPTADOValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property PRESUPUESTOINICIAL: Currency read GetPRESUPUESTOINICIALValue write SetPRESUPUESTOINICIALValue;
|
|
property PRESUPUESTOFINAL: Currency read GetPRESUPUESTOFINALValue write SetPRESUPUESTOFINALValue;
|
|
property APLICARETENCION: Integer read GetAPLICARETENCIONValue write SetAPLICARETENCIONValue;
|
|
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
|
|
property TIEMPORETENCION: String read GetTIEMPORETENCIONValue write SetTIEMPORETENCIONValue;
|
|
property IMPORTERETENCION: Currency read GetIMPORTERETENCIONValue write SetIMPORTERETENCIONValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
end;
|
|
|
|
{ TPresupuestosObraDataTableRules }
|
|
TPresupuestosObraDataTableRules = class(TDADataTableRules, IPresupuestosObra)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer; virtual;
|
|
procedure SetCODIGOValue(const aValue: Integer); virtual;
|
|
function GetCODIGOOBRAValue: Integer; virtual;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
|
|
function GetCODIGOCONTACTOValue: Integer; virtual;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
|
|
function GetFECHAALTAValue: DateTime; virtual;
|
|
procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetFECHAValue: DateTime; virtual;
|
|
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
|
function GetCLASEValue: String; virtual;
|
|
procedure SetCLASEValue(const aValue: String); virtual;
|
|
function GetACEPTADOValue: Integer; virtual;
|
|
procedure SetACEPTADOValue(const aValue: Integer); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetPRESUPUESTOINICIALValue: Currency; virtual;
|
|
procedure SetPRESUPUESTOINICIALValue(const aValue: Currency); virtual;
|
|
function GetPRESUPUESTOFINALValue: Currency; virtual;
|
|
procedure SetPRESUPUESTOFINALValue(const aValue: Currency); virtual;
|
|
function GetAPLICARETENCIONValue: Integer; virtual;
|
|
procedure SetAPLICARETENCIONValue(const aValue: Integer); virtual;
|
|
function GetRETENCIONValue: Float; virtual;
|
|
procedure SetRETENCIONValue(const aValue: Float); virtual;
|
|
function GetTIEMPORETENCIONValue: String; virtual;
|
|
procedure SetTIEMPORETENCIONValue(const aValue: String); virtual;
|
|
function GetIMPORTERETENCIONValue: Currency; virtual;
|
|
procedure SetIMPORTERETENCIONValue(const aValue: Currency); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
property CLASE: String read GetCLASEValue write SetCLASEValue;
|
|
property ACEPTADO: Integer read GetACEPTADOValue write SetACEPTADOValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property PRESUPUESTOINICIAL: Currency read GetPRESUPUESTOINICIALValue write SetPRESUPUESTOINICIALValue;
|
|
property PRESUPUESTOFINAL: Currency read GetPRESUPUESTOFINALValue write SetPRESUPUESTOFINALValue;
|
|
property APLICARETENCION: Integer read GetAPLICARETENCIONValue write SetAPLICARETENCIONValue;
|
|
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
|
|
property TIEMPORETENCION: String read GetTIEMPORETENCIONValue write SetTIEMPORETENCIONValue;
|
|
property IMPORTERETENCION: Currency read GetIMPORTERETENCIONValue write SetIMPORTERETENCIONValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRefrescoPresupuestosObra }
|
|
IRefrescoPresupuestosObra = interface(IDAStronglyTypedDataTable)
|
|
['{CEC1959F-CCB7-4497-B3BE-2E5BCF0CC1C1}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer;
|
|
procedure SetCODIGOValue(const aValue: Integer);
|
|
function GetCODIGOOBRAValue: Integer;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer);
|
|
function GetCODIGOCONTACTOValue: Integer;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
function GetFECHAALTAValue: DateTime;
|
|
procedure SetFECHAALTAValue(const aValue: DateTime);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetFECHAValue: DateTime;
|
|
procedure SetFECHAValue(const aValue: DateTime);
|
|
function GetCLASEValue: String;
|
|
procedure SetCLASEValue(const aValue: String);
|
|
function GetACEPTADOValue: String;
|
|
procedure SetACEPTADOValue(const aValue: String);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetPRESUPUESTOINICIALValue: Float;
|
|
procedure SetPRESUPUESTOINICIALValue(const aValue: Float);
|
|
function GetPRESUPUESTOFINALValue: Float;
|
|
procedure SetPRESUPUESTOFINALValue(const aValue: Float);
|
|
function GetAPLICARETENCIONValue: String;
|
|
procedure SetAPLICARETENCIONValue(const aValue: String);
|
|
function GetRETENCIONValue: Float;
|
|
procedure SetRETENCIONValue(const aValue: Float);
|
|
function GetTIEMPORETENCIONValue: String;
|
|
procedure SetTIEMPORETENCIONValue(const aValue: String);
|
|
function GetIMPORTERETENCIONValue: Float;
|
|
procedure SetIMPORTERETENCIONValue(const aValue: Float);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
property CLASE: String read GetCLASEValue write SetCLASEValue;
|
|
property ACEPTADO: String read GetACEPTADOValue write SetACEPTADOValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property PRESUPUESTOINICIAL: Float read GetPRESUPUESTOINICIALValue write SetPRESUPUESTOINICIALValue;
|
|
property PRESUPUESTOFINAL: Float read GetPRESUPUESTOFINALValue write SetPRESUPUESTOFINALValue;
|
|
property APLICARETENCION: String read GetAPLICARETENCIONValue write SetAPLICARETENCIONValue;
|
|
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
|
|
property TIEMPORETENCION: String read GetTIEMPORETENCIONValue write SetTIEMPORETENCIONValue;
|
|
property IMPORTERETENCION: Float read GetIMPORTERETENCIONValue write SetIMPORTERETENCIONValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
end;
|
|
|
|
{ TRefrescoPresupuestosObraDataTableRules }
|
|
TRefrescoPresupuestosObraDataTableRules = class(TDADataTableRules, IRefrescoPresupuestosObra)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer; virtual;
|
|
procedure SetCODIGOValue(const aValue: Integer); virtual;
|
|
function GetCODIGOOBRAValue: Integer; virtual;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
|
|
function GetCODIGOCONTACTOValue: Integer; virtual;
|
|
procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
|
|
function GetFECHAALTAValue: DateTime; virtual;
|
|
procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetFECHAValue: DateTime; virtual;
|
|
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
|
function GetCLASEValue: String; virtual;
|
|
procedure SetCLASEValue(const aValue: String); virtual;
|
|
function GetACEPTADOValue: String; virtual;
|
|
procedure SetACEPTADOValue(const aValue: String); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetPRESUPUESTOINICIALValue: Float; virtual;
|
|
procedure SetPRESUPUESTOINICIALValue(const aValue: Float); virtual;
|
|
function GetPRESUPUESTOFINALValue: Float; virtual;
|
|
procedure SetPRESUPUESTOFINALValue(const aValue: Float); virtual;
|
|
function GetAPLICARETENCIONValue: String; virtual;
|
|
procedure SetAPLICARETENCIONValue(const aValue: String); virtual;
|
|
function GetRETENCIONValue: Float; virtual;
|
|
procedure SetRETENCIONValue(const aValue: Float); virtual;
|
|
function GetTIEMPORETENCIONValue: String; virtual;
|
|
procedure SetTIEMPORETENCIONValue(const aValue: String); virtual;
|
|
function GetIMPORTERETENCIONValue: Float; virtual;
|
|
procedure SetIMPORTERETENCIONValue(const aValue: Float); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
property CLASE: String read GetCLASEValue write SetCLASEValue;
|
|
property ACEPTADO: String read GetACEPTADOValue write SetACEPTADOValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property PRESUPUESTOINICIAL: Float read GetPRESUPUESTOINICIALValue write SetPRESUPUESTOINICIALValue;
|
|
property PRESUPUESTOFINAL: Float read GetPRESUPUESTOFINALValue write SetPRESUPUESTOFINALValue;
|
|
property APLICARETENCION: String read GetAPLICARETENCIONValue write SetAPLICARETENCIONValue;
|
|
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
|
|
property TIEMPORETENCION: String read GetTIEMPORETENCIONValue write SetTIEMPORETENCIONValue;
|
|
property IMPORTERETENCION: Float read GetIMPORTERETENCIONValue write SetIMPORTERETENCIONValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IProyectosObra }
|
|
IProyectosObra = interface(IDAStronglyTypedDataTable)
|
|
['{3AA08C2F-00D8-4780-9B14-9C59B42CC7EF}']
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer;
|
|
procedure SetCODIGOValue(const aValue: Integer);
|
|
function GetCODIGOOBRAValue: Integer;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetTERMINADOValue: Integer;
|
|
procedure SetTERMINADOValue(const aValue: Integer);
|
|
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property TERMINADO: Integer read GetTERMINADOValue write SetTERMINADOValue;
|
|
end;
|
|
|
|
{ TProyectosObraDataTableRules }
|
|
TProyectosObraDataTableRules = class(TDADataTableRules, IProyectosObra)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCODIGOValue: Integer; virtual;
|
|
procedure SetCODIGOValue(const aValue: Integer); virtual;
|
|
function GetCODIGOOBRAValue: Integer; virtual;
|
|
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetTERMINADOValue: Integer; virtual;
|
|
procedure SetTERMINADOValue(const aValue: Integer); virtual;
|
|
|
|
{ Properties }
|
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
|
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property TERMINADO: Integer read GetTERMINADOValue write SetTERMINADOValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants;
|
|
|
|
{ TObrasDataTableRules }
|
|
constructor TObrasDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TObrasDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetCODIGOEMPRESAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasCODIGOEMPRESA].AsInteger;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ObrasCODIGOEMPRESA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetCODIGOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasCODIGO].AsInteger;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetCODIGOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ObrasCODIGO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetFECHAALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasFECHAALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetFECHAALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_ObrasFECHAALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetFECHAINIOBRValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasFECHAINIOBR].AsDateTime;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetFECHAINIOBRValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_ObrasFECHAINIOBR].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetFECHAFINOBRValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasFECHAFINOBR].AsDateTime;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetFECHAFINOBRValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_ObrasFECHAFINOBR].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetCALLEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasCALLE].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasCALLE].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetCODIGOPOSTALValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasCODIGOPOSTAL].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetCODIGOPOSTALValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasCODIGOPOSTAL].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasPOBLACION].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasPOBLACION].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasPROVINCIA].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasPROVINCIA].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetTIPOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasTIPO].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasTIPO].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetDIMENSIONESValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasDIMENSIONES].AsInteger;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetDIMENSIONESValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ObrasDIMENSIONES].AsInteger := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetHONORARIOSValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasHONORARIOS].AsFloat;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetHONORARIOSValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_ObrasHONORARIOS].AsFloat := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetIMPORTEHONORARIOSValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasIMPORTEHONORARIOS].AsCurrency;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetIMPORTEHONORARIOSValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_ObrasIMPORTEHONORARIOS].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetAPLICAHONORARIOSValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasAPLICAHONORARIOS].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetAPLICAHONORARIOSValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasAPLICAHONORARIOS].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetALMACENValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasALMACEN].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetALMACENValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasALMACEN].AsString := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetTOTALPRESUPUESTOSINIValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSINI].AsCurrency;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetTOTALPRESUPUESTOSINIValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSINI].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetTOTALPRESUPUESTOSFINValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSFIN].AsCurrency;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetTOTALPRESUPUESTOSFINValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSFIN].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetCODIGOCONTACTOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasCODIGOCONTACTO].AsInteger;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ObrasCODIGOCONTACTO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TObrasDataTableRules.GetNOMBRECLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ObrasNOMBRECLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TObrasDataTableRules.SetNOMBRECLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ObrasNOMBRECLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TContactosObraDataTableRules }
|
|
constructor TContactosObraDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TContactosObraDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TContactosObraDataTableRules.GetCODIGOOBRAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ContactosObraCODIGOOBRA].AsInteger;
|
|
end;
|
|
|
|
procedure TContactosObraDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ContactosObraCODIGOOBRA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TContactosObraDataTableRules.GetCODIGOCONTACTOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ContactosObraCODIGOCONTACTO].AsInteger;
|
|
end;
|
|
|
|
procedure TContactosObraDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ContactosObraCODIGOCONTACTO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TContactosObraDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ContactosObraNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TContactosObraDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ContactosObraNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
function TContactosObraDataTableRules.GetCATEGORIASValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ContactosObraCATEGORIAS].AsString;
|
|
end;
|
|
|
|
procedure TContactosObraDataTableRules.SetCATEGORIASValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ContactosObraCATEGORIAS].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TRefrescoContactosObraDataTableRules }
|
|
constructor TRefrescoContactosObraDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRefrescoContactosObraDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRefrescoContactosObraDataTableRules.GetCODIGOOBRAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoContactosObraCODIGOOBRA].AsInteger;
|
|
end;
|
|
|
|
procedure TRefrescoContactosObraDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoContactosObraCODIGOOBRA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRefrescoContactosObraDataTableRules.GetCODIGOCONTACTOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoContactosObraCODIGOCONTACTO].AsInteger;
|
|
end;
|
|
|
|
procedure TRefrescoContactosObraDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoContactosObraCODIGOCONTACTO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRefrescoContactosObraDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoContactosObraNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoContactosObraDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoContactosObraNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoContactosObraDataTableRules.GetCATEGORIASValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoContactosObraCATEGORIAS].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoContactosObraDataTableRules.SetCATEGORIASValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoContactosObraCATEGORIAS].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TRefrescoObrasDataTableRules }
|
|
constructor TRefrescoObrasDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRefrescoObrasDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRefrescoObrasDataTableRules.GetCODIGOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoObrasCODIGO].AsInteger;
|
|
end;
|
|
|
|
procedure TRefrescoObrasDataTableRules.SetCODIGOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoObrasCODIGO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRefrescoObrasDataTableRules.GetNOMBRECLIENTEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoObrasNOMBRECLIENTE].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoObrasDataTableRules.SetNOMBRECLIENTEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoObrasNOMBRECLIENTE].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TPresupuestosObraDataTableRules }
|
|
constructor TPresupuestosObraDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TPresupuestosObraDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetCODIGOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraCODIGO].AsInteger;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetCODIGOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraCODIGO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetCODIGOOBRAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraCODIGOOBRA].AsInteger;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraCODIGOOBRA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetCODIGOCONTACTOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraCODIGOCONTACTO].AsInteger;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraCODIGOCONTACTO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetFECHAALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraFECHAALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetFECHAALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraFECHAALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetFECHAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraFECHA].AsDateTime;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetFECHAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraFECHA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetCLASEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraCLASE].AsString;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetCLASEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraCLASE].AsString := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetACEPTADOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraACEPTADO].AsInteger;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetACEPTADOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraACEPTADO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetTIPOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraTIPO].AsString;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraTIPO].AsString := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetPRESUPUESTOINICIALValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraPRESUPUESTOINICIAL].AsCurrency;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetPRESUPUESTOINICIALValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraPRESUPUESTOINICIAL].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetPRESUPUESTOFINALValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraPRESUPUESTOFINAL].AsCurrency;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetPRESUPUESTOFINALValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraPRESUPUESTOFINAL].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetAPLICARETENCIONValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraAPLICARETENCION].AsInteger;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetAPLICARETENCIONValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraAPLICARETENCION].AsInteger := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetRETENCIONValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraRETENCION].AsFloat;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetRETENCIONValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraRETENCION].AsFloat := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetTIEMPORETENCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraTIEMPORETENCION].AsString;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetTIEMPORETENCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraTIEMPORETENCION].AsString := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetIMPORTERETENCIONValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraIMPORTERETENCION].AsCurrency;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetIMPORTERETENCIONValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraIMPORTERETENCION].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TPresupuestosObraDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_PresupuestosObraNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TPresupuestosObraDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_PresupuestosObraNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TRefrescoPresupuestosObraDataTableRules }
|
|
constructor TRefrescoPresupuestosObraDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRefrescoPresupuestosObraDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetCODIGOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraCODIGO].AsInteger;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetCODIGOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraCODIGO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetCODIGOOBRAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraCODIGOOBRA].AsInteger;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraCODIGOOBRA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetCODIGOCONTACTOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraCODIGOCONTACTO].AsInteger;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraCODIGOCONTACTO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetFECHAALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraFECHAALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetFECHAALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraFECHAALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetFECHAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraFECHA].AsDateTime;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetFECHAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraFECHA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetCLASEValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraCLASE].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetCLASEValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraCLASE].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetACEPTADOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraACEPTADO].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetACEPTADOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraACEPTADO].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetTIPOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraTIPO].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraTIPO].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetPRESUPUESTOINICIALValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraPRESUPUESTOINICIAL].AsFloat;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetPRESUPUESTOINICIALValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraPRESUPUESTOINICIAL].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetPRESUPUESTOFINALValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraPRESUPUESTOFINAL].AsFloat;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetPRESUPUESTOFINALValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraPRESUPUESTOFINAL].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetAPLICARETENCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraAPLICARETENCION].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetAPLICARETENCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraAPLICARETENCION].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetRETENCIONValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraRETENCION].AsFloat;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetRETENCIONValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraRETENCION].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetTIEMPORETENCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraTIEMPORETENCION].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetTIEMPORETENCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraTIEMPORETENCION].AsString := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetIMPORTERETENCIONValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraIMPORTERETENCION].AsFloat;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetIMPORTERETENCIONValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraIMPORTERETENCION].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRefrescoPresupuestosObraDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RefrescoPresupuestosObraNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TRefrescoPresupuestosObraDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RefrescoPresupuestosObraNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TProyectosObraDataTableRules }
|
|
constructor TProyectosObraDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TProyectosObraDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TProyectosObraDataTableRules.GetCODIGOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ProyectosObraCODIGO].AsInteger;
|
|
end;
|
|
|
|
procedure TProyectosObraDataTableRules.SetCODIGOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ProyectosObraCODIGO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TProyectosObraDataTableRules.GetCODIGOOBRAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ProyectosObraCODIGOOBRA].AsInteger;
|
|
end;
|
|
|
|
procedure TProyectosObraDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ProyectosObraCODIGOOBRA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TProyectosObraDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ProyectosObraDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TProyectosObraDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ProyectosObraDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TProyectosObraDataTableRules.GetTIPOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ProyectosObraTIPO].AsString;
|
|
end;
|
|
|
|
procedure TProyectosObraDataTableRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ProyectosObraTIPO].AsString := aValue;
|
|
end;
|
|
|
|
function TProyectosObraDataTableRules.GetTERMINADOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_ProyectosObraTERMINADO].AsInteger;
|
|
end;
|
|
|
|
procedure TProyectosObraDataTableRules.SetTERMINADOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_ProyectosObraTERMINADO].AsInteger := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_Obras, TObrasDataTableRules);
|
|
RegisterDataTableRules(RID_ContactosObra, TContactosObraDataTableRules);
|
|
RegisterDataTableRules(RID_RefrescoContactosObra, TRefrescoContactosObraDataTableRules);
|
|
RegisterDataTableRules(RID_RefrescoObras, TRefrescoObrasDataTableRules);
|
|
RegisterDataTableRules(RID_PresupuestosObra, TPresupuestosObraDataTableRules);
|
|
RegisterDataTableRules(RID_RefrescoPresupuestosObra, TRefrescoPresupuestosObraDataTableRules);
|
|
RegisterDataTableRules(RID_ProyectosObra, TProyectosObraDataTableRules);
|
|
|
|
end.
|