object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
  Left = 227
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Elegir una direcci'#243'n de cliente'
  ClientHeight = 506
  ClientWidth = 599
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object JvgWizardHeader1: TJvgWizardHeader
    Left = 0
    Top = 0
    Width = 599
    Height = 60
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -11
    CaptionFont.Name = 'Tahoma'
    CaptionFont.Style = [fsBold]
    CommentFont.Charset = DEFAULT_CHARSET
    CommentFont.Color = clWindowText
    CommentFont.Height = -11
    CommentFont.Name = 'Tahoma'
    CommentFont.Style = []
    SymbolFont.Charset = DEFAULT_CHARSET
    SymbolFont.Color = clHighlightText
    SymbolFont.Height = -35
    SymbolFont.Name = 'Wingdings'
    SymbolFont.Style = [fsBold]
    Captions.Strings = (
      'Seleccione una direcci'#243'n del cliente')
    Comments.Strings = (
      
        'El cliente dispone de varias direcciones dadas de alta en su fic' +
        'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.')
    Gradient.FromColor = clHighlight
    Gradient.ToColor = clWindow
    Gradient.Active = False
    Gradient.Orientation = fgdVertical
    BufferedDraw = False
    ExplicitLeft = -57
    ExplicitTop = 27
    ExplicitWidth = 656
  end
  inline frViewBarraSeleccion1: TfrViewBarraSeleccion
    Left = 0
    Top = 457
    Width = 599
    Height = 49
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    ReadOnly = False
    ExplicitTop = 457
    ExplicitWidth = 599
    inherited JvFooter1: TJvFooter
      Width = 599
      ExplicitWidth = 599
      inherited bSeleccionar: TJvFooterBtn
        Left = 387
        ExplicitLeft = 387
      end
      inherited bCancelar: TJvFooterBtn
        Left = 491
        ExplicitLeft = 491
      end
    end
    inherited BarraSeleccionActionList: TActionList
      Top = 11
      inherited actSeleccionar: TAction
        OnExecute = frViewBarraSeleccion1actSeleccionarExecute
      end
      inherited actCancelar: TAction
        OnExecute = frViewBarraSeleccion1actCancelarExecute
      end
    end
  end
  object DBCtrlGrid1: TDBCtrlGrid
    Left = 45
    Top = 214
    Width = 539
    Height = 241
    Margins.Left = 10
    Margins.Top = 10
    Margins.Right = 10
    Margins.Bottom = 0
    AllowDelete = False
    AllowInsert = False
    Color = clBtnFace
    DataSource = dsDirecciones
    PanelHeight = 80
    PanelWidth = 522
    ParentColor = False
    TabOrder = 1
    OnDblClick = DBCtrlGrid1DblClick
    object eCalle: TDBText
      Left = 48
      Top = 25
      Width = 472
      Height = 17
      DataField = 'CALLE'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object ePoblacion: TDBText
      Left = 70
      Top = 42
      Width = 251
      Height = 17
      DataField = 'POBLACION'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object eTelefono: TDBText
      Left = 383
      Top = 59
      Width = 130
      Height = 17
      DataField = 'TELEFONO'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object eProvincia: TDBText
      Left = 383
      Top = 42
      Width = 130
      Height = 17
      DataField = 'PROVINCIA'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object ePersonaContacto: TDBText
      Left = 124
      Top = 59
      Width = 261
      Height = 17
      DataField = 'PERSONA_CONTACTO'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object eNombre: TDBText
      Left = 8
      Top = 7
      Width = 345
      Height = 17
      DataField = 'NOMBRE'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object eCodigoPostal: TDBText
      Left = 327
      Top = 42
      Width = 50
      Height = 17
      DataField = 'CODIGO_POSTAL'
      DataSource = dsDirecciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object Label1: TLabel
      Left = 15
      Top = 25
      Width = 27
      Height = 13
      Caption = 'Calle:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnDblClick = ComponenteDblClick
    end
    object Label2: TLabel
      Left = 15
      Top = 42
      Width = 49
      Height = 13
      Caption = 'Poblaci'#243'n:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnDblClick = ComponenteDblClick
    end
    object Label4: TLabel
      Left = 15
      Top = 59
      Width = 103
      Height = 13
      Caption = 'Persona de contacto:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnDblClick = ComponenteDblClick
    end
  end
  object rdxDestino1: TRadioButton
    Left = 16
    Top = 77
    Width = 335
    Height = 17
    Action = actDirSocial
    TabOrder = 2
    TabStop = True
  end
  object RadioButton1: TRadioButton
    Left = 16
    Top = 193
    Width = 335
    Height = 17
    Action = actOtro
    TabOrder = 3
    TabStop = True
  end
  object pnlDirSocial: TPanel
    Left = 45
    Top = 97
    Width = 520
    Height = 81
    Color = clWindow
    ParentBackground = False
    TabOrder = 4
    object DBText1: TDBText
      Left = 8
      Top = 5
      Width = 497
      Height = 17
      DataField = 'NOMBRE'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 13
      Top = 23
      Width = 27
      Height = 13
      Caption = 'Calle:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 46
      Top = 23
      Width = 465
      Height = 17
      DataField = 'CALLE'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 13
      Top = 40
      Width = 49
      Height = 13
      Caption = 'Poblaci'#243'n:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 68
      Top = 40
      Width = 251
      Height = 17
      DataField = 'POBLACION'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object DBText4: TDBText
      Left = 325
      Top = 40
      Width = 50
      Height = 17
      DataField = 'CODIGO_POSTAL'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object DBText5: TDBText
      Left = 381
      Top = 40
      Width = 130
      Height = 17
      DataField = 'PROVINCIA'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object DBText7: TDBText
      Left = 381
      Top = 57
      Width = 130
      Height = 17
      DataField = 'TELEFONO_1'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 13
      Top = 57
      Width = 103
      Height = 13
      Caption = 'Persona de contacto:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 122
      Top = 57
      Width = 261
      Height = 17
      DataField = 'PERSONA_CONTACTO'
      DataSource = dsContacto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object dsDirecciones: TDADataSource
    Left = 16
    Top = 222
  end
  object ActionList1: TActionList
    Left = 16
    Top = 104
    object actDirSocial: TAction
      Caption = 'Utilizar la direcci'#243'n social del cliente:'
      Checked = True
      GroupIndex = 1
      OnExecute = actDirSocialExecute
    end
    object actOtro: TAction
      Caption = 'Utilizar la siguiente direcci'#243'n del cliente'
      GroupIndex = 1
      OnExecute = actOtroExecute
      OnUpdate = actOtroUpdate
    end
  end
  object dsContacto: TDADataSource
    Left = 16
    Top = 134
  end
end
