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