object formBaliciListy: TformBaliciListy Left = 0 Top = 0 BorderIcons = [biSystemMenu] Caption = ' Balic'#237' listy' ClientHeight = 589 ClientWidth = 589 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Position = poMainFormCenter OnActivate = FormActivate OnClose = FormClose OnShow = FormShow TextHeight = 13 object lblVerze: TLabel Left = 12 Top = 572 Width = 3 Height = 11 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Visible = False end object GroupBox2: TGroupBox Left = 7 Top = 46 Width = 574 Height = 493 Caption = ' Obsah ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 12 Top = 150 Width = 205 Height = 16 Caption = 'Obsah bal'#237'c'#237'ho listu (boxu, krabice):' end object Label4: TLabel Left = 267 Top = 47 Width = 42 Height = 16 Caption = 'Datum:' end object Label5: TLabel Left = 17 Top = 22 Width = 53 Height = 16 Caption = 'Na sklad:' end object GroupBox3: TGroupBox Left = 9 Top = 62 Width = 546 Height = 88 Caption = ' Polo'#382'ka ' TabOrder = 0 object Label2: TLabel Left = 10 Top = 18 Width = 61 Height = 16 Caption = 'Skup.zbo'#382#237 end object Label3: TLabel Left = 78 Top = 18 Width = 51 Height = 16 Caption = 'Reg.'#269#237'slo' end object Label7: TLabel Left = 220 Top = 18 Width = 49 Height = 16 Caption = 'Mno'#382'stv'#237 end object Label9: TLabel Left = 318 Top = 18 Width = 58 Height = 16 Caption = #268#237'slo boxu' end object lblKarta: TLabel Left = 13 Top = 62 Width = 4 Height = 14 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 390 Top = 18 Width = 81 Height = 16 Caption = 'V'#253'robn'#237' p'#345#237'kaz' end object selSZ: TRzButtonEdit Left = 11 Top = 36 Width = 55 Height = 24 Text = '' Alignment = taCenter TabOrder = 0 OnKeyUp = selSZKeyUp AltBtnNumGlyphs = 1 ButtonNumGlyphs = 1 OnButtonClick = selSZButtonClick end object selRegCis: TRzButtonEdit Left = 78 Top = 38 Width = 131 Height = 24 Text = '' CharCase = ecUpperCase TabOrder = 1 OnExit = selRegCisExit OnKeyUp = selRegCisKeyUp AltBtnNumGlyphs = 1 ButtonNumGlyphs = 1 OnButtonClick = selRegCisButtonClick end object edtKS: TRzNumericEdit Left = 220 Top = 36 Width = 81 Height = 24 Alignment = taCenter CharCase = ecUpperCase TabOrder = 2 OnExit = edtKSExit CalculatorVisible = True DisplayFormat = '###,###0;-###,###0' end object edtBox: TRzNumericEdit Left = 318 Top = 36 Width = 55 Height = 24 TabOrder = 3 DisplayFormat = ',0;(,0)' end object btnAddPol: TBitBtn Left = 323 Top = 61 Width = 47 Height = 25 Caption = 'V' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = btnAddPolClick end object edtPrikaz: TRzNumericEdit Left = 392 Top = 36 Width = 74 Height = 24 MaxLength = 10 TabOrder = 5 DisplayFormat = ',0;(,0)' end end object edtDat: TRzDateTimeEdit Left = 313 Top = 44 Width = 100 Height = 24 CalendarElements = [ceYear, ceMonth, ceArrows, ceDaysOfWeek, ceFillDays, ceTodayButton] CaptionTodayBtn = 'Dnes' CaptionClearBtn = 'Smazat' FirstDayOfWeek = fdowMonday EditType = etDate Format = 'd.m.yyyy' Alignment = taCenter TabOrder = 1 end object cbOrg: TRzComboBox Left = 91 Top = 19 Width = 159 Height = 24 Style = csDropDownList TabOrder = 2 OnChange = cbOrgChange OnEnter = cbOrgEnter Items.Strings = ( 'LOVATO It'#225'lie' 'VD Otava Strakonice' 'Pikl Protiv'#237'n') end object cbVratka: TCheckBox Left = 263 Top = 20 Width = 144 Height = 17 Caption = 'vratka od kooperanta' Enabled = False TabOrder = 3 OnClick = cbVratkaClick end object cbTypDokl: TRzComboBox Left = 91 Top = 44 Width = 139 Height = 24 Style = csDropDownList TabOrder = 4 OnChange = cbTypDoklChange OnEnter = cbTypDoklEnter Items.Strings = ( 'FIN'#193'LN'#205' PRODUKTY' 'NEBALEN'#201' V'#221'ROBKY' 'MATERI'#193'LY' 'REKLAMACE') end object cbReklamace: TCheckBox Left = 423 Top = 21 Width = 97 Height = 17 Caption = ' REKLAMACE' Enabled = False TabOrder = 5 Visible = False end object grd: TJvDBGrid Left = 6 Top = 169 Width = 561 Height = 302 DataSource = dsBL Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] PopupMenu = pMenu TabOrder = 6 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = grdDblClick ScrollBars = ssVertical SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 20 TitleRowHeight = 20 Columns = < item Expanded = False FieldName = 'idKZ' Visible = False end item Expanded = False FieldName = 'idSS' Visible = False end item Expanded = False FieldName = 'idPZ' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'SkupZbo' Title.Alignment = taCenter Title.Caption = 'SK' Width = 38 Visible = True end item Expanded = False FieldName = 'RegCis' Width = 150 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'Mnoz' Title.Alignment = taCenter Title.Caption = 'Mno'#382'stv'#237 Width = 60 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'Box' Title.Alignment = taCenter Width = 80 Visible = True end item Expanded = False FieldName = 'CelkHmot' Title.Alignment = taCenter Title.Caption = 'Hmotnost' Width = 60 Visible = True end item Expanded = False FieldName = 'Prikaz' Width = 0 Visible = True end item Expanded = False FieldName = 'IdBLPol' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'IDSklad' Title.Alignment = taCenter Title.Caption = 'Sklad zdroj' Width = 70 Visible = True end item Expanded = False FieldName = 'idSSCil' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'IDSkladCil' Title.Alignment = taCenter Title.Caption = 'Sklad c'#237'l' Width = 70 Visible = True end> end object statBar: TJvStatusBar Left = 2 Top = 472 Width = 570 Height = 19 Panels = < item Width = 205 end item Alignment = taRightJustify Width = 60 end item Width = 80 end item Alignment = taRightJustify Width = 60 end item Width = 100 end> end end object btnOK: TButton Left = 202 Top = 556 Width = 75 Height = 25 Caption = '&OK' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 1 OnClick = btnOKClick OnMouseDown = btnOKMouseDown end object btnCancel: TButton Left = 381 Top = 556 Width = 75 Height = 25 Caption = '&Zru'#353'it' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 2 OnClick = btnCancelClick end object vTabBL: TFDMemTable Active = True AfterPost = vTabBLAfterPost FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 496 Top = 96 object vTabBLidKZ: TIntegerField FieldName = 'idKZ' Visible = False end object vTabBLidSS: TIntegerField FieldName = 'idSS' Visible = False end object vTabBLidPZ: TIntegerField FieldName = 'idPZ' Visible = False end object vTabBLSkupZbo: TStringField FieldName = 'SkupZbo' Size = 3 end object vTabBLRegCis: TStringField FieldName = 'RegCis' Size = 30 end object vTabBLBox: TStringField FieldName = 'Box' end object vTabBLMnoz: TFloatField FieldName = 'Mnoz' DisplayFormat = '#,##0.###' end object vTabBLCelkHmot: TFloatField FieldName = 'CelkHmot' DisplayFormat = '#,##0.##' end object vTabBLPrikaz: TIntegerField FieldName = 'Prikaz' Visible = False end object vTabBLIdBLPol: TIntegerField FieldName = 'IdBLPol' Visible = False end object vTabBLIDSklad: TStringField FieldName = 'IDSklad' Size = 30 end object vTabBLidSSCil: TIntegerField FieldName = 'idSSCil' Visible = False end object vTabBLIDSkladCil: TStringField FieldName = 'IDSkladCil' Size = 30 end end object dsBL: TDataSource DataSet = vTabBL Left = 540 Top = 98 end object pMenu: TPopupMenu Left = 154 Top = 304 object pmDelPol: TMenuItem Caption = '&Smazat polo'#382'ku' OnClick = pmDelPolClick end object N1: TMenuItem Caption = '-' end object pmObnovNeulozene: TMenuItem Caption = '&Obnovit neulo'#382'en'#233' polo'#382'ky' OnClick = pmObnovNeulozeneClick end object N2: TMenuItem Caption = '-' end object pmSmazNeulozene: TMenuItem Caption = 'Sma&zat neulo'#382'en'#233' polo'#382'ky' OnClick = pmSmazNeulozeneClick end object N3: TMenuItem Caption = '-' end object pmImpReader: TMenuItem Caption = '&Import dat ze '#269'te'#269'ky' OnClick = pmImpReaderClick end end end