object RptPresupuestosCliente: TRptPresupuestosCliente OldCreateOrder = True OnCreate = DataModuleCreate Height = 604 Width = 447 object DADataCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera Left = 264 Top = 72 end object DADataDetalles: TDADataSource DataSet = tbl_Detalles.Dataset DataTable = tbl_Detalles Left = 344 Top = 72 end object frxBarCodeObject1: TfrxBarCodeObject Left = 280 Top = 496 end object frxOLEObject1: TfrxOLEObject Left = 184 Top = 432 end object frxCrossObject1: TfrxCrossObject Left = 384 Top = 496 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 280 Top = 440 end object frxGradientObject1: TfrxGradientObject Left = 384 Top = 440 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'ID' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'V_PRESUPUESTOS_CLIENTE' SQL = 'SELECT '#10' ID, ID_EMPRESA, FECHA_PRESUPUESTO, FECHA_DECISION, '#10 + ' REFERENCIA, SITUACION, ID_CLIENTE, NIF_CIF, NOMBRE, '#10' REF' + 'ERENCIA_CLIENTE, CLIENTE_FINAL, PORTADA, MEMORIA, '#10' OBSERVACI' + 'ONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_M' + 'ODIFICACION, USUARIO, IMPORTE_NETO, IMPORTE_PORTE, '#10' DESCUENT' + 'O, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, '#10' IMPORTE_IVA, IMP' + 'ORTE_TOTAL, ID_FORMA_PAGO'#10' FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' WH' + 'ERE 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_DECISION' TableField = 'FECHA_DECISION' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' end item DatasetField = 'CLIENTE_FINAL' TableField = 'CLIENTE_FINAL' end item DatasetField = 'PORTADA' TableField = 'PORTADA' end item DatasetField = 'MEMORIA' TableField = 'MEMORIA' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'INCIDENCIAS' TableField = 'INCIDENCIAS' end item DatasetField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'USUARIO' TableField = 'USUARIO' 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 = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' 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_DECISION' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'CLIENTE_FINAL' 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 = 'INCIDENCIAS' DataType = datMemo end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datSmallInt Required = True end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 30 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 = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'ID_FORMA_PAGO' DataType = datInteger end> end item Params = < item Name = 'ID' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' SQL = 'SELECT PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENTE_DE' + 'TALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POSI' + 'CION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPU' + 'ESTOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.C' + 'ANTIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PR' + 'ESUPUESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFE' + 'RENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERENCIA_PROV as REFERENC' + 'IA_PROVEEDOR'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTIC' + 'ULOS ON (PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.I' + 'D)'#10'WHERE PRESUPUESTOS_CLIENTE_DETALLES.ID_PRESUPUESTO = :ID'#10'ORDE' + 'R BY 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 = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' end item DatasetField = 'FAMILIA' TableField = '' SQLOrigin = 'FAMILIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' 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 = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datInteger end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 16 end object DataDictionary: TDADataDictionary Fields = <> Left = 46 Top = 142 end object frxReport: TfrxReport Version = '4.3' 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 = 39404.953391377300000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' '{ DatosEmpresa.Lines.Clear;' ' if ( <> '#39#39') then' ' Cadena := '#39'TLF: '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' '}' 'end;' '' 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' 'begin' '{ NombreEmpresa.Lines.Clear;' ' NombreEmpresa.Lines.Add();' '}' 'end;' '' 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' 'var' ' ACadena : String;' 'begin' '{ ACadena := '#39#39';' ' DireccionEnvio.Lines.Clear;' ' if ( <> '#39#39') then' ' ACadena := ;' '' ' if ( <> '#39#39') then' ' ACadena := ACadena + '#39' '#39' + ;' '' ' DireccionEnvio.Lines.Add(ACadena);' ' ACadena := '#39#39';' ' DireccionEnvio.Lines.Add();' ' if ( <> '#39#39') then' ' ACadena := + '#39' '#39';' ' if ( <> '#39#39') then' ' ACadena := ACadena + ;' '' ' if (ACadena <> '#39#39') then' ' DireccionEnvio.Lines.Add(ACadena);' '' ' if ( <> '#39#39') then' ' DireccionEnvio.Lines.Add();' '' ' if ( <> '#39#39') then' ' DireccionEnvio.Lines.Add();' '}' 'end;' '' 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if not Engine.FinalPass then' ' Set('#39'TotalPaginas'#39', ( + 1));' '' ' if Engine.FinalPass then' ' Set('#39'Pagina'#39', ( + 1));' 'end;' '' 'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'begin' ' Set('#39'Pagina'#39', 0);' ' Set('#39'TotalPaginas'#39', 0);' 'end;' '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles Left = 344 Top = 16 end object Bin2DataStreamer: 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 = 'FECHA_DECISION' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'CLIENTE_FINAL' 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 = 'INCIDENCIAS' DataType = datMemo end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datSmallInt Required = True end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 30 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 = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'ID_FORMA_PAGO' DataType = datInteger end> Params = < item Name = 'ID' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 Top = 128 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 = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datInteger end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> Params = < item Name = 'ID' Value = '' ParamType = daptInput end> MasterParamsMappings.Strings = ( 'ID=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer MasterSource = DADataCabecera MasterFields = 'ID' DetailFields = 'ID_PRESUPUESTO' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 344 Top = 128 end object IBDatabase1: TIBDatabase DatabaseName = 'C:\Codigo Tecsitel\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 = detalles Left = 216 Top = 352 end object cabecera: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT ' ' ID, ID_EMPRESA, FECHA_PRESUPUESTO, FECHA_DECISION, ' ' REFERENCIA, SITUACION, ID_CLIENTE, NIF_CIF, NOMBRE, ' ' REFERENCIA_CLIENTE, CLIENTE_FINAL, PORTADA, MEMORIA, ' ' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,' + ' ' ' FECHA_MODIFICACION, USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' ' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, ' ' IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO' ' FROM' ' V_PRESUPUESTOS_CLIENTE' ' WHERE V_PRESUPUESTOS_CLIENTE.ID = 31') Left = 136 Top = 296 end object detalles: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENTE_DE' + 'TALLES.ID_PRESUPUESTO,' ' PRESUPUESTOS_CLIENTE_DETALLES.POSICION, PRESUPUESTOS_CLIE' + 'NTE_DETALLES.TIPO_DETALLE,' ' PRESUPUESTOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIE' + 'NTE_DETALLES.CANTIDAD,' ' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTO' + 'S_CLIENTE_DETALLES.IMPORTE_TOTAL,' ' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERE' + 'NCIA_PROV as REFERENCIA_PROVEEDOR' '' 'FROM PRESUPUESTOS_CLIENTE_DETALLES' 'LEFT JOIN ARTICULOS ON (PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICUL' + 'O = ARTICULOS.ID)' 'WHERE PRESUPUESTOS_CLIENTE_DETALLES.ID_PRESUPUESTO = 31' 'ORDER BY POSICION') Left = 136 Top = 352 end end