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

Changes GroupEbenen

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-04-12 11:22:09 +02:00
parent 7ae7295e6c
commit b541c576eb
3 changed files with 184 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -740,7 +740,7 @@ Public Class frmMain
Load_Profile_items()
Decide_Load()
tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
RestoreLayout()
End Sub
Private Sub NotifyIcon1_Click(sender As System.Object, e As System.EventArgs) Handles NotifyIcon1.Click
@@ -1079,6 +1079,13 @@ Public Class frmMain
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName)
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
Dim DTGRID_GROUPS As DataTable
Try
DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", True)
Catch ex As Exception
ClassLogger.Add(ex.Message)
End Try
If Not IsNothing(CURR_DT_PROFILEGRID) Then
NO_WORKFLOWITEMS = False
@@ -1139,12 +1146,25 @@ Public Class frmMain
Try
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
GridView_Docs.OptionsView.ShowGroupPanel = False
Dim oindex As Integer = 0
If Not IsNothing(DTGRID_GROUPS) Then
For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
If LogErrorsOnly = False Then ClassLogger.Add($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
oindex += 1
Next
Else
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = oindex
End If
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For index = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(index).ToString
If LogErrorsOnly = False Then ClassLogger.Add($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next
@@ -1352,4 +1372,12 @@ Public Class frmMain
GridViewItem_Clicked = Nothing
End If
End Sub
Private Sub GroupToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GroupToolStripMenuItem.Click
If GridView_Docs.OptionsView.ShowGroupedColumns = True Then
GridView_Docs.OptionsView.ShowGroupedColumns = False
Else
GridView_Docs.OptionsView.ShowGroupedColumns = True
End If
End Sub
End Class