Bugfixing und Verbesserungen NodeBNavigation

app/DD-Record-Organizer/Classes/ClassConfig.vb

@@ -14,4 +14,6 @@ Public Class ClassConfig
     Public Property TreeListSplitterWidth As Integer = 0
     Public Property DocumentSearchSplitterWidth As Integer = 0
     Public Property DocumentViewerShown As Boolean = True
+
+
 End Class

app/DD-Record-Organizer/Classes/ClassDocGrid.vb

@@ -92,7 +92,34 @@ Public Class ClassDocGrid
         Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList()
         Return oSelectedRows.Count = 0
     End Function
+    Public Shared Function GetSingleSelectedDocument(pGridView As GridView) As List(Of clsWMDoc)
 
+        If pGridView.RowCount = 0 Then
+            Return Nothing
+        End If
+        Dim oDocuments As New List(Of clsWMDoc)
+        Dim oDocId = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "DocID")
+        Dim oSQL = $"Select dwParentID FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
+        Dim odwParentID = MYDB_ECM.GetScalarValue(oSQL)
+        Dim oDisplayName = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "Displayname")
+        Dim oDocPath = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "FULLPATH")
+        Dim oObjecttype = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "OBJECTTYPE")
+        Dim oFilename = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "Dateiname")
+        Dim oInWork = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "in work?")
+        Dim oInWorkUser = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "in work User")
+        oDocuments.Add(New clsWMDoc With {
+                .DocId = oDocId,
+                .ParentID = odwParentID,
+                .DocPath = oDocPath,
+                .DocType = oObjecttype,
+                .DisplayName = oDisplayName,
+                .Filename = oFilename,
+                .InWork = oInWork,
+                .InWorkUser = oInWorkUser
+            })
+
+        Return oDocuments
+    End Function
     Public Shared Function GetSelectedDocuments(pGridView As GridView, Optional pGetFirst As Boolean = False) As List(Of clsWMDoc)
         Dim oSelectedRows As List(Of Integer)
         If pGridView.RowCount = 0 Then
@@ -134,7 +161,6 @@ Public Class ClassDocGrid
 
     Public Shared Sub GetDocItems(gridView As GridView)
         _Helper = New ClassHelper
-        SELECTED_DOC_ID = 0
         If Init_Table() = True Then
             Console.WriteLine("gridView.SelectedRowsCount: " & gridView.SelectedRowsCount.ToString)
             gridView.EndSelection()
@@ -143,31 +169,12 @@ Public Class ClassDocGrid
                 DT_RESULTFILES.Clear()
                 For Each row In gridView.GetSelectedRows
                     Dim newRow As DataRow = DT_RESULTFILES.NewRow()
-                    Try
-                        Dim DOC_ID = gridView.GetRowCellValue(row, "DocID")
-                        Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + DOC_ID.ToString, "")
-                        If CHeckDT.Rows.Count = 1 Then
-                            SELECTED_DOC_ID = DOC_ID
-                            newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
-                        Else
-                            If Not IsNothing(DOC_ID) Then
-                                SELECTED_DOC_ID = DOC_ID
-                            Else
-                                Continue For
-                            End If
-
-
-                        End If
-
-                    Catch ex As Exception
-                        newRow("DOC_ID") = 0
-                        SELECTED_DOC_ID = 0
-                    End Try
-
+                    Dim oDocID = gridView.GetRowCellValue(row, "DocID")
+                    Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + oDocID.ToString, "")
                     Try
                         newRow("INWORK") = False
                         SELECTED_INWORK = False
-                        Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST  where DocID = " + SELECTED_DOC_ID
+                        Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST  where DocID = " + oDocID
                         Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQL)
                         If Not IsNothing(oDT) Then
                             If oDT.Rows.Count = 1 Then
@@ -258,7 +265,7 @@ Public Class ClassDocGrid
         End If
     End Sub
 
-    Public Shared Sub FillColumns(gridView As GridView,
+    Public Shared Sub FillColumns(pDocGridView As GridView,
                                   DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable,
                                   DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler, CheckValueChangedHandler As EventHandler,
                                   SearchType As String, RECORD_ID As Integer)
@@ -315,39 +322,46 @@ Public Class ClassDocGrid
             End Select
             '"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID)
 
-            Dim DT_DETAILS As DataTable = MYDB_ECM.GetDatatable(DT_DETAILS_SQL)
-            Dim docId As Integer
-            Dim configId As Integer
+            Dim DT_DETAIL_VALUES As DataTable = MYDB_ECM.GetDatatable(DT_DETAILS_SQL)
+            Dim oDocID As Integer
+            Dim oConfigID As Integer
             Dim recordId As Integer
             Try
                 ' Werte für Konfigurierte Spalten aus TBPMO_DOC_VALUES auslesen und Zellenweise einfügen
-                For Each row As DataRow In DT_RESULT.Rows
+                For Each oRow As DataRow In DT_RESULT.Rows
                     For Each col As DataColumn In DT_RESULT.Columns
                         Dim colName As String = col.ColumnName
-                        docId = row.Item("DocID")
-                        configId = RESULT_CONFIG_IDS.Item(col.ColumnName)
+                        oDocID = oRow.Item("DocID")
+                        oConfigID = RESULT_CONFIG_IDS.Item(col.ColumnName)
 
-                        If configId <> 0 Then
+                        If oConfigID <> 0 Then
                             Dim value As String = ""
 
                             Try
-                                value = MYDB_ECM.GetScalarValue(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", configId, docId, RECORD_ID))
+                                Dim oFilter = $"DocID = {oDocID} AND CONFIG_ID = {oConfigID}"
+                                Dim oFlteredRows() As DataRow = DT_DETAIL_VALUES.Select(oFilter)
+                                If oFlteredRows.Length > 0 Then
+                                    value = oFlteredRows(0)("VALUE").ToString()
+                                End If
+
+
+                                'value = MYDB_ECM.GetScalarValue(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", oConfigID, oDocID, RECORD_ID))
                             Catch ex As Exception
-                                LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message)
+                                LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", oConfigID, oDocID) & ex.Message)
                             End Try
 
-                            row.Item(colName) = value
+                            oRow.Item(colName) = value
                         End If
                     Next
                 Next
             Catch ex As Exception
-                LOGGER.Warn($"Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message & vbNewLine & $"SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {configId} AND DocID = {docId} AND RECORD_ID = {RECORD_ID}")
+                LOGGER.Warn($"Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message & vbNewLine & $"SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {oConfigID} AND DocID = {oDocID} AND RECORD_ID = {RECORD_ID}")
             End Try
             LOGGER.Debug("Values loaded...")
             Try
                 ' Tabellen zum DataSet hinzufügen
                 ds.Tables.Add(DT_RESULT)
-                ds.Tables.Add(DT_DETAILS)
+                ds.Tables.Add(DT_DETAIL_VALUES)
                 LOGGER.Debug("tables added to ds.Tables...")
             Catch ex As Exception
                 LOGGER.Warn("Attention: Could not Add tables to ds.Tables: " & ex.Message)
@@ -375,7 +389,7 @@ Public Class ClassDocGrid
                 LOGGER.Warn("Could not set master-detail Relation DocSearch: " & ex.Message)
             End Try
 
-            Dim gridControl As GridControl = gridView.GridControl
+            Dim gridControl As GridControl = pDocGridView.GridControl
 
 
             ' Datasource auf Master-Tabelle setzen
@@ -384,28 +398,29 @@ Public Class ClassDocGrid
             gridControl.ForceInitialize()
 
             ' Detail View anlegen und der Relation `docIdDetails` zuweisen
-            Dim grvwDetail As New GridView(gridControl)
+            Dim GVDoc_Values As New GridView(gridControl)
             'grvwDetail.OptionsBehavior.Editable = False
-            grvwDetail.OptionsView.ShowGroupPanel = False
-            grvwDetail.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
-            grvwDetail.OptionsView.EnableAppearanceEvenRow = True
-            grvwDetail.Appearance.EvenRow.BackColor = Color.Orange
-            grvwDetail.Appearance.HeaderPanel.BackColor = Color.Orange
-            grvwDetail.Appearance.HeaderPanel.Options.UseBackColor = True
+            GVDoc_Values.OptionsView.ShowGroupPanel = False
+            GVDoc_Values.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
+            GVDoc_Values.OptionsView.EnableAppearanceEvenRow = True
+            GVDoc_Values.Appearance.EvenRow.BackColor = Color.Orange
+            GVDoc_Values.Appearance.HeaderPanel.BackColor = Color.Orange
+            GVDoc_Values.Appearance.HeaderPanel.Options.UseBackColor = True
 
 
-            gridControl.LevelTree.Nodes.Add("docIdDetails", grvwDetail)
+            gridControl.LevelTree.Nodes.Add("docIdDetails", GVDoc_Values)
         Catch ex As Exception
             MsgBox("Error in FillColumns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             LOGGER.Warn("Attention: Could not load converted datatable DocSearch: " & ex.Message)
         End Try
 
-        AddHandler gridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded
-        AddHandler gridView.CustomColumnDisplayText, AddressOf gridView_CustomColumnDisplayText
+        AddHandler pDocGridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded
+        AddHandler pDocGridView.CustomColumnDisplayText, AddressOf gridView_CustomColumnDisplayText
+        AddHandler pDocGridView.FocusedRowChanged, AddressOf GVDoc_Values_FocusedRowChanged
 
 
         For Each row As DataRow In DT_WINDREAM_RESULTLIST.Rows
-            Dim col As GridColumn = gridView.Columns(row.Item("HEADER_CAPTION"))
+            Dim col As GridColumn = pDocGridView.Columns(row.Item("HEADER_CAPTION"))
             Dim colCaption = row.Item("HEADER_CAPTION")
             Dim type As Integer = row.Item("TYPE_ID")
             Dim isConfig As Boolean = row.Item("CONFIG_COLUMNS")
@@ -417,12 +432,12 @@ Public Class ClassDocGrid
             End If
         Next
 
-        gridView.Columns.Item("ICON").MaxWidth = 24
-        gridView.Columns.Item("ICON").MinWidth = 24
-        gridView.Columns.Item("FULLPATH").Visible = False
-        gridView.Columns.Item("OBJECTTYPE").Visible = False
+        pDocGridView.Columns.Item("ICON").MaxWidth = 24
+        pDocGridView.Columns.Item("ICON").MinWidth = 24
+        pDocGridView.Columns.Item("FULLPATH").Visible = False
+        pDocGridView.Columns.Item("OBJECTTYPE").Visible = False
         If Not System.IO.File.Exists(LAYOUT_DOC_GRIDVIEW) Then
-            gridView.Columns.Item("DocID").Visible = False
+            pDocGridView.Columns.Item("DocID").Visible = False
         End If
 
         Dim oCreatedFieldName, oChangedFieldName As String
@@ -434,25 +449,25 @@ Public Class ClassDocGrid
             oCreatedFieldName = "Erstellt"
         End If
 
-        Dim oCreatedColumn = gridView.Columns(oCreatedFieldName)
+        Dim oCreatedColumn = pDocGridView.Columns(oCreatedFieldName)
         If Not IsNothing(oCreatedColumn) Then
             oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
             oCreatedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
         End If
 
-        Dim oChangedColumn = gridView.Columns(oChangedFieldName)
+        Dim oChangedColumn = pDocGridView.Columns(oChangedFieldName)
         If Not IsNothing(oChangedColumn) Then
             oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
             oChangedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
         End If
 
         If GridDocResult_BestFitColumns Then
-            gridView.OptionsView.BestFitMaxRowCount = -1
-            gridView.BestFitColumns(True)
+            pDocGridView.OptionsView.BestFitMaxRowCount = -1
+            pDocGridView.BestFitColumns(True)
         End If
 
         ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
-        For Each column As GridColumn In gridView.Columns
+        For Each column As GridColumn In pDocGridView.Columns
             column.OptionsColumn.AllowEdit = False
         Next
     End Sub
@@ -583,7 +598,16 @@ Public Class ClassDocGrid
         End Try
 
     End Sub
+    Public Shared Sub GVDoc_Values_FocusedRowChanged(sender As GridView, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
+        Try
+            ClassDocGrid.GetDocItems(sender)
 
+
+        Catch ex As Exception
+            LOGGER.Warn("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message)
+            MsgBox("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
     Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs)
         Try
             ClassDocGrid.GetDocItems(sender)

app/DD-Record-Organizer/OrgFlow.vbproj

@@ -1333,6 +1333,7 @@
     <None Include="DD_ECMAdmin.xss">
       <DependentUpon>DD_ECMAdmin.xsd</DependentUpon>
     </None>
+    <None Include="frmScanFiles.resx.bak" />
     <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>

app/DD-Record-Organizer/frmDocRecordLink.Designer.vb

@@ -42,6 +42,7 @@ Partial Class frmDocRecordLink
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.txtcurrSichtData = New System.Windows.Forms.TextBox()
+        Me.bsitmSource = New DevExpress.XtraBars.BarStaticItem()
         CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -110,9 +111,9 @@ Partial Class frmDocRecordLink
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.bbtnitmLinkRecords, Me.bbtnitmsaveLayout, Me.bbtnitmresetlayout})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.bbtnitmLinkRecords, Me.bbtnitmsaveLayout, Me.bbtnitmresetlayout, Me.bsitmSource})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.MaxItemId = 6
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -132,8 +133,8 @@ Partial Class frmDocRecordLink
         Me.bbtnitmLinkRecords.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
         resources.ApplyResources(Me.bbtnitmLinkRecords, "bbtnitmLinkRecords")
         Me.bbtnitmLinkRecords.Id = 2
-        Me.bbtnitmLinkRecords.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.bbtnitmLinkRecords.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem1.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bbtnitmLinkRecords.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmLinkRecords.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmLinkRecords.ItemAppearance.Normal.Font = CType(resources.GetObject("bbtnitmLinkRecords.ItemAppearance.Normal.Font"), System.Drawing.Font)
         Me.bbtnitmLinkRecords.ItemAppearance.Normal.Options.UseFont = True
         Me.bbtnitmLinkRecords.Name = "bbtnitmLinkRecords"
         '
@@ -141,8 +142,8 @@ Partial Class frmDocRecordLink
         '
         resources.ApplyResources(Me.bbtnitmsaveLayout, "bbtnitmsaveLayout")
         Me.bbtnitmsaveLayout.Id = 3
-        Me.bbtnitmsaveLayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.bbtnitmsaveLayout.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem2.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bbtnitmsaveLayout.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmsaveLayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmsaveLayout.ItemAppearance.Normal.Font = CType(resources.GetObject("bbtnitmsaveLayout.ItemAppearance.Normal.Font"), System.Drawing.Font)
         Me.bbtnitmsaveLayout.ItemAppearance.Normal.Options.UseFont = True
         Me.bbtnitmsaveLayout.Name = "bbtnitmsaveLayout"
         '
@@ -150,20 +151,19 @@ Partial Class frmDocRecordLink
         '
         resources.ApplyResources(Me.bbtnitmresetlayout, "bbtnitmresetlayout")
         Me.bbtnitmresetlayout.Id = 4
-        Me.bbtnitmresetlayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.bbtnitmresetlayout.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem3.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bbtnitmresetlayout.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmresetlayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmresetlayout.ItemAppearance.Normal.Font = CType(resources.GetObject("bbtnitmresetlayout.ItemAppearance.Normal.Font"), System.Drawing.Font)
         Me.bbtnitmresetlayout.ItemAppearance.Normal.Options.UseFont = True
         Me.bbtnitmresetlayout.Name = "bbtnitmresetlayout"
         '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1})
         Me.RibbonPage1.Name = "RibbonPage1"
         resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
         '
         'RibbonPageGroup1
         '
-        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
         Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmsaveLayout)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmresetlayout)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
