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_ListaAnosPresupuestos = '{77EF6F0F-E599-4667-8576-DBAC1CCC2EAA}'; RID_DetallesPresupuestos = '{03C708D2-DE71-478C-B6AB-462A59A1E7DF}'; RID_Presupuestos = '{EE36E6AC-A1D6-426D-9D43-CA97BD1CFD68}'; RID_Presupuestos_RefreshDataset = '{7C463D58-2A40-4376-B6D0-1D5BCC229F42}'; RID_InformeCabeceraPresupuesto = '{9CDFC642-05DA-42C6-9815-F4F4024708F0}'; RID_InformeDetallesPresupuesto = '{87F1DF38-4060-49DF-87EA-97ED384371B1}'; { Data table names } nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos'; nme_DetallesPresupuestos = 'DetallesPresupuestos'; nme_Presupuestos = 'Presupuestos'; nme_Presupuestos_RefreshDataset = 'Presupuestos_RefreshDataset'; nme_InformeCabeceraPresupuesto = 'InformeCabeceraPresupuesto'; nme_InformeDetallesPresupuesto = 'InformeDetallesPresupuesto'; { ListaAnosPresupuestos fields } fld_ListaAnosPresupuestosANO = 'ANO'; { ListaAnosPresupuestos field indexes } idx_ListaAnosPresupuestosANO = 0; { DetallesPresupuestos fields } fld_DetallesPresupuestosCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO'; fld_DetallesPresupuestosNUMCONCEPTO = 'NUMCONCEPTO'; fld_DetallesPresupuestosDESCRIPCION = 'DESCRIPCION'; fld_DetallesPresupuestosCANTIDAD = 'CANTIDAD'; fld_DetallesPresupuestosIMPORTEUNIDAD = 'IMPORTEUNIDAD'; fld_DetallesPresupuestosIMPORTETOTAL = 'IMPORTETOTAL'; fld_DetallesPresupuestosTIPO = 'TIPO'; fld_DetallesPresupuestosPOSICION = 'POSICION'; fld_DetallesPresupuestosVISIBLE = 'VISIBLE'; fld_DetallesPresupuestosPUNTOS = 'PUNTOS'; fld_DetallesPresupuestosIMPORTEPUNTOS = 'IMPORTEPUNTOS'; fld_DetallesPresupuestosVALORADO = 'VALORADO'; { DetallesPresupuestos field indexes } idx_DetallesPresupuestosCODIGOPRESUPUESTO = 0; idx_DetallesPresupuestosNUMCONCEPTO = 1; idx_DetallesPresupuestosDESCRIPCION = 2; idx_DetallesPresupuestosCANTIDAD = 3; idx_DetallesPresupuestosIMPORTEUNIDAD = 4; idx_DetallesPresupuestosIMPORTETOTAL = 5; idx_DetallesPresupuestosTIPO = 6; idx_DetallesPresupuestosPOSICION = 7; idx_DetallesPresupuestosVISIBLE = 8; idx_DetallesPresupuestosPUNTOS = 9; idx_DetallesPresupuestosIMPORTEPUNTOS = 10; idx_DetallesPresupuestosVALORADO = 11; { Presupuestos fields } fld_PresupuestosCODIGOEMPRESA = 'CODIGOEMPRESA'; fld_PresupuestosCODIGO = 'CODIGO'; fld_PresupuestosFECHAALTA = 'FECHAALTA'; fld_PresupuestosUSUARIO = 'USUARIO'; fld_PresupuestosCODIGOCONTACTO = 'CODIGOCONTACTO'; fld_PresupuestosNOMBRE = 'NOMBRE'; fld_PresupuestosNIF_CIF = 'NIF_CIF'; fld_PresupuestosREFERENCIA = 'REFERENCIA'; fld_PresupuestosTIPO = 'TIPO'; fld_PresupuestosFECHAPRESUPUESTO = 'FECHAPRESUPUESTO'; fld_PresupuestosVIGENCIAPRESUPUESTO = 'VIGENCIAPRESUPUESTO'; fld_PresupuestosSITUACION = 'SITUACION'; fld_PresupuestosFECHADECISION = 'FECHADECISION'; fld_PresupuestosBASEIMPONIBLE = 'BASEIMPONIBLE'; fld_PresupuestosDESCUENTO = 'DESCUENTO'; fld_PresupuestosIMPORTEDESCUENTO = 'IMPORTEDESCUENTO'; fld_PresupuestosIVA = 'IVA'; fld_PresupuestosIMPORTEIVA = 'IMPORTEIVA'; fld_PresupuestosIMPORTETOTAL = 'IMPORTETOTAL'; fld_PresupuestosOBSERVACIONES = 'OBSERVACIONES'; fld_PresupuestosPLAZOENTREGA = 'PLAZOENTREGA'; fld_PresupuestosFORMAPAGO = 'FORMAPAGO'; fld_PresupuestosCODIGOALBARAN = 'CODIGOALBARAN'; fld_PresupuestosALBARAN = 'ALBARAN'; fld_PresupuestosOPCION = 'OPCION'; { Presupuestos field indexes } idx_PresupuestosCODIGOEMPRESA = 0; idx_PresupuestosCODIGO = 1; idx_PresupuestosFECHAALTA = 2; idx_PresupuestosUSUARIO = 3; idx_PresupuestosCODIGOCONTACTO = 4; idx_PresupuestosNOMBRE = 5; idx_PresupuestosNIF_CIF = 6; idx_PresupuestosREFERENCIA = 7; idx_PresupuestosTIPO = 8; idx_PresupuestosFECHAPRESUPUESTO = 9; idx_PresupuestosVIGENCIAPRESUPUESTO = 10; idx_PresupuestosSITUACION = 11; idx_PresupuestosFECHADECISION = 12; idx_PresupuestosBASEIMPONIBLE = 13; idx_PresupuestosDESCUENTO = 14; idx_PresupuestosIMPORTEDESCUENTO = 15; idx_PresupuestosIVA = 16; idx_PresupuestosIMPORTEIVA = 17; idx_PresupuestosIMPORTETOTAL = 18; idx_PresupuestosOBSERVACIONES = 19; idx_PresupuestosPLAZOENTREGA = 20; idx_PresupuestosFORMAPAGO = 21; idx_PresupuestosCODIGOALBARAN = 22; idx_PresupuestosALBARAN = 23; idx_PresupuestosOPCION = 24; { Presupuestos_RefreshDataset fields } fld_Presupuestos_RefreshDatasetCODIGO = 'CODIGO'; fld_Presupuestos_RefreshDatasetNOMBRE = 'NOMBRE'; fld_Presupuestos_RefreshDatasetREFERENCIA = 'REFERENCIA'; fld_Presupuestos_RefreshDatasetCODIGOALBARAN = 'CODIGOALBARAN'; fld_Presupuestos_RefreshDatasetALBARAN = 'ALBARAN'; { Presupuestos_RefreshDataset field indexes } idx_Presupuestos_RefreshDatasetCODIGO = 0; idx_Presupuestos_RefreshDatasetNOMBRE = 1; idx_Presupuestos_RefreshDatasetREFERENCIA = 2; idx_Presupuestos_RefreshDatasetCODIGOALBARAN = 3; idx_Presupuestos_RefreshDatasetALBARAN = 4; { InformeCabeceraPresupuesto fields } fld_InformeCabeceraPresupuestoCODIGOEMPRESA = 'CODIGOEMPRESA'; fld_InformeCabeceraPresupuestoCODIGO = 'CODIGO'; fld_InformeCabeceraPresupuestoFECHAALTA = 'FECHAALTA'; fld_InformeCabeceraPresupuestoUSUARIO = 'USUARIO'; fld_InformeCabeceraPresupuestoCODIGOCONTACTO = 'CODIGOCONTACTO'; fld_InformeCabeceraPresupuestoREFERENCIA = 'REFERENCIA'; fld_InformeCabeceraPresupuestoTIPO = 'TIPO'; fld_InformeCabeceraPresupuestoFECHAPRESUPUESTO = 'FECHAPRESUPUESTO'; fld_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO = 'VIGENCIAPRESUPUESTO'; fld_InformeCabeceraPresupuestoSITUACION = 'SITUACION'; fld_InformeCabeceraPresupuestoFECHADECISION = 'FECHADECISION'; fld_InformeCabeceraPresupuestoBASEIMPONIBLE = 'BASEIMPONIBLE'; fld_InformeCabeceraPresupuestoDESCUENTO = 'DESCUENTO'; fld_InformeCabeceraPresupuestoIMPORTEDESCUENTO = 'IMPORTEDESCUENTO'; fld_InformeCabeceraPresupuestoIVA = 'IVA'; fld_InformeCabeceraPresupuestoIMPORTEIVA = 'IMPORTEIVA'; fld_InformeCabeceraPresupuestoIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeCabeceraPresupuestoOBSERVACIONES = 'OBSERVACIONES'; fld_InformeCabeceraPresupuestoPLAZOENTREGA = 'PLAZOENTREGA'; fld_InformeCabeceraPresupuestoFORMAPAGO = 'FORMAPAGO'; fld_InformeCabeceraPresupuestoNOMBRE = 'NOMBRE'; fld_InformeCabeceraPresupuestoNIF_CIF = 'NIF_CIF'; fld_InformeCabeceraPresupuestoNOMBRE1 = 'NOMBRE1'; fld_InformeCabeceraPresupuestoCALLE = 'CALLE'; fld_InformeCabeceraPresupuestoCODIGOPOSTAL = 'CODIGOPOSTAL'; fld_InformeCabeceraPresupuestoPOBLACION = 'POBLACION'; fld_InformeCabeceraPresupuestoTELEFONO1 = 'TELEFONO1'; fld_InformeCabeceraPresupuestoTELEFONO2 = 'TELEFONO2'; fld_InformeCabeceraPresupuestoMOVIL = 'MOVIL'; fld_InformeCabeceraPresupuestoOPCION = 'OPCION'; fld_InformeCabeceraPresupuestoCODIGOALBARAN = 'CODIGOALBARAN'; fld_InformeCabeceraPresupuestoALBARAN = 'ALBARAN'; { InformeCabeceraPresupuesto field indexes } idx_InformeCabeceraPresupuestoCODIGOEMPRESA = 0; idx_InformeCabeceraPresupuestoCODIGO = 1; idx_InformeCabeceraPresupuestoFECHAALTA = 2; idx_InformeCabeceraPresupuestoUSUARIO = 3; idx_InformeCabeceraPresupuestoCODIGOCONTACTO = 4; idx_InformeCabeceraPresupuestoREFERENCIA = 5; idx_InformeCabeceraPresupuestoTIPO = 6; idx_InformeCabeceraPresupuestoFECHAPRESUPUESTO = 7; idx_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO = 8; idx_InformeCabeceraPresupuestoSITUACION = 9; idx_InformeCabeceraPresupuestoFECHADECISION = 10; idx_InformeCabeceraPresupuestoBASEIMPONIBLE = 11; idx_InformeCabeceraPresupuestoDESCUENTO = 12; idx_InformeCabeceraPresupuestoIMPORTEDESCUENTO = 13; idx_InformeCabeceraPresupuestoIVA = 14; idx_InformeCabeceraPresupuestoIMPORTEIVA = 15; idx_InformeCabeceraPresupuestoIMPORTETOTAL = 16; idx_InformeCabeceraPresupuestoOBSERVACIONES = 17; idx_InformeCabeceraPresupuestoPLAZOENTREGA = 18; idx_InformeCabeceraPresupuestoFORMAPAGO = 19; idx_InformeCabeceraPresupuestoNOMBRE = 20; idx_InformeCabeceraPresupuestoNIF_CIF = 21; idx_InformeCabeceraPresupuestoNOMBRE1 = 22; idx_InformeCabeceraPresupuestoCALLE = 23; idx_InformeCabeceraPresupuestoCODIGOPOSTAL = 24; idx_InformeCabeceraPresupuestoPOBLACION = 25; idx_InformeCabeceraPresupuestoTELEFONO1 = 26; idx_InformeCabeceraPresupuestoTELEFONO2 = 27; idx_InformeCabeceraPresupuestoMOVIL = 28; idx_InformeCabeceraPresupuestoOPCION = 29; idx_InformeCabeceraPresupuestoCODIGOALBARAN = 30; idx_InformeCabeceraPresupuestoALBARAN = 31; { InformeDetallesPresupuesto fields } fld_InformeDetallesPresupuestoCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO'; fld_InformeDetallesPresupuestoNUMCONCEPTO = 'NUMCONCEPTO'; fld_InformeDetallesPresupuestoDESCRIPCION = 'DESCRIPCION'; fld_InformeDetallesPresupuestoCANTIDAD = 'CANTIDAD'; fld_InformeDetallesPresupuestoIMPORTEUNIDAD = 'IMPORTEUNIDAD'; fld_InformeDetallesPresupuestoIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeDetallesPresupuestoTIPO = 'TIPO'; fld_InformeDetallesPresupuestoPOSICION = 'POSICION'; fld_InformeDetallesPresupuestoVALORADO = 'VALORADO'; { InformeDetallesPresupuesto field indexes } idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO = 0; idx_InformeDetallesPresupuestoNUMCONCEPTO = 1; idx_InformeDetallesPresupuestoDESCRIPCION = 2; idx_InformeDetallesPresupuestoCANTIDAD = 3; idx_InformeDetallesPresupuestoIMPORTEUNIDAD = 4; idx_InformeDetallesPresupuestoIMPORTETOTAL = 5; idx_InformeDetallesPresupuestoTIPO = 6; idx_InformeDetallesPresupuestoPOSICION = 7; idx_InformeDetallesPresupuestoVALORADO = 8; type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) ['{80153E52-A0AC-48F4-B686-597D3D322919}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); { Properties } property ANO: String read GetANOValue write SetANOValue; end; { TListaAnosPresupuestosDataTableRules } TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos) private protected { Property getters and setters } function GetANOValue: String; virtual; procedure SetANOValue(const aValue: String); virtual; { Properties } property ANO: String read GetANOValue write SetANOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDetallesPresupuestos } IDetallesPresupuestos = interface(IDAStronglyTypedDataTable) ['{1B25EB4A-91B6-4F99-9865-830E66EDD201}'] { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); function GetNUMCONCEPTOValue: Integer; procedure SetNUMCONCEPTOValue(const aValue: Integer); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetCANTIDADValue: Integer; procedure SetCANTIDADValue(const aValue: Integer); function GetIMPORTEUNIDADValue: Currency; procedure SetIMPORTEUNIDADValue(const aValue: Currency); function GetIMPORTETOTALValue: Currency; procedure SetIMPORTETOTALValue(const aValue: Currency); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetPOSICIONValue: Integer; procedure SetPOSICIONValue(const aValue: Integer); function GetVISIBLEValue: String; procedure SetVISIBLEValue(const aValue: String); function GetPUNTOSValue: Integer; procedure SetPUNTOSValue(const aValue: Integer); function GetIMPORTEPUNTOSValue: Currency; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); function GetVALORADOValue: String; procedure SetVALORADOValue(const aValue: String); { Properties } property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue; property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TDetallesPresupuestosDataTableRules } TDetallesPresupuestosDataTableRules = class(TDADataTableRules, IDetallesPresupuestos) private protected { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; virtual; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual; function GetNUMCONCEPTOValue: Integer; virtual; procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTEUNIDADValue: Currency; virtual; procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual; function GetIMPORTETOTALValue: Currency; virtual; procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; function GetVISIBLEValue: String; virtual; procedure SetVISIBLEValue(const aValue: String); virtual; function GetPUNTOSValue: Integer; virtual; procedure SetPUNTOSValue(const aValue: Integer); virtual; function GetIMPORTEPUNTOSValue: Currency; virtual; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual; function GetVALORADOValue: String; virtual; procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue; property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IPresupuestos } IPresupuestos = interface(IDAStronglyTypedDataTable) ['{152FAE82-E4BD-47CF-82E5-88ABA9825BB1}'] { 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 GetCODIGOCONTACTOValue: Integer; procedure SetCODIGOCONTACTOValue(const aValue: Integer); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetFECHAPRESUPUESTOValue: DateTime; procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); function GetVIGENCIAPRESUPUESTOValue: DateTime; procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); function GetSITUACIONValue: String; procedure SetSITUACIONValue(const aValue: String); function GetFECHADECISIONValue: DateTime; procedure SetFECHADECISIONValue(const aValue: DateTime); function GetBASEIMPONIBLEValue: Currency; procedure SetBASEIMPONIBLEValue(const aValue: Currency); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetIMPORTEDESCUENTOValue: Currency; procedure SetIMPORTEDESCUENTOValue(const aValue: Currency); function GetIVAValue: Float; procedure SetIVAValue(const aValue: Float); function GetIMPORTEIVAValue: Currency; procedure SetIMPORTEIVAValue(const aValue: Currency); function GetIMPORTETOTALValue: Currency; procedure SetIMPORTETOTALValue(const aValue: Currency); function GetOBSERVACIONESValue: IROStrings; procedure SetOBSERVACIONESValue(const aValue: IROStrings); function GetPLAZOENTREGAValue: IROStrings; procedure SetPLAZOENTREGAValue(const aValue: IROStrings); function GetFORMAPAGOValue: IROStrings; procedure SetFORMAPAGOValue(const aValue: IROStrings); function GetCODIGOALBARANValue: Integer; procedure SetCODIGOALBARANValue(const aValue: Integer); function GetALBARANValue: String; procedure SetALBARANValue(const aValue: String); function GetOPCIONValue: String; procedure SetOPCIONValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue; property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue; property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTEDESCUENTO: Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue; property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property ALBARAN: String read GetALBARANValue write SetALBARANValue; property OPCION: String read GetOPCIONValue write SetOPCIONValue; end; { TPresupuestosDataTableRules } TPresupuestosDataTableRules = class(TDADataTableRules, IPresupuestos) 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 GetCODIGOCONTACTOValue: Integer; virtual; procedure SetCODIGOCONTACTOValue(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 GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetFECHAPRESUPUESTOValue: DateTime; virtual; procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetVIGENCIAPRESUPUESTOValue: DateTime; virtual; procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetFECHADECISIONValue: DateTime; virtual; procedure SetFECHADECISIONValue(const aValue: DateTime); virtual; function GetBASEIMPONIBLEValue: Currency; virtual; procedure SetBASEIMPONIBLEValue(const aValue: Currency); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetIMPORTEDESCUENTOValue: Currency; virtual; procedure SetIMPORTEDESCUENTOValue(const aValue: Currency); virtual; function GetIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetIMPORTEIVAValue: Currency; virtual; procedure SetIMPORTEIVAValue(const aValue: Currency); virtual; function GetIMPORTETOTALValue: Currency; virtual; procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetOBSERVACIONESValue: IROStrings; virtual; procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual; function GetPLAZOENTREGAValue: IROStrings; virtual; procedure SetPLAZOENTREGAValue(const aValue: IROStrings); virtual; function GetFORMAPAGOValue: IROStrings; virtual; procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual; function GetCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); virtual; function GetALBARANValue: String; virtual; procedure SetALBARANValue(const aValue: String); virtual; function GetOPCIONValue: String; virtual; procedure SetOPCIONValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue; property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue; property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTEDESCUENTO: Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue; property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property ALBARAN: String read GetALBARANValue write SetALBARANValue; property OPCION: String read GetOPCIONValue write SetOPCIONValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IPresupuestos_RefreshDataset } IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable) ['{8A7F6D01-B4D4-436B-8BF5-C62F316AE407}'] { Property getters and setters } function GetCODIGOValue: Integer; procedure SetCODIGOValue(const aValue: Integer); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetCODIGOALBARANValue: Integer; procedure SetCODIGOALBARANValue(const aValue: Integer); function GetALBARANValue: String; procedure SetALBARANValue(const aValue: String); { Properties } property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property ALBARAN: String read GetALBARANValue write SetALBARANValue; end; { TPresupuestos_RefreshDatasetDataTableRules } TPresupuestos_RefreshDatasetDataTableRules = class(TDADataTableRules, IPresupuestos_RefreshDataset) private protected { Property getters and setters } function GetCODIGOValue: Integer; virtual; procedure SetCODIGOValue(const aValue: Integer); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); virtual; function GetALBARANValue: String; virtual; procedure SetALBARANValue(const aValue: String); virtual; { Properties } property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property ALBARAN: String read GetALBARANValue write SetALBARANValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IInformeCabeceraPresupuesto } IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable) ['{386D3790-2EE5-443E-8C0D-D71B5BB54BC6}'] { 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 GetCODIGOCONTACTOValue: Integer; procedure SetCODIGOCONTACTOValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetFECHAPRESUPUESTOValue: DateTime; procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); function GetVIGENCIAPRESUPUESTOValue: DateTime; procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); function GetSITUACIONValue: String; procedure SetSITUACIONValue(const aValue: String); function GetFECHADECISIONValue: DateTime; procedure SetFECHADECISIONValue(const aValue: DateTime); function GetBASEIMPONIBLEValue: Float; procedure SetBASEIMPONIBLEValue(const aValue: Float); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetIMPORTEDESCUENTOValue: Float; procedure SetIMPORTEDESCUENTOValue(const aValue: Float); function GetIVAValue: Float; procedure SetIVAValue(const aValue: Float); function GetIMPORTEIVAValue: Float; procedure SetIMPORTEIVAValue(const aValue: Float); function GetIMPORTETOTALValue: Float; procedure SetIMPORTETOTALValue(const aValue: Float); function GetOBSERVACIONESValue: IROStrings; procedure SetOBSERVACIONESValue(const aValue: IROStrings); function GetPLAZOENTREGAValue: IROStrings; procedure SetPLAZOENTREGAValue(const aValue: IROStrings); function GetFORMAPAGOValue: IROStrings; procedure SetFORMAPAGOValue(const aValue: IROStrings); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNOMBRE1Value: String; procedure SetNOMBRE1Value(const aValue: String); 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 GetTELEFONO1Value: String; procedure SetTELEFONO1Value(const aValue: String); function GetTELEFONO2Value: String; procedure SetTELEFONO2Value(const aValue: String); function GetMOVILValue: String; procedure SetMOVILValue(const aValue: String); function GetOPCIONValue: String; procedure SetOPCIONValue(const aValue: String); function GetCODIGOALBARANValue: Integer; procedure SetCODIGOALBARANValue(const aValue: Integer); function GetALBARANValue: String; procedure SetALBARANValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue; property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue; property BASEIMPONIBLE: Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTEDESCUENTO: Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTEIVA: Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue; property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue; property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE1: String read GetNOMBRE1Value write SetNOMBRE1Value; property CALLE: String read GetCALLEValue write SetCALLEValue; property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value; property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value; property MOVIL: String read GetMOVILValue write SetMOVILValue; property OPCION: String read GetOPCIONValue write SetOPCIONValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property ALBARAN: String read GetALBARANValue write SetALBARANValue; end; { TInformeCabeceraPresupuestoDataTableRules } TInformeCabeceraPresupuestoDataTableRules = class(TDADataTableRules, IInformeCabeceraPresupuesto) 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 GetCODIGOCONTACTOValue: Integer; virtual; procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetFECHAPRESUPUESTOValue: DateTime; virtual; procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetVIGENCIAPRESUPUESTOValue: DateTime; virtual; procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); virtual; function GetSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetFECHADECISIONValue: DateTime; virtual; procedure SetFECHADECISIONValue(const aValue: DateTime); virtual; function GetBASEIMPONIBLEValue: Float; virtual; procedure SetBASEIMPONIBLEValue(const aValue: Float); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetIMPORTEDESCUENTOValue: Float; virtual; procedure SetIMPORTEDESCUENTOValue(const aValue: Float); virtual; function GetIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetIMPORTEIVAValue: Float; virtual; procedure SetIMPORTEIVAValue(const aValue: Float); virtual; function GetIMPORTETOTALValue: Float; virtual; procedure SetIMPORTETOTALValue(const aValue: Float); virtual; function GetOBSERVACIONESValue: IROStrings; virtual; procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual; function GetPLAZOENTREGAValue: IROStrings; virtual; procedure SetPLAZOENTREGAValue(const aValue: IROStrings); virtual; function GetFORMAPAGOValue: IROStrings; virtual; procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNOMBRE1Value: String; virtual; procedure SetNOMBRE1Value(const aValue: String); 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 GetTELEFONO1Value: String; virtual; procedure SetTELEFONO1Value(const aValue: String); virtual; function GetTELEFONO2Value: String; virtual; procedure SetTELEFONO2Value(const aValue: String); virtual; function GetMOVILValue: String; virtual; procedure SetMOVILValue(const aValue: String); virtual; function GetOPCIONValue: String; virtual; procedure SetOPCIONValue(const aValue: String); virtual; function GetCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); virtual; function GetALBARANValue: String; virtual; procedure SetALBARANValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue; property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue; property BASEIMPONIBLE: Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property IMPORTEDESCUENTO: Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue; property IVA: Float read GetIVAValue write SetIVAValue; property IMPORTEIVA: Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue; property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue; property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE1: String read GetNOMBRE1Value write SetNOMBRE1Value; property CALLE: String read GetCALLEValue write SetCALLEValue; property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value; property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value; property MOVIL: String read GetMOVILValue write SetMOVILValue; property OPCION: String read GetOPCIONValue write SetOPCIONValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property ALBARAN: String read GetALBARANValue write SetALBARANValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IInformeDetallesPresupuesto } IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable) ['{4E63D170-8D9D-43B2-ADD5-90B7CD993A81}'] { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); function GetNUMCONCEPTOValue: Integer; procedure SetNUMCONCEPTOValue(const aValue: Integer); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetCANTIDADValue: Integer; procedure SetCANTIDADValue(const aValue: Integer); function GetIMPORTEUNIDADValue: Currency; procedure SetIMPORTEUNIDADValue(const aValue: Currency); function GetIMPORTETOTALValue: Currency; procedure SetIMPORTETOTALValue(const aValue: Currency); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetPOSICIONValue: Integer; procedure SetPOSICIONValue(const aValue: Integer); function GetVALORADOValue: String; procedure SetVALORADOValue(const aValue: String); { Properties } property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TInformeDetallesPresupuestoDataTableRules } TInformeDetallesPresupuestoDataTableRules = class(TDADataTableRules, IInformeDetallesPresupuesto) private protected { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; virtual; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual; function GetNUMCONCEPTOValue: Integer; virtual; procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTEUNIDADValue: Currency; virtual; procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual; function GetIMPORTETOTALValue: Currency; virtual; procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; function GetVALORADOValue: String; virtual; procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; implementation uses Variants; { TListaAnosPresupuestosDataTableRules } constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TListaAnosPresupuestosDataTableRules.Destroy; begin inherited; end; function TListaAnosPresupuestosDataTableRules.GetANOValue: String; begin result := DataTable.Fields[idx_ListaAnosPresupuestosANO].AsString; end; procedure TListaAnosPresupuestosDataTableRules.SetANOValue(const aValue: String); begin DataTable.Fields[idx_ListaAnosPresupuestosANO].AsString := aValue; end; { TDetallesPresupuestosDataTableRules } constructor TDetallesPresupuestosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDetallesPresupuestosDataTableRules.Destroy; begin inherited; end; function TDetallesPresupuestosDataTableRules.GetCODIGOPRESUPUESTOValue: Integer; begin result := DataTable.Fields[idx_DetallesPresupuestosCODIGOPRESUPUESTO].AsInteger; end; procedure TDetallesPresupuestosDataTableRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesPresupuestosCODIGOPRESUPUESTO].AsInteger := aValue; end; function TDetallesPresupuestosDataTableRules.GetNUMCONCEPTOValue: Integer; begin result := DataTable.Fields[idx_DetallesPresupuestosNUMCONCEPTO].AsInteger; end; procedure TDetallesPresupuestosDataTableRules.SetNUMCONCEPTOValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesPresupuestosNUMCONCEPTO].AsInteger := aValue; end; function TDetallesPresupuestosDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_DetallesPresupuestosDESCRIPCION].AsString; end; procedure TDetallesPresupuestosDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_DetallesPresupuestosDESCRIPCION].AsString := aValue; end; function TDetallesPresupuestosDataTableRules.GetCANTIDADValue: Integer; begin result := DataTable.Fields[idx_DetallesPresupuestosCANTIDAD].AsInteger; end; procedure TDetallesPresupuestosDataTableRules.SetCANTIDADValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesPresupuestosCANTIDAD].AsInteger := aValue; end; function TDetallesPresupuestosDataTableRules.GetIMPORTEUNIDADValue: Currency; begin result := DataTable.Fields[idx_DetallesPresupuestosIMPORTEUNIDAD].AsCurrency; end; procedure TDetallesPresupuestosDataTableRules.SetIMPORTEUNIDADValue(const aValue: Currency); begin DataTable.Fields[idx_DetallesPresupuestosIMPORTEUNIDAD].AsCurrency := aValue; end; function TDetallesPresupuestosDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_DetallesPresupuestosIMPORTETOTAL].AsCurrency; end; procedure TDetallesPresupuestosDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_DetallesPresupuestosIMPORTETOTAL].AsCurrency := aValue; end; function TDetallesPresupuestosDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_DetallesPresupuestosTIPO].AsString; end; procedure TDetallesPresupuestosDataTableRules.SetTIPOValue(const aValue: String); begin DataTable.Fields[idx_DetallesPresupuestosTIPO].AsString := aValue; end; function TDetallesPresupuestosDataTableRules.GetPOSICIONValue: Integer; begin result := DataTable.Fields[idx_DetallesPresupuestosPOSICION].AsInteger; end; procedure TDetallesPresupuestosDataTableRules.SetPOSICIONValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesPresupuestosPOSICION].AsInteger := aValue; end; function TDetallesPresupuestosDataTableRules.GetVISIBLEValue: String; begin result := DataTable.Fields[idx_DetallesPresupuestosVISIBLE].AsString; end; procedure TDetallesPresupuestosDataTableRules.SetVISIBLEValue(const aValue: String); begin DataTable.Fields[idx_DetallesPresupuestosVISIBLE].AsString := aValue; end; function TDetallesPresupuestosDataTableRules.GetPUNTOSValue: Integer; begin result := DataTable.Fields[idx_DetallesPresupuestosPUNTOS].AsInteger; end; procedure TDetallesPresupuestosDataTableRules.SetPUNTOSValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesPresupuestosPUNTOS].AsInteger := aValue; end; function TDetallesPresupuestosDataTableRules.GetIMPORTEPUNTOSValue: Currency; begin result := DataTable.Fields[idx_DetallesPresupuestosIMPORTEPUNTOS].AsCurrency; end; procedure TDetallesPresupuestosDataTableRules.SetIMPORTEPUNTOSValue(const aValue: Currency); begin DataTable.Fields[idx_DetallesPresupuestosIMPORTEPUNTOS].AsCurrency := aValue; end; function TDetallesPresupuestosDataTableRules.GetVALORADOValue: String; begin result := DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString; end; procedure TDetallesPresupuestosDataTableRules.SetVALORADOValue(const aValue: String); begin DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString := aValue; end; { TPresupuestosDataTableRules } constructor TPresupuestosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TPresupuestosDataTableRules.Destroy; begin inherited; end; function TPresupuestosDataTableRules.GetCODIGOEMPRESAValue: Integer; begin result := DataTable.Fields[idx_PresupuestosCODIGOEMPRESA].AsInteger; end; procedure TPresupuestosDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_PresupuestosCODIGOEMPRESA].AsInteger := aValue; end; function TPresupuestosDataTableRules.GetCODIGOValue: Integer; begin result := DataTable.Fields[idx_PresupuestosCODIGO].AsInteger; end; procedure TPresupuestosDataTableRules.SetCODIGOValue(const aValue: Integer); begin DataTable.Fields[idx_PresupuestosCODIGO].AsInteger := aValue; end; function TPresupuestosDataTableRules.GetFECHAALTAValue: DateTime; begin result := DataTable.Fields[idx_PresupuestosFECHAALTA].AsDateTime; end; procedure TPresupuestosDataTableRules.SetFECHAALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_PresupuestosFECHAALTA].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.GetCODIGOCONTACTOValue: Integer; begin result := DataTable.Fields[idx_PresupuestosCODIGOCONTACTO].AsInteger; end; procedure TPresupuestosDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_PresupuestosCODIGOCONTACTO].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.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.GetTIPOValue: String; begin result := DataTable.Fields[idx_PresupuestosTIPO].AsString; end; procedure TPresupuestosDataTableRules.SetTIPOValue(const aValue: String); begin DataTable.Fields[idx_PresupuestosTIPO].AsString := aValue; end; function TPresupuestosDataTableRules.GetFECHAPRESUPUESTOValue: DateTime; begin result := DataTable.Fields[idx_PresupuestosFECHAPRESUPUESTO].AsDateTime; end; procedure TPresupuestosDataTableRules.SetFECHAPRESUPUESTOValue(const aValue: DateTime); begin DataTable.Fields[idx_PresupuestosFECHAPRESUPUESTO].AsDateTime := aValue; end; function TPresupuestosDataTableRules.GetVIGENCIAPRESUPUESTOValue: DateTime; begin result := DataTable.Fields[idx_PresupuestosVIGENCIAPRESUPUESTO].AsDateTime; end; procedure TPresupuestosDataTableRules.SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); begin DataTable.Fields[idx_PresupuestosVIGENCIAPRESUPUESTO].AsDateTime := 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.GetFECHADECISIONValue: DateTime; begin result := DataTable.Fields[idx_PresupuestosFECHADECISION].AsDateTime; end; procedure TPresupuestosDataTableRules.SetFECHADECISIONValue(const aValue: DateTime); begin DataTable.Fields[idx_PresupuestosFECHADECISION].AsDateTime := aValue; end; function TPresupuestosDataTableRules.GetBASEIMPONIBLEValue: Currency; begin result := DataTable.Fields[idx_PresupuestosBASEIMPONIBLE].AsCurrency; end; procedure TPresupuestosDataTableRules.SetBASEIMPONIBLEValue(const aValue: Currency); begin DataTable.Fields[idx_PresupuestosBASEIMPONIBLE].AsCurrency := 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.GetIMPORTEDESCUENTOValue: Currency; begin result := DataTable.Fields[idx_PresupuestosIMPORTEDESCUENTO].AsCurrency; end; procedure TPresupuestosDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Currency); begin DataTable.Fields[idx_PresupuestosIMPORTEDESCUENTO].AsCurrency := 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.GetIMPORTEIVAValue: Currency; begin result := DataTable.Fields[idx_PresupuestosIMPORTEIVA].AsCurrency; end; procedure TPresupuestosDataTableRules.SetIMPORTEIVAValue(const aValue: Currency); begin DataTable.Fields[idx_PresupuestosIMPORTEIVA].AsCurrency := aValue; end; function TPresupuestosDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_PresupuestosIMPORTETOTAL].AsCurrency; end; procedure TPresupuestosDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_PresupuestosIMPORTETOTAL].AsCurrency := 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.GetPLAZOENTREGAValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_PresupuestosPLAZOENTREGA].AsString; end; procedure TPresupuestosDataTableRules.SetPLAZOENTREGAValue(const aValue: IROStrings); begin DataTable.Fields[idx_PresupuestosPLAZOENTREGA].AsString := aValue.Text; end; function TPresupuestosDataTableRules.GetFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_PresupuestosFORMAPAGO].AsString; end; procedure TPresupuestosDataTableRules.SetFORMAPAGOValue(const aValue: IROStrings); begin DataTable.Fields[idx_PresupuestosFORMAPAGO].AsString := aValue.Text; end; function TPresupuestosDataTableRules.GetCODIGOALBARANValue: Integer; begin result := DataTable.Fields[idx_PresupuestosCODIGOALBARAN].AsInteger; end; procedure TPresupuestosDataTableRules.SetCODIGOALBARANValue(const aValue: Integer); begin DataTable.Fields[idx_PresupuestosCODIGOALBARAN].AsInteger := aValue; end; function TPresupuestosDataTableRules.GetALBARANValue: String; begin result := DataTable.Fields[idx_PresupuestosALBARAN].AsString; end; procedure TPresupuestosDataTableRules.SetALBARANValue(const aValue: String); begin DataTable.Fields[idx_PresupuestosALBARAN].AsString := aValue; end; function TPresupuestosDataTableRules.GetOPCIONValue: String; begin result := DataTable.Fields[idx_PresupuestosOPCION].AsString; end; procedure TPresupuestosDataTableRules.SetOPCIONValue(const aValue: String); begin DataTable.Fields[idx_PresupuestosOPCION].AsString := aValue; end; { TPresupuestos_RefreshDatasetDataTableRules } constructor TPresupuestos_RefreshDatasetDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TPresupuestos_RefreshDatasetDataTableRules.Destroy; begin inherited; end; function TPresupuestos_RefreshDatasetDataTableRules.GetCODIGOValue: Integer; begin result := DataTable.Fields[idx_Presupuestos_RefreshDatasetCODIGO].AsInteger; end; procedure TPresupuestos_RefreshDatasetDataTableRules.SetCODIGOValue(const aValue: Integer); begin DataTable.Fields[idx_Presupuestos_RefreshDatasetCODIGO].AsInteger := aValue; end; function TPresupuestos_RefreshDatasetDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_Presupuestos_RefreshDatasetNOMBRE].AsString; end; procedure TPresupuestos_RefreshDatasetDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_Presupuestos_RefreshDatasetNOMBRE].AsString := aValue; end; function TPresupuestos_RefreshDatasetDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_Presupuestos_RefreshDatasetREFERENCIA].AsString; end; procedure TPresupuestos_RefreshDatasetDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_Presupuestos_RefreshDatasetREFERENCIA].AsString := aValue; end; function TPresupuestos_RefreshDatasetDataTableRules.GetCODIGOALBARANValue: Integer; begin result := DataTable.Fields[idx_Presupuestos_RefreshDatasetCODIGOALBARAN].AsInteger; end; procedure TPresupuestos_RefreshDatasetDataTableRules.SetCODIGOALBARANValue(const aValue: Integer); begin DataTable.Fields[idx_Presupuestos_RefreshDatasetCODIGOALBARAN].AsInteger := aValue; end; function TPresupuestos_RefreshDatasetDataTableRules.GetALBARANValue: String; begin result := DataTable.Fields[idx_Presupuestos_RefreshDatasetALBARAN].AsString; end; procedure TPresupuestos_RefreshDatasetDataTableRules.SetALBARANValue(const aValue: String); begin DataTable.Fields[idx_Presupuestos_RefreshDatasetALBARAN].AsString := aValue; end; { TInformeCabeceraPresupuestoDataTableRules } constructor TInformeCabeceraPresupuestoDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TInformeCabeceraPresupuestoDataTableRules.Destroy; begin inherited; end; function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOEMPRESAValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOEMPRESA].AsInteger; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOEMPRESA].AsInteger := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGO].AsInteger; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetCODIGOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGO].AsInteger := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetFECHAALTAValue: DateTime; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAALTA].AsDateTime; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetFECHAALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAALTA].AsDateTime := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoUSUARIO].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoUSUARIO].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOCONTACTOValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOCONTACTO].AsInteger; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOCONTACTO].AsInteger := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoREFERENCIA].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoREFERENCIA].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoTIPO].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetTIPOValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoTIPO].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetFECHAPRESUPUESTOValue: DateTime; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAPRESUPUESTO].AsDateTime; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetFECHAPRESUPUESTOValue(const aValue: DateTime); begin DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAPRESUPUESTO].AsDateTime := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetVIGENCIAPRESUPUESTOValue: DateTime; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO].AsDateTime; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); begin DataTable.Fields[idx_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO].AsDateTime := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetSITUACIONValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoSITUACION].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetSITUACIONValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoSITUACION].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetFECHADECISIONValue: DateTime; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoFECHADECISION].AsDateTime; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetFECHADECISIONValue(const aValue: DateTime); begin DataTable.Fields[idx_InformeCabeceraPresupuestoFECHADECISION].AsDateTime := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetBASEIMPONIBLEValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoBASEIMPONIBLE].AsFloat; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetBASEIMPONIBLEValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraPresupuestoBASEIMPONIBLE].AsFloat := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoDESCUENTO].AsFloat; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraPresupuestoDESCUENTO].AsFloat := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetIMPORTEDESCUENTOValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTEDESCUENTO].AsFloat; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTEDESCUENTO].AsFloat := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetIVAValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoIVA].AsFloat; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetIVAValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraPresupuestoIVA].AsFloat := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetIMPORTEIVAValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTEIVA].AsFloat; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetIMPORTEIVAValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTEIVA].AsFloat := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetIMPORTETOTALValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTETOTAL].AsFloat; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetIMPORTETOTALValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTETOTAL].AsFloat := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_InformeCabeceraPresupuestoOBSERVACIONES].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings); begin DataTable.Fields[idx_InformeCabeceraPresupuestoOBSERVACIONES].AsString := aValue.Text; end; function TInformeCabeceraPresupuestoDataTableRules.GetPLAZOENTREGAValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_InformeCabeceraPresupuestoPLAZOENTREGA].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetPLAZOENTREGAValue(const aValue: IROStrings); begin DataTable.Fields[idx_InformeCabeceraPresupuestoPLAZOENTREGA].AsString := aValue.Text; end; function TInformeCabeceraPresupuestoDataTableRules.GetFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_InformeCabeceraPresupuestoFORMAPAGO].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetFORMAPAGOValue(const aValue: IROStrings); begin DataTable.Fields[idx_InformeCabeceraPresupuestoFORMAPAGO].AsString := aValue.Text; end; function TInformeCabeceraPresupuestoDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoNIF_CIF].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoNIF_CIF].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetNOMBRE1Value: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE1].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetNOMBRE1Value(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE1].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoCALLE].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoCALLE].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOPOSTALValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOPOSTAL].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetCODIGOPOSTALValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOPOSTAL].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoPOBLACION].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoPOBLACION].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetTELEFONO1Value: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoTELEFONO1].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetTELEFONO1Value(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoTELEFONO1].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetTELEFONO2Value: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoTELEFONO2].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetTELEFONO2Value(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoTELEFONO2].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetMOVILValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoMOVIL].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetMOVILValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoMOVIL].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetOPCIONValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoOPCION].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetOPCIONValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoOPCION].AsString := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOALBARANValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOALBARAN].AsInteger; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetCODIGOALBARANValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOALBARAN].AsInteger := aValue; end; function TInformeCabeceraPresupuestoDataTableRules.GetALBARANValue: String; begin result := DataTable.Fields[idx_InformeCabeceraPresupuestoALBARAN].AsString; end; procedure TInformeCabeceraPresupuestoDataTableRules.SetALBARANValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraPresupuestoALBARAN].AsString := aValue; end; { TInformeDetallesPresupuestoDataTableRules } constructor TInformeDetallesPresupuestoDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TInformeDetallesPresupuestoDataTableRules.Destroy; begin inherited; end; function TInformeDetallesPresupuestoDataTableRules.GetCODIGOPRESUPUESTOValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO].AsInteger; end; procedure TInformeDetallesPresupuestoDataTableRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO].AsInteger := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetNUMCONCEPTOValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoNUMCONCEPTO].AsInteger; end; procedure TInformeDetallesPresupuestoDataTableRules.SetNUMCONCEPTOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesPresupuestoNUMCONCEPTO].AsInteger := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoDESCRIPCION].AsString; end; procedure TInformeDetallesPresupuestoDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_InformeDetallesPresupuestoDESCRIPCION].AsString := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetCANTIDADValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoCANTIDAD].AsInteger; end; procedure TInformeDetallesPresupuestoDataTableRules.SetCANTIDADValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesPresupuestoCANTIDAD].AsInteger := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetIMPORTEUNIDADValue: Currency; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoIMPORTEUNIDAD].AsCurrency; end; procedure TInformeDetallesPresupuestoDataTableRules.SetIMPORTEUNIDADValue(const aValue: Currency); begin DataTable.Fields[idx_InformeDetallesPresupuestoIMPORTEUNIDAD].AsCurrency := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoIMPORTETOTAL].AsCurrency; end; procedure TInformeDetallesPresupuestoDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_InformeDetallesPresupuestoIMPORTETOTAL].AsCurrency := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoTIPO].AsString; end; procedure TInformeDetallesPresupuestoDataTableRules.SetTIPOValue(const aValue: String); begin DataTable.Fields[idx_InformeDetallesPresupuestoTIPO].AsString := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetPOSICIONValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoPOSICION].AsInteger; end; procedure TInformeDetallesPresupuestoDataTableRules.SetPOSICIONValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesPresupuestoPOSICION].AsInteger := aValue; end; function TInformeDetallesPresupuestoDataTableRules.GetVALORADOValue: String; begin result := DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString; end; procedure TInformeDetallesPresupuestoDataTableRules.SetVALORADOValue(const aValue: String); begin DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString := aValue; end; initialization RegisterDataTableRules(RID_ListaAnosPresupuestos, TListaAnosPresupuestosDataTableRules); RegisterDataTableRules(RID_DetallesPresupuestos, TDetallesPresupuestosDataTableRules); RegisterDataTableRules(RID_Presupuestos, TPresupuestosDataTableRules); RegisterDataTableRules(RID_Presupuestos_RefreshDataset, TPresupuestos_RefreshDatasetDataTableRules); RegisterDataTableRules(RID_InformeCabeceraPresupuesto, TInformeCabeceraPresupuestoDataTableRules); RegisterDataTableRules(RID_InformeDetallesPresupuesto, TInformeDetallesPresupuestoDataTableRules); end.