MS Admin ExcelExport, Debug

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -66,7 +66,7 @@ Module ModuleRuntimeVariables
     Public Property USER_GHOST_MODE_USRNAME As String = ""
 
     Public Property FORCE_LAYOUT_OVERVIEW As Boolean = False
-    Public Property SHOW_CHARTS As Boolean = False
+    Public Property SHOW_CHARTS As Boolean = True
     Public Property SHOW_MASS_VALIDATOR As Boolean = True
     Public Property WORKING_MODE As String = ""
     Public Property MONITORING_ACTIVE As Boolean = False

app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.5.3")>
+<Assembly: AssemblyVersion("2.3.5.4")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_PM_WINDREAM/My Project/licenses.licx

@@ -1,11 +1,12 @@
-DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_PM_WINDREAM/frmInvDashboard.vb

@@ -38,6 +38,7 @@ Public Class frmInvDashboard
             Configure_Split_Containers(groupCount)
             charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight}
             If groupCount >= 1 Then
+                LOGGER.Debug($"ChartCreating...Found {groupCount} ChartKonfigs")
                 SplitContainerDashboard.Visible = True
                 RibbonPageGroup1.Visible = True
                 RibbonPageGroup1.Enabled = False
@@ -49,7 +50,7 @@ Public Class frmInvDashboard
                 LOGGER.Debug($"ChartCreating...No chart-Configuration!! BASEDATA_DT_CHARTS = 0")
                 Exit Sub
             End If
-            If groupCount > 1 Then
+            If groupCount >= 1 Then
                 LOGGER.Debug($"ChartCreating...Found more than one charts [{groupCount}]")
                 For Each gRow As DataRow In oGroups
                     Dim oGroupIndex As Integer = oGroups.IndexOf(gRow)

app/DD_PM_WINDREAM/frmMain.Designer.vb

@@ -80,7 +80,7 @@ Partial Class frmMain
         Me.BarCheckItem2 = New DevExpress.XtraBars.BarCheckItem()
         Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItemExportExcel = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItemWFSingle = New DevExpress.XtraBars.BarButtonItem()
@@ -90,6 +90,7 @@ Partial Class frmMain
         Me.BarCheckItemShowSearch = New DevExpress.XtraBars.BarCheckItem()
         Me.barItemGridFontSize = New DevExpress.XtraBars.BarEditItem()
         Me.cmbGridFontSize = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
+        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -178,8 +179,6 @@ Partial Class frmMain
         Me.bwBasicData = New System.ComponentModel.BackgroundWorker()
         Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
         Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components)
-        Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -374,7 +373,7 @@ Partial Class frmMain
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
         Me.RibbonControl1.MaxItemId = 43
         Me.RibbonControl1.Name = "RibbonControl1"
@@ -647,12 +646,13 @@ Partial Class frmMain
         Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem4.Name = "BarButtonItem4"
         '
-        'BarButtonItem5
+        'BarButtonItemExportExcel
         '
-        resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
+        resources.ApplyResources(Me.BarButtonItemExportExcel, "BarButtonItemExportExcel")
-        Me.BarButtonItem5.Id = 32
+        Me.BarButtonItemExportExcel.Id = 32
-        Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItemExportExcel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItem5.Name = "BarButtonItem5"
+        Me.BarButtonItemExportExcel.Name = "BarButtonItemExportExcel"
+        Me.BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
         'BarButtonItem6
         '
@@ -719,9 +719,15 @@ Partial Class frmMain
         Me.cmbGridFontSize.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("cmbGridFontSize.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
         Me.cmbGridFontSize.Name = "cmbGridFontSize"
         '
+        'BarButtonItem8
+        '
+        resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
+        Me.BarButtonItem8.Id = 42
+        Me.BarButtonItem8.Name = "BarButtonItem8"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4, Me.RibbonPageGroup9})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4})
         Me.RibbonPage1.Name = "RibbonPage1"
         resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
         '
@@ -787,7 +793,7 @@ Partial Class frmMain
         Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem4)
         Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem3)
         Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem6)
