MS 2.4.9.5 GroupHandling Overview, Conversation.Logik entfernt, Rejected-Button Logik mit windream, Nicht zuständig Nicht mit windream
This commit is contained in:
Developer01
@@ -673,13 +673,15 @@ Public Class frmMain
|
||||
|
||||
End Try
|
||||
Try
|
||||
GridViewWorkflows.Columns.Item("CONV_YN").Visible = False
|
||||
If Not IsNothing(GridViewWorkflows.Columns("CONV_YN")) Then
|
||||
GridViewWorkflows.Columns.Item("CONV_YN").Visible = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub ResetLayout()
|
||||
Try
|
||||
@@ -702,10 +704,6 @@ Public Class frmMain
|
||||
|
||||
GridViewWorkflows.PopulateColumns()
|
||||
If GridViewWorkflows.Columns.Count > 0 Then
|
||||
COLUMNS_INVISIBLE()
|
||||
|
||||
|
||||
|
||||
Try
|
||||
If TL_ICON = True Then
|
||||
GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
|
||||
@@ -718,22 +716,22 @@ Public Class frmMain
|
||||
End Try
|
||||
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
If GridViewWorkflows.Columns.Item("CONV_YN") IsNot Nothing Then
|
||||
GridViewWorkflows.Columns.Item("CONV_YN").Visible = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
|
||||
End Try
|
||||
Try
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridViewWorkflows")
|
||||
End Try
|
||||
End If
|
||||
'If IDB_ACTIVE = True Then
|
||||
' Try
|
||||
' If GridViewWorkflows.Columns.Item("CONV_YN") IsNot Nothing Then
|
||||
' GridViewWorkflows.Columns.Item("CONV_YN").Visible = False
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
|
||||
' End Try
|
||||
' Try
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridViewWorkflows")
|
||||
' End Try
|
||||
'End If
|
||||
|
||||
Dim oReducedColName As String
|
||||
Try
|
||||
@@ -767,6 +765,7 @@ Public Class frmMain
|
||||
|
||||
End Try
|
||||
' GridViewWorkflows.OptionsView.ShowIndicator = False
|
||||
COLUMNS_INVISIBLE()
|
||||
|
||||
End If
|
||||
|
||||
@@ -905,7 +904,7 @@ Public Class frmMain
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
RefreshHelper.LoadViewInfo()
|
||||
If GridViewWorkflows.GroupCount = 0 And IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
|
||||
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
|
||||
LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...")
|
||||
Await Load_Grid_Overview(False, True, True)
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
@@ -1055,33 +1054,33 @@ Public Class frmMain
|
||||
Next
|
||||
End If
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
' Spalte für Conversation erstellen
|
||||
Dim columnConvIcon As New DataColumn()
|
||||
columnConvIcon.DataType = GetType(Image)
|
||||
columnConvIcon.ColumnName = "CONVERSATION"
|
||||
columnConvIcon.Caption = ""
|
||||
DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon)
|
||||
End If
|
||||
For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows
|
||||
Try
|
||||
Dim oCONVYN As Boolean
|
||||
Try
|
||||
oCONVYN = oRow.Item("CONV_YN")
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Please check Your select/view Config - Column CONV_YN is missing [{ex.Message}]")
|
||||
Exit For
|
||||
End Try
|
||||
'If IDB_ACTIVE = True Then
|
||||
' ' Spalte für Conversation erstellen
|
||||
' Dim columnConvIcon As New DataColumn()
|
||||
' columnConvIcon.DataType = GetType(Image)
|
||||
' columnConvIcon.ColumnName = "CONVERSATION"
|
||||
' columnConvIcon.Caption = ""
|
||||
' DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon)
|
||||
'End If
|
||||
'For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows
|
||||
' Try
|
||||
' Dim oCONVYN As Boolean
|
||||
' Try
|
||||
' oCONVYN = oRow.Item("CONV_YN")
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Warn($"Please check Your select/view Config - Column CONV_YN is missing [{ex.Message}]")
|
||||
' Exit For
|
||||
' End Try
|
||||
|
||||
Select Case oCONVYN
|
||||
Case True
|
||||
oRow.Item("CONVERSATION") = My.Resources.conversation
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Create_Basic_View1 - Column CONVERSATION obviously is not part of GridViewWorkflows")
|
||||
End Try
|
||||
' Select Case oCONVYN
|
||||
' Case True
|
||||
' oRow.Item("CONVERSATION") = My.Resources.conversation
|
||||
' End Select
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Warn("Create_Basic_View1 - Column CONVERSATION obviously is not part of GridViewWorkflows")
|
||||
' End Try
|
||||
|
||||
Next
|
||||
'Next
|
||||
bindsourcegrid.DataSource = DT_CURR_WF_ITEMS
|
||||
GridControlWorkflows.DataSource = bindsourcegrid
|
||||
Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString
|
||||
@@ -1112,18 +1111,18 @@ Public Class frmMain
|
||||
|
||||
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridViewWorkflows - Trying to Rest Layout")
|
||||
ResetLayout()
|
||||
FRONTEND_ACTION = FA_NONE
|
||||
Exit Sub
|
||||
End Try
|
||||
End If
|
||||
'If IDB_ACTIVE = True Then
|
||||
' Try
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridViewWorkflows - Trying to Rest Layout")
|
||||
' ResetLayout()
|
||||
' FRONTEND_ACTION = FA_NONE
|
||||
' Exit Sub
|
||||
' End Try
|
||||
'End If
|
||||
|
||||
|
||||
' GridViewWorkflows.OptionsView.ShowIndicator = False
|
||||
@@ -1172,7 +1171,7 @@ Public Class frmMain
|
||||
If oViewColumn.Caption = oGridDXFieldName Then
|
||||
If oActGridColumn.Visible = False Then
|
||||
If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DocID" And
|
||||
oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" And oViewColumn.Caption <> "CONV_YN" Then
|
||||
oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" Then 'And oViewColumn.Caption <> "CONV_YN"
|
||||
Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible")
|
||||
Else
|
||||
oViewColumn_exists = True
|
||||
@@ -1351,6 +1350,7 @@ Public Class frmMain
|
||||
If GridViewWorkflows.OptionsFind.AlwaysVisible Then
|
||||
BarCheckItemShowSearch.Checked = True
|
||||
End If
|
||||
COLUMNS_INVISIBLE()
|
||||
GridIsLoaded = True
|
||||
Catch ex As Exception
|
||||
GridIsLoaded = True
|
||||
@@ -1834,7 +1834,7 @@ Public Class frmMain
|
||||
End Function
|
||||
Private Sub Create_GroupBy_Parts()
|
||||
Try
|
||||
LOGGER.Debug("Now Working on Groups..")
|
||||
LOGGER.Debug("Now Create_GroupBy_Parts ...")
|
||||
GridViewWorkflows.OptionsView.ShowGroupPanel = False
|
||||
Dim oindex As Integer = 0
|
||||
If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then
|
||||
@@ -2012,33 +2012,33 @@ Public Class frmMain
|
||||
Next
|
||||
End If
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
' Spalte für Conversation erstellen
|
||||
Dim columnConvIcon As New DataColumn()
|
||||
columnConvIcon.DataType = GetType(Image)
|
||||
columnConvIcon.ColumnName = "CONVERSATION"
|
||||
columnConvIcon.Caption = ""
|
||||
DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon)
|
||||
For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows
|
||||
Try
|
||||
Dim oCONVYN As Boolean
|
||||
Try
|
||||
oCONVYN = oRow.Item("CONV_YN")
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Load_Grid_Overview - Column CONV_YN obviously is not part of CURR_DT_OVERVIEW")
|
||||
Exit For
|
||||
End Try
|
||||
Select Case oCONVYN
|
||||
Case True
|
||||
oRow.Item("CONVERSATION") = My.Resources.conversation
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Load_Grid_Overview - Column CONVERSATION obviously is not part of GridViewWorkflows")
|
||||
Exit For
|
||||
End Try
|
||||
'If IDB_ACTIVE = True Then
|
||||
' ' Spalte für Conversation erstellen
|
||||
' Dim columnConvIcon As New DataColumn()
|
||||
' columnConvIcon.DataType = GetType(Image)
|
||||
' columnConvIcon.ColumnName = "CONVERSATION"
|
||||
' columnConvIcon.Caption = ""
|
||||
' DT_CURR_WF_ITEMS.Columns.Add(columnConvIcon)
|
||||
' For Each oRow As DataRow In DT_CURR_WF_ITEMS.Rows
|
||||
' Try
|
||||
' Dim oCONVYN As Boolean
|
||||
' Try
|
||||
' oCONVYN = oRow.Item("CONV_YN")
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Warn("Load_Grid_Overview - Column CONV_YN obviously is not part of CURR_DT_OVERVIEW")
|
||||
' Exit For
|
||||
' End Try
|
||||
' Select Case oCONVYN
|
||||
' Case True
|
||||
' oRow.Item("CONVERSATION") = My.Resources.conversation
|
||||
' End Select
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Warn("Load_Grid_Overview - Column CONVERSATION obviously is not part of GridViewWorkflows")
|
||||
' Exit For
|
||||
' End Try
|
||||
|
||||
Next
|
||||
End If
|
||||
' Next
|
||||
'End If
|
||||
|
||||
|
||||
bindsourcegrid.DataSource = DT_CURR_WF_ITEMS
|
||||
@@ -2050,11 +2050,11 @@ Public Class frmMain
|
||||
oColNotPartofLayout = False
|
||||
'GridControlDocRow.ForceInitialize()
|
||||
' GridControl1.DataSource = CURR_DT_PROFILEGRID
|
||||
If pFormLoad = True Then
|
||||
If IDB_ACTIVE = True Then
|
||||
oColNotPartofLayout = Column_inGridViewLayout("CONV_YN")
|
||||
End If
|
||||
End If
|
||||
'If pFormLoad = True Then
|
||||
' If IDB_ACTIVE = True Then
|
||||
' oColNotPartofLayout = Column_inGridViewLayout("CONV_YN")
|
||||
' End If
|
||||
'End If
|
||||
If pNavbarClick = False Then
|
||||
If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
|
||||
ResetLayout()
|
||||
@@ -2087,15 +2087,15 @@ Public Class frmMain
|
||||
|
||||
End If
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridViewWorkflows")
|
||||
End Try
|
||||
End If
|
||||
'If IDB_ACTIVE = True Then
|
||||
' Try
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
' GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridViewWorkflows")
|
||||
' End Try
|
||||
'End If
|
||||
|
||||
|
||||
'GridViewWorkflows.OptionsView.ShowIndicator = False
|
||||
@@ -2162,6 +2162,10 @@ Public Class frmMain
|
||||
Await Decide_Load(False, True)
|
||||
GridViewWorkflows.OptionsView.ShowViewCaption = False
|
||||
SaveGridLayout()
|
||||
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
|
||||
LOGGER.Info("NO GROUPS AFTER GridLayout_Reset Load...")
|
||||
Create_GroupBy_Parts()
|
||||
End If
|
||||
GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
|
||||
If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
|
||||
FRONTEND_ACTION = FA_NONE
|
||||
@@ -2448,6 +2452,11 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
|
||||
FormShown = True
|
||||
Timer_Inactivity_Reset_Disable("Decide_Load")
|
||||
Await Decide_Load(True)
|
||||
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
|
||||
LOGGER.Info("NO GROUPS AFTER SHOWN_Decide Load...")
|
||||
Create_GroupBy_Parts()
|
||||
End If
|
||||
|
||||
Handling_DEBUG_USER()
|
||||
|
||||
Dim oSQL = $"SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM NOTE
|
||||
|
||||
Reference in New Issue
Block a user