inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
  Width = 906
  Height = 350
  ExplicitWidth = 906
  ExplicitHeight = 350
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 906
    Height = 350
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      906
      350)
    object rdxDestino1: TRadioButton
      Left = 10
      Top = 10
      Width = 255
      Height = 17
      Action = actLista
      Enabled = False
      TabOrder = 0
      TabStop = True
    end
    object rdxDestino2: TRadioButton
      Left = 10
      Top = 110
      Width = 287
      Height = 17
      Action = actOtro
      TabOrder = 4
    end
    object cbLista: TcxDBLookupComboBox
      Left = 25
      Top = 33
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataSource = dsContrato
      Enabled = False
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'NOMBRE'
        end>
      Properties.ListOptions.AnsiSort = True
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListOptions.SyncMode = True
      Properties.ListSource = dsAlmacenes
      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 = 1
      Width = 425
    end
    object bModificar: TBitBtn
      Left = 716
      Top = 241
      Width = 180
      Height = 25
      Caption = 'Modificar la direcci'#243'n...'
      TabOrder = 6
      OnClick = bModificarClick
    end
    object txtDireccion: TStaticText
      Left = 25
      Top = 133
      Width = 871
      Height = 200
      AutoSize = False
      BevelKind = bkFlat
      TabOrder = 5
      OnDblClick = txtDireccionDblClick
    end
    object rdxDestinoCliente: TRadioButton
      Left = 10
      Top = 60
      Width = 566
      Height = 17
      Action = actListaCliente
      TabOrder = 2
    end
    object cbListaDireccionesCliente: TcxDBLookupComboBox
      Left = 25
      Top = 83
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'ID_DIRECCION_ENVIO'
      DataBinding.DataSource = dsContrato
      Enabled = False
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'ID_DIRECCION'
      Properties.ListColumns = <
        item
          Fixed = True
          FieldName = 'CALLE'
        end
        item
          Fixed = True
          FieldName = 'POBLACION'
        end
        item
          Fixed = True
          FieldName = 'PROVINCIA'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListOptions.SyncMode = True
      Properties.ListSource = dsDireccionesCliente
      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 = 551
    end
    object notasEnvio: TcxDBMemo
      Left = 10
      Top = 290
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'NOTAS_ENVIO'
      DataBinding.DataSource = dsContrato
      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 = 7
      Height = 50
      Width = 886
    end
    object dxLayoutGroup1: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutItem1: TdxLayoutItem
        Caption = 'New Item'
        Enabled = False
        ShowCaption = False
        Visible = False
        Control = rdxDestino1
        ControlOptions.AutoColor = True
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item3: TdxLayoutItem
        Caption = 'New Item'
        Enabled = False
        Offsets.Left = 15
        ShowCaption = False
        Visible = False
        Control = cbLista
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item4: TdxLayoutItem
        ShowCaption = False
        Control = rdxDestinoCliente
        ControlOptions.AutoColor = True
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item6: TdxLayoutItem
        Offsets.Left = 15
        ShowCaption = False
        Control = cbListaDireccionesCliente
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item2: TdxLayoutItem
        Caption = 'New Item'
        ShowCaption = False
        Control = rdxDestino2
        ControlOptions.AutoColor = True
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item5: TdxLayoutItem
        AutoAligns = [aaHorizontal]
        AlignVert = avClient
        Caption = 'StaticText1'
        Offsets.Left = 15
        ShowCaption = False
        Control = txtDireccion
        ControlOptions.AutoColor = True
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item1: TdxLayoutItem
        AutoAligns = [aaVertical]
        AlignHorz = ahRight
        Offsets.Left = 15
        ShowCaption = False
        Control = bModificar
        ControlOptions.ShowBorder = False
      end
      object dxLayoutControl1Item7: TdxLayoutItem
        Caption = 'Notas env'#237'o:'
        CaptionOptions.Layout = clTop
        Control = notasEnvio
        ControlOptions.ShowBorder = False
      end
    end
  end
  object ActionList1: TActionList
    Left = 248
    Top = 8
    object actLista: TAction
      Caption = 'Recibir el pedido en el almac'#233'n:'
      Checked = True
      GroupIndex = 1
      OnExecute = actListaExecute
    end
    object actOtro: TAction
      Caption = 'Enviar a esta otra direcci'#243'n:'
      GroupIndex = 1
      OnExecute = actOtroExecute
    end
    object actListaCliente: TAction
      Caption = 'Enviar a esta direcci'#243'n del cliente:'
      GroupIndex = 1
      OnExecute = actListaClienteExecute
    end
  end
  object dsContrato: TDADataSource
    Left = 280
    Top = 8
  end
  object dsAlmacenes: TDADataSource
    Left = 312
    Top = 8
  end
  object dsDireccionesCliente: TDADataSource
    Left = 344
    Top = 8
  end
end