Prvotni verze pro Giteu

2025-09-05 12:22:48 +02:00
parent fdc66e476a
commit cab52aaa5a
29 changed files with 14982 additions and 0 deletions
--- a/frmLikvidace.dfm
+++ b/frmLikvidace.dfm
@ -0,0 +1,384 @@
+object formLikvidace: TformLikvidace
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = '   V'#221'DEJ  ZBO'#381#205'  K  LIKVIDACI'
+  ClientHeight = 744
+  ClientWidth = 1364
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -21
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  DesignSize = (
+    1364
+    744)
+  TextHeight = 25
+  object gbPolozky: TGroupBox
+    Left = 14
+    Top = 12
+    Width = 1058
+    Height = 709
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -21
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+    object grdPol: TDBGridEh
+      Left = 2
+      Top = 27
+      Width = 1054
+      Height = 680
+      Align = alClient
+      AllowedSelections = []
+      DataGrouping.Active = True
+      DataGrouping.Color = 13425149
+      DataGrouping.GroupLevels = <
+        item
+          ColumnName = 'Column_0_NazevSort'
+        end>
+      DataGrouping.ParentColor = False
+      DataSource = dSource
+      DynProps = <>
+      GridLineParams.ColorScheme = glcsThemedEh
+      GridLineParams.VertEmptySpaceStyle = dessNonEh
+      IndicatorOptions = []
+      Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
+      OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
+      SelectionDrawParams.SelectionStyle = gsdsClassicEh
+      TabOrder = 0
+      TitleParams.Color = clMoneyGreen
+      TitleParams.FillStyle = cfstSolidEh
+      TitleParams.MultiTitle = True
+      TitleParams.SecondColor = clMoneyGreen
+      OnGetCellParams = grdPolGetCellParams
+      Columns = <
+        item
+          CellButtons = <>
+          DynProps = <>
+          EditButtons = <>
+          FieldName = 'NazevSort'
+          Footers = <>
+          MRUList.AutoAdd = False
+          STFilter.Visible = False
+          Visible = False
+        end
+        item
+          Alignment = taCenter
+          CellButtons = <>
+          DynProps = <>
+          EditButtons = <>
+          FieldName = 'RegCis'
+          Footers = <>
+          ReadOnly = True
+          TextEditing = False
+          Title.Caption = 'Zbo'#382#237'|'#268#237'slo'
+          Width = 189
+        end
+        item
+          CellButtons = <>
+          DynProps = <>
+          EditButtons = <>
+          FieldName = 'Nazev1'
+          Footers = <>
+          ReadOnly = True
+          TextEditing = False
+          Title.Caption = 'Zbo'#382#237'|N'#225'zev'
+          Width = 572
+        end
+        item
+          Alignment = taCenter
+          CellButtons = <>
+          DisplayFormat = '###0.##'
+          DynProps = <>
+          EditButtons = <>
+          FieldName = 'StavSkladu'
+          Footers = <>
+          ReadOnly = True
+          TextEditing = False
+          Title.Caption = 'Mno'#382'stv'#237'|Stav skladu'
+          Width = 125
+        end
+        item
+          Alignment = taCenter
+          CellButtons = <>
+          DisplayFormat = '###0.##'
+          DynProps = <>
+          EditButtons = <>
+          FieldName = 'KeVraceni'
+          Footers = <>
+          Layout = tlCenter
+          Title.Caption = 'Mno'#382'stv'#237'|Ke vr'#225'cen'#237
+          Width = 124
+          OnAdvDrawDataCell = grdPolColumns4AdvDrawDataCell
+          OnGetCellParams = grdPolColumns4GetCellParams
+          OnUpdateData = grdPolColumns4UpdateData
+        end
+        item
+          CellButtons = <>
+          DynProps = <>
+          EditButtons = <>
+          FieldName = 'Priorita'
+          Footers = <>
+          Visible = False
+        end>
+      object RowDetailData: TRowDetailPanelControlEh
+      end
+    end
+  end
+  object btnOK: TButton
+    Left = 1102
+    Top = 66
+    Width = 244
+    Height = 69
+    Anchors = [akTop, akRight]
+    Caption = 'Ulo'#382'it v'#253'dej k likvidaci'
+    TabOrder = 0
+    OnClick = btnOKClick
+  end
+  object btnRozbalit: TButton
+    Left = 1102
+    Top = 209
+    Width = 244
+    Height = 46
+    Anchors = [akTop, akRight]
+    Caption = 'Rozbalit v'#353'e'
+    TabOrder = 2
+    OnClick = btnRozbalitClick
+  end
+  object btnSbalit: TButton
+    Left = 1102
+    Top = 277
+    Width = 244
+    Height = 45
+    Anchors = [akTop, akRight]
+    Caption = 'Sbalit v'#353'e'
+    TabOrder = 3
+    OnClick = btnSbalitClick
+  end
+  object btnZavrit: TButton
+    Left = 1102
+    Top = 385
+    Width = 244
+    Height = 65
+    Anchors = [akTop, akRight]
+    Caption = 'Zav'#345#237't (bez ulo'#382'en'#237')'
+    TabOrder = 4
+    OnClick = btnZavritClick
+  end
+  object Button1: TButton
+    Left = 1089
+    Top = 663
+    Width = 166
+    Height = 50
+    Anchors = [akRight, akBottom]
+    Caption = '(HDC) Save tbl'
+    TabOrder = 5
+    Visible = False
+    OnClick = Button1Click
+  end
+  object btnNuluj: TButton
+    Left = 1089
+    Top = 594
+    Width = 253
+    Height = 50
+    Anchors = [akRight, akBottom]
+    Caption = '(HDC) Vymazat mno'#382'stv'#237
+    TabOrder = 6
+    Visible = False
+    OnClick = btnNulujClick
+  end
+  object dSource: TDataSource
+    DataSet = vTab
+    Left = 1224
+    Top = 10
+  end
+  object vTab: TMemTableEh
+    Params = <>
+    Left = 1278
+    Top = 12
+    object vTabSortimentK1: TStringField
+      Alignment = taCenter
+      FieldName = 'K1'
+      Visible = False
+      Size = 10
+    end
+    object vTabSortimentK2: TStringField
+      Alignment = taCenter
+      FieldName = 'K2'
+      Visible = False
+      Size = 10
+    end
+    object vTabNazevSort: TStringField
+      DisplayLabel = 'Sortiment'
+      FieldName = 'NazevSort'
+      Size = 100
+    end
+    object vTabSkupZbo: TStringField
+      FieldName = 'SkupZbo'
+      Visible = False
+      Size = 3
+    end
+    object vTabRegCis: TStringField
+      FieldName = 'RegCis'
+      Size = 30
+    end
+    object vTabNazev1: TStringField
+      FieldName = 'Nazev1'
+      Size = 100
+    end
+    object vTabStavSkladu: TFloatField
+      FieldName = 'StavSkladu'
+      DisplayFormat = '0'
+      EditFormat = '0'
+      Precision = 2
+    end
+    object vTabKeVraceni: TFloatField
+      FieldName = 'KeVraceni'
+      DisplayFormat = '0'
+      EditFormat = '0'
+      Precision = 2
+    end
+    object vTabIDStavSkladu: TIntegerField
+      FieldName = 'IDStavSkladu'
+      Visible = False
+    end
+    object vTabAktDodavatel: TIntegerField
+      FieldName = 'AktDodavatel'
+      Visible = False
+    end
+    object vTabPriorita: TIntegerField
+      FieldName = 'Priorita'
+      Visible = False
+    end
+    object vTabPoradiSortNazev: TStringField
+      FieldName = 'PoradiSortNazev'
+      Visible = False
+      Size = 100
+    end
+    object vTabK1K2: TStringField
+      FieldName = 'K1K2'
+      Visible = False
+    end
+    object vTabPoradiVSort: TSingleField
+      FieldName = 'PoradiVSort'
+      Visible = False
+    end
+    object MemTableData: TMemTableDataEh
+      object DataStruct: TMTDataStructEh
+        object PoradiVSort: TMTNumericDataFieldEh
+          FieldName = 'PoradiVSort'
+          NumericDataType = fdtSingleEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object K1K2: TMTStringDataFieldEh
+          FieldName = 'K1K2'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Visible = False
+        end
+        object PoradiSortNazev: TMTStringDataFieldEh
+          FieldName = 'PoradiSortNazev'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Visible = False
+          Size = 100
+        end
+        object Priorita: TMTNumericDataFieldEh
+          FieldName = 'Priorita'
+          NumericDataType = fdtIntegerEh
+          AutoIncrement = False
+          DisplayWidth = 2
+          currency = False
+          Precision = 0
+        end
+        object AktDodavatel: TMTNumericDataFieldEh
+          FieldName = 'AktDodavatel'
+          NumericDataType = fdtIntegerEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object IDStavSkladu: TMTNumericDataFieldEh
+          FieldName = 'IDStavSkladu'
+          NumericDataType = fdtIntegerEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object KeVraceni: TMTNumericDataFieldEh
+          FieldName = 'KeVraceni'
+          NumericDataType = fdtFloatEh
+          AutoIncrement = False
+          Alignment = taCenter
+          DisplayWidth = 20
+          DisplayFormat = '0'
+          currency = False
+          Precision = 2
+        end
+        object StavSkladu: TMTNumericDataFieldEh
+          FieldName = 'StavSkladu'
+          NumericDataType = fdtFloatEh
+          AutoIncrement = False
+          Alignment = taCenter
+          DisplayWidth = 20
+          DisplayFormat = '0'
+          currency = False
+          Precision = 2
+        end
+        object Nazev1: TMTStringDataFieldEh
+          FieldName = 'Nazev1'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Size = 100
+        end
+        object RegCis: TMTStringDataFieldEh
+          FieldName = 'RegCis'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Size = 30
+        end
+        object SkupZbo: TMTStringDataFieldEh
+          FieldName = 'SkupZbo'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Size = 3
+        end
+        object NazevSort: TMTStringDataFieldEh
+          FieldName = 'NazevSort'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Size = 100
+        end
+        object K2: TMTStringDataFieldEh
+          FieldName = 'K2'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Size = 10
+        end
+        object K1: TMTStringDataFieldEh
+          FieldName = 'K1'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Size = 10
+        end
+      end
+      object RecordsList: TRecordsListEh
+      end
+    end
+  end
+end