From 63ece35aeca6393923c9fa4af049502574c683cc Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Mon, 29 Apr 2024 09:40:30 +0200 Subject: [PATCH] MS VS 2.4.7 ActionType bei CustomButton MsgBox, einzelinstanzanwendung = false, meldung keine WorkflowItems bei Detailprofil --- .../My Project/Application.Designer.vb | 8 +- app/TaskFlow/My Project/Application.myapp | 4 +- app/TaskFlow/frmKonfig.Designer.vb | 1 + app/TaskFlow/frmKonfig.resx | 3 + app/TaskFlow/frmMain.vb | 68 +++-- app/TaskFlow/frmValidator.vb | 255 +++++++++--------- 6 files changed, 178 insertions(+), 161 deletions(-) diff --git a/app/TaskFlow/My Project/Application.Designer.vb b/app/TaskFlow/My Project/Application.Designer.vb index 6c827c2..8d31ac0 100644 --- a/app/TaskFlow/My Project/Application.Designer.vb +++ b/app/TaskFlow/My Project/Application.Designer.vb @@ -24,7 +24,7 @@ Namespace My _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = true + Me.IsSingleInstance = false Me.EnableVisualStyles = true Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses @@ -34,5 +34,11 @@ Namespace My Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.DD_ProcessManager.frmMain End Sub + + _ + Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean + Me.MinimumSplashScreenDisplayTime = 0 + Return MyBase.OnInitialize(commandLineArgs) + End Function End Class End Namespace diff --git a/app/TaskFlow/My Project/Application.myapp b/app/TaskFlow/My Project/Application.myapp index 168477f..1eb0a95 100644 --- a/app/TaskFlow/My Project/Application.myapp +++ b/app/TaskFlow/My Project/Application.myapp @@ -2,9 +2,11 @@ true frmMain - true + false 0 true 0 + 0 true + false \ No newline at end of file diff --git a/app/TaskFlow/frmKonfig.Designer.vb b/app/TaskFlow/frmKonfig.Designer.vb index ab28018..5608646 100644 --- a/app/TaskFlow/frmKonfig.Designer.vb +++ b/app/TaskFlow/frmKonfig.Designer.vb @@ -346,6 +346,7 @@ Partial Class frmKonfig Me.Controls.Add(Me.TabControl1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.Name = "frmKonfig" + Me.TopMost = True Me.TabControl1.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() diff --git a/app/TaskFlow/frmKonfig.resx b/app/TaskFlow/frmKonfig.resx index e09513f..53b1eb8 100644 --- a/app/TaskFlow/frmKonfig.resx +++ b/app/TaskFlow/frmKonfig.resx @@ -933,6 +933,9 @@ 3, 4, 3, 4 + + CenterScreen + Konfiguration diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index 3b3a558..683e3ba 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -25,7 +25,7 @@ Public Class frmMain Private UserLoggedin As Integer = 0 Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable Private CURR_DT_VWPM_PROFILE_AH_WORKFLOW As DataTable - Private CURR_DT_OVERVIEW As DataTable + Private DT_CURR_WF_ITEMS As DataTable Private OVERVIEW_ADDED_WHEN As String Private OVERVIEW_CHANGED_WHEN As String Private OVERVIEW_COUNT As Integer = 0 @@ -947,14 +947,14 @@ Public Class frmMain oSQL = oSQL.Replace("@DATE", Now.ToShortDateString) oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) - CURR_DT_OVERVIEW = Await DatabaseFallback.GetDatatableECMAsync(oSQL) + DT_CURR_WF_ITEMS = Await DatabaseFallback.GetDatatableECMAsync(oSQL) If ForceReload = True Then LOGGER.Info("ForceReload is true!") End If - If Not IsNothing(CURR_DT_OVERVIEW) Then - Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW) - Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW) - Dim oCOUNT = CURR_DT_OVERVIEW.Rows.Count + If Not IsNothing(DT_CURR_WF_ITEMS) Then + Dim oADDED = GET_LAST_ADDED(DT_CURR_WF_ITEMS) + Dim oChanged = GET_LAST_CHANGED(DT_CURR_WF_ITEMS) + Dim oCOUNT = DT_CURR_WF_ITEMS.Rows.Count If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And OVERVIEW_COUNT = oCOUNT Then If ForceReload = False Then LOGGER.Info("No changes on OverviewHash - so exit Refresh") @@ -967,17 +967,18 @@ Public Class frmMain OVERVIEW_COUNT = oCOUNT End If - If CURR_DT_OVERVIEW.Rows.Count = 0 Then + If DT_CURR_WF_ITEMS.Rows.Count = 0 Then NO_WORKFLOWITEMS = True + lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE) Else NO_WORKFLOWITEMS = False + lblCaptionMainGrid.Text = CURRENT_CLICKED_PROFILE_TITLE End If Create_Basic_View() RestoreLayout() - 'GridViewWorkflows.ViewCaption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")} {CURRENT_CLICKED_PROFILE_TITLE}" - lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE) + End If @@ -1005,7 +1006,7 @@ Public Class frmMain columnStateIcon.DataType = GetType(Image) columnStateIcon.ColumnName = "ICON" columnStateIcon.Caption = "" - CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) + DT_CURR_WF_ITEMS.Columns.Add(columnStateIcon) End If @@ -1013,7 +1014,7 @@ Public Class frmMain YellowDocuments = 0 GreenDocuments = 0 If TL_ICON = True Then - For Each row As DataRow In CURR_DT_OVERVIEW.Rows + For Each row As DataRow In DT_CURR_WF_ITEMS.Rows Dim State As Integer = row.Item("TL_STATE") Select Case State Case 1 @@ -1035,9 +1036,9 @@ Public Class frmMain columnConvIcon.DataType = GetType(Image) columnConvIcon.ColumnName = "CONVERSATION" columnConvIcon.Caption = "" - CURR_DT_OVERVIEW.Columns.Add(columnConvIcon) + DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon) End If - For Each oRow As DataRow In CURR_DT_OVERVIEW.Rows + For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows Try Dim oCONVYN As Boolean Try @@ -1056,7 +1057,7 @@ Public Class frmMain End Try Next - bindsourcegrid.DataSource = CURR_DT_OVERVIEW + bindsourcegrid.DataSource = DT_CURR_WF_ITEMS GridControlWorkflows.DataSource = bindsourcegrid Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString @@ -1149,7 +1150,7 @@ Public Class frmMain End Sub Private Function GridLayoutChanged() As Boolean Try - For Each oViewColumn As DataColumn In CURR_DT_OVERVIEW.Columns + For Each oViewColumn As DataColumn In DT_CURR_WF_ITEMS.Columns If oViewColumn.Caption = "" Then Continue For End If @@ -1184,7 +1185,7 @@ Public Class frmMain End If Dim oGridColumn_exists As Boolean = False Dim oGridDXFieldName = oActGridColumn.FieldName - For Each oViewColumn As DataColumn In CURR_DT_OVERVIEW.Columns + For Each oViewColumn As DataColumn In DT_CURR_WF_ITEMS.Columns If oViewColumn.Caption = oGridDXFieldName Then oGridColumn_exists = True End If @@ -1395,7 +1396,7 @@ Public Class frmMain Exit Sub End If - If CURR_DT_OVERVIEW.Rows.Count > 0 And POPUP_REMINDER_ACTIVE = True Then + If DT_CURR_WF_ITEMS.Rows.Count > 0 And POPUP_REMINDER_ACTIVE = True Then Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline") NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) End If @@ -1472,10 +1473,10 @@ Public Class frmMain Try Dim iterateIndex As Integer = 0 - Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy + Dim oNewDataTable As DataTable = DT_CURR_WF_ITEMS.Copy For Each row As DataRow In oNewDataTable.Rows If row("GUID") = CURRENT_DOC_GUID Then - CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex) + DT_CURR_WF_ITEMS.Rows.RemoveAt(iterateIndex) Exit For Else iterateIndex += 1 @@ -1925,18 +1926,18 @@ Public Class frmMain oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString) oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) - CURR_DT_OVERVIEW = Await DatabaseFallback.GetDatatableECMAsync(oSQLOverview) + DT_CURR_WF_ITEMS = Await DatabaseFallback.GetDatatableECMAsync(oSQLOverview) oStopWatch2.Done() - If Not IsNothing(CURR_DT_OVERVIEW) Then - LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows") + If Not IsNothing(DT_CURR_WF_ITEMS) Then + LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {DT_CURR_WF_ITEMS.Rows.Count} rows") If GridControlWorkflows.Visible = False Then GridControlWorkflows.Visible = True End If - Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW) - Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW) - Dim oCOUNT = CURR_DT_OVERVIEW.Rows.Count + Dim oADDED = GET_LAST_ADDED(DT_CURR_WF_ITEMS) + Dim oChanged = GET_LAST_CHANGED(DT_CURR_WF_ITEMS) + Dim oCOUNT = DT_CURR_WF_ITEMS.Rows.Count If pForceReload = False Then If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then If pForceReload = False Then @@ -1953,13 +1954,10 @@ Public Class frmMain End If NO_WORKFLOWITEMS = False - If CURR_DT_OVERVIEW.Rows.Count = 0 Then - - - ' lblCaptionMainGrid.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData") + If DT_CURR_WF_ITEMS.Rows.Count = 0 Then + NO_WORKFLOWITEMS = True lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "") - NO_WORKFLOWITEMS = True GridControlWorkflows.Visible = False bindsourcegrid.DataSource = Nothing GridControlWorkflows.DataSource = Nothing @@ -1979,13 +1977,13 @@ Public Class frmMain columnStateIcon.DataType = GetType(Image) columnStateIcon.ColumnName = "ICON" columnStateIcon.Caption = "" - CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) + DT_CURR_WF_ITEMS.Columns.Add(columnStateIcon) End If RedDocuments = 0 YellowDocuments = 0 GreenDocuments = 0 If TL_ICON = True Then - For Each row As DataRow In CURR_DT_OVERVIEW.Rows + For Each row As DataRow In DT_CURR_WF_ITEMS.Rows Dim State As Integer = row.Item("TL_STATE") Select Case State Case 1 @@ -2007,8 +2005,8 @@ Public Class frmMain columnConvIcon.DataType = GetType(Image) columnConvIcon.ColumnName = "CONVERSATION" columnConvIcon.Caption = "" - CURR_DT_OVERVIEW.Columns.Add(columnConvIcon) - For Each oRow As DataRow In CURR_DT_OVERVIEW.Rows + DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon) + For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows Try Dim oCONVYN As Boolean Try @@ -2030,7 +2028,7 @@ Public Class frmMain End If - bindsourcegrid.DataSource = CURR_DT_OVERVIEW + bindsourcegrid.DataSource = DT_CURR_WF_ITEMS GridControlWorkflows.DataSource = bindsourcegrid GridControlWorkflows.ForceInitialize() diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index 6d9f585..5a3083d 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/app/TaskFlow/frmValidator.vb @@ -1146,147 +1146,154 @@ Public Class frmValidator End Sub Private Sub onCustomButtonClick(sender As System.Object, e As System.EventArgs) - Dim oButton As Button = sender - Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid - Dim oSQL = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL_UEBERPRUEFUNG") - If IsNothing(oSQL) Then - Logger.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING") - Exit Sub - End If - - If Check_UpdateIndexe() = False Then - Logger.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click") - Exit Sub - End If - Override_SQLCommand = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL2") - If IsNothing(Override_SQLCommand) Then - Override_SQLCommand = "" - End If - oSQL = clsPatterns.ReplaceAllValues(oSQL, PanelValidatorControl, True) - Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, PanelValidatorControl, True) - Dim oDT_ACTIONS As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "onCustomButtonClick") - If IsNothing(oDT_ACTIONS) Then - MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) - Exit Sub - ElseIf oDT_ACTIONS.Rows.Count = 0 Then - MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) - Exit Sub - End If - Dim oAction - Dim oControlName - Dim oQuestion - Dim oTitle - Dim oCaption - Dim oColor - Try - oAction = oDT_ACTIONS?.Rows(0).Item("ActionType") - Catch ex As Exception - oAction = "" - End Try - Try - oControlName = oDT_ACTIONS?.Rows(0).Item("Controlname") - Catch ex As Exception - oControlName = "" - End Try - Try - oQuestion = oDT_ACTIONS?.Rows(0).Item("Question") - Catch ex As Exception - oQuestion = "" - End Try - Try - oTitle = oDT_ACTIONS?.Rows(0).Item("Title") - Catch ex As Exception - oTitle = "" - End Try - Try - oCaption = oDT_ACTIONS?.Rows(0).Item("CaptionButton").ToString - Catch ex As Exception - oCaption = "" - End Try - Try - oColor = System.Drawing.Color.FromName(oDT_ACTIONS?.Rows(0).Item("Color")) - Catch ex As Exception - oColor = "" - End Try Try - OverrideAll = oDT_ACTIONS?.Rows(0).Item("OverrideAll") - Catch ex As Exception - Logger.Warn($"Could not set OverrideAll {ex.Message}") - OverrideAll = False - End Try - If OverrideAll = True Then - Logger.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!") - End If + Cursor = Cursors.WaitCursor + Dim oButton As Button = sender + Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid + Dim oSQL = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL_UEBERPRUEFUNG") + If IsNothing(oSQL) Then + Logger.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING") + Exit Sub + End If - Select Case oAction.ToString.ToUpper - Case "SetButton".ToUpper - btnSave.Text = oCaption & " (F2)" - btnSave.Appearance.BackColor = oColor - Case "Override_Question".ToUpper - If oQuestion <> "" Then - Dim result As MsgBoxResult - result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) - If result = MsgBoxResult.Yes Then - Override = True - Finish_WFStep() - End If - End If - Case "Update_Single_Control".ToUpper - Dim oResult1 As Boolean = True - If oQuestion <> "" Then - Dim result As MsgBoxResult - result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) - If result = MsgBoxResult.No Then - oResult1 = False - End If - Else + If Check_UpdateIndexe() = False Then + Logger.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click") + Exit Sub + End If + Override_SQLCommand = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL2") + If IsNothing(Override_SQLCommand) Then + Override_SQLCommand = "" + End If + oSQL = clsPatterns.ReplaceAllValues(oSQL, PanelValidatorControl, True) + Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, PanelValidatorControl, True) + Dim oDT_ACTIONS As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "onCustomButtonClick") + If IsNothing(oDT_ACTIONS) Then + MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + Exit Sub + ElseIf oDT_ACTIONS.Rows.Count = 0 Then + MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + Exit Sub + End If + Dim oAction + Dim oControlName + Dim oQuestion + Dim oTitle + Dim oCaption + Dim oColor + Try + oAction = oDT_ACTIONS?.Rows(0).Item("ActionType") + Catch ex As Exception + oAction = "" + End Try + Try + oControlName = oDT_ACTIONS?.Rows(0).Item("Controlname") + Catch ex As Exception + oControlName = "" + End Try + Try + oQuestion = oDT_ACTIONS?.Rows(0).Item("Question") + Catch ex As Exception + oQuestion = "" + End Try + Try + oTitle = oDT_ACTIONS?.Rows(0).Item("Title") + Catch ex As Exception + oTitle = "" + End Try + Try + oCaption = oDT_ACTIONS?.Rows(0).Item("CaptionButton").ToString + Catch ex As Exception + oCaption = "" + End Try + Try + oColor = System.Drawing.Color.FromName(oDT_ACTIONS?.Rows(0).Item("Color")) + Catch ex As Exception + oColor = "" + End Try + Try + OverrideAll = oDT_ACTIONS?.Rows(0).Item("OverrideAll") + Catch ex As Exception + Logger.Warn($"Could not set OverrideAll {ex.Message}") + OverrideAll = False + End Try + If OverrideAll = True Then + Logger.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!") + End If - End If - If oResult1 = True Then - Dim oREsult As Boolean = True - If Override_SQLCommand <> "" Then - oREsult = DatabaseFallback.ExecuteNonQueryECM(Override_SQLCommand) + Select Case oAction.ToString.ToUpper + Case "SetButton".ToUpper + btnSave.Text = oCaption & " (F2)" + btnSave.Appearance.BackColor = oColor + Case "Override_Question".ToUpper + If oQuestion <> "" Then + Dim result As MsgBoxResult + result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + If result = MsgBoxResult.Yes Then + Override = True + Finish_WFStep() + End If End If - If oREsult = True Then - Reload_Controls(oControlName) + Case "Update_Single_Control".ToUpper + Dim oResult1 As Boolean = True + If oQuestion <> "" Then + Dim result As MsgBoxResult + result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + If result = MsgBoxResult.No Then + oResult1 = False + End If Else - MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + End If - End If - Case "Update_Controls".ToUpper - If oQuestion <> "" Then - Dim result As MsgBoxResult - result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) - If result = MsgBoxResult.Yes Then + If oResult1 = True Then Dim oREsult As Boolean = True If Override_SQLCommand <> "" Then oREsult = DatabaseFallback.ExecuteNonQueryECM(Override_SQLCommand) End If If oREsult = True Then - SetStatusLabel("Refreshed single control", "Yellow") - FillIndexValues(False) + Reload_Controls(oControlName) Else MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) End If + End If + Case "Update_Controls".ToUpper + If oQuestion <> "" Then + Dim result As MsgBoxResult + result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + If result = MsgBoxResult.Yes Then + Dim oREsult As Boolean = True + If Override_SQLCommand <> "" Then + oREsult = DatabaseFallback.ExecuteNonQueryECM(Override_SQLCommand) + End If + If oREsult = True Then + SetStatusLabel("Refreshed single control", "Yellow") + FillIndexValues(False) + Else + MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + End If + End If + End If + Case "Override_Direct".ToUpper + Override = True + If Check_UpdateIndexe() = True Then + Finish_WFStep(False) End If - End If - Case "Override_Direct".ToUpper - Override = True - If Check_UpdateIndexe() = True Then - Finish_WFStep(False) - End If - Case "Override incFinal".ToUpper - If Check_UpdateIndexe() = True Then - Finish_WFStep(False) - End If - Case "MsgboxResult".ToUpper - MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Case Else - MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) - Logger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") - End Select + Case "Override incFinal".ToUpper + If Check_UpdateIndexe() = True Then + Finish_WFStep(False) + End If + Case "MsgboxResult".ToUpper + MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Case Else + MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + Logger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") + End Select + Catch ex As Exception + Logger.Error(ex) + + End Try + Cursor = Cursors.Default End Sub