object formReklamaceMat: TformReklamaceMat Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' Reklamace - p'#345'esun MATERI'#193'LU' ClientHeight = 533 ClientWidth = 792 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] Position = poMainFormCenter OnClose = FormClose OnShow = FormShow TextHeight = 14 object Label1: TLabel Left = 5 Top = 5 Width = 69 Height = 16 Caption = 'REKLAMACE' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 5 Top = 253 Width = 53 Height = 16 Caption = 'P'#344'ESUNY' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object btnOK: TButton Left = 586 Top = 499 Width = 75 Height = 25 Caption = 'OK' TabOrder = 0 OnClick = btnOKClick end object btnStorno: TButton Left = 708 Top = 499 Width = 75 Height = 25 Caption = 'Storno' TabOrder = 1 OnClick = btnStornoClick end object gridMat: TJvDBGrid Left = 3 Top = 25 Width = 781 Height = 215 DataSource = dsMat Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack] TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = gridMatDblClick ScrollBars = ssVertical SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 18 TitleRowHeight = 18 Columns = < item Alignment = taCenter Expanded = False FieldName = 'mSZ' Title.Alignment = taCenter Title.Caption = 'SK' Width = 40 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'mRegCis' Title.Alignment = taCenter Title.Caption = 'Reg. '#269#237'slo' Width = 115 Visible = True end item Expanded = False FieldName = 'mNazev' Title.Caption = 'N'#225'zev' Width = 535 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'mMnoz' Title.Alignment = taCenter Title.Caption = 'Mno'#382'stv'#237 Visible = True end item Expanded = False FieldName = 'mIdSS' Visible = False end> end object gridCil: TJvDBGrid Left = 5 Top = 272 Width = 779 Height = 215 DataSource = dsCil Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack] PopupMenu = pmCil TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = gridCilDblClick ScrollBars = ssVertical SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 18 TitleRowHeight = 18 Columns = < item Alignment = taCenter Expanded = False FieldName = 'cSZ' Title.Alignment = taCenter Title.Caption = 'SK' Width = 40 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cRegCis' Title.Alignment = taCenter Title.Caption = 'Reg. '#269#237'slo' Width = 115 Visible = True end item Expanded = False FieldName = 'cNazev' Title.Caption = 'N'#225'zev' Width = 295 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cMnoz' Title.Alignment = taCenter Title.Caption = 'Mno'#382'.' Width = 65 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cSklad' Title.Alignment = taCenter Title.Caption = 'Sklad' Width = 110 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cMnozPresun' Title.Alignment = taCenter Title.Caption = 'Mno'#382'.skl.' Width = 64 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cMnozIT' Title.Alignment = taCenter Title.Caption = 'Mno'#382'. IT' Visible = True end item Expanded = False FieldName = 'cIdSSOld' Visible = False end item Expanded = False FieldName = 'cIdSSNew' Visible = False end item Expanded = False FieldName = 'cIdSklad' Visible = False end> end object tblMat: TFDMemTable FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 38 Top = 110 object mIdSS: TIntegerField FieldName = 'mIdSS' end object mSZ: TStringField FieldName = 'mSZ' Size = 3 end object mRegCis: TStringField FieldName = 'mRegCis' Size = 30 end object mNazev: TStringField FieldName = 'mNazev' Size = 100 end object mMnoz: TFloatField FieldName = 'mMnoz' DisplayFormat = '#,##0.##' end end object tblCil: TFDMemTable FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 68 Top = 321 object cIdSSOld: TIntegerField FieldName = 'cIdSSOld' Required = True end object cIdSSNew: TIntegerField FieldName = 'cIdSSNew' end object cSZ: TStringField FieldName = 'cSZ' Required = True Size = 3 end object cRegCis: TStringField FieldName = 'cRegCis' Required = True Size = 30 end object cNazev: TStringField FieldName = 'cNazev' Required = True Size = 100 end object cMnoz: TFloatField FieldName = 'cMnoz' Required = True DisplayFormat = '#,##0.##' end object cIdSklad: TStringField FieldName = 'cIdSklad' Size = 30 end object cMnozPresun: TFloatField FieldName = 'cMnozPresun' DisplayFormat = '#,##0.##' end object cSklad: TStringField FieldName = 'cSklad' Size = 50 end object tblCilcMnozIT: TFloatField FieldName = 'cMnozIT' DisplayFormat = '#,##0.##' end end object dsMat: TDataSource DataSet = tblMat Left = 82 Top = 110 end object dsCil: TDataSource DataSet = tblCil Left = 108 Top = 319 end object pmCil: TPopupMenu Left = 246 Top = 347 object pmDelCil: TMenuItem Caption = '&Smazat polo'#382'ku' OnClick = pmDelCilClick end end end