object frCalendarioMontajes: TfrCalendarioMontajes
  Left = 0
  Top = 0
  Width = 822
  Height = 680
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentColor = False
  ParentFont = False
  TabOrder = 0
  Entidad = entAgenda
  object BarraAgenda: TRdxBarraSuperior
    Left = 0
    Top = 0
    Width = 822
    Height = 25
    Caption = 'Agenda de entregas y montajes'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 11590911
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Color = 18299
    ColorHighLight = 8623776
    ColorShadow = 8623776
    Align = alTop
    Alignment = taRightJustify
    TabOrder = 0
    UseDockManager = True
    Margen = 5
    object imgSombra: TImage
      Left = 0
      Top = 0
      Width = 822
      Height = 8
      Align = alTop
    end
    object bSeparador1: TShape
      Left = 212
      Top = 5
      Width = 1
      Height = 17
      Brush.Style = bsClear
      Pen.Color = 4759522
      Pen.Style = psDot
    end
    object bConsultar: TRdxBotonSuperior
      Left = 143
      Top = 5
      Width = 65
      Height = 15
      Action = actEliminar
      Alignment = taCenter
      ColorFocused = 4759522
      ColorDown = 4759522
      ColorBorder = 4759522
      ColorHighLight = 11590911
      ColorShadow = 11590911
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 11590911
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 2654615
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 5
      ParentFont = False
      TabOrder = 0
      Spacing = 6
    end
    object RdxBotonSuperior1: TRdxBotonSuperior
      Left = 4
      Top = 5
      Width = 65
      Height = 15
      Action = actAnadir
      Alignment = taCenter
      ColorFocused = 4759522
      ColorDown = 4759522
      ColorBorder = 4759522
      ColorHighLight = 11590911
      ColorShadow = 11590911
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 11590911
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 2654615
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 5
      ParentFont = False
      TabOrder = 1
      Spacing = 6
    end
    object RdxBotonSuperior2: TRdxBotonSuperior
      Left = 73
      Top = 5
      Width = 65
      Height = 15
      Action = actModificar
      Alignment = taCenter
      ColorFocused = 4759522
      ColorDown = 4759522
      ColorBorder = 4759522
      ColorHighLight = 11590911
      ColorShadow = 11590911
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 11590911
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 2654615
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 5
      ParentFont = False
      TabOrder = 2
      Spacing = 6
    end
    object RdxBotonSuperior3: TRdxBotonSuperior
      Left = 218
      Top = 5
      Width = 65
      Height = 15
      Action = actEliminar
      Alignment = taCenter
      ColorFocused = 4759522
      ColorDown = 4759522
      ColorBorder = 4759522
      ColorHighLight = 11590911
      ColorShadow = 11590911
      Caption = 'Imprimir'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 11590911
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 2654615
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 5
      ParentFont = False
      TabOrder = 3
      Spacing = 6
    end
  end
  object pnlExtra: TRdxBarraSuperior
    Left = 0
    Top = 25
    Width = 822
    Height = 25
    Caption = ' '
    BorderWidth = 1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Color = 14280169
    ColorHighLight = 8623776
    ColorShadow = 8623776
    Align = alTop
    Alignment = taRightJustify
    TabOrder = 1
    UseDockManager = True
    Margen = 5
    object eUsuario: TPanel
      Left = 589
      Top = 4
      Width = 49
      Height = 15
      BevelOuter = bvNone
      Caption = 'Usuario:'
      Color = 14280169
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
    end
    object cbxUsuarios: TcxLookupComboBox
      Left = 642
      Top = 2
      Width = 272
      Height = 21
      ParentFont = False
      Properties.DropDownListStyle = lsFixedList
      Properties.GridMode = True
      Properties.HideSelection = False
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'USUARIO'
      Properties.ListColumns = <
        item
          FieldName = 'NOMBRE'
        end>
      Properties.ListOptions.AnsiSort = True
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ReadOnly = False
      EditValue = ''
      Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
      TabOrder = 1
    end
    object bRefrescar: TRdxBoton
      Left = 232
      Top = 3
      Width = 118
      Height = 19
      Alignment = taLeftJustify
      Color = 15726583
      ColorFocused = 12775679
      ColorDown = 16383743
      ColorBorder = 8623776
      ColorHighLight = 5594726
      ColorShadow = 5594726
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 5594726
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 5594726
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E000010000000000000000084840003B1
        B300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222
        2222222222222222222222222100011222222222000000012222222012222100
        1222222222222210022222202222222000222200022220000000200000222200
        0002000000022220002222000222222202222220012222222222222100122221
        0222222210000000222222222110001222222222222222222222}
      Margin = 3
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 2
      Spacing = 2
      OnClick = bRefrescarClick
    end
    object RdxBoton1: TRdxBoton
      Left = 5
      Top = 3
      Width = 60
      Height = 19
      Action = actDia
      Alignment = taLeftJustify
      Color = 15726583
      ColorFocused = 12775679
      ColorDown = 16383743
      ColorBorder = 8623776
      ColorHighLight = 5594726
      ColorShadow = 5594726
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 5594726
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 5594726
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 3
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 3
      Spacing = 2
    end
    object RdxBoton2: TRdxBoton
      Left = 68
      Top = 3
      Width = 73
      Height = 19
      Action = actSemana
      Alignment = taLeftJustify
      Color = 15726583
      ColorFocused = 12775679
      ColorDown = 16383743
      ColorBorder = 8623776
      ColorHighLight = 5594726
      ColorShadow = 5594726
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 5594726
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 5594726
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 3
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 4
      Spacing = 2
    end
    object RdxBoton3: TRdxBoton
      Left = 144
      Top = 3
      Width = 73
      Height = 19
      Action = actMes
      Alignment = taLeftJustify
      Color = 15726583
      ColorFocused = 12775679
      ColorDown = 16383743
      ColorBorder = 8623776
      ColorHighLight = 5594726
      ColorShadow = 5594726
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 5594726
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = 5594726
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = [fsBold]
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 3
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 5
      Spacing = 2
    end
  end
  object cxScheduler: TcxScheduler
    Left = 0
    Top = 50
    Width = 822
    Height = 630
    DateNavigator.RowCount = 2
    ViewDay.AutoContentHeight = True
    ViewDay.GroupingKind = gkByDate
    ViewWeek.Active = True
    ViewWeek.GroupingKind = gkByDate
    ViewWeeks.GroupingKind = gkNone
    OnCustomDrawEvent = cxSchedulerCustomDrawEvent
    Align = alClient
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = cxcbsNone
    ControlBox.Control = Panel1
    EventOperations.InplaceEditing = False
    EventOperations.Recurrence = False
    LookAndFeel.Kind = lfUltraFlat
    LookAndFeel.NativeStyle = False
    OptionsCustomize.DynamicSizing = True
    OptionsView.DayBorderColor = clActiveCaption
    OptionsView.ShowEventsWithoutResource = True
    OptionsView.WorkDays = [dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday]
    OptionsView.WorkFinish = 0.854166666666666600
    OptionsView.WorkStart = 0.416666666666666700
    ParentFont = True
    ShowHint = True
    Storage = cxSchedulerDBStorage1
    TabOrder = 2
    OnGetEventDisplayText = cxSchedulerGetEventDisplayText
    OnGetEventHintText = cxSchedulerGetEventHintText
    Splitters = {
      A7020000FA00000036030000FF000000A202000000000000A702000076020000}
    Selection = 7
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 143
      Height = 375
      Align = alClient
      BevelOuter = bvNone
      Color = 16383743
      ParentBackground = True
      TabOrder = 0
      object cxResources: TcxCheckListBox
        Left = 0
        Top = 18
        Width = 143
        Height = 323
        Align = alClient
        Items = <>
        ParentFont = False
        Style.BorderStyle = cbsNone
        Style.LookAndFeel.Kind = lfStandard
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        Style.TransparentBorder = False
        StyleDisabled.BorderStyle = cbsNone
        StyleDisabled.LookAndFeel.Kind = lfStandard
        StyleFocused.BorderStyle = cbsNone
        StyleFocused.LookAndFeel.Kind = lfStandard
        StyleHot.BorderStyle = cbsNone
        StyleHot.LookAndFeel.Kind = lfStandard
        TabOrder = 0
        OnEditValueChanged = cxResourcesEditValueChanged
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 143
        Height = 18
        Align = alTop
        BevelInner = bvSpace
        BevelOuter = bvNone
        Caption = 'Instaladores'
        Color = 14280169
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object Panel3: TPanel
        Left = 0
        Top = 341
        Width = 143
        Height = 34
        Align = alBottom
        BevelOuter = bvNone
        Color = 15726583
        TabOrder = 2
        object bAnadir: TRdxBoton
          Left = 8
          Top = 8
          Width = 73
          Height = 19
          Action = actVerTodos
          Alignment = taLeftJustify
          Color = 14280169
          ColorFocused = 12775679
          ColorDown = 14280169
          ColorBorder = 8623776
          ColorHighLight = 8623776
          ColorShadow = 8623776
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          FontDown.Charset = DEFAULT_CHARSET
          FontDown.Color = clWindowText
          FontDown.Height = -11
          FontDown.Name = 'Tahoma'
          FontDown.Style = []
          FontDisabled.Charset = DEFAULT_CHARSET
          FontDisabled.Color = clWindowText
          FontDisabled.Height = -11
          FontDisabled.Name = 'MS Sans Serif'
          FontDisabled.Style = []
          Margin = 10
          ParentFont = False
          ParentColor = False
          TabStop = True
          TabOrder = 0
          Spacing = 0
        end
        object bEliminar: TRdxBoton
          Left = 88
          Top = 8
          Width = 46
          Height = 19
          Alignment = taLeftJustify
          Color = 14280169
          ColorFocused = 12775679
          ColorDown = 14280169
          ColorBorder = 8623776
          ColorHighLight = 8623776
          ColorShadow = 8623776
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          FontDown.Charset = DEFAULT_CHARSET
          FontDown.Color = clWindowText
          FontDown.Height = -11
          FontDown.Name = 'Tahoma'
          FontDown.Style = []
          FontDisabled.Charset = DEFAULT_CHARSET
          FontDisabled.Color = clWindowText
          FontDisabled.Height = -11
          FontDisabled.Name = 'MS Sans Serif'
          FontDisabled.Style = []
          Margin = 10
          ParentFont = False
          ParentColor = False
          TabStop = True
          TabOrder = 1
          Spacing = 0
        end
      end
    end
  end
  object cxSchedulerDBStorage1: TcxSchedulerDBStorage
    Resources.Items = <>
    Resources.DataSource = dsInstaladores
    Resources.ResourceID = 'CODIGO'
    Resources.ResourceName = 'NOMBRE'
    CustomFields = <
      item
        FieldName = 'CODIGOCONTRATO'
      end
      item
        FieldName = 'TIPOTAREA'
      end>
    DataSource = dsCitas
    FieldNames.Caption = 'CAPTION'
    FieldNames.EventType = 'TYPE'
    FieldNames.Finish = 'FINISH'
    FieldNames.ID = 'ID'
    FieldNames.LabelColor = 'LABELCOLOR'
    FieldNames.Location = 'LOCATION'
    FieldNames.Message = 'MESSAGE'
    FieldNames.Options = 'OPTIONS'
    FieldNames.ParentID = 'PARENTID'
    FieldNames.ResourceID = 'RESOURCEID'
    FieldNames.Start = 'START'
    FieldNames.State = 'STATE'
    Left = 640
    Top = 192
  end
  object ActionList1: TActionList
    Left = 672
    Top = 488
    object actDia: TAction
      Caption = 'D'#237'a'
      OnExecute = actDiaExecute
    end
    object actSemana: TAction
      Caption = 'Semana'
      OnExecute = actSemanaExecute
    end
    object actMes: TAction
      Caption = 'Mes'
      OnExecute = actMesExecute
    end
    object actVerTodos: TAction
      Caption = 'Ver todos'
      OnExecute = actVerTodosExecute
    end
    object actAnadir: TAction
      Caption = 'A'#241'adir'
      OnExecute = actAnadirExecute
    end
    object actModificar: TAction
      Caption = 'Modificar'
      OnExecute = actModificarExecute
      OnUpdate = actModificarUpdate
    end
    object actEliminar: TAction
      Caption = 'Eliminar'
      OnExecute = actEliminarExecute
      OnUpdate = actEliminarUpdate
    end
  end
  object dsCitas: TDataSource
    DataSet = tCitas
    Left = 640
    Top = 240
  end
  object tCitas: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    AfterPost = tCitasAfterPost
    OnNewRecord = tCitasNewRecord
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'PARENTID'
        DataType = ftInteger
      end
      item
        Name = 'TYPE'
        DataType = ftInteger
      end
      item
        Name = 'START'
        DataType = ftDateTime
      end
      item
        Name = 'FINISH'
        DataType = ftDateTime
      end
      item
        Name = 'OPTIONS'
        DataType = ftInteger
      end
      item
        Name = 'CAPTION'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'RECURRENCEINDEX'
        DataType = ftInteger
      end
      item
        Name = 'RESOURCEID'
        DataType = ftInteger
      end
      item
        Name = 'LOCATION'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'MESSAGE'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'REMINDER'
        DataType = ftInteger
      end
      item
        Name = 'STATE'
        DataType = ftInteger
      end
      item
        Name = 'LABELCOLOR'
        DataType = ftInteger
      end
      item
        Name = 'CODIGOCONTRATO'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'TIPOTAREA'
        DataType = ftString
        Size = 30
      end>
    IndexDefs = <
      item
        Name = 'PK_CITAS'
        Fields = 'ID'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'CITAS'
    Left = 680
    Top = 240
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    AutoStopAction = saCommitRetaining
    Left = 680
    Top = 272
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'E:\Acana\Codigo\bd\ACANA.GDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=ISO8859_1')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 640
    Top = 272
  end
  object dsInstaladores: TDataSource
    DataSet = tInstaladores
    Left = 640
    Top = 320
  end
  object tInstaladores: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    AutoCalcFields = False
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'CODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FECHAALTA'
        Attributes = [faRequired]
        DataType = ftDate
      end
      item
        Name = 'USUARIO'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'CALLE'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'NUMERO'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'PISO'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CODIGOPOSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'POBLACION'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'PROVINCIA'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'NIFCIF'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'TELEFONO1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'TELEFONO2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'MOVIL1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'MOVIL2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftMemo
        Size = 8
      end
      item
        Name = 'PORCENTAJE'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'PK_INSTALADORES'
        Fields = 'CODIGO'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'INSTALADORES'
    Left = 680
    Top = 320
    object tInstaladoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object tInstaladoresNOMBRE: TIBStringField
      FieldName = 'NOMBRE'
      Size = 100
    end
  end
  object ImageList1: TImageList
    Height = 32
    Width = 32
    Left = 184
    Top = 488
    Bitmap = {
[encoded data, 37843 characters]
      000000000000}
  end
end
