Prvotni verze pro Giteu
This commit is contained in:
677
frmPrijem1024.dfm
Normal file
677
frmPrijem1024.dfm
Normal file
@ -0,0 +1,677 @@
|
||||
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
|
||||
Reference in New Issue
Block a user