385 lines
9.9 KiB
Plaintext
385 lines
9.9 KiB
Plaintext
object formLikvidace1024: TformLikvidace1024
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = ' V'#221'DEJ ZBO'#381#205' K LIKVIDACI'
|
|
ClientHeight = 729
|
|
ClientWidth = 1008
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Position = poOwnerFormCenter
|
|
OnClose = FormClose
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
DesignSize = (
|
|
1008
|
|
729)
|
|
TextHeight = 23
|
|
object gbPolozky: TGroupBox
|
|
Left = 7
|
|
Top = 12
|
|
Width = 746
|
|
Height = 700
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
object grdPol: TDBGridEh
|
|
Left = 2
|
|
Top = 27
|
|
Width = 742
|
|
Height = 671
|
|
Align = alClient
|
|
AllowedSelections = []
|
|
DataGrouping.Active = True
|
|
DataGrouping.Color = 13425149
|
|
DataGrouping.GroupLevels = <
|
|
item
|
|
ColumnName = 'Column_0_NazevSort'
|
|
end>
|
|
DataGrouping.ParentColor = False
|
|
DataSource = dSource
|
|
DynProps = <>
|
|
GridLineParams.ColorScheme = glcsThemedEh
|
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
|
IndicatorOptions = []
|
|
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
|
TabOrder = 0
|
|
TitleParams.Color = clMoneyGreen
|
|
TitleParams.FillStyle = cfstSolidEh
|
|
TitleParams.MultiTitle = True
|
|
TitleParams.SecondColor = clMoneyGreen
|
|
OnGetCellParams = grdPolGetCellParams
|
|
Columns = <
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'NazevSort'
|
|
Footers = <>
|
|
MRUList.AutoAdd = False
|
|
STFilter.Visible = False
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'RegCis'
|
|
Footers = <>
|
|
ReadOnly = True
|
|
TextEditing = False
|
|
Title.Caption = 'Zbo'#382#237'|'#268#237'slo'
|
|
Width = 150
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'Nazev1'
|
|
Footers = <>
|
|
ReadOnly = True
|
|
TextEditing = False
|
|
Title.Caption = 'Zbo'#382#237'|N'#225'zev'
|
|
Width = 374
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
CellButtons = <>
|
|
DisplayFormat = '###0.##'
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'StavSkladu'
|
|
Footers = <>
|
|
ReadOnly = True
|
|
TextEditing = False
|
|
Title.Caption = 'Mno'#382'stv'#237'|Stav skl.'
|
|
Width = 93
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
CellButtons = <>
|
|
DisplayFormat = '###0.##'
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'KeVraceni'
|
|
Footers = <>
|
|
Layout = tlCenter
|
|
Title.Caption = 'Mno'#382'stv'#237'|Vr'#225'tit'
|
|
Width = 85
|
|
OnAdvDrawDataCell = grdPolColumns4AdvDrawDataCell
|
|
OnGetCellParams = grdPolColumns4GetCellParams
|
|
OnUpdateData = grdPolColumns4UpdateData
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'Priorita'
|
|
Footers = <>
|
|
Visible = False
|
|
end>
|
|
object RowDetailData: TRowDetailPanelControlEh
|
|
end
|
|
end
|
|
end
|
|
object btnOK: TButton
|
|
Left = 770
|
|
Top = 66
|
|
Width = 221
|
|
Height = 69
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Ulo'#382'it v'#253'dej k likvidaci'
|
|
TabOrder = 0
|
|
OnClick = btnOKClick
|
|
end
|
|
object btnRozbalit: TButton
|
|
Left = 770
|
|
Top = 209
|
|
Width = 221
|
|
Height = 46
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Rozbalit v'#353'e'
|
|
TabOrder = 2
|
|
OnClick = btnRozbalitClick
|
|
end
|
|
object btnSbalit: TButton
|
|
Left = 770
|
|
Top = 277
|
|
Width = 221
|
|
Height = 45
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Sbalit v'#353'e'
|
|
TabOrder = 3
|
|
OnClick = btnSbalitClick
|
|
end
|
|
object btnZavrit: TButton
|
|
Left = 770
|
|
Top = 385
|
|
Width = 221
|
|
Height = 65
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Zav'#345#237't (bez ulo'#382'en'#237')'
|
|
TabOrder = 4
|
|
OnClick = btnZavritClick
|
|
end
|
|
object Button1: TButton
|
|
Left = 791
|
|
Top = 639
|
|
Width = 166
|
|
Height = 50
|
|
Anchors = [akRight, akBottom]
|
|
Caption = '(HDC) Save tbl'
|
|
TabOrder = 5
|
|
Visible = False
|
|
OnClick = Button1Click
|
|
end
|
|
object btnNuluj: TButton
|
|
Left = 764
|
|
Top = 579
|
|
Width = 229
|
|
Height = 50
|
|
Anchors = [akRight, akBottom]
|
|
Caption = '(HDC) Vymazat mno'#382'stv'#237
|
|
TabOrder = 6
|
|
Visible = False
|
|
OnClick = btnNulujClick
|
|
end
|
|
object dSource: TDataSource
|
|
DataSet = vTab
|
|
Left = 1224
|
|
Top = 10
|
|
end
|
|
object vTab: TMemTableEh
|
|
Params = <>
|
|
Left = 1278
|
|
Top = 12
|
|
object vTabSortimentK1: TStringField
|
|
Alignment = taCenter
|
|
FieldName = 'K1'
|
|
Visible = False
|
|
Size = 10
|
|
end
|
|
object vTabSortimentK2: TStringField
|
|
Alignment = taCenter
|
|
FieldName = 'K2'
|
|
Visible = False
|
|
Size = 10
|
|
end
|
|
object vTabNazevSort: TStringField
|
|
DisplayLabel = 'Sortiment'
|
|
FieldName = 'NazevSort'
|
|
Size = 100
|
|
end
|
|
object vTabSkupZbo: TStringField
|
|
FieldName = 'SkupZbo'
|
|
Visible = False
|
|
Size = 3
|
|
end
|
|
object vTabRegCis: TStringField
|
|
FieldName = 'RegCis'
|
|
Size = 30
|
|
end
|
|
object vTabNazev1: TStringField
|
|
FieldName = 'Nazev1'
|
|
Size = 100
|
|
end
|
|
object vTabStavSkladu: TFloatField
|
|
FieldName = 'StavSkladu'
|
|
DisplayFormat = '0'
|
|
EditFormat = '0'
|
|
Precision = 2
|
|
end
|
|
object vTabKeVraceni: TFloatField
|
|
FieldName = 'KeVraceni'
|
|
DisplayFormat = '0'
|
|
EditFormat = '0'
|
|
Precision = 2
|
|
end
|
|
object vTabIDStavSkladu: TIntegerField
|
|
FieldName = 'IDStavSkladu'
|
|
Visible = False
|
|
end
|
|
object vTabAktDodavatel: TIntegerField
|
|
FieldName = 'AktDodavatel'
|
|
Visible = False
|
|
end
|
|
object vTabPriorita: TIntegerField
|
|
FieldName = 'Priorita'
|
|
Visible = False
|
|
end
|
|
object vTabPoradiSortNazev: TStringField
|
|
FieldName = 'PoradiSortNazev'
|
|
Visible = False
|
|
Size = 100
|
|
end
|
|
object vTabK1K2: TStringField
|
|
FieldName = 'K1K2'
|
|
Visible = False
|
|
end
|
|
object vTabPoradiVSort: TSingleField
|
|
FieldName = 'PoradiVSort'
|
|
Visible = False
|
|
end
|
|
object MemTableData: TMemTableDataEh
|
|
object DataStruct: TMTDataStructEh
|
|
object PoradiVSort: TMTNumericDataFieldEh
|
|
FieldName = 'PoradiVSort'
|
|
NumericDataType = fdtSingleEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object K1K2: TMTStringDataFieldEh
|
|
FieldName = 'K1K2'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Visible = False
|
|
end
|
|
object PoradiSortNazev: TMTStringDataFieldEh
|
|
FieldName = 'PoradiSortNazev'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Visible = False
|
|
Size = 100
|
|
end
|
|
object Priorita: TMTNumericDataFieldEh
|
|
FieldName = 'Priorita'
|
|
NumericDataType = fdtIntegerEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 2
|
|
currency = False
|
|
Precision = 0
|
|
end
|
|
object AktDodavatel: TMTNumericDataFieldEh
|
|
FieldName = 'AktDodavatel'
|
|
NumericDataType = fdtIntegerEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object IDStavSkladu: TMTNumericDataFieldEh
|
|
FieldName = 'IDStavSkladu'
|
|
NumericDataType = fdtIntegerEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object KeVraceni: TMTNumericDataFieldEh
|
|
FieldName = 'KeVraceni'
|
|
NumericDataType = fdtFloatEh
|
|
AutoIncrement = False
|
|
Alignment = taCenter
|
|
DisplayWidth = 20
|
|
DisplayFormat = '0'
|
|
currency = False
|
|
Precision = 2
|
|
end
|
|
object StavSkladu: TMTNumericDataFieldEh
|
|
FieldName = 'StavSkladu'
|
|
NumericDataType = fdtFloatEh
|
|
AutoIncrement = False
|
|
Alignment = taCenter
|
|
DisplayWidth = 20
|
|
DisplayFormat = '0'
|
|
currency = False
|
|
Precision = 2
|
|
end
|
|
object Nazev1: TMTStringDataFieldEh
|
|
FieldName = 'Nazev1'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Size = 100
|
|
end
|
|
object RegCis: TMTStringDataFieldEh
|
|
FieldName = 'RegCis'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Size = 30
|
|
end
|
|
object SkupZbo: TMTStringDataFieldEh
|
|
FieldName = 'SkupZbo'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Size = 3
|
|
end
|
|
object NazevSort: TMTStringDataFieldEh
|
|
FieldName = 'NazevSort'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Size = 100
|
|
end
|
|
object K2: TMTStringDataFieldEh
|
|
FieldName = 'K2'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Size = 10
|
|
end
|
|
object K1: TMTStringDataFieldEh
|
|
FieldName = 'K1'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Size = 10
|
|
end
|
|
end
|
|
object RecordsList: TRecordsListEh
|
|
end
|
|
end
|
|
end
|
|
end
|