@@ -178,6 +178,7 @@ Partial Class frmDocRecordLink
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmSource)
         resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -198,6 +199,11 @@ Partial Class frmDocRecordLink
         Me.txtcurrSichtData.Name = "txtcurrSichtData"
         Me.txtcurrSichtData.ReadOnly = True
         '
+        'bsitmSource
+        '
+        Me.bsitmSource.Id = 5
+        Me.bsitmSource.Name = "bsitmSource"
+        '
         'frmDocRecordLink
         '
         resources.ApplyResources(Me, "$this")
@@ -242,4 +248,5 @@ Partial Class frmDocRecordLink
     Friend WithEvents bbtnitmresetlayout As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents Label2 As Label
     Friend WithEvents txtcurrSichtData As TextBox
+    Friend WithEvents bsitmSource As DevExpress.XtraBars.BarStaticItem
 End Class

app/DD-Record-Organizer/frmDocRecordLink.resx

@@ -292,7 +292,7 @@
     <value>Datei(en) verknüpfen</value>
   </data>
   <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="bbtnitmLinkRecords.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -313,13 +313,13 @@
         Lz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <data name="BarButtonItem1.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="bbtnitmLinkRecords.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold</value>
   </data>
   <data name="bbtnitmsaveLayout.Caption" xml:space="preserve">
     <value>...speichern</value>
   </data>
-  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="bbtnitmsaveLayout.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -339,13 +339,13 @@
         bGxvdyIgLz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <data name="BarButtonItem2.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="bbtnitmsaveLayout.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold</value>
   </data>
   <data name="bbtnitmresetlayout.Caption" xml:space="preserve">
     <value>...zurücksetzen</value>
   </data>
-  <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="bbtnitmresetlayout.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -368,18 +368,18 @@
         LjR6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
 </value>
   </data>
-  <data name="BarButtonItem3.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="bbtnitmresetlayout.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold</value>
   </data>
   <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>Layout</value>
-  </data>
   <data name="RibbonPageGroup3.Text" xml:space="preserve">
     <value>Funktionen</value>
   </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>Layout</value>
+  </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
   </data>
@@ -1773,6 +1773,12 @@
   <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;bsitmSource.Name" xml:space="preserve">
+    <value>bsitmSource</value>
+  </data>
+  <data name="&gt;&gt;bsitmSource.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmDocRecordLink</value>
   </data>

app/DD-Record-Organizer/frmDocRecordLink.vb

@@ -1,15 +1,12 @@
 Imports System.IO
-'Imports System.Text
-'Imports DD_LIB_Standards
 Imports DevExpress.XtraGrid.Columns
-
 Public Class frmDocRecordLink
 
     Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
 
     Private CURRENT_LINK_ENTITY_ID As Integer = 0
     Private ENTITY_LOAD_ACTIVE As Boolean = False
-
+    Private DT_ENTITYDATA As DataTable
     Private Class ClassEntity
         Public title As String
         Public id As Integer
@@ -32,12 +29,12 @@ Public Class frmDocRecordLink
         If CURRENT_LINK_ENTITY_ID = 0 Then
             CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
         End If
-        Try
-            ' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
-            ' DT_RECORDS.Columns("already linked").DefaultValue = False
-        Catch ex As Exception
+        'Try
+        '    DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
+        '    DT_RECORDS.Columns("already linked").DefaultValue = False
+        'Catch ex As Exception
 
-        End Try
+        'End Try
 
         'Try
         '    For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
@@ -232,7 +229,7 @@ Public Class frmDocRecordLink
         Try
             Dim XMLPath = Get_DocGrid_Layout_Filename()
             grvwGrid.SaveLayoutToXml(XMLPath)
-            bsiInfo.Caption = "Grid-Layout saved - " + Now.ToShortTimeString
+            bsiInfo.Caption = "Grid-Layout saved - " + Now.ToLongTimeString
 
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Save_DocGrid_Layout", ex.Message, ex.StackTrace)
@@ -244,7 +241,7 @@ Public Class frmDocRecordLink
             If File.Exists(XMLPath) Then
                 grvwGrid.RestoreLayoutFromXml(XMLPath)
                 grvwGrid.GuessAutoFilterRowValuesFromFilter()
-                bsiInfo.Caption = "Grid-Layout loaded - " + Now.ToShortTimeString
+                bsiInfo.Caption = "Grid-Layout loaded - " + Now.ToLongTimeString
 
             End If
         Catch ex As Exception
@@ -264,11 +261,14 @@ Public Class frmDocRecordLink
         Me.Cursor = Cursors.WaitCursor
         If cmbConstructorForms.SelectedIndex <> -1 Then
             ENTITY_LOAD_ACTIVE = True
-            Save_DocGrid_Layout()
+            dgEntityRecords.DataSource = Nothing
+            grvwGrid.Columns.Clear()
+
             Dim DT_RESULT = ReturnDataforEntity(entity.id)
             If Not IsNothing(DT_RESULT) Then
                 CURRENT_LINK_ENTITY_ID = entity.id
                 txtcurrSichtData.Text = entity.title
+                DT_ENTITYDATA = DT_RESULT
                 Refresh_Grid_Data(False, DT_RESULT)
             End If
             Load_DocGrid_Layout()
@@ -282,9 +282,10 @@ Public Class frmDocRecordLink
         Dim ResultSQL, ResultViewName As String
         LOGGER.Debug("GridType = Grid")
         ResultViewName = $"VWPMO_ENTITY_TABLE{oEntityID}"
-
+        bsitmSource.Caption = $"Source: " + ResultViewName
         ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
         LOGGER.Debug("ResultSQL: " & ResultSQL)
+
         Return MYDB_ECM.GetDatatable(ResultSQL)
     End Function
 
@@ -340,7 +341,8 @@ Public Class frmDocRecordLink
             omsg = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
         End If
         MsgBox(omsg, MsgBoxStyle.Information, "orgFLOW")
-        Refresh_Grid_Data(True, Nothing)
+
+        Refresh_Grid_Data(False, DT_ENTITYDATA)
         Load_DocGrid_Layout()
         grvwGrid.ClearSelection()
     End Sub
@@ -370,7 +372,7 @@ Public Class frmDocRecordLink
     End Sub
 
     Private Sub grvwGrid_StyleChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnPositionChanged, grvwGrid.ColumnWidthChanged
-        If ENTITY_LOAD_ACTIVE = False Then
+        If ENTITY_LOAD_ACTIVE = True Then
             Save_DocGrid_Layout()
         End If
     End Sub

app/DD-Record-Organizer/frmNodeNavigation.Designer.vb

@@ -46,10 +46,10 @@ Partial Class frmNodeNavigation
         Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem()
         Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl()
@@ -173,7 +173,7 @@ Partial Class frmNodeNavigation
         Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
         Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
-        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(966, 158)
+        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(2215, 158)
         Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
         Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
         '
@@ -321,31 +321,10 @@ Partial Class frmNodeNavigation
         '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RPGNodes, Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult})
         Me.RibbonPage1.Name = "RibbonPage1"
         Me.RibbonPage1.Text = "Node Navigation"
         '
-        'RibbonPageGroupRecord
-        '
-        Me.RibbonPageGroupRecord.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroupRecord.Enabled = False
-        Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecEdit)
-        Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecSave)
-        Me.RibbonPageGroupRecord.Name = "RibbonPageGroupRecord"
-        Me.RibbonPageGroupRecord.Text = "Formulardaten"
-        '
-        'RibbonPageGroupDocResult
-        '
-        Me.RibbonPageGroupDocResult.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.checkShowPreview)
-        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultExport)
-        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutSave)
-        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutReset)
-        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultRefresh)
-        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.BarButtonItem1)
-        Me.RibbonPageGroupDocResult.Name = "RibbonPageGroupDocResult"
-        Me.RibbonPageGroupDocResult.Text = "Dateien"
-        '
         'RibbonPageGroup1
         '
         Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmReloadView)
@@ -360,6 +339,26 @@ Partial Class frmNodeNavigation
         Me.RPGNodes.Name = "RPGNodes"
         Me.RPGNodes.Text = "Knoten"
         '
+        'RibbonPageGroupRecord
+        '
+        Me.RibbonPageGroupRecord.AllowTextClipping = False
+        Me.RibbonPageGroupRecord.Enabled = False
+        Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecEdit)
+        Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecSave)
+        Me.RibbonPageGroupRecord.Name = "RibbonPageGroupRecord"
+        Me.RibbonPageGroupRecord.Text = "Formulardaten"
+        '
+        'RibbonPageGroupDocResult
+        '
+        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.checkShowPreview)
+        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultRefresh)
+        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultExport)
+        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutReset, True)
+        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutSave)
+        Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroupDocResult.Name = "RibbonPageGroupDocResult"
+        Me.RibbonPageGroupDocResult.Text = "Dateien"
+        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@@ -369,10 +368,10 @@ Partial Class frmNodeNavigation
         Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 788)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 1305)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(966, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(2215, 22)
         '
         'RibbonPage2
         '
@@ -394,7 +393,7 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
         Me.SplitContainerTreeList.Panel2.Text = "Panel2"
-        Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 630)
+        Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 1147)
         Me.SplitContainerTreeList.SplitterPosition = 229
         Me.SplitContainerTreeList.TabIndex = 2
         '
@@ -419,7 +418,7 @@ Partial Class frmNodeNavigation
         Me.TreeListDevexpress.OptionsFilter.ColumnFilterPopupMode = DevExpress.XtraTreeList.ColumnFilterPopupMode.Excel
         Me.TreeListDevexpress.OptionsFilter.ExpandNodesOnFiltering = True
         Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True
-        Me.TreeListDevexpress.OptionsFind.FindDelay = 300
+        Me.TreeListDevexpress.OptionsFind.FindDelay = 600
         Me.TreeListDevexpress.OptionsFind.FindFilterColumns = "NODE_CAPTION;NAVIGATION_PATH"
         Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
         Me.TreeListDevexpress.OptionsFind.ShowFindButton = False
@@ -436,7 +435,7 @@ Partial Class frmNodeNavigation
         Me.TreeListDevexpress.OptionsView.ShowVertLines = False
         Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
         Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
-        Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 630)
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 1147)
         Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
         Me.TreeListDevexpress.TabIndex = 1
         '
@@ -460,7 +459,7 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
         Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
-        Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(560, 630)
+        Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(560, 1147)
         Me.SplitContainerDocumentSearch.SplitterPosition = 246
         Me.SplitContainerDocumentSearch.TabIndex = 1
         '
@@ -485,7 +484,7 @@ Partial Class frmNodeNavigation
         Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
         Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
         Me.GridControlDocSearch.Name = "GridControlDocSearch"
-        Me.GridControlDocSearch.Size = New System.Drawing.Size(560, 374)
+        Me.GridControlDocSearch.Size = New System.Drawing.Size(560, 891)
         Me.GridControlDocSearch.TabIndex = 8
         Me.GridControlDocSearch.TabStop = False
         Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -715,7 +714,7 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
         Me.SplitContainerDocView.Panel2.Text = "Panel2"
-        Me.SplitContainerDocView.Size = New System.Drawing.Size(966, 630)
+        Me.SplitContainerDocView.Size = New System.Drawing.Size(2215, 1147)
         Me.SplitContainerDocView.SplitterPosition = 799
         Me.SplitContainerDocView.TabIndex = 0
         '
@@ -725,7 +724,7 @@ Partial Class frmNodeNavigation
         Me.DocumentViewer.FileLoaded = False
         Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
         Me.DocumentViewer.Name = "DocumentViewer"
-        Me.DocumentViewer.Size = New System.Drawing.Size(157, 630)
+        Me.DocumentViewer.Size = New System.Drawing.Size(1406, 1147)
         Me.DocumentViewer.TabIndex = 0
         '
         'XtraSaveFileDialog1
@@ -779,15 +778,15 @@ Partial Class frmNodeNavigation
         Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
         Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
         Me.barDockControlTop.Manager = Me.BarManager1
-        Me.barDockControlTop.Size = New System.Drawing.Size(966, 0)
+        Me.barDockControlTop.Size = New System.Drawing.Size(2215, 0)
         '
         'barDockControlBottom
         '
         Me.barDockControlBottom.CausesValidation = False
         Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 810)
+        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 1327)
         Me.barDockControlBottom.Manager = Me.BarManager1
-        Me.barDockControlBottom.Size = New System.Drawing.Size(966, 0)
+        Me.barDockControlBottom.Size = New System.Drawing.Size(2215, 0)
         '
         'barDockControlLeft
         '
@@ -795,15 +794,15 @@ Partial Class frmNodeNavigation
         Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
         Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
         Me.barDockControlLeft.Manager = Me.BarManager1
-        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 810)
+        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 1327)
         '
         'barDockControlRight
         '
         Me.barDockControlRight.CausesValidation = False
         Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
-        Me.barDockControlRight.Location = New System.Drawing.Point(966, 0)
+        Me.barDockControlRight.Location = New System.Drawing.Point(2215, 0)
         Me.barDockControlRight.Manager = Me.BarManager1
-        Me.barDockControlRight.Size = New System.Drawing.Size(0, 810)
+        Me.barDockControlRight.Size = New System.Drawing.Size(0, 1327)
         '
         'BarButtonItem2
         '
@@ -1036,7 +1035,7 @@ Partial Class frmNodeNavigation
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(966, 810)
+        Me.ClientSize = New System.Drawing.Size(2215, 1327)
         Me.Controls.Add(Me.SplitContainerDocView)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.ribbonNodeNavigation)

app/DD-Record-Organizer/frmNodeNavigation.resx

@@ -285,61 +285,62 @@
   <data name="BarStaticItemLocked.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0
