Tecsitel_FactuGES2/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm

object fEditorElegirPersonaContacto: TfEditorElegirPersonaContacto
  Left = 227
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Elegir una direcciones de cliente'
  ClientHeight = 383
  ClientWidth = 599
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object pnlHeader: TPanel
    Left = 0
    Top = 0
    Width = 656
    Height = 64
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    Padding.Left = 25
    Padding.Top = 8
    Padding.Right = 25
    Padding.Bottom = 8
    ParentBackground = False
    TabOrder = 5
    object lblTitle: TLabel
      AlignWithMargins = True
      Left = 25
      Top = 8
      Width = 606
      Height = 13
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 8
      Align = alTop
      Caption = 'Seleccione una persona de contacto'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ExplicitWidth = 135
    end
    object lblComments: TLabel
      AlignWithMargins = True
      Left = 50
      Top = 29
      Width = 581
      Height = 27
      Margins.Left = 25
      Margins.Top = 0
      Margins.Right = 0
      Align = alClient
      ExplicitWidth = 3
      ExplicitHeight = 13
      Caption = 'El cliente dispone de personas de contacto dadas de alta en su f' +
        'icha. Seleccione la que quiere utilizar.'
    end
  end
  inline frViewBarraSeleccion1: TfrViewBarraSeleccion
    Left = 0
    Top = 334
    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 = 334
    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 = 8
    Top = 66
    Width = 583
    Height = 261
    Margins.Left = 10
    Margins.Top = 10
    Margins.Right = 10
    Margins.Bottom = 0
    AllowDelete = False
    AllowInsert = False
    Color = clBtnFace
    DataSource = dsPersonas
    PanelHeight = 87
    PanelWidth = 566
    ParentColor = False
    TabOrder = 1
    SelectedColor = clHighlight
    OnDblClick = DBCtrlGrid1DblClick
    object ePuesto: TDBText
      Left = 58
      Top = 28
      Width = 502
      Height = 17
      DataField = 'PUESTO'
      DataSource = dsPersonas
      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 = 70
      Top = 47
      Width = 187
      Height = 17
      DataField = 'TELEFONO'
      DataSource = dsPersonas
      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 = 537
      Height = 17
      DataField = 'NOMBRE'
      DataSource = dsPersonas
      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 = 28
      Width = 37
      Height = 13
      Caption = 'Puesto:'
      OnDblClick = ComponenteDblClick
    end
    object Label2: TLabel
      Left = 15
      Top = 47
      Width = 46
      Height = 13
      Caption = 'Tel'#233'fono:'
      OnDblClick = ComponenteDblClick
    end
    object Label3: TLabel
      Left = 281
      Top = 47
      Width = 47
      Height = 13
      Caption = 'Tlf. m'#243'vil:'
      OnDblClick = ComponenteDblClick
    end
    object eMovil: TDBText
      Left = 334
      Top = 47
      Width = 187
      Height = 17
      DataField = 'MOVIL'
      DataSource = dsPersonas
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object Label4: TLabel
      Left = 16
      Top = 66
      Width = 48
      Height = 13
      Caption = 'N'#250'm. fax:'
      OnDblClick = ComponenteDblClick
    end
    object eFax: TDBText
      Left = 70
      Top = 66
      Width = 187
      Height = 17
      DataField = 'FAX'
      DataSource = dsPersonas
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
    object Label5: TLabel
      Left = 281
      Top = 66
      Width = 32
      Height = 13
      Caption = 'E-mail:'
      OnDblClick = ComponenteDblClick
    end
    object eEMail: TDBText
      Left = 334
      Top = 66
      Width = 187
      Height = 17
      DataField = 'EMAIL'
      DataSource = dsPersonas
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = ComponenteDblClick
    end
  end
  object dsPersonas: TDADataSource
    Left = 24
    Top = 286
  end
end