678 lines
16 KiB
Plaintext
678 lines
16 KiB
Plaintext
object formPrijem1024: TformPrijem1024
|
|
Left = 0
|
|
Top = 0
|
|
Align = alLeft
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = ' P'#345#237'jem objedn'#225'vky'
|
|
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 Label1: TLabel
|
|
Left = 42
|
|
Top = 69
|
|
Width = 116
|
|
Height = 23
|
|
Caption = 'Datum p'#345#237'jmu'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 24
|
|
Top = 18
|
|
Width = 144
|
|
Height = 23
|
|
Caption = 'Druh sortimentu:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 16
|
|
Top = 125
|
|
Width = 145
|
|
Height = 23
|
|
Caption = #268#237'slo objedn'#225'vky:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 15
|
|
Top = 180
|
|
Width = 55
|
|
Height = 23
|
|
Caption = 'Z'#225'voz:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 270
|
|
Top = 180
|
|
Width = 78
|
|
Height = 23
|
|
Alignment = taRightJustify
|
|
Caption = 'Dod.fakt:'
|
|
end
|
|
object gbDodavatel: TGroupBox
|
|
Left = 528
|
|
Top = 15
|
|
Width = 468
|
|
Height = 169
|
|
Caption = ' Dodavatel '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
object Label2: TLabel
|
|
Left = 28
|
|
Top = 72
|
|
Width = 71
|
|
Height = 25
|
|
Caption = 'Adresa:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblDodAdresa: TLabel
|
|
Left = 130
|
|
Top = 72
|
|
Width = 445
|
|
Height = 29
|
|
AutoSize = False
|
|
end
|
|
object lblDodMisto: TLabel
|
|
Left = 130
|
|
Top = 110
|
|
Width = 405
|
|
Height = 29
|
|
AutoSize = False
|
|
end
|
|
object lblDodICO: TLabel
|
|
Left = 130
|
|
Top = 142
|
|
Width = 7
|
|
Height = 25
|
|
end
|
|
object lblDodDIC: TLabel
|
|
Left = 360
|
|
Top = 142
|
|
Width = 7
|
|
Height = 25
|
|
end
|
|
object cbxDodavatel: TComboBox
|
|
Left = 28
|
|
Top = 33
|
|
Width = 435
|
|
Height = 33
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object gbPolozky: TGroupBox
|
|
Left = 5
|
|
Top = 276
|
|
Width = 788
|
|
Height = 425
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 6
|
|
object polGrd: TDBGridEh
|
|
Left = 2
|
|
Top = 27
|
|
Width = 784
|
|
Height = 396
|
|
Align = alClient
|
|
DataGrouping.Active = True
|
|
DataGrouping.DefaultStateExpanded = True
|
|
DataGrouping.GroupLevels = <
|
|
item
|
|
ColumnName = 'Column_12_PoradiSortNazev'
|
|
end>
|
|
DataSource = ds
|
|
DynProps = <>
|
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
|
IndicatorOptions = []
|
|
EmptyDataInfo.Active = True
|
|
EmptyDataInfo.Text = #381#225'dn'#233' polo'#382'ky nenalezeny'
|
|
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
|
STFilter.Local = True
|
|
TabOrder = 0
|
|
TitleParams.Color = clMoneyGreen
|
|
TitleParams.FillStyle = cfstSolidEh
|
|
TitleParams.MultiTitle = True
|
|
TitleParams.SecondColor = clMoneyGreen
|
|
OnDataGroupGetRowText = polGrdDataGroupGetRowText
|
|
OnDrawColumnCell = polGrdDrawColumnCell
|
|
OnKeyUp = polGrdKeyUp
|
|
Columns = <
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'PoradiSort'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'K1'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'K2'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'Sortiment'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'RegCis'
|
|
Footers = <>
|
|
ReadOnly = True
|
|
TextEditing = False
|
|
Width = 115
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'Nazev1'
|
|
Footers = <>
|
|
ReadOnly = True
|
|
TextEditing = False
|
|
Width = 397
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
CellButtons = <>
|
|
DisplayFormat = '##0.##'
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'Mnozstvi'
|
|
Footers = <>
|
|
Width = 94
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'IDZboSklad'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'Poradi'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'SkupZbo'
|
|
Footers = <>
|
|
Visible = False
|
|
WordWrap = True
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'IDPohybZboziObj'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'PoradiExt'
|
|
Footers = <>
|
|
Visible = False
|
|
end
|
|
item
|
|
CellButtons = <>
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'PoradiSortNazev'
|
|
Footers = <>
|
|
TextEditing = False
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
CellButtons = <>
|
|
DisplayFormat = '##0.##'
|
|
DynProps = <>
|
|
EditButtons = <>
|
|
FieldName = 'JCbezDaniKc'
|
|
Footers = <>
|
|
Title.Caption = 'JC bez DPH'
|
|
Width = 120
|
|
end>
|
|
object RowDetailData: TRowDetailPanelControlEh
|
|
end
|
|
end
|
|
end
|
|
object btnOK: TButton
|
|
Left = 809
|
|
Top = 228
|
|
Width = 191
|
|
Height = 69
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Ulo'#382'it p'#345#237'jemku'
|
|
TabOrder = 0
|
|
OnClick = btnOKClick
|
|
end
|
|
object dtZavoz: TDateTimePicker
|
|
Left = 172
|
|
Top = 66
|
|
Width = 149
|
|
Height = 31
|
|
Date = 44268.000000000000000000
|
|
Time = 0.431178437502239800
|
|
TabOrder = 1
|
|
end
|
|
object cbxSortiment: TComboBox
|
|
Left = 172
|
|
Top = 15
|
|
Width = 306
|
|
Height = 31
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
OnChange = cbxSortimentChange
|
|
end
|
|
object edtCisloObj: TNumberBox
|
|
Left = 172
|
|
Top = 122
|
|
Width = 97
|
|
Height = 31
|
|
Alignment = taCenter
|
|
Enabled = False
|
|
TabOrder = 3
|
|
OnExit = edtCisloObjExit
|
|
end
|
|
object btnTisk: TButton
|
|
Left = 809
|
|
Top = 314
|
|
Width = 188
|
|
Height = 49
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Vytisknout'
|
|
TabOrder = 7
|
|
Visible = False
|
|
OnClick = btnTiskClick
|
|
end
|
|
object btnRozbalit: TButton
|
|
Left = 809
|
|
Top = 453
|
|
Width = 188
|
|
Height = 46
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Rozbalit v'#353'e'
|
|
TabOrder = 8
|
|
OnClick = btnRozbalitClick
|
|
end
|
|
object btnSbalit: TButton
|
|
Left = 809
|
|
Top = 521
|
|
Width = 188
|
|
Height = 45
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Sbalit v'#353'e'
|
|
TabOrder = 9
|
|
OnClick = btnSbalitClick
|
|
end
|
|
object btnZavrit: TButton
|
|
Left = 809
|
|
Top = 629
|
|
Width = 188
|
|
Height = 69
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Zav'#345#237't'
|
|
TabOrder = 10
|
|
OnClick = btnZavritClick
|
|
end
|
|
object edtNumEditor: TNxEdit6
|
|
Left = 882
|
|
Top = 190
|
|
Width = 121
|
|
Height = 41
|
|
Alignment = taCenter
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -27
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
MaxLength = 3
|
|
NumbersOnly = True
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
Visible = False
|
|
UserDefinedColorPalette.GeometryHoverColor = clBlack
|
|
OnClick = edtNumEditorClick
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 5
|
|
Top = 242
|
|
Width = 518
|
|
Height = 35
|
|
Caption = 'Zbo'#382#237
|
|
Color = 14471860
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentBackground = False
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 522
|
|
Top = 242
|
|
Width = 219
|
|
Height = 35
|
|
Caption = 'P'#345#237'jem'
|
|
Color = 14471860
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentBackground = False
|
|
ParentFont = False
|
|
TabOrder = 13
|
|
end
|
|
object btnNactiObj: TButton
|
|
Left = 282
|
|
Top = 120
|
|
Width = 117
|
|
Height = 37
|
|
Caption = 'Na'#269'ti data'
|
|
TabOrder = 14
|
|
OnClick = btnNactiObjClick
|
|
end
|
|
object cbZavoz: TComboBox
|
|
Left = 84
|
|
Top = 177
|
|
Width = 163
|
|
Height = 31
|
|
Style = csDropDownList
|
|
ExtendedUI = True
|
|
ItemIndex = 0
|
|
TabOrder = 4
|
|
Text = ' R'#225'no'
|
|
OnChange = cbZavozChange
|
|
Items.Strings = (
|
|
' R'#225'no'
|
|
' Poledne')
|
|
end
|
|
object btnNuluj: TButton
|
|
Left = 570
|
|
Top = 205
|
|
Width = 106
|
|
Height = 37
|
|
Caption = 'Vynulovat'
|
|
TabOrder = 15
|
|
Visible = False
|
|
OnClick = btnNulujClick
|
|
end
|
|
object edtDodFak: TEdit
|
|
Left = 354
|
|
Top = 177
|
|
Width = 162
|
|
Height = 31
|
|
MaxLength = 20
|
|
TabOrder = 16
|
|
end
|
|
object vTab: TMemTableEh
|
|
Params = <>
|
|
Options = [mtoPersistentStructEh]
|
|
OnFilterRecord = vTabFilterRecord
|
|
Left = 3
|
|
Top = 2
|
|
object vTabPoradiSort: TSingleField
|
|
FieldName = 'PoradiSort'
|
|
Visible = False
|
|
end
|
|
object vTabPoradi: TSmallintField
|
|
DisplayLabel = 'Po'#345'ad'#237
|
|
FieldName = 'Poradi'
|
|
DisplayFormat = '#0'
|
|
end
|
|
object vTabRegCis: TStringField
|
|
DisplayLabel = #268#237'slo'
|
|
FieldName = 'RegCis'
|
|
Required = True
|
|
Size = 30
|
|
end
|
|
object vTabNazev1: TStringField
|
|
DisplayLabel = 'N'#225'zev'
|
|
FieldName = 'Nazev1'
|
|
Size = 100
|
|
end
|
|
object vTabMnozstvi: TFloatField
|
|
DisplayLabel = 'Mno'#382'stv'#237
|
|
FieldName = 'Mnozstvi'
|
|
OnValidate = vTabMnozstviValidate
|
|
DisplayFormat = '##0.##'
|
|
end
|
|
object vTabSkupZbo: TStringField
|
|
FieldName = 'SkupZbo'
|
|
Visible = False
|
|
Size = 3
|
|
end
|
|
object vTabIDZboSklad: TIntegerField
|
|
FieldName = 'IDZboSklad'
|
|
Required = True
|
|
Visible = False
|
|
end
|
|
object vTabIDPohybZboziObj: TIntegerField
|
|
FieldName = 'IDPohybZboziObj'
|
|
Required = True
|
|
Visible = False
|
|
end
|
|
object vTabSortiment: TStringField
|
|
FieldName = 'Sortiment'
|
|
Size = 100
|
|
end
|
|
object vTabK2: TStringField
|
|
FieldName = 'K2'
|
|
Size = 10
|
|
end
|
|
object vTabK1: TStringField
|
|
FieldName = 'K1'
|
|
Size = 10
|
|
end
|
|
object vTabTypZavozu: TStringField
|
|
FieldName = 'TypZavozu'
|
|
Visible = False
|
|
Size = 1
|
|
end
|
|
object vTabPoradiExt: TSingleField
|
|
FieldName = 'PoradiExt'
|
|
Visible = False
|
|
end
|
|
object vTabK1K2: TStringField
|
|
FieldName = 'K1K2'
|
|
Visible = False
|
|
Size = 15
|
|
end
|
|
object vTabPoradiSortNazev: TStringField
|
|
FieldName = 'PoradiSortNazev'
|
|
Size = 100
|
|
end
|
|
object vTabJCbezDaniKc: TSingleField
|
|
FieldName = 'JCbezDaniKc'
|
|
end
|
|
object MemTableData: TMemTableDataEh
|
|
object DataStruct: TMTDataStructEh
|
|
object JCbezDaniKc: TMTNumericDataFieldEh
|
|
FieldName = 'JCbezDaniKc'
|
|
NumericDataType = fdtSingleEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object PoradiSortNazev: TMTStringDataFieldEh
|
|
FieldName = 'PoradiSortNazev'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 100
|
|
Size = 100
|
|
end
|
|
object PoradiExt: TMTNumericDataFieldEh
|
|
FieldName = 'PoradiExt'
|
|
NumericDataType = fdtSingleEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object PoradiSort: TMTNumericDataFieldEh
|
|
FieldName = 'PoradiSort'
|
|
NumericDataType = fdtSingleEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object Poradi: TMTNumericDataFieldEh
|
|
FieldName = 'Poradi'
|
|
NumericDataType = fdtSmallintEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object TypZavozu: TMTStringDataFieldEh
|
|
FieldName = 'TypZavozu'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 1
|
|
Size = 1
|
|
end
|
|
object Sortiment: TMTStringDataFieldEh
|
|
FieldName = 'Sortiment'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 100
|
|
Size = 100
|
|
end
|
|
object K2: TMTStringDataFieldEh
|
|
FieldName = 'K2'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 10
|
|
Visible = False
|
|
Size = 10
|
|
end
|
|
object K1: TMTStringDataFieldEh
|
|
FieldName = 'K1'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 10
|
|
Visible = False
|
|
Size = 10
|
|
end
|
|
object Nazev1: TMTStringDataFieldEh
|
|
FieldName = 'Nazev1'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 100
|
|
Size = 100
|
|
end
|
|
object RegCis: TMTStringDataFieldEh
|
|
FieldName = 'RegCis'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 30
|
|
Required = True
|
|
Size = 30
|
|
end
|
|
object SkupZbo: TMTStringDataFieldEh
|
|
FieldName = 'SkupZbo'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 3
|
|
Visible = False
|
|
Size = 3
|
|
end
|
|
object IDZboSklad: TMTNumericDataFieldEh
|
|
FieldName = 'IDZboSklad'
|
|
NumericDataType = fdtIntegerEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
Required = True
|
|
Visible = False
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object Mnozstvi: TMTNumericDataFieldEh
|
|
FieldName = 'Mnozstvi'
|
|
NumericDataType = fdtFloatEh
|
|
AutoIncrement = False
|
|
DisplayLabel = '0'
|
|
DisplayWidth = 20
|
|
DisplayFormat = '##0.##'
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
object K1K2: TMTStringDataFieldEh
|
|
FieldName = 'K1K2'
|
|
StringDataType = fdtStringEh
|
|
DisplayWidth = 20
|
|
Visible = False
|
|
end
|
|
object IDPohybZboziObj: TMTNumericDataFieldEh
|
|
FieldName = 'IDPohybZboziObj'
|
|
NumericDataType = fdtIntegerEh
|
|
AutoIncrement = False
|
|
DisplayWidth = 20
|
|
Required = True
|
|
Visible = False
|
|
currency = False
|
|
Precision = 15
|
|
end
|
|
end
|
|
object RecordsList: TRecordsListEh
|
|
end
|
|
end
|
|
end
|
|
object ds: TDataSource
|
|
DataSet = vTab
|
|
Left = 4
|
|
Top = 57
|
|
end
|
|
end
|