Neue Funktionen und Optimierungen hinzugefügt

- Zwei neue DLL-Dateien in `Product.wxs` hinzugefügt und eine aktualisiert. - Neues Feld `CFG_SEQUENCE` für Cockpit-Definitionen eingeführt. - Verbesserte SQL-Statements und Logging-Nachrichten in mehreren Dateien. - GUI-Elemente in `frmAdministration` und `frmCockpitConfig` angepasst. - Neue Referenz für `GdPicture.NET.14.WinForms` in `taskFLOW.vbproj` hinzugefügt. - Assembly-Version auf `3.5.1.0` aktualisiert. - Verbesserte Handhabung von Benutzern und Gruppen in der Cockpit-Konfiguration. - Inaktivitäts-Logout-Logik für offene Cockpit-Konfiguration deaktiviert.
2026-09-21 11:56:54 +02:00
parent 4ba29ce57b
commit 703df0adc3
13 changed files with 915 additions and 487 deletions
--- a/app/TaskFlow/frmAdministration.Designer.vb
+++ b/app/TaskFlow/frmAdministration.Designer.vb
@@ -364,6 +364,7 @@ Partial Class frmAdministration
        Me.gridAssignedUsers.AllowDrop = True
        Me.gridAssignedUsers.DataSource = Me.TBPROFILE_USERBindingSource
        resources.ApplyResources(Me.gridAssignedUsers, "gridAssignedUsers")
+        Me.gridAssignedUsers.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAssignedUsers.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.gridAssignedUsers.MainView = Me.viewAssignedUsers
        Me.gridAssignedUsers.Name = "gridAssignedUsers"
        Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers})
@@ -381,7 +382,6 @@ Partial Class frmAdministration
        'viewAssignedUsers
        '
        Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colEMAIL1, Me.GridColumn1, Me.GridColumn2})
-        Me.viewAssignedUsers.DetailHeight = 295
        Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers
        Me.viewAssignedUsers.Name = "viewAssignedUsers"
        Me.viewAssignedUsers.OptionsBehavior.Editable = False
@@ -393,42 +393,42 @@ Partial Class frmAdministration
        '
        resources.ApplyResources(Me.colPRENAME1, "colPRENAME1")
        Me.colPRENAME1.FieldName = "PRENAME"
-        Me.colPRENAME1.MinWidth = 16
+        Me.colPRENAME1.MinWidth = 21
        Me.colPRENAME1.Name = "colPRENAME1"
        '
        'colNAME3
        '
        resources.ApplyResources(Me.colNAME3, "colNAME3")
        Me.colNAME3.FieldName = "NAME"
-        Me.colNAME3.MinWidth = 16
+        Me.colNAME3.MinWidth = 21
        Me.colNAME3.Name = "colNAME3"
        '
        'colUSERNAME1
        '
        resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1")
        Me.colUSERNAME1.FieldName = "USERNAME"
-        Me.colUSERNAME1.MinWidth = 16
+        Me.colUSERNAME1.MinWidth = 21
        Me.colUSERNAME1.Name = "colUSERNAME1"
        '
        'colEMAIL1
        '
        resources.ApplyResources(Me.colEMAIL1, "colEMAIL1")
        Me.colEMAIL1.FieldName = "EMAIL"
-        Me.colEMAIL1.MinWidth = 16
+        Me.colEMAIL1.MinWidth = 21
        Me.colEMAIL1.Name = "colEMAIL1"
        '
        'GridColumn1
        '
        resources.ApplyResources(Me.GridColumn1, "GridColumn1")
        Me.GridColumn1.FieldName = "COMMENT"
-        Me.GridColumn1.MinWidth = 16
+        Me.GridColumn1.MinWidth = 21
        Me.GridColumn1.Name = "GridColumn1"
        '
        'GridColumn2
        '
        resources.ApplyResources(Me.GridColumn2, "GridColumn2")
        Me.GridColumn2.FieldName = "SHORTNAME"
-        Me.GridColumn2.MinWidth = 16
+        Me.GridColumn2.MinWidth = 21
        Me.GridColumn2.Name = "GridColumn2"
        '
        'Panel1
@@ -447,6 +447,7 @@ Partial Class frmAdministration
        Me.gridAvailableUsers.AllowDrop = True
        Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource
        resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers")
+        Me.gridAvailableUsers.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableUsers.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.gridAvailableUsers.MainView = Me.viewAvailableUsers
        Me.gridAvailableUsers.Name = "gridAvailableUsers"
        Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers})