-        bGUARWRpdFJhbmdlUGVybWlzc2lvbjtTZWN1cml0eTt7Gu0YAAAJT0lEQVRYR6WXCVBUVxaGMc4kLlED
-        ZpZooo4kVDRu0Uyh4FZGpkYHF0oTcUFWZVFEAYNGQUT2FhSEiHtEAUWRKKKyC6iIsokCKovI2kBDQ6Mg
-        DfQ/57wGBEWTqTlVX73ud3n8/zn33XNvq/htnN8fA31N5/p4GWmXuK/XqnZdOyt235qZC+iq4m6gpeJt
-        OFvl/wkAPbwpbENk+5jNy4sJ2obClFPIiHRHVKANRBY6nTv1puvT8wOID97BwHfAY/ycEO8zUH8r1An3
-        I9xRlBSEgsRgnHc1RKCNLnwtdbBVd2rz/G9GfUL/4yNiUBeDiSHEUOLjLoZ1MbzryuN/JgQT7zIwkMC9
-        S27wNJ6HX7YtQ+IZEQ7bLIGn0WzsWD4JJvM0cDXtGXYFZ2PHqUw4nMzETycyYH88A3ZH78H2SDq2EjaH
-        72LLL2nYHHgHmwJuw9w3KZV02SBX450GVHzM5rYctNRR3D+3B5GBO2GjOw3mCydi/ZwvYfn9eKzT1kBb
-        u4Ke+9/Cwu8WKalw5f70XgMikzn5ImMt+YuyW+ioz0Lj00jkRLkh5cRG2CydBrPFs/CitaMPzUxLB2TM
-        y3Y0Mi/kkBINzXKUVMlg7pfKBkYSPA3vNuCxXtv9gKmWoqPhEVpKYyB7Eg5JThAqU5xhNvcLuNlbkGj7
-        2+IkKmtpR5Mg3g4pCTc0t6FeJkcxGdh4MIUNfPq7BqwWT/n6qJWWTFaaCunDX1FP4jVp3iiI3AS7xRoI
-        OhGGU/El8It6jAOXC+D7WwH2R+ZDdCkPXhcfwePCQ7iH58L1/AMSb4OEKKpqgtkBwcBfiA/fa4BiyFHL
-        GZFZEW6ove+H6lQXVCbtwKU9C+BvvxrVNQ2vMxeyp8wpa2XmVHYhc3mPeF3TKxRVNsHUN5kN/JUQDPSJ
-        XuIfTNs2dsLireohR6xmIDPcAcVRlojz+Q+2/+szmLoYwD8yFv6XH8InMk+ZeQRlHkGZU/bu4Q+x71wO
-        XMKy4RyShRppK9GCx+VSmOxPYgN/J942MP/gBJUJhqMHa3lp+C0PmtWxP8Eep6N2IcBuPlz1xmGv8Qx4
-        nNyA7ReMsMB7KnaE2qK8qhZS2SvlS9edOWdMgtV1MlTUNOJ5tRSl1fV4UCSGoVccGxhNcP/oG2P//emH
-        c3y+TvRLccDjpjjkN0bjVtVhROTvwqE7hnBNWA6neF3sS1oLn1Rr2ISvg65oEULi82jOH8CN5vtQVB4u
-        pBQhLC4X9j7hMHAIhJ6lBwxsRdjucRyrdp9jA+oE9wLuiq9Dy+OrnxyjTfFAcgUJlb6IKNmK8GJrnMw3
-        xcH7+tibrAv7GzqwujwfRhdmQz9EG0sCtKjsrqiRyFBP81wubsTxyFswdwlGeEw6HhZWoLRKgvTcQhw/
-        H4NV1m7Q1jUJGDR0+GckydPAHVHZmrW9NYpmeX0JTQ91/NNtPL5zHYfpLuPw7d4xmOo8BlOcPsdkx9GY
-        tHsUvtk1CpMIvs7Z9x0ibj4WMncKuo7dAZeFkp++lAjzXf5YauYEI3sRXANCcSk2Dabb92Om7oZgkuT2
-        3NOWObg7sSueH+7ZapdSCtEglUFc20hvvhRV4gZUiCUor65DGc1/WWUdfa+HWNKM5MxCbHA5i5JKCWy9
-        zsLO9SgSb+eg+HkV4lMzscXJH4bbPBAUdg06ax0wUVtvWZeOcip61qMy+OYQ++P36Raoq8mFxvLmOud5
-        dwnLQWjCU9j7XUF4bAYJ3MC2fUdQUS1BbX0zJNKXwhSVlouxzdkfOzyOwcrxEKYsNL5CGiMITnxAfwaG
-        2h27pzTQ9YbXC13tNbzGaxpaUCaWwnjPaTwuFUPPwh3Jd3OFqrF4fWOLcK2kSsUlp0PXcAdERy9gko55
-        DWl0N6W3DPBu9bEt7Wwc3Y3Fs1eH47W+NyQbcVnluHqnCD/YH0ZlXRO0VmxH/tNneF5RQ8uUpqqyVvhc
-        WFKOjKxHmLdiMw6HRGPCQks5aXxBKKehPwNbg+4KBpT9nDJuUna1brjJVNQ2oTAjDsc9rXHAXg8H7Jbj
-        WcBMFPtrotBPE099NfHYRxP5Ik088tKEx+bl8Ni0HM4blpSK9L8yIB3l7tiPgWE2QWmCge5yu53Ppcxp
-        3kNzqMtlw/FMBqLvFqPk2PdoLbsDdLQA7S+JZkDeBLQ1Aq8aCAnQWgu0iIGXVUQFmvKikeY4Q0I6ys7Y
-        j4HhfJjg6O7ntZx142sqJS9QVE4lDpxBoi+gkGRDUZ3y+9SmQ9H4BOk7p7Pg58RH/RkYwScZjjoqfS0J
-        8hvvHJoNp7NZcDybiV2/3sPl1Cco8lYXslWUXetD/Pn90F+pS1fRW2OKumwkW6uzIL8Hg940wEtjBB+j
-        OFicMxY3tKK6F+W1zSh4JkbBHjUopE/Q+SgQiuLzPSxZtADqk7VgZGUHxfPonvv8d22Z3ogxVGXBMUS/
-        Bj6x8u9rwEmY9yzsDs7Ez8EZcDiRjojkAuQ5koHaTMiv6qAj0QAddx3QmeONEF8LaC8xw/WocCjKY9BJ
-        99sTaDxKB20ptrhuoMaCY4l+Daha+t/qY+DNCpTVyJBfXI2HP5OBmjR0XF+EzmuL0SGwCGG7taDx7Tzc
-        CPdD521r4V7HdRoj2pK3IHqNUIFxRP8G+AzHIbx00lck2oKq+tYenotlyCuqxAMHVSjEKeiMXdYHqx+m
-        QX3KbHh67qPst6IzrmuMrm3J1ohaLVTgH0T/U7DxoNLAk/ImOlA0ooDIe/6a3OI63MkpQZY9GahKgCJx
-        JTqZhJVQEJMnqmPy7GVYYWwLRa4X3V9B4wSNyZOtcEVfMDCeGPymAaERGXnGJPExymT/TZiIbsJIlAhD
-        70Ss90qAgUcC1rjGYOXuCGTYqgEVN6C4uZrQ77oSKUTRGaD0onDlMdD9zoQfIb9pid9+HPlOA7xF8lbJ
-        v2b4GM3nuL8RvI+P6oJPNjx/k9KsVV82JLlAnroZ8pgVxEq0xRL8OZa/rxA+93yPX4PKM0txceXIl/Q8
-        L8O3+gAHm+BKsBHeMLrh7bob7uMjA/SGGSdbqkpSLVWRvFEVSWaqiDdRRSwts5j1qri+Tg1X6YWLopJf
-        XqVGmauxuGyn1jALel55TO/HwB8JNsmm+HDBO1t3Zbi7cWa8xnmZcaX4ZeNyd8PjLM6/K19vRn+UrmAD
-        vSvVuzpM9w/X3vCPWIbH+Rna+lUG/Bex9uEqV0XDgQAAAABJRU5ErkJggg==
+        bGUARWRpdFJhbmdlUGVybWlzc2lvbjtTZWN1cml0eTt7Gu0YAAAJYklEQVRYR6WXCVTU1R7H/9V7vTYr
+        sLdkmy/Kk6Vm2TskaHos3nn6MOVAhRoCggskoYihqagIDIugECSatqiooEiKpuwCJqBsLoDKIrIOMDAw
+        bDLAfN65fwbEhJbz7jnf8//P3Jnz+/x+997vvVcKWTZTGkYPBTu8F+RvZ1ruu9ikznvR1IRtC9+d5b1o
+        quRrYyIF2E6T/p8GDOqXgV1Dls3MD3KcURgfsZqS9O/IifUlLtyVwBVmfest3raWJOkBSZIeHEEPjSDR
+        J/73mwBN5w95cinGl9LUCIpT9hPlbUu4qznBTmasMn+zbeYbY56WJOkvkiQ9otejkiQ9JknS45IkPaHX
+        KL2e1D9F/58HIEYCeChk2UwuHvfBz34GX6+eR8qBQHa5zsXPbhrr5k9gyYxxnMq8xYb9+az7LhePb3P5
+        Yl8O7ntzWLPnIm67s1m1OxvXXVl8/nUmK8Mv8FnYzywPTs3QA4pqjAggBTm+17nTyUx36chmYsPX42o+
+        meUfvM7i6a/g9P7LfGo6ju4eHX+0rQg5jyRJonJ/+lWAwCXTiwLtTbTtlefpbcqj5WYsBXE+pO9bhuuH
+        k3GcM5X2rt571CbU2YtGqKOHFqF2Lep2Lc1tWsprNSwPyRAAo/XDMDKAYrGp7w4HE11v8zU6K+LR3IhG
+        VRBBTfoWHN97AR/3FbR39dwfvKMHTWcPrXLwHtRtIng3TRotZbUalu1MFwDP/CaA85xJr+1xNtFoKjJQ
+        X/2epoII6jMDKI79jDVzxhGx7zDfJZUTEnedHSeKCf6xmO2xRQQeL8T/2DUUR6/iG30F76jLNGm6UWm6
+        Ka1txXGHDPBXSZIe/lUAMVv3OE2JzYvxoeFSCHUZXtSkruP45lmEui+grr75buZy9j1y9v2Za/WZaweD
+        N7beobSmFYfgNAHwtwGAe9qQ4A9OXv3S+DmrjCJ3O08hN9qDsjgnEoP+y9p/P4uDlw2hsQmEnrhKUGxh
+        f+YxhfjHXENx7Bq+0VfZdqQAr8P5bInMo17dRb26k+tVapZsTxUA/xgWYObO8dJ42+ceNfEfFzI/Ymrv
+        9mR3fojbQNiamXhbjGWr/RQU3y5l7VE7ZgW8ybpDblTVNqDW3OmfdAOZi4zVndQ1aqiub+F2nZqKuiYu
+        lyqx9U8UAM/p/ePe9tJ/nnl4etBrKSHpHlxvTaSo5TTna3cRU7SBry7Y4p08H88kc7alLiIowwXX6E8x
+        D5xNZFIhiqOX8Ym6zFdxhRxNL+Vw4hXcg6Kx8QjHwkmBjVsgaxV7+WTjEQFgpPcC4Yp3m4ni1S82nXbg
+        suokyTXBxJSvIrrMhW+LHNh5yZqtaea4nzXD+cRM7I5OwzrSlLlhJiiOeVOv0tDUeocqZQt7Y8+z3Gs/
+        0fHZXC2ppqJWRfaVEvZGxfOJiw+m5kvCHnn8yWf1wyAcsd+aTQPGlU71fwVjhRH/8nmZd7zH8rbXWN7a
+        +iJvbnmRSZ7PM3HTc0zYOIY3Noxhwob+5/Rt7xBz7rqcuWfEGTaGnZBL/sPxFJZvCOVDR0/s3APxDjvE
+        8YRMHNZu513zpfv19jxoy6IJdxJUYnyEZxseTy+hWa1B2dBCXb2aWmUz1UoVVXWNVNY2UFnTSLWyCaWq
+        jbTcEpZ6HaS8RoWb/0HWeO8h5ecCym7XkpSRy+eeodiuVhBx+CfMFnnwuqnFPH2c/qEYXI/9TXz5mPve
+        S7KFtnRoZWP55ToX4+51uIBDyTdxDzlJdEIOEYfPsnrbbqrrVDQ0taFSd8hDVFGlZPWWUNYpvsF501dM
+        +sD+pCRJT+kTf2A4gMfXfHOxH0A/w5tkV7srscbrmzupVKqx3/wD1yuUWKzwJS3rilw1EbyppVN+1iib
+        SEzLxtx2HYF7jjLBbHn9EFO6D0DsVk+47ekHGDAWvyEOJ9b61sh8EvOqOHWhlI/cd1HT2IqJ5VqKbt7i
+        dnU9VbWNVNY0yO8l5VXk5F1jhuVKdkWeZvwHTlpJkl4YHIbhAFZFZMkA/X7ejaq139UGJEymuqGVkpxE
+        9vq5sMPdgh1r5nMr7F3KQo0pCTHmZrAx14OMKQo05pq/MYqV81F8Np8tS+dWBFq/ajO4Ow4DMMo1IlMG
+        GCi3T9QVth25jNehArZE5rPpQA6ns8oo/+Z9uiovQG8n9HRATxtoW6G7Be40wx0VdDVApxI6aqGjmtbC
+        02RumqIadMZhAJ4UhwnRBvy8QWTdclc1qnZKqxq4HT4FetrRqfLR1aX/thqy0bXcIHv92yLg8/LKGwbg
+        KXGSEa2xtZuGljvyjN9yKB/Pg3lsOpjLhu8vciLjBqUBRnK2usqf7lFS1HasrcxJigq8r0/XmE+ai5EI
+        KObBI78EEEvjKXGMEk0EFxkrm7uoG6KqhjaKbykp3myITn2Dvmvh6MqiBjV39iyMJppg57wG3e3Tg9+L
+        33XnBhBvayACvjgSwNPOofcCeMrjnsfG/bl8uT8Hj33ZxKQVU7jJEF1DLtpTZvSm2NCb5UFfQQCRwSsw
+        nevImbhodFXx9GV50JNsQ2+cGd3pbpyxMRQBXxoJwMAp9PyvVqCyXkNRWR1XvzREV59J75nZ9P00h15Z
+        szm80YRxb83gbHQIfT+7yN/1npkjqzvtc04vlCswdkQAcYYTTZ506jvUNXdS29Q1qNtKDYWlNVz2MECn
+        TKcvYd49cv5oMkaTpuHnt42+rFX0Jer7EufRneZC3AK5Av8cCeDpZTv7AW5UtXK9qoXiqhYKb9/VlbJG
+        LhSUk+dugK42GV2KFX1CyVbokq2Y+LoRE6fNw9LeDd0Vf/qSLelLsZT7tWnOnLSWAV6W7xTDrIIn7Pzi
+        U8Uxasn2cywJPIddYAq2ASks9k/GRpHMQu94rDbGkONmCNVn0Z1bgO6ctf65AF36AnSlB6DimPwUfZxb
+        QF/yx2jPOfHjx6NHBBBbpNgqxW1GHKPFOe7vkiSJfXyMXuJkI8ZvQqaLQUdzqhfajJVo4y3RxlvRnWBF
+        t3hPEJ8t5ffBz0kLqTnwIcesRnfol+F9PjAAISohQMSGMSCxXQ9I+PjoMItR9mlOBqoMJwPSlhmQ6mhA
+        0hIDEmwNiF9swJlPDTm10IA4a0NOfGLIjx8biuCa9SajVgwe04cB+D1NQAoocbgQO9tAZYS7iczEGhfL
+        TFRKTDZR7gGJfhFc3Cvvbka/V0MAhlZqaHWGXlyHSlxihUS/+I98Y/4fsfbhKkGZvosAAAAASUVORK5C
+        YII=
 </value>
   </data>
   <data name="bsitmtInfoDoc.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
         dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh
