Estudio_CGH/ProGestion
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
master
ProGestion/Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas
david 68ec970246 Importación inicial 
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
2007-06-21 16:12:43 +00:00

1431 lines
60 KiB
ObjectPascal
Raw Permalink Blame History

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_DarReferenciaFactura = '{13F7E6EA-DE89-4D70-990C-895E614B4B32}';
RID_FacturasCliente = '{92B0E447-61C8-47DA-975C-F378F6A5BC00}';
RID_DetallesFacturasCliente = '{8608DE69-460E-4759-9612-3D4B05D17658}';
RID_InformeCabeceraFacturaCliente = '{340B7416-FA06-4941-B982-EA11F25028D6}';
RID_InformeDetallesFacturaCliente = '{8779CABB-4CB1-42C7-951E-028EFF606A9F}';
RID_DarReferenciaFacturaProforma = '{418399E5-5D9A-4DF4-8AB9-6E4B01C996B4}';
{ Data table names }
nme_DarReferenciaFactura = 'DarReferenciaFactura';
nme_FacturasCliente = 'FacturasCliente';
nme_DetallesFacturasCliente = 'DetallesFacturasCliente';
nme_InformeCabeceraFacturaCliente = 'InformeCabeceraFacturaCliente';
nme_InformeDetallesFacturaCliente = 'InformeDetallesFacturaCliente';
nme_DarReferenciaFacturaProforma = 'DarReferenciaFacturaProforma';
{ DarReferenciaFactura fields }
fld_DarReferenciaFacturaREFERENCIA = 'REFERENCIA';
{ DarReferenciaFactura field indexes }
idx_DarReferenciaFacturaREFERENCIA = 0;
{ FacturasCliente fields }
fld_FacturasClienteCODIGO = 'CODIGO';
fld_FacturasClienteFECHAALTA = 'FECHAALTA';
fld_FacturasClienteFECHAVENCIMIENTO = 'FECHAVENCIMIENTO';
fld_FacturasClienteUSUARIO = 'USUARIO';
fld_FacturasClienteFECHAFACTURA = 'FECHAFACTURA';
fld_FacturasClienteCLASEFACTURA = 'CLASEFACTURA';
fld_FacturasClienteREFERENCIA = 'REFERENCIA';
fld_FacturasClientePAGADA = 'PAGADA';
fld_FacturasClienteBASEIMPONIBLE = 'BASEIMPONIBLE';
fld_FacturasClienteIVA = 'IVA';
fld_FacturasClienteIMPORTEIVA = 'IMPORTEIVA';
fld_FacturasClienteIMPORTETOTAL = 'IMPORTETOTAL';
fld_FacturasClienteDESCUENTO = 'DESCUENTO';
fld_FacturasClienteIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
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_FacturasClienteCODIGOOBRA = 'CODIGOOBRA';
{ FacturasCliente field indexes }
idx_FacturasClienteCODIGO = 0;
idx_FacturasClienteFECHAALTA = 1;
idx_FacturasClienteFECHAVENCIMIENTO = 2;
idx_FacturasClienteUSUARIO = 3;
idx_FacturasClienteFECHAFACTURA = 4;
idx_FacturasClienteCLASEFACTURA = 5;
idx_FacturasClienteREFERENCIA = 6;
idx_FacturasClientePAGADA = 7;
idx_FacturasClienteBASEIMPONIBLE = 8;
idx_FacturasClienteIVA = 9;
idx_FacturasClienteIMPORTEIVA = 10;
idx_FacturasClienteIMPORTETOTAL = 11;
idx_FacturasClienteDESCUENTO = 12;
idx_FacturasClienteIMPORTEDESCUENTO = 13;
idx_FacturasClienteOBSERVACIONES = 14;
idx_FacturasClienteFORMAPAGO = 15;
idx_FacturasClienteCODIGOCONTACTO = 16;
idx_FacturasClienteNIFCIF = 17;
idx_FacturasClienteNOMBRE = 18;
idx_FacturasClienteCALLE = 19;
idx_FacturasClientePROVINCIA = 20;
idx_FacturasClienteCODIGOPOSTAL = 21;
idx_FacturasClientePOBLACION = 22;
idx_FacturasClienteCODIGOOBRA = 23;
{ 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';
{ 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;
{ InformeCabeceraFacturaCliente fields }
fld_InformeCabeceraFacturaClienteCODIGO = 'CODIGO';
fld_InformeCabeceraFacturaClienteFECHAALTA = 'FECHAALTA';
fld_InformeCabeceraFacturaClienteFECHAVENCIMIENTO = 'FECHAVENCIMIENTO';
fld_InformeCabeceraFacturaClienteUSUARIO = 'USUARIO';
fld_InformeCabeceraFacturaClienteCLASEFACTURA = 'CLASEFACTURA';
fld_InformeCabeceraFacturaClienteFECHAFACTURA = 'FECHAFACTURA';
fld_InformeCabeceraFacturaClienteREFERENCIA = 'REFERENCIA';
fld_InformeCabeceraFacturaClientePAGADA = 'PAGADA';
fld_InformeCabeceraFacturaClienteCODIGOCONTACTO = 'CODIGOCONTACTO';
fld_InformeCabeceraFacturaClienteBASEIMPONIBLE = 'BASEIMPONIBLE';
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';
fld_InformeCabeceraFacturaClienteCODIGOOBRA = 'CODIGOOBRA';
{ InformeCabeceraFacturaCliente field indexes }
idx_InformeCabeceraFacturaClienteCODIGO = 0;
idx_InformeCabeceraFacturaClienteFECHAALTA = 1;
idx_InformeCabeceraFacturaClienteFECHAVENCIMIENTO = 2;
idx_InformeCabeceraFacturaClienteUSUARIO = 3;
idx_InformeCabeceraFacturaClienteCLASEFACTURA = 4;
idx_InformeCabeceraFacturaClienteFECHAFACTURA = 5;
idx_InformeCabeceraFacturaClienteREFERENCIA = 6;
idx_InformeCabeceraFacturaClientePAGADA = 7;
idx_InformeCabeceraFacturaClienteCODIGOCONTACTO = 8;
idx_InformeCabeceraFacturaClienteBASEIMPONIBLE = 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;
idx_InformeCabeceraFacturaClienteCODIGOOBRA = 21;
{ 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';
{ 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;
{ DarReferenciaFacturaProforma fields }
fld_DarReferenciaFacturaProformaREFERENCIA = 'REFERENCIA';
{ DarReferenciaFacturaProforma field indexes }
idx_DarReferenciaFacturaProformaREFERENCIA = 0;
type
{ IDarReferenciaFactura }
IDarReferenciaFactura = interface(IDAStronglyTypedDataTable)
['{E53E48AC-B135-4473-BF9E-D07EF0937B28}']
{ 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)
['{B2B93701-AE9A-44CD-AF52-B7BE52C555A9}']
{ Property getters and setters }
function GetCODIGOValue: Integer;
procedure SetCODIGOValue(const aValue: Integer);
function GetFECHAALTAValue: DateTime;
procedure SetFECHAALTAValue(const aValue: DateTime);
function GetFECHAVENCIMIENTOValue: DateTime;
procedure SetFECHAVENCIMIENTOValue(const aValue: DateTime);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetFECHAFACTURAValue: DateTime;
procedure SetFECHAFACTURAValue(const aValue: DateTime);
function GetCLASEFACTURAValue: String;
procedure SetCLASEFACTURAValue(const aValue: String);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetPAGADAValue: String;
procedure SetPAGADAValue(const aValue: String);
function GetBASEIMPONIBLEValue: Currency;
procedure SetBASEIMPONIBLEValue(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 GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTEDESCUENTOValue: Float;
procedure SetIMPORTEDESCUENTOValue(const aValue: Float);
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 GetCODIGOOBRAValue: Integer;
procedure SetCODIGOOBRAValue(const aValue: Integer);
{ Properties }
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
property FECHAVENCIMIENTO: DateTime read GetFECHAVENCIMIENTOValue write SetFECHAVENCIMIENTOValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
property CLASEFACTURA: String read GetCLASEFACTURAValue write SetCLASEFACTURAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property PAGADA: String read GetPAGADAValue write SetPAGADAValue;
property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTEDESCUENTO: Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
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 CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
end;
{ TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
protected
{ Property getters and setters }
function GetCODIGOValue: Integer; virtual;
procedure SetCODIGOValue(const aValue: Integer); virtual;
function GetFECHAALTAValue: DateTime; virtual;
procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
function GetFECHAVENCIMIENTOValue: DateTime; virtual;
procedure SetFECHAVENCIMIENTOValue(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 GetCLASEFACTURAValue: String; virtual;
procedure SetCLASEFACTURAValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetPAGADAValue: String; virtual;
procedure SetPAGADAValue(const aValue: String); virtual;
function GetBASEIMPONIBLEValue: Currency; virtual;
procedure SetBASEIMPONIBLEValue(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 GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTEDESCUENTOValue: Float; virtual;
procedure SetIMPORTEDESCUENTOValue(const aValue: Float); 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 GetCODIGOOBRAValue: Integer; virtual;
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
{ Properties }
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
property FECHAVENCIMIENTO: DateTime read GetFECHAVENCIMIENTOValue write SetFECHAVENCIMIENTOValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
property CLASEFACTURA: String read GetCLASEFACTURAValue write SetCLASEFACTURAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property PAGADA: String read GetPAGADAValue write SetPAGADAValue;
property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTEDESCUENTO: Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
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 CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDetallesFacturasCliente }
IDetallesFacturasCliente = interface(IDAStronglyTypedDataTable)
['{C39F501B-AEC6-4DEE-96F4-3155086386BE}']
{ 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);
{ 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;
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;
{ 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;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IInformeCabeceraFacturaCliente }
IInformeCabeceraFacturaCliente = interface(IDAStronglyTypedDataTable)
['{EC60D561-F9C5-4D9B-B808-820B37431F2B}']
{ Property getters and setters }
function GetCODIGOValue: Integer;
procedure SetCODIGOValue(const aValue: Integer);
function GetFECHAALTAValue: DateTime;
procedure SetFECHAALTAValue(const aValue: DateTime);
function GetFECHAVENCIMIENTOValue: DateTime;
procedure SetFECHAVENCIMIENTOValue(const aValue: DateTime);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetCLASEFACTURAValue: String;
procedure SetCLASEFACTURAValue(const aValue: String);
function GetFECHAFACTURAValue: DateTime;
procedure SetFECHAFACTURAValue(const aValue: DateTime);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetPAGADAValue: String;
procedure SetPAGADAValue(const aValue: String);
function GetCODIGOCONTACTOValue: Integer;
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
function GetBASEIMPONIBLEValue: Currency;
procedure SetBASEIMPONIBLEValue(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);
function GetCODIGOOBRAValue: Integer;
procedure SetCODIGOOBRAValue(const aValue: Integer);
{ Properties }
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
property FECHAVENCIMIENTO: DateTime read GetFECHAVENCIMIENTOValue write SetFECHAVENCIMIENTOValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property CLASEFACTURA: String read GetCLASEFACTURAValue write SetCLASEFACTURAValue;
property FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property PAGADA: String read GetPAGADAValue write SetPAGADAValue;
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
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;
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
end;
{ TInformeCabeceraFacturaClienteDataTableRules }
TInformeCabeceraFacturaClienteDataTableRules = class(TDADataTableRules, IInformeCabeceraFacturaCliente)
private
protected
{ Property getters and setters }
function GetCODIGOValue: Integer; virtual;
procedure SetCODIGOValue(const aValue: Integer); virtual;
function GetFECHAALTAValue: DateTime; virtual;
procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
function GetFECHAVENCIMIENTOValue: DateTime; virtual;
procedure SetFECHAVENCIMIENTOValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetCLASEFACTURAValue: String; virtual;
procedure SetCLASEFACTURAValue(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 GetPAGADAValue: String; virtual;
procedure SetPAGADAValue(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 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;
function GetCODIGOOBRAValue: Integer; virtual;
procedure SetCODIGOOBRAValue(const aValue: Integer); virtual;
{ Properties }
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
property FECHAVENCIMIENTO: DateTime read GetFECHAVENCIMIENTOValue write SetFECHAVENCIMIENTOValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property CLASEFACTURA: String read GetCLASEFACTURAValue write SetCLASEFACTURAValue;
property FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property PAGADA: String read GetPAGADAValue write SetPAGADAValue;
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
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;
property CODIGOOBRA: Integer read GetCODIGOOBRAValue write SetCODIGOOBRAValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IInformeDetallesFacturaCliente }
IInformeDetallesFacturaCliente = interface(IDAStronglyTypedDataTable)
['{4845011B-884B-44B3-84A9-260CD3F44D83}']
{ 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: Float;
procedure SetCANTIDADValue(const aValue: Float);
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);
{ Properties }
property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property CANTIDAD: Float 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;
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: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); 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;
{ Properties }
property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property CANTIDAD: Float 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;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarReferenciaFacturaProforma }
IDarReferenciaFacturaProforma = interface(IDAStronglyTypedDataTable)
['{A0321578-01D5-4AED-9CC5-8B86499A0E0E}']
{ Property getters and setters }
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
{ Properties }
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
end;
{ TDarReferenciaFacturaProformaDataTableRules }
TDarReferenciaFacturaProformaDataTableRules = class(TDADataTableRules, IDarReferenciaFacturaProforma)
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;
implementation
uses Variants;
{ 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.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.GetFECHAVENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasClienteFECHAVENCIMIENTO].AsDateTime;
end;
procedure TFacturasClienteDataTableRules.SetFECHAVENCIMIENTOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_FacturasClienteFECHAVENCIMIENTO].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.GetCLASEFACTURAValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteCLASEFACTURA].AsString;
end;
procedure TFacturasClienteDataTableRules.SetCLASEFACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteCLASEFACTURA].AsString := 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.GetPAGADAValue: String;
begin
result := DataTable.Fields[idx_FacturasClientePAGADA].AsString;
end;
procedure TFacturasClienteDataTableRules.SetPAGADAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClientePAGADA].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.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.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: Float;
begin
result := DataTable.Fields[idx_FacturasClienteIMPORTEDESCUENTO].AsFloat;
end;
procedure TFacturasClienteDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasClienteIMPORTEDESCUENTO].AsFloat := 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.GetCODIGOOBRAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteCODIGOOBRA].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteCODIGOOBRA].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;
{ TInformeCabeceraFacturaClienteDataTableRules }
constructor TInformeCabeceraFacturaClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TInformeCabeceraFacturaClienteDataTableRules.Destroy;
begin
inherited;
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.GetFECHAVENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAVENCIMIENTO].AsDateTime;
end;
procedure TInformeCabeceraFacturaClienteDataTableRules.SetFECHAVENCIMIENTOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAVENCIMIENTO].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.GetCLASEFACTURAValue: String;
begin
result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCLASEFACTURA].AsString;
end;
procedure TInformeCabeceraFacturaClienteDataTableRules.SetCLASEFACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_InformeCabeceraFacturaClienteCLASEFACTURA].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.GetPAGADAValue: String;
begin
result := DataTable.Fields[idx_InformeCabeceraFacturaClientePAGADA].AsString;
end;
procedure TInformeCabeceraFacturaClienteDataTableRules.SetPAGADAValue(const aValue: String);
begin
DataTable.Fields[idx_InformeCabeceraFacturaClientePAGADA].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.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;
function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOOBRAValue: Integer;
begin
result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOOBRA].AsInteger;
end;
procedure TInformeCabeceraFacturaClienteDataTableRules.SetCODIGOOBRAValue(const aValue: Integer);
begin
DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOOBRA].AsInteger := 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: Float;
begin
result := DataTable.Fields[idx_InformeDetallesFacturaClienteCANTIDAD].AsFloat;
end;
procedure TInformeDetallesFacturaClienteDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_InformeDetallesFacturaClienteCANTIDAD].AsFloat := 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;
{ TDarReferenciaFacturaProformaDataTableRules }
constructor TDarReferenciaFacturaProformaDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarReferenciaFacturaProformaDataTableRules.Destroy;
begin
inherited;
end;
function TDarReferenciaFacturaProformaDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_DarReferenciaFacturaProformaREFERENCIA].AsString;
end;
procedure TDarReferenciaFacturaProformaDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_DarReferenciaFacturaProformaREFERENCIA].AsString := aValue;
end;
initialization
RegisterDataTableRules(RID_DarReferenciaFactura, TDarReferenciaFacturaDataTableRules);
RegisterDataTableRules(RID_FacturasCliente, TFacturasClienteDataTableRules);
RegisterDataTableRules(RID_DetallesFacturasCliente, TDetallesFacturasClienteDataTableRules);
RegisterDataTableRules(RID_InformeCabeceraFacturaCliente, TInformeCabeceraFacturaClienteDataTableRules);
RegisterDataTableRules(RID_InformeDetallesFacturaCliente, TInformeDetallesFacturaClienteDataTableRules);
RegisterDataTableRules(RID_DarReferenciaFacturaProforma, TDarReferenciaFacturaProformaDataTableRules);
end.
Reference in New Issue View Git Blame Copy Permalink