inherited frViewCliente: TfrViewCliente Width = 812 Height = 548 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 812 ExplicitHeight = 548 inherited dxLayoutControlContacto: TdxLayoutControl Width = 812 Height = 548 ExplicitWidth = 777 ExplicitHeight = 506 inherited PngSpeedButton1: TPngSpeedButton Left = 767 ExplicitLeft = 767 end inherited PngSpeedButton2: TPngSpeedButton Left = 767 ExplicitLeft = 767 end inherited PngSpeedButton3: TPngSpeedButton Left = 767 ExplicitLeft = 767 end inherited eCalle: TcxDBTextEdit Left = 121 Top = 250 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 7 ExplicitLeft = 121 ExplicitTop = 250 ExplicitWidth = 260 Width = 260 end inherited cbProvincia: TcxDBComboBox Left = 121 Top = 277 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 8 ExplicitLeft = 121 ExplicitTop = 277 ExplicitWidth = 159 Width = 159 end inherited cbPoblacion: TcxDBComboBox Left = 121 Top = 304 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 10 ExplicitLeft = 121 ExplicitTop = 304 ExplicitWidth = 260 Width = 260 end inherited eCodigoPostal: TcxDBTextEdit Left = 326 Top = 277 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 9 ExplicitLeft = 326 ExplicitTop = 277 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 = 121 Top = 82 DataBinding.DataField = 'NOMBRE_COMERCIAL' DataBinding.DataSource = dsContacto 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 = 166 Action = actBloqueoCliente DataBinding.DataField = 'BLOQUEADO' DataBinding.DataSource = dsContacto Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 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 = 370 end object cbGrupoCliente: TcxDBComboBox [10] Left = 121 Top = 109 DataBinding.DataField = 'GRUPO_CLIENTE' DataBinding.DataSource = dsContacto Properties.ImmediatePost = True Properties.OnInitPopup = cbGrupoClientePropertiesInitPopup Properties.OnValidate = cbGrupoClientePropertiesValidate 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 object eBloqueo: TcxDBTextEdit [11] Left = 121 Top = 193 DataBinding.DataField = 'MOTIVO_BLOQUEO' DataBinding.DataSource = dsContacto 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 = 260 end object cbFelicitacion: TcxDBCheckBox [12] Left = 421 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.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 eTlfParticular: TcxDBTextEdit Left = 516 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 14 ExplicitLeft = 516 ExplicitWidth = 238 Width = 238 end inherited eTlfTrabajo: TcxDBTextEdit Left = 516 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 13 ExplicitLeft = 516 ExplicitWidth = 238 Width = 238 end inherited eTlfMovil: TcxDBTextEdit Left = 516 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 15 ExplicitLeft = 516 ExplicitWidth = 238 Width = 238 end inherited eFax: TcxDBTextEdit Left = 516 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 16 ExplicitLeft = 516 ExplicitWidth = 238 Width = 238 end inherited eNombre: TcxDBTextEdit Left = 121 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 121 ExplicitWidth = 260 Width = 260 end inherited eNIFCIF: TcxDBTextEdit Left = 289 Properties.OnValidate = eNIFCIFPropertiesValidate Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 289 ExplicitWidth = 91 Width = 91 end inherited eMailTrabajo: TcxDBHyperLinkEdit Left = 516 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 17 ExplicitLeft = 516 ExplicitWidth = 209 Width = 209 end inherited eMailParticular: TcxDBHyperLinkEdit Left = 516 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 18 ExplicitLeft = 516 ExplicitWidth = 209 Width = 209 end inherited ePaginaWeb: TcxDBHyperLinkEdit Left = 516 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 19 ExplicitLeft = 516 ExplicitWidth = 209 Width = 209 end inherited eReferencia: TcxDBTextEdit Left = 121 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 121 end inherited ePersonaContacto: TcxDBTextEdit Left = 121 Top = 358 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 12 ExplicitLeft = 121 ExplicitTop = 358 ExplicitWidth = 260 Width = 260 end inherited ePais: TcxDBTextEdit Left = 121 Top = 331 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 ExplicitLeft = 121 ExplicitTop = 331 end inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup AlignVert = avClient inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup1: TdxLayoutGroup object dxLayoutControlContactoItem24: TdxLayoutItem CaptionOptions.Text = 'Nombre comercial:' Control = eNombreComercial ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem19: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = 'Grupo de cliente:' Control = cbGrupoCliente ControlOptions.ShowBorder = False end end object dxLayoutControlContactoGroup18: TdxLayoutGroup [1] CaptionOptions.Text = 'Bloqueo' ButtonOptions.Buttons = <> object dxLayoutControlContactoItem26: TdxLayoutItem AlignHorz = ahClient CaptionOptions.Text = ' ' CaptionOptions.Visible = False Control = cbClienteBloqueado ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem16: TdxLayoutItem CaptionOptions.Text = 'Motivo del bloqueo:' Control = eBloqueo ControlOptions.ShowBorder = False end end inherited dxLayoutControlContactoGroup3: TdxLayoutGroup CaptionOptions.Text = 'Domicilio fiscal' end end inherited dxLayoutControlContactoGroup6: TdxLayoutGroup object dxLayoutControlContactoGroup8: TdxLayoutGroup CaptionOptions.Text = 'Otros' ButtonOptions.Buttons = <> object dxLayoutControlContactoItem20: TdxLayoutItem CaptionOptions.Visible = 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