inherited frViewCliente: TfrViewCliente
  Width = 646
  Height = 470
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 646
  ExplicitHeight = 470
  inherited dxLayoutControlContacto: TdxLayoutControl
    Width = 646
    Height = 470
    ExplicitWidth = 646
    ExplicitHeight = 470
    inherited PngSpeedButton1: TPngSpeedButton
      Left = 584
      Top = 219
      ExplicitLeft = 584
      ExplicitTop = 219
    end
    inherited PngSpeedButton2: TPngSpeedButton
      Left = 584
      Top = 191
      ExplicitLeft = 584
      ExplicitTop = 191
    end
    inherited PngSpeedButton3: TPngSpeedButton
      Left = 584
      Top = 163
      ExplicitLeft = 584
      ExplicitTop = 163
    end
    object Label1: TLabel [3]
      Left = 329
      Top = 277
      Width = 269
      Height = 39
      Margins.Bottom = 0
      Caption = 
        'Para que el cliente pueda tener acceso a la tienda web, obligato' +
        'riamente debe tener indicado un correo electr'#243'nico de trabajo'
      WordWrap = True
    end
    inherited eCalle: TcxDBTextEdit
      Left = 121
      Top = 268
      TabOrder = 7
      ExplicitLeft = 121
      ExplicitTop = 268
      ExplicitWidth = 175
      Width = 175
    end
    inherited eProvincia: TcxDBTextEdit
      Left = 121
      Top = 322
      TabOrder = 10
      ExplicitLeft = 121
      ExplicitTop = 322
      ExplicitWidth = 167
      Width = 167
    end
    inherited ePoblacion: TcxDBTextEdit
      Left = 121
      Top = 295
      TabOrder = 8
      ExplicitLeft = 121
      ExplicitTop = 295
      ExplicitWidth = 71
      Width = 71
    end
    inherited eCodigoPostal: TcxDBTextEdit
      Left = 234
      Top = 295
      TabOrder = 9
      ExplicitLeft = 234
      ExplicitTop = 295
    end
    inherited eObservaciones: TcxDBMemo
      Top = 406
      TabOrder = 20
      ExplicitTop = 406
      ExplicitWidth = 609
      ExplicitHeight = 42
      Height = 42
      Width = 609
    end
    object eNombreComercial: TcxDBTextEdit [9]
      Left = 121
      Top = 79
      DataBinding.DataField = 'NOMBRE_COMERCIAL'
      DataBinding.DataSource = dsContacto
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      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 = 3
      Width = 143
    end
    object cbClienteBloqueado: TcxDBCheckBox [10]
      Left = 22
      Top = 184
      Action = actBloqueoCliente
      DataBinding.DataField = 'BLOQUEADO'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      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 = 5
      Width = 163
    end
    object cbGrupoCliente: TcxDBComboBox [11]
      Left = 121
      Top = 106
      DataBinding.DataField = 'GRUPO_CLIENTE'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.OnInitPopup = cbGrupoClientePropertiesInitPopup
      Properties.OnValidate = cbGrupoClientePropertiesValidate
      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 = 4
      Width = 87
    end
    object eBloqueo: TcxDBTextEdit [12]
      Left = 121
      Top = 211
      DataBinding.DataField = 'MOTIVO_BLOQUEO'
      DataBinding.DataSource = dsContacto
      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 = 6
      Width = 113
    end
    inherited eTlfParticular: TcxDBTextEdit
      Left = 424
      Top = 52
      TabOrder = 12
      ExplicitLeft = 424
      ExplicitTop = 52
      ExplicitWidth = 157
      Width = 157
    end
    object cxDBCheckBox1: TcxDBCheckBox [14]
      Left = 329
      Top = 322
      Caption = 'Permitir el acceso de este cliente a la tienda web'
      DataBinding.DataField = 'TIENDA_WEB'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.MultiLine = True
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      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 = 18
      Width = 275
    end
    inherited eTlfTrabajo: TcxDBTextEdit
      Left = 424
      Top = 25
      TabOrder = 11
      ExplicitLeft = 424
      ExplicitTop = 25
      ExplicitWidth = 157
      Width = 157
    end
    inherited eTlfMovil: TcxDBTextEdit
      Left = 424
      Top = 79
      TabOrder = 13
      ExplicitLeft = 424
      ExplicitTop = 79
      ExplicitWidth = 157
      Width = 157
    end
    inherited eFax: TcxDBTextEdit
      Left = 424
      Top = 106
      TabOrder = 14
      ExplicitLeft = 424
      ExplicitTop = 106
      ExplicitWidth = 157
      Width = 157
    end
    inherited eNombre: TcxDBTextEdit
      Left = 121
      Top = 52
      ExplicitLeft = 121
      ExplicitTop = 52
      ExplicitWidth = 135
      Width = 135
    end
    inherited eNIFCIF: TcxDBTextEdit
      Left = 228
      Top = 25
      ExplicitLeft = 228
      ExplicitTop = 25
      ExplicitWidth = 58
      Width = 58
    end
    inherited eMailTrabajo: TcxDBHyperLinkEdit
      Left = 424
      Top = 163
      Properties.Prefix = 'mailto:'
      TabOrder = 15
      ExplicitLeft = 424
      ExplicitTop = 163
      ExplicitWidth = 128
      Width = 128
    end
    inherited eMailParticular: TcxDBHyperLinkEdit
      Left = 424
      Top = 191
      Properties.Prefix = 'mailto:'
      TabOrder = 16
      ExplicitLeft = 424
      ExplicitTop = 191
      ExplicitWidth = 128
      Width = 128
    end
    inherited ePaginaWeb: TcxDBHyperLinkEdit
      Left = 424
      Top = 218
      TabOrder = 17
      ExplicitLeft = 424
      ExplicitTop = 218
      ExplicitWidth = 128
      Width = 128
    end
    inherited eReferencia: TcxDBTextEdit
      Left = 121
      Top = 25
      ExplicitLeft = 121
      ExplicitTop = 25
      ExplicitWidth = 38
      Width = 38
    end
    object cbRapel: TcxDBCheckBox [24]
      Left = 22
      Top = 379
      Caption = 'Este cliente tiene rapel'
      DataBinding.DataField = 'RAPEL'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      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 = 19
      OnClick = actBloqueoClienteExecute
      Width = 285
    end
    inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
      AutoAligns = [aaHorizontal]
      AlignVert = avBottom
      inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
        inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
          inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
            object dxLayoutControlContactoItem24: TdxLayoutItem
              Caption = 'Nombre comercial:'
              Control = eNombreComercial
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem19: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Grupo de cliente:'
              Control = cbGrupoCliente
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControlContactoGroup18: TdxLayoutGroup [1]
            Caption = 'Bloqueo'
            object dxLayoutControlContactoItem26: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = ' '
              ShowCaption = False
              Control = cbClienteBloqueado
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem16: TdxLayoutItem
              Caption = 'Motivo del bloqueo:'
              Control = eBloqueo
              ControlOptions.ShowBorder = False
            end
          end
          inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
            Caption = 'Domicilio fiscal'
          end
        end
        inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
          object dxLayoutControlContactoGroup10: TdxLayoutGroup
            AutoAligns = [aaHorizontal]
            AlignVert = avClient
            Caption = 'Acceso a la tienda web'
            object dxLayoutControlContactoItem21: TdxLayoutItem
              ShowCaption = False
              Control = Label1
              ControlOptions.AutoColor = True
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem20: TdxLayoutItem
              ShowCaption = False
              Control = cxDBCheckBox1
              ControlOptions.ShowBorder = False
            end
          end
        end
      end
      inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
        object dxLayoutControlContactoItem22: TdxLayoutItem [0]
          ShowCaption = False
          Control = cbRapel
          ControlOptions.ShowBorder = False
        end
        inherited dxLayoutControlContactoItem8: TdxLayoutItem
          ControlOptions.MinHeight = 10
        end
      end
    end
  end
  inherited dsContacto: TDADataSource
    Top = 144
  end
  inherited ActionList1: TActionList
    inherited actMandarCorreoParticular: TAction
      Category = 'Correos'
    end
    inherited actMandarCorreoTrabajo: TAction
      Category = 'Correos'
    end
    inherited actVerPaginaWeb: TAction
      Category = 'Web'
    end
    object actBloqueoCliente: TAction
      Category = 'Bloqueo'
      Caption = 'Este cliente est'#225' bloqueado'
      OnExecute = actBloqueoClienteExecute
    end
  end
end
