Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
67aeac2920
Tecsitel_FactuGES2/Source/Modulos/Contactos/Views/uViewCliente.dfm
david 67aeac2920 Provincias y poblaciones 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@448 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2008-06-09 18:10:00 +00:00

379 lines
12 KiB
Plaintext
Raw Blame History

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 = 732
ExplicitLeft = 732
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 732
ExplicitLeft = 732
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 732
ExplicitLeft = 732
end
object Label1: TLabel [3]
Left = 410
Top = 262
Width = 161
Height = 65
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 = 260
Width = 260
end
inherited cbProvincia: TcxDBComboBox
Left = 132
Top = 304
Properties.OnValidate = nil
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 304
ExplicitWidth = 159
Width = 159
end
inherited cbPoblacion: TcxDBComboBox
Left = 132
Top = 331
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 331
ExplicitWidth = 260
Width = 260
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 327
Top = 304
TabOrder = 10
ExplicitLeft = 327
ExplicitTop = 304
end
inherited eObservaciones: TcxDBMemo
Top = 415
TabOrder = 21
ExplicitTop = 415
ExplicitWidth = 733
ExplicitHeight = 69
Height = 69
Width = 733
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 = 260
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 = 370
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 = 260
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 = 260
end
object eCodigoAsignado: TcxDBTextEdit [13]
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 = 517
TabOrder = 14
ExplicitLeft = 517
ExplicitWidth = 238
Width = 238
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 517
TabOrder = 13
ExplicitLeft = 517
ExplicitWidth = 238
Width = 238
end
inherited eTlfMovil: TcxDBTextEdit
Left = 517
TabOrder = 15
ExplicitLeft = 517
ExplicitWidth = 238
Width = 238
end
inherited eFax: TcxDBTextEdit
Left = 517
TabOrder = 16
ExplicitLeft = 517
ExplicitWidth = 238
Width = 238
end
inherited eNombre: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
ExplicitWidth = 260
Width = 260
end
inherited eNIFCIF: TcxDBTextEdit
Left = 301
ExplicitLeft = 301
ExplicitWidth = 91
Width = 91
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 517
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 517
ExplicitWidth = 209
Width = 209
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 517
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 517
ExplicitWidth = 209
Width = 209
end
object cxDBCheckBox1: TcxDBCheckBox [22]
Left = 410
Top = 333
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 = 357
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 517
TabOrder = 19
ExplicitLeft = 517
ExplicitWidth = 209
Width = 209
end
inherited eReferencia: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 358
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 358
ExplicitWidth = 260
Width = 260
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 dxLayoutControlContactoItem20: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Visible = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem21: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Visible = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
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
Reference in New Issue View Git Blame Copy Permalink