MS: Anpassungen massenänderungen

2018-06-06 14:13:08 +02:00
parent 603ff5cd68
commit 4a4ff4e87d
14 changed files with 2025 additions and 1778 deletions
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -26,6 +26,7 @@ Public Class frmMain
    Private GridCursorLocation As Point
    Private GRID_LOAD_TYPE As String = "OVERVIEW"
    Private GRID_INV_COL_REMOVED As Boolean = False
+    Private _windream As New ClassWindream_allgemein

    Private Sub frmProfiles_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Try
@@ -42,7 +43,7 @@ Public Class frmMain
            My.Settings.frmMainSize = Me.Size
            My.Settings.frmMainPosition = Me.Location
            My.Settings.Save()
-            SaveLayout()
+            SaveGridLayout()
        Catch ex As Exception
            ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
        End Try
@@ -183,29 +184,29 @@ Public Class frmMain
        End Try
    End Function
    Private Function GetXML_LayoutName()
-        Dim Filename As String = String.Format("GridViewProfiles_UserLayout_{0}.xml", GRID_LOAD_TYPE)
+        Dim Filename As String = String.Format("GridView_Docs_UserLayout_{0}.xml", GRID_LOAD_TYPE)
        Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
    End Function

-    Private Sub SaveLayout()
+    Private Sub SaveGridLayout()
        Try
            Dim xml As String = GetXML_LayoutName()
            Dim xmlDefault = xml & ".default"

            If IO.File.Exists(xmlDefault) = False Then
-                GridViewProfile.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout)
+                GridView_Docs.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout)
            End If

-            GridViewProfile.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
+            GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
        Catch ex As Exception
-            ClassLogger.Add("Error while saving layout: " & ex.Message)
+            ClassLogger.Add("Error while saving GridLayout: " & ex.Message)
        End Try
    End Sub

    Private Sub RestoreLayout()
        Try
            Dim xml As String = GetXML_LayoutName()
-            GridViewProfile.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
+            GridView_Docs.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
        Catch ex As Exception
            ClassLogger.Add("Error while restoring layout: " & ex.Message)
        End Try
@@ -217,7 +218,7 @@ Public Class frmMain
            Dim xmlDefault = xml & ".default"
            IO.File.Delete(xml)

-            GridViewProfile.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout)
+            GridView_Docs.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout)
        Catch ex As Exception
            ClassLogger.Add("Error while resetting layout: " & ex.Message)
        End Try
@@ -262,7 +263,7 @@ Public Class frmMain
    Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
        ' Das aktuelle Layout speichern, bevor das neue geladen wird
        ' und GRID_LOAD_TYPE gesetzt wird.
-        SaveLayout()
+        SaveGridLayout()

        Dim _tag = e.Link.Item.Tag
        If Not IsNothing(_tag) Then
@@ -282,14 +283,6 @@ Public Class frmMain
        End If

    End Sub
