object srvFacturasProveedor: TsrvFacturasProveedor OldCreateOrder = True RequiresSession = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schFacturasProveedor ServiceAdapter = DABINAdapter Left = 784 Top = 384 Height = 392 Width = 369 object schFacturasProveedor: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = dmServer.DataDictionary Diagrams = dmServer.DADiagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' SQL = 'select ANO from'#10'(select distinct(substr(FECHAFACTURA, 1,4)) as A' + 'NO'#10'from facturasproveedor'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select di' + 'stinct '#39'Todos'#39' as ANO'#10'from empresas' StatementType = stSQL ColumnMappings = < item DatasetField = 'ANO' TableField = 'ANO' end> end> Name = 'ListaAnosFacturas' Fields = < item Name = 'ANO' DataType = datString Size = 254 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 = 'FACTURASPROVEEDOR' SQL = 'SELECT '#10' CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, REFERENCI' + 'A, '#10' FECHAFACTURA, VENCIMIENTO, CONCEPTO, BASEIMPONIBLE, '#10' ' + ' DESCUENTO, IMPORTEDESCUENTO, IVA, IMPORTEIVA, IMPORTETOTAL, '#10' ' + ' FORMAPAGO, CODIGOPROVEEDOR, NIFCIF, NOMBRE, CALLE, '#10' PROVIN' + 'CIA, CODIGOPOSTAL, POBLACION'#10' FROM'#10' FACTURASPROVEEDOR' StatementType = stSQL ColumnMappings = < item DatasetField = 'CODIGOEMPRESA' TableField = 'CODIGOEMPRESA' end item DatasetField = 'CODIGO' TableField = 'CODIGO' end item DatasetField = 'FECHAALTA' TableField = 'FECHAALTA' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'FECHAFACTURA' TableField = 'FECHAFACTURA' end item DatasetField = 'BASEIMPONIBLE' TableField = 'BASEIMPONIBLE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTEDESCUENTO' TableField = 'IMPORTEDESCUENTO' end item DatasetField = 'IVA' TableField = 'IVA' end item DatasetField = 'IMPORTEIVA' TableField = 'IMPORTEIVA' end item DatasetField = 'IMPORTETOTAL' TableField = 'IMPORTETOTAL' end item DatasetField = 'FORMAPAGO' TableField = 'FORMAPAGO' 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 = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'VENCIMIENTO' TableField = 'VENCIMIENTO' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'CODIGOPROVEEDOR' TableField = 'CODIGOPROVEEDOR' end> end> Name = 'FacturasProveedor' Fields = < item Name = 'CODIGOEMPRESA' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'CODIGOEMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'CODIGOFACTURA' 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 = 'FECHAFACTURA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'FECHAFACTURA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 20 BlobType = dabtUnknown DictionaryEntry = 'REFERENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'VENCIMIENTO' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'FECHAVENCIMIENTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datMemo BlobType = dabtUnknown DictionaryEntry = 'OBSERVACIONES' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'BASEIMPONIBLE' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'BASEIMPONIBLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'DESCUENTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTEDESCUENTO' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'IMPORTEDESCUENTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'IVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTEIVA' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'IMPORTEIVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTETOTAL' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'IMPORTETOTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FORMAPAGO' DataType = datMemo BlobType = dabtUnknown DictionaryEntry = 'FORMAPAGO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGOPROVEEDOR' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'CODIGOCONTACTO' 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> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = <> RelationShips = <> UpdateRules = <> Left = 48 Top = 24 end object DABINAdapter: TDABINAdapter Left = 48 Top = 88 end end