@@ -459,7 +460,6 @@ Partial Class frmAdministration
        'viewAvailableUsers
        '
        Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL, Me.GridColumn3, Me.GridColumn4})
-        Me.viewAvailableUsers.DetailHeight = 295
        Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers
        Me.viewAvailableUsers.Name = "viewAvailableUsers"
        Me.viewAvailableUsers.OptionsBehavior.Editable = False
@@ -471,42 +471,42 @@ Partial Class frmAdministration
        '
        resources.ApplyResources(Me.colPRENAME, "colPRENAME")
        Me.colPRENAME.FieldName = "USER_PRENAME"
-        Me.colPRENAME.MinWidth = 16
+        Me.colPRENAME.MinWidth = 21
        Me.colPRENAME.Name = "colPRENAME"
        '
        'colNAME2
        '
        resources.ApplyResources(Me.colNAME2, "colNAME2")
        Me.colNAME2.FieldName = "USER_SURNAME"
-        Me.colNAME2.MinWidth = 16
+        Me.colNAME2.MinWidth = 21
        Me.colNAME2.Name = "colNAME2"
        '
        'colUSERNAME
        '
        resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
        Me.colUSERNAME.FieldName = "USER_NAME"
-        Me.colUSERNAME.MinWidth = 16
+        Me.colUSERNAME.MinWidth = 21
        Me.colUSERNAME.Name = "colUSERNAME"
        '
        'colEMAIL
        '
        resources.ApplyResources(Me.colEMAIL, "colEMAIL")
        Me.colEMAIL.FieldName = "USER_EMAIL"
-        Me.colEMAIL.MinWidth = 16
+        Me.colEMAIL.MinWidth = 21
        Me.colEMAIL.Name = "colEMAIL"
        '
        'GridColumn3
        '
        resources.ApplyResources(Me.GridColumn3, "GridColumn3")
        Me.GridColumn3.FieldName = "USER_COMMENT"
-        Me.GridColumn3.MinWidth = 16
+        Me.GridColumn3.MinWidth = 21
        Me.GridColumn3.Name = "GridColumn3"
        '
        'GridColumn4
        '
        resources.ApplyResources(Me.GridColumn4, "GridColumn4")
        Me.GridColumn4.FieldName = "USER_SHORTNAME"
-        Me.GridColumn4.MinWidth = 16
+        Me.GridColumn4.MinWidth = 21
        Me.GridColumn4.Name = "GridColumn4"
        '
        'Panel2
@@ -542,6 +542,7 @@ Partial Class frmAdministration
        Me.gridAssignedGroups.AllowDrop = True
        Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource
        resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups")
+        Me.gridAssignedGroups.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAssignedGroups.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.gridAssignedGroups.MainView = Me.viewAssignedGroups
        Me.gridAssignedGroups.Name = "gridAssignedGroups"
        Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups})
@@ -554,7 +555,6 @@ Partial Class frmAdministration
        'viewAssignedGroups
        '
        Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME5, Me.colCOMMENT1})
-        Me.viewAssignedGroups.DetailHeight = 295
        Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups
        Me.viewAssignedGroups.Name = "viewAssignedGroups"
        Me.viewAssignedGroups.OptionsBehavior.Editable = False
@@ -566,14 +566,14 @@ Partial Class frmAdministration
        '
        resources.ApplyResources(Me.colNAME5, "colNAME5")
        Me.colNAME5.FieldName = "NAME"
-        Me.colNAME5.MinWidth = 16
+        Me.colNAME5.MinWidth = 21
        Me.colNAME5.Name = "colNAME5"
        '
        'colCOMMENT1
        '
        resources.ApplyResources(Me.colCOMMENT1, "colCOMMENT1")
        Me.colCOMMENT1.FieldName = "COMMENT"
-        Me.colCOMMENT1.MinWidth = 16
+        Me.colCOMMENT1.MinWidth = 21
        Me.colCOMMENT1.Name = "colCOMMENT1"
        '
        'Panel3
@@ -592,6 +592,7 @@ Partial Class frmAdministration
        Me.gridAvailableGroups.AllowDrop = True
        Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource
        resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups")
+        Me.gridAvailableGroups.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableGroups.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.gridAvailableGroups.MainView = Me.viewAvailableGroups
        Me.gridAvailableGroups.Name = "gridAvailableGroups"
        Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups})
