david
d07c52d7a4
- Duplicar habilitado y funcionando - Se ha ocultado la impresión del listado de contactos. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@173 0c75b7a4-871f-7646-8a2f-f78d34cc349f
380 lines
12 KiB
Plaintext
380 lines
12 KiB
Plaintext
inherited frViewCliente: TfrViewCliente
|
|
Width = 742
|
|
Height = 470
|
|
OnCreate = CustomViewCreate
|
|
OnDestroy = CustomViewDestroy
|
|
ExplicitWidth = 742
|
|
ExplicitHeight = 470
|
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
|
Width = 742
|
|
Height = 470
|
|
ExplicitWidth = 646
|
|
ExplicitHeight = 470
|
|
inherited PngSpeedButton1: TPngSpeedButton
|
|
Left = 681
|
|
ExplicitLeft = 681
|
|
end
|
|
inherited PngSpeedButton2: TPngSpeedButton
|
|
Left = 681
|
|
ExplicitLeft = 681
|
|
end
|
|
inherited PngSpeedButton3: TPngSpeedButton
|
|
Left = 681
|
|
ExplicitLeft = 681
|
|
end
|
|
object Label1: TLabel [3]
|
|
Left = 428
|
|
Top = 280
|
|
Width = 269
|
|
Height = 39
|
|
Margins.Bottom = 0
|
|
Caption =
|
|
'Para que el cliente pueda tener acceso a la tienda web, obligato' +
|
|
'riamente debe tener indicado un correo electr'#243'nico de trabajo'
|
|
WordWrap = True
|
|
end
|
|
inherited eCalle: TcxDBTextEdit
|
|
Left = 132
|
|
Top = 277
|
|
TabOrder = 8
|
|
ExplicitLeft = 132
|
|
ExplicitTop = 277
|
|
ExplicitWidth = 175
|
|
Width = 175
|
|
end
|
|
inherited eProvincia: TcxDBTextEdit
|
|
Left = 132
|
|
Top = 331
|
|
TabOrder = 11
|
|
ExplicitLeft = 132
|
|
ExplicitTop = 331
|
|
ExplicitWidth = 167
|
|
Width = 167
|
|
end
|
|
inherited ePoblacion: TcxDBTextEdit
|
|
Left = 132
|
|
Top = 304
|
|
TabOrder = 9
|
|
ExplicitLeft = 132
|
|
ExplicitTop = 304
|
|
ExplicitWidth = 71
|
|
Width = 71
|
|
end
|
|
inherited eCodigoPostal: TcxDBTextEdit
|
|
Left = 333
|
|
Top = 304
|
|
TabOrder = 10
|
|
ExplicitLeft = 333
|
|
ExplicitTop = 304
|
|
end
|
|
inherited eObservaciones: TcxDBMemo
|
|
Top = 415
|
|
TabOrder = 21
|
|
ExplicitTop = 415
|
|
ExplicitWidth = 609
|
|
ExplicitHeight = 42
|
|
Height = 42
|
|
Width = 609
|
|
end
|
|
object eNombreComercial: TcxDBTextEdit [9]
|
|
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 = 143
|
|
end
|
|
object cbClienteBloqueado: TcxDBCheckBox [10]
|
|
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 = 163
|
|
end
|
|
object cbGrupoCliente: TcxDBComboBox [11]
|
|
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 = 87
|
|
end
|
|
object eBloqueo: TcxDBTextEdit [12]
|
|
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 = 113
|
|
end
|
|
object cxDBCheckBox1: TcxDBCheckBox [13]
|
|
Left = 428
|
|
Top = 325
|
|
Caption = 'Permitir el acceso de este cliente a 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 = 20
|
|
Width = 249
|
|
end
|
|
inherited eTlfParticular: TcxDBTextEdit
|
|
Left = 523
|
|
TabOrder = 14
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eTlfTrabajo: TcxDBTextEdit
|
|
Left = 523
|
|
TabOrder = 13
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eTlfMovil: TcxDBTextEdit
|
|
Left = 523
|
|
TabOrder = 15
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eFax: TcxDBTextEdit
|
|
Left = 523
|
|
TabOrder = 16
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eNombre: TcxDBTextEdit
|
|
Left = 132
|
|
ExplicitLeft = 132
|
|
ExplicitWidth = 135
|
|
Width = 135
|
|
end
|
|
inherited eNIFCIF: TcxDBTextEdit
|
|
Left = 291
|
|
ExplicitLeft = 291
|
|
ExplicitWidth = 58
|
|
Width = 58
|
|
end
|
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
|
Left = 523
|
|
Properties.Prefix = 'mailto:'
|
|
TabOrder = 17
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 128
|
|
Width = 128
|
|
end
|
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
|
Left = 523
|
|
Properties.Prefix = 'mailto:'
|
|
TabOrder = 18
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 128
|
|
Width = 128
|
|
end
|
|
object eCodigoAsignado: TcxDBTextEdit [22]
|
|
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 = 227
|
|
end
|
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
|
Left = 523
|
|
TabOrder = 19
|
|
ExplicitLeft = 523
|
|
ExplicitWidth = 128
|
|
Width = 128
|
|
end
|
|
inherited eReferencia: TcxDBTextEdit
|
|
Left = 132
|
|
ExplicitLeft = 132
|
|
ExplicitWidth = 38
|
|
Width = 38
|
|
end
|
|
inherited ePersonaContacto: TcxDBTextEdit
|
|
Left = 132
|
|
Top = 358
|
|
TabOrder = 12
|
|
ExplicitLeft = 132
|
|
ExplicitTop = 358
|
|
ExplicitWidth = 256
|
|
Width = 256
|
|
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 dxLayoutControlContactoGroup10: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Acceso a la tienda web'
|
|
Visible = False
|
|
object dxLayoutControlContactoItem21: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = Label1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControlContactoItem20: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = cxDBCheckBox1
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
|
|
inherited dxLayoutControlContactoItem8: TdxLayoutItem
|
|
ControlOptions.MinHeight = 10
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited dsContacto: TDADataSource
|
|
Top = 144
|
|
end
|
|
inherited ActionList1: TActionList
|
|
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
|
|
end
|