From 703df0adc31b7859d293add34bea19cb7e7ecd51 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Mon, 21 Sep 2026 11:56:54 +0200 Subject: [PATCH] =?UTF-8?q?Neue=20Funktionen=20und=20Optimierungen=20hinzu?= =?UTF-8?q?gef=C3=BCgt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - 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. --- app/SetupVS19/Product.wxs | 3 +- app/TaskFlow/ClassIDBData.vb | 3 +- app/TaskFlow/ClassInit.vb | 13 +- app/TaskFlow/ModuleRuntimeVariables.vb | 2 +- app/TaskFlow/My Project/AssemblyInfo.vb | 2 +- app/TaskFlow/TaskFlow.vbproj | 3 + app/TaskFlow/frmAdministration.Designer.vb | 69 +- app/TaskFlow/frmAdministration.resx | 1000 ++++++++++++++------ app/TaskFlow/frmAdministration.vb | 10 +- app/TaskFlow/frmCockpitConfig.Designer.vb | 164 ++-- app/TaskFlow/frmCockpitConfig.vb | 109 ++- app/TaskFlow/frmMain.vb | 23 +- app/TaskFlow/packages.config | 1 + 13 files changed, 915 insertions(+), 487 deletions(-) diff --git a/app/SetupVS19/Product.wxs b/app/SetupVS19/Product.wxs index 488218a..51f34e5 100644 --- a/app/SetupVS19/Product.wxs +++ b/app/SetupVS19/Product.wxs @@ -156,6 +156,8 @@ + + @@ -171,7 +173,6 @@ - diff --git a/app/TaskFlow/ClassIDBData.vb b/app/TaskFlow/ClassIDBData.vb index e867810..30e2dbb 100644 --- a/app/TaskFlow/ClassIDBData.vb +++ b/app/TaskFlow/ClassIDBData.vb @@ -83,6 +83,7 @@ If IsNothing(DTVWIDB_BE_ATTRIBUTE) Then oSQL = $"SELECT DISTINCT ATTR_TITLE, TYP_ID, TYP_ID as [TYPE_ID] FROM VWIDB_BE_ATTRIBUTE ORDER BY ATTR_TITLE " DTVWIDB_BE_ATTRIBUTE = DatabaseFallback.GetDatatableIDB(oSQL) + LOGGER.Info($"[{DTVWIDB_BE_ATTRIBUTE.Rows.Count.ToString}] attributes [VWIDB_BE_ATTRIBUTE] found in IDB.") End If Return True End Function @@ -111,10 +112,8 @@ For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows oCount += 1 aIndexNames(oCount) = oRow.Item("ATTR_TITLE") - Next - ' Indexarray sortiert zurückgeben Array.Sort(aIndexNames) ' Indexarray zurückgeben diff --git a/app/TaskFlow/ClassInit.vb b/app/TaskFlow/ClassInit.vb index 09ccd77..ce12cc9 100644 --- a/app/TaskFlow/ClassInit.vb +++ b/app/TaskFlow/ClassInit.vb @@ -80,12 +80,11 @@ Public Class ClassInit If CONFIG.Config.EDMIAppServer <> String.Empty Then Try LOGGER.Info($"Configuration EDMIAppServer [{CONFIG.Config.EDMIAppServer}] will be used...") - - _Client = New Client(LOGCONFIG, CONFIG.Config.EDMIAppServer) - If Not IsNothing(_Client) Then - If _Client.Connect() Then + _EDMIClient = New Client(LOGCONFIG, CONFIG.Config.EDMIAppServer) + If Not IsNothing(_EDMIClient) Then + If _EDMIClient.Connect() Then EDMIAppServerActive = True - EDMIService.Client = _Client + EDMIService.Client = _EDMIClient EDMIService.Address = CONFIG.Config.EDMIAppServer LOGGER.Info($"EDMIAppServer [{CONFIG.Config.EDMIAppServer}] is active!") @@ -212,7 +211,7 @@ Public Class ClassInit ' We initialize the Class in anycase. ' If there is no client, it will fall back to the db by itself - DatabaseFallback = New DatabaseWithFallback(LOGCONFIG, _Client, Database_ECM, Database_IDB) + DatabaseFallback = New DatabaseWithFallback(LOGCONFIG, _EDMIClient, Database_ECM, Database_IDB) If dbECMInitialized = True And CONNECTION_STRING_IDB = String.Empty Then Return True @@ -483,7 +482,7 @@ Public Class ClassInit Settings_LoadBasicConfig() oStep = "TBDD_CONNECTION" - oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1" + oSql = "select * from TBDD_CONNECTION WITH (NOLOCK) WHERE AKTIV = 1" 'BASEDATA_DT_TBDD_CONNECTION = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_CONNECTION", "") BASEDATA_DT_TBDD_CONNECTION = DatabaseFallback.GetDatatable("TBDD_CONNECTION", New GetDatatableOptions(oSql, DatabaseType.ECM)) diff --git a/app/TaskFlow/ModuleRuntimeVariables.vb b/app/TaskFlow/ModuleRuntimeVariables.vb index 1fe906d..7b21b1a 100644 --- a/app/TaskFlow/ModuleRuntimeVariables.vb +++ b/app/TaskFlow/ModuleRuntimeVariables.vb @@ -179,7 +179,7 @@ Module ModuleRuntimeVariables Public Property MyIndicies As List(Of String) Public Property MyIndicies_Types As List(Of Integer) - Public Property _Client As Client + Public Property _EDMIClient As Client Public Property WMSUFFIX As String Public Property WMDRIVE_LETTER As String diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb index e8741ba..418cb1f 100644 --- a/app/TaskFlow/My Project/AssemblyInfo.vb +++ b/app/TaskFlow/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/TaskFlow/TaskFlow.vbproj b/app/TaskFlow/TaskFlow.vbproj index 1304ac0..d676958 100644 --- a/app/TaskFlow/TaskFlow.vbproj +++ b/app/TaskFlow/TaskFlow.vbproj @@ -294,6 +294,9 @@ ..\packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.wia.gateway.dll True + + ..\packages\GdPicture.WinForms.14.4.4\lib\net462\GdPicture.NET.14.WinForms.dll + ..\packages\Google.Protobuf.3.33.2\lib\net45\Google.Protobuf.dll diff --git a/app/TaskFlow/frmAdministration.Designer.vb b/app/TaskFlow/frmAdministration.Designer.vb index 9fa2fe8..c57ce2d 100644 --- 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 diff --git a/app/TaskFlow/frmAdministration.resx b/app/TaskFlow/frmAdministration.resx index f1c7f6c..cd0e9d9 100644 --- a/app/TaskFlow/frmAdministration.resx +++ b/app/TaskFlow/frmAdministration.resx @@ -126,10 +126,14 @@ - 16, 16 + 21, 19 + + + + 4, 0, 4, 0 - 24, 16 + 34, 21 0 @@ -149,12 +153,14 @@ 3 - Fill - 3, 3 + 4, 4 + + + 4, 4, 4, 4 Horizontal @@ -171,8 +177,11 @@ Fill + + 4, 4, 4, 4 + - 0, 25 + 0, 30 Vorname @@ -183,9 +192,6 @@ 0 - - 58 - Name @@ -195,9 +201,6 @@ 1 - - 58 - Benutzername @@ -207,9 +210,6 @@ 2 - - 58 - Email @@ -219,9 +219,6 @@ 3 - - 58 - Kommentar @@ -231,9 +228,6 @@ 4 - - 58 - Kurzname @@ -243,11 +237,11 @@ 5 - - 58 + + 4, 4, 4, 4 - 1002, 231 + 1292, 275 3 @@ -270,8 +264,11 @@ 0, 0 + + 4, 0, 4, 0 + - 194, 25 + 249, 30 0 @@ -300,8 +297,11 @@ 0, 0 + + 4, 4, 4, 4 + - 1002, 25 + 1292, 30 4 @@ -339,8 +339,11 @@ Fill + + 4, 4, 4, 4 + - 0, 25 + 0, 30 Vorname @@ -351,9 +354,6 @@ 0 - - 58 - Name @@ -363,9 +363,6 @@ 1 - - 58 - Benutzername @@ -375,9 +372,6 @@ 2 - - 58 - Email @@ -387,9 +381,6 @@ 3 - - 58 - Kommentar @@ -399,9 +390,6 @@ 4 - - 58 - Kurzname @@ -411,11 +399,11 @@ 5 - - 58 + + 4, 4, 4, 4 - 1002, 208 + 1292, 249 5 @@ -438,8 +426,11 @@ 0, 0 + + 4, 0, 4, 0 + - 194, 25 + 249, 30 0 @@ -468,8 +459,11 @@ 0, 0 + + 4, 4, 4, 4 + - 1002, 25 + 1292, 30 6 @@ -499,10 +493,13 @@ 1 - 1002, 493 + 1292, 589 - 256 + 305 + + + 5 0 @@ -523,7 +520,10 @@ Fill - 3, 3 + 4, 4 + + + 4, 4, 4, 4 Horizontal @@ -537,8 +537,11 @@ Fill + + 4, 4, 4, 4 + - 0, 25 + 0, 30 Name @@ -549,9 +552,6 @@ 0 - - 58 - Kommentar @@ -561,11 +561,11 @@ 1 - - 58 + + 4, 4, 4, 4 - 1002, 202 + 1290, 240 3 @@ -591,8 +591,11 @@ 0, 0 + + 4, 0, 4, 0 + - 194, 25 + 249, 30 0 @@ -621,8 +624,11 @@ 0, 0 + + 4, 4, 4, 4 + - 1002, 25 + 1290, 30 4 @@ -660,8 +666,11 @@ Fill + + 4, 4, 4, 4 + - 0, 25 + 0, 30 Name @@ -672,9 +681,6 @@ 0 - - 58 - Kommentar @@ -684,11 +690,11 @@ 1 - - 58 + + 4, 4, 4, 4 - 1002, 237 + 1290, 282 0 @@ -714,8 +720,11 @@ 0, 0 + + 4, 0, 4, 0 + - 194, 25 + 249, 30 0 @@ -744,8 +753,11 @@ 0, 0 + + 4, 4, 4, 4 + - 1002, 25 + 1290, 30 6 @@ -775,10 +787,13 @@ 1 - 1002, 493 + 1290, 587 - 227 + 270 + + + 5 1 @@ -801,6 +816,9 @@ 0, 0 + + 4, 4, 4, 4 + 1273, 134 @@ -810,9 +828,21 @@ Fill + + 4, 4, 4, 4 + 0, 0 + + 96 + + + 96 + + + 96 + Index @@ -823,7 +853,7 @@ 0 - 116 + 149 Fester Wert @@ -835,20 +865,26 @@ 2 - 241 + 310 SQL Befehl - 150 + 193 Doppelte Werte vermeiden + + 96 + Neue Werte erlauben + + 96 + Beschreibung @@ -859,10 +895,16 @@ 1 - 246 + 316 + + + 96 + + + 4, 4, 4, 4 - 506, 377 + 651, 445 93 @@ -894,12 +936,18 @@ 0 + + 3 + Fill 0, 0 + + 4, 4, 4, 4 + Aktualisieren @@ -1802,6 +1850,9 @@ 0, 0 + + 4, 4, 4, 4 + Bearbeitungs-Modus @@ -1824,13 +1875,16 @@ Grundeinstellungen - 1306, 158 + 1679, 194 - 0, 721 + 0, 854 + + + 4, 4, 4, 4 - 1306, 22 + 1679, 28 RibbonStatusBar1 @@ -1857,7 +1911,7 @@ 2 - 461, 377 + 595, 445 92 @@ -1890,7 +1944,7 @@ 1 - 977, 377 + 1258, 445 94 @@ -1914,10 +1968,13 @@ True - 106, 16 + 136, 19 + + + 4, 0, 4, 0 - 79, 16 + 102, 21 2 @@ -1947,10 +2004,13 @@ Tahoma, 9.75pt - 16, 253 + 21, 300 + + + 4, 0, 4, 0 - 77, 16 + 102, 21 18 @@ -1980,10 +2040,13 @@ Tahoma, 9.75pt - 447, 253 + 575, 300 + + + 4, 0, 4, 0 - 86, 16 + 114, 21 20 @@ -2013,10 +2076,13 @@ Tahoma, 9.75pt - 15, 284 + 19, 337 + + + 4, 0, 4, 0 - 92, 16 + 119, 21 22 @@ -2046,10 +2112,13 @@ Tahoma, 9.75pt - 447, 284 + 575, 337 + + + 4, 0, 4, 0 - 101, 16 + 131, 21 24 @@ -2076,10 +2145,13 @@ True - 106, 43 + 136, 51 + + + 4, 0, 4, 0 - 37, 16 + 49, 21 27 @@ -2109,10 +2181,13 @@ Tahoma, 9.75pt - 6, 66 + 8, 78 + + + 4, 0, 4, 0 - 141, 16 + 185, 21 0 @@ -2142,10 +2217,13 @@ Tahoma, 9.75pt - 16, 45 + 21, 53 + + + 4, 0, 4, 0 - 76, 16 + 101, 21 84 @@ -2175,10 +2253,13 @@ Tahoma, 9.75pt - 550, 15 + 707, 18 + + + 4, 0, 4, 0 - 33, 16 + 43, 21 93 @@ -2217,10 +2298,13 @@ Tahoma, 9.75pt - 16, 15 + 21, 18 + + + 4, 0, 4, 0 - 66, 16 + 88, 21 77 @@ -2244,10 +2328,13 @@ Tahoma, 9.75pt - 202, 12 + 260, 14 + + + 4, 4, 4, 4 - 345, 24 + 442, 27 0 @@ -2268,10 +2355,13 @@ Tahoma, 9.75pt - 19, 161 + 24, 191 + + + 4, 4, 4, 4 - 188, 24 + 242, 28 0 @@ -2295,10 +2385,13 @@ Tahoma, 9.75pt - 202, 161 + 260, 191 + + + 4, 4, 4, 4 - 545, 23 + 700, 27 8 @@ -2325,13 +2418,16 @@ MiddleLeft - 791, 101 + 1017, 120 + + + 4, 4, 4, 4 - 0, 0, 2, 2 + 0, 0, 3, 2 - 111, 23 + 143, 27 7 @@ -2358,10 +2454,13 @@ Tahoma, 9.75pt - 754, 101 + 969, 120 + + + 4, 4, 4, 4 - 31, 23 + 40, 27 6 @@ -2382,10 +2481,13 @@ 25 - 192, 40 + 247, 48 + + + 4, 4, 4, 4 - 511, 23 + 656, 27 1 @@ -2403,10 +2505,13 @@ 8 - 47, 13 + 60, 15 + + + 4, 4, 4, 4 - 53, 23 + 67, 27 1 @@ -2424,10 +2529,13 @@ 1 - 192, 13 + 247, 15 + + + 4, 4, 4, 4 - 511, 23 + 656, 27 0 @@ -2448,10 +2556,13 @@ Tahoma, 9.75pt - 202, 72 + 260, 86 + + + 4, 4, 4, 4 - 546, 23 + 701, 27 4 @@ -2472,10 +2583,13 @@ Tahoma, 9.75pt - 202, 101 + 260, 120 + + + 4, 4, 4, 4 - 546, 23 + 701, 27 5 @@ -2493,10 +2607,13 @@ 19 - 718, 13 + 923, 15 + + + 4, 4, 4, 4 - 65, 24 + 84, 28 2 @@ -2520,10 +2637,13 @@ Tahoma, 9.75pt - 202, 250 + 260, 297 + + + 4, 4, 4, 4 - 235, 23 + 301, 27 19 @@ -2544,10 +2664,13 @@ Tahoma, 9.75pt - 554, 250 + 712, 297 + + + 4, 4, 4, 4 - 194, 23 + 248, 27 21 @@ -2568,10 +2691,13 @@ Tahoma, 9.75pt - 202, 281 + 260, 334 + + + 4, 4, 4, 4 - 235, 23 + 301, 27 23 @@ -2592,10 +2718,13 @@ Tahoma, 9.75pt - 553, 281 + 711, 334 + + + 4, 4, 4, 4 - 194, 23 + 248, 27 25 @@ -2631,10 +2760,13 @@ True - 798, 13 + 1026, 15 + + + 4, 4, 4, 4 - 155, 24 + 199, 28 28 @@ -2667,10 +2799,13 @@ Tahoma, 8.25pt - 753, 18 + 968, 21 + + + 4, 0, 4, 0 - 157, 13 + 200, 17 95 @@ -2700,10 +2835,13 @@ 2 - 692, 12 + 890, 14 + + + 4, 4, 4, 4 - 55, 24 + 70, 27 94 @@ -2727,10 +2865,13 @@ Tahoma, 9.75pt - 16, 135 + 21, 160 + + + 4, 0, 4, 0 - 61, 16 + 80, 21 93 @@ -2757,10 +2898,13 @@ Tahoma, 9.75pt - 202, 132 + 260, 157 + + + 4, 4, 4, 4 - 545, 23 + 700, 27 92 @@ -2787,10 +2931,13 @@ Tahoma, 9.75pt - 16, 75 + 21, 89 + + + 4, 0, 4, 0 - 88, 16 + 115, 21 91 @@ -2817,10 +2964,13 @@ NoControl - 754, 132 + 969, 157 + + + 4, 4, 4, 4 - 31, 23 + 40, 27 90 @@ -2850,10 +3000,13 @@ Tahoma, 9.75pt - 16, 104 + 21, 124 + + + 4, 0, 4, 0 - 44, 16 + 58, 21 89 @@ -2880,10 +3033,13 @@ Tahoma, 9.75pt - 15, 193 + 19, 229 + + + 4, 0, 4, 0 - 129, 16 + 168, 21 88 @@ -2910,10 +3066,13 @@ Tahoma, 9.75pt - 16, 223 + 21, 265 + + + 4, 0, 4, 0 - 91, 16 + 119, 21 87 @@ -2952,10 +3111,13 @@ AdHoc BlindFile Detail - 202, 42 + 260, 50 + + + 4, 4, 4, 4 - 345, 24 + 442, 27 3 @@ -2976,10 +3138,13 @@ Tahoma, 9.75pt - 202, 220 + 260, 261 + + + 4, 4, 4, 4 - 345, 24 + 442, 27 10 @@ -3000,10 +3165,13 @@ Tahoma, 9.75pt - 202, 190 + 260, 226 + + + 4, 4, 4, 4 - 345, 24 + 442, 27 9 @@ -3024,13 +3192,16 @@ Tahoma, 9.75pt, style=Bold - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1000, 426 + 1290, 501 0 @@ -3057,10 +3228,13 @@ Top, Bottom, Left, Right - 3, 23 + 4, 27 + + + 4, 4, 4, 4 - 977, 377 + 1258, 445 94 @@ -3084,10 +3258,13 @@ Segoe UI, 9.75pt, style=Italic - 3, 3 + 4, 4 + + + 4, 0, 4, 0 - 980, 385 + 1264, 460 75 @@ -3111,13 +3288,16 @@ Tahoma, 9pt - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 986, 391 + 1272, 468 0 @@ -3144,10 +3324,13 @@ Segoe UI, 9pt - 9, 21 + 12, 25 + + + 4, 4, 4, 4 - 862, 23 + 1107, 27 0 @@ -3171,10 +3354,13 @@ NoControl - 877, 21 + 1128, 25 + + + 4, 4, 4, 4 - 29, 23 + 37, 27 72 @@ -3198,10 +3384,16 @@ Tahoma, 9.75pt - 9, 6 + 12, 7 + + + 4, 4, 4, 4 + + + 4, 4, 4, 4 - 941, 57 + 1210, 68 74 @@ -3225,10 +3417,13 @@ Tahoma, 9.75pt - 9, 144 + 12, 171 + + + 4, 4, 4, 4 - 260, 24 + 334, 28 11 @@ -3252,10 +3447,13 @@ Tahoma, 9.75pt - 9, 114 + 12, 135 + + + 4, 4, 4, 4 - 292, 24 + 375, 28 9 @@ -3276,10 +3474,13 @@ 2 - 9, 85 + 12, 101 + + + 4, 4, 4, 4 - 875, 23 + 1124, 27 1 @@ -3297,13 +3498,16 @@ 4 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 986, 394 + 1270, 467 1 @@ -3330,10 +3534,13 @@ Tahoma, 9.75pt, style=Bold - 3, 3 + 4, 4 + + + 4, 4, 4, 4 - 994, 420 + 1280, 500 92 @@ -3351,13 +3558,16 @@ 0 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1000, 426 + 1288, 508 1 @@ -3378,10 +3588,13 @@ 1 - 3, 70 + 4, 83 + + + 4, 4, 4, 4 - 1008, 455 + 1298, 533 6 @@ -3402,10 +3615,13 @@ Tahoma, 9.75pt - 718, 40 + 923, 48 + + + 4, 4, 4, 4 - 238, 24 + 306, 28 3 @@ -3429,10 +3645,13 @@ Fill - 3, 3 + 4, 4 + + + 4, 4, 4, 4 - 1016, 528 + 1308, 620 28 @@ -3450,13 +3669,16 @@ 0 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1022, 534 + 1316, 628 0 @@ -3477,13 +3699,16 @@ 0 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1008, 499 + 1300, 597 0 @@ -3504,13 +3729,16 @@ 0 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1008, 499 + 1298, 595 1 @@ -3534,10 +3762,13 @@ Fill - 3, 3 + 4, 4 + + + 4, 4, 4, 4 - 1016, 528 + 1308, 629 1 @@ -3555,13 +3786,16 @@ 0 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1022, 534 + 1316, 637 1 @@ -3591,10 +3825,13 @@ NoControl - 855, 52 + 1099, 62 + + + 4, 0, 4, 0 - 40, 16 + 51, 21 38 @@ -3618,10 +3855,13 @@ NoControl - 898, 162 + 1155, 192 + + + 4, 4, 4, 4 - 29, 23 + 37, 27 37 @@ -3642,10 +3882,13 @@ NoControl - 898, 131 + 1155, 156 + + + 4, 4, 4, 4 - 29, 23 + 37, 27 36 @@ -3666,10 +3909,13 @@ NoControl - 898, 102 + 1155, 121 + + + 4, 4, 4, 4 - 29, 23 + 37, 27 35 @@ -3687,10 +3933,13 @@ 3 - 898, 70 + 1155, 83 + + + 4, 4, 4, 4 - 29, 23 + 37, 27 34 @@ -3708,10 +3957,13 @@ 4 - 858, 162 + 1103, 192 + + + 4, 4, 4, 4 - 34, 23 + 44, 27 33 @@ -3729,10 +3981,13 @@ 5 - 858, 132 + 1103, 157 + + + 4, 4, 4, 4 - 34, 23 + 44, 27 32 @@ -3750,10 +4005,13 @@ 6 - 857, 102 + 1102, 121 + + + 4, 4, 4, 4 - 34, 23 + 44, 27 31 @@ -3771,10 +4029,13 @@ 7 - 858, 71 + 1103, 84 + + + 4, 4, 4, 4 - 34, 23 + 44, 27 30 @@ -3792,10 +4053,13 @@ 8 - 640, 161 + 823, 191 + + + 4, 4, 4, 4 - 211, 23 + 270, 27 29 @@ -3819,10 +4083,13 @@ NoControl - 183, 161 + 235, 191 + + + 4, 4, 4, 4 - 62, 24 + 80, 28 28 @@ -3846,10 +4113,13 @@ 10 - 446, 162 + 573, 192 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 27 @@ -3882,10 +4152,13 @@ Doughnut - 56, 161 + 72, 191 + + + 4, 4, 4, 4 - 121, 24 + 154, 27 26 @@ -3903,10 +4176,13 @@ 12 - 252, 162 + 324, 192 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 25 @@ -3924,10 +4200,13 @@ 13 - 9, 162 + 12, 192 + + + 4, 4, 4, 4 - 41, 23 + 52, 27 24 @@ -3945,10 +4224,13 @@ 14 - 640, 131 + 823, 156 + + + 4, 4, 4, 4 - 211, 23 + 270, 27 23 @@ -3972,10 +4254,13 @@ NoControl - 183, 131 + 235, 156 + + + 4, 4, 4, 4 - 62, 24 + 80, 28 22 @@ -3999,10 +4284,13 @@ 16 - 446, 132 + 573, 157 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 21 @@ -4035,10 +4323,13 @@ Doughnut - 56, 131 + 72, 156 + + + 4, 4, 4, 4 - 121, 24 + 154, 27 20 @@ -4056,10 +4347,13 @@ 18 - 252, 132 + 324, 157 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 19 @@ -4077,10 +4371,13 @@ 19 - 9, 132 + 12, 157 + + + 4, 4, 4, 4 - 41, 23 + 52, 27 18 @@ -4098,10 +4395,13 @@ 20 - 640, 101 + 823, 120 + + + 4, 4, 4, 4 - 211, 23 + 270, 27 17 @@ -4125,10 +4425,13 @@ NoControl - 183, 101 + 235, 120 + + + 4, 4, 4, 4 - 62, 24 + 80, 28 16 @@ -4152,10 +4455,13 @@ 22 - 446, 102 + 573, 121 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 15 @@ -4188,10 +4494,13 @@ Doughnut - 56, 101 + 72, 120 + + + 4, 4, 4, 4 - 121, 24 + 154, 27 14 @@ -4209,10 +4518,13 @@ 24 - 252, 102 + 324, 121 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 13 @@ -4230,10 +4542,13 @@ 25 - 9, 102 + 12, 121 + + + 4, 4, 4, 4 - 41, 23 + 52, 27 12 @@ -4251,10 +4566,13 @@ 26 - 640, 71 + 823, 84 + + + 4, 4, 4, 4 - 211, 23 + 270, 27 11 @@ -4278,10 +4596,13 @@ NoControl - 637, 52 + 819, 62 + + + 4, 0, 4, 0 - 37, 16 + 49, 21 10 @@ -4305,10 +4626,13 @@ MiddleLeft - 183, 71 + 235, 84 + + + 4, 4, 4, 4 - 62, 24 + 80, 28 9 @@ -4332,10 +4656,13 @@ 29 - 446, 72 + 573, 86 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 8 @@ -4359,10 +4686,13 @@ NoControl - 443, 53 + 570, 63 + + + 4, 0, 4, 0 - 86, 16 + 111, 21 7 @@ -4398,10 +4728,13 @@ Doughnut - 56, 71 + 72, 84 + + + 4, 4, 4, 4 - 121, 24 + 154, 27 6 @@ -4425,10 +4758,13 @@ NoControl - 56, 52 + 72, 62 + + + 4, 0, 4, 0 - 69, 16 + 89, 21 5 @@ -4449,10 +4785,13 @@ 33 - 252, 72 + 324, 86 + + + 4, 4, 4, 4 - 188, 23 + 241, 27 4 @@ -4476,10 +4815,13 @@ NoControl - 249, 53 + 320, 63 + + + 4, 0, 4, 0 - 110, 16 + 143, 21 3 @@ -4500,10 +4842,13 @@ 35 - 9, 72 + 12, 86 + + + 4, 4, 4, 4 - 41, 23 + 52, 27 2 @@ -4524,10 +4869,13 @@ True - 6, 52 + 8, 62 + + + 4, 0, 4, 0 - 24, 16 + 34, 21 1 @@ -4551,10 +4899,13 @@ True - 6, 19 + 8, 23 + + + 4, 0, 4, 0 - 295, 16 + 383, 21 0 @@ -4575,7 +4926,13 @@ 38 - 6, 89 + 8, 106 + + + 4, 4, 4, 4 + + + 4, 4, 4, 4 0, 0 @@ -4605,10 +4962,13 @@ Tahoma, 9.75pt, style=Bold, Italic - 118, 51 + 152, 61 + + + 4, 0, 4, 0 - 139, 16 + 189, 21 2 @@ -4635,10 +4995,13 @@ Tahoma, 9.75pt, style=Bold, Italic - 118, 35 + 152, 42 + + + 4, 0, 4, 0 - 276, 16 + 386, 21 1 @@ -4662,10 +5025,13 @@ True - 6, 19 + 8, 23 + + + 4, 0, 4, 0 - 258, 48 + 336, 63 0 @@ -4688,10 +5054,16 @@ Top Kreditoren: 2 - 6, 6 + 8, 7 + + + 4, 4, 4, 4 + + + 4, 4, 4, 4 - 984, 77 + 1265, 91 0 @@ -4712,13 +5084,16 @@ Top Kreditoren: 1 - 4, 25 + 4, 28 + + + 4, 4, 4, 4 - 3, 3, 3, 3 + 4, 4, 4, 4 - 1022, 534 + 1316, 637 2 @@ -4742,10 +5117,13 @@ Top Kreditoren: Fill - 276, 0 + 355, 0 + + + 4, 4, 4, 4 - 1030, 563 + 1324, 660 3 @@ -4765,12 +5143,18 @@ Top Kreditoren: Left + + 4, 4, 4, 4 + 0, 0 GridColumn5 + + 96 + Profil-Name @@ -4781,10 +5165,13 @@ Top Kreditoren: 0 - 129 + 166 + + + 4, 4, 4, 4 - 276, 563 + 355, 660 84 @@ -4823,10 +5210,13 @@ Top Kreditoren: Fill - 0, 158 + 0, 194 + + + 4, 4, 4, 4 - 1306, 563 + 1679, 660 4 @@ -4889,10 +5279,10 @@ Top Kreditoren: 91 - 7, 16 + 9, 19 - 1306, 743 + 1679, 882 Tahoma, 9.75pt @@ -4981,7 +5371,7 @@ Top Kreditoren: - 3, 4, 3, 4 + 4, 5, 4, 5 Profil-Verwaltung diff --git a/app/TaskFlow/frmAdministration.vb b/app/TaskFlow/frmAdministration.vb index 0fc373e..acffdb2 100644 --- a/app/TaskFlow/frmAdministration.vb +++ b/app/TaskFlow/frmAdministration.vb @@ -162,12 +162,14 @@ Public Class frmAdministration PM_VEKTOR_INDEXComboBox.Enabled = False Label4.Enabled = False + Dim oCount = 0 Try For Each oRow As DataRow In IDBData.DTVWIDB_BE_ATTRIBUTE.Rows Select Case CInt(oRow.Item("TYP_ID")) Case 8 Me.PM_VEKTOR_INDEXComboBox.Items.Add(oRow.Item("ATTR_TITLE")) Me.cmbLOGIndex.Items.Add(oRow.Item("ATTR_TITLE")) + oCount += 1 End Select Next @@ -181,7 +183,11 @@ Public Class frmAdministration _Logger.Error(ex) MsgBox("Error in GetIndices IDB: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + If IDBData.DTVWIDB_BE_ATTRIBUTE.Rows.Count = 0 Then + LOGGER.Warn("⚠ No attributes [VWIDB_BE_ATTRIBUTE] found in IDB for the selected object type.") + Else + LOGGER.Info($"Found {oCount} vector attributes in IDB for the selected object type.") + End If End If @@ -231,7 +237,7 @@ Public Class frmAdministration MsgBox("No connection to windream-server possible.", MsgBoxStyle.Critical, "Unexprected error:") End Try Else - Dim oSQL = "SELECT GUID, TITLE FROM IDB.dbo.TBIDB_BUSINESS_ENTITY" + Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY" Dim oDT As DataTable = DatabaseFallback.GetDatatableIDB(oSQL) For Each oROW As DataRow In oDT.Rows Me.cmbObjekttypen.Items.Add(oROW.Item(1)) diff --git a/app/TaskFlow/frmCockpitConfig.Designer.vb b/app/TaskFlow/frmCockpitConfig.Designer.vb index 888d6d3..3ca5b45 100644 --- a/app/TaskFlow/frmCockpitConfig.Designer.vb +++ b/app/TaskFlow/frmCockpitConfig.Designer.vb @@ -69,7 +69,7 @@ Partial Class frmCockpitConfig Me.LabelControl_Chart = New DevExpress.XtraEditors.LabelControl() Me.LookUpEditMonitor = New DevExpress.XtraEditors.LookUpEdit() Me.LabelControl_Monitor = New DevExpress.XtraEditors.LabelControl() - Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabControl_UserGroup = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView() @@ -89,8 +89,8 @@ Partial Class frmCockpitConfig Me.TextEditCockpit_Bez = New DevExpress.XtraEditors.TextEdit() Me.LabelControl12 = New DevExpress.XtraEditors.LabelControl() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SpinEdit_sequence = New DevExpress.XtraEditors.SpinEdit() Me.LabelControl13 = New DevExpress.XtraEditors.LabelControl() - Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LookUpEditCockpit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEdit_Cockpit_Active.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -106,8 +106,8 @@ Partial Class frmCockpitConfig CType(Me.LookUpEditProfil.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LookUpEditChart.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LookUpEditMonitor.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl1.SuspendLayout() + CType(Me.XtraTabControl_UserGroup, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl_UserGroup.SuspendLayout() Me.XtraTabPage1.SuspendLayout() CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit() @@ -129,7 +129,7 @@ Partial Class frmCockpitConfig CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.Panel2.SuspendLayout() Me.SplitContainerControl1.SuspendLayout() - CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpinEdit_sequence.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -145,7 +145,7 @@ Partial Class frmCockpitConfig Me.RibbonControl1.OptionsMenuMinWidth = 385 Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.Size = New System.Drawing.Size(1451, 194) + Me.RibbonControl1.Size = New System.Drawing.Size(1451, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 @@ -286,11 +286,11 @@ Partial Class frmCockpitConfig ' Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitm_info) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitm_added_Changed) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 679) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 685) Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(4) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1451, 28) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1451, 22) ' 'RibbonPage2 ' @@ -303,7 +303,7 @@ Partial Class frmCockpitConfig Me.LabelControl1.Appearance.Options.UseFont = True Me.LabelControl1.Location = New System.Drawing.Point(12, 7) Me.LabelControl1.Name = "LabelControl1" - Me.LabelControl1.Size = New System.Drawing.Size(100, 21) + Me.LabelControl1.Size = New System.Drawing.Size(83, 17) Me.LabelControl1.TabIndex = 16 Me.LabelControl1.Text = "Wähle Cockpit" ' @@ -315,7 +315,7 @@ Partial Class frmCockpitConfig Me.LookUpEditCockpit.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LookUpEditCockpit.Properties.Appearance.Options.UseFont = True Me.LookUpEditCockpit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEditCockpit.Size = New System.Drawing.Size(312, 28) + Me.LookUpEditCockpit.Size = New System.Drawing.Size(312, 24) Me.LookUpEditCockpit.TabIndex = 17 ' 'CheckEdit_Cockpit_Active @@ -324,7 +324,7 @@ Partial Class frmCockpitConfig Me.CheckEdit_Cockpit_Active.MenuManager = Me.RibbonControl1 Me.CheckEdit_Cockpit_Active.Name = "CheckEdit_Cockpit_Active" Me.CheckEdit_Cockpit_Active.Properties.Caption = "Active" - Me.CheckEdit_Cockpit_Active.Size = New System.Drawing.Size(52, 21) + Me.CheckEdit_Cockpit_Active.Size = New System.Drawing.Size(52, 18) Me.CheckEdit_Cockpit_Active.TabIndex = 20 ' 'ImageCollection1 @@ -362,7 +362,7 @@ Partial Class frmCockpitConfig Me.TreeList_Cockpit.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark Me.TreeList_Cockpit.ParentFieldName = "PARENT_ID" Me.TreeList_Cockpit.SelectImageList = Me.ImageCollection1 - Me.TreeList_Cockpit.Size = New System.Drawing.Size(383, 156) + Me.TreeList_Cockpit.Size = New System.Drawing.Size(383, 165) Me.TreeList_Cockpit.TabIndex = 24 ' 'LabelControl2 @@ -371,7 +371,7 @@ Partial Class frmCockpitConfig Me.LabelControl2.Appearance.Options.UseFont = True Me.LabelControl2.Location = New System.Drawing.Point(417, 76) Me.LabelControl2.Name = "LabelControl2" - Me.LabelControl2.Size = New System.Drawing.Size(15, 21) + Me.LabelControl2.Size = New System.Drawing.Size(12, 17) Me.LabelControl2.TabIndex = 27 Me.LabelControl2.Text = "ID" ' @@ -379,9 +379,9 @@ Partial Class frmCockpitConfig ' Me.LabelControl3.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LabelControl3.Appearance.Options.UseFont = True - Me.LabelControl3.Location = New System.Drawing.Point(494, 76) + Me.LabelControl3.Location = New System.Drawing.Point(454, 76) Me.LabelControl3.Name = "LabelControl3" - Me.LabelControl3.Size = New System.Drawing.Size(60, 21) + Me.LabelControl3.Size = New System.Drawing.Size(49, 17) Me.LabelControl3.TabIndex = 28 Me.LabelControl3.Text = "ParentID" ' @@ -391,7 +391,7 @@ Partial Class frmCockpitConfig Me.LabelControl4.Appearance.Options.UseFont = True Me.LabelControl4.Location = New System.Drawing.Point(417, 126) Me.LabelControl4.Name = "LabelControl4" - Me.LabelControl4.Size = New System.Drawing.Size(80, 21) + Me.LabelControl4.Size = New System.Drawing.Size(67, 17) Me.LabelControl4.TabIndex = 29 Me.LabelControl4.Text = "Knoten-Typ" ' @@ -403,18 +403,18 @@ Partial Class frmCockpitConfig Me.TextEdit_PK_CFG_COCKPIT_DEFINITION_ID.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextEdit_PK_CFG_COCKPIT_DEFINITION_ID.Properties.Appearance.Options.UseFont = True Me.TextEdit_PK_CFG_COCKPIT_DEFINITION_ID.Properties.ReadOnly = True - Me.TextEdit_PK_CFG_COCKPIT_DEFINITION_ID.Size = New System.Drawing.Size(55, 28) + Me.TextEdit_PK_CFG_COCKPIT_DEFINITION_ID.Size = New System.Drawing.Size(30, 24) Me.TextEdit_PK_CFG_COCKPIT_DEFINITION_ID.TabIndex = 31 ' 'TextEdit_ParentID ' - Me.TextEdit_ParentID.Location = New System.Drawing.Point(494, 96) + Me.TextEdit_ParentID.Location = New System.Drawing.Point(454, 96) Me.TextEdit_ParentID.MenuManager = Me.RibbonControl1 Me.TextEdit_ParentID.Name = "TextEdit_ParentID" Me.TextEdit_ParentID.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextEdit_ParentID.Properties.Appearance.Options.UseFont = True Me.TextEdit_ParentID.Properties.ReadOnly = True - Me.TextEdit_ParentID.Size = New System.Drawing.Size(55, 28) + Me.TextEdit_ParentID.Size = New System.Drawing.Size(30, 24) Me.TextEdit_ParentID.TabIndex = 32 ' 'LookUpEditTypeID @@ -425,7 +425,7 @@ Partial Class frmCockpitConfig Me.LookUpEditTypeID.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LookUpEditTypeID.Properties.Appearance.Options.UseFont = True Me.LookUpEditTypeID.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEditTypeID.Size = New System.Drawing.Size(143, 28) + Me.LookUpEditTypeID.Size = New System.Drawing.Size(143, 24) Me.LookUpEditTypeID.TabIndex = 33 ' 'TextEdit_Bezeichnung @@ -435,7 +435,7 @@ Partial Class frmCockpitConfig Me.TextEdit_Bezeichnung.Name = "TextEdit_Bezeichnung" Me.TextEdit_Bezeichnung.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextEdit_Bezeichnung.Properties.Appearance.Options.UseFont = True - Me.TextEdit_Bezeichnung.Size = New System.Drawing.Size(283, 28) + Me.TextEdit_Bezeichnung.Size = New System.Drawing.Size(359, 24) Me.TextEdit_Bezeichnung.TabIndex = 36 ' 'LabelControl5 @@ -444,19 +444,19 @@ Partial Class frmCockpitConfig Me.LabelControl5.Appearance.Options.UseFont = True Me.LabelControl5.Location = New System.Drawing.Point(565, 76) Me.LabelControl5.Name = "LabelControl5" - Me.LabelControl5.Size = New System.Drawing.Size(144, 21) + Me.LabelControl5.Size = New System.Drawing.Size(120, 17) Me.LabelControl5.TabIndex = 35 Me.LabelControl5.Text = "Knoten Bezeichnung:" ' 'CheckEdit_Active ' - Me.CheckEdit_Active.Location = New System.Drawing.Point(854, 97) + Me.CheckEdit_Active.Location = New System.Drawing.Point(504, 97) Me.CheckEdit_Active.MenuManager = Me.RibbonControl1 Me.CheckEdit_Active.Name = "CheckEdit_Active" Me.CheckEdit_Active.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CheckEdit_Active.Properties.Appearance.Options.UseFont = True - Me.CheckEdit_Active.Properties.Caption = "Active" - Me.CheckEdit_Active.Size = New System.Drawing.Size(70, 25) + Me.CheckEdit_Active.Properties.Caption = "Aktiv" + Me.CheckEdit_Active.Size = New System.Drawing.Size(55, 21) Me.CheckEdit_Active.TabIndex = 37 ' 'LookUpEdit_Image @@ -467,7 +467,7 @@ Partial Class frmCockpitConfig Me.LookUpEdit_Image.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LookUpEdit_Image.Properties.Appearance.Options.UseFont = True Me.LookUpEdit_Image.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEdit_Image.Size = New System.Drawing.Size(143, 28) + Me.LookUpEdit_Image.Size = New System.Drawing.Size(143, 24) Me.LookUpEdit_Image.TabIndex = 39 ' 'LabelControl6 @@ -476,7 +476,7 @@ Partial Class frmCockpitConfig Me.LabelControl6.Appearance.Options.UseFont = True Me.LabelControl6.Location = New System.Drawing.Point(417, 181) Me.LabelControl6.Name = "LabelControl6" - Me.LabelControl6.Size = New System.Drawing.Size(57, 21) + Me.LabelControl6.Size = New System.Drawing.Size(47, 17) Me.LabelControl6.TabIndex = 38 Me.LabelControl6.Text = "Bild-Typ" ' @@ -487,7 +487,7 @@ Partial Class frmCockpitConfig Me.TextEdit_Comment.Name = "TextEdit_Comment" Me.TextEdit_Comment.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextEdit_Comment.Properties.Appearance.Options.UseFont = True - Me.TextEdit_Comment.Size = New System.Drawing.Size(359, 28) + Me.TextEdit_Comment.Size = New System.Drawing.Size(409, 24) Me.TextEdit_Comment.TabIndex = 41 ' 'LabelControl7 @@ -496,7 +496,7 @@ Partial Class frmCockpitConfig Me.LabelControl7.Appearance.Options.UseFont = True Me.LabelControl7.Location = New System.Drawing.Point(566, 181) Me.LabelControl7.Name = "LabelControl7" - Me.LabelControl7.Size = New System.Drawing.Size(80, 21) + Me.LabelControl7.Size = New System.Drawing.Size(65, 17) Me.LabelControl7.TabIndex = 40 Me.LabelControl7.Text = "Bemerkung" ' @@ -506,7 +506,7 @@ Partial Class frmCockpitConfig Me.LabelControl_Profil.Appearance.Options.UseFont = True Me.LabelControl_Profil.Location = New System.Drawing.Point(565, 126) Me.LabelControl_Profil.Name = "LabelControl_Profil" - Me.LabelControl_Profil.Size = New System.Drawing.Size(37, 21) + Me.LabelControl_Profil.Size = New System.Drawing.Size(30, 17) Me.LabelControl_Profil.TabIndex = 42 Me.LabelControl_Profil.Text = "Profil" ' @@ -518,7 +518,7 @@ Partial Class frmCockpitConfig Me.LookUpEditProfil.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LookUpEditProfil.Properties.Appearance.Options.UseFont = True Me.LookUpEditProfil.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEditProfil.Size = New System.Drawing.Size(359, 28) + Me.LookUpEditProfil.Size = New System.Drawing.Size(409, 24) Me.LookUpEditProfil.TabIndex = 43 ' 'LookUpEditChart @@ -529,7 +529,7 @@ Partial Class frmCockpitConfig Me.LookUpEditChart.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LookUpEditChart.Properties.Appearance.Options.UseFont = True Me.LookUpEditChart.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEditChart.Size = New System.Drawing.Size(359, 28) + Me.LookUpEditChart.Size = New System.Drawing.Size(408, 24) Me.LookUpEditChart.TabIndex = 45 ' 'LabelControl_Chart @@ -538,7 +538,7 @@ Partial Class frmCockpitConfig Me.LabelControl_Chart.Appearance.Options.UseFont = True Me.LabelControl_Chart.Location = New System.Drawing.Point(566, 126) Me.LabelControl_Chart.Name = "LabelControl_Chart" - Me.LabelControl_Chart.Size = New System.Drawing.Size(112, 21) + Me.LabelControl_Chart.Size = New System.Drawing.Size(91, 17) Me.LabelControl_Chart.TabIndex = 44 Me.LabelControl_Chart.Text = "Chart-Definition" ' @@ -550,7 +550,7 @@ Partial Class frmCockpitConfig Me.LookUpEditMonitor.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LookUpEditMonitor.Properties.Appearance.Options.UseFont = True Me.LookUpEditMonitor.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEditMonitor.Size = New System.Drawing.Size(359, 28) + Me.LookUpEditMonitor.Size = New System.Drawing.Size(409, 24) Me.LookUpEditMonitor.TabIndex = 47 ' 'LabelControl_Monitor @@ -559,20 +559,20 @@ Partial Class frmCockpitConfig Me.LabelControl_Monitor.Appearance.Options.UseFont = True Me.LabelControl_Monitor.Location = New System.Drawing.Point(565, 126) Me.LabelControl_Monitor.Name = "LabelControl_Monitor" - Me.LabelControl_Monitor.Size = New System.Drawing.Size(130, 21) + Me.LabelControl_Monitor.Size = New System.Drawing.Size(107, 17) Me.LabelControl_Monitor.TabIndex = 46 Me.LabelControl_Monitor.Text = "Monitor-Definition" ' - 'XtraTabControl1 + 'XtraTabControl_UserGroup ' - Me.XtraTabControl1.AllowDrop = True - Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) - Me.XtraTabControl1.Name = "XtraTabControl1" - Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 - Me.XtraTabControl1.Size = New System.Drawing.Size(1451, 223) - Me.XtraTabControl1.TabIndex = 50 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + Me.XtraTabControl_UserGroup.AllowDrop = True + Me.XtraTabControl_UserGroup.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl_UserGroup.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl_UserGroup.Name = "XtraTabControl_UserGroup" + Me.XtraTabControl_UserGroup.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl_UserGroup.Size = New System.Drawing.Size(1451, 267) + Me.XtraTabControl_UserGroup.TabIndex = 50 + Me.XtraTabControl_UserGroup.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) ' 'XtraTabPage1 ' @@ -580,17 +580,17 @@ Partial Class frmCockpitConfig Me.XtraTabPage1.Controls.Add(Me.gridAvailableUsers) Me.XtraTabPage1.Controls.Add(Me.PanelControl1) Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1449, 195) + Me.XtraTabPage1.Size = New System.Drawing.Size(1449, 244) Me.XtraTabPage1.Text = "User zu Cockpit" ' 'gridAssignedUsers ' Me.gridAssignedUsers.AllowDrop = True Me.gridAssignedUsers.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridAssignedUsers.Location = New System.Drawing.Point(406, 33) + Me.gridAssignedUsers.Location = New System.Drawing.Point(508, 33) Me.gridAssignedUsers.MainView = Me.viewAssignedUsers Me.gridAssignedUsers.Name = "gridAssignedUsers" - Me.gridAssignedUsers.Size = New System.Drawing.Size(1043, 162) + Me.gridAssignedUsers.Size = New System.Drawing.Size(941, 211) Me.gridAssignedUsers.TabIndex = 7 Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers}) ' @@ -609,7 +609,7 @@ Partial Class frmCockpitConfig Me.gridAvailableUsers.Location = New System.Drawing.Point(0, 33) Me.gridAvailableUsers.MainView = Me.viewAvailableUsers Me.gridAvailableUsers.Name = "gridAvailableUsers" - Me.gridAvailableUsers.Size = New System.Drawing.Size(406, 162) + Me.gridAvailableUsers.Size = New System.Drawing.Size(508, 211) Me.gridAvailableUsers.TabIndex = 6 Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers}) ' @@ -639,7 +639,7 @@ Partial Class frmCockpitConfig Me.LabelControl9.Appearance.Options.UseFont = True Me.LabelControl9.Location = New System.Drawing.Point(409, 5) Me.LabelControl9.Name = "LabelControl9" - Me.LabelControl9.Size = New System.Drawing.Size(125, 21) + Me.LabelControl9.Size = New System.Drawing.Size(106, 17) Me.LabelControl9.TabIndex = 1 Me.LabelControl9.Text = "Zugeordnete User" ' @@ -649,7 +649,7 @@ Partial Class frmCockpitConfig Me.LabelControl8.Appearance.Options.UseFont = True Me.LabelControl8.Location = New System.Drawing.Point(5, 5) Me.LabelControl8.Name = "LabelControl8" - Me.LabelControl8.Size = New System.Drawing.Size(164, 21) + Me.LabelControl8.Size = New System.Drawing.Size(139, 17) Me.LabelControl8.TabIndex = 0 Me.LabelControl8.Text = "Nicht zugeordnete User" ' @@ -659,17 +659,17 @@ Partial Class frmCockpitConfig Me.XtraTabPage2.Controls.Add(Me.GridAvailableGroups) Me.XtraTabPage2.Controls.Add(Me.PanelControl2) Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(1449, 237) + Me.XtraTabPage2.Size = New System.Drawing.Size(1449, 244) Me.XtraTabPage2.Text = "Gruppe zu Cockpit" ' 'GridAssignedGroups ' Me.GridAssignedGroups.AllowDrop = True Me.GridAssignedGroups.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridAssignedGroups.Location = New System.Drawing.Point(406, 33) + Me.GridAssignedGroups.Location = New System.Drawing.Point(508, 33) Me.GridAssignedGroups.MainView = Me.ViewAssignedGroups Me.GridAssignedGroups.Name = "GridAssignedGroups" - Me.GridAssignedGroups.Size = New System.Drawing.Size(1043, 204) + Me.GridAssignedGroups.Size = New System.Drawing.Size(941, 211) Me.GridAssignedGroups.TabIndex = 8 Me.GridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAssignedGroups}) ' @@ -688,7 +688,7 @@ Partial Class frmCockpitConfig Me.GridAvailableGroups.Location = New System.Drawing.Point(0, 33) Me.GridAvailableGroups.MainView = Me.ViewAvailableGroups Me.GridAvailableGroups.Name = "GridAvailableGroups" - Me.GridAvailableGroups.Size = New System.Drawing.Size(406, 204) + Me.GridAvailableGroups.Size = New System.Drawing.Size(508, 211) Me.GridAvailableGroups.TabIndex = 7 Me.GridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAvailableGroups}) ' @@ -718,7 +718,7 @@ Partial Class frmCockpitConfig Me.LabelControl10.Appearance.Options.UseFont = True Me.LabelControl10.Location = New System.Drawing.Point(409, 5) Me.LabelControl10.Name = "LabelControl10" - Me.LabelControl10.Size = New System.Drawing.Size(154, 21) + Me.LabelControl10.Size = New System.Drawing.Size(130, 17) Me.LabelControl10.TabIndex = 1 Me.LabelControl10.Text = "Zugeordnete Gruppen" ' @@ -728,7 +728,7 @@ Partial Class frmCockpitConfig Me.LabelControl11.Appearance.Options.UseFont = True Me.LabelControl11.Location = New System.Drawing.Point(5, 5) Me.LabelControl11.Name = "LabelControl11" - Me.LabelControl11.Size = New System.Drawing.Size(193, 21) + Me.LabelControl11.Size = New System.Drawing.Size(163, 17) Me.LabelControl11.TabIndex = 0 Me.LabelControl11.Text = "Nicht zugeordnete Gruppen" ' @@ -739,7 +739,7 @@ Partial Class frmCockpitConfig Me.TextEditCockpit_Bez.Name = "TextEditCockpit_Bez" Me.TextEditCockpit_Bez.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextEditCockpit_Bez.Properties.Appearance.Options.UseFont = True - Me.TextEditCockpit_Bez.Size = New System.Drawing.Size(431, 28) + Me.TextEditCockpit_Bez.Size = New System.Drawing.Size(507, 24) Me.TextEditCockpit_Bez.TabIndex = 55 ' 'LabelControl12 @@ -748,7 +748,7 @@ Partial Class frmCockpitConfig Me.LabelControl12.Appearance.Options.UseFont = True Me.LabelControl12.Location = New System.Drawing.Point(417, 7) Me.LabelControl12.Name = "LabelControl12" - Me.LabelControl12.Size = New System.Drawing.Size(147, 21) + Me.LabelControl12.Size = New System.Drawing.Size(122, 17) Me.LabelControl12.TabIndex = 54 Me.LabelControl12.Text = "Cockpit Bezeichnung:" ' @@ -756,12 +756,12 @@ Partial Class frmCockpitConfig ' Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Horizontal = False - Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 194) + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) Me.SplitContainerControl1.Name = "SplitContainerControl1" ' 'SplitContainerControl1.Panel1 ' - Me.SplitContainerControl1.Panel1.Controls.Add(Me.SpinEdit1) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.SpinEdit_sequence) Me.SplitContainerControl1.Panel1.Controls.Add(Me.LabelControl13) Me.SplitContainerControl1.Panel1.Controls.Add(Me.LabelControl1) Me.SplitContainerControl1.Panel1.Controls.Add(Me.TextEditCockpit_Bez) @@ -792,39 +792,41 @@ Partial Class frmCockpitConfig ' 'SplitContainerControl1.Panel2 ' - Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl_UserGroup) Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.ShowSplitGlyph = DevExpress.Utils.DefaultBoolean.[True] - Me.SplitContainerControl1.Size = New System.Drawing.Size(1451, 485) + Me.SplitContainerControl1.Size = New System.Drawing.Size(1451, 527) Me.SplitContainerControl1.SplitterPosition = 250 Me.SplitContainerControl1.TabIndex = 58 ' + 'SpinEdit_sequence + ' + Me.SpinEdit_sequence.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.SpinEdit_sequence.Location = New System.Drawing.Point(930, 99) + Me.SpinEdit_sequence.MenuManager = Me.RibbonControl1 + Me.SpinEdit_sequence.Name = "SpinEdit_sequence" + Me.SpinEdit_sequence.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SpinEdit_sequence.Properties.Appearance.Options.UseFont = True + Me.SpinEdit_sequence.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.SpinEdit_sequence.Properties.MaxValue = New Decimal(New Integer() {20, 0, 0, 0}) + Me.SpinEdit_sequence.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.SpinEdit_sequence.Size = New System.Drawing.Size(44, 20) + Me.SpinEdit_sequence.TabIndex = 58 + ' 'LabelControl13 ' Me.LabelControl13.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LabelControl13.Appearance.Options.UseFont = True Me.LabelControl13.Location = New System.Drawing.Point(930, 76) Me.LabelControl13.Name = "LabelControl13" - Me.LabelControl13.Size = New System.Drawing.Size(86, 21) + Me.LabelControl13.Size = New System.Drawing.Size(72, 17) Me.LabelControl13.TabIndex = 57 Me.LabelControl13.Text = "Reihenfolge:" ' - 'SpinEdit1 - ' - Me.SpinEdit1.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) - Me.SpinEdit1.Location = New System.Drawing.Point(930, 99) - Me.SpinEdit1.MenuManager = Me.RibbonControl1 - Me.SpinEdit1.Name = "SpinEdit1" - Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.SpinEdit1.Properties.MaxValue = New Decimal(New Integer() {20, 0, 0, 0}) - Me.SpinEdit1.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) - Me.SpinEdit1.Size = New System.Drawing.Size(86, 24) - Me.SpinEdit1.TabIndex = 58 - ' 'frmCockpitConfig ' Me.Appearance.Options.UseFont = True - Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1451, 707) Me.Controls.Add(Me.SplitContainerControl1) @@ -852,8 +854,8 @@ Partial Class frmCockpitConfig CType(Me.LookUpEditProfil.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LookUpEditChart.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LookUpEditMonitor.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl1.ResumeLayout(False) + CType(Me.XtraTabControl_UserGroup, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl_UserGroup.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit() @@ -878,7 +880,7 @@ Partial Class frmCockpitConfig Me.SplitContainerControl1.Panel2.ResumeLayout(False) CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) - CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpinEdit_sequence.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -923,7 +925,7 @@ Partial Class frmCockpitConfig Friend WithEvents LookUpEditMonitor As DevExpress.XtraEditors.LookUpEdit Friend WithEvents LabelControl_Monitor As DevExpress.XtraEditors.LabelControl Friend WithEvents bbtnitmCopy As DevExpress.XtraBars.BarButtonItem - Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabControl_UserGroup As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents gridAvailableUsers As DevExpress.XtraGrid.GridControl @@ -950,5 +952,5 @@ Partial Class frmCockpitConfig Friend WithEvents bsitm_added_Changed As DevExpress.XtraBars.BarStaticItem Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents LabelControl13 As DevExpress.XtraEditors.LabelControl - Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit + Friend WithEvents SpinEdit_sequence As DevExpress.XtraEditors.SpinEdit End Class diff --git a/app/TaskFlow/frmCockpitConfig.vb b/app/TaskFlow/frmCockpitConfig.vb index 3f703d9..a07c67c 100644 --- a/app/TaskFlow/frmCockpitConfig.vb +++ b/app/TaskFlow/frmCockpitConfig.vb @@ -191,6 +191,7 @@ Public Class frmCockpitConfig ,SQL_QUERY ,SQL_QUERY_COUNT ,COMMENT + ,CFG_SEQUENCE ,ADDED_WHO ,ADDED_WHEN ,CHANGED_WHO @@ -215,7 +216,7 @@ Public Class frmCockpitConfig _currentCockpitDefinition.SQL_Query = If(IsDBNull(row("SQL_QUERY")), String.Empty, row("SQL_QUERY").ToString()) _currentCockpitDefinition.SQL_Query_Count = If(IsDBNull(row("SQL_QUERY_COUNT")), String.Empty, row("SQL_QUERY_COUNT").ToString()) _currentCockpitDefinition.Comment = If(IsDBNull(row("COMMENT")), String.Empty, row("COMMENT").ToString()) - + _currentCockpitDefinition.CFG_Sequence = If(IsDBNull(row("CFG_SEQUENCE")), 0, CInt(row("CFG_SEQUENCE"))) LOGGER.Debug($"Reload_CurrentCockpitDefinition: Erfolgreich neu geladen - ID={pkId}, SQL_Query Length={_currentCockpitDefinition.SQL_Query.Length}, SQL_Query_Count Length={_currentCockpitDefinition.SQL_Query_Count.Length}") Else LOGGER.Warn($"Reload_CurrentCockpitDefinition: Keine Daten gefunden für ID={pkId}") @@ -250,6 +251,8 @@ Public Class frmCockpitConfig FROM [dbo].[TBTF_CFG_COCKPIT_DEFINITION] WITH (NOLOCK) WHERE FK_CFG_COCKPIT_ID = {Selected_Cockpit_ID} ORDER BY PARENT_ID " Dim DT_CONFIG_DEF = DatabaseFallback.GetDatatableECM(oSQL) If Not IsNothing(DT_CONFIG_DEF) Then + TreeList_Cockpit.ClearNodes() + TreeList_Cockpit.DataSource = Nothing ' ===== NEUE DATATABLE MIT KORREKTEN TYPEN ERSTELLEN ===== Dim cleanedTable As New DataTable() cleanedTable.Columns.Add("PK_CFG_COCKPIT_DEFINITION_ID", GetType(Integer)) @@ -323,10 +326,18 @@ Public Class frmCockpitConfig CheckEdit_Cockpit_Active.Checked = LookUpEditCockpit.Properties.GetDataSourceValue("ACTIVE", LookUpEditCockpit.ItemIndex) TextEditCockpit_Bez.Text = LookUpEditCockpit.Properties.GetDataSourceValue("NAME", LookUpEditCockpit.ItemIndex).ToString() Load_TBTF_CFG_COCKPIT_DEFINITION() - Load_Free_User_2_Cockpit() - Load_Assigned_User_2_Cockpit() + + Select Case XtraTabControl_UserGroup.SelectedTabPageIndex + Case 0 + Load_Free_User_2_Cockpit() + Load_Assigned_User_2_Cockpit() + Case 1 + Load_Free_Groups_2_Cockpit() + Load_Assigned_Groups_2_Cockpit() + End Select + Display_Added_Changed("Cockpit") - Enable_GrpCockpit() + Catch ex As Exception LOGGER.Error($"Error in LookUpEdit1_EditValueChanged: {ex.Message}") End Try @@ -461,9 +472,9 @@ Public Class frmCockpitConfig LookUpEditChart.EditValue = 0 End If If _currentCockpitDefinition.CFG_Sequence.HasValue Then - SpinEdit1.Value = _currentCockpitDefinition.CFG_Sequence.Value + SpinEdit_sequence.Value = _currentCockpitDefinition.CFG_Sequence.Value Else - SpinEdit1.Value = 0 + SpinEdit_sequence.Value = 0 End If If _currentCockpitDefinition.FK_MonitorID.HasValue Then 'LOGGER.Debug($"Attempting to set FK_MonitorID to: {_currentCockpitDefinition.FK_MonitorID.Value}") @@ -513,25 +524,24 @@ Public Class frmCockpitConfig Case 0 ' Overview bbtnSQL_Data.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtnSQL_Count.Visibility = DevExpress.XtraBars.BarItemVisibility.Always - bbtnitm_NodeOverviewAdd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtnitm_NodeProfilAdd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always LOGGER.Debug("Selected node is of type Overview - keine FK-Felder angezeigt") - + RbmPgGrp_Node.Enabled = True Case 1 ' Profil bbtnSQL_Data.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtnSQL_Count.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtnitm_NodeProfilAdd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always ProfileID_display(True) LOGGER.Debug("Selected node is of type Profil - LookUpEditProfil angezeigt") - + RbmPgGrp_Node.Enabled = True Case 2 ' Monitor Monitor_display(True) LOGGER.Debug("Selected node is of type Monitor - LookUpEditMonitor angezeigt") - + RbmPgGrp_Node.Enabled = True Case 3 ' Chart Chart_display(True) LOGGER.Debug("Selected node is of type Chart - LookUpEditChart angezeigt") - + RbmPgGrp_Node.Enabled = True Case Else LOGGER.Warn($"Selected node has an unknown TYPE_ID: {_currentCockpitDefinition.TypeID.Value}") End Select @@ -622,7 +632,8 @@ Public Class frmCockpitConfig End Sub Private Sub Load_Profile_LookUp() Try - Dim oSQL = "SELECT 0 GUID, '' NAME UNION SELECT GUID, NAME FROM TBPM_PROFILE WITH (NOLOCK)" + Dim oSQL = "SELECT 0 GUID, '' NAME UNION SELECT GUID, CONVERT(VARCHAR(4),GUID) + ' - ' + NAME AS NAME + FROM TBPM_PROFILE WITH (NOLOCK) ORDER BY NAME" Dim oDT = DatabaseFallback.GetDatatableECM(oSQL) LookUpEditProfil.Properties.DataSource = oDT @@ -736,14 +747,13 @@ Public Class frmCockpitConfig Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnSQL_Count.ItemClick Try - Dim praefix As String = $"DECLARE @PROFILE_ID INT = {_currentCockpitDefinition.FK_ProfileID} --only for testing/runtime, removed while saving sql" & vbCrLf - Dim oSQL = praefix & _currentCockpitDefinition.SQL_Query_Count + Dim oSQL = _currentCockpitDefinition.SQL_Query_Count Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = oSQL, .SQLConnection = 0} oForm.ShowDialog() If oForm.DialogResult = DialogResult.OK Then ' ===== NUR IM OBJEKT SPEICHERN, NICHT IN DATENBANK ===== - _currentCockpitDefinition.SQL_Query_Count = oForm.SQLCommand.Replace(praefix, "") + _currentCockpitDefinition.SQL_Query_Count = oForm.SQLCommand LOGGER.Debug($"SQL_Query_Count updated in _currentCockpitDefinition - Length: {_currentCockpitDefinition.SQL_Query_Count.Length}") bsitm_info_Display("SQL_Query_Count aktualisiert (noch nicht gespeichert - bitte 'Speichern' klicken)") @@ -756,14 +766,13 @@ Public Class frmCockpitConfig Private Sub bbtnSQL_Data_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnSQL_Data.ItemClick Try - Dim praefix As String = $"DECLARE @PROFILE_ID INT = {_currentCockpitDefinition.FK_ProfileID} --only for testing/runtime, removed while saving sql" & vbCrLf - Dim oSQL = praefix & _currentCockpitDefinition.SQL_Query + Dim oSQL = _currentCockpitDefinition.SQL_Query Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = oSQL, .SQLConnection = 0} oForm.ShowDialog() If oForm.DialogResult = DialogResult.OK Then ' ===== NUR IM OBJEKT SPEICHERN, NICHT IN DATENBANK ===== - _currentCockpitDefinition.SQL_Query = oForm.SQLCommand.Replace(praefix, "") + _currentCockpitDefinition.SQL_Query = oForm.SQLCommand LOGGER.Debug($"SQL_Query updated in _currentCockpitDefinition - Length: {_currentCockpitDefinition.SQL_Query.Length}") bsitm_info_Display("SQL_Query aktualisiert (noch nicht gespeichert - bitte 'Speichern' klicken)") @@ -785,7 +794,7 @@ Public Class frmCockpitConfig _currentCockpitDefinition.Active = CheckEdit_Active.Checked _currentCockpitDefinition.Name = TextEdit_Bezeichnung.Text.Trim() _currentCockpitDefinition.Comment = TextEdit_Comment.Text.Trim() - _currentCockpitDefinition.CFG_Sequence = SpinEdit1.Value + _currentCockpitDefinition.CFG_Sequence = SpinEdit_sequence.Value ' TYPE_ID If LookUpEditTypeID.EditValue IsNot Nothing AndAlso IsNumeric(LookUpEditTypeID.EditValue) Then _currentCockpitDefinition.TypeID = CInt(LookUpEditTypeID.EditValue) @@ -866,45 +875,31 @@ Public Class frmCockpitConfig WHERE PK_CFG_COCKPIT_DEFINITION_ID = {_currentCockpitDefinition.PK_CFG_COCKPIT_DEFINITION_ID}" If DatabaseFallback.ExecuteNonQueryECM(updateSQL) Then - ' ===== AKTUELLEN KNOTEN IM TREEVIEW AKTUALISIEREN ===== - Dim currentNode = TreeList_Cockpit.FocusedNode - If currentNode IsNot Nothing Then - ' NAME aktualisieren - currentNode.SetValue("NAME", _currentCockpitDefinition.Name) + Dim savedPK As Integer = _currentCockpitDefinition.PK_CFG_COCKPIT_DEFINITION_ID - ' ICON_ID aktualisieren wenn geändert - Dim currentIconId As Object = currentNode.GetValue("ICON_ID") - Dim newIconId As Integer? = _currentCockpitDefinition.IconID + ' ===== TREE NEU LADEN (erzwingt korrekte Reihenfolge) ===== + Load_TBTF_CFG_COCKPIT_DEFINITION() - If (currentIconId Is Nothing OrElse IsDBNull(currentIconId)) AndAlso newIconId.HasValue Then - currentNode.SetValue("ICON_ID", newIconId.Value) - LOGGER.Debug($"Icon aktualisiert: NULL -> {newIconId.Value}") - ElseIf currentIconId IsNot Nothing AndAlso Not IsDBNull(currentIconId) AndAlso newIconId.HasValue Then - If CInt(currentIconId) <> newIconId.Value Then - currentNode.SetValue("ICON_ID", newIconId.Value) - LOGGER.Debug($"Icon aktualisiert: {currentIconId} -> {newIconId.Value}") - End If - ElseIf (currentIconId IsNot Nothing AndAlso Not IsDBNull(currentIconId)) AndAlso Not newIconId.HasValue Then - currentNode.SetValue("ICON_ID", DBNull.Value) - LOGGER.Debug($"Icon aktualisiert: {currentIconId} -> NULL") - End If + ' ===== GESPEICHERTEN KNOTEN WIEDER FOKUSSIEREN ===== + Dim nodeList As New List(Of DevExpress.XtraTreeList.Nodes.TreeListNode) + CollectAllNodes(TreeList_Cockpit.Nodes, nodeList) + Dim targetNode = nodeList.FirstOrDefault( + Function(n) + Dim pkObj As Object = n.GetValue("PK_CFG_COCKPIT_DEFINITION_ID") + Return pkObj IsNot Nothing AndAlso Not IsDBNull(pkObj) AndAlso CInt(pkObj) = savedPK + End Function) - ' ACTIVE-Status aktualisieren (für CustomDrawNodeCell) - currentNode.SetValue("ACTIVE", _currentCockpitDefinition.Active) - - ' ===== SQL-FELDER IM TREEVIEW-KNOTEN AKTUALISIEREN ===== - currentNode.SetValue("SQL_QUERY", _currentCockpitDefinition.SQL_Query) - currentNode.SetValue("SQL_QUERY_COUNT", _currentCockpitDefinition.SQL_Query_Count) - currentNode.SetValue("CFG_SEQUENCE", _currentCockpitDefinition.CFG_Sequence) - LOGGER.Debug($"TreeView SQL fields updated - SQL_Query length: {_currentCockpitDefinition.SQL_Query.Length}, SQL_Query_Count length: {_currentCockpitDefinition.SQL_Query_Count.Length}") - - ' TreeView visuell aktualisieren - TreeList_Cockpit.RefreshNode(currentNode) + If targetNode IsNot Nothing Then + Load_CP_InAction = True + TreeList_Cockpit.FocusedNode = targetNode + Load_CP_InAction = False + ' ===== FORMULARFELDER EXPLIZIT NEU LADEN ===== + ProcessTreeListNodeAsync(targetNode) End If + Reload_CurrentCockpitDefinition() MsgBox("Node definition saved successfully.", MsgBoxStyle.Information) - LOGGER.Debug($"Saved node definition ID={_currentCockpitDefinition.PK_CFG_COCKPIT_DEFINITION_ID}, Name={_currentCockpitDefinition.Name}") - + LOGGER.Debug($"Saved node definition ID={savedPK}, Name={_currentCockpitDefinition.Name}") Else MsgBox("Error saving node definition. No rows were updated.", MsgBoxStyle.Exclamation) LOGGER.Warn($"No rows updated for PK_CFG_COCKPIT_DEFINITION_ID={_currentCockpitDefinition.PK_CFG_COCKPIT_DEFINITION_ID}") @@ -1219,7 +1214,7 @@ Public Class frmCockpitConfig TBTF_MAP_COCKPIT CP_MAP (NOLOCK) WHERE CP_MAP.FK_CFG_COCKPIT_ID = {Selected_Cockpit_ID} AND CP_MAP.FK_CFG_GROUP_ID IS NOT NULL) - ORDER BY [Groupname]" + ORDER BY INTERNAL DESC, [Groupname]" Dim oDT As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ViewAvailableGroups.Columns.Clear() GridAvailableGroups.DataSource = oDT @@ -1615,8 +1610,8 @@ Public Class frmCockpitConfig MsgBox(ex.Message, MsgBoxStyle.Critical, "Error removing group:") End Try End Sub - Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged - Select Case XtraTabControl1.SelectedTabPageIndex + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl_UserGroup.SelectedPageChanged + Select Case XtraTabControl_UserGroup.SelectedTabPageIndex Case 0 Load_Assigned_User_2_Cockpit() Load_Free_User_2_Cockpit() @@ -1666,6 +1661,8 @@ Public Class frmCockpitConfig Load_CFG_COCKPIT() MsgBox("Neues Cockpit erfolgreich angelegt und inaktiviert. Bitte wählen Sie es aus, um weitere Einstellungen vorzunehmen." & vbCrLf & "Ein Overview-Knoten wurde ebenso angelegt!", MsgBoxStyle.Information) + Enable_GrpNode() + Else MsgBox("Fehler beim Anlegen des Cockpits. Prüfen Sie Ihr Log", MsgBoxStyle.Exclamation) LOGGER.Error("bbtnitm_AddCockpit_ItemClick: Insert returned no ID or invalid ID") @@ -1817,7 +1814,7 @@ Public Class frmCockpitConfig End If Enable_GrpCockpit() End Sub - Private Sub SpinEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles SpinEdit1.EditValueChanged + Private Sub SpinEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles SpinEdit_sequence.EditValueChanged If Load_CP_InAction Or Node_change_inAction Then Exit Sub End If diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index af4f715..73eff0a 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -259,6 +259,7 @@ Public Class frmMain Dim oCultureInfo As System.Globalization.CultureInfo oCultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE) oCultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT + Thread.CurrentThread.CurrentCulture = oCultureInfo Thread.CurrentThread.CurrentUICulture = oCultureInfo CultureInfo.DefaultThreadCurrentCulture = oCultureInfo @@ -693,11 +694,11 @@ Public Class frmMain LOGGER.Debug($"AppendCountsToTreeAsync: {_emptyNodeCount} node(s) with Count=0 stored in class variable") LOGGER.Debug("AppendCountsToTreeAsync: Finished") Decide_Show_Empty_Workflows(Not CONFIG.Config.Hide_Empty_Workflows) - If _emptyNodeCount > 0 Then - Bchkitm_load_empty_wf.Visibility = DevExpress.XtraBars.BarItemVisibility.Never - Else - Bchkitm_load_empty_wf.Visibility = DevExpress.XtraBars.BarItemVisibility.Always - End If + 'If _emptyNodeCount > 0 Then + ' Bchkitm_load_empty_wf.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + 'Else + ' Bchkitm_load_empty_wf.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + 'End If Catch ex As Exception LOGGER.Error(ex) End Try @@ -1246,7 +1247,8 @@ Public Class frmMain oSQL = oSQL.Replace("@MACHINE_NAME", System.Environment.MachineName) oSQL = oSQL.Replace("@DATE", Now.ToShortDateString) oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) - + oSQL = oSQL.Replace("{#USER#PROFILE_ID}", CURRENT_CLICKED_PROFILE_ID.ToString()) + oSQL = oSQL.Replace("{#USER#PROFIL_ID}", CURRENT_CLICKED_PROFILE_ID.ToString()) DT_CURR_WF_ITEMS = Await DatabaseFallback.GetDatatableECMAsync(oSQL) If IsNothing(DT_CURR_WF_ITEMS) Then @@ -2008,6 +2010,8 @@ Public Class frmMain End If oSQL = oSQL.Replace("@PROFILE_ID", oProfileID) oSQL = oSQL.Replace("@PROFIL_ID", oProfileID) + oSQL = oSQL.Replace("{#USER#PROFILE_ID}", oProfileID) + oSQL = oSQL.Replace("{#USER#PROFIL_ID}", oProfileID) Return oSQL End Function @@ -4227,6 +4231,13 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G Timer_Inactivity_Reset_Disable("frmMonitor") Exit Sub End If + If Application.OpenForms().OfType(Of frmCockpitConfig).Any Then + bsiMessage.Caption = "Cockpit Configuration open - no Inactivity-Logout" + bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow + bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black + Timer_Inactivity_Reset_Disable("frmCockpitConfig") + Exit Sub + End If If GHOSTMODE_ACTIVE And USER_GHOST_MODE_ACTIVE Then bsiMessage.Caption = "GhostMode Active - no Inactivity-Logout" bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow diff --git a/app/TaskFlow/packages.config b/app/TaskFlow/packages.config index 5171c60..e820027 100644 --- a/app/TaskFlow/packages.config +++ b/app/TaskFlow/packages.config @@ -7,6 +7,7 @@ +