@@ -604,7 +605,6 @@ Partial Class frmAdministration
        'viewAvailableGroups
        '
        Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME4, Me.colCOMMENT})
-        Me.viewAvailableGroups.DetailHeight = 295
        Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups
        Me.viewAvailableGroups.Name = "viewAvailableGroups"
        Me.viewAvailableGroups.OptionsBehavior.Editable = False
@@ -616,14 +616,14 @@ Partial Class frmAdministration
        '
        resources.ApplyResources(Me.colNAME4, "colNAME4")
        Me.colNAME4.FieldName = "NAME"
-        Me.colNAME4.MinWidth = 16
+        Me.colNAME4.MinWidth = 21
        Me.colNAME4.Name = "colNAME4"
        '
        'colCOMMENT
        '
        resources.ApplyResources(Me.colCOMMENT, "colCOMMENT")
        Me.colCOMMENT.FieldName = "COMMENT"
-        Me.colCOMMENT.MinWidth = 16
+        Me.colCOMMENT.MinWidth = 21
        Me.colCOMMENT.Name = "colCOMMENT"
        '
        'Panel4
@@ -651,12 +651,13 @@ Partial Class frmAdministration
        '
        Me.SplitContainerControl1.Panel2.Controls.Add(Me.pgFinalIndexes)
        resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
-        Me.SplitContainerControl1.SplitterPosition = 506
+        Me.SplitContainerControl1.SplitterPosition = 651
        '
        'gridFinalIndex
        '
        Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource
        resources.ApplyResources(Me.gridFinalIndex, "gridFinalIndex")
+        Me.gridFinalIndex.EmbeddedNavigator.Margin = CType(resources.GetObject("gridFinalIndex.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.gridFinalIndex.MainView = Me.viewFinalIndex
        Me.gridFinalIndex.Name = "gridFinalIndex"
        Me.gridFinalIndex.TabStop = False
@@ -677,7 +678,6 @@ Partial Class frmAdministration
        Me.viewFinalIndex.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise
        Me.viewFinalIndex.Appearance.EvenRow.Options.UseBackColor = True
        Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPROFIL_ID, Me.colCONNECTION_ID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colPREVENT_DUPLICATES, Me.colALLOW_NEW_VALUES, Me.colDESCRIPTION1, Me.colACTIVE})
-        Me.viewFinalIndex.DetailHeight = 295
        Me.viewFinalIndex.GridControl = Me.gridFinalIndex
        Me.viewFinalIndex.Name = "viewFinalIndex"
        Me.viewFinalIndex.OptionsBehavior.Editable = False
@@ -689,74 +689,92 @@ Partial Class frmAdministration
        'colGUID
        '
        Me.colGUID.FieldName = "GUID"
+        Me.colGUID.MinWidth = 26
        Me.colGUID.Name = "colGUID"
+        resources.ApplyResources(Me.colGUID, "colGUID")
        '
        'colPROFIL_ID
        '
        Me.colPROFIL_ID.FieldName = "PROFIL_ID"
+        Me.colPROFIL_ID.MinWidth = 26
        Me.colPROFIL_ID.Name = "colPROFIL_ID"
+        resources.ApplyResources(Me.colPROFIL_ID, "colPROFIL_ID")
        '
        'colCONNECTION_ID
        '
        Me.colCONNECTION_ID.FieldName = "CONNECTION_ID"
+        Me.colCONNECTION_ID.MinWidth = 26
        Me.colCONNECTION_ID.Name = "colCONNECTION_ID"
+        resources.ApplyResources(Me.colCONNECTION_ID, "colCONNECTION_ID")
        '
        'colINDEXNAME
        '
        resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME")
        Me.colINDEXNAME.FieldName = "INDEXNAME"
+        Me.colINDEXNAME.MinWidth = 26
        Me.colINDEXNAME.Name = "colINDEXNAME"
        '
        'colVALUE
        '
        resources.ApplyResources(Me.colVALUE, "colVALUE")
        Me.colVALUE.FieldName = "VALUE"
+        Me.colVALUE.MinWidth = 26
        Me.colVALUE.Name = "colVALUE"
        '
        'colSQL_COMMAND
        '
        resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND")
        Me.colSQL_COMMAND.FieldName = "SQL_COMMAND"
