object srvControles: TsrvControles
  OldCreateOrder = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schControles
  ServiceAdapter = DABINAdapter
  Left = 677
  Top = 321
  Height = 297
  Width = 298
  object schControles: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = 'VENTAS'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'GFT_VARELA'
            TargetTable = 'RDX_INFORMES'
            SQL = 
              'SELECT '#10'    ID, CATEGORIA, MODIFICABLE, ICONO, NOMBRE, DESCRIPCI' +
              'ON, ORDEN, VISTA'#10'  FROM'#10'    RDX_INFORMES'#10'  WHERE CATEGORIA = :CA' +
              'TEGORIA'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'CATEGORIA'
                TableField = 'CATEGORIA'
              end
              item
                DatasetField = 'ICONO'
                TableField = 'ICONO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'ORDEN'
                TableField = 'ORDEN'
              end
              item
                DatasetField = 'VISTA'
                TableField = 'VISTA'
              end
              item
                DatasetField = 'MODIFICABLE'
                TableField = 'MODIFICABLE'
              end>
          end>
        Name = 'ListaControlesPorCategoria'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'MODIFICABLE'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DefaultValue = 'S'
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ICONO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 50
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ORDEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VISTA'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MODIFICABLE'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ICONO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 50
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ORDEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'VISTA'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'GFT_VARELA'
            TargetTable = 'RDX_INFORMES'
            SQL = 
              'INSERT'#10'  INTO RDX_INFORMES'#10'    (CATEGORIA, MODIFICABLE, ICONO, N' +
              'OMBRE, DESCRIPCION, ORDEN, VISTA)'#10'  VALUES'#10'    (:CATEGORIA, :MOD' +
              'IFICABLE, :ICONO, :NOMBRE, :DESCRIPCION, :ORDEN,'#10'     :VISTA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ControlesPorCategoria'
      end
      item
        Params = <
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MODIFICABLE'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ICONO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 50
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ORDEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'VISTA'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'GFT_VARELA'
            TargetTable = 'RDX_INFORMES'
            SQL = 
              'UPDATE RDX_INFORMES'#10'  SET '#10'    CATEGORIA = :CATEGORIA, '#10'    MODI' +
              'FICABLE = :MODIFICABLE,'#10'    ICONO = :ICONO, '#10'    NOMBRE = :NOMBR' +
              'E, '#10'    DESCRIPCION = :DESCRIPCION, '#10'    ORDEN = :ORDEN, '#10'    VI' +
              'STA = :VISTA'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_ControlesPorCategoria'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 40
    Top = 24
  end
  object bpControles: TDABusinessProcessor
    Schema = schControles
    InsertCommandName = 'Insert_ControlesPorCategoria'
    UpdateCommandName = 'Update_ControlesPorCategoria'
    ReferencedDataset = 'ListaControlesPorCategoria'
    ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 144
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 96
  end
end