Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
1e2765e684
Tecsitel_FactuGES2/Source/Modulos/Contactos/Views/uViewProveedor.dfm
roberto 1e2765e684 Version 1.9.3: 
Tareas #716: Poner opción de felicitación navideña a proveedores
    Errores #715: No aparece el nº total de clientes en el pie de la pantalla de lista de clientes


git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1052 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2011-11-22 12:03:49 +00:00

478 lines
16 KiB
Plaintext
Raw Blame History

inherited frViewProveedor: TfrViewProveedor
Width = 799
Height = 492
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 799
ExplicitHeight = 492
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 799
Height = 492
ExplicitWidth = 799
ExplicitHeight = 492
inherited PngSpeedButton1: TPngSpeedButton
Left = 754
ExplicitLeft = 754
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 754
ExplicitLeft = 754
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 754
ExplicitLeft = 754
end
object Label1: TLabel [3]
Left = 444
Top = 262
Width = 342
Height = 26
Caption =
'(Al incluir un proveedor en la tienda, todos los materiales que ' +
'sirve ese proveedor ser'#225'n tambi'#233'n incluidos)'
WordWrap = True
end
inherited eCalle: TcxDBTextEdit
Left = 134
Top = 277
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 134
ExplicitTop = 277
ExplicitWidth = 330
Width = 330
end
inherited cbProvincia: TcxDBComboBox
Left = 134
Top = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 134
ExplicitTop = 304
end
inherited cbPoblacion: TcxDBComboBox
Left = 134
Top = 331
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 134
ExplicitTop = 331
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 361
Top = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 361
ExplicitTop = 304
end
inherited eObservaciones: TcxDBMemo
Top = 415
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23
ExplicitTop = 415
ExplicitHeight = 20
Height = 20
end
object cxDBCheckBox2: TcxDBCheckBox [9]
Left = 22
Top = 193
Caption = 'El proveedor est'#225' homologado'
DataBinding.DataField = 'HOMOLOGADO'
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 = 7
Width = 442
end
object eCertificaciones: TcxDBTextEdit [10]
Left = 134
Top = 220
DataBinding.DataField = 'CERTIFICACION'
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 = 8
Width = 330
end
object cbGrupoProveedor: TcxDBComboBox [11]
Left = 134
Top = 136
DataBinding.DataField = 'GRUPO_PROVEEDOR'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbGrupoProveedorPropertiesInitPopup
Properties.OnValidate = cbGrupoProveedorPropertiesValidate
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 = 241
end
object cbDescripcionProveedor: TcxDBComboBox [12]
Left = 134
Top = 82
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.OnInitPopup = cbDescripcionProveedorPropertiesInitPopup
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 = 3
Width = 330
end
object eCodigoAsignado: TcxDBTextEdit [13]
Left = 134
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
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 = 4
Width = 330
end
inherited eTlfParticular: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eNombre: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 330
Width = 330
end
object cxDBCheckBox3: TcxDBCheckBox [19]
Left = 343
Top = 136
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
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 = 83
end
inherited eNIFCIF: TcxDBTextEdit
Left = 224
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 224
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 551
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 551
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
end
object cxDBCheckBox1: TcxDBCheckBox [23]
Left = 444
Top = 294
Caption = 'Incluir este proveedor en 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 = 21
Width = 236
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
end
inherited eReferencia: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 51
Width = 51
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 134
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 134
ExplicitTop = 358
ExplicitWidth = 330
Width = 330
end
object cbFelicitacion: TcxDBCheckBox [27]
Left = 456
Top = 339
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este proveedor'
DataBinding.DataField = 'FELICITACION'
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 = 22
Width = 352
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Proveedor de...:'
Control = cbDescripcionProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem24: TdxLayoutItem
Caption = 'C'#243'digo de cliente:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoGroup15: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlContactoItem20: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Grupo de proveedor'
Control = cbGrupoProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem26: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = cxDBCheckBox3
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControlContactoGroup14: TdxLayoutGroup [1]
Caption = 'Homologaci'#243'n'
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'El proveedor est'#225' homologado'
ShowCaption = False
Control = cxDBCheckBox2
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem23: TdxLayoutItem
Caption = 'Tipo de homologaci'#243'n:'
Control = eCertificaciones
ControlOptions.ShowBorder = False
end
end
end
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
object dxLayoutControlContactoItem19: TdxLayoutItem
ShowCaption = False
Visible = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem16: TdxLayoutItem
ShowCaption = False
Visible = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoGroup8: TdxLayoutGroup
Caption = 'Otros'
object dxLayoutControlContactoItem27: TdxLayoutItem
ShowCaption = False
Control = cbFelicitacion
ControlOptions.ShowBorder = False
end
end
end
end
end
end
inherited dsContacto: TDADataSource
Left = 32
Top = 88
end
end
Reference in New Issue View Git Blame Copy Permalink