object formVydejka: TformVydejka Left = 0 Top = 0 Caption = ' V'#253'dejka' ClientHeight = 467 ClientWidth = 944 Color = clBtnFace Constraints.MaxHeight = 505 Constraints.MaxWidth = 960 Constraints.MinHeight = 505 Constraints.MinWidth = 960 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnActivate = FormActivate OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pgControl: TPageControl Left = 4 Top = 40 Width = 940 Height = 390 ActivePage = pgHlavicka TabOrder = 0 OnChange = pgControlChange object pgHlavicka: TTabSheet Caption = '1 - Hlavi'#269'ka' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 6 Top = 6 Width = 409 Height = 139 Caption = ' [1] Organizace ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 10 Top = 24 Width = 52 Height = 13 Caption = '&Odb'#283'ratel:' end object Label2: TLabel Left = 10 Top = 74 Width = 61 Height = 13 Caption = '&M'#237'sto ur'#269'en'#237':' end object selCisOrg: TRzButtonEdit Left = 10 Top = 45 Width = 81 Height = 21 Alignment = taRightJustify MaxLength = 8 TabOrder = 0 OnExit = selCisOrgExit AltBtnWidth = 15 ButtonWidth = 15 OnButtonClick = selCisOrgButtonClick end object selOdber: TRzButtonEdit Left = 106 Top = 45 Width = 289 Height = 21 TabOrder = 1 AltBtnWidth = 15 ButtonWidth = 15 OnButtonClick = selOdberButtonClick end object selCisOrgMisto: TRzButtonEdit Left = 10 Top = 92 Width = 81 Height = 21 Alignment = taRightJustify TabOrder = 2 OnExit = selCisOrgMistoExit AltBtnWidth = 15 ButtonWidth = 15 OnButtonClick = selCisOrgMistoButtonClick end object selOdberMisto: TRzButtonEdit Left = 106 Top = 92 Width = 289 Height = 21 TabOrder = 3 AltBtnWidth = 15 ButtonWidth = 15 OnButtonClick = selOdberMistoButtonClick end end object GroupBox2: TGroupBox Left = 427 Top = 6 Width = 278 Height = 139 Caption = ' [2] Datum, dopl'#328'uj'#237'c'#237' informace ' TabOrder = 1 object Label3: TLabel Left = 11 Top = 24 Width = 74 Height = 13 Caption = 'Datum p'#345#237'padu:' end object Label4: TLabel Left = 55 Top = 52 Width = 30 Height = 13 Caption = 'M'#283'na:' end object Label5: TLabel Left = 60 Top = 85 Width = 25 Height = 13 Caption = 'Kurz:' end object edtDatPrip: TRzDateTimeEdit Left = 109 Top = 21 Width = 102 Height = 21 CaptionTodayBtn = 'Dnes' CaptionClearBtn = 'Smazat' CaptionSet = 'Vybrat' EditType = etDate Alignment = taCenter TabOrder = 0 end object cbMena: TComboBox Left = 110 Top = 49 Width = 101 Height = 21 Style = csDropDownList CharCase = ecUpperCase TabOrder = 1 end object selKurz: TRzButtonEdit Left = 109 Top = 82 Width = 102 Height = 21 Alignment = taRightJustify MaxLength = 6 TabOrder = 2 AltBtnWidth = 15 ButtonWidth = 15 OnButtonClick = selKurzButtonClick end end end object pgPolozky: TTabSheet Caption = '2 - Polo'#382'ky' ImageIndex = 1 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object GroupBox3: TGroupBox Left = 0 Top = 3 Width = 931 Height = 359 TabOrder = 0 object GroupBox4: TGroupBox Left = 3 Top = 1 Width = 925 Height = 55 TabOrder = 0 object btnPolAdd: TSpeedButton Left = 6 Top = 1 Width = 49 Height = 52 Caption = 'Nov'#253'...' Layout = blGlyphTop OnClick = btnPolAddClick end object btnPolEdit: TSpeedButton Left = 59 Top = 1 Width = 56 Height = 52 Caption = 'Oprava...' Layout = blGlyphTop OnClick = btnPolEditClick end object btnPolDel: TSpeedButton Left = 119 Top = 1 Width = 51 Height = 52 Caption = 'Zru'#353'it' Layout = blGlyphTop OnClick = btnPolDelClick end end object gridPol: TcxGrid Left = 7 Top = 58 Width = 924 Height = 301 TabOrder = 1 object viewPol: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> OnCellDblClick = viewPolCellDblClick DataController.DataSource = dsPol DataController.Summary.DefaultGroupSummaryItems = < item Format = '### ### ##0.0##' Position = spFooter Column = colCCbezDPH end item Format = '###,###,##0.0##' Position = spFooter Column = colMnoz end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = colMnoz end item Kind = skSum Column = colCCbezDPH end> DataController.Summary.SummaryGroups = <> Images = imgList OptionsCustomize.ColumnFiltering = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Editing = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.FooterAutoHeight = True OptionsView.GroupByBox = False OnColumnHeaderClick = viewPolColumnHeaderClick object colIdSS: TcxGridDBColumn Visible = False end object colIdKZ: TcxGridDBColumn Visible = False end object colSZ: TcxGridDBColumn PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter end object colRegCis: TcxGridDBColumn end object colNazev1: TcxGridDBColumn end object colNazev2: TcxGridDBColumn end object colMJ: TcxGridDBColumn PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter end object colMnoz: TcxGridDBColumn end object colJCbezDaniKc: TcxGridDBColumn end object colCCbezDPH: TcxGridDBColumn end object colIdPZ: TcxGridDBColumn end end object lvPol: TcxGridLevel GridView = viewPol end end end end object pgSklad: TTabSheet Caption = '3 - Sklady kooperant'#367 ImageIndex = 2 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object gridSklad: TcxGrid Left = 0 Top = 0 Width = 929 Height = 359 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False PopupMenu = pmSklad TabOrder = 0 object viewSklad: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> FilterBox.CustomizeDialog = False FilterBox.Position = fpTop FilterBox.Visible = fvNever OnCellDblClick = viewSkladCellDblClick DataController.DataSource = dsSklad DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> Filtering.ColumnMRUItemsList = False FilterRow.InfoText = 'Sem klikn'#283'te pro definici filtru' FilterRow.ApplyChanges = fracImmediately OptionsCustomize.ColumnFiltering = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Editing = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.GroupByBox = False object colIdSS2: TcxGridDBColumn end object colIdKZ2: TcxGridDBColumn end object colSZ2: TcxGridDBColumn PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter end object colRegCis2: TcxGridDBColumn PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter end object colNazev12: TcxGridDBColumn end object colNazev22: TcxGridDBColumn end object colMJ2: TcxGridDBColumn PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter end object colMnoz2: TcxGridDBColumn end object colJCbezDaniKc2: TcxGridDBColumn end object colCCbezDPH2: TcxGridDBColumn end end object lvSklad: TcxGridLevel GridView = viewSklad end end end end object tBar: TToolBar Left = 0 Top = 0 Width = 944 Height = 36 ButtonHeight = 38 ButtonWidth = 39 Caption = 'tBar' Images = imgList TabOrder = 1 object tBtn1: TToolButton Left = 0 Top = 0 Margins.Left = 1 Margins.Top = 1 Margins.Right = 1 Margins.Bottom = 1 Caption = 'tBtn1' ImageIndex = 1 end object tBtn2: TToolButton Left = 39 Top = 0 Caption = 'tBtn2' ImageIndex = 2 end end object btnOK: TButton Left = 762 Top = 439 Width = 75 Height = 25 Caption = '&OK' ModalResult = 1 TabOrder = 2 OnClick = btnOKClick end object btnCanel: TButton Left = 857 Top = 439 Width = 75 Height = 25 Caption = '&Storno' ModalResult = 2 TabOrder = 3 OnClick = btnCanelClick end object vTabPol: TVirtualTable OnCalcFields = vTabPolCalcFields Left = 90 Top = 404 Data = {03000000000000000000} end object dsPol: TDataSource DataSet = vTabPol Left = 142 Top = 404 end object imgList: TImageList ColorDepth = cd8Bit Height = 32 ShareImages = True Width = 32 Left = 30 Top = 402 end object dsSklad: TDataSource DataSet = vTabSklad Left = 274 Top = 404 end object vTabSklad: TVirtualTable Left = 214 Top = 404 Data = {03000000000000000000} end object pmSklad: TPopupMenu Left = 440 Top = 404 object pmSklad1: TMenuItem Caption = '&Na'#269'ti obsah skladu' OnClick = pmSklad1Click end end end