ProGestion/Servidor/srvConfiguracion_Impl.dfm

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