david
1603210f50
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@580 0c75b7a4-871f-7646-8a2f-f78d34cc349f
680 lines
19 KiB
Plaintext
680 lines
19 KiB
Plaintext
object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
|
OldCreateOrder = False
|
|
OnCreate = DataModuleCreate
|
|
Height = 262
|
|
Width = 374
|
|
object schReport: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
DataDictionary = DataDictionary
|
|
Datasets = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID'
|
|
Value = '31'
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
SQL =
|
|
'SELECT'#10' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_' +
|
|
'EMPRESA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,'#10' V_PRE' +
|
|
'SUPUESTOS_CLIENTE.REFERENCIA,'#10' V_PRESUPUESTOS_CLIENTE.PORTADA' +
|
|
','#10' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS_CLIENTE.OBS' +
|
|
'ERVACIONES,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PRESUPUES' +
|
|
'TOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENTE.DESCUENTO,' +
|
|
' V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRESUPUESTOS_CL' +
|
|
'IENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' V_PRESUPUE' +
|
|
'STOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
|
|
'LIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' V_CLIENTES' +
|
|
'.NIF_CIF, V_CLIENTES.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
|
|
'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' V_PRESUPUESTOS_CL' +
|
|
'IENTE.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10 +
|
|
' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10' V_PR' +
|
|
'ESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10' (V_PRESUPUES' +
|
|
'TOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10' WHERE V_PRESUPUESTOS_C' +
|
|
'LIENTE.ID = :ID'#10
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'ID_EMPRESA'
|
|
TableField = 'ID_EMPRESA'
|
|
end
|
|
item
|
|
DatasetField = 'FECHA_PRESUPUESTO'
|
|
TableField = 'FECHA_PRESUPUESTO'
|
|
end
|
|
item
|
|
DatasetField = 'REFERENCIA'
|
|
TableField = 'REFERENCIA'
|
|
end
|
|
item
|
|
DatasetField = 'PORTADA'
|
|
TableField = 'PORTADA'
|
|
end
|
|
item
|
|
DatasetField = 'MEMORIA'
|
|
TableField = 'MEMORIA'
|
|
end
|
|
item
|
|
DatasetField = 'OBSERVACIONES'
|
|
TableField = 'OBSERVACIONES'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_NETO'
|
|
TableField = 'IMPORTE_NETO'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_PORTE'
|
|
TableField = 'IMPORTE_PORTE'
|
|
end
|
|
item
|
|
DatasetField = 'DESCUENTO'
|
|
TableField = 'DESCUENTO'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_DESCUENTO'
|
|
TableField = 'IMPORTE_DESCUENTO'
|
|
end
|
|
item
|
|
DatasetField = 'BASE_IMPONIBLE'
|
|
TableField = 'BASE_IMPONIBLE'
|
|
end
|
|
item
|
|
DatasetField = 'IVA'
|
|
TableField = 'IVA'
|
|
end
|
|
item
|
|
DatasetField = 'ID_CLIENTE'
|
|
TableField = 'ID_CLIENTE'
|
|
end
|
|
item
|
|
DatasetField = 'REFERENCIA_CLIENTE'
|
|
TableField = 'REFERENCIA_CLIENTE'
|
|
end
|
|
item
|
|
DatasetField = 'CLIENTE_FINAL'
|
|
TableField = 'CLIENTE_FINAL'
|
|
end
|
|
item
|
|
DatasetField = 'NIF_CIF'
|
|
TableField = 'NIF_CIF'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRE'
|
|
TableField = 'NOMBRE'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_IVA'
|
|
TableField = 'IMPORTE_IVA'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_TOTAL'
|
|
TableField = 'IMPORTE_TOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'PERSONA_CONTACTO'
|
|
TableField = 'PERSONA_CONTACTO'
|
|
end
|
|
item
|
|
DatasetField = 'CALLE'
|
|
TableField = 'CALLE'
|
|
end
|
|
item
|
|
DatasetField = 'POBLACION'
|
|
TableField = 'POBLACION'
|
|
end
|
|
item
|
|
DatasetField = 'PROVINCIA'
|
|
TableField = 'PROVINCIA'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGO_POSTAL'
|
|
TableField = 'CODIGO_POSTAL'
|
|
end>
|
|
end>
|
|
Name = 'Informe_Cabecera'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
Required = True
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'FECHA_PRESUPUESTO'
|
|
DataType = datDateTime
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PORTADA'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'MEMORIA'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'IMPORTE_NETO'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'DESCUENTO'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_DESCUENTO'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'BASE_IMPONIBLE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IVA'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'ID_CLIENTE'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CLIENTE_FINAL'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NIF_CIF'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'IMPORTE_IVA'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'PERSONA_CONTACTO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CALLE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'POBLACION'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PROVINCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CODIGO_POSTAL'
|
|
DataType = datString
|
|
Size = 10
|
|
end>
|
|
ReadOnly = True
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID_PRESUPUESTO'
|
|
Value = '2'
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
SQL =
|
|
'SELECT '#10' ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTIC' +
|
|
'ULO, '#10' F_RTFTOTEXT(F_RTFTOTEXT(CONCEPTO)) as CONCEPTO, CONCEP' +
|
|
'TO as CONCEPTO_RTF, CANTIDAD,'#10' UNIDAD_MEDIDA, IMPORTE_UNIDAD,' +
|
|
' DESCUENTO, IMPORTE_PORTE,'#10' IMPORTE_TOTAL, VISIBLE, FECHA_ALT' +
|
|
'A, FECHA_MODIFICACION'#10' FROM'#10' PRESUPUESTOS_CLIENTE_DETALLES'#10' ' +
|
|
' WHERE {Where}'#10' AND (VISIBLE) <> 0'#10' AND (ID_PRESUPUESTO = ' +
|
|
':ID_PRESUPUESTO)'#10' ORDER BY ID_PRESUPUESTO, POSICION'#10
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'ID_PRESUPUESTO'
|
|
TableField = 'ID_PRESUPUESTO'
|
|
end
|
|
item
|
|
DatasetField = 'POSICION'
|
|
TableField = 'POSICION'
|
|
end
|
|
item
|
|
DatasetField = 'TIPO_DETALLE'
|
|
TableField = 'TIPO_DETALLE'
|
|
end
|
|
item
|
|
DatasetField = 'CONCEPTO'
|
|
TableField = 'CONCEPTO'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_TOTAL'
|
|
TableField = 'IMPORTE_TOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'VISIBLE'
|
|
TableField = 'VISIBLE'
|
|
end
|
|
item
|
|
DatasetField = 'ID_ARTICULO'
|
|
TableField = 'ID_ARTICULO'
|
|
end
|
|
item
|
|
DatasetField = 'CANTIDAD'
|
|
TableField = 'CANTIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_UNIDAD'
|
|
TableField = 'IMPORTE_UNIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'DESCUENTO'
|
|
TableField = 'DESCUENTO'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTE_PORTE'
|
|
TableField = 'IMPORTE_PORTE'
|
|
end
|
|
item
|
|
DatasetField = 'FECHA_ALTA'
|
|
TableField = 'FECHA_ALTA'
|
|
end
|
|
item
|
|
DatasetField = 'FECHA_MODIFICACION'
|
|
TableField = 'FECHA_MODIFICACION'
|
|
end
|
|
item
|
|
DatasetField = 'CONCEPTO_RTF'
|
|
TableField = 'CONCEPTO_RTF'
|
|
end
|
|
item
|
|
DatasetField = 'UNIDAD_MEDIDA'
|
|
TableField = 'UNIDAD_MEDIDA'
|
|
end>
|
|
end>
|
|
Name = 'Informe_Detalles'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_PRESUPUESTO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'POSICION'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'TIPO_DETALLE'
|
|
DataType = datString
|
|
Size = 10
|
|
end
|
|
item
|
|
Name = 'ID_ARTICULO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'CONCEPTO'
|
|
DataType = datString
|
|
Size = 254
|
|
end
|
|
item
|
|
Name = 'CONCEPTO_RTF'
|
|
DataType = datString
|
|
Size = 2000
|
|
end
|
|
item
|
|
Name = 'CANTIDAD'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'UNIDAD_MEDIDA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'IMPORTE_UNIDAD'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'DESCUENTO'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'VISIBLE'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'FECHA_ALTA'
|
|
DataType = datDateTime
|
|
end
|
|
item
|
|
Name = 'FECHA_MODIFICACION'
|
|
DataType = datDateTime
|
|
end>
|
|
ReadOnly = True
|
|
end>
|
|
JoinDataTables = <>
|
|
UnionDataTables = <>
|
|
Commands = <>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 48
|
|
Top = 16
|
|
end
|
|
object DataDictionary: TDADataDictionary
|
|
Fields = <>
|
|
Left = 46
|
|
Top = 142
|
|
end
|
|
object DABin2DataStreamer: TDABin2DataStreamer
|
|
Left = 48
|
|
Top = 80
|
|
end
|
|
object tbl_Cabecera: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
Required = True
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'FECHA_PRESUPUESTO'
|
|
DataType = datDateTime
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PORTADA'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'MEMORIA'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'IMPORTE_NETO'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'DESCUENTO'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_DESCUENTO'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'BASE_IMPONIBLE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IVA'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'ID_CLIENTE'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CLIENTE_FINAL'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NIF_CIF'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'IMPORTE_IVA'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'PERSONA_CONTACTO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CALLE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'POBLACION'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PROVINCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CODIGO_POSTAL'
|
|
DataType = datString
|
|
Size = 10
|
|
end>
|
|
Params = <
|
|
item
|
|
Name = 'ID'
|
|
Value = '31'
|
|
ParamType = daptInput
|
|
end>
|
|
LogChanges = False
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
LocalSchema = schReport
|
|
LocalDataStreamer = DABin2DataStreamer
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Informe_Cabecera'
|
|
IndexDefs = <>
|
|
Left = 168
|
|
Top = 16
|
|
end
|
|
object tbl_Detalles: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_PRESUPUESTO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'POSICION'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'TIPO_DETALLE'
|
|
DataType = datString
|
|
Size = 10
|
|
end
|
|
item
|
|
Name = 'ID_ARTICULO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'CONCEPTO'
|
|
DataType = datString
|
|
Size = 254
|
|
end
|
|
item
|
|
Name = 'CONCEPTO_RTF'
|
|
DataType = datString
|
|
Size = 2000
|
|
end
|
|
item
|
|
Name = 'CANTIDAD'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'UNIDAD_MEDIDA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'IMPORTE_UNIDAD'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'DESCUENTO'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'VISIBLE'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'FECHA_ALTA'
|
|
DataType = datDateTime
|
|
end
|
|
item
|
|
Name = 'FECHA_MODIFICACION'
|
|
DataType = datDateTime
|
|
end>
|
|
Params = <
|
|
item
|
|
Name = 'ID_PRESUPUESTO'
|
|
Value = '2'
|
|
ParamType = daptInput
|
|
end>
|
|
MasterParamsMappings.Strings = (
|
|
'ID_PRESUPUESTO=ID_PRESUPUESTO')
|
|
LogChanges = False
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
LocalSchema = schReport
|
|
LocalDataStreamer = DABin2DataStreamer
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Informe_Detalles'
|
|
IndexDefs = <>
|
|
Left = 264
|
|
Top = 16
|
|
end
|
|
object tbl_Empresa: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <>
|
|
Params = <
|
|
item
|
|
Name = 'ID'
|
|
Value = '31'
|
|
ParamType = daptInput
|
|
end>
|
|
LogChanges = False
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Empresa'
|
|
IndexDefs = <>
|
|
Left = 168
|
|
Top = 80
|
|
end
|
|
end
|