This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
AlonsoYSal_FactuGES/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

1411 lines
44 KiB
Plaintext

object srvFacturasCliente: TsrvFacturasCliente
OldCreateOrder = True
RequiresSession = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schFacturasCliente
ServiceAdapter = DABINAdapter
Left = 1166
Top = 311
Height = 490
Width = 347
object schFacturasCliente: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHAfactura, 1,4)) as A' +
'NO'#10'from facturascliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dist' +
'inct '#39'Todos'#39' as ANO'#10'from empresas'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'ListaAnosFacturas'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURASCLIENTE'
SQL = 'SELECT * FROM DAR_REFERENCIA_FACTURACLIENTE'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end>
end>
Name = 'DarReferenciaFactura'
Fields = <
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURASCLIENTE'
SQL =
'SELECT '#10' CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, FECHAFACT' +
'URA, REFERENCIA,'#10' BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,' +
' IVA, IMPORTEIVA, '#10' IMPORTETOTAL, OBSERVACIONES, FORMAPAGO, C' +
'ODIGOCONTACTO, '#10' NIFCIF, NOMBRE, CALLE, PROVINCIA, CODIGOPOST' +
'AL, POBLACION, CODIGOALBARAN'#10' FROM'#10' FACTURASCLIENTE'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOEMPRESA'
TableField = 'CODIGOEMPRESA'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'FECHAALTA'
TableField = 'FECHAALTA'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'FECHAFACTURA'
TableField = 'FECHAFACTURA'
end
item
DatasetField = 'BASEIMPONIBLE'
TableField = 'BASEIMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTEDESCUENTO'
TableField = 'IMPORTEDESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTEIVA'
TableField = 'IMPORTEIVA'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'FORMAPAGO'
TableField = 'FORMAPAGO'
end
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'NIFCIF'
TableField = 'NIFCIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGOPOSTAL'
TableField = 'CODIGOPOSTAL'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'CODIGOALBARAN'
TableField = 'CODIGOALBARAN'
end>
end>
Name = 'FacturasCliente'
Fields = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOEMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOFACTURACLIENTE'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FECHAALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAFACTURA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FECHAFACTURA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASEIMPONIBLE'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'BASEIMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEDESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEIVA'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEIVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'FORMAPAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'NIFCIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
DictionaryEntry = 'CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPOSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOFACTURA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'DETALLESFACTURASCLIENTE'
SQL =
'SELECT '#10' CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 +
' IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VISIBLE, VALORA' +
'DO'#10' FROM'#10' DETALLESFACTURASCLIENTE'#10' WHERE CODIGOFACTURA = :C' +
'ODIGOFACTURA'#10' ORDER BY POSICION;'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'NUMCONCEPTO'
TableField = 'NUMCONCEPTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTEUNIDAD'
TableField = 'IMPORTEUNIDAD'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'CODIGOFACTURA'
TableField = 'CODIGOFACTURA'
end
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end>
end>
Name = 'DetallesFacturasCliente'
Fields = <
item
Name = 'CODIGOFACTURA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOFACTURACLIENTE'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUMCONCEPTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'NUMCONCEPTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'POSICIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Description = 'Cap'#237'tulo, etc'
BlobType = dabtUnknown
DictionaryEntry = 'TIPODETALLESFACTURACLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEUNIDAD'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEUNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VISIBLE'
DataType = datString
Size = 1
BlobType = dabtUnknown
DictionaryEntry = 'DetallesFacturasCliente_VISIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VALORADO'
DataType = datString
Size = 1
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURASCLIENTE'
SQL =
'SELECT '#10' CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, FECHAFACT' +
'URA, REFERENCIA,'#10' BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,' +
' IVA, IMPORTEIVA, '#10' IMPORTETOTAL, OBSERVACIONES, FORMAPAGO, C' +
'ODIGOCONTACTO, '#10' NIFCIF, NOMBRE, CALLE, PROVINCIA, CODIGOPOST' +
'AL, POBLACION'#10' FROM'#10' FACTURASCLIENTE'#10' WHERE CODIGO = :CODIG' +
'O'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOEMPRESA'
TableField = 'CODIGOEMPRESA'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'FECHAALTA'
TableField = 'FECHAALTA'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'BASEIMPONIBLE'
TableField = 'BASEIMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTEDESCUENTO'
TableField = 'IMPORTEDESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTEIVA'
TableField = 'IMPORTEIVA'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'FORMAPAGO'
TableField = 'FORMAPAGO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'NIFCIF'
TableField = 'NIFCIF'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'CODIGOPOSTAL'
TableField = 'CODIGOPOSTAL'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'FECHAFACTURA'
TableField = 'FECHAFACTURA'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end>
end>
Name = 'InformeCabeceraFacturaCliente'
Fields = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOEMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOFACTURACLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FECHAALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAFACTURA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'FECHAFACTURACLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASEIMPONIBLE'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'BASEIMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEDESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEIVA'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEIVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'FORMAPAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'NIFCIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
DictionaryEntry = 'CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPOSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOFACTURA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'DETALLESFACTURASCLIENTE'
SQL =
'SELECT '#10' CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 +
' IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VALORADO'#10'FROM D' +
'ETALLESFACTURASCLIENTE'#10'WHERE CODIGOFACTURA = :CODIGOFACTURA AND'#10 +
'VISIBLE = '#39'S'#39#10'ORDER BY POSICION'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'NUMCONCEPTO'
TableField = 'NUMCONCEPTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTEUNIDAD'
TableField = 'IMPORTEUNIDAD'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'CODIGOFACTURA'
TableField = 'CODIGOFACTURA'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end>
end>
Name = 'InformeDetallesFacturaCliente'
Fields = <
item
Name = 'CODIGOFACTURA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOFACTURACLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUMCONCEPTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'NUMCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEUNIDAD'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEUNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Description = 'Cap'#237'tulo, etc'
BlobType = dabtUnknown
DictionaryEntry = 'TIPODETALLESFACTURACLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'POSICIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VALORADO'
DataType = datString
Size = 1
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <>
RelationShips = <
item
Name = 'FK_DetallesFacturasCliente_FacturasCliente'
MasterDatasetName = 'FacturasCliente'
MasterFields = 'CODIGO'
DetailDatasetName = 'DetallesFacturasCliente'
DetailFields = 'CODIGOFACTURA'
end
item
Name = 'FK_InformeDetallesFacturaCliente_InformeCabeceraFacturaCliente'
MasterDatasetName = 'InformeCabeceraFacturaCliente'
MasterFields = 'CODIGO'
DetailDatasetName = 'InformeDetallesFacturaCliente'
DetailFields = 'CODIGOFACTURA'
end>
UpdateRules = <
item
Name = 'Insert FacturasCliente'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'FacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update FacturasCliente'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'FacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete DetallesFacturasCliente'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'DetallesFacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert DetallesFacturasCliente'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'DetallesFacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update DetallesFacturasCliente'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'DetallesFacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete FacturasCliente'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'FacturasCliente'
FailureBehaviour = fbRaiseException
end>
Left = 48
Top = 24
end
object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles'
CloseDataSource = False
DataSource = DADataDetalles
Left = 200
Top = 128
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADataCabecera
Left = 120
Top = 128
end
object DADataCabecera: TDADataSource
DataTable = tbl_FacturaCliente
Left = 120
Top = 176
end
object DADataDetalles: TDADataSource
DataTable = tbl_DetallesFacturaCliente
Left = 200
Top = 176
end
object frxReport1: TfrxReport
Version = '3.23.7'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 39275.443804247680000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
'xDBCabecera."POBLACION">);'
'end;'
''
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
'begin'
' case <frxDBDetalles."TIPO"> of'
' '#39'C'#39': begin'
' MemoCampo12.Style := '#39'Concepto normal'#39';'
' MemoCampo2.Style := '#39'Concepto normal'#39';'
' MemoCampo3.Style := '#39'Concepto normal'#39';'
' MemoCampo4.Style := '#39'Concepto normal'#39';'
' end;'
' '#39'S'#39': begin'
' MemoCampo12.Style := '#39'Concepto subtotal'#39';'
' MemoCampo2.Style := '#39'Concepto subtotal'#39';'
' MemoCampo3.Style := '#39'Concepto subtotal'#39';'
' MemoCampo4.Style := '#39'Concepto subtotal'#39';'
' end;'
' '#39'T'#39': begin'
' MemoCampo12.Style := '#39'Concepto titulo'#39';'
' MemoCampo2.Style := '#39'Concepto titulo'#39';'
' MemoCampo3.Style := '#39'Concepto titulo'#39';'
' MemoCampo4.Style := '#39'Concepto titulo'#39';'
' end;'
' end;'
'end;'
''
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
'// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportS' +
'ummary1.Height + 20;'
'end;'
''
'procedure Band3OnBeforePrint(Sender: TfrxComponent);'
'begin'
''
' if (<Page#> = <TotalPages#>) then'
' begin'
' shape6.Visible := True;'
' memo14.Visible := True;'
' memo35.Visible := True;'
' memo36.Visible := True;'
' memo37.Visible := True;'
' memo38.Visible := True;'
' memo39.Visible := True;'
' memo40.Visible := True;'
' memo41.Visible := True;'
' memo42.Visible := True;'
' memo43.Visible := True;'
' memo44.Visible := True;'
' memo45.Visible := True;'
' end'
' else'
' begin'
' shape6.Visible := False;'
' shape6.Visible := False;'
' memo14.Visible := False;'
' memo35.Visible := False;'
' memo36.Visible := False;'
' memo37.Visible := False;'
' memo38.Visible := False;'
' memo39.Visible := False;'
' memo40.Visible := False;'
' memo41.Visible := False;'
' memo42.Visible := False;'
' memo43.Visible := False;'
' memo44.Visible := False;'
' memo45.Visible := False;'
' end;'
'end;'
''
'begin'
''
'end.')
StoreInDFM = False
Left = 40
Top = 128
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end>
Variables = <>
Style = <
item
Name = 'Concepto normal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
end
item
Name = 'Concepto subtotal'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
item
Name = 'Cabecera de columna'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
item
Name = 'Concepto titulo'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end>
end
object tbl_FacturaCliente: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 120
Top = 232
end
object tbl_DetallesFacturaCliente: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 200
Top = 232
end
object frxBarCodeObject1: TfrxBarCodeObject
Left = 24
Top = 296
end
object frxOLEObject1: TfrxOLEObject
Left = 56
Top = 296
end
object frxChartObject1: TfrxChartObject
Left = 24
Top = 328
end
object frxRichObject1: TfrxRichObject
Left = 56
Top = 328
end
object frxCrossObject1: TfrxCrossObject
Left = 88
Top = 296
end
object frxCheckBoxObject1: TfrxCheckBoxObject
Left = 88
Top = 328
end
object frxGradientObject1: TfrxGradientObject
Left = 24
Top = 360
end
object frxDotMatrixExport1: TfrxDotMatrixExport
UseFileCache = True
ShowProgress = True
EscModel = 0
GraphicFrames = False
SaveToFile = False
UseIniSettings = True
Left = 56
Top = 360
end
object frxDialogControls1: TfrxDialogControls
Left = 88
Top = 360
end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 72
end
end