roberto
4e3fd677a8
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@38 40301925-124e-1c4e-b97d-170ad7a8785b
582 lines
19 KiB
Plaintext
582 lines
19 KiB
Plaintext
inherited frViewContratoCliente: TfrViewContratoCliente
|
|
Width = 817
|
|
Height = 491
|
|
OnCreate = CustomViewCreate
|
|
OnDestroy = CustomViewDestroy
|
|
ExplicitWidth = 817
|
|
ExplicitHeight = 491
|
|
object dxLayoutControl1: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 817
|
|
Height = 491
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
DesignSize = (
|
|
817
|
|
491)
|
|
object edtFechaContrato: TcxDBDateEdit
|
|
Left = 198
|
|
Top = 82
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_CONTRATO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DateButtons = [btnToday]
|
|
Properties.ImmediatePost = True
|
|
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 = 2
|
|
Width = 129
|
|
end
|
|
object memObservaciones: TcxDBMemo
|
|
Left = 467
|
|
Top = 334
|
|
Align = alClient
|
|
DataBinding.DataField = 'OBSERVACIONES'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ScrollBars = ssVertical
|
|
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 = 14
|
|
Height = 139
|
|
Width = 404
|
|
end
|
|
object eReferencia: TcxDBTextEdit
|
|
Left = 198
|
|
Top = 28
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'REFERENCIA'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ReadOnly = True
|
|
Properties.ValidateOnEnter = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.Color = clInfoBk
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.Color = clMenuBar
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.TextColor = clWindowText
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 0
|
|
Width = 122
|
|
end
|
|
object cbFormaPago: TcxDBLookupComboBox
|
|
Left = 198
|
|
Top = 217
|
|
DataBinding.DataField = 'ID_FORMA_PAGO'
|
|
DataBinding.DataSource = DADataSource
|
|
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 = 8
|
|
Width = 122
|
|
end
|
|
object bFormasPago: TButton
|
|
Left = 305
|
|
Top = 217
|
|
Width = 132
|
|
Height = 21
|
|
Caption = 'Ver las formas de pago...'
|
|
TabOrder = 9
|
|
OnClick = bFormasPagoClick
|
|
end
|
|
object cbSituacion: TcxDBImageComboBox
|
|
Left = 198
|
|
Top = 163
|
|
DataBinding.DataField = 'SITUACION'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.Items = <
|
|
item
|
|
Description = 'PENDIENTE'
|
|
ImageIndex = 0
|
|
Value = 'PENDIENTE'
|
|
end
|
|
item
|
|
Description = 'TERMINADO'
|
|
Value = 'TERMINADO'
|
|
end
|
|
item
|
|
Description = 'TERMINADO Y PAGADO'
|
|
Value = 'TERMINADO_PAGADO'
|
|
end>
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.ButtonStyle = bts3D
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 6
|
|
Width = 260
|
|
end
|
|
object memFormaPago: TcxDBMemo
|
|
Left = 22
|
|
Top = 301
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataBinding.DataField = 'FORMA_PAGO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ScrollBars = ssVertical
|
|
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 = 11
|
|
Height = 100
|
|
Width = 396
|
|
end
|
|
object memPlazoEntrega: TcxDBMemo
|
|
Left = 22
|
|
Top = 403
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataBinding.DataField = 'PLAZO_ENTREGA'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ScrollBars = ssVertical
|
|
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 = 12
|
|
Height = 100
|
|
Width = 396
|
|
end
|
|
object cbVendedor: TcxDBLookupComboBox
|
|
Left = 198
|
|
Top = 244
|
|
DataBinding.DataField = 'ID_VENDEDOR'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'NOMBRE'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListOptions.SyncMode = True
|
|
Properties.ListSource = dsVendedor
|
|
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 = 10
|
|
Width = 27
|
|
end
|
|
object cbTipoContrato: TcxDBComboBox
|
|
Left = 355
|
|
Top = 82
|
|
DataBinding.DataField = 'TIPO_CONTRATO'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.ImmediatePost = True
|
|
Properties.Items.Strings = (
|
|
'Cocina'
|
|
'Ba'#241'o'
|
|
'Armarios'
|
|
'Electrodom'#233'sticos'
|
|
'Varios'
|
|
'Obra')
|
|
Properties.PostPopupValueOnTab = True
|
|
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 = 113
|
|
end
|
|
object edtlREF_CLIENTE: TcxDBTextEdit
|
|
Left = 198
|
|
Top = 55
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
|
DataBinding.DataSource = DADataSource
|
|
ParentFont = False
|
|
Properties.ReadOnly = False
|
|
Properties.UseLeftAlignmentOnEditing = False
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.TextColor = clWindowText
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 1
|
|
Height = 21
|
|
Width = 335
|
|
end
|
|
inline frViewClienteContrato1: TfrViewClienteContrato
|
|
Left = 467
|
|
Top = 28
|
|
Width = 366
|
|
Height = 270
|
|
TabOrder = 13
|
|
ReadOnly = False
|
|
ExplicitLeft = 467
|
|
ExplicitTop = 28
|
|
ExplicitWidth = 366
|
|
ExplicitHeight = 270
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 366
|
|
Height = 270
|
|
ExplicitWidth = 327
|
|
ExplicitHeight = 270
|
|
inherited edtlNombre: TcxDBTextEdit
|
|
ExplicitWidth = 707
|
|
Width = 707
|
|
end
|
|
inherited edtNIFCIF: TcxDBTextEdit
|
|
ExplicitWidth = 707
|
|
Width = 707
|
|
end
|
|
inherited edtCalle: TcxDBTextEdit
|
|
ExplicitWidth = 707
|
|
Width = 707
|
|
end
|
|
inherited edtPoblacion: TcxDBTextEdit
|
|
ExplicitWidth = 589
|
|
Width = 589
|
|
end
|
|
inherited edtProvincia: TcxDBTextEdit
|
|
ExplicitWidth = 707
|
|
Width = 707
|
|
end
|
|
inherited edtCodigoPostal: TcxDBTextEdit
|
|
Left = 236
|
|
ExplicitLeft = 236
|
|
end
|
|
inherited Button3: TBitBtn
|
|
Left = 126
|
|
ExplicitLeft = 126
|
|
end
|
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
inherited dxLayoutControl1Item10: TdxLayoutItem
|
|
Enabled = False
|
|
Visible = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object edtFechaDecision: TcxDBDateEdit
|
|
Left = 198
|
|
Top = 136
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_DECISION'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DateButtons = [btnToday]
|
|
Properties.ImmediatePost = True
|
|
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 = 5
|
|
Width = 115
|
|
end
|
|
object edtFechaPrevMontaje: TcxDBDateEdit
|
|
Left = 198
|
|
Top = 190
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_PREVISTA_MONTAJE'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DateButtons = [btnToday]
|
|
Properties.ImmediatePost = True
|
|
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 = 7
|
|
Width = 295
|
|
end
|
|
object edtFechaUltPresentacion: TcxDBDateEdit
|
|
Left = 198
|
|
Top = 109
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
|
DataBinding.DataSource = DADataSource
|
|
Properties.DateButtons = [btnToday]
|
|
Properties.ImmediatePost = True
|
|
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 = 4
|
|
Width = 106
|
|
end
|
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group8: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
|
AutoAligns = []
|
|
AlignHorz = ahClient
|
|
Caption = 'Datos del contrato'
|
|
object dxLayoutControl1Item3: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Referencia:'
|
|
Control = eReferencia
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item12: TdxLayoutItem
|
|
Caption = 'Ref. contenido:'
|
|
Control = edtlREF_CLIENTE
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Group11: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group10: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
object dxLayoutControl1Item2: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Fecha contrato:'
|
|
Control = edtFechaContrato
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item7: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Tipo contrato:'
|
|
Control = cbTipoContrato
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Item15: TdxLayoutItem
|
|
Caption = 'Fecha '#250'ltima actualizaci'#243'n a cliente:'
|
|
Control = edtFechaUltPresentacion
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Item13: TdxLayoutItem
|
|
Caption = 'Fecha decisi'#243'n:'
|
|
Control = edtFechaDecision
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item10: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
Caption = 'Situaci'#243'n:'
|
|
Control = cbSituacion
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item14: TdxLayoutItem
|
|
Caption = 'Fecha prev. montaje:'
|
|
Control = edtFechaPrevMontaje
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Group5: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group9: 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 dxLayoutControl1Item5: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahRight
|
|
ShowCaption = False
|
|
Control = bFormasPago
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Item11: TdxLayoutItem
|
|
Caption = 'Vendedor:'
|
|
Control = cbVendedor
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group6: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Forma de pago'
|
|
object dxLayoutControl1Item8: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
ShowCaption = False
|
|
Control = memFormaPago
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Plazos de entrega'
|
|
object dxLayoutControl1Item9: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
ShowCaption = False
|
|
Control = memPlazoEntrega
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahClient
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
|
Caption = 'Datos del cliente'
|
|
object dxLayoutControl1Item1: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'New Item'
|
|
ShowCaption = False
|
|
Control = frViewClienteContrato1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group7: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Observaciones'
|
|
object dxLayoutControl1Item6: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Control = memObservaciones
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object DADataSource: TDADataSource
|
|
Left = 8
|
|
Top = 48
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 8
|
|
Top = 24
|
|
end
|
|
object dsFormaPago: TDADataSource
|
|
Left = 40
|
|
Top = 8
|
|
end
|
|
object dsVendedor: TDADataSource
|
|
Left = 40
|
|
Top = 40
|
|
end
|
|
end
|