object formOdvLisX: TformOdvLisX Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' Odv'#225'd'#283'ni vst'#345'ik'#367' na lisu' ClientHeight = 613 ClientWidth = 1487 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 25 object lblZapisDat: TLabel Left = 539 Top = 570 Width = 354 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Prob'#237'h'#225' z'#225'pis dat...' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Visible = False end object Label1: TLabel Left = 596 Top = 123 Width = 126 Height = 25 Caption = 'Po'#269'et vst'#345'ik'#367':' end object lblPrijmeni: TLabel Left = 781 Top = 79 Width = 5 Height = 19 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblPlan: TLabel Left = 510 Top = 79 Width = 5 Height = 19 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 1182 Top = 156 Width = 267 Height = 23 Caption = '. . . . pro evidenci Zmetk'#367' . . . .' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [fsItalic] ParentFont = False Visible = False end object btnOK: TButton Left = 523 Top = 520 Width = 116 Height = 39 Caption = 'OK' TabOrder = 6 OnClick = btnOKClick end object btnStorno: TButton Left = 792 Top = 520 Width = 113 Height = 39 Caption = 'Storno' TabOrder = 7 OnClick = btnStornoClick end object edtBarcode: TLabeledEdit Left = 510 Top = 40 Width = 143 Height = 33 Alignment = taCenter EditLabel.Width = 125 EditLabel.Height = 25 EditLabel.Caption = #268'. k'#243'd pl'#225'nu:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnExit = edtBarcodeExit end object selBarcode: TButtonedEdit Left = 652 Top = 41 Width = 31 Height = 31 Caption = '...' TabOrder = 1 OnClick = selBarcodeClick end object edtCisZam: TLabeledEdit Left = 780 Top = 40 Width = 94 Height = 33 Alignment = taCenter EditLabel.Width = 131 EditLabel.Height = 25 EditLabel.Caption = 'Os.'#269'. zam'#283'st.:' NumbersOnly = True TabOrder = 2 OnExit = edtCisZamExit end object selCisZam: TButtonedEdit Left = 873 Top = 42 Width = 31 Height = 31 Caption = '...' TabOrder = 3 OnClick = selCisZamClick OnExit = selCisZamExit end object edtVstriku: TRzNumericEdit Left = 728 Top = 120 Width = 65 Height = 33 Alignment = taCenter TabOrder = 4 OnExit = edtVstrikuExit DisplayFormat = ',0;(,0)' end object grd: TNextDBGrid6 Left = 3 Top = 179 Width = 1476 Height = 316 ParentColor = False TabOrder = 5 StyleOptions = [soNativeStyles, soVCLStyles] ActiveView = view ActiveViewIndex = 0 Options = [goAutoHideScrollBars, goExitEndEditing, goResponsiveViews, goTabLeaveControl] RowHeight = 30 ScrollBars = [sbVertical] SelectFullRow = True Style = stModern OnCellClick = grdCellClick DataSource = ds object view: TNxReportGridView6 ColumnMoving = False GridLines = True HeaderHeight = 33 OnGetCellColor = viewGetCellColor end object colRegCis: TNxDBTextColumn6 Alignment = taCenter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Reg.'#269'.' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Header.Clickable = False Index = 0 Inserting = False PlaceholderText = 'Text Text' Position = 0 Resizeable = False Width = 140 DataBinding.FieldName = 'RegCis' end object colZakazka: TNxDBTextColumn6 Alignment = taCenter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Zak'#225'zka' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 1 PlaceholderText = 'Text Text' Position = 1 Resizeable = False Width = 140 DataBinding.FieldName = 'Zakazka' end object colNazev: TNxDBTextColumn6 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Popis' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Header.Clickable = False Index = 2 Inserting = False PlaceholderText = 'Text Text' Position = 2 Selectable = False Width = 220 DataBinding.FieldName = 'Nazev' end object colForma: TNxDBComboBoxColumn6 Alignment = taCenter Editing = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Forma' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 3 PlaceholderText = 'Text Text' Position = 3 Resizeable = False Width = 230 AutoDropDown = True ItemHeight = 25 ItemsAlignment = taCenter end object colFormaSN: TNxDBTextColumn6 Alignment = taCenter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'V'#253'r.'#269#237'slo' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 4 PlaceholderText = 'Text Text' Position = 4 Width = 230 DataBinding.FieldName = 'FormaSN' end object colKsVeForme: TNxDBNumberColumn6 Alignment = taCenter DrawingOptions = [doBackground, doContent, doCustom] Editing = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Ks/forma' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -19 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 5 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 5 Resizeable = False FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'KsVeForme' InsertString = '0' end object colKsDobre: TNxDBNumberColumn6 Alignment = taCenter Color = 9894289 Editing = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '0' Header.Alignment = taCenter Header.Caption = 'Dobr'#233' ks' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Header.Clickable = False Index = 6 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 6 Resizeable = False Width = 100 FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'KsDobre' InsertString = '0' end object colZmetky1: TNxDBNumberColumn6 Alignment = taCenter Editing = True Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Z' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -19 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 7 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 7 Resizeable = False Width = 110 FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'KsZmetky1' InsertString = '0' end object colZmetky2: TNxDBNumberColumn6 Alignment = taCenter Editing = True Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Z' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -19 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 8 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 8 Resizeable = False Width = 110 FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'KsZmetky2' InsertString = '0' end object colZmetky3: TNxDBNumberColumn6 Alignment = taCenter Editing = True Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.FormatMask = '#,##0.00' Header.Alignment = taCenter Header.Caption = 'Z' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -19 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 9 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 9 Resizeable = False Width = 110 FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'KsZmetky3' InsertString = '0' end end object grdX: TXDBGrid Left = 3 Top = 439 Width = 1476 Height = 120 DataSource = ds Enabled = False GridStyle.VisualStyle = vsStandard HeaderColor = clTeal Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgExtendedSelect, dgInternalSelect, dgRowScroll, dgHotButtons, dgTitleButtons, dgTitleHeaders, dgTitleWidthOff, dgMarkerAutoAlign, dgMarkerAutoToggle] TabOrder = 8 Columns = < item Alignment = taCenter Expanded = False FieldName = 'RegCis' Title.Alignment = taCenter Title.Caption = 'Reg.'#269'.' TotalFields.Visible = False Visible = True Width = 166 end item Alignment = taCenter Expanded = False FieldName = 'Zakazka' Title.Alignment = taCenter Title.Caption = 'Zak'#225'zka' TotalFields.Visible = False Visible = True Width = 123 end item Expanded = False FieldName = 'Nazev' Title.Alignment = taCenter Title.Caption = 'Popis' TotalFields.Visible = False Visible = True Width = 227 end item Alignment = taCenter Expanded = False FieldName = 'Forma' LookupDataSet = tblFormaX LookupKeyField = 'RegCis' LookupListFields = 'Forma' TotalFields.Visible = False Visible = True Width = 155 end item Alignment = taCenter Expanded = False FieldName = 'FormaSN' Title.Caption = 'V'#253'r.'#269#237'slo' TotalFields.Visible = False Visible = True Width = 158 end item Alignment = taCenter Expanded = False FieldName = 'KsVeForme' Title.Caption = 'Ks/forma' TotalFields.Visible = False Visible = True Width = 89 end item Alignment = taCenter Expanded = False FieldName = 'KsDobre' Title.Caption = 'Dobr'#233' ks' Visible = True Width = 100 end item Alignment = taCenter Expanded = False FieldName = 'KsZmetky1' Title.Caption = 'Z' Visible = True Width = 115 end item Alignment = taCenter Expanded = False FieldName = 'KsZmetky2' Title.Caption = 'Z' Visible = True end item Alignment = taCenter Expanded = False FieldName = 'KsZmetky3' Title.Caption = 'Z' Visible = True Width = 103 end> end object tbl: TVirtualTable FieldDefs = < item Name = 'IDPostup' DataType = ftInteger end item Name = 'RegCis' DataType = ftString Size = 20 end item Name = 'Nazev' DataType = ftString Size = 100 end item Name = 'KsDobre' DataType = ftSmallint end item Name = 'IDVyrCS' DataType = ftInteger end item Name = 'FormaSN' DataType = ftString Size = 30 end item Name = 'IDradek' DataType = ftInteger end item Name = 'IDnaradi' DataType = ftInteger end item Name = 'KsZmetky1' DataType = ftInteger end item Name = 'KsZmetky2' DataType = ftInteger end item Name = 'KsZmetky3' DataType = ftInteger end item Name = 'KsVeForme' DataType = ftInteger end item Name = 'Forma' DataType = ftString Size = 30 end> Left = 124 Top = 107 Data = { 04000D0008004944506F73747570030000000000000006005265674369730100 14000000000005004E617A6576010064000000000007004B73446F6272650200 00000000000007004944567972435303000000000000000700466F726D61534E 01001E000000000007004944726164656B0300000000000000080049446E6172 616469030000000000000009004B735A6D65746B793103000000000000000900 4B735A6D65746B7932030000000000000009004B735A6D65746B793303000000 0000000009004B735665466F726D6503000000000000000500466F726D610100 1E0000000000000000000000} object tblIDPrPostup: TIntegerField FieldName = 'IDPostup' Visible = False end object tblRegCis: TStringField FieldName = 'RegCis' end object tblNazev: TStringField FieldName = 'Nazev' Size = 100 end object tblKsDobre: TSmallintField FieldName = 'KsDobre' end object tblIDVyrCS: TIntegerField FieldName = 'IDVyrCS' Visible = False end object tblFormaSN: TStringField FieldName = 'FormaSN' Size = 30 end object tblIDradek: TIntegerField FieldName = 'IDradek' Visible = False end object tblIDnaradi: TIntegerField FieldName = 'IDnaradi' Visible = False end object tblKsZmetky1: TIntegerField FieldName = 'KsZmetky1' end object tblKsZmetky2: TIntegerField FieldName = 'KsZmetky2' end object tblKsZmetky3: TIntegerField FieldName = 'KsZmetky3' end object tblKsNaPlate: TIntegerField FieldName = 'KsVeForme' end object tblForma: TStringField FieldName = 'Forma' LookupKeyFields = 'RegCis' LookupResultField = 'Forma' Size = 30 end object tblcolZakazka: TStringField FieldName = 'Zakazka' Size = 15 end end object ds: TDataSource DataSet = tbl Left = 73 Top = 107 end object dsForma: TDataSource DataSet = tblFormaX Left = 196 Top = 110 end object tblFormaX: TVirtualTable Left = 252 Top = 111 Data = {04000000000000000000} object tblFormaXRegCis: TStringField FieldName = 'RegCis' Size = 30 end object tblFormaXForma: TStringField FieldName = 'Forma' Size = 30 end end end