-        Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem5)
+        Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItemExportExcel)
         Me.RibbonPageGroup6.Name = "RibbonPageGroup6"
         resources.ApplyResources(Me.RibbonPageGroup6, "RibbonPageGroup6")
         '
@@ -1441,18 +1447,6 @@ Partial Class frmMain
         'TimerInactivity
         '
         '
-        'RibbonPageGroup9
-        '
-        Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem8)
-        Me.RibbonPageGroup9.Name = "RibbonPageGroup9"
-        resources.ApplyResources(Me.RibbonPageGroup9, "RibbonPageGroup9")
-        '
-        'BarButtonItem8
-        '
-        resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
-        Me.BarButtonItem8.Id = 42
-        Me.BarButtonItem8.Name = "BarButtonItem8"
-        '
         'frmMain
         '
         Me.Appearance.Options.UseFont = True
@@ -1631,7 +1625,7 @@ Partial Class frmMain
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItemExportExcel As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItemWFSingle As DevExpress.XtraBars.BarButtonItem
@@ -1647,5 +1641,4 @@ Partial Class frmMain
     Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
     Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 End Class

app/DD_PM_WINDREAM/frmMain.resx

@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAYQBCAGEAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAZQBCAGUAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -172,7 +172,60 @@
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>179, 17</value>
   </metadata>
+  <data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
+    <value>GridControl_Docs</value>
+  </data>
+  <data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="&gt;&gt;NavBarControl1.Name" xml:space="preserve">
+    <value>NavBarControl1</value>
+  </data>
+  <data name="&gt;&gt;NavBarControl1.Type" xml:space="preserve">
+    <value>DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;NavBarControl1.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Tahoma, 9pt</value>
+  </data>
+  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 151</value>
+  </data>
+  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1233, 355</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
   <data name="GridControl_Docs.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
     <value>Zoom</value>
   </data>
@@ -200,7 +253,6 @@
   <data name="GridControl_Docs.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
     <value>Application</value>
   </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
     <value>233, 0</value>
   </data>
@@ -210,7 +262,6 @@
   <data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
     <value>1000, 355</value>
   </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
     <value>8</value>
   </data>
@@ -284,12 +335,6 @@
   <metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1012, 17</value>
   </metadata>
-  <data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
-    <value>219, 26</value>
-  </data>
-  <data name="tsmiValidationProfil.Text" xml:space="preserve">
-    <value>Starte Validierung für Profil</value>
-  </data>
   <data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing">
     <value>220, 30</value>
   </data>
@@ -443,32 +488,11 @@
   <data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
-  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+  <data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
-    <value>Fill</value>
+    <value>219, 26</value>
   </data>
-  <data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="tsmiValidationProfil.Text" xml:space="preserve">
-    <value>Tahoma, 9pt</value>
+    <value>Starte Validierung für Profil</value>
-  </data>
-  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 151</value>
-  </data>
-  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1233, 355</value>
-  </data>
-  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
-    <value>2</value>
   </data>
   <metadata name="bindsourcegrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>171, 56</value>
@@ -479,27 +503,6 @@
   <metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>404, 56</value>
   </metadata>
-  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Popup Erinnerung inaktivieren</value>
-  </data>
-  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>231, 6</value>
-  </data>
-  <data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Bring to Front</value>
-  </data>
-  <data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Out of Range - PM fixieren</value>
-  </data>
   <data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
     <value>235, 76</value>
   </data>
@@ -681,6 +684,27 @@
   <data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
+  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>234, 22</value>
+  </data>
+  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Popup Erinnerung inaktivieren</value>
+  </data>
+  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>231, 6</value>
+  </data>
+  <data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>234, 22</value>
+  </data>
+  <data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Bring to Front</value>
+  </data>
+  <data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>234, 22</value>
+  </data>
+  <data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Out of Range - PM fixieren</value>
+  </data>
   <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>605, 17</value>
   </metadata>
@@ -1369,7 +1393,7 @@
         IkdyZWVuIiAvPg0KPC9zdmc+Cw==
 </value>
   </data>
