MS SQL Overview Connection enable
This commit is contained in:
@@ -46,6 +46,7 @@ Public Class frmMain
|
||||
|
||||
Private DT_CHECKUSER_MODULE As DataTable
|
||||
Private IsFilterMode As Boolean
|
||||
Private DetailLinkActive As Boolean = False
|
||||
Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
|
||||
Dim oADDED As String
|
||||
Try
|
||||
@@ -634,9 +635,11 @@ Public Class frmMain
|
||||
GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString
|
||||
TimerRefresh.Stop()
|
||||
GridView_Docs.ShowLoadingPanel()
|
||||
DetailLinkActive = True
|
||||
Await Load_single_Profile(True)
|
||||
GridView_Docs.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -685,7 +688,7 @@ Public Class frmMain
|
||||
Next
|
||||
|
||||
If result = 1 Then
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
|
||||
|
||||
Dim oSQL = foundRows(0)("SQL_VIEW")
|
||||
|
||||
@@ -699,12 +702,14 @@ Public Class frmMain
|
||||
oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
|
||||
|
||||
CURR_DT_OVERVIEW = Await ClassDatabase.Return_DatatableAsync(oSQL, "Load_single_Profile")
|
||||
|
||||
If ForceReload = True Then
|
||||
LOGGER.Info("ForceReload is true!")
|
||||
End If
|
||||
Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW)
|
||||
Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW)
|
||||
If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN Then
|
||||
LOGGER.Info("No changes on OverviewHash - so exit Refresh")
|
||||
If ForceReload = False Then
|
||||
LOGGER.Info("No changes on OverviewHash - so exit Refresh")
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
@@ -712,7 +717,7 @@ Public Class frmMain
|
||||
OVERVIEW_ADDED_WHEN = oADDED
|
||||
OVERVIEW_CHANGED_WHEN = oChanged
|
||||
End If
|
||||
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
|
||||
NO_WORKFLOWITEMS = True
|
||||
Else
|
||||
@@ -741,30 +746,30 @@ Public Class frmMain
|
||||
End Try
|
||||
|
||||
' Spalte für Status Icon erstellen
|
||||
Dim columnStateIcon As New DataColumn()
|
||||
columnStateIcon.DataType = GetType(Image)
|
||||
columnStateIcon.ColumnName = "ICON"
|
||||
columnStateIcon.Caption = ""
|
||||
CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
|
||||
'Dim columnStateIcon As New DataColumn()
|
||||
'columnStateIcon.DataType = GetType(Image)
|
||||
'columnStateIcon.ColumnName = "ICON"
|
||||
'columnStateIcon.Caption = ""
|
||||
'CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
|
||||
|
||||
RedDocuments = 0
|
||||
YellowDocuments = 0
|
||||
GreenDocuments = 0
|
||||
|
||||
For Each row As DataRow In CURR_DT_OVERVIEW.Rows
|
||||
Dim State As Integer = row.Item("TL_STATE")
|
||||
Select Case State
|
||||
Case 1
|
||||
RedDocuments += 1
|
||||
row.Item("ICON") = My.Resources.ampel_rot
|
||||
Case 2
|
||||
YellowDocuments += 1
|
||||
row.Item("ICON") = My.Resources.ampel_gelb
|
||||
Case 3
|
||||
GreenDocuments += 1
|
||||
row.Item("ICON") = My.Resources.ampel_gruen
|
||||
End Select
|
||||
Next
|
||||
'For Each row As DataRow In CURR_DT_OVERVIEW.Rows
|
||||
' Dim State As Integer = row.Item("TL_STATE")
|
||||
' Select Case State
|
||||
' Case 1
|
||||
' RedDocuments += 1
|
||||
' row.Item("ICON") = My.Resources.ampel_rot
|
||||
' Case 2
|
||||
' YellowDocuments += 1
|
||||
' row.Item("ICON") = My.Resources.ampel_gelb
|
||||
' Case 3
|
||||
' GreenDocuments += 1
|
||||
' row.Item("ICON") = My.Resources.ampel_gruen
|
||||
' End Select
|
||||
'Next
|
||||
If IDB_ACTIVE = True Then
|
||||
' Spalte für Conversation erstellen
|
||||
Dim columnConvIcon As New DataColumn()
|
||||
@@ -1169,17 +1174,22 @@ Public Class frmMain
|
||||
|
||||
|
||||
'Decide_Load()
|
||||
|
||||
Try
|
||||
Dim iterateIndex As Integer = 0
|
||||
Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy
|
||||
For Each row As DataRow In oNewDataTable.Rows
|
||||
If row("GUID") = CURRENT_DOC_GUID Then
|
||||
CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex)
|
||||
Exit For
|
||||
Else
|
||||
iterateIndex += 1
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Unexpected Error in Removing Row after Loading Record from Grid: " & ex.Message)
|
||||
End Try
|
||||
TimerRefresh.Enabled = True
|
||||
Dim iterateIndex As Integer = 0
|
||||
Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy
|
||||
For Each row As DataRow In oNewDataTable.Rows
|
||||
If row("GUID") = CURRENT_DOC_GUID Then
|
||||
CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex)
|
||||
Exit For
|
||||
Else
|
||||
iterateIndex += 1
|
||||
End If
|
||||
Next
|
||||
' th = New Threading.Thread(AddressOf Task_A)
|
||||
' th.SetApartmentState(ApartmentState.STA)
|
||||
' th.Start()
|
||||
@@ -1517,7 +1527,13 @@ Public Class frmMain
|
||||
|
||||
GridView_Docs.ShowLoadingPanel()
|
||||
TimerRefresh.Stop()
|
||||
Await Load_Grid_Overview(False)
|
||||
Dim oForce As Boolean = False
|
||||
If DetailLinkActive = True Then
|
||||
oForce = True
|
||||
DetailLinkActive = False
|
||||
OVERVIEW_ADDED_WHEN = ""
|
||||
End If
|
||||
Await Load_Grid_Overview(oForce)
|
||||
GridView_Docs.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
RefreshHelper.LoadViewInfo()
|
||||
@@ -1527,11 +1543,7 @@ Public Class frmMain
|
||||
Layout_Single_Profile()
|
||||
GRID_LOAD_TYPE = "OVERVIEW"
|
||||
CURRENT_CLICKED_PROFILE_ID = 0
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
ToolStripLabelViewTape.Text = "Gesamtübersicht"
|
||||
Else
|
||||
ToolStripLabelViewTape.Text = "Overview"
|
||||
End If
|
||||
|
||||
Try
|
||||
bsiMessage.Caption = ""
|
||||
|
||||
@@ -1572,8 +1584,8 @@ Public Class frmMain
|
||||
Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW)
|
||||
Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW)
|
||||
If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN Then
|
||||
LOGGER.Info("No changes on OverviewHash - so exit Load_Grid_overview")
|
||||
If ForceReload = False Then
|
||||
LOGGER.Info("No changes on OverviewHash - so exit Load_Grid_overview")
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
@@ -1583,6 +1595,11 @@ Public Class frmMain
|
||||
OVERVIEW_ADDED_WHEN = oADDED
|
||||
OVERVIEW_CHANGED_WHEN = oChanged
|
||||
End If
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
ToolStripLabelViewTape.Text = "Gesamtübersicht"
|
||||
Else
|
||||
ToolStripLabelViewTape.Text = "Overview"
|
||||
End If
|
||||
NO_WORKFLOWITEMS = False
|
||||
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
@@ -1614,30 +1631,30 @@ Public Class frmMain
|
||||
GridControl_Docs.Visible = True
|
||||
|
||||
' Spalte für Status Icon erstellen
|
||||
Dim columnStateIcon As New DataColumn()
|
||||
columnStateIcon.DataType = GetType(Image)
|
||||
columnStateIcon.ColumnName = "ICON"
|
||||
columnStateIcon.Caption = ""
|
||||
CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
|
||||
'Dim columnStateIcon As New DataColumn()
|
||||
'columnStateIcon.DataType = GetType(Image)
|
||||
'columnStateIcon.ColumnName = "ICON"
|
||||
'columnStateIcon.Caption = ""
|
||||
'CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
|
||||
|
||||
|
||||
RedDocuments = 0
|
||||
YellowDocuments = 0
|
||||
GreenDocuments = 0
|
||||
For Each row As DataRow In CURR_DT_OVERVIEW.Rows
|
||||
Dim State As Integer = row.Item("TL_STATE")
|
||||
Select Case State
|
||||
Case 1
|
||||
RedDocuments += 1
|
||||
row.Item("ICON") = My.Resources.ampel_rot
|
||||
Case 2
|
||||
YellowDocuments += 1
|
||||
row.Item("ICON") = My.Resources.ampel_gelb
|
||||
Case 3
|
||||
GreenDocuments += 1
|
||||
row.Item("ICON") = My.Resources.ampel_gruen
|
||||
End Select
|
||||
Next
|
||||
'For Each row As DataRow In CURR_DT_OVERVIEW.Rows
|
||||
' Dim State As Integer = row.Item("TL_STATE")
|
||||
' Select Case State
|
||||
' Case 1
|
||||
' RedDocuments += 1
|
||||
' row.Item("ICON") = My.Resources.ampel_rot
|
||||
' Case 2
|
||||
' YellowDocuments += 1
|
||||
' row.Item("ICON") = My.Resources.ampel_gelb
|
||||
' Case 3
|
||||
' GreenDocuments += 1
|
||||
' row.Item("ICON") = My.Resources.ampel_gruen
|
||||
' End Select
|
||||
'Next
|
||||
If IDB_ACTIVE = True Then
|
||||
' Spalte für Conversation erstellen
|
||||
Dim columnConvIcon As New DataColumn()
|
||||
@@ -2357,7 +2374,18 @@ Public Class frmMain
|
||||
Check_Timer_Inactivity()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Application.OpenForms().OfType(Of frmAdmin2).Any Then
|
||||
Check_Timer_Inactivity()
|
||||
Exit Sub
|
||||
End If
|
||||
If Application.OpenForms().OfType(Of frmMonitor).Any Then
|
||||
Check_Timer_Inactivity()
|
||||
Exit Sub
|
||||
End If
|
||||
If GHOSTMODE_ACTIVE = True Then
|
||||
Check_Timer_Inactivity()
|
||||
Exit Sub
|
||||
End If
|
||||
INACTIVITYRecognized = True
|
||||
Dim omsg As String = "Sie wurden aufgrund von Inaktivität automatisch abgemeldet!"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user