Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
a4fc979e78
Tecsitel_FactuGES2/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm

418 lines
14 KiB
Plaintext
Raw Blame History

inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 725
Height = 284
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 725
ExplicitHeight = 284
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 725
Height = 209
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth]
ExplicitWidth = 637
object Label1: TLabel
Left = 445
Top = 28
Width = 227
Height = 26
Caption =
'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' +
'agos.'
Transparent = True
WordWrap = True
end
object Bevel1: TBevel
Left = 22
Top = 136
Width = 263
Height = 5
Shape = bsBottomLine
end
object eDiasVencimiento1: TcxDBSpinEdit
Left = 517
Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales
Properties.DisplayFormat = '##'
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Properties.UseDisplayFormatWhenEditing = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 79
end
object cbRegimenIVA: TcxDBComboBox
Left = 111
Top = 28
DataBinding.DataField = 'REGIMEN_IVA'
DataBinding.DataSource = dsDatosComerciales
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.OnInitPopup = cbRegimenIVAPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 121
end
object cbRecargoEquivalencia: TcxDBCheckBox
Left = 111
Top = 109
Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
DataBinding.DataSource = dsDatosComerciales
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
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 121
end
object cbFormaPago: TcxDBLookupComboBox
Left = 111
Top = 55
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = dsDatosComerciales
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 121
end
object bFormasPago: TButton
Left = 283
Top = 55
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 2
OnClick = bFormasPagoClick
end
object eIVA: TcxDBLookupComboBox
Left = 111
Top = 82
DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = dsDatosComerciales
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsTiposIVA
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 121
end
object bTiposIVA: TButton
Left = 283
Top = 82
Width = 132
Height = 21
Caption = 'Ver los tipos de IVA...'
TabOrder = 4
OnClick = bTiposIVAClick
end
object eDescuento: TcxDBSpinEdit
Left = 111
Top = 147
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 190
end
object eDiasVencimiento2: TcxDBSpinEdit
Left = 517
Top = 87
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
DataBinding.DataSource = dsDatosComerciales
Properties.DisplayFormat = '##'
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 79
end
object eDiasVencimiento3: TcxDBSpinEdit
Left = 517
Top = 114
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
DataBinding.DataSource = dsDatosComerciales
Properties.DisplayFormat = '##'
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Width = 79
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos comerciales'
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'R'#233'gimen de IVA:'
Control = cbRegimenIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago:'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button1'
ShowCaption = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'IVA por defecto'
Control = eIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bTiposIVA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Control = cbRecargoEquivalencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Bevel1'
ShowCaption = False
Control = Bevel1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Dto. por defecto:'
Control = eDescuento
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos para facturaci'#243'n'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Label1'
ShowCaption = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 1:'
Control = eDiasVencimiento1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 2:'
Control = eDiasVencimiento2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 3:'
Control = eDiasVencimiento3
ControlOptions.ShowBorder = False
end
end
end
end
object dsAgentes: TDADataSource
Left = 40
Top = 8
end
object dsDatosComerciales: TDADataSource
Left = 8
Top = 8
end
object dsFormaPago: TDADataSource
Left = 40
Top = 48
end
object dsTiposIVA: TDADataSource
Left = 8
Top = 48
end
end
Reference in New Issue View Git Blame Copy Permalink