inherited frViewContratoCliente: TfrViewContratoCliente
  Width = 1138
  Height = 481
  Align = alClient
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 451
  ExplicitHeight = 304
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 1138
    Height = 481
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    ExplicitWidth = 451
    ExplicitHeight = 304
    DesignSize = (
      1138
      481)
    object edtFechaContrato: TcxDBDateEdit
      Left = 117
      Top = 82
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_CONTRATO'
      DataBinding.DataSource = DADataSource
      Properties.DateButtons = [btnToday]
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.Shadow = False
      Style.ButtonStyle = bts3D
      Style.ButtonTransparency = ebtNone
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 2
      Width = 129
    end
    object memObservaciones: TcxDBMemo
      Left = 625
      Top = 309
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'OBSERVACIONES'
      DataBinding.DataSource = DADataSource
      Properties.ScrollBars = ssVertical
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 14
      Height = 200
      Width = 507
    end
    object eReferencia: TcxDBTextEdit
      Left = 117
      Top = 28
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA'
      DataBinding.DataSource = DADataSource
      Properties.ReadOnly = True
      Properties.ValidateOnEnter = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 0
      Width = 122
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 117
      Top = 784
      DataBinding.DataField = 'ID_FORMA_PAGO'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'REFERENCIA'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListOptions.SyncMode = True
      Properties.ListSource = dsFormaPago
      Properties.OnValidate = cbFormaPagoPropertiesValidate
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 9
      Width = 122
    end
    object bFormasPago: TButton
      Left = 463
      Top = 784
      Width = 132
      Height = 21
      Caption = 'Ver las formas de pago...'
      TabOrder = 10
      OnClick = bFormasPagoClick
    end
    object cbSituacion: TcxDBImageComboBox
      Left = 117
      Top = 109
      DataBinding.DataField = 'SITUACION'
      DataBinding.DataSource = DADataSource
      Properties.Items = <
        item
          Description = 'PENDIENTE'
          ImageIndex = 0
          Value = 'PENDIENTE'
        end
        item
          Description = 'TERMINADO'
          Value = 'TERMINADO'
        end
        item
          Description = 'CANCELADO'
          Value = 'CANCELADO'
        end>
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.LookAndFeel.NativeStyle = True
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 4
      Width = 260
    end
    inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
      Left = 625
      Top = 28
      Width = 480
      Height = 245
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      ReadOnly = False
      ExplicitLeft = 625
      ExplicitTop = 28
      ExplicitWidth = 480
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 480
        ExplicitWidth = 480
        inherited edtlNombre: TcxDBTextEdit
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtNIFCIF: TcxDBTextEdit
          ExplicitWidth = 103
          Width = 103
        end
        inherited bVerFichaCliente: TBitBtn
          Left = 270
          ExplicitLeft = 270
        end
        inherited edtDireccion: TcxMemo
          ExplicitWidth = 121
          Width = 121
        end
        inherited bElegirDireccion: TButton
          Left = 439
          ExplicitLeft = 439
        end
        inherited edtTelefonos: TcxTextEdit
          ExplicitWidth = 193
          Width = 193
        end
        inherited edtReferencia: TcxDBTextEdit
          Left = 297
          ExplicitLeft = 297
          ExplicitWidth = 103
          Width = 103
        end
        inherited edtIdioma: TcxDBTextEdit
          DataBinding.DataSource = DADataSource
        end
      end
    end
    object memFormaPago: TcxDBMemo
      Left = 22
      Top = 811
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'FORMA_PAGO'
      DataBinding.DataSource = DADataSource
      Properties.ScrollBars = ssVertical
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 11
      Height = 60
      Width = 546
    end
    object memPlazoEntrega: TcxDBMemo
      Left = 22
      Top = 867
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'PLAZO_ENTREGA'
      DataBinding.DataSource = DADataSource
      Properties.ScrollBars = ssVertical
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 12
      Height = 60
      Width = 616
    end
    object cbVendedor: TcxDBLookupComboBox
      Left = 117
      Top = 136
      DataBinding.DataField = 'ID_VENDEDOR'
      DataBinding.DataSource = DADataSource
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'NOMBRE'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListOptions.SyncMode = True
      Properties.ListSource = dsVendedor
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 5
      Width = 27
    end
    object cbTipoContrato: TcxDBComboBox
      Left = 411
      Top = 82
      DataBinding.DataField = 'TIPO_CONTRATO'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Properties.Items.Strings = (
        'Cocina'
        'Ba'#241'o'
        'Armarios'
        'Electrodom'#233'sticos'
        'Varios')
      Properties.PostPopupValueOnTab = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 3
      Width = 113
    end
    object edtlReferenciaCliente: TcxDBTextEdit
      Left = 117
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      DataBinding.DataField = 'REFERENCIA_CLIENTE'
      DataBinding.DataSource = DADataSource
      ParentFont = False
      Properties.UseLeftAlignmentOnEditing = False
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 1
      Height = 21
      Width = 335
    end
    inline frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli
      Left = 22
      Top = 193
      Width = 594
      Height = 275
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 193
      ExplicitWidth = 594
      ExplicitHeight = 275
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 594
        Height = 275
        ExplicitWidth = 594
        ExplicitHeight = 275
        inherited rdxDestino1: TRadioButton
          Width = 255
          ExplicitWidth = 255
        end
        inherited rdxDestino2: TRadioButton
          Width = 287
          ExplicitWidth = 287
        end
        inherited cbLista: TcxDBLookupComboBox
          ExplicitWidth = 425
          Width = 425
        end
        inherited bModificar: TBitBtn
          Left = 383
          Top = 166
          ExplicitLeft = 383
          ExplicitTop = 166
        end
        inherited txtDireccion: TStaticText
          Width = 551
          Height = 177
          ExplicitWidth = 551
          ExplicitHeight = 177
        end
        inherited rdxDestinoCliente: TRadioButton
          Width = 566
          ExplicitWidth = 566
        end
        inherited cbListaDireccionesCliente: TcxDBLookupComboBox
          ExplicitWidth = 551
          Width = 551
        end
        inherited notasEnvio: TcxDBMemo
          Top = 215
          DataBinding.DataSource = DADataSource
          ExplicitTop = 215
        end
      end
    end
    inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
      Left = 22
      Top = 613
      Width = 425
      Height = 135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 613
      inherited dxLayoutControl1: TdxLayoutControl
        inherited edtlNombreAgente: TcxDBTextEdit
          DataBinding.DataSource = DADataSource
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtDelegacion: TcxDBTextEdit
          DataBinding.DataSource = DADataSource
          ExplicitWidth = 562
          Width = 562
        end
        inherited Button3: TBitBtn
          Left = 371
          ExplicitLeft = 371
        end
      end
    end
    inline frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
      Left = 22
      Top = 474
      Width = 425
      Height = 103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 474
      inherited dxLayoutControl1: TdxLayoutControl
        inherited edtlNombreInstalador: TcxDBTextEdit
          DataBinding.DataSource = DADataSource
          ExplicitWidth = 224
          Width = 224
        end
        inherited Button3: TBitBtn
          Left = 343
          ExplicitLeft = 343
        end
      end
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      LayoutDirection = ldHorizontal
      ShowBorder = False
      object dxLayoutControl1Group8: TdxLayoutGroup
        AutoAligns = [aaVertical]
        AlignHorz = ahClient
        ShowCaption = False
        Hidden = True
        ShowBorder = False
        object dxLayoutControl1Group1: TdxLayoutGroup
          AutoAligns = []
          AlignHorz = ahClient
          Caption = 'Datos del contrato'
          object dxLayoutControl1Item3: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Referencia:'
            Control = eReferencia
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item12: TdxLayoutItem
            Caption = 'Referencia cliente:'
            Control = edtlReferenciaCliente
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Group11: TdxLayoutGroup
            ShowCaption = False
            Hidden = True
            LayoutDirection = ldHorizontal
            ShowBorder = False
            object dxLayoutControl1Item2: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Fecha contrato:'
              Control = edtFechaContrato
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item7: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Tipo contrato:'
              Visible = False
              Control = cbTipoContrato
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Item10: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Situaci'#243'n:'
            Control = cbSituacion
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item11: TdxLayoutItem
            Caption = 'Usuario:'
            Control = cbVendedor
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group5: TdxLayoutGroup
          AutoAligns = [aaHorizontal]
          Caption = 'Direcci'#243'n entrega / obra'
          object dxLayoutControl1Item13: TdxLayoutItem
            Control = frViewDireccionEntregaContratoCli1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item15: TdxLayoutItem
            Control = frViewDatosYSeleccionInstalador1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group10: TdxLayoutGroup
          Caption = 'Datos comerciales'
          object dxLayoutControl1Item14: TdxLayoutItem
            Control = frViewDatosYSeleccionComercial1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group6: TdxLayoutGroup
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Caption = 'Forma de pago'
          object dxLayoutControl1Group9: TdxLayoutGroup
            ShowCaption = False
            Hidden = True
            LayoutDirection = ldHorizontal
            ShowBorder = False
            object dxLayoutControl1Item4: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Forma de pago:'
              Control = cbFormaPago
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item5: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahRight
              ShowCaption = False
              Control = bFormasPago
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Item8: TdxLayoutItem
            AutoAligns = [aaHorizontal]
            AlignVert = avClient
            ShowCaption = False
            Control = memFormaPago
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group4: TdxLayoutGroup
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Caption = 'Plazos de entrega'
          object dxLayoutControl1Item9: TdxLayoutItem
            AutoAligns = [aaHorizontal]
            AlignVert = avClient
            ShowCaption = False
            Control = memPlazoEntrega
            ControlOptions.ShowBorder = False
          end
        end
      end
      object dxLayoutControl1Group3: TdxLayoutGroup
        AutoAligns = [aaVertical]
        AlignHorz = ahClient
        ShowCaption = False
        Hidden = True
        ShowBorder = False
        object dxLayoutControl1Group2: TdxLayoutGroup
          Caption = 'Datos del cliente'
          object dxLayoutControl1Item1: TdxLayoutItem
            AutoAligns = [aaHorizontal]
            AlignVert = avClient
            Caption = 'New Item'
            ShowCaption = False
            Control = frViewDatosYSeleccionClienteContrato1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group7: TdxLayoutGroup
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Caption = 'Observaciones'
          object dxLayoutControl1Item6: TdxLayoutItem
            AutoAligns = [aaHorizontal]
            AlignVert = avClient
            Control = memObservaciones
            ControlOptions.ShowBorder = False
          end
        end
      end
    end
  end
  object DADataSource: TDADataSource
    Left = 8
    Top = 48
  end
  object ActionList1: TActionList
    Left = 8
    Top = 24
  end
  object dsFormaPago: TDADataSource
    Left = 40
    Top = 8
  end
  object dsVendedor: TDADataSource
    Left = 40
    Top = 40
  end
end