This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
Noviseda_FactuGES2/Source/GUIBase/uViewTotales.dfm
david d8aa5d14b7 * Actualización de componentes
- RemObjects 6.0.39.777
- Data_Abstract 6.0.39.777
- JCL 2.1.1
- JVCL 3.39
- DevExpressVCL x.48
- FastReport4 4.8.11
- TB2k 2.2.2
- TntUnicodeControls 2.3.0
- SpTBXLib 2.4.4

* Actualización a FinalBuilder 6

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@47 f33bb606-9f5c-448d-9c99-757f00063c96
2010-01-22 09:52:58 +00:00

667 lines
24 KiB
Plaintext

inherited frViewTotales: TfrViewTotales
Width = 788
Height = 233
Align = alBottom
ExplicitWidth = 788
ExplicitHeight = 233
object Bevel5: TBevel
Left = 666
Top = 109
Width = 108
Height = 9
Shape = bsBottomLine
end
object dxLayoutControl1: TdxLayoutControl
AlignWithMargins = True
Left = 0
Top = 0
Width = 788
Height = 233
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
ExplicitWidth = 451
ExplicitHeight = 360
object Bevel3: TBevel
Left = 329
Top = 28
Width = 3
Height = 100
Shape = bsRightLine
end
object Bevel4: TBevel
Left = 442
Top = 70
Width = 342
Height = 9
Shape = bsBottomLine
end
object ImporteDto: TcxDBCurrencyEdit
Left = 175
Top = 55
AutoSize = False
DataBinding.DataField = 'IMPORTE_DESCUENTO'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Height = 21
Width = 87
end
object ImporteIVA: TcxDBCurrencyEdit
Left = 513
Top = 105
AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Height = 21
Width = 20
end
object ImporteTotal: TcxDBCurrencyEdit
Left = 442
Top = 159
AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -12
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clActiveCaption
Style.TextStyle = [fsBold]
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Height = 21
Width = 90
end
object edtDescuento: TcxDBSpinEdit
Left = 104
Top = 55
AutoSize = False
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Height = 21
Width = 65
end
object edtIVA: TcxDBSpinEdit
Left = 442
Top = 105
AutoSize = False
DataBinding.DataField = 'IVA'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.MinValue = True
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Height = 21
Width = 65
end
object ImporteBase: TcxDBCurrencyEdit
Left = 442
Top = 28
AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Height = 21
Width = 91
end
object edtRE: TcxDBSpinEdit
Left = 442
Top = 132
AutoSize = False
DataBinding.DataField = 'RE'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
Height = 21
Width = 65
end
object ImporteRE: TcxDBCurrencyEdit
Left = 513
Top = 132
AutoSize = False
DataBinding.DataField = 'IMPORTE_RE'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Height = 21
Width = 20
end
object eImporteNeto: TcxDBCurrencyEdit
Left = 104
Top = 28
AutoSize = False
DataBinding.DataField = 'IMPORTE_NETO'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Height = 21
Width = 158
end
object ePorte: TcxDBCurrencyEdit
Left = 104
Top = 82
AutoSize = False
DataBinding.DataField = 'IMPORTE_PORTE'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Height = 21
Width = 158
end
object eIVA: TcxDBLookupComboBox
Left = 104
Top = 109
DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = DADataSource
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 = 4
Width = 20
end
object bTiposIVA: TButton
Left = 181
Top = 109
Width = 132
Height = 21
Caption = 'Ver los tipos de IVA...'
TabOrder = 5
end
object cbRecargoEquivalencia: TcxDBCheckBox
Left = 104
Top = 136
Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
DataBinding.DataSource = DADataSource
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 = 6
Width = 221
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
AlignVert = avTop
CaptionOptions.Text = 'Importes totales'
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
object dxLayoutControl1Group2: TdxLayoutGroup
AlignHorz = ahClient
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Item8: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Importe neto:'
Control = eImporteNeto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group7: TdxLayoutGroup
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group10: TdxLayoutGroup
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AlignHorz = ahLeft
CaptionOptions.Text = 'Descuento (%):'
Control = edtDescuento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item1: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Importe de dto:'
CaptionOptions.Visible = False
Control = ImporteDto
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item9: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Porte:'
Control = ePorte
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item11: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Tipo de IVA:'
Control = eIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Visible = False
Control = bTiposIVA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item16: TdxLayoutItem
CaptionOptions.Text = ' '
Control = cbRecargoEquivalencia
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group5: TdxLayoutGroup
AlignHorz = ahClient
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AlignVert = avClient
CaptionOptions.Text = ' '
CaptionOptions.Visible = False
Offsets.Left = 10
Offsets.Right = 10
Control = Bevel3
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group3: TdxLayoutGroup
AlignHorz = ahClient
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Base imponible:'
Control = ImporteBase
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = ' '
Offsets.Bottom = 15
Offsets.Top = 15
Control = Bevel4
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group9: TdxLayoutGroup
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item5: TdxLayoutItem
AlignHorz = ahLeft
CaptionOptions.AlignHorz = taRightJustify
CaptionOptions.Text = 'IVA (%):'
Control = edtIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Importe de IVA:'
CaptionOptions.Visible = False
Control = ImporteIVA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
AlignHorz = ahLeft
CaptionOptions.AlignHorz = taRightJustify
CaptionOptions.Text = 'RE. (%):'
Control = edtRE
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Importe de RE:'
CaptionOptions.Visible = False
Visible = False
Control = ImporteRE
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item3: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Importe total:'
LayoutLookAndFeel = LookAndFeelIMPORTE_TOTAL
Control = ImporteTotal
ControlOptions.ShowBorder = False
end
end
end
end
end
object dxLayoutControl1Group4: TdxLayoutGroup
ButtonOptions.Buttons = <>
end
end
object DADataSource: TDADataSource
Left = 8
Top = 8
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 40
Top = 8
object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel
ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
ItemOptions.CaptionOptions.Font.Color = clWindowText
ItemOptions.CaptionOptions.Font.Height = -12
ItemOptions.CaptionOptions.Font.Name = 'Tahoma'
ItemOptions.CaptionOptions.Font.Style = [fsBold]
ItemOptions.CaptionOptions.UseDefaultFont = False
end
end
object dsTiposIVA: TDADataSource
Left = 8
Top = 40
end
end