object formOdvLis: TformOdvLis Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' Odv'#225'd'#283'ni vst'#345'ik'#367' na lisu' ClientHeight = 613 ClientWidth = 1627 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Position = poOwnerFormCenter OnClose = FormClose OnShow = FormShow DesignSize = ( 1627 613) TextHeight = 25 object lblZapisDat: TLabel Left = 638 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 = 689 Top = 123 Width = 126 Height = 25 Caption = 'Po'#269'et vst'#345'ik'#367':' end object lblPrijmeni: TLabel Left = 878 Top = 78 Width = 6 Height = 23 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblPlan: TLabel Left = 604 Top = 78 Width = 6 Height = 23 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 1323 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 lblVerze: TLabel Left = 8 Top = 591 Width = 4 Height = 14 Anchors = [akLeft, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object btnOK: TButton Left = 622 Top = 520 Width = 116 Height = 39 Caption = 'OK' TabOrder = 6 OnClick = btnOKClick end object btnStorno: TButton Left = 891 Top = 520 Width = 113 Height = 39 Caption = 'Storno' TabOrder = 7 OnClick = btnStornoClick end object edtBarcode: TLabeledEdit Left = 604 Top = 39 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 Text = '' OnExit = edtBarcodeExit end object selBarcode: TButtonedEdit Left = 746 Top = 40 Width = 31 Height = 33 TabOrder = 1 OnClick = selBarcodeClick end object edtCisZam: TLabeledEdit Left = 878 Top = 39 Width = 94 Height = 33 Alignment = taCenter EditLabel.Width = 131 EditLabel.Height = 25 EditLabel.Caption = 'Os.'#269'. zam'#283'st.:' NumbersOnly = True TabOrder = 2 Text = '' OnExit = edtCisZamExit end object selCisZam: TButtonedEdit Left = 971 Top = 42 Width = 31 Height = 33 TabOrder = 3 OnClick = selCisZamClick OnExit = selCisZamExit end object edtVstriku: TRzNumericEdit Left = 821 Top = 120 Width = 65 Height = 33 Alignment = taCenter TabOrder = 4 OnExit = edtVstrikuExit DisplayFormat = ',0;(,0)' end object grd: TNextDBGrid6 Left = 3 Top = 179 Width = 1616 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 UserDefinedColorPalette.GeometryHoverColor = clBlack OnCellClick = grdCellClick DataSource = ds object view: TNxReportGridView6 ColumnMoving = False GridLines = True HeaderHeight = 33 OnGetCellColor = viewGetCellColor end object colFormaPouzita: TNxDBCheckBoxColumn6 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.Caption = 'Pou'#382'ito' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -19 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 0 PlaceholderText = 'True' Position = 0 Width = 70 CheckedImageIndex = -1 DefaultValue = True UncheckedImageIndex = -1 OnCheckedChanged = colFormaPouzitaCheckedChanged DataBinding.FieldName = 'FormaPouzita' InsertString = 'False' 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 = 1 Inserting = False PlaceholderText = 'Text Text' Position = 1 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 = 2 PlaceholderText = 'Text Text' Position = 2 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 = 3 Inserting = False PlaceholderText = 'Text Text' Position = 3 Selectable = False Width = 220 DataBinding.FieldName = 'Nazev' end object colForma: TNxDBTextColumn6 Alignment = taCenter DrawingOptions = [doBackground, doContent, doCustom] 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 = 4 PlaceholderText = 'Text Text' Position = 4 Resizeable = False Width = 230 DataBinding.FieldName = 'Forma' 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 = 5 PlaceholderText = 'Text Text' Position = 5 Width = 230 DataBinding.FieldName = 'FormaSN' end object colPocetVstriku: TNxDBNumberColumn6 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.Caption = 'Vst'#345'ik'#367 Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -21 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.ParentFont = False Index = 6 PlaceholderText = '1742.50' Position = 6 FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'PocetVstriku' InsertString = '0' 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 = 7 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 7 Resizeable = False Width = 90 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 = 8 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 8 Resizeable = False Width = 100 EditOptions = [edTyping] 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 = 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 = '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 = 10 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 10 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 = 11 Inserting = False ParentColor = False PlaceholderText = '1742' Position = 11 Resizeable = False Width = 110 FormatMask = '#,##0' NumericEditOptions = [] Precision = 0 Increment = 1.000000000000000000 SpinButtons = False DataBinding.FieldName = 'KsZmetky3' InsertString = '0' end object colIdPostup: TNxDBNumberColumn6 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.Caption = 'idPrPostup' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Index = 12 PlaceholderText = '1742.50' Position = 12 Visible = False FormatMask = '#,##0.00' Increment = 1.000000000000000000 DataBinding.FieldName = 'IDPostup' InsertString = '0' end object colIdNaradi: TNxDBNumberColumn6 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.Caption = 'idNaradi' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Index = 13 PlaceholderText = '1742.50' Position = 13 Visible = False FormatMask = '#,##0.00' Increment = 1.000000000000000000 DataBinding.FieldName = 'IDnaradi' InsertString = '0' end object colIdVyrCis: TNxDBNumberColumn6 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.Caption = 'idVyrCis' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Index = 14 PlaceholderText = '1742.50' Position = 14 Visible = False FormatMask = '#,##0.00' Increment = 1.000000000000000000 DataBinding.FieldName = 'IDVyrCS' InsertString = '0' end end object comboForma: TNxComboBox6 Left = 75 Top = 18 Width = 154 Height = 33 Cursor = crArrow Alignment = taCenter TabOrder = 8 Visible = False UserDefinedColorPalette.GeometryHoverColor = clBlack OnChange = comboFormaChange OnExit = comboFormaExit ButtonWidth = 16 Style = dsDropDownList DropDownCount = 4 ItemHeight = 26 end object comboSN: TNxComboBox6 Left = 75 Top = 53 Width = 154 Height = 33 Cursor = crArrow TabOrder = 9 Visible = False UserDefinedColorPalette.GeometryHoverColor = clBlack OnChange = comboSNChange OnExit = comboSNExit ButtonWidth = 16 Style = dsDropDownList DropDownCount = 4 ItemHeight = 25 end object tbl: TVirtualTable Active = True 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 item Name = 'Zakazka' DataType = ftString Size = 15 end item Name = 'ID' DataType = ftInteger end item Name = 'FormaPouzita' DataType = ftBoolean end item Name = 'PocetVstriku' DataType = ftInteger end item Name = 'IDVyrCK' DataType = ftInteger end item Name = 'ParovaForma' DataType = ftSmallint end> AfterPost = tblAfterPost Left = 124 Top = 107 Data = { 0400130008004944506F73747570030000000000000006005265674369730100 14000000000005004E617A6576010064000000000007004B73446F6272650200 00000000000007004944567972435303000000000000000700466F726D61534E 01001E000000000007004944726164656B0300000000000000080049446E6172 616469030000000000000009004B735A6D65746B793103000000000000000900 4B735A6D65746B7932030000000000000009004B735A6D65746B793303000000 0000000009004B735665466F726D6503000000000000000500466F726D610100 1E000000000007005A616B617A6B6101000F0000000000020049440300000000 0000000C00466F726D61506F757A69746105000000000000000C00506F636574 56737472696B75030000000000000007004944567972434B0300000000000000 0B005061726F7661466F726D610200000000000000000000000000} 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 object tblID: TIntegerField FieldName = 'ID' end object tblFormaPouzita: TBooleanField FieldName = 'FormaPouzita' end object tblPocetVstriku: TIntegerField FieldName = 'PocetVstriku' end object tblIDVyrCK: TIntegerField FieldName = 'IDVyrCK' end object tblParovaForma: TSmallintField DefaultExpression = '0' FieldName = 'ParovaForma' end end object ds: TDataSource DataSet = tbl Left = 73 Top = 107 end end