AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS VS 2.4.7 ActionType bei CustomButton MsgBox, einzelinstanzanwendung = false, meldung keine WorkflowItems bei Detailprofil

Browse Source
This commit is contained in:
SchreiberM 2024-04-29 09:40:30 +02:00
parent 23ea8ef686
commit 63ece35aec
6 changed files with 180 additions and 163 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/TaskFlow/My Project/Application.Designer.vb generated
View File

@ -24,7 +24,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New() Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = true Me.IsSingleInstance = false
Me.EnableVisualStyles = true Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
@ -34,5 +34,11 @@ Namespace My
Protected Overrides Sub OnCreateMainForm() Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DD_ProcessManager.frmMain Me.MainForm = Global.DD_ProcessManager.frmMain
End Sub End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
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 Class
End Namespace End Namespace

4
app/TaskFlow/My Project/Application.myapp
View File

@ -2,9 +2,11 @@
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<MySubMain>true</MySubMain> <MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm> <MainForm>frmMain</MainForm>
<SingleInstance>true</SingleInstance> <SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode> <ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles> <EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode> <AuthenticationMode>0</AuthenticationMode>
<MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit> <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
<HighDpiMpde>false</HighDpiMpde>
</MyApplicationData> </MyApplicationData>

1
app/TaskFlow/frmKonfig.Designer.vb generated
View File

@ -346,6 +346,7 @@ Partial Class frmKonfig
Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.TabControl1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frmKonfig" Me.Name = "frmKonfig"
Me.TopMost = True
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout() Me.TabPage2.PerformLayout()

3
app/TaskFlow/frmKonfig.resx
View File

@ -933,6 +933,9 @@
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Konfiguration</value> <value>Konfiguration</value>
</data> </data>

68
app/TaskFlow/frmMain.vb
View File