-        bmRhcmQ7U2VhcmNou2WcCAAAAZ5JREFUWEfFlsFtwlAQREkDOXCmgtRgiWJQ2gjimA5ypIUoNeSUE7VQ
-        gDODvKv53+vv7w/Chyet7JnZwdiGTd/3qxIefCY+dF0XsQMHcAYXcB3gzGM8R83Iq0tK+JAFvIB38Av6
-        Gaihlh7P0CUlfBDzFnyCaFkJeui9qwA/Rb78DxzBHnAB4cxjPKdaem9XQpeU8IEmwEupgV/gTQ0Kzw0a
-        9TAj1Ef4ABNvJv3OGfyq4ghqBq35mLGLtBE+wMQ72kJ4aSc/eQ61g8f8h0gX4QNMfKws4KiiGugR/znS
-        RPgAE59tC9irqAZ6xH+JNBE+wMQXjAVsVVQDPeK/RpoIH2iSgFUKrP4VrH4Trv4YPvRFBHhuEvNrEHnE
-        q/gb+KIpLEPDyL0/RsYHSBbmTBUgXJCXaKFYolSALP1D8pMdMyZLzBUwlvwlO4HqEqMCrWTB1SXMn4S1
-        kAeDqhLmT8Ja0FBhtoT5k7AWLDCgWML8SVgLDCswWcL8o8ClIGyOqMTJ/KPApSCsBi3B2f1JWAsMq4SL
-        b8uJ+ZOwNQgPPo9+8w8imt94911hKQAAAABJRU5ErkJggg==
+        bmRhcmQ7U2VhcmNou2WcCAAAAYdJREFUWEfFlsttAkEQRHECPnAmAmIoiWCQ0zDi6Ax8JAXLMfjkE7EQ
+        wFqFplGrupvdgZX38KTRTFd17ezsZzUMw2pJwsR/cxsAyNgA2AM4ATgDuDQ45hzXWKO60KiiCvAC4A3A
+        D4BhBNawlppZAqwBfCSNxqCG2qcC8Cq0+S+AA4Bda0A45hzXNMR1J7RRhQbgVnrDTwBbFTnNttV4DT1C
+        bYU342Hy95zGrypQWCMh6LHRugpvxBPtt728cqXthL8de62p8CZ8rMzgoIVjtDNh+pOuV3gDPttmsNPC
+        MdrBNP1Z1yu8AV8wZrDWwjHa02H6i65XeIPFAyx+CxY/hIs/hrO+iOTjFsgCkDlexV/aLKMK8OzHyHjX
+        hkoVgDz6OVbuhrgXgPT+kHwn83dDjAUwen7JjkmAMkQI8ChiPDmE6YNhL2o8NYTpg2EvSYBJIUwfDHtJ
+        mk8KYfpg2EvSeFII0wfDXpKmShbiaPpg2EvSMMOH4PimD4a9JM0q2PjafNYAzxIm/ps/IprfeMS/OGEA
+        AAAASUVORK5CYII=
 </value>
   </data>
   <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -469,60 +470,60 @@
   <data name="tsitmDMSReadOnly.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0
-        bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAKtSURBVDhPjZFbSJNxGMaXlqVmkiVURnZh
-        VCBIUSTkTWEkGImSRWQpQtZQtLFybqbuIjtIUZhhSTlnYt1JOF0rT3mcm87DLPSmMs2cm1PTedh0T//3
-        y31WFPTAD77T8zzv//0ETKvk5cY6+Ys+5JT3IrusF9ef9yCztAcyZTekJQZIig1If9YJ0eOWRva9BwCB
-        C5IbGf9Hoic6cnixy98C3LNYK0lSrP2FdmSUEDpIlTqMTc4jtVBLjvUuM0FanVnaTX5M2RyYtNkxMWOH
-        9bsdlqkFmJnRNDmH0Yk5JBe0ksPHZSa4AGlJF/mRodDySBQr7bJSHUassxDmt5Bjw+HYdEFotJgPWJOu
-        6OQCrNN2jE+z1uVmah21znHmrxYbku43ksM3NPqq4MBJER/gIX6q5wKk7Mw8XLMej6o+oFjTB1GuAmGn
-        pTgYdaWamQP2R6bxAWtpuyTz1Dy3LBNr/jY+ixHGMGtOlhfhnvI1BkzzyC1SYV9kakNIRAof4JnGtkuS
-        KfUrsPaHlUaU1fQh7JQY9YaPOBSVBlXbAILDkxaYz5vhTgFeyQVtXACdmc47bJnFkNmG/sExGArPwpgb
-        gm55MDqy9qJdshut4iCohYHa5RCBtzC/mQv4c4I7L7Uw3ggBJt7DaemAc7QZzuE3WPpUgTrhDpp/IxeQ
-        9KCRC3A1D5pn8Nk0A0P/F3TlBLPldGCpJgbKM/5YVJ+AoyoCby8GUIAfBay7cFP9LvFuAxLy6hGfV4fz
-        t2sRd6sWsVkV0Mv2sOYmLGpOIvuoD2d2VB6DOmErH+DG8GT4MmgkeriJsZkRpL22C84hDRzVkXCojjNz
-        OOyvjqDqnP/PI7DJ/wmTt/ryzqb6lEDUXNoOTeI2VMdvgSrOH+Uxfk30/q9GF0z0m2jTrslc0D17LnD/
-        AcNOfPqnudCoAAAAAElFTkSuQmCC
+        bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAKuSURBVDhPjZJbSJNxGMb/WVlpFllCZWQX
+        RgWCFEZC3hRGgqEoWUSaImQNRRsr52bqLrKDFIUZlpQ7JNadhNO18pTHz03nYRZ6U5lmm5vbTHdw0z3x
+        /3RTVhe98Fx8f3h+7/s+70cIIetEtdoW0ZsRlNQOo7hmGLdfD6FQNgShdBACiQb8ag3yX/WD+7yrnRDi
+        D4B4RMuPGv+nuC9U1BHgC1hfVLMM4Fcza9SLAgmVCgKpCtMWB3IrGerY6gvYUCgbZAGzVhcsVifM806Y
+        fjthnF2AweKA3mKHzmxHdkU3dQT9BRBIBlhAgZjxii9e7S6UqTBlsoFT3kUd206m5JPoJJ4XsDFf3M8C
+        THNOzMwtwLDSmXbVmeys+afRiqzH7dSxPTrpJolK4HoB/ryXahYgkPSuiu2sxrOGL6hWjoBbKkbMBQGO
+        J95ojErghh6Lz/MCNtF0aRlmHWxYerMdv2ZsmJqxYdJoRbaoCo+k7zGmd6C0So6j8bltkXE5XsCWvEqG
+        BQil6lXJ1Hhar0VN0whizvPQqvmKE4l5kPeMISI2a4EQEkgvSAEB2RU9LIDuTPedNNowYbBidHwamspL
+        0JZGYlAUgb6iI+jlH0I3LxwKThizAiGBnPLOf07w4C0D7Z1IwPwZbmMf3LpOuCc/YOlbHVo4++n8O1hA
+        1pN2FuDpPG6Yx3f9PDSjPzBQEgEY+rDUlAzpxRAsKs7B1RCHj1dDKSCYAjZfuav4lPmwDRllrUgva0Ha
+        /Wak3mtGSlEd1MLDcOs6sKhMQPHpINbsqj8DRcYeL8CPBknvuzISfdxJCNlFCAlnbh2Ee0IJV2M8XPKz
+        cNXHwvnuFBouhyyvsPa39BVdT3H9QEdrThiaru2DMnMvGtN3Q54agtrk4A42RF+TD4CeiSbtmcwj+s2e
+        8Q/DTnz6iAlGhgAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="tsitmDMSReadOnly.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0
-        bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAghSURBVFhHrVdpUFRXFo7Z1BiXxsyS2WeY
-        SVVSMTUz+UGKpCpVM/GHUybBAqPJyLjhAoJGRMVBMIKCLIIQUEdNJihImhhUkF1AFoMo0GwNNIuA7A00
-        3ayhgf7mnLc0PIck/Mip+qq57/Lu9517zj3nvicAWCHZAsKThKckPE14RsKzhIUSFklYTHiOsITwvISl
-        EpZJvzzP7/PaSk7FQLQnT6hrck+otQggHE+oIVTjk/gq+MVXwjeuAkevVMAnVoMjseXw/m85Dn1eikOf
-        leLgxQc4cPE+9l+4j4/P38O+c8XYe7YYrmfyC2ldFsgOKTkVA1HhU0z+Y9qeT+/y4isIvJtKTsVAEhCg
-        rqEhMDI+9YMYZoxNYYgxOgkjY8SMQYJh2IyHXUNwEwWsJHAYlJyKgSjgad5yNiXZpPVvgVSGRDw0NgmT
-        QD6JQSI2DE9gYMiMZhKwO7KIF3+BMC8Bzxy/WkXDGQHnM5pxLqMJZ9MaEZPaiOhUHaJSdIgkRCTX4fSN
-        WoRdr0VokhbBX9fg1FfVRD6BfkJTlwm7Igt58Z8QOImVnIqBJIATjk0WIGPGa/Z4ZttFz2nbBc/NVvI+
-        07do6jRh55kCXvynhHkJeNYvrpKGMwJEzxvI8wbJ83pE3KxD+I26Gc+v1SCIPA9MrMIJdSWRiwIaSIBL
-        hCDgZ7w2k8h8DOVAFLDQ9zEBDEW8Ja9ney54T14PECkT640T6DWOQ9dhwvbwfF785wRBgMJkcgYZF6CF
-        PnTO2WRya8yTKeazPf9ajHkQeR+YWI2ALyvgn6ChmlGOHsMYugZGUdc2iG1hebz4LwjzErDI57KG+UXP
-        yWsx5qLn8jEzkscM9pxjzl73GkbR0TeE9p5BtHQZ6AgOQNPQg83B2bz4r3ltJlGYTM4gEwRwhWMbkcgj
-        kynmhNOS5yFStnPMT1K8I5NrEJ/bgNh0DfaHqbHpUAzWuQbB2TMUXoGXsOHol7z4HwlcppljxmRyBhlP
-        Lvb+ooz5xZhbM90ME59xqcDI6KM4t3cbcSmpCLv8LyMxswTVjR1o7epHSVUjLqkzscHjJN5cuy160ZJl
-        L9L6HAbONcacAp47/LksQNx6jvnp61qEyDGXsv1UYqXguc/ZVByNvonW7gHEJuVil08U3nPxwxavUJyI
-        voqkrGJsPxiGN9buuEzrc4OyNqa5BCzhxsJmPeMMKd7yOddTzLsp5ndKG7HDPw4PO/vhGRyH/QEXkFlQ
-        hrrmdqTlPoC7byQ27w/C+YQ0rP7nYbxs7+BAHNwdxVDI5Awy7lbPe116wPxETIlG2/74Oee4+ydUIDa7
-        Hp4RN5GYVUoEGdh3/D942N6Ljl4jYYjCYICWwuHhFwnvoItw8/0Ur72zNZk4lhO4MS2YUwC3VDb5jA8I
-        dV2qbkY64+w9HbG2bgO2HotFfWsP1u0ORM7dSrRR7Dv1JhJgQluPEfUtPbieWYS1m70ReuErvLp6Vy9x
-        yGV5TgFLPamfs8lbzrVdrnB81o/Ha3CrpBVJ+Tqs9zqHzj4T7B0PoqK2GbqHXdC1dFMIOgXvy7TNyCkq
-        x9uO7jgXn4qX33E1EwcfSTEMMjmDjAUs48sEm9jRyHOprOrJe65u3QNjeETeNZRmIfDQFkR4rUPEAQe0
-        RL+B5ig7NEbaoSHcDvWn7VAbaoeaYDsEuTsgaI8DvF0cp0I3/smZeMT7gUzOkAQs33e+mPmt235SXUWe
-        U9yvVlCV08D3SimSChvQfPHvGH/0DTA1BkyOEoYBswmYMALfGgj9wLgeGOsBRrsIHTBpU1Hs+3o/8Yil
-        WSZnkHFiLOdrFJvc0TjmveR9zyB5TyX2kX4EujY92mJeJ9IRWPo1sHQX/DD0JbAYdSg58lcm+xVh4VwC
-        VrjHkFdk3NF42znjP7mqgV9cOd0Jy+DzxX2o82rRFGIreGt5lKbAbXUYNjqtpd/Q/5uz9GmQ72HLZGJp
-        lskZkgDVnui7zC/FnDw3sOfj1FzG0NE/Rtk9jDrK7rpjNrAM6jBdEwNLs9qKd9f8Dbar7LHF7QAsbanW
-        5/x/E2UhyNysYrLffKcAtyhRAJP3DnLB4c42jk4i7+gfRUu3CdqmLmh9SYC+DOZbqzGV64ype4cxXRGC
-        +PDdePNdF6SnJMLSnolpej6ZQ/MpqzFR4Il0Zxsm++13CVjhGlXE/NC1m1DfbkQdQdvGGIS2dRCVTX34
-        pqIF1f8mAb3FmEpfg+m0f2BKwBokHLXHS395GxmJkZi+6yE8m0qnOcJE/l6kfiTswO/mEiAUou2h2Xk7
-        zxRiR3gBXOgysT3sDraG5mFLSB611lw4B2Zjw7EbqDysgqWnANNZ7yvgtv7PsH3tLZw6FUDef4zpbGmO
-        fifyPZDyobADv59LADcIbhT8NcPXaL7H8VWKuxhfKBi/JLD6VeVeJKArB5ZcJ0wzcpxgIax6xRar3nof
-        jls9YakKpueONE+gOXO+G5I3CgL+QFj8uAA2FsE7wUK4XMqQP8kY3NdfLPW0AToyYLnzIWGj9EsoIDRd
-        AVqvCb88B3o+nfMBzHdcceODld8rYD7GuWJzb69q2JDnD3OhO8yZjgQnTGQR+O8sHjsKf1vHtz9C55X3
-        cM1p5Si9z8dQWQfmA8mEXPls/dJNBa6qvkJXFfJ3qpDnosLtbSpk0THL/JcK6ZtscIsSLoW2/OYGG/Lc
-        hsmHjtgv3U3vix8qc5F8HySbnSu8kJwjnB9c4dg7Pud81DhfOOF4yxk8x+/w/VDZjOYDyVjA7FyZnR8M
-        +dN9NvgznsHz/A5dSJ5Y8D930s+Hgv+wEAAAAABJRU5ErkJggg==
+        bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAgESURBVFhHrZdpUFNZFsefvWm37ZI4W88+
+        zcxU9dTYNTP9gS66q7pqpv1gl91igQqODC64gKAtouAgKKAgiyA0KKP2goAYtBFBdtlRQNkhQNiREAKE
+        kAQCJJD8p87LS0wwLXzoW/WvJDzePb9zz7nn3MsAYIzixgqGYV5hGOZVTq8xDPM6pzcYhlnJaRWnNxmG
+        eYthmNUMw7zNaQ2ntdwnPaf3aW6TPdamFYBXzgvaSs4LhAgRCBGU1oagtFacS21BYGozAlKacCa5Cf5J
+        jTid1AC/bxtw6ps6nPq6DievP8WJ609w/NoTfJlYg2NXq3H0SjXcL5dXcoDk0EsBiPBVMv5jjiNfPaLJ
+        13OruTRAiKCNfXF6dmFJTZFmFqAiqeehIE1rMTmthXxKiz6JCh4GgA1cGJYEeI2W/EWAeUuj5sbV81DN
+        zEPJGp/H5BQZ12BCpUWvRIXDsVU0+U+WC/B60K0WC4DE/F5cze/BldxuJOR0Iz5HhLhsEWKzRYjJ6sCl
+        zHZE3WtHZIYQ4d+34eKdVkyoNJCpNOiRKHEotpIm/ymXxEsDUMK9uALmXpPHz5fd4LmW81xrMj6unEPP
+        sBIHL1fQ5D9bLsAbgSnNFgAGz7sQn9PFed6JmPsdiM7seO753TaE3WlFaHoLzguaMa40AHQNK+EWwwL8
+        fLkAKwMWAVgkG8Wb89rcc9Z7lQYTyjnW8JhCg1HFLERiJfZHl9PkvzACWIxFAFSAVvonN1kAmGKeJbL0
+        /HtDzMPutiE0vRUht5sQnNaIc6kNkMpnIJlQo2NwEvuiSmnyXy4XYJX/zUYTAHltiLnBc+M2U0wZRJ5T
+        zMnrUbka4nEVhqST6JfI0SeZQGOXFK7hRTT5b7jKuTQAVTgWgDMem9WJmKxOXOI8j+CynWJ+QdCM2Kw2
+        pJZ0ISmvEcejBNh9KgHb3MPg4h0Jn9Ab2HnmNk3+R65Mk42XArzp9109C2BeYJRqLZS0x7kCY9S4YhZD
+        IwrcyKjCoeCbSC+oRWu3GAMSGWpbunFDUICdXhfw0ZZ98atWr32HCwPlGtsXrAG85fuNEcCw9BTzS/eE
+        iDDGnMv2i+nNrOf+V3JwJv4+BkYmkJRRgkP+cfjCLRB7fCJxPv4WMgqrsf9kFD7ccuAm16BMjckawGpq
+        LDRMe5xkzHQu5mPKOYzI1Sir68aB4BT0DcvgHZ6C4yHXUFBRj47eIeSWPIVnQCxcj4chMS0Xm/7ti/fs
+        7O257mgIxSIA6lZv+9x4ygIo1Fq2tC7e5xT34LQmJBV1wjvmPtIL65CYlo9jQf9D39AoxKMKiEdVGJDI
+        IewWwyswFn5h1+ER8BXe/3RvFsMw67jGtMIqALVUFoDb4xNsXeeqm2LO4P2EGoMjcuw9m4TOASm2HQ5F
+        8aNmDEpkGB5TQjyqxKBUgc5+Ke4VVGGLqx8ir93BXzcdGjUry1YB1nhfMwAYl5xqu7HC0V4PSm3Eg9oB
+        ZJSLsN3nKobHlbBzOImm9l6I+iQQ9Y+go3eY9b5e2IviqgZ84uCJq6k5eO9Tdy23JQ1hsAKwlg4TNAwd
+        TQMZV1bHFHNsdRuZmMEzqQJddYUIPbUHMT7bEHPCHv3xH6I3zhbdsbboirZF5yVbtEfaoi3cFmGe9gg7
+        Yg8/N4eFSKc/uZjOB1YA1h1LrGYBjMt+QdCCkNvNCL7VhHOpjQhIrkNGZRd6r/8Ls88eAwszwLwamJ8C
+        tEpAowDm5MCcDJgdA2akgFoCqMVQCnNQHfCBzFSaFwFQYqyjYxQNY0ejmI8q5iCdnMWIfAbPxqYhGhzD
+        YMIHwPw09LJG6EcqltZYLfQKEWpP/4OM/Zo9W1oBWO+Z8JgFoI5Gy04Zf+5WIwJTGhCQUg//755AUNqO
+        nggb1lv9s1wLPRREwclxCx4KIl94ph9vRLmXzfPSbAWAdyT+EQtgiPkcpHLyfBaSiRmIZTMYlE6ho1+K
+        jrN86CdF0LUlQN8rMOnzzf+EzUY77PE4Af1gjunv9H+a+ggUuPLI2G9/EMAjzgBAxkcnqeBQZ5vFsIwA
+        1OgfUULYI4EwgA/9WD20DzZhocQFCzW+0DVFIDX6MD763A152enQDxVAV+OL+WIXLGRvgqbCG3kufDL2
+        ux8CWO8eV8UCiIaU6BxSoGNIAeEgaRLCgUk094zjcVM/Wv/Lh360Ggt5m6HL/QwLrDYj7Ywd/vz3T5Cf
+        HgvdIy/2bwt5n7HSlB9Fzi52BX5vDYAtRPsji0oPXq7EgegKuEWXY39UGfZGlmJPRClcw0vgElqEnWcz
+        0ezLg15aAV3hVgt5bP8bbN7/GBcvhkBX8yV0Rdyzoq3QlHsh25ldgT9YA2DPhNxtho7RdI6joxR1MTpQ
+        kH7F0W9s8OFBLymGvsQROlKxI/TFjtj4Fxts/HgrHPZ6Q98SDl2xA3QlDuxzbbkHspxYgHfZW9UiACME
+        rYTxKmaU8UpGor7+Tp03HxDnQ1/mDH2ZE/fpDH2FM/Q9ycDAXfaTnqHMGbriHdCWuSNzx4aXAixnUK7w
+        a47ypuSlwdBWekJb4ABtgSM0hY7Q0PdC+u3Afjf9frgLw8lf4K7jBjW3DS3rwHLEDTZXvt6+ZneFO2+8
+        0p2H8oM8lLrx8HAfD4WuPBT8h4e83Xw82MVDthMf93fykbmDT8ZVp+3WHDZdVBYbWErcMM8VmsiYI5Qf
+        VOHIO9rntNUoXyjhaMlJ9IzeofOhZTNajswAzHPFPD/Mr+7moms8iZ7TO3QgWfF/d9LPh1Zne6oAAAAA
+        SUVORK5CYII=
 </value>
   </data>
   <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -542,133 +543,127 @@
   <data name="tsmiFileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAANdJREFUOE+lk7ERwyAMRT2KR/AM9AxAl1GomMK9t/AKHoSCjlbRJ8DJseU4ie6+
