object srvRecibosCliente: TsrvRecibosCliente OldCreateOrder = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schRecibosCliente ServiceAdapter = DABINAdapter Left = 445 Top = 79 Height = 328 Width = 207 object DABINAdapter: TDABINAdapter Left = 48 Top = 72 end object schRecibosCliente: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = dmServer.DataDictionary Diagrams = dmServer.DADiagrams Datasets = < item Params = < item Name = 'CODIGO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURASCLIENTE' SQL = 'SELECT'#10' CODIGO, FECHAALTA, USUARIO, FECHARECIBO, IMPORTE, TEX' + 'TO,'#10' CODIGOCONTACTO, NIFCIF, NOMBRE, CALLE, PROVINCIA, CODIGO' + 'POSTAL,'#10' POBLACION, CODIGOOBRA'#10' FROM'#10' RECIBOSCLIENTE'#10'WHER' + 'E CODIGO = :CODIGO' StatementType = stSQL ColumnMappings = < item DatasetField = 'CODIGO' TableField = 'CODIGO' end item DatasetField = 'FECHAALTA' TableField = 'FECHAALTA' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'CODIGOCONTACTO' TableField = 'CODIGOCONTACTO' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'NIFCIF' TableField = 'NIFCIF' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'CODIGOPOSTAL' TableField = 'CODIGOPOSTAL' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CODIGOOBRA' TableField = 'CODIGOOBRA' end item DatasetField = 'FECHARECIBO' TableField = 'FECHARECIBO' end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end item DatasetField = 'TEXTO' TableField = 'TEXTO' end> end> Name = 'InformeReciboCliente' Fields = < item Name = 'CODIGO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'CODIGOFACTURACLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHAALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'FECHAALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 100 BlobType = dabtUnknown DictionaryEntry = 'USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHARECIBO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TEXTO' DataType = datMemo BlobType = dabtBlob DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOCONTACTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'C'#243'd. contacto' Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIFCIF' DataType = datString Size = 10 BlobType = dabtUnknown DictionaryEntry = 'NIFCIF' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 100 BlobType = dabtUnknown DictionaryEntry = 'NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 150 BlobType = dabtUnknown DictionaryEntry = 'CALLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 30 BlobType = dabtUnknown DictionaryEntry = 'PROVINCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOPOSTAL' DataType = datString Size = 5 BlobType = dabtUnknown DictionaryEntry = 'CODIGOPOSTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 40 BlobType = dabtUnknown DictionaryEntry = 'POBLACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOOBRA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOSCLIENTE' SQL = 'SELECT '#10' CODIGO, FECHAALTA, USUARIO, FECHARECIBO, IMPORTE, TE' + 'XTO, '#10' CODIGOCONTACTO, NIFCIF, NOMBRE, CALLE, PROVINCIA, CODI' + 'GOPOSTAL, '#10' POBLACION, CODIGOOBRA'#10' FROM'#10' RECIBOSCLIENTE' StatementType = stSQL ColumnMappings = < item DatasetField = 'CODIGO' TableField = 'CODIGO' end item DatasetField = 'FECHAALTA' TableField = 'FECHAALTA' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'FECHARECIBO' TableField = 'FECHARECIBO' end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end item DatasetField = 'TEXTO' TableField = 'TEXTO' end item DatasetField = 'CODIGOCONTACTO' TableField = 'CODIGOCONTACTO' end item DatasetField = 'NIFCIF' TableField = 'NIFCIF' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CODIGOPOSTAL' TableField = 'CODIGOPOSTAL' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'CODIGOOBRA' TableField = 'CODIGOOBRA' end> end> Name = 'RecibosCliente' Fields = < item Name = 'CODIGO' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'CODIGO' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'FECHAALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'FECHAALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 100 BlobType = dabtUnknown DictionaryEntry = 'USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHARECIBO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe' Alignment = taRightJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TEXTO' DataType = datMemo BlobType = dabtBlob DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOCONTACTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIFCIF' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 150 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 30 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOPOSTAL' DataType = datString Size = 5 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 40 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOOBRA' DataType = datInteger 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 = 24 end object frxReport1: TfrxReport Version = '3.23.7' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator] PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') ReportOptions.LastChange = 39007.508937349540000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'begin' '' 'end.') StoreInDFM = False Left = 40 Top = 128 Datasets = < item DataSet = frxDBCabecera DataSetName = 'frxDBCabecera' end> Variables = <> Style = < item Name = 'Concepto normal' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] end item Name = 'Concepto subtotal' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] end item Name = 'Cabecera de columna' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] end item Name = 'Concepto titulo' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] end> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 120 Top = 128 end object DADataCabecera: TDADataSource DataTable = tbl_RecibosCliente Left = 120 Top = 176 end object tbl_RecibosCliente: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False Adapter = DABINAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 120 Top = 232 end end