-    Sub Item_LinkClicked(sender As Object, e As NavBarLinkEventArgs)
-        Try
-
-        Catch ex As Exception
-            ClassLogger.Add("Item_LinkClicked - Error: " & ex.Message)
-            MsgBox("Unexpected Error in Item_LinkClicked - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
    Sub Load_Profiles_for_User()
        Try
            Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T, TBPM_PROFILE_USER T1, TBDD_USER T2 WHERE T.GUID = T1.PROFIL_ID AND T1.USER_ID = T2.GUID AND UPPER(T2.USERNAME) = UPPER('{0}')", Environment.UserName)
@@ -299,18 +292,18 @@ Public Class frmMain
        End Try
    End Sub
    Sub Layout_Single_Profile()
-        If GridControlProfile.Visible = False Then
-            GridControlProfile.Visible = True
+        If GridControl_Docs.Visible = False Then
+            GridControl_Docs.Visible = True
            SplitContainerDashboard.Visible = False
        End If
    End Sub
    Sub Layout_Dashboard()
        Try

-            If GridControlProfile.Visible = True Then
+            If GridControl_Docs.Visible = True Then
+                GridControl_Docs.Visible = False
                Dim groupCount As Integer
                Dim charts As List(Of ChartControl)
-                GridControlProfile.Visible = False
                SplitContainerDashboard.Visible = True
                Dim DT_CHARTS As DataTable
                Dim sql = "SELECT * FROM TBPM_CHART"
@@ -434,7 +427,6 @@ Public Class frmMain

        Return series
    End Function
-
    Private Function Select_Chart(index As Integer)
        Select Case index
            Case 0
@@ -469,7 +461,6 @@ Public Class frmMain
    End Sub

    Sub Load_single_Profile()
-
        Try
            Load_Profiles_for_User()
            Layout_Single_Profile()
@@ -506,9 +497,9 @@ Public Class frmMain
    End Sub
    Sub Create_Basic_View()

-        GridControlProfile.DataSource = Nothing
+        GridControl_Docs.DataSource = Nothing
        Try
-            GridViewProfile.Columns.Clear()
+            GridView_Docs.Columns.Clear()
        Catch ex As Exception

        End Try
@@ -539,32 +530,30 @@ Public Class frmMain
            End Select
        Next

-        GridControlProfile.DataSource = CURR_DT_PROFILEGRID
-        'GridControlProfile.ForceInitialize()
+        GridControl_Docs.DataSource = CURR_DT_PROFILEGRID
+        'GridControlDocRow.ForceInitialize()

        RestoreLayout()

-        GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
-        GridViewProfile.Columns.Item("GUID").Visible = False
-        GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
-        GridViewProfile.Columns.Item("DOC_ID").Visible = False
-        GridViewProfile.Columns.Item("TL_STATE").Visible = False
-        GridViewProfile.Columns.Item("ICON").MaxWidth = 24
-        GridViewProfile.Columns.Item("ICON").MinWidth = 24
-        GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-        GridViewProfile.Columns.Item("ICON").Fixed = FixedStyle.Left
-        GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
-        GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-        GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-        GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
-
+        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("DOC_ID").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
+        GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
+        GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+        GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
+        GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
    End Sub
-
    Private Function GridView_CheckInvalidColumns() As Boolean
        Dim Columns_Removed = False
        GRID_INV_COL_REMOVED = False
        Try
-            For Each grid_column As GridColumn In GridViewProfile.Columns
+            For Each grid_column As GridColumn In GridView_Docs.Columns
                Dim GridDXCaption = grid_column.Caption
                Dim GridDXTextCaption = grid_column.GetTextCaption
                Dim GridDXColumnEditName = grid_column.ColumnEditName
@@ -617,19 +606,19 @@ Public Class frmMain
                    Create_Basic_View()

                    Try
-                        GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
-                        GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-                        GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
-                        For I = 0 To GridViewProfile.GroupCount - 1
-                            Dim v = GridViewProfile.GroupedColumns(I).ToString
+                        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 I = 0 To GridView_Docs.GroupCount - 1
+                            Dim v = GridView_Docs.GroupedColumns(I).ToString
                            Dim ii = Nothing
-                            GridViewProfile.GroupedColumns(I).Tag = GridViewProfile.Columns.Item("PROFILE_ID")
+                            GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
                        Next



-                        GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
-                        GridViewProfile.OptionsView.ShowGroupedColumns = False
+                        GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
+                        GridView_Docs.OptionsView.ShowGroupedColumns = False
                    Catch ex As Exception
                        ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
                    End Try
@@ -639,9 +628,9 @@ Public Class frmMain


                Else
-                    GridControlProfile.DataSource = Nothing
+                    GridControl_Docs.DataSource = Nothing
                    Try
-                        GridViewProfile.Columns.Clear()
+                        GridView_Docs.Columns.Clear()
                    Catch ex As Exception

                    End Try
@@ -665,10 +654,6 @@ Public Class frmMain
            Return False
        End Try
    End Function
-    Private Sub ListViewProfile_DoubleClick(sender As System.Object, e As System.EventArgs)
-
-    End Sub
-

    Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
        Try
@@ -727,9 +712,7 @@ Public Class frmMain

    Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
        Load_Profile_items()
-
        Decide_Load()
-
    End Sub

    Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs)
@@ -764,9 +747,7 @@ Public Class frmMain
    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown

    End Sub
-    Private Sub GridViewProfile_DoubleClick(sender As Object, e As EventArgs) Handles GridViewProfile.DoubleClick
-        Item_Scope()
-    End Sub
+
    Sub Load_Profil_from_Grid(ID As Integer)
        Try
            Me.Visible = False
@@ -785,87 +766,6 @@ Public Class frmMain
        Decide_Load()

    End Sub