-        Dwv+k4BjIKK/9PookXP2rMSiKoyRGzF/CeBF27qu5JwjY0zRPM8N8gBEBfCkh7kZoRCCNJdOrgBJVn43
-        t05UQIxRq54wRo7HbL0JaJBmhlQAT0yYtNbuAFLYHro5AKq5t6kJB8zr9oeomWUnqFzNGzwdwInxzIx/
-        zkuV6ysVOSTAL8tyZoZhqusPsQPgbr8xIySgbAFdQHfMiA5AVAgeSn8sn6IDfhcNT8nYEsuIPk+EAAAA
-        AElFTkSuQmCC
+        vAAADrwBlbxySQAAAM5JREFUOE+lk80NhCAQhS1lS7AG7xTgbUvxRBXc7cIWLMQDt3edzXMZwiqDbpzk
+        EQJ53/wQOhHpnui7GAFgAhABSBL3PHvxvgkAsC7LIuM4yjAMu0IICnkTYgKYhWY1Ut770rxX0gLEMvPR
+        rJWYgG3brOyRe55xJrcBClFzEwCg56Vz7gRRsb1qC8mcy7TEAZ+GaJnLSpg5mVd6MoBvWjOn4ZXan08r
+        LgHTPM81Mw197vEQPwC+7T9mxqkFVkHdMTOOQySEHyV/lqvIgCf6AMnYEsuFQTeyAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsmiFileOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5
-        D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4
-        sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA
-        cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
+        vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
+        wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
+        jQxf0w+v3zQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="tsmiFileFolderOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N
-        zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
-        3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
-        CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
+        vAAADrwBlbxySQAAALJJREFUOE9jYCAAvn37ZvDt27f33759+48No6tHATDNbW1t/52cnDAwigHoJsMw
+        SHNzc8v/D+8/omCsBqDbAMLImmFieA1AtwkXpp4ByP4l2wB0f+PD2Aw4n5+fj6EQFz565CiGAQ3Lly/H
+        UIgL9/X1YxhgcOXKFQyFuHByUjKqAdAYeB8ZGYmhGBe+dfM2hgHzcSVXbHj9uvUYBiTs27cPQyEhjGyA
+        AHJ6IAUz/P9PGQYA1rmAbIddbfAAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="tsmiFileInWorkMultiple_Lock.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9
-        Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE
-        8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH
-        4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ
-        y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8
-        htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh
-        Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR
-        swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU
-        JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
-        H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
+        bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
+        05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
+        w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
+        FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
+        43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
+        ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
+        IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsmiFileInWorkMultiple_Free.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9
-        Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE
-        8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH
-        4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ
-        y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8
-        htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh
-        Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR
-        swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU
-        JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
-        H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
+        bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
+        05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
+        w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
+        FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
+        43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
+        ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
+        IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsmiFileInWork.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9
-        Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE
-        8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH
-        4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ
-        y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8
-        htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh
-        Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR
-        swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU
-        JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
-        H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
+        bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
+        05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
+        w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
+        FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
+        43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
+        ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
+        IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsmiFileLink_Add.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1
-        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAFkSURBVDhPY/j//z9FGKsgKRir
-        ICkYqyApGKsgKRhMdMzZ4QvEC4H4cf3UjY9LO5cvTK+d5UtIDmwAUCJ04eZTz68/fPv/L1Dk4/f//7cf
-        ufG/uG3R87zmhX245Dzi60NhBmy69+zT/8LmOYcEtXyv6LimX5m0/PCjRVsv/5+1/syv9QduAenTnyWN
-        Q66B5GonrD60cOPp/xZBRZtgBnwBMv5zq3ne13BM1pq3+dJZEP/7v///n338///K41//j1///J9fy7c3
-        LK9Xq2nG9vvHr73/r+mcAtLHwAD016bT1579z2+aewio4Er9tC1X+DR9fnOquP+HYV2XlGcwuSnLjxzq
-        mLPzv4x5BMQFpV3LQ5umrn++csf5/yeuvf6/+/TT//VTN/+3DCp+7pPS3IdLDuhdSBiAiIj8Xl+PhPqF
-        QH891nROfgw0faGgji84pPHJwQ2gBGMVJAVjFSQFYxUkHv9nAAD1UMkwC2hGngAAAABJRU5ErkJggg==
+        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAFwSURBVDhPY/j//z8DJRhDgFSM
+        IUAqxhAgFWMIkIrBRMecHb4dc3Ys7Jiz43H91I2PSzuXL0yvneVLSA5sQMecHaELN596fv3h2/9/////
+        //H7///bj9z4X9y26Hle88I+XHIe8fWhMAM23Xv26X9h85xDglq+V3Rc069MWn740aKtl//PWn/m1/oD
+        t/7PWn/6s6RxyDWQXO2E1YcWbjz93yKoaBPMgC//////z63meV/DMVlr3uZLZ0H87//+/3/28f//K49/
+        /T9+/fN/fi3f3rC8Xq2mGdvvH7/2/r+mcwpIHwND/dSNm05fe/Y/v2nuobC83iv107Zc4dP0+c2p4v4f
+        hnVdUp7B5KYsP3KoY87O/zLmERAXlHYtD22auv75yh3n/5+49vr/7tNP/9dP3fzfMqj4uU9Kcx8uOUEt
+        X0gYgIiI/F5fj4T6hRZBRY81nZMfy5hHLBTU8QWHND45uAGUYAwBUjGGAKkYQ4BUDAD1UMkw9LweUAAA
+        AABJRU5ErkJggg==
 </value>
   </data>
   <data name="tsmiFileLinkRemove.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAH1SURBVDhPpY5BiFJhFIWN5wRNq3ZDEDGLhBZCuok2