-  <data name="BarButtonItem5.Caption" xml:space="preserve">
+  <data name="BarButtonItemExportExcel.Caption" xml:space="preserve">
     <value>Export Übersicht</value>
   </data>
   <data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1723,27 +1747,6 @@
   <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>Allgemein</value>
-  </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Auswertungen</value>
-  </data>
-  <data name="RibbonPageGroup3.Text" xml:space="preserve">
-    <value>Verwaltung</value>
-  </data>
-  <data name="RibbonPageGroupBasicConf.Text" xml:space="preserve">
-    <value>Grundeinstellungen</value>
-  </data>
-  <data name="RibbonPageGroup7.Text" xml:space="preserve">
-    <value>Workflow</value>
-  </data>
-  <data name="RibbonPageGroup4.Text" xml:space="preserve">
-    <value>Funktionen/App Start</value>
-  </data>
-  <data name="RibbonPageGroup9.Text" xml:space="preserve">
-    <value>RibbonPageGroup9</value>
-  </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
   </data>
@@ -1792,6 +1795,24 @@
   <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
     <value>4</value>
   </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>Allgemein</value>
+  </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Auswertungen</value>
+  </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>Verwaltung</value>
+  </data>
+  <data name="RibbonPageGroupBasicConf.Text" xml:space="preserve">
+    <value>Grundeinstellungen</value>
+  </data>
+  <data name="RibbonPageGroup7.Text" xml:space="preserve">
+    <value>Workflow</value>
+  </data>
+  <data name="RibbonPageGroup4.Text" xml:space="preserve">
+    <value>Funktionen/App Start</value>
+  </data>
   <data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Top</value>
   </data>
@@ -2354,10 +2375,10 @@
   <data name="&gt;&gt;BarButtonItem4.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;BarButtonItem5.Name" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItemExportExcel.Name" xml:space="preserve">
-    <value>BarButtonItem5</value>
+    <value>BarButtonItemExportExcel</value>
   </data>
-  <data name="&gt;&gt;BarButtonItem5.Type" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItemExportExcel.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;BarButtonItem6.Name" xml:space="preserve">
@@ -2414,6 +2435,12 @@
   <data name="&gt;&gt;cmbGridFontSize.Type" xml:space="preserve">
     <value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
+    <value>BarButtonItem8</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem8.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
@@ -2912,18 +2939,6 @@
   <data name="&gt;&gt;TimerInactivity.Type" xml:space="preserve">
     <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup9.Name" xml:space="preserve">
-    <value>RibbonPageGroup9</value>
-  </data>
-  <data name="&gt;&gt;RibbonPageGroup9.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
-    <value>BarButtonItem8</value>
-  </data>
-  <data name="&gt;&gt;BarButtonItem8.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmMain</value>
   </data>
@@ -3135,6 +3150,9 @@
   <data name="miView.Caption" xml:space="preserve">
     <value>&amp;Ansicht</value>
   </data>
+  <data name="miBackground.Caption" xml:space="preserve">
+    <value>&amp;Hintergrund</value>
+  </data>
   <data name="miPageLayout.Caption" xml:space="preserve">
     <value>&amp;Seiten Layout</value>
   </data>
@@ -3147,9 +3165,6 @@
   <data name="miToolbars.Caption" xml:space="preserve">
     <value>Bars</value>
   </data>
-  <data name="miBackground.Caption" xml:space="preserve">
-    <value>&amp;Hintergrund</value>
-  </data>
   <data name="PrintPreviewBarCheckItem1.Caption" xml:space="preserve">
     <value>PDF Dokument</value>
   </data>

app/DD_PM_WINDREAM/frmMain.vb

@@ -313,11 +313,14 @@ Public Class frmMain
             If SHOW_CHARTS = True Then
 
                 If BASEDATA_DT_CHARTS.Rows.Count = 0 Then
+                    LOGGER.Debug("No Charts: BASEDATA_DT_CHARTS.RowCount = 0")
                     bbtnitDashboardInv.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                 Else
