unit schFacturasClienteClient_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_ListaAnosFacturas = '{F555E879-98E6-4445-B479-6DDEE0F72451}'; RID_DarReferenciaFactura = '{31F913BC-22CC-4CD6-9E3B-CBAFEDCDB516}'; RID_FacturasCliente = '{031548EB-0F39-4A79-BCDA-22C5DB44DE89}'; RID_DetallesFacturasCliente = '{2F90D934-3C17-43E8-81F3-671E2D2E3270}'; RID_InformeCabeceraFacturaCliente = '{7C40DCD0-C61B-49F8-A612-4E812BEFBBBE}'; RID_InformeDetallesFacturaCliente = '{35113953-CFFB-4B9C-BD19-3E378E0A3CD0}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_DarReferenciaFactura = 'DarReferenciaFactura'; nme_FacturasCliente = 'FacturasCliente'; nme_DetallesFacturasCliente = 'DetallesFacturasCliente'; nme_InformeCabeceraFacturaCliente = 'InformeCabeceraFacturaCliente'; nme_InformeDetallesFacturaCliente = 'InformeDetallesFacturaCliente'; { ListaAnosFacturas fields } fld_ListaAnosFacturasANO = 'ANO'; { ListaAnosFacturas field indexes } idx_ListaAnosFacturasANO = 0; { DarReferenciaFactura fields } fld_DarReferenciaFacturaREFERENCIA = 'REFERENCIA'; { DarReferenciaFactura field indexes } idx_DarReferenciaFacturaREFERENCIA = 0; { FacturasCliente fields } fld_FacturasClienteCODIGOEMPRESA = 'CODIGOEMPRESA'; fld_FacturasClienteCODIGO = 'CODIGO'; fld_FacturasClienteFECHAALTA = 'FECHAALTA'; fld_FacturasClienteUSUARIO = 'USUARIO'; fld_FacturasClienteFECHAFACTURA = 'FECHAFACTURA'; fld_FacturasClienteREFERENCIA = 'REFERENCIA'; fld_FacturasClienteBASEIMPONIBLE = 'BASEIMPONIBLE'; fld_FacturasClienteDESCUENTO = 'DESCUENTO'; fld_FacturasClienteIMPORTEDESCUENTO = 'IMPORTEDESCUENTO'; fld_FacturasClienteIVA = 'IVA'; fld_FacturasClienteIMPORTEIVA = 'IMPORTEIVA'; fld_FacturasClienteIMPORTETOTAL = 'IMPORTETOTAL'; fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES'; fld_FacturasClienteFORMAPAGO = 'FORMAPAGO'; fld_FacturasClienteCODIGOCONTACTO = 'CODIGOCONTACTO'; fld_FacturasClienteNIFCIF = 'NIFCIF'; fld_FacturasClienteNOMBRE = 'NOMBRE'; fld_FacturasClienteCALLE = 'CALLE'; fld_FacturasClientePROVINCIA = 'PROVINCIA'; fld_FacturasClienteCODIGOPOSTAL = 'CODIGOPOSTAL'; fld_FacturasClientePOBLACION = 'POBLACION'; fld_FacturasClienteCODIGOALBARAN = 'CODIGOALBARAN'; { FacturasCliente field indexes } idx_FacturasClienteCODIGOEMPRESA = 0; idx_FacturasClienteCODIGO = 1; idx_FacturasClienteFECHAALTA = 2; idx_FacturasClienteUSUARIO = 3; idx_FacturasClienteFECHAFACTURA = 4; idx_FacturasClienteREFERENCIA = 5; idx_FacturasClienteBASEIMPONIBLE = 6; idx_FacturasClienteDESCUENTO = 7; idx_FacturasClienteIMPORTEDESCUENTO = 8; idx_FacturasClienteIVA = 9; idx_FacturasClienteIMPORTEIVA = 10; idx_FacturasClienteIMPORTETOTAL = 11; idx_FacturasClienteOBSERVACIONES = 12; idx_FacturasClienteFORMAPAGO = 13; idx_FacturasClienteCODIGOCONTACTO = 14; idx_FacturasClienteNIFCIF = 15; idx_FacturasClienteNOMBRE = 16; idx_FacturasClienteCALLE = 17; idx_FacturasClientePROVINCIA = 18; idx_FacturasClienteCODIGOPOSTAL = 19; idx_FacturasClientePOBLACION = 20; idx_FacturasClienteCODIGOALBARAN = 21; { DetallesFacturasCliente fields } fld_DetallesFacturasClienteCODIGOFACTURA = 'CODIGOFACTURA'; fld_DetallesFacturasClienteNUMCONCEPTO = 'NUMCONCEPTO'; fld_DetallesFacturasClientePOSICION = 'POSICION'; fld_DetallesFacturasClienteTIPO = 'TIPO'; fld_DetallesFacturasClienteDESCRIPCION = 'DESCRIPCION'; fld_DetallesFacturasClienteCANTIDAD = 'CANTIDAD'; fld_DetallesFacturasClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD'; fld_DetallesFacturasClienteIMPORTETOTAL = 'IMPORTETOTAL'; fld_DetallesFacturasClienteVISIBLE = 'VISIBLE'; fld_DetallesFacturasClienteVALORADO = 'VALORADO'; { DetallesFacturasCliente field indexes } idx_DetallesFacturasClienteCODIGOFACTURA = 0; idx_DetallesFacturasClienteNUMCONCEPTO = 1; idx_DetallesFacturasClientePOSICION = 2; idx_DetallesFacturasClienteTIPO = 3; idx_DetallesFacturasClienteDESCRIPCION = 4; idx_DetallesFacturasClienteCANTIDAD = 5; idx_DetallesFacturasClienteIMPORTEUNIDAD = 6; idx_DetallesFacturasClienteIMPORTETOTAL = 7; idx_DetallesFacturasClienteVISIBLE = 8; idx_DetallesFacturasClienteVALORADO = 9; { InformeCabeceraFacturaCliente fields } fld_InformeCabeceraFacturaClienteCODIGOEMPRESA = 'CODIGOEMPRESA'; fld_InformeCabeceraFacturaClienteCODIGO = 'CODIGO'; fld_InformeCabeceraFacturaClienteFECHAALTA = 'FECHAALTA'; fld_InformeCabeceraFacturaClienteUSUARIO = 'USUARIO'; fld_InformeCabeceraFacturaClienteFECHAFACTURA = 'FECHAFACTURA'; fld_InformeCabeceraFacturaClienteREFERENCIA = 'REFERENCIA'; fld_InformeCabeceraFacturaClienteCODIGOCONTACTO = 'CODIGOCONTACTO'; fld_InformeCabeceraFacturaClienteBASEIMPONIBLE = 'BASEIMPONIBLE'; fld_InformeCabeceraFacturaClienteDESCUENTO = 'DESCUENTO'; fld_InformeCabeceraFacturaClienteIMPORTEDESCUENTO = 'IMPORTEDESCUENTO'; fld_InformeCabeceraFacturaClienteIVA = 'IVA'; fld_InformeCabeceraFacturaClienteIMPORTEIVA = 'IMPORTEIVA'; fld_InformeCabeceraFacturaClienteIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeCabeceraFacturaClienteOBSERVACIONES = 'OBSERVACIONES'; fld_InformeCabeceraFacturaClienteFORMAPAGO = 'FORMAPAGO'; fld_InformeCabeceraFacturaClienteNIFCIF = 'NIFCIF'; fld_InformeCabeceraFacturaClienteNOMBRE = 'NOMBRE'; fld_InformeCabeceraFacturaClienteCALLE = 'CALLE'; fld_InformeCabeceraFacturaClientePROVINCIA = 'PROVINCIA'; fld_InformeCabeceraFacturaClienteCODIGOPOSTAL = 'CODIGOPOSTAL'; fld_InformeCabeceraFacturaClientePOBLACION = 'POBLACION'; { InformeCabeceraFacturaCliente field indexes } idx_InformeCabeceraFacturaClienteCODIGOEMPRESA = 0; idx_InformeCabeceraFacturaClienteCODIGO = 1; idx_InformeCabeceraFacturaClienteFECHAALTA = 2; idx_InformeCabeceraFacturaClienteUSUARIO = 3; idx_InformeCabeceraFacturaClienteFECHAFACTURA = 4; idx_InformeCabeceraFacturaClienteREFERENCIA = 5; idx_InformeCabeceraFacturaClienteCODIGOCONTACTO = 6; idx_InformeCabeceraFacturaClienteBASEIMPONIBLE = 7; idx_InformeCabeceraFacturaClienteDESCUENTO = 8; idx_InformeCabeceraFacturaClienteIMPORTEDESCUENTO = 9; idx_InformeCabeceraFacturaClienteIVA = 10; idx_InformeCabeceraFacturaClienteIMPORTEIVA = 11; idx_InformeCabeceraFacturaClienteIMPORTETOTAL = 12; idx_InformeCabeceraFacturaClienteOBSERVACIONES = 13; idx_InformeCabeceraFacturaClienteFORMAPAGO = 14; idx_InformeCabeceraFacturaClienteNIFCIF = 15; idx_InformeCabeceraFacturaClienteNOMBRE = 16; idx_InformeCabeceraFacturaClienteCALLE = 17; idx_InformeCabeceraFacturaClientePROVINCIA = 18; idx_InformeCabeceraFacturaClienteCODIGOPOSTAL = 19; idx_InformeCabeceraFacturaClientePOBLACION = 20; { InformeDetallesFacturaCliente fields } fld_InformeDetallesFacturaClienteCODIGOFACTURA = 'CODIGOFACTURA'; fld_InformeDetallesFacturaClienteNUMCONCEPTO = 'NUMCONCEPTO'; fld_InformeDetallesFacturaClienteDESCRIPCION = 'DESCRIPCION'; fld_InformeDetallesFacturaClienteCANTIDAD = 'CANTIDAD'; fld_InformeDetallesFacturaClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD'; fld_InformeDetallesFacturaClienteIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeDetallesFacturaClienteTIPO = 'TIPO'; fld_InformeDetallesFacturaClientePOSICION = 'POSICION'; fld_InformeDetallesFacturaClienteVALORADO = 'VALORADO'; { InformeDetallesFacturaCliente field indexes } idx_InformeDetallesFacturaClienteCODIGOFACTURA = 0; idx_InformeDetallesFacturaClienteNUMCONCEPTO = 1; idx_InformeDetallesFacturaClienteDESCRIPCION = 2; idx_InformeDetallesFacturaClienteCANTIDAD = 3; idx_InformeDetallesFacturaClienteIMPORTEUNIDAD = 4; idx_InformeDetallesFacturaClienteIMPORTETOTAL = 5; idx_InformeDetallesFacturaClienteTIPO = 6; idx_InformeDetallesFacturaClientePOSICION = 7; idx_InformeDetallesFacturaClienteVALORADO = 8; type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) ['{C1615D5E-1861-4FC2-8130-504C8985199F}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); { Properties } property ANO: String read GetANOValue write SetANOValue; end; { TListaAnosFacturasDataTableRules } TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) 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; { IDarReferenciaFactura } IDarReferenciaFactura = interface(IDAStronglyTypedDataTable) ['{833C57EE-185B-4376-BEF6-EADB0B75B43E}'] { Property getters and setters } function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); { Properties } property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; end; { TDarReferenciaFacturaDataTableRules } TDarReferenciaFacturaDataTableRules = class(TDADataTableRules, IDarReferenciaFactura) private protected { Property getters and setters } function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; { Properties } property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) ['{BF90D431-7F0C-43BF-BFC8-609EBF5957FD}'] { 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 GetFECHAFACTURAValue: DateTime; procedure SetFECHAFACTURAValue(const aValue: DateTime); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); 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 GetFORMAPAGOValue: IROStrings; procedure SetFORMAPAGOValue(const aValue: IROStrings); function GetCODIGOCONTACTOValue: Integer; procedure SetCODIGOCONTACTOValue(const aValue: Integer); function GetNIFCIFValue: String; procedure SetNIFCIFValue(const aValue: String); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGOPOSTALValue: String; procedure SetCODIGOPOSTALValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetCODIGOALBARANValue: Integer; procedure SetCODIGOALBARANValue(const aValue: Integer); { 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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; end; { TFacturasClienteDataTableRules } TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) 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 GetFECHAFACTURAValue: DateTime; virtual; procedure SetFECHAFACTURAValue(const aValue: DateTime); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); 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 GetFORMAPAGOValue: IROStrings; virtual; procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual; function GetCODIGOCONTACTOValue: Integer; virtual; procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual; function GetNIFCIFValue: String; virtual; procedure SetNIFCIFValue(const aValue: String); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(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 GetCODIGOALBARANValue: Integer; virtual; procedure SetCODIGOALBARANValue(const aValue: Integer); 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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDetallesFacturasCliente } IDetallesFacturasCliente = interface(IDAStronglyTypedDataTable) ['{8EFC0465-252D-4ECE-9135-A803FC28C9A2}'] { Property getters and setters } function GetCODIGOFACTURAValue: Integer; procedure SetCODIGOFACTURAValue(const aValue: Integer); function GetNUMCONCEPTOValue: Integer; procedure SetNUMCONCEPTOValue(const aValue: Integer); function GetPOSICIONValue: Integer; procedure SetPOSICIONValue(const aValue: Integer); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); 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 GetVISIBLEValue: String; procedure SetVISIBLEValue(const aValue: String); function GetVALORADOValue: String; procedure SetVALORADOValue(const aValue: String); { Properties } property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; property TIPO: String read GetTIPOValue write SetTIPOValue; 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 VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TDetallesFacturasClienteDataTableRules } TDetallesFacturasClienteDataTableRules = class(TDADataTableRules, IDetallesFacturasCliente) private protected { Property getters and setters } function GetCODIGOFACTURAValue: Integer; virtual; procedure SetCODIGOFACTURAValue(const aValue: Integer); virtual; function GetNUMCONCEPTOValue: Integer; virtual; procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual; function GetPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(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 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 GetVISIBLEValue: String; virtual; procedure SetVISIBLEValue(const aValue: String); virtual; function GetVALORADOValue: String; virtual; procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; property TIPO: String read GetTIPOValue write SetTIPOValue; 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 VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IInformeCabeceraFacturaCliente } IInformeCabeceraFacturaCliente = interface(IDAStronglyTypedDataTable) ['{08A69022-7E0C-4344-86F7-453D608F06A6}'] { 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 GetFECHAFACTURAValue: DateTime; procedure SetFECHAFACTURAValue(const aValue: DateTime); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetCODIGOCONTACTOValue: Integer; procedure SetCODIGOCONTACTOValue(const aValue: Integer); 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 GetFORMAPAGOValue: IROStrings; procedure SetFORMAPAGOValue(const aValue: IROStrings); function GetNIFCIFValue: String; procedure SetNIFCIFValue(const aValue: String); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGOPOSTALValue: String; procedure SetCODIGOPOSTALValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; 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 FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; end; { TInformeCabeceraFacturaClienteDataTableRules } TInformeCabeceraFacturaClienteDataTableRules = class(TDADataTableRules, IInformeCabeceraFacturaCliente) 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 GetFECHAFACTURAValue: DateTime; virtual; procedure SetFECHAFACTURAValue(const aValue: DateTime); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetCODIGOCONTACTOValue: Integer; virtual; procedure SetCODIGOCONTACTOValue(const aValue: Integer); 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 GetFORMAPAGOValue: IROStrings; virtual; procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual; function GetNIFCIFValue: String; virtual; procedure SetNIFCIFValue(const aValue: String); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetCODIGOPOSTALValue: String; virtual; procedure SetCODIGOPOSTALValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue; 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 FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue; property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IInformeDetallesFacturaCliente } IInformeDetallesFacturaCliente = interface(IDAStronglyTypedDataTable) ['{2FC352CD-EB9C-465E-943D-92589BB3C567}'] { Property getters and setters } function GetCODIGOFACTURAValue: Integer; procedure SetCODIGOFACTURAValue(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 CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; 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; { TInformeDetallesFacturaClienteDataTableRules } TInformeDetallesFacturaClienteDataTableRules = class(TDADataTableRules, IInformeDetallesFacturaCliente) private protected { Property getters and setters } function GetCODIGOFACTURAValue: Integer; virtual; procedure SetCODIGOFACTURAValue(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 CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; 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; { TListaAnosFacturasDataTableRules } constructor TListaAnosFacturasDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TListaAnosFacturasDataTableRules.Destroy; begin inherited; end; function TListaAnosFacturasDataTableRules.GetANOValue: String; begin result := DataTable.Fields[idx_ListaAnosFacturasANO].AsString; end; procedure TListaAnosFacturasDataTableRules.SetANOValue(const aValue: String); begin DataTable.Fields[idx_ListaAnosFacturasANO].AsString := aValue; end; { TDarReferenciaFacturaDataTableRules } constructor TDarReferenciaFacturaDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDarReferenciaFacturaDataTableRules.Destroy; begin inherited; end; function TDarReferenciaFacturaDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_DarReferenciaFacturaREFERENCIA].AsString; end; procedure TDarReferenciaFacturaDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_DarReferenciaFacturaREFERENCIA].AsString := aValue; end; { TFacturasClienteDataTableRules } constructor TFacturasClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TFacturasClienteDataTableRules.Destroy; begin inherited; end; function TFacturasClienteDataTableRules.GetCODIGOEMPRESAValue: Integer; begin result := DataTable.Fields[idx_FacturasClienteCODIGOEMPRESA].AsInteger; end; procedure TFacturasClienteDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_FacturasClienteCODIGOEMPRESA].AsInteger := aValue; end; function TFacturasClienteDataTableRules.GetCODIGOValue: Integer; begin result := DataTable.Fields[idx_FacturasClienteCODIGO].AsInteger; end; procedure TFacturasClienteDataTableRules.SetCODIGOValue(const aValue: Integer); begin DataTable.Fields[idx_FacturasClienteCODIGO].AsInteger := aValue; end; function TFacturasClienteDataTableRules.GetFECHAALTAValue: DateTime; begin result := DataTable.Fields[idx_FacturasClienteFECHAALTA].AsDateTime; end; procedure TFacturasClienteDataTableRules.SetFECHAALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_FacturasClienteFECHAALTA].AsDateTime := aValue; end; function TFacturasClienteDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_FacturasClienteUSUARIO].AsString; end; procedure TFacturasClienteDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_FacturasClienteUSUARIO].AsString := aValue; end; function TFacturasClienteDataTableRules.GetFECHAFACTURAValue: DateTime; begin result := DataTable.Fields[idx_FacturasClienteFECHAFACTURA].AsDateTime; end; procedure TFacturasClienteDataTableRules.SetFECHAFACTURAValue(const aValue: DateTime); begin DataTable.Fields[idx_FacturasClienteFECHAFACTURA].AsDateTime := aValue; end; function TFacturasClienteDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_FacturasClienteREFERENCIA].AsString; end; procedure TFacturasClienteDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_FacturasClienteREFERENCIA].AsString := aValue; end; function TFacturasClienteDataTableRules.GetBASEIMPONIBLEValue: Currency; begin result := DataTable.Fields[idx_FacturasClienteBASEIMPONIBLE].AsCurrency; end; procedure TFacturasClienteDataTableRules.SetBASEIMPONIBLEValue(const aValue: Currency); begin DataTable.Fields[idx_FacturasClienteBASEIMPONIBLE].AsCurrency := aValue; end; function TFacturasClienteDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_FacturasClienteDESCUENTO].AsFloat; end; procedure TFacturasClienteDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_FacturasClienteDESCUENTO].AsFloat := aValue; end; function TFacturasClienteDataTableRules.GetIMPORTEDESCUENTOValue: Currency; begin result := DataTable.Fields[idx_FacturasClienteIMPORTEDESCUENTO].AsCurrency; end; procedure TFacturasClienteDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Currency); begin DataTable.Fields[idx_FacturasClienteIMPORTEDESCUENTO].AsCurrency := aValue; end; function TFacturasClienteDataTableRules.GetIVAValue: Float; begin result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat; end; procedure TFacturasClienteDataTableRules.SetIVAValue(const aValue: Float); begin DataTable.Fields[idx_FacturasClienteIVA].AsFloat := aValue; end; function TFacturasClienteDataTableRules.GetIMPORTEIVAValue: Currency; begin result := DataTable.Fields[idx_FacturasClienteIMPORTEIVA].AsCurrency; end; procedure TFacturasClienteDataTableRules.SetIMPORTEIVAValue(const aValue: Currency); begin DataTable.Fields[idx_FacturasClienteIMPORTEIVA].AsCurrency := aValue; end; function TFacturasClienteDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_FacturasClienteIMPORTETOTAL].AsCurrency; end; procedure TFacturasClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_FacturasClienteIMPORTETOTAL].AsCurrency := aValue; end; function TFacturasClienteDataTableRules.GetOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_FacturasClienteOBSERVACIONES].AsString; end; procedure TFacturasClienteDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings); begin DataTable.Fields[idx_FacturasClienteOBSERVACIONES].AsString := aValue.Text; end; function TFacturasClienteDataTableRules.GetFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_FacturasClienteFORMAPAGO].AsString; end; procedure TFacturasClienteDataTableRules.SetFORMAPAGOValue(const aValue: IROStrings); begin DataTable.Fields[idx_FacturasClienteFORMAPAGO].AsString := aValue.Text; end; function TFacturasClienteDataTableRules.GetCODIGOCONTACTOValue: Integer; begin result := DataTable.Fields[idx_FacturasClienteCODIGOCONTACTO].AsInteger; end; procedure TFacturasClienteDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_FacturasClienteCODIGOCONTACTO].AsInteger := aValue; end; function TFacturasClienteDataTableRules.GetNIFCIFValue: String; begin result := DataTable.Fields[idx_FacturasClienteNIFCIF].AsString; end; procedure TFacturasClienteDataTableRules.SetNIFCIFValue(const aValue: String); begin DataTable.Fields[idx_FacturasClienteNIFCIF].AsString := aValue; end; function TFacturasClienteDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_FacturasClienteNOMBRE].AsString; end; procedure TFacturasClienteDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_FacturasClienteNOMBRE].AsString := aValue; end; function TFacturasClienteDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_FacturasClienteCALLE].AsString; end; procedure TFacturasClienteDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_FacturasClienteCALLE].AsString := aValue; end; function TFacturasClienteDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_FacturasClientePROVINCIA].AsString; end; procedure TFacturasClienteDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_FacturasClientePROVINCIA].AsString := aValue; end; function TFacturasClienteDataTableRules.GetCODIGOPOSTALValue: String; begin result := DataTable.Fields[idx_FacturasClienteCODIGOPOSTAL].AsString; end; procedure TFacturasClienteDataTableRules.SetCODIGOPOSTALValue(const aValue: String); begin DataTable.Fields[idx_FacturasClienteCODIGOPOSTAL].AsString := aValue; end; function TFacturasClienteDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_FacturasClientePOBLACION].AsString; end; procedure TFacturasClienteDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_FacturasClientePOBLACION].AsString := aValue; end; function TFacturasClienteDataTableRules.GetCODIGOALBARANValue: Integer; begin result := DataTable.Fields[idx_FacturasClienteCODIGOALBARAN].AsInteger; end; procedure TFacturasClienteDataTableRules.SetCODIGOALBARANValue(const aValue: Integer); begin DataTable.Fields[idx_FacturasClienteCODIGOALBARAN].AsInteger := aValue; end; { TDetallesFacturasClienteDataTableRules } constructor TDetallesFacturasClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDetallesFacturasClienteDataTableRules.Destroy; begin inherited; end; function TDetallesFacturasClienteDataTableRules.GetCODIGOFACTURAValue: Integer; begin result := DataTable.Fields[idx_DetallesFacturasClienteCODIGOFACTURA].AsInteger; end; procedure TDetallesFacturasClienteDataTableRules.SetCODIGOFACTURAValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesFacturasClienteCODIGOFACTURA].AsInteger := aValue; end; function TDetallesFacturasClienteDataTableRules.GetNUMCONCEPTOValue: Integer; begin result := DataTable.Fields[idx_DetallesFacturasClienteNUMCONCEPTO].AsInteger; end; procedure TDetallesFacturasClienteDataTableRules.SetNUMCONCEPTOValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesFacturasClienteNUMCONCEPTO].AsInteger := aValue; end; function TDetallesFacturasClienteDataTableRules.GetPOSICIONValue: Integer; begin result := DataTable.Fields[idx_DetallesFacturasClientePOSICION].AsInteger; end; procedure TDetallesFacturasClienteDataTableRules.SetPOSICIONValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesFacturasClientePOSICION].AsInteger := aValue; end; function TDetallesFacturasClienteDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_DetallesFacturasClienteTIPO].AsString; end; procedure TDetallesFacturasClienteDataTableRules.SetTIPOValue(const aValue: String); begin DataTable.Fields[idx_DetallesFacturasClienteTIPO].AsString := aValue; end; function TDetallesFacturasClienteDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_DetallesFacturasClienteDESCRIPCION].AsString; end; procedure TDetallesFacturasClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_DetallesFacturasClienteDESCRIPCION].AsString := aValue; end; function TDetallesFacturasClienteDataTableRules.GetCANTIDADValue: Integer; begin result := DataTable.Fields[idx_DetallesFacturasClienteCANTIDAD].AsInteger; end; procedure TDetallesFacturasClienteDataTableRules.SetCANTIDADValue(const aValue: Integer); begin DataTable.Fields[idx_DetallesFacturasClienteCANTIDAD].AsInteger := aValue; end; function TDetallesFacturasClienteDataTableRules.GetIMPORTEUNIDADValue: Currency; begin result := DataTable.Fields[idx_DetallesFacturasClienteIMPORTEUNIDAD].AsCurrency; end; procedure TDetallesFacturasClienteDataTableRules.SetIMPORTEUNIDADValue(const aValue: Currency); begin DataTable.Fields[idx_DetallesFacturasClienteIMPORTEUNIDAD].AsCurrency := aValue; end; function TDetallesFacturasClienteDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_DetallesFacturasClienteIMPORTETOTAL].AsCurrency; end; procedure TDetallesFacturasClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_DetallesFacturasClienteIMPORTETOTAL].AsCurrency := aValue; end; function TDetallesFacturasClienteDataTableRules.GetVISIBLEValue: String; begin result := DataTable.Fields[idx_DetallesFacturasClienteVISIBLE].AsString; end; procedure TDetallesFacturasClienteDataTableRules.SetVISIBLEValue(const aValue: String); begin DataTable.Fields[idx_DetallesFacturasClienteVISIBLE].AsString := aValue; end; function TDetallesFacturasClienteDataTableRules.GetVALORADOValue: String; begin result := DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString; end; procedure TDetallesFacturasClienteDataTableRules.SetVALORADOValue(const aValue: String); begin DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString := aValue; end; { TInformeCabeceraFacturaClienteDataTableRules } constructor TInformeCabeceraFacturaClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TInformeCabeceraFacturaClienteDataTableRules.Destroy; begin inherited; end; function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOEMPRESAValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOEMPRESA].AsInteger; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOEMPRESA].AsInteger := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGO].AsInteger; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetCODIGOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGO].AsInteger := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetFECHAALTAValue: DateTime; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAALTA].AsDateTime; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetFECHAALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAALTA].AsDateTime := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteUSUARIO].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteUSUARIO].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetFECHAFACTURAValue: DateTime; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAFACTURA].AsDateTime; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetFECHAFACTURAValue(const aValue: DateTime); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAFACTURA].AsDateTime := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteREFERENCIA].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteREFERENCIA].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOCONTACTOValue: Integer; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOCONTACTO].AsInteger; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOCONTACTO].AsInteger := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetBASEIMPONIBLEValue: Currency; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteBASEIMPONIBLE].AsCurrency; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetBASEIMPONIBLEValue(const aValue: Currency); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteBASEIMPONIBLE].AsCurrency := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteDESCUENTO].AsFloat; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteDESCUENTO].AsFloat := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetIMPORTEDESCUENTOValue: Currency; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEDESCUENTO].AsCurrency; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Currency); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEDESCUENTO].AsCurrency := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetIVAValue: Float; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIVA].AsFloat; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetIVAValue(const aValue: Float); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteIVA].AsFloat := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetIMPORTEIVAValue: Currency; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEIVA].AsCurrency; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetIMPORTEIVAValue(const aValue: Currency); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEIVA].AsCurrency := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTETOTAL].AsCurrency; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTETOTAL].AsCurrency := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_InformeCabeceraFacturaClienteOBSERVACIONES].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteOBSERVACIONES].AsString := aValue.Text; end; function TInformeCabeceraFacturaClienteDataTableRules.GetFORMAPAGOValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_InformeCabeceraFacturaClienteFORMAPAGO].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetFORMAPAGOValue(const aValue: IROStrings); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteFORMAPAGO].AsString := aValue.Text; end; function TInformeCabeceraFacturaClienteDataTableRules.GetNIFCIFValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteNIFCIF].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetNIFCIFValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteNIFCIF].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteNOMBRE].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteNOMBRE].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCALLE].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteCALLE].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClientePROVINCIA].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClientePROVINCIA].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOPOSTALValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOPOSTAL].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetCODIGOPOSTALValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOPOSTAL].AsString := aValue; end; function TInformeCabeceraFacturaClienteDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_InformeCabeceraFacturaClientePOBLACION].AsString; end; procedure TInformeCabeceraFacturaClienteDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_InformeCabeceraFacturaClientePOBLACION].AsString := aValue; end; { TInformeDetallesFacturaClienteDataTableRules } constructor TInformeDetallesFacturaClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TInformeDetallesFacturaClienteDataTableRules.Destroy; begin inherited; end; function TInformeDetallesFacturaClienteDataTableRules.GetCODIGOFACTURAValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteCODIGOFACTURA].AsInteger; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetCODIGOFACTURAValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesFacturaClienteCODIGOFACTURA].AsInteger := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetNUMCONCEPTOValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteNUMCONCEPTO].AsInteger; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetNUMCONCEPTOValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesFacturaClienteNUMCONCEPTO].AsInteger := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteDESCRIPCION].AsString; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_InformeDetallesFacturaClienteDESCRIPCION].AsString := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetCANTIDADValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteCANTIDAD].AsInteger; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetCANTIDADValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesFacturaClienteCANTIDAD].AsInteger := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetIMPORTEUNIDADValue: Currency; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTEUNIDAD].AsCurrency; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetIMPORTEUNIDADValue(const aValue: Currency); begin DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTEUNIDAD].AsCurrency := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetIMPORTETOTALValue: Currency; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTETOTAL].AsCurrency; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency); begin DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTETOTAL].AsCurrency := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteTIPO].AsString; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetTIPOValue(const aValue: String); begin DataTable.Fields[idx_InformeDetallesFacturaClienteTIPO].AsString := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetPOSICIONValue: Integer; begin result := DataTable.Fields[idx_InformeDetallesFacturaClientePOSICION].AsInteger; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetPOSICIONValue(const aValue: Integer); begin DataTable.Fields[idx_InformeDetallesFacturaClientePOSICION].AsInteger := aValue; end; function TInformeDetallesFacturaClienteDataTableRules.GetVALORADOValue: String; begin result := DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString; end; procedure TInformeDetallesFacturaClienteDataTableRules.SetVALORADOValue(const aValue: String); begin DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString := aValue; end; initialization RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules); RegisterDataTableRules(RID_DarReferenciaFactura, TDarReferenciaFacturaDataTableRules); RegisterDataTableRules(RID_FacturasCliente, TFacturasClienteDataTableRules); RegisterDataTableRules(RID_DetallesFacturasCliente, TDetallesFacturasClienteDataTableRules); RegisterDataTableRules(RID_InformeCabeceraFacturaCliente, TInformeCabeceraFacturaClienteDataTableRules); RegisterDataTableRules(RID_InformeDetallesFacturaCliente, TInformeDetallesFacturaClienteDataTableRules); end.