-        mjONC/UlunmuguiJpbYwq9EUSsFZCAYq6CoXrUTQVoXGGGhuIrKVhYs3gxQhRRo0jTaZp/+6eJU8COmH
-        Dy7nnnP+qwLwXyiKi6AoLoKiuAjyYDAYjnq93luJRGJQKBQQjUZ7fr//LGOFzRJptCMPef8q0Ov1h202
-        WzKdTqPf70OSJDQaDcRisZ1IJNLsdrtj0lqtFshDXsrIBTqd7mIwGPzS6XQGLpfridVqnbjdbmQyGYTD
-        YdBMGu2KxWKPvJT584JkPB4fZbNZj91uXzYajV/r9Tra7TaazSbK5TJIox15yEsZuUCr1V7zeDzDXC53
-        0+l01kwm04HZbIbD4ZhBM2m0Iw95KSMXnGaP5/m3qVRqWCqVPlcqFeTzeQQCAYRCodlc3fLimXDy5/ba
-        Eh6Zlw8emo7clws0Gg3HTjxjsVh2RVHc8/l8I8Z3QRAuMdZzl83j18FzGD1OYfqmim/FG3jp006erquv
-        zwr+Re0CJ+2zMDI8sHkM2FrFp+R5MH1HMTDP9pp6On1VYePvN7y7AtIVA/PUNrh3ew+uACw0vq3CgNG7
-        yoHp7xUD8zwXjt97IZ768WFzFR/DS5DEQ6jz6kl1g7ujGFCiJZwIsR936Wy6iMIAVL8AJPOUchRWzukA
-        AAAASUVORK5CYII=
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIBSURBVDhPpZFPiBJxHMWNcYO2UzcJIvaQ4EFIL9HF
+        yd3Vg38SvYynIFIsZzqYtas5sCm4B8FABT3loZMI2mnDiTXQvERkJwsPs4sUIUUatKVt5ovvHmRj7CD9
+        4MGX9/28xxd+KgCq/5HCWFQKY1EpjEU1G0wm0+lgMHgvmUwOisUiRFHsCYJwSRAEjSiKMnm0I4bYvwqM
+        RuNJh8ORymQy6Pf7kGUZjUYD8Xh8LxaLNbvd7pi8VqsFYoilzKzAYDBcDYfDXzudzsDr9T612+0Tv9+P
+        bDaLaDQKmsmjXalU6hFLmeMXpBKJxCiXywVcLtcyy7Lf6vU62u02ms0mKpUKyKMdMcRSZlag1+tvBQKB
+        YT6fv+vxeCSz2XxotVrhdruPRDN5tCOGWMrMCnQ6nc7pdL5Lp9PDcrn8pVqtolAoIBQKIRKJHM217SCe
+        c+d/764u4Yl1+fCx+dTDWYFWq2VYlr1os9n2fT7fAc/zI57nf3Icd43juLX8dev4TfgyRjtpTN/W8L10
+        B694/eTZmvq24l/nSVpn5B87aSDrBDbPANsr+Jy6Ammd2VPA87S7qp5OX1dx/A23NCBfAc+TZGHeHzy6
+        AWxpMN5QYbChQu8mA8nCfFDA8/SCO/vgpe/Cr4+bK/gUXYLsO4G6Uz2pWZj7CvhfanHnIpKF2aez6SIK
+        k/8HJPOUclZMYfYAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="tsmiFileLink_ShowAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKdSURBVDhPpZLfS1NhGMeD7uqi/0Lozr/AodmITTG9
-        SK/yxjHQK1srRZEQRd0UczpdCBaSZg6dIY7mcbqzzenc3BbL6dGzXxrhj+VGBVIJ3573vRCqc9eBLzw8
-        5/t+nh/vew3Af+mfxPb29stgMPjL7/fD4/FAEAQ4nU4sLCzAbre/+dt/FcRisVvhcNguyzKOjj5DTmUh
-        y2kcMB2kkMudY2pqiqwKgGg0ei8UCn1Kp9M4PT1FcCuK9UAIPv8WRN8mRHEDe5KMiYkJsisA6DBOTk64
-        stlD+Onw2JgNVusohodHMDRkQWL3ADabjewKgEAggHw+T4ezSCaT8LKq3k2siQGsrq1DcPuwk9gn0BDZ
-        FQBsWblcDplMhuZOwkMts6qDg4MYGBiAyWTCxx0JZrOZ7AoAtmkGYDuQpH2qGsDKqh/Cig8uQcR7lwfx
-        +C66urrIrgBYWlrigFQqhb09ibe8LHjhWhbxevMVHry9jw8E6OjoILsCwOFw4OzsjM8ficRgHX2B3t4+
-        vnXjs8coM5dhYyOMtrY2nuvu7j5vbGw0lpSU3OSAmZkZfn2SJNG8Zr6s4+NjDhRFET09fbSP50gkEjzH
-        HhnzVFRUmDhgcnIShUIBs7OzaG1tRSQexyODkRmg0+lgsVh4nsVarfayrq7OySAGg6HAAePj48HFxUW0
-        t7ez9jjA8c6F8vK7cLvdNFYEXq8Xc3NzUKlU36qqqm4wQGdn5wUHMNGVaevr67NNTU0cYHzylADlUKvV
-        qK6u5mJxaWnpz5qaGhcD6PX6/BWA6TZ9RD/s7++/nJ6exvz8PL3IMTQ3N6OlpYXHLEejfqH3ka+srNz9
-        A1BUVHSdWizWaDTphoaG79TNBelHbW3tQ9Idir+yHPvHPCqVqvg3IL7f2GaRecUAAAAASUVORK5CYII=
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKeSURBVDhPpZLfS1NhGMeD7uqi/0LYXX+BQ1sSTll6
+        0bzKG0XwXNlaKYqEKOrmOG2mWwgWkmYbOkMczeN0Z5tnzjO3xXLz6Nnm0Qh/LDcqkEr4xvteCNa56+KB
+        h+/75fM87/d9rwG49j/1j7C1tfUqFov9jkQiCAaD4DgOPp8PCwsL8Hg8b//2XzapVOpWPB73yLKMw8Mv
+        kPMKZLmAPVJ7eRSLZ5ienoYqIJlM3hNF8XOhUMDJyQlim0msCyLCkU3w4Q3wfBQ7kozJyUl1gCiKOD4+
+        pqUoB4gIIpxOF8bGxjE6+gJ2uwOZ7B5cLpc6QBAElEolKIqCXC6HEJka2sAaL2B1bR1cIIztzC7sdrs6
+        gIRVLBaxv78PWc4hyEfpVJZlYbPZYLFY8GlbgtVqVQeQpAmAZCBJu1hdE7CyGgG3Eoaf4/HBH0Q6nUV/
+        f786YGlpiQLy+Tx2diS68jIXgn+Zx5uN13jw7j4+prPo7e1VB3i9XpyentL7JxIpjI2/xNDQME3d/Owx
+        qq3ViEbj6O7uptrAwMBZe3u7ubKy8iYFzM7O0ueTJAkWi5WGdXR0RIE8z2NwcBgs+xyZTIZq5JMRT11d
+        nYUCpqamUC6X4Xa70dXVhUQ6jUcmMzGgtbUVDoeD6qTX6/UXTU1NPgIxmUxlCpiYmIgtLi6ip6eHrEcB
+        3vd+6HR3EQgEkEgkEAqFMDc3B61W+91gMNwggL6+vvPLMFiW1Tc3NysMw1CA+clT6HQ61NTUoKGhgRbp
+        q6qqfjU2NvoJoK2trXQlUY1GozEYDAcjIyMXMzMzmJ+fh9PpREdHBzo7O2lPNLfb/dVms5Xq6+uzVwAV
+        FRXXtVrt7dra2kJLS8sPhmHOGYb5aTQaHxqNxjsMw3wjGjkjHuL9AyC+39jyjLzPAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsmiFileVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
-        gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAD5JREFUKFNj+Pbt239kzEAIgBQ5OTmBMbpmbBisAaYJmY0N49SAD2NoQHcyBsAw
+        gRAgSwPtQ4lY01E00CyUACCLQ+x+SQerAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsmiFileRightsShow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAIhJREFUOE+lkUEOABEMRZ3NXuImjsxiZjb2th01JUgzNCQP+dWXQAHAEWwogQ0l
-        sKGEb/oZKSWb8RkgcG+xthTgwRgjOOdAa13APWZYawIys/TNvSTX/CCYD/UYY+C+nkLNsOdIEEIYBVXS
-        r8jWFejBWmNdM3uPWAUzlK+/8QQ2lMCGEthwH1AvkxW67ZxkSbQAAAAASUVORK5CYII=
+        vAAADrwBlbxySQAAAIdJREFUOE+lkUsOgCAMBT0bexJuwpFloW7Yv21NkZpqjdpAMkAeZcJnIqJpBBN4
+        MYEXE3g5upcGIAGYAVCH54nXPgVcWGulnDOFEBo854zXToGyG/RmLeGTXAT3Ik2MkdZla0jGe4YEpZSr
+        QCR6/H2F/mBPgn+PKII78hOf3ziCCbyYwIsJvOyTFbrtUYzbVAAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="tsmiFileDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -718,29 +713,31 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABQxJREFUWEfFlllMo1UU
-        x9siUBhoZQcHKCAlA2TYWnYoUHZoacu+BwhL2VogrLLvTciMcR4mMRGMxolL4jJPk8zLxJd5caLxASf6
-        MMZRY6JIIqNONJTr/35JSefr/RxIDJL8Avy/c+8599xzzveJCCH/K0zxImGKF8npH93d3eLd3d3Ivb29
-        3eXl5V8WFhYOV1ZW9ldXVydyc3MDnBedl+npaY+tra2g4eHhiKSkpJfc3Nx8HM9OjVpaWi4NDQ29Asf2
-        tbU1AsdkaWmJbG5ukt7e3g+Tk5PVWq1W4rA/C3AoHR0dTcI+q+Cb5ubmX5VK5R0EoHPYnBrX1dV5pqen
-        D42NjR3v7OwQGgQNYHFxkQvCarU+rq6ubs3IyHhuEHAqHh8fvzo7O2vDXkdzc3MkKyvrc7FY3C8Sibyd
-        bZ9ZKJVKI/M1mk+w8Nhms5Ht7W2yvr5ONjY2OCYnJw8KCwsHPT09T1PIZ2RkJBDBmhH8Q7q+vb39MDg4
-        +FU4VrDsXQSZTK7QG00r/QPmB4jcTgOhGcA9kvn5eZoJolarb8jl8lD+Wpw8a2Bg4BZOT5B+euovJRJJ
-        C5yL+bYOmCJFb6xPqG9oslms1u9QlNyVTE1NkZmZGS6IvLy8DxQKRSS1nZiYkPb39/c1NjZ+1draSoxG
-        I4mKivoIjlX8ffkwRQd6Q527zmCqMJpM74yMjh7jCojZbCZdXV2kra2NFBUVvWcymbT4/1pZWdkfVVVV
-        pLi42B4aGvo6nF9m7cmHKfLJzcsLLNRqNxDIE+q8oaGB1NbWkvr6ejsK87FGozlBACQnJ+eJv7//MtL+
-        ImsfFkyRhSojwztWqTSr1ap9nJJUVFQQOCYqlYo6JmjThyjObpxcylovBFMUAvNAkp2dU5KamvotCowW
-        IxdAZmYmCQ8P/xjIWev+DaYoBIaULybmDpw/pQFUVlYSeu80A5gPvyMYi6+vrztrrRBMkYXFYgmD87cK
-        Cgr+ys/PJzU1NbQTfkYWHtEgqJadnX2A9jydcmeBKfJBf0d2dnbehsMTvBdo8dEOOPTw8OjDdLuK+7+r
-        1+tPaE1g1j/AQItg7cOCKTqDHr/c09NzGxOQSzUcEVT8U6R6HQXHpRuBvAzHdwwGwwm9lsTExNfQCc+M
-        XCGYogOcXI6+f7e8vJwg9USn0xH8fRIUFPQGnF9ytsULJjotLe1uU1MTKSkp+Q1XYXB+LgRTpCDlUji/
-        jlPZkW6u4Oi9R0dHfwrn4aw1CCIBdfAZHVLolHu4niCWnTNMkYJXb3dHR8eftOdLS0u51OOuf4STIpa9
-        Ay8vrwIE+z29DgwlC8vGGaYYEhJyBYNmH5vQ0cqlnk469PmbLHs+gYGBQxjRf6M1v0AtMLPlgCnGxsbO
-        0kqnp6YTj/7GZj9FRERoWPZ84FQaFxf3Nr4xiJ+f3wDLxoGLgBZSoKfvoQa4txoNANdBEhISbsXExLjx
-        7YXAPnEo2EeohfsISHBCughIXzU+nY76+voIPQFeNiQlJeVAJpOV8W2fB65yDFd3hFooYT2nuAhY1ILi
-        sw8ODhIEQtuOpvF9nELwK0gId3f3UAyu+/gOvM56TnERfHx8EHTZIc0AfeXGx8f/AOdVfLuzgB+Jt7d3
-        c0BAwE28KWVMGxdBJPLFB8U8+vnrsLAwWsVWaGeaaiwwCzxAOPbwZD13EThRJHoBKMEVcK6323lhig7w
-        I/gx+V/BFC8SpniRMMWLg4j+AZFhAokn1Yy0AAAAAElFTkSuQmCC
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABWpJREFUWEfFll9MU1cc
+        x8+9d7RXpHSWYsssII4SxdhaW68t/V/wtlBqWwtSUBpq+FMol0KDWEZtqaCSNLpsD0uWDJctM/uT7I9P
+        Jr6Yvfgys2UPzmwPLnNblmyOZLrNbBHOcpqUwLktarKxh0/afH/fc+7v/s45v3sAhBD8n/CEzYYnbDar
+        f8LhMLG4uFhz+fLlxXQ6/UsymVyanZ29nclk4kajsQIf+CxMTU0Jzp8/XxmNRqtVKtULFEWV5WOrpu7u
+        7q0jIyMvJZPJ5bNnz8JMJgNTqRQ8d+4c7O/v/1CtVuscDgeJT74R0WiU5jhOlUqlMqlU6ptgMPirUqm8
+        RlFUOy+BQCAgPHjw4Mj4+PjjbDYLURIogTNnzuSSiMVi99xudw/DME9MguM4YmJiYl8ikVjIZrMPpqen
+        oV6v/5wgiEEAQOla77qBNE3XmC2WTxKJxOOFhQV44cIFODc3B+fn53NMTk7et9lsw0KhcLWEOKOjo9JY
+        LBZJpVJ30PgTJ04sbd++/WUAQC3u5SWAKC8X13p8/tnBocit6enpZZQIqsDU1BScmZlBlYA6ne5VsVgs
+        x8dyHKcfGhq6MjExAaPRKHrrL0mS7AYAELi3aAJ5PL6Oxo7OroWxWOy7dDqdW5JTp07B06dP55IwmUwf
+        1NbW1iBvPB6nBwcHB44dO/ZVT08P9Pl8cOfOnR8BALT4vDg8YV0S3kBJu9fv8vn974xy3OPJyUkYiURg
+        X18fPH78OLTb7e/5/X5HX1/fRZZl/2hra4PNzc3Lcrn8dQDADny+QvCEQhhNJqnN4Zj3+f0P0cM7Ozvh
+        0aNHYUdHx7Lb7b5nsVhWWJaFTU1NDyUSSZokyefxOYrBE4qhZZjSeqUyotNpbzc3N0OXywUtFgvUarXo
+        wVCtVt8RCoVhAACNj90InrAR/f39pMHQ1KLRaL7V6/VoM+YSOHToEFQoFB8rFAoxPuZJ8ISNSCaTonA4
+        nNXr9Y9QAq2trRCtO6oAwzC/a7XaMZFIVIKP2wieUIyxsbGqcDj8ltVq/ctsNsMjR46gk/CzTqe7i5JA
+        msFguC8Wi1e73NPAEwrBcVxNKBS6ajKZVoxGI9p86AQsCQSCAYIg9qnV6usej2cF7QmVSnWLpulqfI5i
+        8ASceDy+4+TJk1dtNluu1B6PB7Is+0gkEs0BAHLlFggEL6pUqmter3cFLcvevXtfIUlyXcstBk9YC8dx
+        4kgk8q7T6YRWqxW2t7dDp9O5UllZ+QYAYOtaL0VRdQcOHLje1dUFW1pafhOLxV58vkLwhDyhUIiORCKX
+        vF7vst1uz204tO51dXWfAgAUuB9BUVSjwWD4DDUpjUZzgyCIStyDwxPyOByOcG9v75/ozB8+fDhXerVa
+        /SNFUXbcu5YtW7ZYW1tbv0fLIZFIxvA4Dk9AyGSy3S6X67bX60WtNVd61OkUCsWbuLcQUql0xO/3/80w
+        zBckSRasVh6egKivr0+gnY7eGnU89MswzE/V1dUW3FsIkiTphoaGtwOBANy2bdsQHl8LT6BputZsNt8I
+        hUK5rxpKwOFwwMbGxiu7du2icH8xaJpucDqddzUazU2SJIt2SJ4glUrdwWDwwcDAAERv4Ha74f79+++X
+        l5ezuPdJyGSycZZlH0gkkhY8locnyGSy7t7e3uXh4WEYDAbRsUNlfJ8kyaK3oGKUlJTIjUbjTaVSeQmP
+        5eEJZWVlLMuyS6gC6JO7Z8+eH0iSbMN9TwMAgCwtLQ1WVFS8JhQKy/F4zsMTABDJ5fIZg8HwdVVVFdrF
+        Mfwi+SwQBCEgCEIBABDiMQRPyIkAPAcAUAIAdufb7X8FT1gX3OAy+W/BEzYbnrDZ8ITN5h+RYQKJ3ylc
+        BwAAAABJRU5ErkJggg==
 </value>
   </data>
   <metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -752,10 +749,10 @@
   <data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5
