Tecsitel_FactuGES2/Source/Modulos/Contactos/Views/uViewEmpleado.dfm
david b343cdea63 - Ticket #32. Añadir la columna contrato al vendedor.
- En proveedores, la descripción (tipo de material que sirve) se ha cambiado a un combobox para que sea más fácil.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@240 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2008-02-05 10:08:44 +00:00

283 lines
8.7 KiB
Plaintext

inherited frViewEmpleado: TfrViewEmpleado
Height = 391
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitHeight = 391
inherited dxLayoutControlContacto: TdxLayoutControl
Height = 391
ExplicitHeight = 391
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 193
TabOrder = 7
ExplicitLeft = 121
ExplicitTop = 193
ExplicitWidth = 260
Width = 260
end
inherited eProvincia: TcxDBTextEdit
Left = 121
Top = 247
TabOrder = 10
ExplicitLeft = 121
ExplicitTop = 247
ExplicitWidth = 260
Width = 260
end
inherited ePoblacion: TcxDBTextEdit
Left = 121
Top = 220
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 220
ExplicitWidth = 159
Width = 159
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 348
Top = 220
TabOrder = 9
ExplicitLeft = 348
ExplicitTop = 220
end
inherited eObservaciones: TcxDBMemo
Top = 331
TabOrder = 19
ExplicitTop = 331
ExplicitHeight = 148
Height = 148
end
object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121
Top = 82
DataBinding.DataField = 'FECHA_NACIMIENTO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 121
end
object eFechaAltaEmpresa: TcxDBDateEdit [9]
Left = 262
Top = 82
DataBinding.DataField = 'FECHA_ALTA_EMPRESA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 235
end
object cbCategoria: TcxDBComboBox [10]
Left = 121
Top = 109
DataBinding.DataField = 'CATEGORIA'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbCategoriaPropertiesInitPopup
Properties.OnValidate = cbCategoriaPropertiesValidate
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 = 225
end
inherited eTlfParticular: TcxDBTextEdit
Left = 538
TabOrder = 13
ExplicitLeft = 538
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 538
TabOrder = 12
ExplicitLeft = 538
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 538
TabOrder = 14
ExplicitLeft = 538
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 538
TabOrder = 15
ExplicitLeft = 538
ExplicitWidth = 121
Width = 121
end
inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 263
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit
Left = 255
ExplicitLeft = 255
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 538
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 538
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 538
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 538
ExplicitWidth = 165
Width = 165
end
object cbContrato: TcxDBComboBox [19]
Left = 121
Top = 136
DataBinding.DataField = 'CONTRATO'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.OnInitPopup = cbContratoPropertiesInitPopup
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 = 6
Width = 292
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 538
TabOrder = 18
ExplicitLeft = 538
ExplicitWidth = 165
Width = 165
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 274
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 274
ExplicitWidth = 256
Width = 256
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
inherited dxLayoutControlContactoGroup16: TdxLayoutGroup
inherited dxLayoutControlContactoItem14: TdxLayoutItem
Caption = 'DNI:'
end
end
inherited dxLayoutControlContactoItem13: TdxLayoutItem
Caption = 'Nombre y apellidos:'
end
object dxLayoutControlContactoGroup10: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlContactoItem16: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha nacimiento:'
Control = eFechaNacimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha de alta:'
Control = eFechaAltaEmpresa
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoItem20: TdxLayoutItem
Caption = 'Categor'#237'a:'
Control = cbCategoria
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Tipo de contrato:'
Control = cbContrato
ControlOptions.ShowBorder = False
end
end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
inherited dxLayoutControlContactoItem167: TdxLayoutItem
Visible = False
end
end
end
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
inherited dxLayoutControlContactoItem10: TdxLayoutItem
Caption = 'Tlf. trabajo:'
end
inherited dxLayoutControlContactoItem9: TdxLayoutItem
Caption = 'Tlf. particular:'
end
inherited dxLayoutControlContactoItem12: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControlContactoGroup5: TdxLayoutGroup
Visible = False
end
end
end
end
end
inherited dsContacto: TDADataSource
Left = 32
Top = 80
end
end