object RptPresupuestosCliente: TRptPresupuestosCliente OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 584 Width = 869 object DADSCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera Left = 264 Top = 72 end object DADSDetalles: TDADataSource DataSet = tbl_Detalles.Dataset DataTable = tbl_Detalles Left = 440 Top = 72 end object frxBarCodeObject1: TfrxBarCodeObject Left = 528 Top = 488 end object frxOLEObject1: TfrxOLEObject Left = 400 Top = 488 end object frxCrossObject1: TfrxCrossObject Left = 400 Top = 440 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 464 Top = 488 end object frxGradientObject1: TfrxGradientObject Left = 464 Top = 440 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_PRESUPUESTOS_CLIENTE' Name = 'IBX' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_presupuesto) as ANO,' + #10'extract (month from fecha_presupuesto) as MES,'#10'case'#10'when extrac' + 't (month from fecha_presupuesto) = 1 then '#39'ENERO - '#39' || extract ' + '(year from fecha_presupuesto)'#10'when extract (month from fecha_pre' + 'supuesto) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pres' + 'upuesto)'#10'when extract (month from fecha_presupuesto) = 3 then '#39'M' + 'ARZO - '#39' || extract (year from fecha_presupuesto)'#10'when extract (' + 'month from fecha_presupuesto) = 4 then '#39'ABRIL - '#39' || extract (ye' + 'ar from fecha_presupuesto)'#10'when extract (month from fecha_presup' + 'uesto) = 5 then '#39'MAYO - '#39' || extract (year from fecha_presupuest' + 'o)'#10'when extract (month from fecha_presupuesto) = 6 then '#39'JUNIO -' + ' '#39' || extract (year from fecha_presupuesto)'#10'when extract (month ' + 'from fecha_presupuesto) = 7 then '#39'JULIO - '#39' || extract (year fro' + 'm fecha_presupuesto)'#10'when extract (month from fecha_presupuesto)' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_presupuesto)'#10'w' + 'hen extract (month from fecha_presupuesto) = 9 then '#39'SEPTIEMBRE ' + '- '#39' || extract (year from fecha_presupuesto)'#10'when extract (month' + ' from fecha_presupuesto) = 10 then '#39'OCTUBRE - '#39' || extract (year' + ' from fecha_presupuesto)'#10'when extract (month from fecha_presupue' + 'sto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_presup' + 'uesto)'#10'when extract (month from fecha_presupuesto) = 12 then '#39'DI' + 'CIEMBRE - '#39' || extract (year from fecha_presupuesto)'#10'end as TITU' + 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_P' + 'RESUPUESTO, FECHA_DECISION, FACTURA, IMPORTE_TOTAL'#10#10'from V_presu' + 'puestos_cliente'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'MES' TableField = '' SQLOrigin = 'MES' end item DatasetField = 'TITULO' TableField = '' SQLOrigin = 'TITULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'FECHA_PRESUPUESTO' TableField = 'FECHA_PRESUPUESTO' end item DatasetField = 'FECHA_DECISION' TableField = 'FECHA_DECISION' end item DatasetField = 'FACTURA' TableField = 'FACTURA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ANO' TableField = '' SQLOrigin = 'ANO' end> end> Name = 'InformeListadoPresupuestos' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'FECHA_PRESUPUESTO' DataType = datDateTime end item Name = 'FECHA_DECISION' DataType = datDateTime end item Name = 'FACTURA' DataType = datString Size = 255 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = < item Name = 'ID' Value = '1000000169' 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, V_PRESUPU' + 'ESTOS_CLIENTE.FECHA_VIGENCIA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_D' + 'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10#10' V_PRESUPUES' + 'TOS_CLIENTE.FORMA_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA' + ','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10' V_PRESUPUESTOS_C' + 'LIENTE.CALIDADES,'#10#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PR' + 'ESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENTE.DES' + 'CUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRESUPUE' + 'STOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' V_P' + 'RESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS_CLIENTE.IMPORTE_RE,'#10' V' + '_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.NIF' + '_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' V_PRESUPUESTOS_CL' + 'IENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUE' + 'STOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.C' + 'ALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIO' + 'NES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(C' + 'ONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCI' + 'A,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.C' + 'ODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCION' + 'ES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COALESCE(CON' + 'TACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10' V_PRE' + 'SUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.V' + 'ENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_PRESUPUES' + 'TOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUP' + 'UESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCI' + 'ONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DI' + 'RECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.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 = 'FECHA_VIGENCIA' TableField = 'FECHA_VIGENCIA' end item DatasetField = 'FECHA_DECISION' TableField = 'FECHA_DECISION' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'FORMA_PAGO' TableField = 'FORMA_PAGO' end item DatasetField = 'PLAZO_ENTREGA' TableField = 'PLAZO_ENTREGA' 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 = 'RE' TableField = 'RE' end item DatasetField = 'IMPORTE_RE' TableField = 'IMPORTE_RE' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'REF_CLIENTE' TableField = 'REF_CLIENTE' 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 = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end item DatasetField = 'VENDEDOR' TableField = 'VENDEDOR' end item DatasetField = 'NO_VALORADO' TableField = 'NO_VALORADO' end item DatasetField = 'TELEFONO' TableField = 'TELEFONO' end item DatasetField = 'MOVIL' TableField = 'MOVIL' end item DatasetField = 'CALIDADES' TableField = 'CALIDADES' 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 = 'FECHA_VIGENCIA' DataType = datDateTime end item Name = 'FECHA_DECISION' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FORMA_PAGO' DataType = datMemo end item Name = 'PLAZO_ENTREGA' DataType = datMemo end item Name = 'CALIDADES' 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 = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'REF_CLIENTE' DataType = datString Size = 255 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 = '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 item Name = 'TELEFONO' DataType = datString Size = 25 end item Name = 'MOVIL' DataType = datString Size = 25 end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item Name = 'VENDEDOR' DataType = datString Size = 255 end item Name = 'NO_VALORADO' DataType = datSmallInt end> ReadOnly = True end item Params = < item Name = 'ID_PRE_CON' DataType = datInteger Value = '11' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True SQL = 'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Presup' + 'uesto'#39')'#10'WHERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_PRE_CON' TableField = 'ID_PRE_CON' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'ID_CAPITULO' TableField = 'ID_CAPITULO' end item DatasetField = 'TIPO_ARTICULO' TableField = 'TIPO_ARTICULO' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'PROPIEDAD' TableField = 'PROPIEDAD' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' 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 = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'VISIBLE2' TableField = 'VISIBLE2' end> end> Name = 'Informe_Capitulos_Detalles' Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'ID_CAPITULO' DataType = datInteger end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'PROPIEDAD' DataType = datString Size = 50 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datCurrency end item Name = 'IMPORTE_PORTE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'VISIBLE2' DataType = datSmallInt end> ReadOnly = True end item Params = < item Name = 'ID_PRE_CON' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True SQL = 'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Presupuesto'#39')' + #10'WHERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_PRE_CON' TableField = 'ID_PRE_CON' 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 = 'TIPO_ARTICULO' TableField = 'TIPO_ARTICULO' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end> end> Name = 'Informe_Capitulos' Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end> ReadOnly = True end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_PRESUPUESTOS_CLIENTE' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_presupuesto) as ANO,' + #10'extract (month from fecha_presupuesto) as MES,'#10'case'#10'when extrac' + 't (month from fecha_presupuesto) = 1 then '#39'ENERO - '#39' || extract ' + '(year from fecha_presupuesto)'#10'when extract (month from fecha_pre' + 'supuesto) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pres' + 'upuesto)'#10'when extract (month from fecha_presupuesto) = 3 then '#39'M' + 'ARZO - '#39' || extract (year from fecha_presupuesto)'#10'when extract (' + 'month from fecha_presupuesto) = 4 then '#39'ABRIL - '#39' || extract (ye' + 'ar from fecha_presupuesto)'#10'when extract (month from fecha_presup' + 'uesto) = 5 then '#39'MAYO - '#39' || extract (year from fecha_presupuest' + 'o)'#10'when extract (month from fecha_presupuesto) = 6 then '#39'JUNIO -' + ' '#39' || extract (year from fecha_presupuesto)'#10'when extract (month ' + 'from fecha_presupuesto) = 7 then '#39'JULIO - '#39' || extract (year fro' + 'm fecha_presupuesto)'#10'when extract (month from fecha_presupuesto)' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_presupuesto)'#10'w' + 'hen extract (month from fecha_presupuesto) = 9 then '#39'SEPTIEMBRE ' + '- '#39' || extract (year from fecha_presupuesto)'#10'when extract (month' + ' from fecha_presupuesto) = 10 then '#39'OCTUBRE - '#39' || extract (year' + ' from fecha_presupuesto)'#10'when extract (month from fecha_presupue' + 'sto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_presup' + 'uesto)'#10'when extract (month from fecha_presupuesto) = 12 then '#39'DI' + 'CIEMBRE - '#39' || extract (year from fecha_presupuesto)'#10'end as TITU' + 'LO,'#10'sum(IMPORTE_TOTAL) as IMPORTE_TOTAL'#10#10'from V_presupuestos_cli' + 'ente'#10'group by 1,2,3,4'#10'order by ANO, MES'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = '' SQLOrigin = 'ANO' end item DatasetField = 'MES' TableField = '' SQLOrigin = 'MES' end item DatasetField = 'TITULO' TableField = '' SQLOrigin = 'TITULO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeListadoPresupuestosResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 24 end object DataDictionary: TDADataDictionary Fields = <> Left = 46 Top = 142 end object frxReport: TfrxReport Version = '4.8.11' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.LastChange = 45230.494198148150000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' OnUserFunction = frxReportUserFunction Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADSCabecera BCDToCurrency = False Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADSDetalles BCDToCurrency = False Left = 440 Top = 16 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 = 'FECHA_VIGENCIA' DataType = datDateTime end item Name = 'FECHA_DECISION' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FORMA_PAGO' DataType = datMemo end item Name = 'PLAZO_ENTREGA' 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 = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'REF_CLIENTE' DataType = datString Size = 255 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 = '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 item Name = 'TELEFONO' DataType = datString Size = 25 end item Name = 'MOVIL' DataType = datString Size = 25 end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item Name = 'VENDEDOR' DataType = datString Size = 255 end item Name = 'NO_VALORADO' DataType = datSmallInt end> Params = < item Name = 'ID' Value = '1000000169' ParamType = daptInput end> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 Top = 128 end object IBDatabase1: TIBDatabase DatabaseName = 'C:\Codigo Arribas2\Output\Debug\Database\FACTUGES.FDB' Params.Strings = ( 'user_name=sysdba' 'password=masterkey' 'lc_ctype=ISO8859_1') LoginPrompt = False DefaultTransaction = IBTransaction1 Left = 48 Top = 296 end object IBTransaction1: TIBTransaction Left = 48 Top = 352 end object DataSource1: TDataSource DataSet = cabecera Left = 216 Top = 296 end object DataSource2: TDataSource DataSet = capitulos Left = 216 Top = 352 end object capitulos: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT * FROM PRO_PRES_CAPITULOS(18)') Left = 136 Top = 352 end object DataSource3: TDataSource DataSet = detalles Left = 216 Top = 416 end object detalles: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT * FROM PRO_PRES_CAPITULOS_CONCEPTOS(18)') Left = 136 Top = 416 end object DataSource4: TDataSource DataSet = resumen Left = 216 Top = 488 end object resumen: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'select id, id_presupuesto, posicion, tipo_detalle, concepto,' ' importe_total, visible' 'from presupuestos_cliente_detalles' 'where tipo_detalle = '#39'Titulo'#39' and id_presupuesto = 18' 'order by posicion' '') Left = 136 Top = 488 object resumenID: TIntegerField FieldName = 'ID' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."ID"' ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] Required = True end object resumenID_PRESUPUESTO: TIntegerField FieldName = 'ID_PRESUPUESTO' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."ID_PRESUPUESTO"' Required = True end object resumenPOSICION: TIntegerField FieldName = 'POSICION' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."POSICION"' end object resumenTIPO_DETALLE: TIBStringField FieldName = 'TIPO_DETALLE' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."TIPO_DETALLE"' Size = 10 end object resumenCONCEPTO: TIBStringField FieldName = 'CONCEPTO' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."CONCEPTO"' Size = 2000 end object resumenIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."IMPORTE_TOTAL"' Precision = 18 Size = 2 end object resumenVISIBLE: TSmallintField FieldName = 'VISIBLE' Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."VISIBLE"' end end object frxDBCapitulos: TfrxDBDataset UserName = 'frxDBCapitulos' CloseDataSource = False DataSource = DADSCapitulos BCDToCurrency = False Left = 352 Top = 16 end object DABin2DataStreamer1: TDABin2DataStreamer Left = 48 Top = 80 end object cabecera: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT' ' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_EMPRESA' + ',' ' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,' ' V_PRESUPUESTOS_CLIENTE.REFERENCIA,' ' V_PRESUPUESTOS_CLIENTE.PORTADA,' ' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS_CLIENTE.OBSER' + 'VACIONES,' ' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.' + 'IMPORTE_PORTE,' ' V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMP' + 'ORTE_DESCUENTO,' ' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENT' + 'E.IVA,' ' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,' ' V_PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE,' ' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,' ' V_CLIENTES.NIF_CIF, V_CLIENTES.NOMBRE,' ' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.I' + 'MPORTE_TOTAL,' ' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.PO' + 'BLACION,' ' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL' 'FROM' ' V_PRESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON' ' (V_PRESUPUESTOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)' ' WHERE V_PRESUPUESTOS_CLIENTE.ID = 18') Left = 136 Top = 296 object cabeceraID: TIntegerField FieldName = 'ID' Origin = '"V_PRESUPUESTOS_CLIENTE"."ID"' end object cabeceraID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Origin = '"V_PRESUPUESTOS_CLIENTE"."ID_EMPRESA"' end object cabeceraFECHA_PRESUPUESTO: TDateField FieldName = 'FECHA_PRESUPUESTO' Origin = '"V_PRESUPUESTOS_CLIENTE"."FECHA_PRESUPUESTO"' end object cabeceraREFERENCIA: TIBStringField FieldName = 'REFERENCIA' Origin = '"V_PRESUPUESTOS_CLIENTE"."REFERENCIA"' Size = 255 end object cabeceraPORTADA: TMemoField FieldName = 'PORTADA' Origin = '"V_PRESUPUESTOS_CLIENTE"."PORTADA"' ProviderFlags = [pfInUpdate] BlobType = ftMemo Size = 8 end object cabeceraMEMORIA: TMemoField FieldName = 'MEMORIA' Origin = '"V_PRESUPUESTOS_CLIENTE"."MEMORIA"' ProviderFlags = [pfInUpdate] BlobType = ftMemo Size = 8 end object cabeceraOBSERVACIONES: TMemoField FieldName = 'OBSERVACIONES' Origin = '"V_PRESUPUESTOS_CLIENTE"."OBSERVACIONES"' ProviderFlags = [pfInUpdate] BlobType = ftMemo Size = 8 end object cabeceraIMPORTE_NETO: TIBBCDField FieldName = 'IMPORTE_NETO' Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_NETO"' Precision = 18 Size = 2 end object cabeceraIMPORTE_PORTE: TIBBCDField FieldName = 'IMPORTE_PORTE' Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_PORTE"' Precision = 18 Size = 2 end object cabeceraDESCUENTO: TFloatField FieldName = 'DESCUENTO' Origin = '"V_PRESUPUESTOS_CLIENTE"."DESCUENTO"' end object cabeceraIMPORTE_DESCUENTO: TIBBCDField FieldName = 'IMPORTE_DESCUENTO' Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_DESCUENTO"' Precision = 18 Size = 2 end object cabeceraBASE_IMPONIBLE: TIBBCDField FieldName = 'BASE_IMPONIBLE' Origin = '"V_PRESUPUESTOS_CLIENTE"."BASE_IMPONIBLE"' Precision = 18 Size = 2 end object cabeceraIVA: TFloatField FieldName = 'IVA' Origin = '"V_PRESUPUESTOS_CLIENTE"."IVA"' end object cabeceraID_CLIENTE: TIntegerField FieldName = 'ID_CLIENTE' Origin = '"V_PRESUPUESTOS_CLIENTE"."ID_CLIENTE"' end object cabeceraREFERENCIA_CLIENTE: TIBStringField FieldName = 'REFERENCIA_CLIENTE' Origin = '"V_PRESUPUESTOS_CLIENTE"."REFERENCIA_CLIENTE"' Size = 255 end object cabeceraCLIENTE_FINAL: TIBStringField FieldName = 'CLIENTE_FINAL' Origin = '"V_PRESUPUESTOS_CLIENTE"."CLIENTE_FINAL"' Size = 255 end object cabeceraNIF_CIF: TIBStringField FieldName = 'NIF_CIF' Origin = '"V_CLIENTES"."NIF_CIF"' Size = 15 end object cabeceraNOMBRE: TIBStringField FieldName = 'NOMBRE' Origin = '"V_CLIENTES"."NOMBRE"' Size = 255 end object cabeceraIMPORTE_IVA: TIBBCDField FieldName = 'IMPORTE_IVA' Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_IVA"' Precision = 18 Size = 2 end object cabeceraIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_TOTAL"' Precision = 18 Size = 2 end object cabeceraPERSONA_CONTACTO: TIBStringField FieldName = 'PERSONA_CONTACTO' Origin = '"V_CLIENTES"."PERSONA_CONTACTO"' Size = 255 end object cabeceraCALLE: TIBStringField FieldName = 'CALLE' Origin = '"V_CLIENTES"."CALLE"' Size = 255 end object cabeceraPOBLACION: TIBStringField FieldName = 'POBLACION' Origin = '"V_CLIENTES"."POBLACION"' Size = 255 end object cabeceraPROVINCIA: TIBStringField FieldName = 'PROVINCIA' Origin = '"V_CLIENTES"."PROVINCIA"' Size = 255 end object cabeceraCODIGO_POSTAL: TIBStringField FieldName = 'CODIGO_POSTAL' Origin = '"V_CLIENTES"."CODIGO_POSTAL"' Size = 10 end end object DADSCapitulos: TDADataSource DataSet = tbl_Capitulos.Dataset DataTable = tbl_Capitulos Left = 352 Top = 72 end object tbl_Capitulos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end> Params = < item Name = 'ID_PRE_CON' Value = '' ParamType = daptInput end> MasterParamsMappings.Strings = ( 'ID_PRESUPUESTO=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch] LogicalName = 'Informe_Capitulos' IndexDefs = <> Left = 352 Top = 128 end object frxPDFExport1: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False OverwritePrompt = False PrintOptimized = True Outline = False Background = False HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' Creator = 'FactuGES' ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] HideToolbar = False HideMenubar = False HideWindowUI = False FitWindow = False CenterWindow = False PrintScaling = False Left = 528 Top = 440 end object DADSInformeListadoPresupuestos: TDADataSource DataSet = tbl_InformeListadoPresupuestos.Dataset DataTable = tbl_InformeListadoPresupuestos Left = 680 Top = 72 end object tbl_InformeListadoPresupuestos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'FECHA_PRESUPUESTO' DataType = datDateTime end item Name = 'FECHA_DECISION' DataType = datDateTime end item Name = 'FACTURA' DataType = datString Size = 255 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'InformeListadoPresupuestos' IndexDefs = <> Left = 680 Top = 128 end object frxDBInformeListadoPresupuestos: TfrxDBDataset UserName = 'frxDBInformeListadoPresupuestos' CloseDataSource = True DataSource = DADSInformeListadoPresupuestos BCDToCurrency = False Left = 680 Top = 16 end object frxDBInformeListadoPresupuestosResumen: TfrxDBDataset UserName = 'frxDBInformeListadoPresupuestosResumen' CloseDataSource = True DataSource = DADSInformeListadoPresupuestosResumen BCDToCurrency = False Left = 680 Top = 192 end object DADSInformeListadoPresupuestosResumen: TDADataSource DataSet = tbl_InformeListadoPresupuestosResumen.Dataset DataTable = tbl_InformeListadoPresupuestosResumen Left = 680 Top = 248 end object tbl_InformeListadoPresupuestosResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 680 Top = 304 end object tbl_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'ID_CAPITULO' DataType = datInteger end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'PROPIEDAD' DataType = datString Size = 50 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datCurrency end item Name = 'IMPORTE_PORTE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'VISIBLE2' DataType = datSmallInt end> Params = < item Name = 'ID_PRE_CON' DataType = datInteger Value = '' end> MasterMappingMode = mmWhere MasterParamsMappings.Strings = ( 'ID_PRESUPUESTO=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 MasterSource = DADSCapitulos MasterFields = 'ID' DetailFields = 'ID_CAPITULO' MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch] LogicalName = 'Informe_Capitulos_Detalles' IndexDefs = <> Left = 440 Top = 128 end end