-
-    Private Sub GridViewProfile_CustomDrawGroupRow(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewProfile.CustomDrawGroupRow
-        Try
-            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
-            Dim view As GridView = sender
-            Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
-            ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
-
-            If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
-                info.GroupText = info.GroupValueText
-
-                Dim _color As String = "Grey"
-
-                For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-                    If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
-                        _color = row.Item("PROFILE_GROUP_COLOR")
-                    End If
-                Next
-
-                Select Case _color
-                    Case "Red"
-                        info.Appearance.BackColor = Color.LightSalmon
-                    Case "Green"
-                        info.Appearance.BackColor = Color.LightGreen
-                    Case "Yellow"
-                        info.Appearance.BackColor = Color.LightYellow
-                    Case "Grey"
-                        info.Appearance.BackColor = Color.LightGray
-                End Select
-
-            End If
-        Catch ex As Exception
-
-        End Try
-
-    End Sub
-
-    Private Sub GridViewProfile_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewProfile.RowStyle
-        Dim view As GridView = TryCast(sender, GridView)
-        Dim row As DataRow = view.GetDataRow(e.RowHandle)
-
-        If IsNothing(row) Then
-            Exit Sub
-        End If
-
-        Dim state = row.Item("TL_STATE")
-
-        e.HighPriority = True
-
-        Select Case state
-            Case 1
-                e.Appearance.BackColor = Color.LightSalmon
-            Case 2
-                e.Appearance.BackColor = Color.LightGoldenrodYellow
-            Case 3
-                e.Appearance.BackColor = Color.LightGreen
-        End Select
-
-    End Sub
-
-    Private Sub GridViewProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewProfile.MouseDown
-
-        Dim view As GridView = sender
-        Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
-        GridCursorLocation = e.Location
-        ' wenn in eine Group Row Doppelt geklickt wurde..
-        If hi.InGroupRow Then
-            ' Ein/Ausklappen verhindern
-            DXMouseEventArgs.GetMouseArgs(e).Handled = True
-            GridViewItem_Clicked = "GROUP"
-
-            'Dim info = hi.Column.FieldName
-            'Dim info1 = hi.ToString
-            Dim msg = ""
-        ElseIf hi.InDataRow Then
-            GridViewItem_Clicked = "ROW"
-        Else
-            GridViewItem_Clicked = Nothing
-        End If
-    End Sub
-
    Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening
        CMFileStart.Enabled = False
        CMGroupStart.Enabled = False
@@ -883,18 +783,18 @@ Public Class frmMain
    Private Sub Item_Scope()
        Try
            CURRENT_JUMP_DOC_GUID = 0
-            Dim hitInfo As GridHitInfo = GridViewProfile.CalcHitInfo(GridCursorLocation)
+            Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
            Dim groupRowText
            Dim PROFIL_ID
            If hitInfo.InGroupRow Then
                GridViewItem_Clicked = "GROUP"
-                groupRowText = GridViewProfile.GetGroupRowDisplayText(hitInfo.RowHandle)
-                PROFIL_ID = GridViewProfile.GetRowCellValue(GridViewProfile.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewProfile.Columns("PROFILE_ID"))
+                groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
+                PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
            ElseIf hitInfo.InDataRow Then
                GridViewItem_Clicked = "ROW"
                If GRID_LOAD_TYPE = "OVERVIEW" Then
-                    groupRowText = GridViewProfile.GetGroupRowDisplayText(GridViewProfile.GetParentRowHandle(hitInfo.RowHandle))
-                    PROFIL_ID = GridViewProfile.GetRowCellValue(GridViewProfile.GetDataRowHandleByGroupRowHandle(GridViewProfile.GetParentRowHandle(hitInfo.RowHandle)), GridViewProfile.Columns("PROFILE_ID"))
+                    groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
+                    PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
                Else
                    PROFIL_ID = CURRENT_CLICKED_PROFILE_ID
                End If
@@ -926,10 +826,10 @@ Public Class frmMain
                    Load_Profil_from_Grid(PROFIL_ID)

                ElseIf hitInfo.InDataRow Then
-                    Dim DOC_GUID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("GUID"))
-                    Dim DOC_ID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("DOC_ID"))
+                    Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
+                    Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
                    If IsNothing(DOC_ID) Then Exit Sub
-                    Dim DOC_PATH = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("FULL_FILE_PATH"))
+                    Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
                    'Checking if table really contains one record with profile-id and docid
                    expression = expression & " AND DOC_ID = " & DOC_ID
                    Dim TEMP_TABLE = CURR_DT_PROFILEGRID
@@ -957,6 +857,76 @@ Public Class frmMain
            MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