-        D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4
-        sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA
-        cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
+        vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
+        wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
+        jQxf0w+v3zQAAAAASUVORK5CYII=
 </value>
   </data>
   <metadata name="TimerFileHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -808,11 +805,10 @@
   <data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAANdJREFUOE+lk7ERwyAMRT2KR/AM9AxAl1GomMK9t/AKHoSCjlbRJ8DJseU4ie6+
-        Dwv+k4BjIKK/9PookXP2rMSiKoyRGzF/CeBF27qu5JwjY0zRPM8N8gBEBfCkh7kZoRCCNJdOrgBJVn43
-        t05UQIxRq54wRo7HbL0JaJBmhlQAT0yYtNbuAFLYHro5AKq5t6kJB8zr9oeomWUnqFzNGzwdwInxzIx/
-        zkuV6ysVOSTAL8tyZoZhqusPsQPgbr8xIySgbAFdQHfMiA5AVAgeSn8sn6IDfhcNT8nYEsuIPk+EAAAA
-        AElFTkSuQmCC
+        vAAADrwBlbxySQAAAM5JREFUOE+lk80NhCAQhS1lS7AG7xTgbUvxRBXc7cIWLMQDt3edzXMZwiqDbpzk
+        EQJ53/wQOhHpnui7GAFgAhABSBL3PHvxvgkAsC7LIuM4yjAMu0IICnkTYgKYhWY1Ut770rxX0gLEMvPR
+        rJWYgG3brOyRe55xJrcBClFzEwCg56Vz7gRRsb1qC8mcy7TEAZ+GaJnLSpg5mVd6MoBvWjOn4ZXan08r
+        LgHTPM81Mw197vEQPwC+7T9mxqkFVkHdMTOOQySEHyV/lqvIgCf6AMnYEsuFQTeyAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1097,10 +1093,10 @@
   <data name="BarButtonItem15.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5
-        D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4
-        sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA
-        cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg==
+        vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
+        vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
+        wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
+        jQxf0w+v3zQAAAAASUVORK5CYII=
 </value>
   </data>
   <metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -81,7 +81,7 @@ Public Class frmNodeNavigation
     Private Property ChildNodeGuid As Integer = 0
 
     Private Property ClassNodeCommands As ClassNodeCommands
-    Private Property ViewerInit As Boolean = False
+    Private Property DocViewInitialized As Boolean = False
 
     Private PA_NODE_GUID_STAMM As Integer = 0
     Private PA_NODE_CONFIG_USER_STAMM As Integer = 0
@@ -121,8 +121,7 @@ Public Class frmNodeNavigation
             CONFIG.Config.TreeListSplitterWidth = SplitContainerTreeList.SplitterPosition
             CONFIG.Config.DocumentViewerSplitterWidth = SplitContainerDocView.SplitterPosition
             CONFIG.Config.DocumentSearchSplitterWidth = SplitContainerDocumentSearch.SplitterPosition
-            CONFIG.Config.DocumentViewerShown = Not SplitContainerDocView.Collapsed
-
+            CONFIG.Save()
         Catch ex As Exception
             NNLogger.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
@@ -142,7 +141,7 @@ Public Class frmNodeNavigation
             If CONFIG.Config.DocumentSearchSplitterWidth > 0 Then
                 SplitContainerDocumentSearch.SplitterPosition = CONFIG.Config.DocumentSearchSplitterWidth
             End If
-            If ViewerInit Then
+            If DocViewInitialized Then
                 SplitContainerDocView.Collapsed = Not CONFIG.Config.DocumentViewerShown
             Else
                 SplitContainerDocView.Collapsed = True
@@ -178,7 +177,7 @@ Public Class frmNodeNavigation
                 SplitContainerDocView.Collapsed = True
                 DocumentViewer.Visible = False
             Else
-                ViewerInit = True
+                DocViewInitialized = True
             End If
         Catch ex As Exception
             NNLogger.Warn($"Error while init DocumentViewer: {ex.Message}")
@@ -367,6 +366,9 @@ Public Class frmNodeNavigation
         Dim oParentNode = e.Node.ParentNode
         Dim oLoadRecordData As Boolean = True
 
+        NodeGroupEnable(True)
+        Record_Group_Enable(False)
+
         If ENTITY_TYPE = "Personal file" And oNodeConfigId <> PA_NODE_CONFIG_USER_STAMM Then
             oLoadRecordData = False
         End If
@@ -424,7 +426,7 @@ Public Class frmNodeNavigation
             Await Show_Selected_Record_Data(CURRENT_RECORD_ID, oLoadRecordData)
 
 
-                Show_SelectedDoc(True)
+            DocView_DisplaySelectedDoc(True)
             ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
             CONTROL_HANDLING()
 
@@ -434,7 +436,6 @@ Public Class frmNodeNavigation
                     bbtnitmRecSave.Enabled = False
                 Else
                     bbtnitmRecEdit.Enabled = True
-                    In_Visible_Record_Group(True)
                 End If
 
             End If
@@ -444,8 +445,9 @@ Public Class frmNodeNavigation
                 bbtnitmRecSave.Enabled = False
                 btnCreateNewNode.Enabled = False
             Else
-                bbtnitmRecEdit.Enabled = True
-                In_Visible_Record_Group(True)
+                Record_Group_Enable(True)
+
+
                 ' btnCreateNewNode.Enabled = True
             End If
 
@@ -591,8 +593,8 @@ Public Class frmNodeNavigation
                 bsiInfo.ItemAppearance.Normal.BackColor = Color.LightGray
         End Select
     End Sub
-    Public Sub Update_Notification_Label(visible As Boolean, pMessage As String, pColor As String)
-        bsiNotification.Caption = pMessage
+    Public Async Sub Update_Notification_Label(visible As Boolean, pMessage As String, pColor As String)
+        bsiNotification.Caption = pMessage + $" - {Now.ToLongTimeString}"
         If visible = True Then
             bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
         Else
@@ -605,6 +607,8 @@ Public Class frmNodeNavigation
                 bsiNotification.ItemAppearance.Normal.BackColor = Color.Yellow
             Case "Blue"
                 bsiNotification.ItemAppearance.Normal.BackColor = Color.LightBlue
+            Case "Lime"
+                bsiNotification.ItemAppearance.Normal.BackColor = Color.LimeGreen
             Case Else
                 bsiNotification.ItemAppearance.Normal.BackColor = Color.Transparent
         End Select
@@ -615,6 +619,7 @@ Public Class frmNodeNavigation
             bsiDocID.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
         Else
             bsiDocID.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            Exit Sub
         End If
 
 
@@ -966,14 +971,14 @@ Public Class frmNodeNavigation
 
             Dim oDocumentsFound = Await RUN_DOCSEARCH(True)
 
-            If ViewerInit Then
+            If DocViewInitialized Then
                 If oDocumentsFound = 0 Then
                     Close_Document_Viewer()
                     RibbonPageGroupDocResult.Enabled = False
                     SplitContainerDocView.Collapsed = True
                 Else
                     RibbonPageGroupDocResult.Enabled = True
-                    SplitContainerDocView.Collapsed = False
+                    SplitContainerDocView.Collapsed = Not CONFIG.Config.DocumentViewerShown
                 End If
             End If
 
@@ -1199,7 +1204,6 @@ Public Class frmNodeNavigation
     Private Sub TreeListDevexpress_ParseFindPanelText(sender As Object, e As ParseFindPanelTextEventArgs) Handles TreeListDevexpress.ParseFindPanelText
         ' Exit if the search text is empty
         If String.IsNullOrWhiteSpace(e.FindPanelText) Then
-
             Return
         End If
 
@@ -1331,21 +1335,35 @@ Public Class frmNodeNavigation
     End Sub
 
     Private Sub pnlControls_Enter(sender As Object, e As EventArgs) Handles pnlControls.Enter
-        In_Visible_Record_Group(True)
+        Record_Group_Enable(True)
+        NodeGroupEnable(False)
     End Sub
 
     Private Sub pnlControls_Leave(sender As Object, e As EventArgs) Handles pnlControls.Leave
-        In_Visible_Record_Group(False)
+        If RECORD_ENABLED = True Then
+            If TrySave_Automatic() = True Then
+                DisableEditMode()
+            End If
+        Else
+            Record_Group_Enable(False)
+        End If
+
+
     End Sub
 
     Private Sub GridControlDocSearch_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlDocSearch.MouseDown
-        In_Visible_Record_Group(False)
+        Record_Group_Enable(False)
+        NodeGroupEnable(False)
     End Sub
 
-
-    Sub In_Visible_Record_Group(oBool As Boolean)
-        RibbonPageGroupRecord.Visible = oBool
+    Sub Record_Group_Enable(oBool As Boolean)
         RibbonPageGroupRecord.Enabled = oBool
+        If oBool = True Then
+            bbtnitmRecSave.Enabled = False
+        End If
+    End Sub
+    Sub NodeGroupEnable(pBool As Boolean)
+        RPGNodes.Enabled = pBool
     End Sub
 
     Private Sub bbtnitmEditRec_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecEdit.ItemClick
@@ -1756,6 +1774,7 @@ Public Class frmNodeNavigation
         Finally
             sw.Done()
             bsitmtInfoDoc.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            Update_Notification_Label(False, "", "")
             If pShowSplashscreen Then
                 SplashScreenManager.CloseOverlayForm(oHandle)
             End If
@@ -1810,15 +1829,10 @@ Public Class frmNodeNavigation
     End Sub
     Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
         Try
-
-            Dim oDocuments = Current_DocList.SelectedDocuments
-
-            Dim docId As Integer = oDocuments.First.DocId
-            If docId = 0 Then
-                MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
+            Dim oDocID = Focused_Row_GetDocID()
+            If oDocID = 0 Then
                 Exit Sub
             End If
-
             Dim ComboBox As ComboBoxEdit = sender
             'Dim ItemComboBox As RepositoryItemComboBox
             'ItemComboBox = sender
@@ -1829,11 +1843,20 @@ Public Class frmNodeNavigation
             End If
             Dim configId As Integer = item.ConfigID
 
+            Dim mainView As GridView = GridControlDocSearch.MainView
+            Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
+            Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
+            'Dim configid = detailRow.Item("CONFIG_ID")
+            Dim oHeader = detailRow.Item("HEADER_CAPTION")
+
+
             Dim user As String = USER_USERNAME
 
-            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configId, value, user)
+            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", oDocID, SELECTED_NODE_RECORD_ID, configId, value, user)
             If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                 MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
+            Else
+                RefreshDocValueinDatagrid(oDocID, oHeader, value)
             End If
 
         Catch ex As Exception
@@ -1844,7 +1867,10 @@ Public Class frmNodeNavigation
 
     Private Sub OnDateSelectedValueChanged(sender As Object, e As EventArgs)
         Try
-            Dim oDocuments = Current_DocList.SelectedDocuments
+            Dim oDocID = Focused_Row_GetDocID()
+            If oDocID = 0 Then
+                Exit Sub
+            End If
             Dim DatePicker As DateEdit = sender
             Dim value As DateTime = DatePicker.EditValue
 
@@ -1857,7 +1883,6 @@ Public Class frmNodeNavigation
                 NNLogger.Error(ex)
                 oldValue = Date.MinValue
             End Try
-
             If Not validDate Then
                 oldValue = Date.MinValue
             End If
@@ -1872,18 +1897,15 @@ Public Class frmNodeNavigation
             Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
             Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
             Dim configid = detailRow.Item("CONFIG_ID")
+            Dim oHeader = detailRow.Item("HEADER_CAPTION")
 
-            Dim docId As Integer = oDocuments.First.DocId
-            If docId = 0 Then
-                MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
-                Exit Sub
-            End If
-            Dim user As String = USER_USERNAME
             Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
-            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configid, dateString, user)
+            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", oDocID, SELECTED_NODE_RECORD_ID, configid, dateString, USER_USERNAME)
 
             If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                 ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
+            Else
+                RefreshDocValueinDatagrid(oDocID, oHeader, value)
             End If
         Catch ex As Exception
             NNLogger.Error(ex)
@@ -1893,21 +1915,12 @@ Public Class frmNodeNavigation
 
     Private Sub OnTextSelectedValueChanged(sender As Object, e As EventArgs)
         Try
-            Dim oDocuments = Current_DocList.SelectedDocuments
-            If oDocuments.Count = 0 Then
+            Dim oDocID = Focused_Row_GetDocID()
+            If oDocID = 0 Then
                 Exit Sub
             End If
             Dim TextBox As TextEdit = sender
             Dim value = TextBox.EditValue
