inherited frViewCliente: TfrViewCliente Width = 777 Height = 506 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 777 ExplicitHeight = 506 inherited dxLayoutControlContacto: TdxLayoutControl Width = 777 Height = 506 ExplicitWidth = 777 ExplicitHeight = 506 inherited PngSpeedButton1: TPngSpeedButton Left = 733 ExplicitLeft = 733 end inherited PngSpeedButton2: TPngSpeedButton Left = 733 ExplicitLeft = 733 end inherited PngSpeedButton3: TPngSpeedButton Left = 733 ExplicitLeft = 733 end inherited eCalle: TcxDBTextEdit Left = 132 Top = 277 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 8 ExplicitLeft = 132 ExplicitTop = 277 ExplicitWidth = 260 Width = 260 end inherited cbProvincia: TcxDBComboBox Left = 132 Top = 304 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 9 ExplicitLeft = 132 ExplicitTop = 304 ExplicitWidth = 159 Width = 159 end inherited cbPoblacion: TcxDBComboBox Left = 132 Top = 331 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 ExplicitLeft = 132 ExplicitTop = 331 ExplicitWidth = 260 Width = 260 end inherited eCodigoPostal: TcxDBTextEdit Left = 309 Top = 304 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 10 ExplicitLeft = 309 ExplicitTop = 304 end inherited eObservaciones: TcxDBMemo Top = 415 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 21 ExplicitTop = 415 ExplicitWidth = 733 ExplicitHeight = 69 Height = 69 Width = 733 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 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 = 260 end object cbClienteBloqueado: TcxDBCheckBox [9] Left = 22 Top = 193 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 = 6 Width = 370 end object cbGrupoCliente: TcxDBComboBox [10] Left = 132 Top = 136 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 = 5 Width = 260 end object eBloqueo: TcxDBTextEdit [11] Left = 132 Top = 220 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 = 7 Width = 260 end object eCodigoAsignado: TcxDBTextEdit [12] Left = 132 Top = 109 DataBinding.DataField = 'CODIGO_ASIGNADO' 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 = 4 Width = 260 end inherited eTlfParticular: TcxDBTextEdit Left = 499 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 14 ExplicitLeft = 499 ExplicitWidth = 238 Width = 238 end inherited eTlfTrabajo: TcxDBTextEdit Left = 499 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 13 ExplicitLeft = 499 ExplicitWidth = 238 Width = 238 end inherited eTlfMovil: TcxDBTextEdit Left = 499 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 15 ExplicitLeft = 499 ExplicitWidth = 238 Width = 238 end inherited eFax: TcxDBTextEdit Left = 499 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 16 ExplicitLeft = 499 ExplicitWidth = 238 Width = 238 end inherited eNombre: TcxDBTextEdit Left = 132 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 132 ExplicitWidth = 260 Width = 260 end inherited eNIFCIF: TcxDBTextEdit Left = 283 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 283 ExplicitWidth = 91 Width = 91 end inherited eMailTrabajo: TcxDBHyperLinkEdit Left = 499 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 17 ExplicitLeft = 499 ExplicitWidth = 209 Width = 209 end inherited eMailParticular: TcxDBHyperLinkEdit Left = 499 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 18 ExplicitLeft = 499 ExplicitWidth = 209 Width = 209 end inherited ePaginaWeb: TcxDBHyperLinkEdit Left = 499 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 19 ExplicitLeft = 499 ExplicitWidth = 209 Width = 209 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 = 358 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 12 ExplicitLeft = 132 ExplicitTop = 358 ExplicitWidth = 260 Width = 260 end object cbFelicitacion: TcxDBCheckBox [24] Left = 404 Top = 280 Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente' DataBinding.DataField = 'FELICITACION' 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 = 20 Width = 370 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 dxLayoutControlContactoItem22: TdxLayoutItem Caption = 'C'#243'digo de proveedor:' Control = eCodigoAsignado 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 dxLayoutControlContactoGroup8: TdxLayoutGroup Caption = 'Otros' object dxLayoutControlContactoItem20: TdxLayoutItem ShowCaption = False Control = cbFelicitacion ControlOptions.ShowBorder = False end end end end inherited dxLayoutControlContactoGroup7: TdxLayoutGroup inherited dxLayoutControlContactoItem8: TdxLayoutItem ControlOptions.MinHeight = 10 end end end end inherited dsContacto: TDADataSource Left = 8 Top = 0 end inherited ActionList1: TActionList Left = 40 Top = 0 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 inherited ImageList1: TPngImageList Left = 72 Top = 0 end end