+        Me.colSQL_COMMAND.MinWidth = 26
        Me.colSQL_COMMAND.Name = "colSQL_COMMAND"
        '
        'colPREVENT_DUPLICATES
        '
        resources.ApplyResources(Me.colPREVENT_DUPLICATES, "colPREVENT_DUPLICATES")
        Me.colPREVENT_DUPLICATES.FieldName = "PREVENT_DUPLICATES"
+        Me.colPREVENT_DUPLICATES.MinWidth = 26
        Me.colPREVENT_DUPLICATES.Name = "colPREVENT_DUPLICATES"
        '
        'colALLOW_NEW_VALUES
        '
        resources.ApplyResources(Me.colALLOW_NEW_VALUES, "colALLOW_NEW_VALUES")
        Me.colALLOW_NEW_VALUES.FieldName = "ALLOW_NEW_VALUES"
+        Me.colALLOW_NEW_VALUES.MinWidth = 26
        Me.colALLOW_NEW_VALUES.Name = "colALLOW_NEW_VALUES"
        '
        'colDESCRIPTION1
        '
        resources.ApplyResources(Me.colDESCRIPTION1, "colDESCRIPTION1")
        Me.colDESCRIPTION1.FieldName = "DESCRIPTION"
+        Me.colDESCRIPTION1.MinWidth = 26
        Me.colDESCRIPTION1.Name = "colDESCRIPTION1"
        '
        'colACTIVE
        '
        Me.colACTIVE.FieldName = "ACTIVE"
+        Me.colACTIVE.MinWidth = 26
        Me.colACTIVE.Name = "colACTIVE"
+        resources.ApplyResources(Me.colACTIVE, "colACTIVE")
        '
        'pgFinalIndexes
        '
-        Me.pgFinalIndexes.Cursor = System.Windows.Forms.Cursors.Default
        resources.ApplyResources(Me.pgFinalIndexes, "pgFinalIndexes")
+        Me.pgFinalIndexes.Cursor = System.Windows.Forms.Cursors.Default
        Me.pgFinalIndexes.MenuManager = Me.RibbonControl1
        Me.pgFinalIndexes.Name = "pgFinalIndexes"
        Me.pgFinalIndexes.OptionsView.AllowReadOnlyRowAppearance = DevExpress.Utils.DefaultBoolean.[True]
+        Me.pgFinalIndexes.OptionsView.FixedLineWidth = 3
+        Me.pgFinalIndexes.OptionsView.MinRowAutoHeight = 12
        '
        'RibbonControl1
        '
+        Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(39, 36, 39, 36)
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemRefreshProfileData, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarToggleSwitchItemEdit, Me.bbtnitmReject, Me.bbtnitmNotResponsible})
        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
        Me.RibbonControl1.MaxItemId = 33
        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.OptionsMenuMinWidth = 424
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -1865,6 +1883,7 @@ Partial Class frmAdministration
        '
        Me.GridControlNavigation.DataSource = Me.TBPM_PROFILEBindingSource
        resources.ApplyResources(Me.GridControlNavigation, "GridControlNavigation")
+        Me.GridControlNavigation.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlNavigation.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.GridControlNavigation.MainView = Me.GridViewProfile
        Me.GridControlNavigation.Name = "GridControlNavigation"
        Me.GridControlNavigation.TabStop = False
@@ -1877,7 +1896,6 @@ Partial Class frmAdministration
        Me.GridViewProfile.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
        Me.GridViewProfile.Appearance.FocusedRow.Options.UseBackColor = True
        Me.GridViewProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colProfilGUID, Me.colNAME})
-        Me.GridViewProfile.DetailHeight = 295
        Me.GridViewProfile.GridControl = Me.GridControlNavigation
        Me.GridViewProfile.Name = "GridViewProfile"
        Me.GridViewProfile.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@@ -1894,13 +1912,14 @@ Partial Class frmAdministration
        '
        resources.ApplyResources(Me.colProfilGUID, "colProfilGUID")
        Me.colProfilGUID.FieldName = "GUID"
+        Me.colProfilGUID.MinWidth = 26
        Me.colProfilGUID.Name = "colProfilGUID"
        '
        'colNAME
        '
        resources.ApplyResources(Me.colNAME, "colNAME")
        Me.colNAME.FieldName = "NAME"
-        Me.colNAME.MinWidth = 16
+        Me.colNAME.MinWidth = 21
        Me.colNAME.Name = "colNAME"
        '
        'TBPM_KONFIGURATIONBindingSource