inherited frViewProveedor: TfrViewProveedor
  Width = 777
  Height = 651
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 777
  ExplicitHeight = 651
  inherited dxLayoutControlContacto: TdxLayoutControl
    Width = 777
    Height = 651
    ExplicitWidth = 917
    ExplicitHeight = 629
    inherited PngSpeedButton1: TPngSpeedButton
      Left = 732
      ExplicitLeft = 732
    end
    inherited PngSpeedButton2: TPngSpeedButton
      Left = 732
      ExplicitLeft = 732
    end
    inherited PngSpeedButton3: TPngSpeedButton
      Left = 732
      ExplicitLeft = 732
    end
    object Label2: TLabel [3]
      Left = 22
      Top = 469
      Width = 324
      Height = 39
      Margins.Bottom = 0
      Caption = 
        'Si procede, indique la direcci'#243'n de correo electr'#243'nico del prove' +
        'edor que se utilizar'#225' para enviar documentaci'#243'n (como pedidos) p' +
        'or e-mail.'
      WordWrap = True
    end
    object PngSpeedButton4: TPngSpeedButton [4]
      Left = 235
      Top = 514
      Width = 23
      Height = 22
      Action = actMandarCorreoTrabajo
      PngImage.Data = {
        89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
        610000000970485973000017120000171201679FD252000001964944415478DA
        63FCFFFF3F03232323033A58BCE9F87F647EAC9F258622B05E6C068034873B8A
        80D92019C62F8F194C1356339CDF399D91A0014B361FFB1FE6208AA299E1F323
        306D52F90CC5100C03566E3DFC3FD04E02A2F9F727064690462066006A66FC02
        64FFFAC8603451096E088A01CB361FFDFF8F819981183077D11A86FDAB7B18E1
        062CDD7CE27F14573FC3B2EF450CD13E86181ABE7DFFCDF0F5DB6F866FDFFE30
        1CB97897218AB38FC1B85B98E1DC8E698C600396000D8861696058FAB7116CC0
        94C5FBB0DAEC6CAECF70EED6238668E67AB057500CF8F0E10383A0A0208A0B90
        6D06B1BF01D9379E3C67387AFE09C389A37BD15CE06B01B47907434EAC13C3EF
        3F7F19662E3F8862BB898606C3EFDFFF1896EF3DCFA0A5C0CD306FE9265403FC
        9D20362F5CB71F4CE7C47AA01890D5BC164C7716F980D56018606BAC0656B079
        EF2986F82047AC6150DEB785A13CD911AC06C300234D05867DC72F30B8D818E1
        8DC2494B0E63F702281075D455884A07576EDEC134404A5480E1DAED07441900
        021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44
        AE426082}
      PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
    end
    object Label1: TLabel [5]
      Left = 276
      Top = 289
      Width = 880
      Height = 26
      Caption = 
        '(Al incluir un proveedor en la tienda, todos los materiales que ' +
        'sirve ese proveedor ser'#225'n tambi'#233'n incluidos)'
      WordWrap = True
    end
    inherited eCalle: TcxDBTextEdit
      Left = 134
      Top = 277
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 9
      ExplicitLeft = 134
      ExplicitTop = 277
      ExplicitWidth = 330
      Width = 330
    end
    inherited cbProvincia: TcxDBComboBox
      Left = 134
      Top = 304
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 10
      ExplicitLeft = 134
      ExplicitTop = 304
    end
    inherited cbPoblacion: TcxDBComboBox
      Left = 134
      Top = 331
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 12
      ExplicitLeft = 134
      ExplicitTop = 331
    end
    object cxDBCheckBox2: TcxDBCheckBox [9]
      Left = 22
      Top = 193
      Caption = 'El proveedor est'#225' homologado'
      DataBinding.DataField = 'HOMOLOGADO'
      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 = 7
      Width = 442
    end
    object eCertificaciones: TcxDBTextEdit [10]
      Left = 134
      Top = 220
      DataBinding.DataField = 'CERTIFICACION'
      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 = 8
      Width = 330
    end
    object cbGrupoProveedor: TcxDBComboBox [11]
      Left = 134
      Top = 136
      DataBinding.DataField = 'GRUPO_PROVEEDOR'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.OnInitPopup = cbGrupoProveedorPropertiesInitPopup
      Properties.OnValidate = cbGrupoProveedorPropertiesValidate
      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 = 5
      Width = 241
    end
    object cbDescripcionProveedor: TcxDBComboBox [12]
      Left = 134
      Top = 82
      DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
      DataBinding.DataSource = dsContacto
      Properties.ImmediatePost = True
      Properties.ImmediateUpdateText = True
      Properties.OnInitPopup = cbDescripcionProveedorPropertiesInitPopup
      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 = 3
      Width = 330
    end
    object eMailAdministracion: TcxDBHyperLinkEdit [13]
      Left = 134
      Top = 514
      DataBinding.DataField = 'EMAIL_ADMINISTRACION'
      DataBinding.DataSource = dsContacto
      Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged
      Properties.OnValidate = eMailAdministracionPropertiesValidate
      Properties.Prefix = 'mailto:'
      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 = 16
      Width = 186
    end
    object eCodigoAsignado: TcxDBTextEdit [14]
      Left = 134
      Top = 109
      DataBinding.DataField = 'CODIGO_ASIGNADO'
      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 = 4
      Width = 330
    end
    inherited eCodigoPostal: TcxDBTextEdit
      Left = 193
      Top = 304
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 11
      ExplicitLeft = 193
      ExplicitTop = 304
    end
    inherited eObservaciones: TcxDBMemo
      Top = 572
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 25
      ExplicitTop = 572
      ExplicitHeight = 35
      Height = 35
    end
    object cxDBCheckBox3: TcxDBCheckBox [17]
      Left = 175
      Top = 136
      Caption = 'Subcontrata'
      DataBinding.DataField = 'SUBCONTRATA'
      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 = 6
      Width = 83
    end
    inherited eTlfParticular: TcxDBTextEdit
      Left = 383
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 18
      ExplicitLeft = 383
      ExplicitWidth = 171
      Width = 171
    end
    inherited eTlfTrabajo: TcxDBTextEdit
      Left = 383
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 17
      ExplicitLeft = 383
      ExplicitWidth = 171
      Width = 171
    end
    inherited eTlfMovil: TcxDBTextEdit
      Left = 383
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 19
      ExplicitLeft = 383
      ExplicitWidth = 171
      Width = 171
    end
    inherited eFax: TcxDBTextEdit
      Left = 383
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 20
      ExplicitLeft = 383
      ExplicitWidth = 171
      Width = 171
    end
    inherited eNombre: TcxDBTextEdit
      Left = 134
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      ExplicitLeft = 134
      ExplicitWidth = 330
      Width = 330
    end
    inherited eNIFCIF: TcxDBTextEdit
      Left = 207
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      ExplicitLeft = 207
      ExplicitWidth = 226
      Width = 226
    end
    inherited eMailTrabajo: TcxDBHyperLinkEdit
      Left = 383
      Properties.Prefix = 'mailto:'
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 21
      ExplicitLeft = 383
      ExplicitWidth = 142
      Width = 142
    end
    inherited eMailParticular: TcxDBHyperLinkEdit
      Left = 383
      Properties.Prefix = 'mailto:'
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 22
      ExplicitLeft = 383
      ExplicitWidth = 142
      Width = 142
    end
    inherited ePaginaWeb: TcxDBHyperLinkEdit
      Left = 383
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 23
      ExplicitLeft = 383
      ExplicitWidth = 142
      Width = 142
    end
    inherited eReferencia: TcxDBTextEdit
      Left = 134
      Enabled = True
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      ExplicitLeft = 134
      ExplicitWidth = 51
      Width = 51
    end
    inherited ePersonaContacto: TcxDBTextEdit
      Left = 134
      Top = 412
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 15
      ExplicitLeft = 134
      ExplicitTop = 412
      ExplicitWidth = 330
      Width = 330
    end
    inherited cbPais: TcxDBComboBox
      Left = 134
      Top = 358
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 13
      ExplicitLeft = 134
      ExplicitTop = 358
      ExplicitWidth = 155
      Width = 155
    end
    inherited cbIdioma: TcxDBLookupComboBox
      Left = 134
      Top = 385
      TabOrder = 14
      ExplicitLeft = 134
      ExplicitTop = 385
      ExplicitWidth = 145
      Width = 145
    end
    object cxDBCheckBox1: TcxDBCheckBox [31]
      Left = 276
      Top = 262
      Caption = 'Incluir este proveedor en 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 = 24
      Width = 236
    end
    inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
      inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
        inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
          inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
            object dxLayoutControlContactoItem21: TdxLayoutItem
              Caption = 'Proveedor de...:'
              Visible = False
              Control = cbDescripcionProveedor
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem24: TdxLayoutItem
              Caption = 'C'#243'digo de cliente:'
              Visible = False
              Control = eCodigoAsignado
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoGroup15: TdxLayoutGroup
              ShowCaption = False
              Visible = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControlContactoItem20: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Grupo de proveedor'
                Visible = False
                Control = cbGrupoProveedor
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControlContactoItem26: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahRight
                ShowCaption = False
                Control = cxDBCheckBox3
                ControlOptions.ShowBorder = False
              end
            end
          end
          object dxLayoutControlContactoGroup14: TdxLayoutGroup [1]
            Caption = 'Homologaci'#243'n'
            Visible = False
            object dxLayoutControlContactoItem22: TdxLayoutItem
              Caption = 'El proveedor est'#225' homologado'
              ShowCaption = False
              Control = cxDBCheckBox2
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoItem23: TdxLayoutItem
              Caption = 'Tipo de homologaci'#243'n:'
              Control = eCertificaciones
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControlContactoGroup24: TdxLayoutGroup
            Caption = 'Correo electr'#243'nico de administraci'#243'n'
            object dxLayoutControlContactoItem33: TdxLayoutItem
              ShowCaption = False
              Control = Label2
              ControlOptions.AutoColor = True
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControlContactoGroup35: TdxLayoutGroup
              ShowCaption = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControlContactoItem34: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Correo administrativo:'
                Control = eMailAdministracion
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControlContactoItem36: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahRight
                ShowCaption = False
                Control = PngSpeedButton4
                ControlOptions.ShowBorder = False
              end
            end
          end
        end
        inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
          inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
            inherited dxLayoutControlContactoItem9: TdxLayoutItem
              Visible = False
            end
          end
          object dxLayoutControlContactoItem27: TdxLayoutItem
            ShowCaption = False
            Control = cxDBCheckBox1
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControlContactoItem28: TdxLayoutItem
            ShowCaption = False
            Control = Label1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
      end
    end
  end
  inherited dsContacto: TDADataSource
    Left = 32
    Top = 88
  end
  inherited ActionList1: TActionList
    object actMandarCorreoAdministrativo: TAction
      OnExecute = actMandarCorreoAdministrativoExecute
      OnUpdate = actMandarCorreoAdministrativoUpdate
    end
  end
end