-            Try
-                Dim oDocID As Integer = oDocuments.First.DocId
-            Catch ex As Exception
-                NNLogger.Info($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
-                Exit Sub
-            End Try
-            If value.ToUpper = "Not displayable in Group-Search".ToUpper Or IsNothing(oDocuments) Then
-                Exit Sub
-            End If
 
             'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
             'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
@@ -1916,24 +1929,14 @@ Public Class frmNodeNavigation
             If Not IsNothing(mainView) Then
                 Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
                 Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
-                Dim docId As Integer
                 Dim configid = detailRow.Item("CONFIG_ID")
-                Try
-                    docId = oDocuments.First.DocId
-                    If docId = 0 Then
-                        MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
-                        Exit Sub
-                    End If
-                Catch ex As Exception
-                    NNLogger.Debug($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
-                    Exit Sub
-                End Try
+                Dim oHeader = detailRow.Item("HEADER_CAPTION")
 
-                Dim user As String = USER_USERNAME
-
-                Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
+                Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", oDocID, SELECTED_NODE_RECORD_ID, configid, value, USER_USERNAME)
                 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                     ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
+                Else
+                    RefreshDocValueinDatagrid(oDocID, oHeader, value)
                 End If
             End If
 
@@ -1946,7 +1949,10 @@ Public Class frmNodeNavigation
     Private Sub OnCheckboxValueChanged(sender As Object, e As EventArgs)
         'TODO Save Checkboxvalue
         Try
-            Dim oDocuments = Current_DocList.SelectedDocuments
+            Dim oDocID = Focused_Row_GetDocID()
+            If oDocID = 0 Then
+                Exit Sub
+            End If
             Dim CheckBox As CheckEdit = sender
             Dim value As Boolean = CheckBox.EditValue
 
@@ -1955,17 +1961,14 @@ Public Class frmNodeNavigation
             Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
             Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
             Dim configid = detailRow.Item("CONFIG_ID")
+            Dim oHeader = detailRow.Item("HEADER_CAPTION")
 
-            Dim docId As Integer = oDocuments.First.DocId
-            If docId = 0 Then
-                MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
-                Exit Sub
-            End If
-            Dim user As String = USER_USERNAME
 
-            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
+            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", oDocID, SELECTED_NODE_RECORD_ID, configid, value, USER_USERNAME)
             If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                 ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
+            Else
+                RefreshDocValueinDatagrid(oDocID, oHeader, value)
             End If
         Catch ex As Exception
             NNLogger.Error(ex)
@@ -1976,49 +1979,65 @@ Public Class frmNodeNavigation
     Private Sub GridViewDoc_Search_LayoutSave(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged, GridViewDoc_Search.ColumnWidthChanged, GridViewDoc_Search.ColumnPositionChanged
         Save_DocGrid_Layout()
     End Sub
+    Private Sub RefreshDocValueinDatagrid(pDocID As Integer, pHeader As String, pValue As String)
+        Try
+            Dim oDatatable As DataTable = TryCast(GridControlDocSearch.DataSource, DataTable)
+            For Each ORow As DataRow In oDatatable.Rows
+                If ORow.Item("DocID") = pDocID Then
+                    ORow.Item(pHeader) = pValue
+                    Update_Notification_Label(True, $"Document value {pHeader} saved", "Lime")
+                    Exit For
+                End If
+            Next
+        Catch ex As Exception
 
-    Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
-        If FORM_SHOWN = True Then
-            Refresh_DocID()
-        End If
-
+        End Try
     End Sub
     Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
-        Refresh_DocID()
+        Focused_Row_GetDocID()
+
     End Sub
 
-
-    Private Sub GridViewDoc_Search_MasterRowExpanding(sender As Object, e As MasterRowCanExpandEventArgs) Handles GridViewDoc_Search.MasterRowExpanding
-        Refresh_DocID()
-    End Sub
+    Private Function Focused_Row_GetDocID() As Int64
+        Try
+            If FORM_SHOWN = False Then
+                Return 0
+            End If
+            Update_DocID_Label(False)
+            Update_Notification_Label(False, "", "")
+            If GridViewDoc_Search.FocusedRowHandle >= 0 Then
+                Dim oDocID = GridViewDoc_Search.GetRowCellValue(GridViewDoc_Search.FocusedRowHandle, "DocID")
+                If Not IsNothing(oDocID) Then
+                    Dim omsg = "Doc-ID: " & oDocID
+                    Update_DocID_Label(True, omsg, EditState.Update)
+                    If SELECTED_DOC_ID <> oDocID Then
+                        SELECTED_DOC_ID = oDocID
+                        DocView_DisplaySelectedDoc(False)
+                    End If
+                    Update_DocID_Label(True, omsg, EditState.Update)
+                    Return SELECTED_DOC_ID
+                Else
+                    Update_DocID_Label(True, "DocRow not selected", EditState.None)
+                    Return 0
+                End If
+            Else
+                Return 0
+            End If
+        Catch ex As Exception
+            Return 0
+        End Try
+    End Function
 
     Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded
-        Refresh_DocID()
+        Focused_Row_GetDocID()
     End Sub
-    Sub Refresh_DocID()
-        Dim oDocuments = Current_DocList.SelectedDocuments
-        If Not IsNothing(oDocuments) Then
-            If oDocuments.Count <> 0 Then
-                Dim omsg = "Doc-ID: " & oDocuments.First.DocId
-                Update_DocID_Label(True, omsg, EditState.Update)
-            Else
-                Update_DocID_Label(True, "DocRow not selected", EditState.None)
-            End If
-        Else
-            Update_DocID_Label(False)
-        End If
 
-    End Sub
     Sub Save_DocGrid_Layout()
         Try
             If FORM_LOADED And Node_AfterSelect = False Then
                 Dim XMLPath = Get_DocGrid_Layout_Filename()
                 GridViewDoc_Search.SaveLayoutToXml(XMLPath)
-
-
-                Update_Notification_Label(True, "Grid Layout Saved", "")
-            Else
-                Update_Notification_Label(True, "Could not store layout", "Yellow")
+                Update_Notification_Label(True, "Grid Document - Layout Saved", "")
             End If
 
         Catch ex As Exception
@@ -2090,7 +2109,7 @@ Public Class frmNodeNavigation
             If WM_READ_ONLY = False Then
                 ClassDragDrop.Drag_enter(e)
             Else
-                Update_Notification_Label(True, "READ ONLY ACCESS", "")
+                Update_Notification_Label(True, "READ ONLY ACCESS", "Yellow")
             End If
         Else
             Update_Notification_Label(True, "No entity selected", "Yellow")
@@ -2371,7 +2390,7 @@ Public Class frmNodeNavigation
             INSERT_IN_ACTION = False
             'Jetzt den Record nochmal laden
             ' Show_Selected_Record_Data(SELECTED_RECORD_ID)
-            Update_Notification_Label(True, "Record saved - " & Now, "")
+            Update_Notification_Label(True, "Record saved", "Lime")
             Update_Record_Label(CURRENT_RECORD_ID)
 
         Catch ex As Exception
@@ -2416,8 +2435,6 @@ Public Class frmNodeNavigation
 
             mySelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
 
-            'Refresh_DocID()
-
             If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
                 e.Cancel = True
                 Exit Sub
@@ -2582,8 +2599,11 @@ Public Class frmNodeNavigation
         Dim allow_Open As Boolean = False
 
         Dim oDocuments = Current_DocList.SelectedDocuments
-        If oDocuments.Count = 0 Then
-            Exit Sub
+        If Not IsNothing(oDocuments) Then
+            If oDocuments.Count <> 1 Then
+                MsgBox("Sorry, but no document has been selected! Please select the docúment row again!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
         End If
         Dim Result = ClassDOC_SEARCH.Get_File_Rights(oDocuments.First.DocId)
 
@@ -3165,7 +3185,7 @@ Public Class frmNodeNavigation
             Await ReloadTreeView()
             MyTreeListViewState.LoadState()
             TreeListDevexpress.FocusedNode = MyFocusedNode
-            Update_Notification_Label(True, "Nodes reordered", "")
+            Update_Notification_Label(True, "Nodes reordered", "Lime")
         End If
 
         Cursor = Cursors.Default
@@ -3189,40 +3209,55 @@ Public Class frmNodeNavigation
         If FORM_LOADED = False Then
             Exit Sub
         End If
-        If ViewerInit Then
+        If DocViewInitialized Then
+            CONFIG.Config.DocumentViewerShown = checkShowPreview.Checked
+            CONFIG.Save()
             SplitContainerDocView.Collapsed = Not checkShowPreview.Checked
+            If checkShowPreview.Checked Then
+                DocView_DisplaySelectedDoc(False)
+            End If
         Else
             SplitContainerDocView.Collapsed = True
+
         End If
 
     End Sub
 
     Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged
-        Show_SelectedDoc(False)
+        DocView_DisplaySelectedDoc(False)
     End Sub
-    Private Sub Show_SelectedDoc(AfterNodeChange As Boolean)
-        Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search, AfterNodeChange)
-        If Not IsNothing(oSelectedDocs) Then
-            If ViewerInit Then
-                If oSelectedDocs.Count >= 1 Then
-                    Refresh_DocID()
-                    Close_Document_Viewer()
+    Private Async Sub DocView_DisplaySelectedDoc(AfterNodeChange As Boolean)
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+        Try
+            Dim oSelectedDoc = ClassDocGrid.GetSingleSelectedDocument(GridViewDoc_Search)
+            If Not IsNothing(oSelectedDoc) Then
+                If checkShowPreview.Checked Then
+                    If DocViewInitialized Then
+                        If oSelectedDoc.Count = 1 Then
+                            Close_Document_Viewer()
+                            System.Threading.Thread.Sleep(400)
+                            Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDoc.First()
+                            Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
 
-                    System.Threading.Thread.Sleep(400)
-                    Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDocs.First()
-                    Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
-
-                    DocumentViewer.LoadFile(oPath)
-                Else
-                    NNLogger.Debug("Show_SelectedDoc - oSelectedDocs.Count not >= 1 ")
-                    Close_Document_Viewer()
+                            DocumentViewer.LoadFile(oPath)
+                        Else
+                            NNLogger.Debug("Show_SelectedDoc - oSelectedDocs.Count not = 1 ")
+                            Close_Document_Viewer()
+                        End If
+                    Else
+                        NNLogger.Info("DocumentViewer not inited. No Show_SelectedDoc")
+                    End If
                 End If
+
             Else
-                NNLogger.Info("DocumentViewer not inited. No Show_SelectedDoc")
+                NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
             End If
-        Else
-            NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
-        End If
+        Catch ex As Exception
+            NNLogger.Error(ex)
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+        End Try
+
 
 
     End Sub
@@ -3374,16 +3409,16 @@ Public Class frmNodeNavigation
 
                                 If oDElWMFile = True Then
                                     If WMMOD.RemoveFile(oDoc.DocPath) Then
-                                        Update_Notification_Label(True, Now.ToLongTimeString & " - File successfully deleted", "Yellow")
+                                        Update_Notification_Label(True, "File successfully deleted", "Yellow")
                                         ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER")
                                     End If
 
                                 Else
                                     ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE LINK DELETED BY USER")
-                                    Update_Notification_Label(True, Now.ToLongTimeString & " - File-links successfully deleted", "Yellow")
+                                    Update_Notification_Label(True, "File-links successfully deleted", "Yellow")
                                 End If
                             Else
-                                Update_Notification_Label(True, Now.ToLongTimeString & " - Error deleting file - Check log", "Yellow")
+                                Update_Notification_Label(True, "Error deleting file - Check log", "Red")
                             End If
 
                         End If
@@ -3435,33 +3470,62 @@ Public Class frmNodeNavigation
         _ActiveGrid = sender
     End Sub
     Private Sub bbtnitmDocResultExport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmDocResultExport.ItemClick
-        Dim oActiveGrid = GetActiveGridControl()
+        'Dim oActiveGrid = GetActiveGridControl()
+        'If oActiveGrid IsNot Nothing Then
+        '    XtraSaveFileDialog1.FileName = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
+        '    XtraSaveFileDialog1.DefaultExt = ".xlsx"
 
-        If oActiveGrid IsNot Nothing Then
-            XtraSaveFileDialog1.FileName = oActiveGrid.Name & ".xlsx"
-            XtraSaveFileDialog1.DefaultExt = ".xlsx"
+        '    If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+        '        Dim oOptions As New XlsxExportOptions() With {
+        '            .ExportMode = XlsxExportMode.SingleFile
+        '        }
+        '        oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+        '    End If
+        'Else
+        '    MessageBox.Show("Please Select a grid/table that you would Like To export.", Text, MessageBoxButtons.OK)
+        'End If
+        Dim saveFileDialogDocSearchResult As New SaveFileDialog With {
+                .Filter = "Excel File|*.xlsx",
+                .Title = "Export to Excel:"
+            }
+        saveFileDialogDocSearchResult.ShowDialog()
 
-            If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
-                Dim oOptions As New XlsxExportOptions() With {
-                    .ExportMode = XlsxExportMode.SingleFile
-                }
-                oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+        If saveFileDialogDocSearchResult.FileName <> "" Then
+            Dim oOptions As New XlsxExportOptionsEx With {
+                .ShowGridLines = True,
+                .AllowSortingAndFiltering = DevExpress.Utils.DefaultBoolean.True,
+                .ExportType = DevExpress.Export.ExportType.DataAware,
+                .ExportMode = XlsxExportMode.SingleFile,
+                .AllowFixedColumnHeaderPanel = DevExpress.Utils.DefaultBoolean.True
+            }
+
+            Cursor = Cursors.WaitCursor
+            GridViewDoc_Search.ExportToXlsx(saveFileDialogDocSearchResult.FileName, oOptions)
+            Dim result As MsgBoxResult
+            Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
+
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = String.Format("File was created. Do You want to open excel?")
+            End If
+            result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            If result = MsgBoxResult.Yes Then
+                Process.Start(saveFileDialogDocSearchResult.FileName)
             End If
-        Else
-            MessageBox.Show("Please Select a grid/table that you would Like To export.", Text, MessageBoxButtons.OK)
         End If
     End Sub
 
     Private Async Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click
-        If CURRENT_NODEID <> 0 Then
+        If CURRENT_NODEID <> 0 And Not IsNothing(MyFocusedNode) Then
             Dim result As DialogResult = MessageBox.Show("Wollen Sie fortfahren? Der Knoten wird In Folge mit den Unterknoten als gelöscht markiert!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result = System.Windows.Forms.DialogResult.Yes Then
                 Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODEID}, '{USER_USERNAME}', 1, 0"
                 If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then
-                    result = MessageBox.Show("Wollen Sie die Ansicht aktualisieren?", "Knoten wurde erfolgreich gelöscht!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    If result = System.Windows.Forms.DialogResult.Yes Then
-                        Await ReloadTreeView()
-                    End If
+                    TreeListDevexpress.DeleteNode(MyFocusedNode)
+                    MsgBox("Knoten wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
+                    ' result = MessageBox.Show("Wollen Sie die Ansicht aktualisieren?", "Knoten wurde erfolgreich gelöscht!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    ' If result = System.Windows.Forms.DialogResult.Yes Then
+                    'Await ReloadTreeView()
+                    'End If
 
                 End If
             End If