Pridana funkcnost zmeny planovaneho ukonceni prikazu podle tabulky (comObject akce 36) + prvni verze generovani KoopObj dle stare HDC funkcnosti ctecky

2026-05-26 08:39:00 +02:00
parent b1cd64bb32
commit 078d77028a
17 changed files with 3380 additions and 490 deletions
@@ -0,0 +1,205 @@
+object formVPrZmenaPlanuUkonceni: TformVPrZmenaPlanuUkonceni
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = '  Zm'#283'na pl'#225'novan'#233'ho ukon'#269'en'#237' v'#253'roby'
+  ClientHeight = 306
+  ClientWidth = 496
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  RoundedCorners = rcOn
+  OnShow = FormShow
+  DesignSize = (
+    496
+    306)
+  TextHeight = 21
+  object Label1: TLabel
+    Left = 16
+    Top = 77
+    Width = 191
+    Height = 21
+    Caption = 'Pl'#225'novan'#233' datum ukon'#269'en'#237':'
+  end
+  object lblPrikaz: TLabel
+    Left = 16
+    Top = 20
+    Width = 59
+    Height = 21
+    Caption = 'lblPrikaz'
+  end
+  object Label2: TLabel
+    Left = 16
+    Top = 155
+    Width = 171
+    Height = 21
+    Caption = 'Zm'#283'nit u ni'#382#353#237'ch p'#345#237'kaz'#367':'
+  end
+  object lblDilec: TLabel
+    Left = 16
+    Top = 44
+    Width = 51
+    Height = 21
+    Caption = 'lblDilec'
+  end
+  object grdPrikazy: TNextGrid6
+    Left = 16
+    Top = 185
+    Width = 463
+    Height = 54
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ParentColor = False
+    TabOrder = 0
+    StyleOptions = [soNativeStyles, soVCLStyles]
+    ActiveView = grdPrikazyView
+    ActiveViewIndex = 0
+    RowHeight = 26
+    ScrollBars = [sbVertical]
+    UserDefinedColorPalette.GeometryHoverColor = clBlack
+    object grdPrikazyView: TNxReportGridView6
+      GridLines = True
+    end
+    object colZmena: TNxCheckBoxColumn6
+      Alignment = taCenter
+      Editing = True
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Segoe UI'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -12
+      Footer.Font.Name = 'Segoe UI'
+      Footer.Font.Style = []
+      Footer.FormatMask = '#,##0.00'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -12
+      Header.Font.Name = 'Segoe UI'
+      Header.Font.Style = []
+      Index = 0
+      PlaceholderText = 'True'
+      Position = 0
+      Width = 30
+      CheckedImageIndex = -1
+      UncheckedImageIndex = -1
+      InsertString = 'False'
+    end
+    object colRadaPrikaz: TNxTextColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Segoe UI'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -12
+      Footer.Font.Name = 'Segoe UI'
+      Footer.Font.Style = []
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = #344'ada / p'#345#237'kaz'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -16
+      Header.Font.Name = 'Segoe UI'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 1
+      PlaceholderText = 'Text Text'
+      Position = 1
+      Width = 160
+    end
+    object colNazev1: TNxTextColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Segoe UI'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -12
+      Footer.Font.Name = 'Segoe UI'
+      Footer.Font.Style = []
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'N'#225'zev 1'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -16
+      Header.Font.Name = 'Segoe UI'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 2
+      PlaceholderText = 'Text Text'
+      Position = 2
+      Width = 250
+    end
+    object colID: TNxIncrementColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Segoe UI'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -12
+      Footer.Font.Name = 'Segoe UI'
+      Footer.Font.Style = []
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'ID'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -12
+      Header.Font.Name = 'Segoe UI'
+      Header.Font.Style = []
+      Index = 3
+      PlaceholderText = '1'
+      Position = 3
+      Visible = False
+      InsertString = '-1'
+    end
+  end
+  object cbZmenaVPlanu: TCheckBox
+    Left = 16
+    Top = 109
+    Width = 205
+    Height = 27
+    Caption = 'Zm'#283'nit i v pl'#225'nu v'#253'roby'
+    TabOrder = 1
+  end
+  object dtPlanUkonceni: TDateTimePicker
+    Left = 257
+    Top = 73
+    Width = 113
+    Height = 29
+    Date = 46148.000000000000000000
+    Time = 0.410625856478873200
+    TabOrder = 2
+  end
+  object btnOK: TButton
+    Left = 16
+    Top = 256
+    Width = 119
+    Height = 41
+    Anchors = [akLeft, akBottom]
+    Caption = 'OK'
+    TabOrder = 3
+    OnClick = btnOKClick
+  end
+  object btnStorno: TButton
+    Left = 360
+    Top = 256
+    Width = 119
+    Height = 41
+    Anchors = [akRight, akBottom]
+    Caption = 'Storno'
+    TabOrder = 4
+    OnClick = btnStornoClick
+  end
+end