object RptPresupuestosCliente: TRptPresupuestosCliente OldCreateOrder = True OnCreate = DataModuleCreate Height = 506 Width = 604 object DADataCabecera: TDADataSource DataTable = tbl_Cabecera Left = 472 Top = 64 end object DADataDetalles: TDADataSource DataTable = tbl_Detalles Left = 552 Top = 64 end object tbl_Cabecera: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 472 Top = 120 end object tbl_Detalles: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 552 Top = 120 end object DABINAdapter: TDABINAdapter Left = 48 Top = 80 end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 end object frxBarCodeObject1: TfrxBarCodeObject Left = 144 Top = 296 end object frxOLEObject1: TfrxOLEObject Left = 48 Top = 344 end object frxCrossObject1: TfrxCrossObject Left = 144 Top = 344 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 256 Top = 296 end object frxGradientObject1: TfrxGradientObject Left = 360 Top = 296 end object frxChartObject1: TfrxChartObject Left = 256 Top = 344 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'CODIGO' DataType = datString Size = 50 BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'CONFIGURACION' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO' StatementType = stSQL ColumnMappings = <> end> Name = 'Informe_Condiciones_Contrato' Fields = < item Name = 'VALOR' DataType = datBlob 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 = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PRESUPUESTOS' SQL = 'SELECT PRESUPUESTOS.ID, PRESUPUESTOS.ID_EMPRESA, PRESUPUESTOS.ID' + '_CLIENTE,'#10'PRESUPUESTOS.REFERENCIA, PRESUPUESTOS.FECHA_PRESUPUEST' + 'O,'#10'(PRESUPUESTOS.FECHA_PRESUPUESTO + PRESUPUESTOS.VIGENCIA) as F' + 'ECHA_VIGENCIA,'#10'PRESUPUESTOS.SITUACION, PRESUPUESTOS.FECHA_DECISI' + 'ON, PRESUPUESTOS.BASE_IMPONIBLE,'#10'PRESUPUESTOS.DESCUENTO, PRESUPU' + 'ESTOS.IMPORTE_DESCUENTO, PRESUPUESTOS.IVA,'#10'PRESUPUESTOS.IMPORTE_' + 'IVA, PRESUPUESTOS.IMPORTE_TOTAL, PRESUPUESTOS.OBSERVACIONES,'#10'PRE' + 'SUPUESTOS.PLAZO_ENTREGA, PRESUPUESTOS.FORMA_PAGO,'#10#10'CONTACTOS.NIF' + '_CIF, CONTACTOS.NOMBRE, CONTACTOS.CALLE, CONTACTOS.CODIGO_POSTAL' + ','#10'CONTACTOS.POBLACION, CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_' + '2, CONTACTOS.MOVIL_1,'#10#10'ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_E' + 'MPRESA, EMPRESAS.RAZON_SOCIAL,'#10'EMPRESAS.CALLE as CALLE_EMPRESA, ' + 'EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10'EMPRESAS.PROVINCIA as P' + 'ROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRES' + 'A,'#10'EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS' + '.EMAIL_1,'#10'EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPR' + 'ESAS.LOGOTIPO'#10#10'FROM PRESUPUESTOS'#10'LEFT JOIN CONTACTOS ON (PRESUPU' + 'ESTOS.ID_CLIENTE = CONTACTOS.ID)'#10'LEFT JOIN EMPRESAS ON EMPRESAS.' + 'ID = ID_EMPRESA'#10#10'WHERE PRESUPUESTOS.ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IVA' TableField = 'IVA' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end item DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'FORMA_PAGO' TableField = 'FORMA_PAGO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'NIF_CIF_EMPRESA' TableField = 'NIF_CIF_EMPRESA' end item DatasetField = 'RAZON_SOCIAL' TableField = 'RAZON_SOCIAL' end item DatasetField = 'CALLE_EMPRESA' TableField = 'CALLE_EMPRESA' end item DatasetField = 'POBLACION_EMPRESA' TableField = 'POBLACION_EMPRESA' end item DatasetField = 'PROVINCIA_EMPRESA' TableField = 'PROVINCIA_EMPRESA' end item DatasetField = 'CODIGO_POSTAL_EMPRESA' TableField = 'CODIGO_POSTAL_EMPRESA' end item DatasetField = 'TELEFONO_1' TableField = 'TELEFONO_1' end item DatasetField = 'FAX' TableField = 'FAX' end item DatasetField = 'MOVIL_1' TableField = 'MOVIL_1' end item DatasetField = 'EMAIL_1' TableField = 'EMAIL_1' end item DatasetField = 'PAGINA_WEB' TableField = 'PAGINA_WEB' end item DatasetField = 'REGISTRO_MERCANTIL' TableField = 'REGISTRO_MERCANTIL' end item DatasetField = 'FECHA_PRESUPUESTO' TableField = 'FECHA_PRESUPUESTO' end item DatasetField = 'FECHA_VIGENCIA' TableField = 'FECHA_VIGENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'FECHA_DECISION' TableField = 'FECHA_DECISION' end item DatasetField = 'PLAZO_ENTREGA' TableField = 'PLAZO_ENTREGA' end item DatasetField = 'TELEFONO_2' TableField = 'TELEFONO_2' end item DatasetField = 'ID_EMPRESA1' TableField = 'ID_EMPRESA1' end item DatasetField = 'TELEFONO_11' TableField = 'TELEFONO_11' end item DatasetField = 'MOVIL_11' TableField = 'MOVIL_11' end item DatasetField = 'LOGOTIPO' TableField = 'LOGOTIPO' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_PRESUPUESTO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_VIGENCIA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_DECISION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'BASE_IMPONIBLE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PLAZO_ENTREGA' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FORMA_PAGO' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_2' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA1' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF_EMPRESA' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL_EMPRESA' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_11' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAX' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_11' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'LOGOTIPO' DataType = datBlob 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 = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PRESUPUESTOS_DETALLES' SQL = 'SELECT ID,ID_PRESUPUESTO, POSICION, TIPO_DETALLE, CONCEPTO, CANT' + 'IDAD,'#10' IMPORTE_UNIDAD, IMPORTE_TOTAL'#10' '#10'FROM PRESUPUE' + 'STOS_DETALLES'#10'WHERE ID_PRESUPUESTO = :ID_PRESUPUESTO'#10'ORDER BY PO' + 'SICION' StatementType = stSQL ColumnMappings = < item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ID_PRESUPUESTO' TableField = 'ID_PRESUPUESTO' end> end> Name = 'Informe_Detalles' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat 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 = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PRESUPUESTOS_DETALLES' SQL = 'SELECT ID,ID_PRESUPUESTO, POSICION, TIPO_DETALLE, CONCEPTO, CANT' + 'IDAD,'#10' IMPORTE_UNIDAD, IMPORTE_TOTAL'#10' '#10'FROM PRESUPUE' + 'STOS_DETALLES'#10'WHERE ID_PRESUPUESTO = :ID_PRESUPUESTO'#10'AND (TIPO_D' + 'ETALLE = '#39'Subtotal'#39')'#10'ORDER BY POSICION' StatementType = stSQL ColumnMappings = < item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ID_PRESUPUESTO' TableField = 'ID_PRESUPUESTO' end> end> Name = 'Informe_Resumen_Capitulos' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat 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 = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PRESUPUESTOS_DETALLES' SQL = 'SELECT ID,ID_PRESUPUESTO, POSICION, TIPO_DETALLE, CONCEPTO, CANT' + 'IDAD,'#10' IMPORTE_UNIDAD, IMPORTE_TOTAL'#10#10'FROM PRESUPUESTOS_DE' + 'TALLES'#10'WHERE ID_PRESUPUESTO = :ID_PRESUPUESTO'#10'AND (TIPO_DETALLE ' + '= '#39'Descuento'#39')'#10'ORDER BY POSICION' StatementType = stSQL ColumnMappings = < item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ID_PRESUPUESTO' TableField = 'ID_PRESUPUESTO' end> end> Name = 'Informe_Resumen_Descuentos' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = <> RelationShips = <> UpdateRules = <> Left = 48 Top = 16 end object DataDictionary: TDADataDictionary Fields = < item Name = 'FacturasCliente_ID' DataType = datAutoInc BlobType = dabtUnknown Required = True DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_CONTRATO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_CONTRATO' Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_FACTURA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Fecha de las factura' Alignment = taLeftJustify end item Name = 'FacturasCliente_VENCIMIENTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Vencimiento' Alignment = taLeftJustify end item Name = 'FacturasCliente_SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Situaci'#243'n' Alignment = taLeftJustify end item Name = 'FacturasCliente_BASE_IMPONIBLE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Base imponible' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_FORMA_PAGO' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Forma de pago' Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_CLIENTE' Alignment = taLeftJustify end item Name = 'FacturasCliente_NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'NIF/CIF' Alignment = taLeftJustify end item Name = 'FacturasCliente_CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'C'#243'd. postal' Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_ALTA' Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_MODIFICACION' Alignment = taLeftJustify end item Name = 'FacturasCliente_OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Observaciones' Alignment = taLeftJustify end item Name = 'FacturasCliente_NOMBRE' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cliente' Alignment = taLeftJustify end item Name = 'FacturasCliente_CALLE' DataType = datString Size = 150 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Direcci'#243'n' Alignment = taLeftJustify end item Name = 'FacturasCliente_PROVINCIA' DataType = datString Size = 30 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Provincia' Alignment = taLeftJustify end item Name = 'FacturasCliente_POBLACION' DataType = datString Size = 150 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Poblaci'#243'n' Alignment = taLeftJustify end item Name = 'FacturasCliente_IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IVA' Alignment = taLeftJustify end item Name = 'FacturasCliente_USUARIO' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'USUARIO' Alignment = taLeftJustify end item Name = 'FacturasCliente_REFERENCIA' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Referencia' Alignment = taLeftJustify end item Name = 'FacturasCliente_DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Dto.' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_ID' DataType = datAutoInc BlobType = dabtUnknown Required = True DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_ID_FACTURA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_FACTURA' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Tipo detalle' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Concepto' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_VISIBLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = #191'Visible?' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Posici'#243'n' Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cantidad' Alignment = taLeftJustify end> Left = 46 Top = 158 end object frxReport: 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, pbExportQuick] 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 = 39091.860876006950000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '{procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if Engine.Finalpass and ( = True) then' ' begin' '// Memo10.Height := Engine.FreeSpace - Band3.Height;' ' Memo12.Visible := False;' ' Shape9.Visible := False;' ' end' ' else' ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary' + '1.Height - 4;' 'end;}' '' 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' 'var' ' cadenaAux: String;' 'begin' ' DatosCliente.Lines.Clear;' ' DatosCliente.Lines.Add();' '' ' if ( <> '#39#39')' ' or ( <> '#39#39') then' ' DatosCliente.Lines.Add( + );' '' ' CadenaAux := '#39#39';' ' if <> '#39#39' then' ' if CadenaAux = '#39#39' then' ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' ' else' ' CadenaAux := CadenaAux + '#39' / '#39' + ;' '' ' if <> '#39#39' then' ' if CadenaAux = '#39#39' then' ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' ' else' ' CadenaAux := CadenaAux + '#39' / '#39' + ;' '' ' if <> '#39#39' then' ' if CadenaAux = '#39#39' then' ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' ' else' ' CadenaAux := CadenaAux + '#39' / '#39' + ;' '' ' DatosCliente.Lines.Add(CadenaAux);' 'end;' '' '' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' ' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Add();' ' DatosEmpresa.Lines.Add();' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' ' Cadena := '#39'TLF: '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' ' Cadena := ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' - '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' 'end;' '' 'procedure Memo14OnAfterPrint(Sender: TfrxComponent);' 'begin' ' Set('#39'HayResumen'#39',True);' 'end;' '' '{procedure Line6OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if = then' ' Line6.Visible := False;' 'end;}' '' 'procedure BandaConceptosOnBeforePrint(Sender: TfrxComponent);' 'begin' ' BandaConceptos.StartNewPage := False;' ' BandaConceptos.Visible := True;' ' MemPrecio.Style := '#39'Concepto normal'#39';' ' MemCantidad.Style := '#39'Concepto normal'#39';' ' MemImpTotal.Style := '#39'Concepto normal'#39';' ' RichConcepto.Visible := True;' '' ' case of' ' '#39'Salto'#39': begin' ' BandaConceptos.StartNewPage := True;' ' RichConcepto.Visible := False;' ' end;' ' '#39'Titulo'#39': begin' '// MemPrecio.Style := '#39'Concepto titulo'#39';' '// MemCantidad.Style := '#39'Concepto titulo'#39';' '// MemImpTotal.Style := '#39'Concepto titulo'#39';' ' end;' ' '#39'Concepto'#39': begin' ' //' ' end;' ' '#39'Subtotal'#39': begin' ' MemPrecio.Style := '#39'Concepto subtotal'#39';' ' MemCantidad.Style := '#39'Concepto subtotal'#39';' ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' ' end;' ' '#39'Descuento'#39': begin' ' BandaConceptos.Visible := False;' ' RichConcepto.Color := clNone;' ' end;' ' end;' '' ' RichConcepto.Color := MemImpTotal.Color;' ' RichConcepto.Frame := MemImpTotal.Frame;' '' '// MemoCampo2.Height := 0;' '// MemoCampo3.Height := 0;' '// MemoCampo4.Height := 0;' 'end;' '' 'begin' '// HayResumen := 0;' 'end.') ShowProgress = False StoreInDFM = False Left = 137 Top = 16 Datasets = < item DataSet = frxDBCabecera DataSetName = 'frxDBCabecera' end item DataSet = frxDBCondicionesContrato DataSetName = 'frxDBCondicionesContrato' end item DataSet = frxDBDetalles DataSetName = 'frxDBDetalles' end item DataSet = frxDBResumenCap DataSetName = 'frxDBResumenCap' end item DataSet = frxDBResumenDto DataSetName = 'frxDBResumenDto' end> Variables = < item Name = ' 1' Value = Null end item Name = 'HayResumen' Value = 'False' end> Style = < item Name = 'Concepto normal' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] Frame.Typ = [ftLeft, ftRight] end item Name = 'Concepto subtotal' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] Frame.Typ = [ftLeft, ftRight] end item Name = 'Cabecera de columna' Color = 15000804 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] end item Name = 'Concepto titulo' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] Frame.Typ = [ftLeft, ftRight] end> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 472 Top = 8 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles Left = 552 Top = 8 end object frxDBResumenCap: TfrxDBDataset UserName = 'frxDBResumenCap' CloseDataSource = False DataSource = DADataResumenCap Left = 252 Top = 80 end object DADataResumenCap: TDADataSource DataTable = tbl_Resumen_Cap Left = 252 Top = 136 end object tbl_Resumen_Cap: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 252 Top = 192 end object frxDBResumenDto: TfrxDBDataset UserName = 'frxDBResumenDto' CloseDataSource = False DataSource = DADataResumenDto Left = 140 Top = 80 end object DADataResumenDto: TDADataSource DataTable = tbl_Resumen_Dto Left = 140 Top = 136 end object tbl_Resumen_Dto: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 140 Top = 192 end object frxDBCondicionesContrato: TfrxDBDataset UserName = 'frxDBCondicionesContrato' CloseDataSource = False DataSource = DADataCondicionesContrato Left = 368 Top = 80 end object DADataCondicionesContrato: TDADataSource DataTable = tbl_Condiciones_Contrato Left = 368 Top = 136 end object tbl_Condiciones_Contrato: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 368 Top = 192 end end