roberto
1f5e6ebcb9
Cambio en los informes de Contratos de cliente de todas las entidades: Cambio fecha de entrega por fecha expedicion - Solicitado por Próspero Cambio logo uecko y sellos cabecera en todos los informes de todas las entidades- Solicitado por Noelia Arreglo para que permita introducir DNI y CIFs raros - Solicitado por Mónica Las facturas proforma no se tendrán en cuenta en las facturas asociadas a los contratos, listado de contratos - Solicitado por Eva Se añade comprobación de capitulos para que avise si existe un subtotal sin capitulo correspondiente, ayudará a controlar errores en presupuestos y contratos largos. - Solicitado por Miriam En los detalles de presupuestos y contratos si eligen un articulo de la tarífa el programa no deja modificar las descripciones (Se ha detectado que lo hen hecho en ocasiones en las tiendas) - Solicitado por Miriam git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@186 93f398dd-4eb6-7a46-baf6-13f46f578da2
548 lines
18 KiB
Plaintext
548 lines
18 KiB
Plaintext
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|
Width = 451
|
|
Height = 304
|
|
Align = alClient
|
|
OnCreate = CustomViewCreate
|
|
OnDestroy = CustomViewDestroy
|
|
ExplicitWidth = 451
|
|
ExplicitHeight = 304
|
|
object dxLayoutControl1: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 451
|
|
Height = 304
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
DesignSize = (
|
|
451
|
|
304)
|
|
object eReferencia: TcxDBTextEdit
|
|
Left = 135
|
|
Top = 30
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'REFERENCIA'
|
|
DataBinding.DataSource = DADataSource
|
|
Enabled = False
|
|
Properties.ReadOnly = False
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clInfoBk
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.Color = clMenuBar
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.TextColor = clWindowText
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 0
|
|
Width = 159
|
|
end
|
|
object edtFecha: TcxDBDateEdit
|
|
Left = 135
|
|
Top = 57
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_FACTURA'
|
|
DataBinding.DataSource = DADataSource
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clInfoBk
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.Shadow = False
|
|
Style.ButtonStyle = bts3D
|
|
Style.ButtonTransparency = ebtNone
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 1
|
|
Width = 159
|
|
end
|
|
object cbFormaPago: TcxDBLookupComboBox
|
|
Left = 135
|
|
Top = 162
|
|
DataBinding.DataField = 'ID_FORMA_PAGO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DropDownListStyle = lsFixedList
|
|
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.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 = 78
|
|
end
|
|
object bFormasPago: TButton
|
|
Left = 161
|
|
Top = 162
|
|
Width = 132
|
|
Height = 23
|
|
Caption = 'Ver las formas de pago...'
|
|
TabOrder = 5
|
|
OnClick = bFormasPagoClick
|
|
end
|
|
inline frViewTienda1: TfrViewTienda
|
|
Left = 22
|
|
Top = 381
|
|
Width = 351
|
|
Height = 48
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
ReadOnly = False
|
|
ExplicitLeft = 22
|
|
ExplicitTop = 381
|
|
ExplicitWidth = 351
|
|
ExplicitHeight = 48
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 351
|
|
Height = 63
|
|
ExplicitWidth = 351
|
|
ExplicitHeight = 63
|
|
inherited cbTienda: TcxComboBox
|
|
ExplicitWidth = 399
|
|
Width = 399
|
|
end
|
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
inherited dxLayoutControl1Item1: TdxLayoutItem
|
|
Visible = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inline frViewClienteFactura1: TfrViewClienteFactura
|
|
Left = 321
|
|
Top = 30
|
|
Width = 338
|
|
Height = 295
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
ReadOnly = False
|
|
ExplicitLeft = 321
|
|
ExplicitTop = 30
|
|
ExplicitWidth = 338
|
|
ExplicitHeight = 295
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 338
|
|
Height = 295
|
|
ExplicitWidth = 338
|
|
ExplicitHeight = 295
|
|
inherited Bevel1: TBevel
|
|
Width = 266
|
|
ExplicitWidth = 266
|
|
end
|
|
inherited edtlNombre: TcxDBTextEdit
|
|
ExplicitWidth = 276
|
|
Width = 276
|
|
end
|
|
inherited edtNIFCIF: TcxDBTextEdit
|
|
ExplicitWidth = 276
|
|
Width = 276
|
|
end
|
|
inherited edtCalle: TcxDBTextEdit
|
|
ExplicitWidth = 276
|
|
Width = 276
|
|
end
|
|
inherited edtPoblacion: TcxDBTextEdit
|
|
ExplicitWidth = 158
|
|
Width = 158
|
|
end
|
|
inherited edtProvincia: TcxDBTextEdit
|
|
ExplicitWidth = 276
|
|
Width = 276
|
|
end
|
|
inherited edtCodigoPostal: TcxDBTextEdit
|
|
Left = 192
|
|
ExplicitLeft = 192
|
|
end
|
|
inherited Button3: TBitBtn
|
|
Left = 82
|
|
ExplicitLeft = 82
|
|
end
|
|
inherited edtIdioma: TcxDBTextEdit
|
|
ExplicitWidth = 371
|
|
Width = 371
|
|
end
|
|
inherited edtPais: TcxDBTextEdit
|
|
ExplicitWidth = 291
|
|
Width = 291
|
|
end
|
|
end
|
|
end
|
|
object edtFechaVencimiento: TcxDBDateEdit
|
|
Left = 135
|
|
Top = 191
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DateButtons = [btnClear, btnToday]
|
|
Properties.DateOnError = deNull
|
|
Properties.ImmediatePost = True
|
|
Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clInfoBk
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.Shadow = False
|
|
Style.ButtonStyle = bts3D
|
|
Style.ButtonTransparency = ebtNone
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 6
|
|
Width = 310
|
|
end
|
|
inline frViewObservaciones1: TfrViewObservaciones
|
|
Left = 22
|
|
Top = 675
|
|
Width = 521
|
|
Height = 20
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
ReadOnly = False
|
|
ExplicitLeft = 22
|
|
ExplicitTop = 675
|
|
ExplicitHeight = 20
|
|
inherited memObservaciones: TcxDBMemo
|
|
DataBinding.DataField = 'OBSERVACIONES'
|
|
DataBinding.DataSource = DADataSource
|
|
ExplicitHeight = 20
|
|
Height = 20
|
|
end
|
|
end
|
|
object cbRecargoEquivalencia: TcxDBCheckBox
|
|
Left = 22
|
|
Top = 624
|
|
Caption = ' No acogida a comisiones'
|
|
DataBinding.DataField = 'SIN_COMISION'
|
|
DataBinding.DataSource = DADataSource
|
|
Enabled = False
|
|
Properties.DisplayChecked = '1'
|
|
Properties.DisplayUnchecked = '0'
|
|
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 = 10
|
|
Width = 158
|
|
end
|
|
object edtSituacion: TcxDBComboBox
|
|
Left = 135
|
|
Top = 111
|
|
DataBinding.DataField = 'SITUACION'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.ImmediatePost = True
|
|
Properties.Items.Strings = (
|
|
'PENDIENTE'
|
|
'PARCIALMENTE PAGADA'
|
|
'PAGADA')
|
|
TabOrder = 3
|
|
Width = 121
|
|
end
|
|
object cbTipoFactura: TcxDBLookupComboBox
|
|
Left = 135
|
|
Top = 84
|
|
DataBinding.DataField = 'ID_TIPO_FACTURA'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.ImmediatePost = True
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'DESCRIPCION'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListOptions.SyncMode = True
|
|
Properties.ListSource = dsTiposFactura
|
|
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 = 2
|
|
Width = 158
|
|
end
|
|
inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
|
|
Left = 22
|
|
Top = 459
|
|
Width = 425
|
|
Height = 135
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
ReadOnly = False
|
|
ExplicitLeft = 22
|
|
ExplicitTop = 459
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
inherited edtlNombreAgente: TcxDBTextEdit
|
|
DataBinding.DataSource = DADataSource
|
|
ExplicitWidth = 224
|
|
Width = 224
|
|
end
|
|
inherited edtDelegacion: TcxDBTextEdit
|
|
DataBinding.DataSource = DADataSource
|
|
ExplicitWidth = 562
|
|
Width = 562
|
|
end
|
|
inherited Button3: TBitBtn
|
|
Left = 99
|
|
ExplicitLeft = 99
|
|
end
|
|
end
|
|
end
|
|
inline frViewDatosYSeleccionContrato1: TfrViewDatosYSeleccionContrato
|
|
Left = 22
|
|
Top = 242
|
|
Width = 425
|
|
Height = 133
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
ReadOnly = False
|
|
ExplicitLeft = 22
|
|
ExplicitTop = 242
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
inherited Button3: TBitBtn
|
|
Left = 99
|
|
ExplicitLeft = 99
|
|
end
|
|
inherited edtRefContrato: TcxDBTextEdit
|
|
ExplicitWidth = 459
|
|
Width = 459
|
|
end
|
|
inherited edtRefClienteContrato: TcxDBTextEdit
|
|
ExplicitWidth = 459
|
|
Width = 459
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group7: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group6: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Datos de la factura'
|
|
object dxLayoutControl1Item1: TdxLayoutItem
|
|
Caption = 'Referencia:'
|
|
Control = eReferencia
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item2: TdxLayoutItem
|
|
Caption = 'Fecha de la factura:'
|
|
Control = edtFecha
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item11: TdxLayoutItem
|
|
Caption = 'Tipo operaci'#243'n:'
|
|
Control = cbTipoFactura
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object ledtSituacion: TdxLayoutItem
|
|
Caption = 'Situaci'#243'n:'
|
|
Control = edtSituacion
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group8: TdxLayoutGroup
|
|
Caption = 'Forma de pago'
|
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Item4: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Forma de pago:'
|
|
Control = cbFormaPago
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item10: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = bFormasPago
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object ledtFechaVencimiento: TdxLayoutItem
|
|
Caption = 'Fecha de vencimiento:'
|
|
Control = edtFechaVencimiento
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Contrato asociado'
|
|
object dxLayoutControl1Item13: TdxLayoutItem
|
|
Control = frViewDatosYSeleccionContrato1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item3: TdxLayoutItem
|
|
Caption = 'New Item'
|
|
ShowCaption = False
|
|
Control = frViewTienda1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group10: TdxLayoutGroup
|
|
Caption = 'Datos comerciales'
|
|
object dxLayoutControl1Item12: TdxLayoutItem
|
|
Control = frViewDatosYSeleccionComercial1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group9: TdxLayoutGroup
|
|
Caption = 'Comisiones'
|
|
Enabled = False
|
|
Visible = False
|
|
object dxLayoutControl1Item7: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = cbRecargoEquivalencia
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
|
AutoAligns = []
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
Caption = 'Datos del cliente'
|
|
object dxLayoutControl1Item6: TdxLayoutItem
|
|
Control = frViewClienteFactura1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group5: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Observaciones'
|
|
LayoutDirection = ldHorizontal
|
|
object dxLayoutControl1Item5: TdxLayoutItem
|
|
AutoAligns = []
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
Caption = 'New Item'
|
|
ShowCaption = False
|
|
Control = frViewObservaciones1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object DADataSource: TDADataSource
|
|
Left = 16
|
|
Top = 56
|
|
end
|
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
|
Left = 120
|
|
Top = 24
|
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
|
GroupOptions.CaptionOptions.Font.Height = -11
|
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
|
end
|
|
end
|
|
object dsFormaPago: TDADataSource
|
|
Left = 64
|
|
Top = 24
|
|
end
|
|
object dsTiposFactura: TDADataSource
|
|
Left = 48
|
|
Top = 104
|
|
end
|
|
end
|