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

2039 lines
63 KiB
Plaintext

object srvFacturasCliente: TsrvFacturasCliente
OldCreateOrder = True
RequiresSession = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schFacturasCliente
ServiceAdapter = DABINAdapter
Left = 1168
Top = 313
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 = 'V_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' CODIGOPRESUPUESTO, REFERENCIA_' +
'MONTAJE_PRE, REFERENCIA_MONTAJE_ALB'#10' FROM'#10' V_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
item
DatasetField = 'CODIGOPRESUPUESTO'
TableField = 'CODIGOPRESUPUESTO'
end
item
DatasetField = 'REFERENCIA_MONTAJE_PRE'
TableField = 'REFERENCIA_MONTAJE_PRE'
end
item
DatasetField = 'REFERENCIA_MONTAJE_ALB'
TableField = 'REFERENCIA_MONTAJE_ALB'
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
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_MONTAJE_PRE'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_MONTAJE_ALB'
DataType = datString
Size = 20
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
item
Params = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_FACTURASCLIENTE'
SQL =
'SELECT '#10' CODIGOEMPRESA, CODIGO, REFERENCIA, CODIGOALBARAN,'#10' ' +
' CODIGOPRESUPUESTO, REFERENCIA_MONTAJE_PRE, REFERENCIA_MONTAJE_' +
'ALB'#10' FROM'#10' V_FACTURASCLIENTE'#10'WHERE V_FACTURASCLIENTE.CODIGO ' +
'= :CODIGO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOEMPRESA'
TableField = 'CODIGOEMPRESA'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'CODIGOALBARAN'
TableField = 'CODIGOALBARAN'
end
item
DatasetField = 'CODIGOPRESUPUESTO'
TableField = 'CODIGOPRESUPUESTO'
end
item
DatasetField = 'REFERENCIA_MONTAJE_PRE'
TableField = 'REFERENCIA_MONTAJE_PRE'
end
item
DatasetField = 'REFERENCIA_MONTAJE_ALB'
TableField = 'REFERENCIA_MONTAJE_ALB'
end>
end>
Name = 'FacturasCliente_RefresDataSet'
Fields = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGO'
InPrimaryKey = True
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 = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_MONTAJE_PRE'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_MONTAJE_ALB'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
Params = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAFACTURA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'BASEIMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEIVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTETOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURASCLIENTE'
SQL =
'INSERT'#10' INTO FACTURASCLIENTE'#10' (CODIGOEMPRESA, CODIGO, FECHAA' +
'LTA, USUARIO, FECHAFACTURA, '#10' BASEIMPONIBLE, DESCUENTO, IMPO' +
'RTEDESCUENTO, IVA, IMPORTEIVA, '#10' IMPORTETOTAL, OBSERVACIONES' +
', FORMAPAGO, CODIGOCONTACTO, '#10' NIFCIF, NOMBRE, CALLE, PROVIN' +
'CIA, CODIGOPOSTAL, POBLACION, '#10' REFERENCIA, CODIGOALBARAN, C' +
'ODIGOPRESUPUESTO)'#10' VALUES'#10' (:CODIGOEMPRESA, :CODIGO, :FECHAA' +
'LTA, :USUARIO, :FECHAFACTURA, '#10' :BASEIMPONIBLE, :DESCUENTO, ' +
':IMPORTEDESCUENTO, :IVA, '#10' :IMPORTEIVA, :IMPORTETOTAL, :OBSE' +
'RVACIONES, :FORMAPAGO, '#10' :CODIGOCONTACTO, :NIFCIF, :NOMBRE, ' +
':CALLE, :PROVINCIA, '#10' :CODIGOPOSTAL, :POBLACION, :REFERENCIA' +
', :CODIGOALBARAN, :CODIGOPRESUPUESTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasCliente'
end
item
Params = <
item
Name = 'OLD_CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURASCLIENTE'
SQL =
'DELETE '#10' FROM'#10' FACTURASCLIENTE'#10' WHERE'#10' (CODIGO = :OLD_CO' +
'DIGO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasCliente'
end
item
Params = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAFACTURA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'BASEIMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEIVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTETOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURASCLIENTE'
SQL =
'UPDATE FACTURASCLIENTE'#10' SET '#10' CODIGOEMPRESA = :CODIGOEMPRESA' +
', '#10' CODIGO = :CODIGO, '#10' FECHAALTA = :FECHAALTA, '#10' USUAR' +
'IO = :USUARIO, '#10' FECHAFACTURA = :FECHAFACTURA, '#10' BASEIMPON' +
'IBLE = :BASEIMPONIBLE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE' +
'DESCUENTO = :IMPORTEDESCUENTO, '#10' IVA = :IVA, '#10' IMPORTEIVA ' +
'= :IMPORTEIVA, '#10' IMPORTETOTAL = :IMPORTETOTAL, '#10' OBSERVACI' +
'ONES = :OBSERVACIONES, '#10' FORMAPAGO = :FORMAPAGO, '#10' CODIGOC' +
'ONTACTO = :CODIGOCONTACTO, '#10' NIFCIF = :NIFCIF, '#10' NOMBRE = ' +
':NOMBRE, '#10' CALLE = :CALLE, '#10' PROVINCIA = :PROVINCIA, '#10' ' +
'CODIGOPOSTAL = :CODIGOPOSTAL, '#10' POBLACION = :POBLACION, '#10' ' +
'REFERENCIA = :REFERENCIA, '#10' CODIGOALBARAN = :CODIGOALBARAN,'#10' ' +
' CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10' WHERE'#10' (CODIGO = ' +
':OLD_CODIGO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasCliente'
end>
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 = 43748.663813726850000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure PresupuestoRelOnBeforePrint(Sender: TfrxComponent);'
'begin'
' PresupuestoRel.Lines.Clear;'
' if <frxDBCabecera."REFERENCIAPRE"> = '#39#39' then'
' PresupuestoRel.Lines.Add('#39'-'#39')'
' else'
' PresupuestoRel.Lines.Add(<frxDBCabecera."REFERENCIAPRE' +
'">);'
'end;'
''
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'var'
' cadenaAux: String;'
'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">);'
''
' CadenaAux := '#39#39';'
' if <frxDBCabecera."TELEFONO1"> <> '#39#39' then'
' if CadenaAux = '#39#39' then'
' CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
'ONO1">'
' else'
' CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
'O1">;'
''
' if <frxDBCabecera."TELEFONO2"> <> '#39#39' then'
' if CadenaAux = '#39#39' then'
' CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
'ONO2">'
' else'
' CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
'O2">;'
''
' if <frxDBCabecera."MOVIL"> <> '#39#39' then'
' if CadenaAux = '#39#39' then'
' CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."MOVIL' +
'">'
' else'
' CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."MOVIL">' +
';'
''
' DatosCliente.Lines.Add(CadenaAux);'
'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 - ReportSum' +
'mary1.Height - 1;'
'end;'
''
'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);'
'begin'
' case <frxDBDetalles."VALORADO"> of'
' '#39'S'#39': begin'
' MemoCampo3.Visible := True;'
' MemoCampo4.Visible := True;'
' end;'
' '#39'N'#39': begin'
' MemoCampo3.Visible := False;'
' MemoCampo4.Visible := False;'
' end;'
' 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
object bpFacturasCliente: TDABusinessProcessor
Schema = schFacturasCliente
InsertCommandName = 'Insert_FacturasCliente'
DeleteCommandName = 'Delete_FacturasCliente'
UpdateCommandName = 'Update_FacturasCliente'
RefreshDatasetName = 'FacturasCliente_RefresDataSet'
ReferencedDataset = 'FacturasCliente'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 24
end
end