david
e918358544
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@286 c93665c3-c93d-084d-9b98-7d5f4a9c3376
468 lines
16 KiB
Plaintext
468 lines
16 KiB
Plaintext
inherited frViewCliente: TfrViewCliente
|
|
Width = 646
|
|
Height = 470
|
|
OnCreate = CustomViewCreate
|
|
OnDestroy = CustomViewDestroy
|
|
ExplicitWidth = 646
|
|
ExplicitHeight = 470
|
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
|
Width = 646
|
|
Height = 470
|
|
ExplicitWidth = 646
|
|
ExplicitHeight = 470
|
|
inherited PngSpeedButton1: TPngSpeedButton
|
|
Left = 585
|
|
ExplicitLeft = 585
|
|
end
|
|
inherited PngSpeedButton2: TPngSpeedButton
|
|
Left = 585
|
|
ExplicitLeft = 585
|
|
end
|
|
inherited PngSpeedButton3: TPngSpeedButton
|
|
Left = 585
|
|
ExplicitLeft = 585
|
|
end
|
|
object Label1: TLabel [3]
|
|
Left = 334
|
|
Top = 383
|
|
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
|
|
object Label2: TLabel [4]
|
|
Left = 334
|
|
Top = 280
|
|
Width = 271
|
|
Height = 39
|
|
Margins.Bottom = 0
|
|
Caption =
|
|
'Si procede, indique la direcci'#243'n de correo electr'#243'nico del clien' +
|
|
'te que se utilizar'#225' para enviar documentaci'#243'n (facturas, albaran' +
|
|
'es, recibos, etc.) por e-mail.'
|
|
WordWrap = True
|
|
end
|
|
object PngSpeedButton4: TPngSpeedButton [5]
|
|
Left = 585
|
|
Top = 325
|
|
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 = 121
|
|
Top = 374
|
|
TabOrder = 8
|
|
ExplicitLeft = 121
|
|
ExplicitTop = 374
|
|
ExplicitWidth = 175
|
|
Width = 175
|
|
end
|
|
inherited eProvincia: TcxDBTextEdit
|
|
Left = 121
|
|
Top = 428
|
|
TabOrder = 11
|
|
ExplicitLeft = 121
|
|
ExplicitTop = 428
|
|
ExplicitWidth = 167
|
|
Width = 167
|
|
end
|
|
inherited ePoblacion: TcxDBTextEdit
|
|
Left = 121
|
|
Top = 401
|
|
TabOrder = 9
|
|
ExplicitLeft = 121
|
|
ExplicitTop = 401
|
|
ExplicitWidth = 71
|
|
Width = 71
|
|
end
|
|
inherited eCodigoPostal: TcxDBTextEdit
|
|
Left = 239
|
|
Top = 401
|
|
TabOrder = 10
|
|
ExplicitLeft = 239
|
|
ExplicitTop = 401
|
|
end
|
|
inherited eObservaciones: TcxDBMemo
|
|
Top = 485
|
|
TabOrder = 21
|
|
ExplicitTop = 485
|
|
ExplicitWidth = 609
|
|
ExplicitHeight = 42
|
|
Height = 42
|
|
Width = 609
|
|
end
|
|
object eNombreComercial: TcxDBTextEdit [11]
|
|
Left = 121
|
|
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 [12]
|
|
Left = 22
|
|
Top = 290
|
|
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 [13]
|
|
Left = 121
|
|
Top = 109
|
|
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 = 4
|
|
Width = 87
|
|
end
|
|
object eBloqueo: TcxDBTextEdit [14]
|
|
Left = 121
|
|
Top = 317
|
|
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 [15]
|
|
Left = 334
|
|
Top = 428
|
|
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 = 274
|
|
end
|
|
object cbRapel: TcxDBCheckBox [16]
|
|
Left = 22
|
|
Top = 136
|
|
Caption = 'Este cliente tiene rapel'
|
|
DataBinding.DataField = 'RAPEL'
|
|
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 = 5
|
|
OnClick = actBloqueoClienteExecute
|
|
Width = 308
|
|
end
|
|
inherited eTlfParticular: TcxDBTextEdit
|
|
Left = 446
|
|
TabOrder = 13
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
object eMailAdministracion: TcxDBHyperLinkEdit [18]
|
|
Left = 446
|
|
Top = 325
|
|
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 = 19
|
|
Width = 133
|
|
end
|
|
inherited eTlfTrabajo: TcxDBTextEdit
|
|
Left = 446
|
|
TabOrder = 12
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eTlfMovil: TcxDBTextEdit
|
|
Left = 446
|
|
TabOrder = 14
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eFax: TcxDBTextEdit
|
|
Left = 446
|
|
TabOrder = 15
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 157
|
|
Width = 157
|
|
end
|
|
inherited eNombre: TcxDBTextEdit
|
|
Left = 121
|
|
ExplicitLeft = 121
|
|
ExplicitWidth = 135
|
|
Width = 135
|
|
end
|
|
inherited eNIFCIF: TcxDBTextEdit
|
|
Left = 231
|
|
ExplicitLeft = 231
|
|
ExplicitWidth = 58
|
|
Width = 58
|
|
end
|
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
|
Left = 446
|
|
Properties.Prefix = 'mailto:'
|
|
TabOrder = 16
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 158
|
|
Width = 158
|
|
end
|
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
|
Left = 446
|
|
Properties.Prefix = 'mailto:'
|
|
TabOrder = 17
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 128
|
|
Width = 128
|
|
end
|
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
|
Left = 446
|
|
TabOrder = 18
|
|
ExplicitLeft = 446
|
|
ExplicitWidth = 128
|
|
Width = 128
|
|
end
|
|
inherited eReferencia: TcxDBTextEdit
|
|
Left = 121
|
|
ExplicitLeft = 121
|
|
ExplicitWidth = 38
|
|
Width = 38
|
|
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 dxLayoutControlContactoItem19: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Grupo de cliente:'
|
|
Control = cbGrupoCliente
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControlContactoItem22: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = cbRapel
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControlContactoGroup18: TdxLayoutGroup [1]
|
|
Caption = 'Bloqueo de cliente'
|
|
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 dxLayoutControlContactoGroup14: TdxLayoutGroup
|
|
Caption = 'Correo electr'#243'nico de administraci'#243'n'
|
|
object dxLayoutControlContactoItem23: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = Label2
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControlContactoGroup15: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControlContactoItem27: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Correo administrativo:'
|
|
Control = eMailAdministracion
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControlContactoItem28: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahRight
|
|
ShowCaption = False
|
|
Control = PngSpeedButton4
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Acceso a la tienda web'
|
|
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
|
|
object actMandarCorreoAdministracion: TAction
|
|
Category = 'Correos'
|
|
OnExecute = actMandarCorreoAdministracionExecute
|
|
OnUpdate = actMandarCorreoAdministracionUpdate
|
|
end
|
|
end
|
|
end
|