+                    LOGGER.Debug($"We got Charts: {BASEDATA_DT_CHARTS.Rows.Count}")
                     bbtnitDashboardInv.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                 End If
             Else
+                LOGGER.Debug("No Charts: SHOW_CHARTS = False")
                 bbtnitDashboardInv.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
 
@@ -380,7 +383,11 @@ Public Class frmMain
         Else
             RibbonPageGroupBasicConf.Visible = True
         End If
-
+        If USER_IS_ADMIN = True Then
+            BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        Else
+            BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        End If
         LOGGER.Debug("MainForm initialized!")
 
         FormOpenClose = False
@@ -633,6 +640,12 @@ Public Class frmMain
                 Try
                     GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False
                     GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False
+
+                Catch ex As Exception
+
+                End Try
+                Try
+                    GridViewWFItems.Columns.Item("ROW_COLOR").Visible = False
                 Catch ex As Exception
 
                 End Try
@@ -1396,6 +1409,42 @@ Public Class frmMain
             bsiMessage.Caption = ""
             bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
             Dim OItemScopeInfo = "No Item so far"
+            If startedFrom = "CMGROUP" Then
+                Dim oIds As New List(Of Integer)
+                Dim oCount As Integer = 0
+                For index = 0 To GridViewWFItems.RowCount
+                    Dim oRow = GridViewWFItems.GetRow(index)
+
+                    If oRow Is Nothing Then
+                        Continue For
+                    End If
+
+                    Dim oProfileId = oRow.row.item("PROFILE_ID")
+
+                    If oProfileId = CURRENT_CLICKED_PROFILE_ID Then
+                        oIds.Add(oRow.item("DocId"))
+                        oCount += 1
+                    End If
+                Next
+                If oCount = 0 Then
+                    MsgBox("Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
+                    Exit Sub
+                End If
+                Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"
+                If DatabaseFallback.ExecuteNonQueryECM(oDelete) = True Then
+                    For Each oID As Integer In oIds
+                        Dim oInsert = $"INSERT INTO TBPM_VALIDATION_PROFILE_GROUP_USER ([PROFIL_ID] ,[DocID]
+                        ,[UserID] ,[ADDED_WHO]) VALUES ({CURRENT_CLICKED_PROFILE_ID},{oID},{USER_ID},'{USER_USERNAME}')"
+                        DatabaseFallback.ExecuteNonQueryECM(oInsert)
+
+                    Next
+                End If
+
+            End If
+
+
+
+
             'GridView_Docs.EndSelection()
             CURRENT_JUMP_DOC_GUID = 0
             Dim hitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation)
@@ -2679,7 +2728,7 @@ Public Class frmMain
         GridLayout_Reset()
     End Sub
 
-    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportExcel.ItemClick
         Grid_Export()
     End Sub
 
@@ -2837,23 +2886,5 @@ Public Class frmMain
         End Try
     End Sub
 
-    Private Sub BarButtonItem8_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
-        Dim oIds As New List(Of Integer)
 
-        For index = 0 To GridViewWFItems.RowCount
-            Dim oRow = GridViewWFItems.GetRow(index)
-
-            If oRow Is Nothing Then
-                Continue For
-            End If
-
-            Dim oProfileId = oRow.row.item("PROFILE_ID")
-
-            If oProfileId = CURRENT_CLICKED_PROFILE_ID Then
-                oIds.Add(oRow.item("DocId"))
-            End If
-        Next
-
-        MsgBox("Ids: " & String.Join(" | ", oIds))
-    End Sub
 End Class

app/DD_PM_WINDREAM/frmValidator.Designer.vb

@@ -99,6 +99,7 @@ Partial Class frmValidator
         Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem()
         Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem()
         Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarCheckItemLoadOnClick = New DevExpress.XtraBars.BarCheckItem()
         Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
         Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -106,12 +107,11 @@ Partial Class frmValidator
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageCust = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageCustAttmt = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
-        Me.BarCheckItemLoadOnClick = New DevExpress.XtraBars.BarCheckItem()
         CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainer2_DV_Chat.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer2_DV_Chat.Panel1.SuspendLayout()
