AbetoDesign_FactuGES2/Source/Modulos/Contactos/Views/uViewCliente.dfm

inherited frViewCliente: TfrViewCliente
  Width = 646
  Height = 563
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  OnShow = CustomViewShow
  ExplicitWidth = 646
  ExplicitHeight = 563
  inherited dxLayoutControlContacto: TdxLayoutControl
    Width = 646
    Height = 563
    ExplicitWidth = 646
    ExplicitHeight = 563
    inherited PngSpeedButton1: TPngSpeedButton
      Left = 582
      ExplicitLeft = 582
    end
    inherited PngSpeedButton2: TPngSpeedButton
      Left = 582
      ExplicitLeft = 582
    end
    inherited PngSpeedButton3: TPngSpeedButton
      Left = 582
      ExplicitLeft = 582
    end
    inherited eCalle: TcxDBTextEdit
      Left = 132
      Top = 220
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 7
      ExplicitLeft = 132
      ExplicitTop = 220
    end
    inherited cbProvincia: TcxDBComboBox
      Left = 132
      Top = 247
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 8
      ExplicitLeft = 132
      ExplicitTop = 247
      ExplicitWidth = 121
      Width = 121
    end
    inherited cbPoblacion: TcxDBComboBox
      Left = 132
      Top = 274
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 10
      ExplicitLeft = 132
      ExplicitTop = 274
      ExplicitWidth = 213
      Width = 213
    end
    inherited eCodigoPostal: TcxDBTextEdit
      Left = 258
      Top = 247
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 9
      ExplicitLeft = 258
      ExplicitTop = 247
    end
    inherited eTlfParticular: TcxDBTextEdit
      Left = 439
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 15
      ExplicitLeft = 439
      ExplicitWidth = 233
      Width = 233
    end
    object eNombreComercial: TcxDBTextEdit [8]
      Left = 132
      Top = 82
      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
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 3
      Width = 143
    end
    object cbClienteBloqueado: TcxDBCheckBox [9]
      Left = 22
      Top = 358
      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
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 12
      Width = 163
    end
    object cbGrupoCliente: TcxDBComboBox [10]
      Left = 132
      Top = 136
      DataBinding.DataField = 'GRUPO_CLIENTE'
      DataBinding.DataSource = dsContacto
      Enabled = False
      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.LookAndFeel.SkinName = ''
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 5
      Width = 87
    end
    object eBloqueo: TcxDBTextEdit [11]
      Left = 132
      Top = 385
      DataBinding.DataField = 'MOTIVO_BLOQUEO'
      DataBinding.DataSource = dsContacto
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 13
      Width = 113
    end
    object eCodigoAsignado: TcxDBTextEdit [12]
      Left = 132
      Top = 109
      DataBinding.DataField = 'CODIGO_ASIGNADO'
      DataBinding.DataSource = dsContacto
      Enabled = False
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 4
      Width = 227
    end
    object cbProcedenciaCliente: TcxDBComboBox [13]
      Left = 132
      Top = 163
      DataBinding.DataField = 'PROCEDENCIA_CLIENTE'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.OnInitPopup = cbProcedenciaClientePropertiesInitPopup
      Properties.OnValidate = cbProcedenciaClientePropertiesValidate
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 6
      Width = 211
    end
    inherited eTlfTrabajo: TcxDBTextEdit
      Left = 439
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 14
      ExplicitLeft = 439
      ExplicitWidth = 233
      Width = 233
    end
    inherited eTlfMovil: TcxDBTextEdit
      Left = 439
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 16
      ExplicitLeft = 439
      ExplicitWidth = 233
      Width = 233
    end
    inherited eFax: TcxDBTextEdit
      Left = 439
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 17
      ExplicitLeft = 439
      ExplicitWidth = 233
      Width = 233
    end
    inherited eNombre: TcxDBTextEdit
      Left = 132
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      ExplicitLeft = 132
      ExplicitWidth = 135
      Width = 135
    end
    inherited eNIFCIF: TcxDBTextEdit
      Left = 242
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      ExplicitLeft = 242
      ExplicitWidth = 59
      Width = 59
    end
    inherited eMailTrabajo: TcxDBHyperLinkEdit
      Left = 439
      Properties.Prefix = 'mailto:'
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 18
      ExplicitLeft = 439
      ExplicitWidth = 204
      Width = 204
    end
    inherited eMailParticular: TcxDBHyperLinkEdit
      Left = 439
      Properties.Prefix = 'mailto:'
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 19
      ExplicitLeft = 439
      ExplicitWidth = 204
      Width = 204
    end
    inherited ePaginaWeb: TcxDBHyperLinkEdit
      Left = 439
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 20
      ExplicitLeft = 439
      ExplicitWidth = 204
      Width = 204
    end
    inherited eReferencia: TcxDBTextEdit
      Left = 132
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      ExplicitLeft = 132
    end
    inherited ePersonaContacto: TcxDBTextEdit
      Left = 132
      Top = 301
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 11
      ExplicitLeft = 132
      ExplicitTop = 301
    end
    inherited frViewTienda1: TfrViewTienda
      Left = 344
      Width = 270
      AutoSize = True
      TabOrder = 21
      ExplicitLeft = 344
      ExplicitWidth = 270
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 270
        ExplicitWidth = 270
        inherited cbTienda: TcxComboBox
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
        end
      end
    end
    inherited frViewObservaciones1: TfrViewObservaciones
      Top = 442
      Width = 585
      Height = 127
      TabOrder = 22
      ExplicitTop = 442
      ExplicitWidth = 585
      ExplicitHeight = 127
      inherited memObservaciones: TcxDBMemo
        DataBinding.DataSource = dsContacto
        ExplicitWidth = 585
        ExplicitHeight = 127
        Height = 127
        Width = 585
      end
    end
    inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
      AutoAligns = [aaHorizontal]
      inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
        inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
          inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
            object dxLayoutControlContactoItem24: TdxLayoutItem
              Caption = 'Nombre comercial:'
              Control = eNombreComercial
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem22: TdxLayoutItem
              Caption = 'C'#243'digo de proveedor:'
              Enabled = False
              Visible = False
              Control = eCodigoAsignado
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem19: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Grupo de cliente:'
              Enabled = False
              Visible = False
              Control = cbGrupoCliente
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem23: TdxLayoutItem
              Caption = 'Procedencia cliente:'
              Control = cbProcedenciaCliente
              ControlOptions.ShowBorder = False
            end
          end
          inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
            Caption = 'Domicilio'
          end
          object dxLayoutControlContactoGroup18: TdxLayoutGroup
            Caption = 'Bloqueo'
            Visible = False
            object dxLayoutControlContactoItem26: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = ' '
              ShowCaption = False
              Control = cbClienteBloqueado
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem27: TdxLayoutItem
              Caption = 'Motivo del bloqueo'
              Control = eBloqueo
              ControlOptions.ShowBorder = False
            end
          end
        end
        inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
          inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
            Caption = 'El cliente pertenece a la tienda'
          end
        end
      end
      inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
        inherited dxLayoutControlContactoItem8: TdxLayoutItem
          AutoAligns = [aaHorizontal]
        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