Version, 8 Spalten, Icon variabel
This commit is contained in:
@@ -23,7 +23,7 @@ Public Class frmMain
|
||||
Private CURR_DT_OVERVIEW As DataTable
|
||||
Private OVERVIEW_ADDED_WHEN As String
|
||||
Private OVERVIEW_CHANGED_WHEN As String
|
||||
|
||||
Private OVERVIEW_COUNT As Integer = 0
|
||||
Private RedDocuments As Integer = 0
|
||||
Private YellowDocuments As Integer = 0
|
||||
Private GreenDocuments As Integer = 0
|
||||
@@ -313,7 +313,12 @@ Public Class frmMain
|
||||
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
|
||||
End If
|
||||
bsiGeneralInfo.Caption = "IDB active"
|
||||
If APPSERVER_ACTIVE = True Then
|
||||
BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
Else
|
||||
BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
End If
|
||||
End If
|
||||
|
||||
If BASIC_CONF_VISIBLE = False Then
|
||||
RibbonPageGroupBasicConf.Visible = False
|
||||
@@ -488,13 +493,25 @@ Public Class frmMain
|
||||
If GridView_Docs.Columns.Count > 0 Then
|
||||
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridView_Docs.Columns.Item("GUID").Visible = False
|
||||
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
|
||||
Try
|
||||
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Try
|
||||
If TL_ICON = True Then
|
||||
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
@@ -705,28 +722,33 @@ Public Class frmMain
|
||||
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
|
||||
If ForceReload = False Then
|
||||
LOGGER.Info("No changes on OverviewHash - so exit Refresh")
|
||||
Exit Function
|
||||
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 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")
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Else
|
||||
OVERVIEW_ADDED_WHEN = oADDED
|
||||
OVERVIEW_CHANGED_WHEN = oChanged
|
||||
OVERVIEW_COUNT = oCOUNT
|
||||
End If
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
|
||||
NO_WORKFLOWITEMS = True
|
||||
Else
|
||||
NO_WORKFLOWITEMS = False
|
||||
End If
|
||||
Create_Basic_View()
|
||||
|
||||
Else
|
||||
OVERVIEW_ADDED_WHEN = oADDED
|
||||
OVERVIEW_CHANGED_WHEN = oChanged
|
||||
RestoreLayout()
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
End If
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
|
||||
NO_WORKFLOWITEMS = True
|
||||
Else
|
||||
NO_WORKFLOWITEMS = False
|
||||
End If
|
||||
Create_Basic_View()
|
||||
|
||||
RestoreLayout()
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -744,32 +766,36 @@ Public Class frmMain
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Warn("Could not clear GridView_Docs.Columns")
|
||||
End Try
|
||||
If TL_ICON = True Then
|
||||
' 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)
|
||||
End If
|
||||
|
||||
' 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)
|
||||
|
||||
RedDocuments = 0
|
||||
YellowDocuments = 0
|
||||
GreenDocuments = 0
|
||||
If TL_ICON = True Then
|
||||
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.bullet_red
|
||||
Case 2
|
||||
YellowDocuments += 1
|
||||
row.Item("ICON") = My.Resources.bullet_orange
|
||||
Case 3
|
||||
GreenDocuments += 1
|
||||
row.Item("ICON") = My.Resources.bullet_green
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
'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()
|
||||
@@ -814,13 +840,25 @@ Public Class frmMain
|
||||
|
||||
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridView_Docs.Columns.Item("GUID").Visible = False
|
||||
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
|
||||
Try
|
||||
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Try
|
||||
If TL_ICON = True Then
|
||||
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
Try
|
||||
GridView_Docs.Columns.Item("CONV_YN").Visible = False
|
||||
Catch ex As Exception
|
||||
@@ -1583,7 +1621,9 @@ Public Class frmMain
|
||||
LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows")
|
||||
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
|
||||
Dim oCOUNT = CURR_DT_OVERVIEW.Rows.Count
|
||||
If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then
|
||||
|
||||
If ForceReload = False Then
|
||||
LOGGER.Info("No changes on OverviewHash - so exit Load_Grid_overview")
|
||||
Exit Function
|
||||
@@ -1594,6 +1634,7 @@ Public Class frmMain
|
||||
LOGGER.Debug($"oADDED/OVERVIEW_ADDED_WHEN: {oADDED}/{OVERVIEW_ADDED_WHEN}#oADDED/OVERVIEW_ADDED_WHEN: {oChanged}/{OVERVIEW_CHANGED_WHEN}")
|
||||
OVERVIEW_ADDED_WHEN = oADDED
|
||||
OVERVIEW_CHANGED_WHEN = oChanged
|
||||
OVERVIEW_COUNT = oCOUNT
|
||||
End If
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
ToolStripLabelViewTape.Text = "Gesamtübersicht"
|
||||
@@ -1629,32 +1670,37 @@ Public Class frmMain
|
||||
BindingNavigator1.Dock = DockStyle.Top
|
||||
|
||||
GridControl_Docs.Visible = True
|
||||
If TL_ICON = True Then
|
||||
'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)
|
||||
End If
|
||||
|
||||
' 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)
|
||||
|
||||
|
||||
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
|
||||
If TL_ICON = True Then
|
||||
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.bullet_red
|
||||
Case 2
|
||||
YellowDocuments += 1
|
||||
row.Item("ICON") = My.Resources.bullet_orange
|
||||
Case 3
|
||||
GreenDocuments += 1
|
||||
row.Item("ICON") = My.Resources.bullet_green
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
' Spalte für Conversation erstellen
|
||||
Dim columnConvIcon As New DataColumn()
|
||||
@@ -1743,13 +1789,26 @@ Public Class frmMain
|
||||
LOGGER.Debug("finished Grouping!")
|
||||
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridView_Docs.Columns.Item("GUID").Visible = False
|
||||
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
||||
Try
|
||||
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
If TL_ICON = True Then
|
||||
Try
|
||||
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Try
|
||||
GridView_Docs.Columns.Item("CONV_YN").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user