object srvConfiguracion: TsrvConfiguracion OldCreateOrder = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schConfiguracion ServiceAdapter = DABINAdapter Left = 573 Top = 145 Height = 300 Width = 300 object schConfiguracion: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = dmServer.DataDictionary Diagrams = dmServer.DADiagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'INTERVALOS' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_PROYECTOS'#39 StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darRutaProyectos' Fields = < item Name = 'VALOR' DataType = datString Size = 100 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 = 'INTERVALOS' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_PROYECTOS_N' + 'UEVO'#39 StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darRutaProyectosNueva' Fields = < item Name = 'VALOR' DataType = datString Size = 100 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 = 'INTERVALOS' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_NORMATIVAS'#39 StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darRutaNormativas' Fields = < item Name = 'VALOR' DataType = datString Size = 100 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 = 'INTERVALOS' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_NORMATIVAS_' + 'NUEVO'#39 StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darRutaNormativasNueva' Fields = < item Name = 'VALOR' DataType = datString Size = 100 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 = 'INTERVALOS' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PROYECTOS_DIR_ES' + 'TRUCTURA'#39#10'ORDER BY VALOR' StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darEstructuraDirProyectos' Fields = < item Name = 'VALOR' DataType = datString Size = 100 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 = 'INTERVALOS' SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'NORMATIVAS_DIR_E' + 'STRUCTURA'#39#10'ORDER BY VALOR' StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darEstructuraDirNormativas' Fields = < item Name = 'VALOR' DataType = datString Size = 100 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 = 40 Top = 16 end object DABINAdapter: TDABINAdapter Left = 40 Top = 72 end end