From 18095b5bef9bb695d3a3ac690055fd51568f8f66 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 13 Apr 2022 14:29:33 +0200 Subject: [PATCH] MS Admin ExcelExport, Debug --- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 2 +- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 11 +- app/DD_PM_WINDREAM/frmInvDashboard.vb | 3 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 43 ++-- app/DD_PM_WINDREAM/frmMain.resx | 205 ++++++++++-------- app/DD_PM_WINDREAM/frmMain.vb | 71 ++++-- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 54 ++--- app/DD_PM_WINDREAM/frmValidator.resx | 26 +-- app/DD_PM_WINDREAM/frmValidator.vb | 53 ++--- 10 files changed, 252 insertions(+), 218 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index 325e08f..27be0d8 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/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 diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index ae0c1a7..9d5dc94 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 9cd1a8e..39bb583 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/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.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.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.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 diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb index 9def94f..d09622f 100644 --- a/app/DD_PM_WINDREAM/frmInvDashboard.vb +++ b/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) diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 8f508e5..233a1b8 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/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") - Me.BarButtonItem5.Id = 32 - Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem5.Name = "BarButtonItem5" + resources.ApplyResources(Me.BarButtonItemExportExcel, "BarButtonItemExportExcel") + Me.BarButtonItemExportExcel.Id = 32 + Me.BarButtonItemExportExcel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + 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 diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 2b62c35..0781d79 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/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 @@ 179, 17 + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + + + NavBarControl1 + + + DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 1 + + + Fill + + + + Tahoma, 9pt + + + 0, 151 + + + 1233, 355 + + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + Zoom @@ -200,7 +253,6 @@ Application - 233, 0 @@ -210,7 +262,6 @@ 1000, 355 - 8 @@ -284,12 +335,6 @@ 1012, 17 - - 219, 26 - - - Starte Validierung für Profil - 220, 30 @@ -443,32 +488,11 @@ 1 - - Fill - - - Tahoma, 9pt - - - 0, 151 - - - 1233, 355 - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this + + 219, 26 - - 2 + + Starte Validierung für Profil 171, 56 @@ -479,27 +503,6 @@ 404, 56 - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 231, 6 - - - 234, 22 - - - Bring to Front - - - 234, 22 - - - Out of Range - PM fixieren - 235, 76 @@ -681,6 +684,27 @@ True + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 231, 6 + + + 234, 22 + + + Bring to Front + + + 234, 22 + + + Out of Range - PM fixieren + 605, 17 @@ -1369,7 +1393,7 @@ IkdyZWVuIiAvPg0KPC9zdmc+Cw== - + Export Übersicht @@ -1723,27 +1747,6 @@ 0, 0 - - Allgemein - - - Auswertungen - - - Verwaltung - - - Grundeinstellungen - - - Workflow - - - Funktionen/App Start - - - RibbonPageGroup9 - Start @@ -1792,6 +1795,24 @@ 4 + + Allgemein + + + Auswertungen + + + Verwaltung + + + Grundeinstellungen + + + Workflow + + + Funktionen/App Start + Top @@ -2354,10 +2375,10 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem5 + + BarButtonItemExportExcel - + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -2414,6 +2435,12 @@ DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem8 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -2912,18 +2939,6 @@ System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - RibbonPageGroup9 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BarButtonItem8 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmMain @@ -3135,6 +3150,9 @@ &Ansicht + + &Hintergrund + &Seiten Layout @@ -3147,9 +3165,6 @@ Bars - - &Hintergrund - PDF Dokument diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 5405578..2afa3b0 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/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 \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 306785e..253e7cf 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/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.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt) - Me.RibbonPageCust.ItemLinks.Add(Me.BarCheckItemLoadOnClick) - Me.RibbonPageCust.ItemLinks.Add(Me.barbtnitmExport) - Me.RibbonPageCust.Name = "RibbonPageCust" - resources.ApplyResources(Me.RibbonPageCust, "RibbonPageCust") - Me.RibbonPageCust.Visible = False + Me.RibbonPageCustAttmt.AllowTextClipping = False + Me.RibbonPageCustAttmt.ItemLinks.Add(Me.BarButtonItemAttmt) + Me.RibbonPageCustAttmt.ItemLinks.Add(Me.BarCheckItemLoadOnClick) + Me.RibbonPageCustAttmt.ItemLinks.Add(Me.barbtnitmExport) + Me.RibbonPageCustAttmt.Name = "RibbonPageCustAttmt" + resources.ApplyResources(Me.RibbonPageCustAttmt, "RibbonPageCustAttmt") + 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 diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index d218120..04eec85 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -1002,7 +1002,7 @@ Suche nur auf Click laden - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -1020,10 +1020,10 @@ ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L - + Tahoma, 8.25pt, style=Bold - + Tahoma, 8.25pt, style=Bold @@ -1047,7 +1047,7 @@ Aktionen - + Custom PageGroup @@ -1690,6 +1690,12 @@ DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarCheckItemLoadOnClick + + + DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPageConversations @@ -1732,10 +1738,10 @@ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - RibbonPageCust + + RibbonPageCustAttmt - + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -1756,12 +1762,6 @@ System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BarCheckItemLoadOnClick - - - DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmValidator diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 0db2ec5..53ce5bf 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/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.GetDatatable(New GetDatatableOptions(oDataResultCommand, DatabaseType.ECM) With { - .ConnectionId = oConID - }) + oDatatableDataResult = DatabaseFallback.GetDatatableWithConnection(oDataResultCommand, 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.GetDatatable(New GetDatatableOptions(oDocResultCommand, DatabaseType.ECM) With { - .ConnectionId = oConID - }) + oDatatableDocResult = DatabaseFallback.GetDatatableWithConnection(oDocResultCommand, 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 - ' 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 + RibbonPageCustAttmt.Visible = True 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 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 - 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) - _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.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 - RibbonPageCust.Visible = True + RibbonPageCustAttmt.Text = RibbonPageCustTitle - Else - RibbonPageCust.Visible = False End If If Not IsNothing(WMDocPathWindows) Then If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then