+    Private Function Init_windream()
+        Try
+            _windream = New ClassWindream_allgemein
+            _windream.Init()
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False)
+            Return True
+        Catch ex As Exception
+            MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
+            ClassLogger.Add(">> Unexpected error in Init_windream: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkierteDateienAbschliessenToolStripMenuItem.Click
+        Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
+        Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
+        If Init_windream() = True Then
+            For Each rowhandle As Integer In selectedRows
+                Dim PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
+                If PROFILE_ID <> CURRENT_ProfilGUID Then
+                    CURRENT_ProfilGUID = PROFILE_ID
+                    CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from  TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
+                    CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from  TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
+                    CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
+                End If
+                If CURRENT_PROFILE_VEKTOR_LOG = "" Then
+                    CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
+                End If
+
+                Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
+                CURRENT_DOC_ID = DOC_ID
+                Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
+                CURRENT_DOC_PATH = DOC_PATH
+                CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
+
+
+                Dim WM_DOC = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, DOC_PATH.Substring(2))
+                If Not IsNothing(WM_DOC) Then
+                    CURRENT_WMFILE = WM_DOC
+                    If ClassFinalizeDoc.Write_Final_Metadata = True Then
+                        Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID)
+                        ClassDatabase.Execute_non_Query(sql)
+
+                    End If
+                End If
+
+
+
+            Next
+        End If
+        Load_Profile_items()
+        Decide_Load()
+
+        'Dim Row As DataRow
+        'Dim Rows() As DataRow
+        'Dim I As Integer
+        'ReDim Rows(GridView_Docs.SelectedRowsCount - 1)
+        'For I = 0 To GridView_Docs.SelectedRowsCount - 1
+        '    Rows(I) = GridView_Docs.GetDataRow(GridView_Docs.GetSelectedRows(I))
+        'Next
+        'GridView_Docs.BeginSort()
+        'Try
+        '    For Each Row In Rows
+        '        Dim DOC_ID = GridView_Docs.GetRowCellValue(Row, GridView_Docs.Columns("DOC_ID")) ' GridView_Docs.GetRowCellValue(Row, "DOC_ID").ToString()
+
+        '        Row.Delete()
+        '    Next
+        'Finally
+        '    GridView_Docs.EndSort()
+        'End Try
+    End Sub
    Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
        Item_Scope()
    End Sub
@@ -964,7 +934,7 @@ Public Class frmMain
    Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked
        ' Das aktuelle Layout speichern, bevor das neue geladen wird
        ' und GRID_LOAD_TYPE gesetzt wird.
-        SaveLayout()
+        SaveGridLayout()
        Load_Grid_Overview()
    End Sub
    Sub Load_Grid_Overview()
@@ -1009,9 +979,9 @@ Public Class frmMain
                If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
                    lblViewType.Text = "Aktuell keine Workflowdaten vorhanden!"
                    'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
-                    GridControlProfile.DataSource = Nothing
+                    GridControl_Docs.DataSource = Nothing
                    Try
-                        GridViewProfile.Columns.Clear()
+                        GridView_Docs.Columns.Clear()
                    Catch ex As Exception

                    End Try
@@ -1044,42 +1014,43 @@ Public Class frmMain
                    End Select
                Next

-                GridControlProfile.DataSource = CURR_DT_PROFILEGRID
-                'GridControlProfile.ForceInitialize()
+                GridControl_Docs.DataSource = CURR_DT_PROFILEGRID

+                'GridControlDocRow.ForceInitialize()
+                '  GridControl1.DataSource = CURR_DT_PROFILEGRID

                Dim Columns_Removed = GridView_CheckInvalidColumns()
                RestoreLayout()

                Try
-                    GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
-                    GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-                    GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
-                    For I = 0 To GridViewProfile.GroupCount - 1
-                        Dim v = GridViewProfile.GroupedColumns(I).ToString
+                    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 I = 0 To GridView_Docs.GroupCount - 1
+                        Dim v = GridView_Docs.GroupedColumns(I).ToString
                        Dim ii = Nothing
-                        GridViewProfile.GroupedColumns(I).Tag = GridViewProfile.Columns.Item("PROFILE_ID")
+                        GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
                    Next

-                    GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
-                    GridViewProfile.Columns.Item("GUID").Visible = False
-                    GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
-                    GridViewProfile.Columns.Item("DOC_ID").Visible = False
-                    GridViewProfile.Columns.Item("TL_STATE").Visible = False
-                    GridViewProfile.Columns.Item("ICON").MaxWidth = 24
-                    GridViewProfile.Columns.Item("ICON").MinWidth = 24
-                    GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-                    GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
-                    GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                    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("DOC_ID").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
+                    GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
+                    GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"