@@ -707,6 +707,21 @@ Partial Class frmValidator
         Me.ToggleSwitchItemLoadonClick.ImageOptions.SvgImage = CType(resources.GetObject("ToggleSwitchItemLoadonClick.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.ToggleSwitchItemLoadonClick.Name = "ToggleSwitchItemLoadonClick"
         '
+        'BarCheckItemLoadOnClick
+        '
+        resources.ApplyResources(Me.BarCheckItemLoadOnClick, "BarCheckItemLoadOnClick")
+        Me.BarCheckItemLoadOnClick.Id = 31
+        Me.BarCheckItemLoadOnClick.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItemLoadOnClick.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.Font = CType(resources.GetObject("BarCheckItemLoadOnClick.ItemAppearance.Pressed.Font"), System.Drawing.Font)
+        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
+        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.Options.UseFont = True
+        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.Options.UseForeColor = True
+        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Font = CType(resources.GetObject("BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Font"), System.Drawing.Font)
+        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
+        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Options.UseFont = True
+        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Options.UseForeColor = True
+        Me.BarCheckItemLoadOnClick.Name = "BarCheckItemLoadOnClick"
+        '
         'RibbonPageConversations
         '
         Me.RibbonPageConversations.Name = "RibbonPageConversations"
@@ -734,7 +749,7 @@ Partial Class frmValidator
         '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageCust, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageCustAttmt, Me.RibbonPageGroup2})
         Me.RibbonPage1.Name = "RibbonPage1"
         resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
         '
@@ -758,15 +773,15 @@ Partial Class frmValidator
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
         resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
         '
-        'RibbonPageCust
+        'RibbonPageCustAttmt
         '
-        Me.RibbonPageCust.AllowTextClipping = False
+        Me.RibbonPageCustAttmt.AllowTextClipping = False
-        Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
+        Me.RibbonPageCustAttmt.ItemLinks.Add(Me.BarButtonItemAttmt)
-        Me.RibbonPageCust.ItemLinks.Add(Me.BarCheckItemLoadOnClick)
+        Me.RibbonPageCustAttmt.ItemLinks.Add(Me.BarCheckItemLoadOnClick)
-        Me.RibbonPageCust.ItemLinks.Add(Me.barbtnitmExport)
+        Me.RibbonPageCustAttmt.ItemLinks.Add(Me.barbtnitmExport)
-        Me.RibbonPageCust.Name = "RibbonPageCust"
+        Me.RibbonPageCustAttmt.Name = "RibbonPageCustAttmt"
-        resources.ApplyResources(Me.RibbonPageCust, "RibbonPageCust")
+        resources.ApplyResources(Me.RibbonPageCustAttmt, "RibbonPageCustAttmt")
-        Me.RibbonPageCust.Visible = False
+        Me.RibbonPageCustAttmt.Visible = False
         '
         'RibbonPageGroup2
         '
@@ -792,21 +807,6 @@ Partial Class frmValidator
         Me.RibbonPage2.Name = "RibbonPage2"
         resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
         '
-        'BarCheckItemLoadOnClick
-        '
-        resources.ApplyResources(Me.BarCheckItemLoadOnClick, "BarCheckItemLoadOnClick")
-        Me.BarCheckItemLoadOnClick.Id = 31
-        Me.BarCheckItemLoadOnClick.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.Font = CType(resources.GetObject("BarCheckItem1.ItemAppearance.Pressed.Font"), System.Drawing.Font)
-        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
-        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.Options.UseFont = True
-        Me.BarCheckItemLoadOnClick.ItemAppearance.Pressed.Options.UseForeColor = True
-        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Font = CType(resources.GetObject("BarCheckItem1.ItemInMenuAppearance.Pressed.Font"), System.Drawing.Font)
-        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
-        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Options.UseFont = True
-        Me.BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Options.UseForeColor = True
-        Me.BarCheckItemLoadOnClick.Name = "BarCheckItemLoadOnClick"
-        '
         'frmValidator
         '
         Me.Appearance.Options.UseFont = True
@@ -933,7 +933,7 @@ Partial Class frmValidator
     Friend WithEvents btnitemConversation_reload As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItemAttmt As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageCust As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageCustAttmt As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents barbtnitmExport As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
     Friend WithEvents ToggleSwitchItemLoadonClick As DevExpress.XtraBars.BarToggleSwitchItem

app/DD_PM_WINDREAM/frmValidator.resx

@@ -1002,7 +1002,7 @@
   <data name="BarCheckItemLoadOnClick.Caption" xml:space="preserve">
     <value>Suche nur auf Click laden</value>
   </data>
-  <data name="BarCheckItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="BarCheckItemLoadOnClick.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -1020,10 +1020,10 @@
         ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
 </value>
   </data>
-  <data name="BarCheckItem1.ItemAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="BarCheckItemLoadOnClick.ItemAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold</value>
   </data>
-  <data name="BarCheckItem1.ItemInMenuAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="BarCheckItemLoadOnClick.ItemInMenuAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold</value>
   </data>
   <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
@@ -1047,7 +1047,7 @@
   <data name="RibbonPageGroup3.Text" xml:space="preserve">
     <value>Aktionen</value>
   </data>
-  <data name="RibbonPageCust.Text" xml:space="preserve">
+  <data name="RibbonPageCustAttmt.Text" xml:space="preserve">
     <value>Custom PageGroup</value>
   </data>
   <data name="RibbonPageGroup2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1690,6 +1690,12 @@
   <data name="&gt;&gt;ToggleSwitchItemLoadonClick.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarCheckItemLoadOnClick.Name" xml:space="preserve">
+    <value>BarCheckItemLoadOnClick</value>
+  </data>
+  <data name="&gt;&gt;BarCheckItemLoadOnClick.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve">
     <value>RibbonPageConversations</value>
   </data>
@@ -1732,10 +1738,10 @@
   <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageCust.Name" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageCustAttmt.Name" xml:space="preserve">
-    <value>RibbonPageCust</value>
+    <value>RibbonPageCustAttmt</value>
   </data>
-  <data name="&gt;&gt;RibbonPageCust.Type" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageCustAttmt.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
@@ -1756,12 +1762,6 @@
   <data name="&gt;&gt;FolderBrowserDialog1.Type" xml:space="preserve">
     <value>System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;BarCheckItemLoadOnClick.Name" xml:space="preserve">
-    <value>BarCheckItemLoadOnClick</value>
-  </data>
-  <data name="&gt;&gt;BarCheckItemLoadOnClick.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmValidator</value>
   </data>

app/DD_PM_WINDREAM/frmValidator.vb

@@ -208,7 +208,7 @@ Public Class frmValidator
                         PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX")
                         PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX")
                         CURRENT_PROFILE_LOG_INDEX = PROFIL_LOGINDEX
-                        Me.Text = "FlowTask - " & oProfileRow.Item("TITLE")
+                        Me.Text = ADDITIONAL_TITLE & " - " & oProfileRow.Item("TITLE")
 
                         TITLELabel1.Text = oProfileRow.Item("TITLE")
                         DESCRIPTIONLabel.Text = IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION"))
@@ -484,10 +484,7 @@ Public Class frmValidator
                 Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
                 oDataResultCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
                 oDataResultCommand = clsPatterns.ReplaceAllValues(oDataResultCommand, PanelValidatorControl, True)
-                'oDatatableDataResult = ClassDatabase.Return_Datatable_ConId(oDataResultCommand, oConID, "Load_Additional_Searches1")
+                oDatatableDataResult = DatabaseFallback.GetDatatableWithConnection(oDataResultCommand, oConID)
-                oDatatableDataResult = DatabaseFallback.GetDatatable(New GetDatatableOptions(oDataResultCommand, DatabaseType.ECM) With {
-                    .ConnectionId = oConID
-                })
             End If
 
             Dim oDataResultsExist As Boolean = False
@@ -516,10 +513,7 @@ Public Class frmValidator
                 Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
                 oDocResultCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
                 oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, PanelValidatorControl, True)
-                'oDatatableDocResult = ClassDatabase.Return_Datatable_ConId(oDocResultCommand, oConID, "Load_Additional_Searches2")
+                oDatatableDocResult = DatabaseFallback.GetDatatableWithConnection(oDocResultCommand, oConID)
-                oDatatableDocResult = DatabaseFallback.GetDatatable(New GetDatatableOptions(oDocResultCommand, DatabaseType.ECM) With {
-                    .ConnectionId = oConID
-                })
             End If
 
             Dim oDocResultsExist As Boolean = False
@@ -546,13 +540,7 @@ Public Class frmValidator
 
             'If Test_Additional_Searches_Exist() Then
             If oDataResultsExist = True Or oDocResultsExist = True Then
-                'If RibbonPageCustItm1 <> "" Then
+                RibbonPageCustAttmt.Visible = True
-                '    BarButtonItemAttmt.Caption = RibbonPageCustItm1
-                '    BarButtonItemAttmt.Visibility = BarItemVisibility.Always
-                '    Dim toggleLink As BarToggleSwitchItem = TryCast(ToggleSwitchItemLoadonClick, BarToggleSwitchItem)
-                '    toggleLink.Checked = CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK
-                '    ToggleSwitchItemLoadonClick.Visibility = BarItemVisibility.Always
-                'End If
                 Try
                     'If CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = False Then
                     '_frmValidatorSearch.Show()
@@ -572,22 +560,29 @@ Public Class frmValidator
                     End If
                     _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count,
                         BASEDATA_DT_PROFILE_SEARCHES_SQL, BASEDATA_DT_PROFILE_SEARCHES_DOC)
