inherited frViewProveedor: TfrViewProveedor Width = 917 Height = 629 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 917 ExplicitHeight = 629 inherited dxLayoutControlContacto: TdxLayoutControl Width = 917 Height = 629 ExplicitWidth = 917 ExplicitHeight = 629 inherited PngSpeedButton1: TPngSpeedButton Left = 872 ExplicitLeft = 872 end inherited PngSpeedButton2: TPngSpeedButton Left = 872 ExplicitLeft = 872 end inherited PngSpeedButton3: TPngSpeedButton Left = 872 ExplicitLeft = 872 end object Label1: TLabel [3] Left = 569 Top = 262 Width = 322 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 object Label2: TLabel [4] Left = 22 Top = 442 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 [5] Left = 528 Top = 487 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 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 = 487 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 = 15 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 = 486 Top = 304 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 ExplicitLeft = 486 ExplicitTop = 304 end inherited eObservaciones: TcxDBMemo Top = 545 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 24 ExplicitTop = 545 ExplicitHeight = 55 Height = 55 end object cxDBCheckBox3: TcxDBCheckBox [17] Left = 468 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 object cxDBCheckBox1: TcxDBCheckBox [18] Left = 569 Top = 294 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 = 23 Width = 236 end inherited eTlfParticular: TcxDBTextEdit Left = 676 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 17 ExplicitLeft = 676 ExplicitWidth = 171 Width = 171 end inherited eTlfTrabajo: TcxDBTextEdit Left = 676 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 16 ExplicitLeft = 676 ExplicitWidth = 171 Width = 171 end inherited eTlfMovil: TcxDBTextEdit Left = 676 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 18 ExplicitLeft = 676 ExplicitWidth = 171 Width = 171 end inherited eFax: TcxDBTextEdit Left = 676 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 19 ExplicitLeft = 676 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 = 271 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 271 ExplicitWidth = 226 Width = 226 end inherited eMailTrabajo: TcxDBHyperLinkEdit Left = 676 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 20 ExplicitLeft = 676 ExplicitWidth = 142 Width = 142 end inherited eMailParticular: TcxDBHyperLinkEdit Left = 676 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 21 ExplicitLeft = 676 ExplicitWidth = 142 Width = 142 end inherited ePaginaWeb: TcxDBHyperLinkEdit Left = 676 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 22 ExplicitLeft = 676 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 = 385 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 14 ExplicitLeft = 134 ExplicitTop = 385 ExplicitWidth = 330 Width = 330 end object ePais: TcxDBTextEdit [30] Left = 134 Top = 358 DataBinding.DataField = 'PAIS' DataBinding.DataSource = dsContacto Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D 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 = 391 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 inherited dxLayoutControlContactoGroup3: TdxLayoutGroup object dxLayoutControlContactoItem27: TdxLayoutItem [3] Caption = 'Pa'#237's:' Control = ePais 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 dxLayoutControlContactoItem19: TdxLayoutItem ShowCaption = False Control = Label1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem16: TdxLayoutItem ShowCaption = False Control = cxDBCheckBox1 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