object formPrijem: TformPrijem Left = 0 Top = 0 Align = alLeft BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' P'#345#237'jem objedn'#225'vky' ClientHeight = 774 ClientWidth = 1324 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Position = poOwnerFormCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 DesignSize = ( 1324 774) TextHeight = 25 object Label1: TLabel Left = 138 Top = 82 Width = 130 Height = 25 Caption = 'Datum p'#345#237'jmu' end object Label3: TLabel Left = 120 Top = 31 Width = 160 Height = 25 Caption = 'Druh sortimentu:' end object Label4: TLabel Left = 112 Top = 138 Width = 162 Height = 25 Caption = #268#237'slo objedn'#225'vky:' end object Label5: TLabel Left = 91 Top = 193 Width = 60 Height = 25 Caption = 'Z'#225'voz:' end object Label6: TLabel Left = 365 Top = 193 Width = 85 Height = 25 Alignment = taRightJustify Caption = 'Dod.fakt:' end object gbDodavatel: TGroupBox Left = 666 Top = 19 Width = 640 Height = 169 Caption = ' Dodavatel ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 8 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 = 589 Height = 33 Style = csDropDownList TabOrder = 0 end end object gbPolozky: TGroupBox Left = 3 Top = 276 Width = 1089 Height = 470 Anchors = [akLeft, akTop, akRight, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 9 object polGrd: TDBGridEh Left = 2 Top = 27 Width = 1085 Height = 441 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 = 230 end item CellButtons = <> DynProps = <> EditButtons = <> FieldName = 'Nazev1' Footers = <> ReadOnly = True TextEditing = False Width = 594 end item Alignment = taCenter CellButtons = <> DisplayFormat = '##0.##' DynProps = <> EditButtons = <> FieldName = 'Mnozstvi' Footers = <> Width = 105 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 = 1124 Top = 234 Width = 191 Height = 69 Anchors = [akTop, akRight] Caption = 'Ulo'#382'it p'#345#237'jemku' TabOrder = 0 OnClick = btnOKClick end object dtZavoz: TDateTimePicker Left = 288 Top = 79 Width = 149 Height = 33 Date = 44268.000000000000000000 Time = 0.431178437502239800 TabOrder = 1 end object cbxSortiment: TComboBox Left = 291 Top = 28 Width = 339 Height = 33 Style = csDropDownList TabOrder = 2 OnChange = cbxSortimentChange end object edtCisloObj: TNumberBox Left = 288 Top = 135 Width = 97 Height = 33 Alignment = taCenter Enabled = False TabOrder = 3 OnExit = edtCisloObjExit end object btnTisk: TButton Left = 1124 Top = 320 Width = 188 Height = 49 Anchors = [akTop, akRight] Caption = 'Vytisknout' TabOrder = 10 Visible = False OnClick = btnTiskClick end object btnRozbalit: TButton Left = 1124 Top = 504 Width = 188 Height = 46 Anchors = [akRight, akBottom] Caption = 'Rozbalit v'#353'e' TabOrder = 11 OnClick = btnRozbalitClick end object btnSbalit: TButton Left = 1124 Top = 572 Width = 188 Height = 45 Anchors = [akRight, akBottom] Caption = 'Sbalit v'#353'e' TabOrder = 12 OnClick = btnSbalitClick end object btnZavrit: TButton Left = 1124 Top = 680 Width = 188 Height = 69 Anchors = [akRight, akBottom] Caption = 'Zav'#345#237't' TabOrder = 13 OnClick = btnZavritClick end object edtNumEditor: TNxEdit6 Left = 8 Top = 177 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 = 14 Visible = False UserDefinedColorPalette.GeometryHoverColor = clBlack OnClick = edtNumEditorClick end object Panel1: TPanel Left = 3 Top = 242 Width = 829 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 = 15 end object Panel2: TPanel Left = 831 Top = 242 Width = 232 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 = 16 end object btnNactiObj: TButton Left = 398 Top = 133 Width = 117 Height = 37 Caption = 'Na'#269'ti data' TabOrder = 4 OnClick = btnNactiObjClick end object cbZavoz: TComboBox Left = 160 Top = 190 Width = 163 Height = 33 Style = csDropDownList ExtendedUI = True ItemIndex = 0 TabOrder = 5 Text = ' R'#225'no' OnChange = cbZavozChange Items.Strings = ( ' R'#225'no' ' Poledne') end object btnNuluj: TButton Left = 831 Top = 199 Width = 109 Height = 37 Caption = 'Vynulovat' TabOrder = 7 Visible = False OnClick = btnNulujClick end object edtDodFak: TEdit Left = 456 Top = 189 Width = 198 Height = 33 MaxLength = 20 TabOrder = 6 end object vTab: TMemTableEh Params = <> Options = [mtoPersistentStructEh] OnFilterRecord = vTabFilterRecord Left = 27 Top = 17 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 = 34 Top = 81 end end