inherited frViewClienteDatosDistribuidor: TfrViewClienteDatosDistribuidor Width = 1123 Height = 650 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy OnShow = CustomViewShow ExplicitWidth = 1123 ExplicitHeight = 650 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 1123 Height = 650 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth] DesignSize = ( 1123 650) object cbEsDistribuidor: TcxDBCheckBox Left = 22 Top = 28 Action = actEsDistribuidor DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataSource = dsDatosDistribuidor 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 = 0 Width = 180 end object eUsuario: TcxDBTextEdit Left = 91 Top = 55 DataBinding.DataField = 'DIST_EMAIL' DataBinding.DataSource = dsDatosDistribuidor Enabled = False 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 = 3 Width = 305 end object eContrasena: TcxDBTextEdit Left = 91 Top = 82 DataBinding.DataField = 'DIST_PASSWORD' DataBinding.DataSource = dsDatosDistribuidor Enabled = False 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 = 4 Width = 204 end object eBloqueado: TcxDBCheckBox Left = 208 Top = 28 Caption = ' Bloqueado' DataBinding.DataField = 'BLOQUEADO' DataBinding.DataSource = dsDatosDistribuidor Enabled = False 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 = 1 OnClick = actBloqueoClienteExecute Width = 110 end object eFormaPagoDistribuidor: TcxDBMemo Left = 22 Top = 196 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'DIST_FORMA_PAGO' DataBinding.DataSource = dsDatosDistribuidor Enabled = False Properties.ScrollBars = ssVertical 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 Height = 50 Width = 901 end object eValidezDistribuidor: TcxDBTextEdit Left = 22 Top = 139 DataBinding.DataField = 'DIST_VALIDEZ' DataBinding.DataSource = dsDatosDistribuidor Enabled = False 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 = 5 Width = 855 end object eNotasDistribuidor: TcxDBMemo Left = 22 Top = 282 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'DIST_NOTAS' DataBinding.DataSource = dsDatosDistribuidor Enabled = False Properties.ScrollBars = ssVertical 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 Height = 50 Width = 952 end object eLOPDDistribuidor: TcxDBMemo Left = 22 Top = 368 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'DIST_LOPD' DataBinding.DataSource = dsDatosDistribuidor Enabled = False Properties.ScrollBars = ssVertical 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 Height = 50 Width = 952 end object eCondicionesDistribuidor: TcxDBMemo Left = 22 Top = 454 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'DIST_CONDICIONES' DataBinding.DataSource = dsDatosDistribuidor Enabled = False Properties.ScrollBars = ssVertical 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 = 9 Height = 100 Width = 952 end object eMotivoBloqueo: TcxDBTextEdit Left = 421 Top = 28 DataBinding.DataField = 'MOTIVO_BLOQUEO' DataBinding.DataSource = dsDatosDistribuidor Enabled = False 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 = 2 Width = 300 end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group10: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group8: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group2: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group3: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Usuario y contrase'#241'a' object dxLayoutControl1Group7: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item4: TdxLayoutItem Caption = ' ' ShowCaption = False Control = cbEsDistribuidor ControlOptions.ShowBorder = False end object dlbloquear: TdxLayoutItem Enabled = False ShowCaption = False Control = eBloqueado ControlOptions.ShowBorder = False end object dlmotivo: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Motivo de bloqueo:' Enabled = False Control = eMotivoBloqueo ControlOptions.ShowBorder = False end end object dlusuario: TdxLayoutItem Caption = 'email acceso:' Enabled = False Control = eUsuario ControlOptions.ShowBorder = False end object dlcontrasena: TdxLayoutItem Caption = 'Contrase'#241'a:' Enabled = False Control = eContrasena ControlOptions.ShowBorder = False end end object dlvalidez: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Validez presupuestos por defecto' Enabled = False Visible = False object dxLayoutControl1Item1: TdxLayoutItem Control = eValidezDistribuidor ControlOptions.ShowBorder = False end end object dlformapago: TdxLayoutGroup Caption = 'Forma de pago por defecto' Enabled = False Visible = False object dxLayoutControl1Item3: TdxLayoutItem Control = eFormaPagoDistribuidor ControlOptions.ShowBorder = False end end end object dlnotas: TdxLayoutGroup Caption = 'Notas por defecto' Enabled = False Visible = False object dxLayoutControl1Item2: TdxLayoutItem Control = eNotasDistribuidor ControlOptions.ShowBorder = False end end end object dllopd: TdxLayoutGroup Caption = 'LOPD del distribuidor' Enabled = False Visible = False object dxLayoutControl1Item5: TdxLayoutItem Control = eLOPDDistribuidor ControlOptions.ShowBorder = False end end end object dlcondiciones: TdxLayoutGroup Caption = 'Condiciones por defecto' Enabled = False Visible = False object dxLayoutControl1Item6: TdxLayoutItem Control = eCondicionesDistribuidor ControlOptions.ShowBorder = False end end end end object dsDatosDistribuidor: TDADataSource Left = 8 Top = 8 end object ActionListDist: TActionList Left = 8 Top = 48 object actEsDistribuidor: TAction Category = 'Distribuidor' Caption = ' Este cliente es distribuidor' ImageIndex = 1 OnExecute = actEsDistribuidorExecute end object actBloqueoCliente: TAction Category = 'Distribuidor' Caption = 'Este cliente est'#225' bloqueado' OnExecute = actBloqueoClienteExecute end end end