-                    If oDataResultsExist Then
-                        _frmValidatorSearch._DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL
-                        Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
-                        Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
-                        oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
-
-                        _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
-                    End If
                     If oDocResultsExist Then
                         _frmValidatorSearch._DTDocSearches = BASEDATA_DT_PROFILE_SEARCHES_DOC
                         Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
                         Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
                         oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
-
+                        'RibbonPageCustAttmt.Visible = True
                         _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
+                    Else
+                        RibbonPageCustAttmt.Visible = False
                     End If
+
+
+                    If oDataResultsExist Then
+                        _frmValidatorSearch._DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL
+                        Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
+                        Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
+                        oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
+                        'RibbonPageCustAttmt.Visible = True
+                        _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
+
+
+                    End If
+
                 Catch ex As Exception
                     LOGGER.Error(ex)
                 End Try
@@ -595,6 +590,7 @@ Public Class frmValidator
                 bbtniRefreshSearches.Visibility = BarItemVisibility.Always
             Else
                 bbtniRefreshSearches.Visibility = BarItemVisibility.Never
+                RibbonPageCustAttmt.Visible = False
                 LOGGER.Debug("Not loading AdditionalSearches 1...!")
             End If
 
@@ -3637,11 +3633,11 @@ Public Class frmValidator
                     BarButtonItemAttmt.Visibility = BarItemVisibility.Never
                     BarCheckItemLoadOnClick.Visibility = BarItemVisibility.Never
                 End If
-
+                Load_Additional_Searches()
                 ' If Searches should be loaded automatically, not only on click
                 If CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = False Then
                     _frmValidatorSearch?.Show()
-                    Load_Additional_Searches()
+
                 End If
             Else
                 MsgBox("Für dieses Profil wurde noch keine Eingabemaske definiert!" & vbNewLine & "Informieren Sie Ihren PM-Administrator!" & vbNewLine & "Das Fenster wird geschlossen!", MsgBoxStyle.Exclamation, "Achtung:")
@@ -3687,11 +3683,8 @@ Public Class frmValidator
         End Try
         Try
             If RibbonPageCustTitle <> "" Then
-                RibbonPageCust.Text = RibbonPageCustTitle
+                RibbonPageCustAttmt.Text = RibbonPageCustTitle
-                RibbonPageCust.Visible = True
 
-            Else
-                RibbonPageCust.Visible = False
             End If
             If Not IsNothing(WMDocPathWindows) Then
                 If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then