-                    GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
-                    GridViewProfile.OptionsView.ShowGroupedColumns = False
+                    GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
+                    GridView_Docs.OptionsView.ShowGroupedColumns = False
                Catch ex As Exception
                    ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
                End Try
                Try
-                    For Each grid_column As GridColumn In GridViewProfile.Columns
+                    For Each grid_column As GridColumn In GridView_Docs.Columns
                        Dim GridDXCaption = grid_column.Caption
                        Dim GridDXTextCaption = grid_column.GetTextCaption
                        Dim GridDXColumnEditName = grid_column.ColumnEditName
@@ -1112,12 +1083,12 @@ Public Class frmMain



-                'GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
-                SaveLayout()
+                'GridView_Docs.SaveLayoutToXml(GetXML_LayoutName())
+                SaveGridLayout()
            Else
-                GridControlProfile.DataSource = Nothing
+                GridControl_Docs.DataSource = Nothing
                Try
-                    GridViewProfile.Columns.Clear()
+                    GridView_Docs.Columns.Clear()
                Catch ex As Exception

                End Try
@@ -1152,4 +1123,132 @@ Public Class frmMain
    Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
        ResetLayout()
    End Sub
+
+
+
+    Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs)
+        Try
+            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
+            Dim view As GridView = sender
+            Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
+            ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
+
+            If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
+                info.GroupText = info.GroupValueText
+
+                Dim _color As String = "Grey"
+
+                For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
+                    If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
+                        _color = row.Item("PROFILE_GROUP_COLOR")
+                    End If
+                Next
+
+                Select Case _color
+                    Case "Red"
+                        info.Appearance.BackColor = Color.LightSalmon
+                    Case "Green"
+                        info.Appearance.BackColor = Color.LightGreen
+                    Case "Yellow"
+                        info.Appearance.BackColor = Color.LightYellow
+                    Case "Grey"
+                        info.Appearance.BackColor = Color.LightGray
+                End Select
+
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub GridView_Docs_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView_Docs.RowClick
+        If (ModifierKeys = Keys.Control) Then
+            GridView_Docs.OptionsSelection.MultiSelect = True
+
+        Else
+            GridView_Docs.OptionsSelection.MultiSelect = False
+        End If
+    End Sub
+
+    Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
+        Item_Scope()
+    End Sub
+
+    Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
+        Try
+            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
+            Dim view As GridView = sender
+            Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
+            ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
+
+            If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
+                info.GroupText = info.GroupValueText
+
+                Dim _color As String = "Grey"
+
+                For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
+                    If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
+                        _color = row.Item("PROFILE_GROUP_COLOR")
+                    End If
+                Next
+
+                Select Case _color
+                    Case "Red"
+                        info.Appearance.BackColor = Color.LightSalmon
+                    Case "Green"
+                        info.Appearance.BackColor = Color.LightGreen
+                    Case "Yellow"
+                        info.Appearance.BackColor = Color.LightYellow
+                    Case "Grey"
+                        info.Appearance.BackColor = Color.LightGray
+                End Select
+
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown
+        Dim view As GridView = sender
+        Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
+        GridCursorLocation = e.Location
+        ' wenn in eine Group Row Doppelt geklickt wurde..
+        If hi.InGroupRow Then
+            ' Ein/Ausklappen verhindern
+            DXMouseEventArgs.GetMouseArgs(e).Handled = True
+            GridViewItem_Clicked = "GROUP"
+
+            'Dim info = hi.Column.FieldName
+            'Dim info1 = hi.ToString
+            Dim msg = ""
+        ElseIf hi.InDataRow Then
+            GridViewItem_Clicked = "ROW"
+        Else
+            GridViewItem_Clicked = Nothing
+        End If
+    End Sub
+
+    'Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle
+    '    Dim view As GridView = TryCast(sender, GridView)
+    '    Dim row As DataRow = view.GetDataRow(e.RowHandle)
+
+    '    If IsNothing(row) Then
+    '        Exit Sub
+    '    End If
+
+    '    Dim state = row.Item("TL_STATE")
+
+    '    e.HighPriority = True
+
+    '    Select Case state
+    '        Case 1
+    '         '   e.Appearance.BackColor = Color.LightSalmon
+    '        Case 2
+    '         '   e.Appearance.BackColor = Color.LightGoldenrodYellow
+    '        Case 3
+    '            '   e.Appearance.BackColor = Color.LightGreen
+    '    End Select
+
+    'End Sub
 End Class