object srvInformes: TsrvInformes
  OldCreateOrder = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schInformes
  ServiceAdapter = DABINAdapter
  Height = 297
  Width = 298
  object schInformes: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DADataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INFORMES'
            SQL = 
              'SELECT '#10'    ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ' +
              'ICONO, NOMBRE,'#10'    DESCRIPCION, ORDEN, VISTA, TIPO_AGRUPACION'#10'  ' +
              'FROM'#10'    INFORMES'#10'ORDER BY CATEGORIA, ID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'CATEGORIA'
                TableField = 'CATEGORIA'
              end
              item
                DatasetField = 'CONTROLLER'
                TableField = 'CONTROLLER'
              end
              item
                DatasetField = 'MODIFICABLE'
                TableField = 'MODIFICABLE'
              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 = 'TIPO_AGRUPACION'
                TableField = 'TIPO_AGRUPACION'
              end>
          end>
        Name = 'Informes'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_ID_EMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_CATEGORIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CONTROLLER'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_CONTROLLER'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'MODIFICABLE'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_MODIFICABLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ICONO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_ICONO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 50
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ORDEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_ORDEN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VISTA'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'Informes_VISTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO_AGRUPACION'
            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 = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CONTROLLER'
            DataType = datString
            Size = 255
            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 = 'TIPO_AGRUPACION'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INFORMES'
            SQL = 
              'INSERT'#10'  INTO INFORMES'#10'    (ID, ID_EMPRESA, CATEGORIA, CONTROLLE' +
              'R, MODIFICABLE, ICONO, NOMBRE,'#10'    DESCRIPCION, ORDEN, VISTA, TI' +
              'PO_AGRUPACION)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :CATEGORIA, :CONT' +
              'ROLLER, :MODIFICABLE, :ICONO, :NOMBRE,'#10'    :DESCRIPCION, :ORDEN,' +
              ' :VISTA, :TIPO_AGRUPACION)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Informes'
      end
      item
        Params = <
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CATEGORIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CONTROLLER'
            DataType = datString
            Size = 255
            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 = 'TIPO_AGRUPACION'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INFORMES'
            SQL = 
              'UPDATE INFORMES'#10'  SET '#10'    ID_EMPRESA = :ID_EMPRESA,'#10'    CATEGOR' +
              'IA = :CATEGORIA, '#10'    CONTROLLER = :CONTROLLER,'#10'    MODIFICABLE ' +
              '= :MODIFICABLE,'#10'    ICONO = :ICONO, '#10'    NOMBRE = :NOMBRE, '#10'    ' +
              'DESCRIPCION = :DESCRIPCION, '#10'    ORDEN = :ORDEN, '#10'    VISTA = :V' +
              'ISTA,'#10'    TIPO_AGRUPACION = :TIPO_AGRUPACION'#10'  WHERE'#10'    (ID = :' +
              'OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Informes'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INFORMES'
            SQL = 'DELETE '#10'  FROM'#10'    INFORMES'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Informes'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 40
    Top = 24
  end
  object bpInformes: TDABusinessProcessor
    Schema = schInformes
    InsertCommandName = 'Insert_Informes'
    DeleteCommandName = 'Delete_Informes'
    UpdateCommandName = 'Update_Informes'
    ReferencedDataset = 'Informes'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 144
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 96
  end
  object DADataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'Informes_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_ID_EMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_EMPRESA'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_CATEGORIA'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'CATEGORIA'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_CONTROLLER'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'CONTROLLER'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_MODIFICABLE'
        DataType = datString
        Size = 1
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'MODIFICABLE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_ICONO'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ICONO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_NOMBRE'
        DataType = datString
        Size = 50
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'NOMBRE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_DESCRIPCION'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'DESCRIPCION'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_ORDEN'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ORDEN'
        Alignment = taLeftJustify
      end
      item
        Name = 'Informes_VISTA'
        DataType = datMemo
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'VISTA'
        Alignment = taLeftJustify
      end>
    Left = 40
    Top = 160
  end
end
