LuisLeon_FactuGES2/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm

object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
  Left = 227
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Elegir una direcci'#243'n de cliente'
  ClientHeight = 386
  ClientWidth = 638
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlHeader: TPanel
    Left = 0
    Top = 0
    Width = 638
    Height = 64
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    Padding.Left = 25
    Padding.Top = 8
    Padding.Right = 25
    Padding.Bottom = 8
    ParentBackground = False
    TabOrder = 2
    object lblTitle: TLabel
      AlignWithMargins = True
      Left = 25
      Top = 8
      Width = 588
      Height = 13
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 8
      Align = alTop
      Caption = 'Seleccione una direcci'#243'n del cliente'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ExplicitWidth = 199
    end
    object lblComments: TLabel
      AlignWithMargins = True
      Left = 50
      Top = 29
      Width = 563
      Height = 24
      Margins.Left = 25
      Margins.Top = 0
      Margins.Right = 0
      Align = alClient
      Caption = 
        'El cliente dispone de varias direcciones dadas de alta en su fic' +
        'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.'
      ExplicitWidth = 564
      ExplicitHeight = 13
    end
  end
  inline frViewBarraSeleccion1: TfrViewBarraSeleccion
    Left = 0
    Top = 337
    Width = 638
    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 = 337
    ExplicitWidth = 638
    inherited JvFooter1: TJvFooter
      Width = 638
      ExplicitWidth = 638
      inherited bSeleccionar: TJvFooterBtn
        Left = 426
        ExplicitLeft = 387
      end
      inherited bCancelar: TJvFooterBtn
        Left = 530
        ExplicitLeft = 530
      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 = 50
    Top = 77
    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 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