@ -25,7 +25,7 @@ Public Class frmMain
Private UserLoggedin As Integer = 0 Private UserLoggedin As Integer = 0
Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
Private CURR_DT_VWPM_PROFILE_AH_WORKFLOW 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_ADDED_WHEN As String
Private OVERVIEW_CHANGED_WHEN As String Private OVERVIEW_CHANGED_WHEN As String
Private OVERVIEW_COUNT As Integer = 0 Private OVERVIEW_COUNT As Integer = 0
@ -947,14 +947,14 @@ Public Class frmMain
oSQL = oSQL.Replace("@DATE", Now.ToShortDateString) oSQL = oSQL.Replace("@DATE", Now.ToShortDateString)
oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) 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 If ForceReload = True Then
LOGGER.Info("ForceReload is true!") LOGGER.Info("ForceReload is true!")
End If End If
If Not IsNothing(CURR_DT_OVERVIEW) Then If Not IsNothing(DT_CURR_WF_ITEMS) Then
Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW) Dim oADDED = GET_LAST_ADDED(DT_CURR_WF_ITEMS)
Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW) Dim oChanged = GET_LAST_CHANGED(DT_CURR_WF_ITEMS)
Dim oCOUNT = CURR_DT_OVERVIEW.Rows.Count Dim oCOUNT = DT_CURR_WF_ITEMS.Rows.Count
If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And OVERVIEW_COUNT = oCOUNT Then If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And OVERVIEW_COUNT = oCOUNT Then
If ForceReload = False Then If ForceReload = False Then
LOGGER.Info("No changes on OverviewHash - so exit Refresh") LOGGER.Info("No changes on OverviewHash - so exit Refresh")
@ -967,17 +967,18 @@ Public Class frmMain
OVERVIEW_COUNT = oCOUNT OVERVIEW_COUNT = oCOUNT
End If End If
If CURR_DT_OVERVIEW.Rows.Count = 0 Then If DT_CURR_WF_ITEMS.Rows.Count = 0 Then
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE)
Else Else
NO_WORKFLOWITEMS = False NO_WORKFLOWITEMS = False
lblCaptionMainGrid.Text = CURRENT_CLICKED_PROFILE_TITLE
End If End If
Create_Basic_View() Create_Basic_View()
RestoreLayout() 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 End If
@ -1005,7 +1006,7 @@ Public Class frmMain
columnStateIcon.DataType = GetType(Image) columnStateIcon.DataType = GetType(Image)
columnStateIcon.ColumnName = "ICON" columnStateIcon.ColumnName = "ICON"
columnStateIcon.Caption = "" columnStateIcon.Caption = ""
CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) DT_CURR_WF_ITEMS.Columns.Add(columnStateIcon)
End If End If
@ -1013,7 +1014,7 @@ Public Class frmMain
YellowDocuments = 0 YellowDocuments = 0
GreenDocuments = 0 GreenDocuments = 0
If TL_ICON = True Then 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") Dim State As Integer = row.Item("TL_STATE")
Select Case State Select Case State
Case 1 Case 1
@ -1035,9 +1036,9 @@ Public Class frmMain
columnConvIcon.DataType = GetType(Image) columnConvIcon.DataType = GetType(Image)
columnConvIcon.ColumnName = "CONVERSATION" columnConvIcon.ColumnName = "CONVERSATION"
columnConvIcon.Caption = "" columnConvIcon.Caption = ""
CURR_DT_OVERVIEW.Columns.Add(columnConvIcon) DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon)
End If End If
For Each oRow As DataRow In CURR_DT_OVERVIEW.Rows For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows
Try Try
Dim oCONVYN As Boolean Dim oCONVYN As Boolean
Try Try
@ -1056,7 +1057,7 @@ Public Class frmMain
End Try End Try
Next Next
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = DT_CURR_WF_ITEMS
GridControlWorkflows.DataSource = bindsourcegrid GridControlWorkflows.DataSource = bindsourcegrid
Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString
@ -1149,7 +1150,7 @@ Public Class frmMain
End Sub End Sub
Private Function GridLayoutChanged() As Boolean Private Function GridLayoutChanged() As Boolean
Try 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 If oViewColumn.Caption = "" Then
Continue For Continue For
End If End If
@ -1184,7 +1185,7 @@ Public Class frmMain
End If End If
Dim oGridColumn_exists As Boolean = False Dim oGridColumn_exists As Boolean = False
Dim oGridDXFieldName = oActGridColumn.FieldName 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 If oViewColumn.Caption = oGridDXFieldName Then
oGridColumn_exists = True oGridColumn_exists = True
End If End If
@ -1395,7 +1396,7 @@ Public Class frmMain
Exit Sub Exit Sub
End If 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") Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
End If End If
@ -1472,10 +1473,10 @@ Public Class frmMain
Try Try
Dim iterateIndex As Integer = 0 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 For Each row As DataRow In oNewDataTable.Rows
If row("GUID") = CURRENT_DOC_GUID Then If row("GUID") = CURRENT_DOC_GUID Then
CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex) DT_CURR_WF_ITEMS.Rows.RemoveAt(iterateIndex)
Exit For Exit For
Else Else
iterateIndex += 1 iterateIndex += 1
@ -1925,18 +1926,18 @@ Public Class frmMain
oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString) oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString)
oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) 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() oStopWatch2.Done()
If Not IsNothing(CURR_DT_OVERVIEW) Then If Not IsNothing(DT_CURR_WF_ITEMS) Then
LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows") LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {DT_CURR_WF_ITEMS.Rows.Count} rows")
If GridControlWorkflows.Visible = False Then If GridControlWorkflows.Visible = False Then
GridControlWorkflows.Visible = True GridControlWorkflows.Visible = True
End If End If
Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW) Dim oADDED = GET_LAST_ADDED(DT_CURR_WF_ITEMS)
Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW) Dim oChanged = GET_LAST_CHANGED(DT_CURR_WF_ITEMS)
Dim oCOUNT = CURR_DT_OVERVIEW.Rows.Count Dim oCOUNT = DT_CURR_WF_ITEMS.Rows.Count
If pForceReload = False Then If pForceReload = False Then
If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then
If pForceReload = False Then If pForceReload = False Then
@ -1953,13 +1954,10 @@ Public Class frmMain
End If End If
NO_WORKFLOWITEMS = False NO_WORKFLOWITEMS = False
If CURR_DT_OVERVIEW.Rows.Count = 0 Then If DT_CURR_WF_ITEMS.Rows.Count = 0 Then
NO_WORKFLOWITEMS = True
' lblCaptionMainGrid.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "") lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "")
NO_WORKFLOWITEMS = True
GridControlWorkflows.Visible = False GridControlWorkflows.Visible = False
bindsourcegrid.DataSource = Nothing bindsourcegrid.DataSource = Nothing
GridControlWorkflows.DataSource = Nothing GridControlWorkflows.DataSource = Nothing
@ -1979,13 +1977,13 @@ Public Class frmMain
columnStateIcon.DataType = GetType(Image) columnStateIcon.DataType = GetType(Image)
columnStateIcon.ColumnName = "ICON" columnStateIcon.ColumnName = "ICON"
columnStateIcon.Caption = "" columnStateIcon.Caption = ""
CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) DT_CURR_WF_ITEMS.Columns.Add(columnStateIcon)
End If End If
RedDocuments = 0 RedDocuments = 0
YellowDocuments = 0 YellowDocuments = 0
GreenDocuments = 0 GreenDocuments = 0
If TL_ICON = True Then 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") Dim State As Integer = row.Item("TL_STATE")
Select Case State Select Case State
Case 1 Case 1
@ -2007,8 +2005,8 @@ Public Class frmMain
columnConvIcon.DataType = GetType(Image) columnConvIcon.DataType = GetType(Image)
columnConvIcon.ColumnName = "CONVERSATION" columnConvIcon.ColumnName = "CONVERSATION"
columnConvIcon.Caption = "" columnConvIcon.Caption = ""
CURR_DT_OVERVIEW.Columns.Add(columnConvIcon) DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon)
For Each oRow As DataRow In CURR_DT_OVERVIEW.Rows For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows
Try Try
Dim oCONVYN As Boolean Dim oCONVYN As Boolean
Try Try
@ -2030,7 +2028,7 @@ Public Class frmMain
End If End If
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = DT_CURR_WF_ITEMS
GridControlWorkflows.DataSource = bindsourcegrid GridControlWorkflows.DataSource = bindsourcegrid
GridControlWorkflows.ForceInitialize() GridControlWorkflows.ForceInitialize()

7
app/TaskFlow/frmValidator.vb
View File

@ -1146,6 +1146,8 @@ Public Class frmValidator
End Sub End Sub
Private Sub onCustomButtonClick(sender As System.Object, e As System.EventArgs) Private Sub onCustomButtonClick(sender As System.Object, e As System.EventArgs)
Try
Cursor = Cursors.WaitCursor
Dim oButton As Button = sender Dim oButton As Button = sender
Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid
Dim oSQL = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL_UEBERPRUEFUNG") Dim oSQL = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL_UEBERPRUEFUNG")
@ -1287,6 +1289,11 @@ Public Class frmValidator
MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Logger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") Logger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]")
End Select End Select
Catch ex As Exception
Logger.Error(ex)
End Try
Cursor = Cursors.Default
End Sub End Sub