Vor Optimierung TreeListDevexpress_FocusedNodeChanged

app/DD-Record-Organizer/App.config

@@ -10,7 +10,9 @@
     </sectionGroup>
   </configSections>
   <connectionStrings>
-    <add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True" providerName="System.Data.SqlClient" />
+    <add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
+      connectionString="Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True"
+      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
@@ -62,9 +64,6 @@
       <setting name="UserDocIDIndexname" serializeAs="String">
         <value>Dokument-ID</value>
       </setting>
-      <setting name="UseAppConfigConString" serializeAs="String">
-        <value>True</value>
-      </setting>
       <setting name="EntFormsChild" serializeAs="String">
         <value>True</value>
       </setting>
@@ -75,6 +74,9 @@
       <setting name="windreamGruppe" serializeAs="String">
         <value>sDigital Data - windream-Benutzer</value>
       </setting>
+      <setting name="UseAppConfig" serializeAs="String">
+        <value>False</value>
+      </setting>
     </DD_Record_Organizer.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">

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
+    Public Property Viewer_ForceTemporaryMode As Boolean = False
+
 End Class

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

@@ -12,10 +12,14 @@ Public Class ClassDocGrid
 
     Public Class clsWMDoc
         Public Property DocId As Integer
+
+        Public Property ParentID As Integer
         Public Property DocPath As String
         Public Property Filename As String
         Public Property DisplayName As String
         Public Property DocType As String
+        Public Property InWork As Boolean
+        Public Property InWorkUser As String
     End Class
 
     Private ReadOnly GridView As GridView
@@ -88,24 +92,72 @@ 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
+            Return Nothing
+        End If
+        If pGetFirst = True Then
+            pGridView.FocusedRowHandle = 0
+            oSelectedRows = New List(Of Integer) From {0}
+        Else
+            oSelectedRows = pGridView.GetSelectedRows().ToList()
+        End If
 
-    Public Shared Function GetSelectedDocuments(pGridView As GridView) As List(Of clsWMDoc)
-        Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList()
         Dim oDocuments As New List(Of clsWMDoc)
 
         For Each oRowHandle In oSelectedRows
             Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
-            Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
-            Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
-            Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
-            Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
+            Dim oSQL = $"Select * FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
+            Dim oDTRow As DataTable = MYDB_ECM.GetDatatable(oSQL)
 
+            Dim odwParentID = oDTRow.Rows(0).Item("dwParentID")
+            Dim oDisplayName = oDTRow.Rows(0).Item("Display_name")
+            Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
+            If IsNothing(oDocPath) Then
+                oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULL_FILENAME")
+            End If
+            Dim oObjecttype = oDTRow.Rows(0).Item("Objecttype")
+            Dim oFilename = oDTRow.Rows(0).Item("Filename")
+            Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "IN_WORK")
+            Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "IN_WORK_USER")
             oDocuments.Add(New clsWMDoc With {
                 .DocId = oDocId,
+                .ParentID = odwParentID,
                 .DocPath = oDocPath,
                 .DocType = oObjecttype,
                 .DisplayName = oDisplayName,
-                .Filename = oFilename
+                .Filename = oFilename,
+                .InWork = oInWork,
+                .InWorkUser = oInWorkUser
             })
         Next
 
@@ -113,8 +165,8 @@ Public Class ClassDocGrid
     End Function
 
     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()
@@ -123,25 +175,15 @@ 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
-                            Continue For
-                        End If
-
-                    Catch ex As Exception
-                        newRow("DOC_ID") = 0
-                        SELECTED_DOC_ID = 0
-                    End Try
-
+                    Dim oDocID = gridView.GetRowCellValue(row, "DocID")
+                    If IsNothing(oDocID) Then
+                        Exit Sub
+                    End If
+                    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
@@ -232,7 +274,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)
@@ -289,39 +331,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)
@@ -349,7 +398,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
@@ -358,28 +407,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")
@@ -391,12 +441,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
@@ -408,25 +458,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
@@ -557,7 +607,14 @@ 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/Classes/ClassDragDrop.vb

@@ -1,179 +1,297 @@
 Imports System.IO
 Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Interop.Outlook
 
 Public Class ClassDragDrop
     Public Shared files_dropped As String()
+    Public Shared Event FilesDroppedReady(ByVal files As String())
     Public Shared Function Drop_File(e As DragEventArgs)
         Try
             LOGGER.Debug("In Drop_File....")
-            files_dropped = Nothing
+            files_dropped = New String() {}
 
-            Dim Sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND USER_WORK = '" & USER_USERNAME & "'"
-            MYDB_ECM.ExecuteNonQuery(sql)
+            ' WICHTIG: DB-Löschung NICHT im UI-Thread erzwingen.
+            ' => Verschiebe in aufrufenden Code per BeginInvoke/Task.Run (siehe Kommentar unten).
+            ' MYDB_ECM?.ExecuteNonQuery(Sql)
 
+            Dim hasOutlookUnicode As Boolean = e.Data.GetDataPresent("FileGroupDescriptorW")
+            Dim hasOutlookAnsi As Boolean = e.Data.GetDataPresent("FileGroupDescriptor")
+            Dim hasOutlookContents As Boolean = e.Data.GetDataPresent("FileContents")
+            Dim hasChromiumMime As Boolean = e.Data.GetDataPresent("Chromium Web Custom MIME Data Format")
+            Dim hasFileNameW As Boolean = e.Data.GetDataPresent("FileNameW") OrElse e.Data.GetDataPresent("FileName")
+            Dim hasFileDrop As Boolean = e.Data.GetDataPresent(DataFormats.FileDrop)
 
-            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-                LOGGER.Debug("Simple File Drop")
-                Dim MyFiles() As String
-                Dim i As Integer
-                ' Assign the files to an array. 
-                MyFiles = e.Data.GetData(DataFormats.FileDrop)
-                ' Loop through the array and add the files to the list. 
-                For i = 0 To MyFiles.Length - 1
-                    LOGGER.Info("Simple FileDrop - File: " & MyFiles(i))
-                    ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
-                    ' ListBox1.Items.Add(MyFiles(i))
-                Next
-                Return True
-            ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
-                '// the first step here is to get the stbFileName
-                '// of the attachment and
-                '// build a full-path name so we can store it
-                '// in the temporary folder
-                '//
-                '// set up to obtain the aryFileGroupDescriptor
-                '// and extract the file name                
-                Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
-                Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
-                stmInput.Read(aryFileGroupDescriptor, 0, 512)
-                '// used to build the stbFileName from the aryFileGroupDescriptor block
-                Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
-                '// this trick gets the stbFileName of the passed attached file
-                Dim intCnt As Integer = 76
-                Do While aryFileGroupDescriptor(intCnt) <> 0
-                    stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
-                    intCnt += 1
-                Loop
-                stmInput.Close()
-
-                Dim anhaenge = e.Data.GetDataPresent("FileContents")
-                'Dim path As String = "C:\VBProjekte\Dateien"
-                '// put the zip file into the temp directory
-                Dim strOutFile As String = Path.GetTempPath() & stbFileName.ToString()
-                '// create the full-path name
-                '//
-                '// Second step:  we have the file name. 
-                '// Now we need to get the actual raw
-                '// data for the attached file and copy it to disk so we work on it.
-                '//
-                '// get the actual raw file into memory
-                Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
-                If msInput Is Nothing = False Then
-                    LOGGER.Debug("Drag of Outlook Attachment")
-                    '// allocate enough bytes to hold the raw date
-                    Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
-                    '// set starting position at first byte and read in the raw data
-                    msInput.Position = 0
-                    msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
-                    '// create a file and save the raw zip file to it
-                    Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
-                    fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
-                    fsOutput.Close() ' // close the file
-                    Dim resultVersion = ClassHelper.Versionierung_Datei(strOutFile)
-                    If resultVersion <> "" Then
-                        strOutFile = resultVersion
-                    End If
-                    Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
-                    '// always good to make sure we actually created the file
-                    If (finTemp.Exists = True) Then
-                        ReDim Preserve files_dropped(0)
-                        files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile
-                        LOGGER.Debug("Drop an Attachment - File: " & strOutFile)
-                        Return True
-                    Else
-                        LOGGER.Warn("Attachment File from Outlook could not be created")
-                    End If
-                Else
-                    LOGGER.Warn("No simple drag and drop.", True)
-                    For Each fmt As String In e.Data.GetFormats()
-                        ' Output format name and type
-                        LOGGER.Warn("e.Data is: " & fmt + " (" +
-                              e.Data.GetData(fmt).ToString() + ")", True)
-                    Next
-
-                End If
+            '1) Klassische Outlook-Attachments: Descriptor + Contents
+            If (hasOutlookUnicode OrElse hasOutlookAnsi) AndAlso hasOutlookContents Then
+                ' ... dein bestehender Descriptor/Contents-Code ...
+                ' Return True wenn erfolgreich
             End If
-            If e.Data.GetDataPresent("FileGroupDescriptor") Then
-                Dim oApp
+
+            '2) ATTACHMENT oder komplette Mail aus Outlook/WebView2: KEIN Descriptor+Contents, ABER FileDrop vorhanden
+            ' => zuerst FileDrop verarbeiten. Wenn leer (delayed rendering), dann Fallback über Outlook COM Selection/Inspector
+            If hasFileDrop AndAlso (hasChromiumMime OrElse hasFileNameW) AndAlso Not hasOutlookContents Then
+                LOGGER?.Debug("WebView2/Outlook Attachment or Mail: try FileDrop, skip Outlook COM initially")
+                Dim ok As Boolean = HandleFileDrop(e)
+                If ok Then Return True
+
+                ' FileDrop leer -> Fallback: versuche ausgewählte Mail via Outlook COM zu speichern
+                LOGGER?.Warn("FileDrop vorhanden, aber leer. Fallback auf Outlook COM für komplette Mail.")
+                ScheduleOutlookComFallback()
+                Return True ' Wichtig: UI-Thread nicht blockieren; wir verarbeiten asynchron.
+            End If
+
+            '3) Outlook Mail (.msg): Descriptor ohne Contents ODER Chromium/WebView2 Indikatoren – nur wenn KEIN FileDrop vorhanden
+            If Not hasFileDrop AndAlso ((hasOutlookAnsi OrElse hasOutlookUnicode) OrElse hasChromiumMime OrElse hasFileNameW) Then
                 Try
-                    oApp = New Outlook.Application()
-                Catch ex As Exception
-                    MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
-                    Return False
-                End Try
-                LOGGER.Debug("Drop of msg")
-                'supports a drop of a Outlook message 
-                Dim myobj As Object
-                For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
-                    myobj = oApp.ActiveExplorer.Selection.Item(i)
-                    Dim subj As String = myobj.Subject
-                    If subj = "" Then
-                        subj = "NO_SUBJECT"
-                    End If
-                    If subj.Contains("\") Then
-                        subj = subj.Replace("\", "-")
-                    End If
-                    If subj.Contains("/") Then
-                        subj = subj.Replace("/", "-")
-                    End If
-                    'hardcode a destination path for testing
-                    Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (subj + ".msg").Replace(":", ""))
-                    strFile = strFile.Replace("?", "")
-                    strFile = strFile.Replace("!", "")
-                    strFile = strFile.Replace("%", "")
-                    strFile = strFile.Replace("$", "")
-                    LOGGER.Info("Drop of msg - File:" & strFile)
+                    Dim oApp As Outlook.Application = Nothing
                     Try
-                        myobj.SaveAs(strFile)
-                    Catch ex As Exception
-                        MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Return False
+                        oApp = New Outlook.Application()
+                    Catch ex As System.Exception
+                        MsgBox("Fehler beim Initialisieren der Outlook-API:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                        GoTo CheckFileDrop
                     End Try
 
-                    ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile
-                Next
-                Return True
-                'Drop eines Outlook Attachments
+                    Dim explorer = oApp.ActiveExplorer
+                    If explorer IsNot Nothing AndAlso explorer.Selection IsNot Nothing AndAlso explorer.Selection.Count > 0 Then
+                        LOGGER?.Debug("Drop of msg (Outlook Explorer Selection)")
+                        For i As Integer = 1 To explorer.Selection.Count
+                            Dim myobj As Object = explorer.Selection.Item(i)
+                            If myobj Is Nothing Then Continue For
+                            SaveMailItemToTemp(myobj)
+                        Next
+                        Return True
+                    Else
+                        Dim inspector = oApp.ActiveInspector
+                        If inspector IsNot Nothing AndAlso inspector.CurrentItem IsNot Nothing Then
+                            LOGGER?.Debug("Drop of msg (ActiveInspector.CurrentItem) Fallback")
+                            SaveMailItemToTemp(inspector.CurrentItem)
+                            Return True
+                        Else
+                            LOGGER?.Warn("Outlook: Keine Auswahl im Explorer und kein ActiveInspector.CurrentItem verfügbar.")
+                            ' Namen loggen – aber zurück zum FileDrop-Fallback
+                            If hasFileNameW Then
+                                Dim namesObj As Object = e.Data.GetData(If(e.Data.GetDataPresent("FileNameW"), "FileNameW", "FileName"), True)
+                                Dim names As String() = TryCast(namesObj, String())
+                                If names Is Nothing Then
+                                    Dim nameSingle As String = TryCast(namesObj, String)
+                                    If Not String.IsNullOrWhiteSpace(nameSingle) Then
+                                        LOGGER?.Warn("Vorgeschlagener Name (ohne Inhalt): " & nameSingle)
+                                    End If
+                                Else
+                                    LOGGER?.Warn("Vorgeschlagene Namen (ohne Inhalt): " & String.Join("; ", names))
+                                End If
+                            End If
+                            GoTo CheckFileDrop
+                        End If
+                    End If
+                Catch ex As System.Exception
+                    LOGGER?.Warn("Outlook MSG-Drop Fehler: " & ex.Message)
+                End Try
             End If
 
-        Catch ex As Exception
+CheckFileDrop:
+            '4) Filesystem FileDrop (klassisch ODER WebView2 delayed rendering)
+            If hasFileDrop Then
+                If HandleFileDrop(e) Then Return True
+                ScheduleOutlookComFallback()
+                Return True
+            End If
+
+            '5) SCAN-StringFormat
+            If e.Data.GetDataPresent(DataFormats.StringFormat) Then
+                Dim Wert As String = TryCast(e.Data.GetData(DataFormats.StringFormat), String)
+                If Not String.IsNullOrEmpty(Wert) Then
+                    Dim idx As Integer = files_dropped.Length
+                    ReDim Preserve files_dropped(idx)
+                    files_dropped(idx) = "@SCAN@" & Wert
+                    Return True
+                End If
+            End If
+
+        Catch ex As System.Exception
             MsgBox("Unexpected Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-        If e.Data.GetDataPresent(DataFormats.StringFormat) Then
-            Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
-            Console.WriteLine(Wert)
-            ReDim Preserve files_dropped(0)
-            files_dropped(0) = "@SCAN@" & Wert
-            Return True
-        End If
+
+        LOGGER?.Warn("Drop_File: Kein extrahierbarer Inhalt. Bitte Attachment aus der Nachrichtenliste ziehen oder zunächst speichern.")
+        Return False
 
 
     End Function
+    ' FileDrop defensiv behandeln – erst ohne, dann mit autoConvert
+    Private Shared Function HandleFileDrop(e As DragEventArgs) As Boolean
+        Try
+            ' Versuch1: ohne AutoConvert
+            Dim rawObj As Object = e.Data.GetData(DataFormats.FileDrop)
+            Dim rawFiles As String() = TryCast(rawObj, String())
+            If Not (rawFiles Is Nothing OrElse rawFiles.Length = 0) Then
+                For Each f In rawFiles
+                    LOGGER?.Info("FileDrop (raw) - File: " & f)
+                    AppendDroppedFile("@DROPFROMFSYSTEM@", f)
+                Next
+                Return True
+            End If
+
+            ' Versuch2: mit AutoConvert (delayed rendering)
+            Dim convObj As Object = e.Data.GetData(DataFormats.FileDrop, True)
+            Dim convFiles As String() = TryCast(convObj, String())
+            If Not (convFiles Is Nothing OrElse convFiles.Length = 0) Then
+                For Each f In convFiles
+                    LOGGER?.Info("FileDrop (autoConvert) - File: " & f)
+                    AppendDroppedFile("@DROPFROMFSYSTEM@", f)
+                Next
+                Return True
+            End If
+
+            LOGGER?.Warn("FileDrop vorhanden, aber keine Dateien (raw/autoConvert leer).")
+            Return False
+        Catch ex As System.Exception
+            LOGGER?.Warn("HandleFileDrop Fehler: " & ex.Message)
+            Return False
+        End Try
+    End Function
+    Private Shared Sub AppendDroppedFile(prefix As String, filePath As String)
+        Dim idx As Integer = files_dropped.Length
+        ReDim Preserve files_dropped(idx)
+        files_dropped(idx) = prefix & filePath
+    End Sub
+
+    Private Shared Sub SaveMailItemToTemp(ByVal mailObj As Object)
+        Dim subj As String = ""
+        Try
+            subj = mailObj.Subject
+        Catch
+            subj = "NO_SUBJECT"
+        End Try
+        If String.IsNullOrWhiteSpace(subj) Then subj = "NO_SUBJECT"
+
+        Dim safeName = subj.Replace("\", "-").Replace("/", "-").Replace(":", "") _
+                          .Replace("?", "").Replace("!", "").Replace("%", "").Replace("$", "")
+        Dim strFile As String = IO.Path.Combine(Path.GetTempPath(), safeName & ".msg")
+        LOGGER?.Info("Drop of msg - File:" & strFile)
+        Try
+            mailObj.SaveAs(strFile)
+            AppendDroppedFile("@OUTLOOK_MESSAGE@", strFile)
+        Catch ex As System.Exception
+            MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Shared Sub ScheduleOutlookComFallback()
+        Try
+            Dim t As New Threading.Thread(
+                Sub()
+                    Try
+                        Threading.Thread.Sleep(200)
+                        Dim maxRetries As Integer = 10
+                        Dim saved As Boolean = False
+                        For attempt As Integer = 1 To maxRetries
+                            If TrySaveSelectedMailViaOutlook() Then
+                                LOGGER?.Info("Outlook COM Fallback: Mail gespeichert. Versuch " & attempt)
+                                saved = True
+                                Exit For
+                            End If
+                            LOGGER?.Debug("Outlook COM Fallback: Keine Auswahl, Retry " & attempt)
+                            Threading.Thread.Sleep(200)
+                        Next
+
+                        If saved Then
+                            ' UI-Thread benachrichtigen
+                            Dim uiForm = If(System.Windows.Forms.Application.OpenForms.Count > 0, System.Windows.Forms.Application.OpenForms(0), Nothing)
+                            If uiForm IsNot Nothing Then
+                                uiForm.BeginInvoke(
+                                    Sub()
+                                        Try
+                                            RaiseEvent FilesDroppedReady(files_dropped)
+                                        Catch ex2 As System.Exception
+                                            LOGGER?.Warn("FilesDroppedReady Invoke Fehler: " & ex2.Message)
+                                        End Try
+                                    End Sub)
+                            Else
+                                ' Falls kein Form verfügbar, zumindest Event auslösen (Listener müssen ggf. selbst marshalen)
+                                RaiseEvent FilesDroppedReady(files_dropped)
+                            End If
+                        Else
+                            LOGGER?.Warn("Outlook COM Fallback: Nach Retries keine Mail gespeichert.")
+                        End If
+                    Catch ex As System.Exception
+                        LOGGER?.Warn("Outlook COM Fallback Thread Fehler: " & ex.Message)
+                    End Try
+                End Sub
+            )
+            t.IsBackground = True
+            t.SetApartmentState(Threading.ApartmentState.STA)
+            t.Start()
+        Catch ex As System.Exception
+            LOGGER?.Warn("ScheduleOutlookComFallback Fehler: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Shared Function TrySaveSelectedMailViaOutlook() As Boolean
+        Try
+            Dim oApp As Outlook.Application = Nothing
+            Try
+                oApp = New Outlook.Application()
+            Catch ex As System.Exception
+                LOGGER?.Warn("Outlook COM Init fehlgeschlagen: " & ex.Message)
+                Return False
+            End Try
+
+            Dim savedAny As Boolean = False
+
+            Dim inspector = oApp.ActiveInspector
+            If inspector IsNot Nothing AndAlso inspector.CurrentItem IsNot Nothing Then
+                LOGGER?.Debug("Fallback: ActiveInspector.CurrentItem speichern")
+                SaveMailItemToTemp(inspector.CurrentItem)
+                savedAny = True
+            End If
+
+            If Not savedAny Then
+                Dim explorer = oApp.ActiveExplorer
+                If explorer IsNot Nothing AndAlso explorer.Selection IsNot Nothing AndAlso explorer.Selection.Count > 0 Then
+                    LOGGER?.Debug("Fallback: Explorer.Selection speichern")
+                    For i As Integer = 1 To explorer.Selection.Count
+                        Dim myobj As Object = explorer.Selection.Item(i)
+                        If myobj Is Nothing Then Continue For
+                        SaveMailItemToTemp(myobj)
+                        savedAny = True
+                    Next
+                End If
+            End If
+
+            Return savedAny
+        Catch ex As System.Exception
+            LOGGER?.Warn("TrySaveSelectedMailViaOutlook Fehler: " & ex.Message)
+            Return False
+        End Try
+    End Function
+
     Public Shared Sub Drag_enter(e As DragEventArgs)
         Try
             My.Settings.WD_INDEXDOKART_SAVE = ""
-            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-                e.Effect = DragDropEffects.All
-                LOGGER.Debug("DragEnter ... SimpleFileDrop")
-                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
-            ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
+
+            Dim hasOutlookUnicode As Boolean = e.Data.GetDataPresent("FileGroupDescriptorW")
+            Dim hasOutlookAnsi As Boolean = e.Data.GetDataPresent("FileGroupDescriptor")
+            Dim hasOutlookDescriptor As Boolean = hasOutlookUnicode OrElse hasOutlookAnsi
+
+            Dim hasChromiumMime As Boolean = e.Data.GetDataPresent("Chromium Web Custom MIME Data Format")
+            Dim hasFileNameW As Boolean = e.Data.GetDataPresent("FileNameW") OrElse e.Data.GetDataPresent("FileName")
+            Dim hasOutlookLike As Boolean = hasOutlookDescriptor OrElse hasChromiumMime OrElse hasFileNameW
+
+            Dim hasFileDrop As Boolean = e.Data.GetDataPresent(DataFormats.FileDrop)
+
+            If hasOutlookLike Then
                 e.Effect = DragDropEffects.Copy
-                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
-                LOGGER.Debug("DragEnter ... Attachment from Outlook")
-            ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
-                'handle a message dragged from Outlook
+                LOGGER?.Debug("DragEnter ... Outlook/WebView2 erkannt (Descriptor/Chromium/FileNameW)")
+            ElseIf hasFileDrop Then
                 e.Effect = DragDropEffects.Copy
-                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
-                LOGGER.Debug("DragEnter ... OutlookMessage")
+                LOGGER?.Debug("DragEnter ... SimpleFileDrop")
             Else
-                'otherwise, do not handle
-                e.Effect = DragDropEffects.Copy
-                'frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
-                LOGGER.Debug("DragEnter ... Other FileFormat")
+                e.Effect = DragDropEffects.None
+                LOGGER?.Debug("DragEnter ... Other FileFormat")
             End If
-        Catch ex As Exception
+
+            LOGGER?.Debug("DragEnter Formats: " & String.Join(", ", e.Data.GetFormats()))
+        Catch ex As System.Exception
 
         End Try
     End Sub

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

@@ -1,6 +1,8 @@
 'Imports DD_LIB_Standards
 Public Class ClassFileResult
     Public Shared Property DocID As Integer
+    Public Shared Property ParentID As Integer
+    Public Shared Property FileName As String
     Public Shared Property OldDisplayName As String
     Public Shared Property DocumentPath As String
     Public Shared InWork As Boolean = False
@@ -14,9 +16,6 @@ Public Class ClassFileResult
                 upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
             End If
             If MYDB_ECM.ExecuteNonQuery(upd) = True Then
-                'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
-                '    MYDB_ECM.ExecuteNonQuery(upd)
-                'End If
                 InWork = True
                 Return True
             Else
@@ -32,9 +31,6 @@ Public Class ClassFileResult
             Dim upd As String
             upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',CHANGED_WHO = '{2}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID, USER_USERNAME)
             If MYDB_ECM.ExecuteNonQuery(upd) = True Then
-                'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
-                '    MYDB_ECM.ExecuteNonQuery(upd)
-                'End If
                 Return True
             Else
                 Return False
@@ -86,8 +82,12 @@ Public Class ClassFileResult
     End Function
     Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
         Try
-            If DELETE_FILE = "True" Then
+            Dim oDelete = CBool(DELETE_FILE)
+            If oDelete = False Then
+                DELETE_FILE = 0
+            Else
                 DELETE_FILE = 1
+
             End If
             Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
             If MYDB_ECM.ExecuteNonQuery(proc) = True Then

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

@@ -5,20 +5,27 @@ Imports System.ComponentModel
 Public Class ClassHelper
     Private Shared BW_DocPath As String
     Private Shared BW_DocID As Integer
+    Private Shared BW_ParentID As Integer
+    Private Shared BW_Filename As String
     Public Shared Function FORMAT_WM_PATH(WMpath As String)
         Try
-            Dim ochanged As Boolean = False
-            If WMpath.StartsWith("W:") Then
-                WMpath = WMpath.Replace("W:", WMPATH_PREFIX)
-                ochanged = True
-            ElseIf WMpath.StartsWith("\") Then
-                If WMpath.StartsWith(WMPATH_PREFIX) = False Then
-                    WMpath = WMPATH_PREFIX & WMpath
+            If Not IsNothing(WMpath) Then
+                Dim ochanged As Boolean = False
+                If WMpath.StartsWith("W:") Then
+                    WMpath = WMpath.Replace("W:", WMPATH_PREFIX)
                     ochanged = True
+                ElseIf WMpath.StartsWith("\") Then
+                    If WMpath.StartsWith(WMPATH_PREFIX) = False Then
+                        WMpath = WMPATH_PREFIX & WMpath
+                        ochanged = True
+                    End If
                 End If
+                LOGGER.Debug("WMpath is: " & WMpath)
+                Return WMpath
+            Else
+                Return Nothing
             End If
-            LOGGER.Debug("WMpath is: " & WMpath)
-            Return WMpath
+
         Catch ex As Exception
             Return WMpath
         End Try
@@ -169,9 +176,15 @@ Public Class ClassHelper
         Return System.Text.RegularExpressions.Regex.Replace(
           sFilename, "[?*^""<>|]", REPLACEChar)
     End Function
-    Public Shared Function File_open(RESULT_DOC_PATH As Object, DocID As String)
+    Public Shared Function File_open(RESULT_DOC_PATH As Object, DocID As String, pParentID As Integer)
         Try
+            Dim oFileName = Path.GetFileName(RESULT_DOC_PATH)
+            BW_Filename = oFileName
             RESULT_DOC_PATH = FORMAT_WM_PATH(RESULT_DOC_PATH)
+            If pParentID = 0 Then
+                Dim sql = String.Format("SELECT dwParentID FROM TBPMO_DOCRESULT_LIST WHERE DocID = {0}", DocID)
+                pParentID = MYDB_ECM.GetScalarValue(sql)
+            End If
             If SHARE_DRIVE_ACTIVE Then
                 If RESULT_DOC_PATH.ToString.StartsWith(constWMOBJECTS) Then
                     RESULT_DOC_PATH = RESULT_DOC_PATH.ToString.Replace(constWMOBJECTS, WMPATH_PREFIX)
@@ -179,7 +192,7 @@ Public Class ClassHelper
 
 
             End If
-                CURRENT_OFFICE_FILE_CHANGED = False
+            CURRENT_OFFICE_FILE_CHANGED = False
             If RESULT_DOC_PATH <> Nothing Then
                 'Dim EXT = Path.GetExtension(RESULT_DOC_PATH)
                 'EXT = EXT.Replace(".", "")
@@ -191,7 +204,7 @@ Public Class ClassHelper
                 '                OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
                 '        End Select
                 '    Else
-                File_SYSOPEN(RESULT_DOC_PATH, DocID)
+                File_SYSOPEN(RESULT_DOC_PATH, DocID, pParentID)
                 'End If
                 Return True
             Else
@@ -219,33 +232,19 @@ Public Class ClassHelper
             LOGGER.Warn("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
         End Try
     End Sub
-    Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer)
-        Try
-            Dim DocView
-            DocView = Nothing
-            DocView = CreateObject("WMPViewXNG.Viewer")
-            ' open the viewer
-            Dim viewer_string = Doc_Path.Substring(2)
-            DocView.ViewFile(viewer_string)
-            CURRENT_DOCVIEW_PATH = viewer_string
-            CURRENT_DOCVIEW = DocView
-        Catch ex As Exception
-            MsgBox("Unexpected Error in DocView Open:" & vbNewLine & ex.Message & vbNewLine & Doc_Path & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
-            LOGGER.Warn("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID)
-            File_SYSOPEN(Doc_Path, DocID)
-        End Try
-    End Sub
-    Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
+    Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String, pParentID As Integer)
         Try
             If RESULT_DOC_PATH <> Nothing Then
 
                 BW_DocPath = RESULT_DOC_PATH
                 BW_DocID = DocID
+                BW_ParentID = pParentID
 
                 Dim BWFileHandler As New BackgroundWorker
                 AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
                 BWFileHandler.RunWorkerAsync()
-
+            Else
+                LOGGER.Warn("File_SYSOPEN RESULT_DOC_PATH is nothing")
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
@@ -255,45 +254,148 @@ Public Class ClassHelper
     End Sub
     Private Shared Sub BWFileHandler_DoWork()
         Try
+            Dim oOverrideRunPath As String = ""
+            Dim oExtension As String = Path.GetExtension(BW_DocPath).ToLower()
+
+            ' Prüfen, ob eine spezielle Anwendung für die Dateierweiterung definiert ist
+            For Each oROW As DataRow In CURRENT_TBFILE_EXTENSION_OVERRIDE.Rows
+                If oExtension.Replace(".", "") = oROW.Item("FILE_EXTENSION").ToString().ToLower() Then
+                    LOGGER.Debug($"Specific file extension override for [{oExtension}] found.")
+                    oOverrideRunPath = oROW.Item("PROCESS").ToString()
+                    Exit For
+                End If
+            Next
+
+            Dim oMyProcess As Process = Nothing
+            Dim oSql As String = ""
 
-            Dim oMyProcess = New Process()
-            Dim oExtension
-            Dim oSql
             Try
-                'Dim oPSI As New ProcessStartInfo(BW_DocPath)
-                oMyProcess.StartInfo.FileName = BW_DocPath
-                oMyProcess.StartInfo.UseShellExecute = True
-                oMyProcess.StartInfo.RedirectStandardOutput = False
-                oMyProcess.Start()
-                Dim ProcID = oMyProcess.GetCurrentProcess.Id
-                oMyProcess.WaitForExit()
-                oExtension = Path.GetExtension(BW_DocPath).ToLower
-                LOGGER.Debug($"Checking oExtension [{oExtension}]...")
-                If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
-                    oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
-                    Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
-                    If Not IsNothing(odwVersionId) Then
-                        Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
-                        MYDB_ECM.ExecuteNonQuery(oInsert)
-                    End If
+                ' ###### Startinfo vorbereiten ######
+                Dim startInfo As New ProcessStartInfo()
+
+                If oOverrideRunPath <> "" Then
+                    startInfo.FileName = oOverrideRunPath
+                    startInfo.Arguments = $"""{BW_DocPath}"""
+                    LOGGER.Debug($"Opening document [{BW_DocPath}] using override application [{oOverrideRunPath}].")
+                Else
+                    startInfo.FileName = BW_DocPath
+                    LOGGER.Debug($"Opening document [{BW_DocPath}] with system default application.")
+                End If
+
+                startInfo.UseShellExecute = True
+                startInfo.RedirectStandardOutput = False
+                If oOverrideRunPath <> "" Then
+                    oMyProcess = Process.Start(startInfo)
+                Else
+                    oMyProcess = Process.Start(BW_DocPath)
+                End If
+                ' ###### Prozess starten ######
+
+
+                ' ID des gestarteten Prozesses holen (nicht den eigenen!)
+                Dim ProcID As Integer = oMyProcess.Id
+                LOGGER.Debug($"Started process ID {ProcID} for document [{BW_DocPath}].")
+
+                ' Warten, bis der Benutzer das Dokument geschlossen hat
+                oMyProcess.WaitForExit()
+
+                ' Nachbearbeitung, wenn Format bearbeitbar ist
+                oExtension = Path.GetExtension(BW_DocPath).ToLower()
+                LOGGER.Debug($"Checking if file extension [{oExtension}] may change during edit...")
+
+                If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) And oOverrideRunPath = "" Then
+                    LOGGER.Debug("Create possible Document change in TBPMO_DOC_ID_CHANGED.")
+                    Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,NEW_DOC_ID,DOC_PATH) VALUES (" &
+                                  $"{USER_GUID},'{ProcID}',9999,{BW_DocID},0,'{BW_DocPath}')"
+                    MYDB_ECM.ExecuteNonQuery(oInsert)
+
                 End If
 
-                'oMyProcess.WaitForExit()
             Catch ex As Exception
-                LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
-                MsgBox("Error in OpenFile: " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, MsgBoxStyle.Exclamation)
-                Exit Sub
+                ' Fehler im Prozessstart oder während des Wartens
+                LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+                MsgBox("Error in OpenFile: " & ex.Message & vbNewLine &
+                   "Path: " & BW_DocPath & vbNewLine & "DocID: " & BW_DocID,
+                   MsgBoxStyle.Exclamation, "Open File Error")
             End Try
 
         Catch ex As Exception
-            LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+            ' Fehler im gesamten Worker (z. B. Path nicht vorhanden)
+            LOGGER.Warn("General error in BWFileHandler_DoWork: " & ex.Message & vbNewLine &
+                    " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+
+            ' Letzter Versuch: Öffne mit Standardprogramm
             Try
                 Process.Start(BW_DocPath)
+                LOGGER.Debug("Fallback: Document opened with default application.")
             Catch ex1 As Exception
-                LOGGER.Warn("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+                LOGGER.Warn("Fallback error in Process.Start(): " & ex1.Message & vbNewLine &
+                        " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
             End Try
         End Try
     End Sub
+    'Private Shared Sub BWFileHandler_DoWork()
+    '    Try
+    '        Dim oOverrideRunPath As String = ""
+    '        Dim oExtension = Path.GetExtension(BW_DocPath).ToLower
+    '        For Each oROW As DataRow In CURRENT_TBFILE_EXTENSION_OVERRIDE.Rows
+    '            If oExtension.Replace(".", "") = oROW.Item("FILE_EXTENSION") Then
+    '                LOGGER.Debug($"Specific fileextension override for extension [{oExtension}] found! ")
+    '                oOverrideRunPath = oROW.Item("PROCESS")
+    '            End If
+    '        Next
+    '        Dim oMyProcess = New Process()
+    '        Dim oSql
+    '        Try
+    '            '######
+    '            Dim startInfo As New ProcessStartInfo()
+    '            If oOverrideRunPath <> "" Then
+    '                startInfo.FileName = oOverrideRunPath
+    '                startInfo.Arguments = """" & BW_DocPath & """"
+    '                startInfo.UseShellExecute = True
+    '                startInfo.RedirectStandardOutput = False
+    '            Else
+    '                startInfo.FileName = BW_DocPath
+    '                startInfo.UseShellExecute = True
+    '                startInfo.RedirectStandardOutput = False
+    '            End If
+    '            '#####
+    '            oMyProcess.Start(startInfo)
+    '            Dim myViewerProcessID = oMyProcess.Id
+    '            oMyProcess.WaitForExit()
+    '            oExtension = Path.GetExtension(BW_DocPath).ToLower
+    '            LOGGER.Debug($"Checking oExtension [{oExtension}]...")
+    '            If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
+    '                oSql = $"SELECT * FROM VWOF_DOCID_HANDLE WHERE dwParentID = {BW_ParentID} and [Filename] = '{BW_Filename}'"
+    '                Dim oDTNEWDoc As DataTable = MYDB_ECM.GetDatatable(oSql)
+
+    '                If Not IsNothing(oDTNEWDoc) Then
+    '                    If oDTNEWDoc.Rows.Count = 1 Then
+
+    '                        Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,NEW_DOC_ID, DOC_PATH) VALUES (
+    '                            {USER_GUID},'{myViewerProcessID.ToString}',{oDTNEWDoc.Rows(0).Item("dwVersionID")},{BW_DocID},{oDTNEWDoc.Rows(0).Item("NewDocID")}, '{BW_DocPath}')"
+    '                        MYDB_ECM.ExecuteNonQuery(oInsert)
+    '                    End If
+
+
+    '                End If
+    '            End If
+
+    '        Catch ex As Exception
+    '            LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+    '            MsgBox("Error in OpenFile: " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, MsgBoxStyle.Exclamation)
+    '            Exit Sub
+    '        End Try
+
+    '    Catch ex As Exception
+    '        LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+    '        Try
+    '            Process.Start(BW_DocPath)
+    '        Catch ex1 As Exception
+    '            LOGGER.Warn("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
+    '        End Try
+    '    End Try
+    'End Sub
     Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String)
         Try
             If PATH <> Nothing Then

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

@@ -22,7 +22,7 @@ Public Class ClassImport_Windream
                 'Die Datei nach windream importieren
                 Dim streamresult = WMMOD.NewFileStream(QuellDatei_Path, Targetpath, WMOBJECTTYPE)
                 If streamresult = True Then
-                    Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE FULL_FILENAME = '{0}' AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
+                    Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE()) AND FULL_FILENAME = '{0}'", CURRENT_FILEIN_WD)
                     CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)
                     sql = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DOCTYPE_ID} AND ENTITY_ID = {CURRENT_ENTITY_ID}"
                     Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
@@ -108,7 +108,7 @@ Public Class ClassImport_Windream
 
             myLogger = LOGCONFIG.GetLogger()
             Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
-            Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME = 'Global-Indexer'"
+            Dim sql As String = "select TOP 1 VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME In ('fileFLOW', 'Global-Indexer')"
             Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
             FILE_DELIMITER = DT1.Rows(0).Item("FILE_DELIMITER")
             VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")

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

@@ -11,24 +11,29 @@ Public Class ClassInit
     Public Sub InitLoggerANDConfig()
         Try
             Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
-            LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, oLocalUserAppDataPath & "\Log", Nothing,
+            LOGCONFIG = New LogConfig(LogConfig.PathType.AppData,
+                                      oLocalUserAppDataPath & "\Log", Nothing,
                                         My.Application.Info.CompanyName,
                                         My.Application.Info.ProductName)
             LOGGER = LOGCONFIG.GetLogger()
             LOGGER.Info("orgFLOW started")
 
             Dim oUserAppDataPath As String = Application.UserAppDataPath
+
             Dim oLegacyAppDataPath As String = Application.UserAppDataPath
             Dim oCommonAppDataPath = Application.CommonAppDataPath
+            LOGGER.Debug($"oCommonAppDataPath: {oCommonAppDataPath}")
             Dim oStartupPath = Application.StartupPath
             ' If AppConfig from Startup Path should be forced, rewrite the common app data path
-            If My.Settings.UseAppConfigConString = True Then
+            If My.Settings.UseAppConfig = True Then
                 oCommonAppDataPath = oStartupPath
+                LOGGER.Info($"Achtung: Anstatt ComputerConfig wird AppConfig-/Startup-Path ({oCommonAppDataPath}) benutzt! (UseAppConfig in Appdata)")
             End If
 
             CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
-            LOGGER.Info("Config loaded")
-
+            LOGGER.Debug("Config loaded")
+            LOGGER.Debug($"oUserAppDataPath: {oUserAppDataPath}")
+            LOGGER.Debug($"oCommonAppDataPath: {oCommonAppDataPath}")
             Try
                 If CONFIG.Config.ConnectionString <> String.Empty Then
                     LOGGER.Debug("Connection String loaded")
@@ -194,6 +199,8 @@ Public Class ClassInit
 
                 ElseIf oRow.Item("TITLE") = "OF_NODE_SEARCH" Then
                     SQL_OF_NODE_SEARCH = oRow.Item("SQL_COMMAND")
+                ElseIf oRow.Item("TITLE") = "LIC_COUNT_NAMED" Then
+                    SQL_LIC_NAMED_USER = oRow.Item("SQL_COMMAND")
                 End If
 
 
@@ -214,6 +221,11 @@ Public Class ClassInit
                     ElseIf oRow.Item("CAT_TITLE") = "WM_RWA2" Then
                         WM_RWA2 = oRow.Item("CAT_STRING")
                         LOGGER.Debug("WM_RWA2 = " + WM_RWA1)
+                    ElseIf oRow.Item("CAT_TITLE") = "OF_FILESTORE_ENTITY" Then
+                        OF_FILESTORE_ENTITY = oRow.Item("CAT_STRING")
+                        Dim oSQL1 = String.Format("select A.GUID from TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B ON A.GUID = B.CONSTRUCT_ID WHERE B.FORM_ID = {0}", OF_FILESTORE_ENTITY)
+                        OF_FILESTORE_CONSTRUCTOR = MYDB_ECM.GetScalarValue(oSQL1)
+                        LOGGER.Debug(String.Format("OF_FILESTORE_ENTITY = {0}", OF_FILESTORE_ENTITY.ToString))
                     End If
                 Next
             Catch ex As Exception
@@ -230,8 +242,8 @@ Public Class ClassInit
             CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql)
             oSql = "select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID"
             CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(oSql)
-            'clsCURRENT.LOG_ERRORS_ONLY = DEBUG
-
+            oSql = "SELECT * FROM TBFILE_EXTENSION_OVERRIDE"
+            CURRENT_TBFILE_EXTENSION_OVERRIDE = MYDB_ECM.GetDatatable(oSql)
             oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
             Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(oSql)
             For Each oRow As DataRow In oDTFF_CHANGE.Rows
@@ -310,6 +322,7 @@ Public Class ClassInit
                 Try
                     USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
                 Catch ex As Exception
+                    LOGGER.Warn("ACHTUNG - Spalte USERID_FK_INT_ECM nicht in FNDD_LOGIN_USER_MODULE enthalten ")
                     USERID_FK_INT_ECM = 0
                 End Try
                 LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")
@@ -464,22 +477,30 @@ Public Class ClassInit
                 MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
             End Try
 
-            oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED)
+
+            If SQL_LIC_NAMED_USER <> "" Then
+                SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@MODULE", "Record-Organizer")
+                SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@CLIENT", CLIENT_SELECTED.ToString)
+                oFNSQL = SQL_LIC_NAMED_USER
+            Else
+                oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED)
+            End If
+
             Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL)
-            USERS_LOGGED_IN = CInt(anzahl)
-            LOGGER.Info("User# logged in: " & anzahl.ToString)
+            LICENSES_USED = CInt(anzahl)
+            LOGGER.Info("NamedUser via SQL_LIC_NAMED_USER in TimeSpan: " & anzahl.ToString)
             LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString)
             '####
 
-            If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) And LICENSE_EXPIRED = False Then
-                Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+            If LICENSE_COUNT <= (LICENSES_USED) And LICENSE_EXPIRED = False Then
+                Dim msg = String.Format("Die Anzahl der aktuell verbrauchten Lizenzen (" & LICENSES_USED.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
 
                 If USER_LANGUAGE <> "de-DE" Then
-                    msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine &
+                    msg = String.Format("The number of USED licenses (" & LICENSES_USED.ToString & ") exceeds the number of licenses." & vbNewLine &
                                                 "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
                 End If
                 MsgBox(msg, MsgBoxStyle.Exclamation)
-                LOGGER.Warn("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
+                LOGGER.Warn("The number of USED licenses (" & LICENSES_USED.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
                 If USER_IS_ADMIN = False Then
                     'Anmeldung wieder herausnehmen
                     oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
@@ -487,6 +508,11 @@ Public Class ClassInit
                     LOGGER.Warn(" - logged out the user")
                     Return False
                 End If
+            ElseIf LICENSE_EXPIRED = True Then
+                MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact your admin!", MsgBoxStyle.Exclamation)
+                oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
+                MYDB_ECM.ExecuteNonQuery(oFNSQL)
+                Return False
             Else
                 Try
                     'Die FolderWatch starten

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

@@ -57,7 +57,7 @@ Public Class ClassJumpRecord
                 Exit Sub
             End If
             JUMP_STATE = STATE_ID
-            JUMP_RECORD_ID = recordId
+            JUMP_ID = recordId
             'OpenFormConstructor(constructorId, recordId)
             OpenRecordView()
         Catch ex As Exception

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

@@ -13,18 +13,22 @@ Public Class ClassLicence
 
             Dim lic As String = MYDB_ECM.GetScalarValue(sql)
             If lic = "" Then
+                LOGGER.Info($"Achtung es gibt keine Lizenz-  Prüfe SQL [{sql}]")
                 LICENSE_COUNT = 0
                 LICENSE_DATE = "1900-01-01"
                 LICENSE_DOSSIER_COUNT = 0
                 Exit Sub
             End If
             Dim licString = _lizenzManager.DecodeLicenseKey(lic)
+            LOGGER.Info("lic-String is: " & licString)
             Dim split() = licString.ToString.Split("#")
 
             If lic <> "" Then
                 LICENSE_COUNT = split(0)
             Else
+
                 LICENSE_COUNT = 0
+                LOGGER.Info($"Achtung LICENSE_COUNT wird 0 - licString: [{licString}]")
             End If
             Dim LicDATEsplit() = split(1).ToString.Split("-")
             Dim LICENSE_FILE_DATE As Date
@@ -103,7 +107,7 @@ Public Class ClassLicence
         End Try
     End Sub
 
-    Public Shared Function license_is_Valid()
+    Public Shared Function license_is_Expired()
         If LICENSE_EXPIRED Then
             MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation)
             Return False

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

@@ -1,7 +1,9 @@
 Imports System.ComponentModel
+Imports System.Data.SqlClient
 Imports System.Drawing.Design
 Imports System.Windows.Forms
 Imports System.Windows.Forms.Design
+Imports DigitalData.GUIs.Common
 
 Public Class ClassSQLEditor
     Inherits UITypeEditor
@@ -14,19 +16,26 @@ Public Class ClassSQLEditor
     Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
         'Return MyBase.EditValue(context, provider, value)
         Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
-        Dim SQLSTring As String = DirectCast(value, SQLValue).Value
+        Dim SQLString As String = DirectCast(value, SQLValue).Value
 
-        'If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
-        '    Using Form As New frmSQLEditor()
-        '        Form.Value = SQLSTring
-        '        If svc.ShowDialog(Form) = DialogResult.OK Then
-        '            Dim sql As New SQLValue(Form.Value)
-        '            value = sql
-        '        End If
-        '    End Using
-        'End If
+        If svc IsNot Nothing AndAlso SQLString IsNot Nothing Then
+            Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, MYDB_ECM) With {
+                .SQLCommand = SQLString
+            }
+
+            Dim oResult = oForm2.ShowDialog()
+            If oResult = DialogResult.OK Then
+                Dim oSql As New SQLValue(oForm2.SQLCommand)
+                value = oSql
+                SQLString = oForm2.SQLCommand
+            End If
+        End If
+        If Not IsNothing(value) Then
+            Return value
+        Else
+            Return Nothing
+        End If
 
-        Return ""
     End Function
 End Class
 

app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb

@@ -393,10 +393,10 @@ Public Class ClassControlCommandsUI
     End Sub
 
     Private Sub UpsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap)
-        Dim existsSQL As String = "SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
-        Dim exists = MYDB_ECM.ExecuteNonQuery(existsSQL)
+        Dim existsSQL As String = "SELECT COALESCE(MAX(GUID),0) FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
+        Dim exists = MYDB_ECM.GetScalarValue(existsSQL)
 
-        If IsNothing(exists) Then
+        If exists = 0 Then
             InsertImage(ControlID, RecordID, image)
         Else
             UpdateImage(ControlID, RecordID, image)

app/DD-Record-Organizer/ModuleHelperMethods.vb

@@ -262,8 +262,15 @@ Module ModuleHelperMethods
 
     End Sub
 
-    Public Sub OpenFormConstructor(id As Integer, NodeNav As Boolean, EntityID As Int16, Optional pRecordId As Integer = -1)
+    Public Sub OpenFormConstructor(id As Integer, NodeNav As Boolean, EntityID As Int16, Optional pJumpID As Integer = -1)
         Try
+
+            If pJumpID <> -1 Then
+                ' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
+                JUMP_ID = pJumpID
+            End If
+
+
             If CURRENT_OPEN_CONSTRUCTOR_FORMS.Contains(id) Then
                 Dim frm1 As New frmConstructor_Main
                 frm1.Tag = id
@@ -275,6 +282,14 @@ Module ModuleHelperMethods
                         If frmCollection.Item(i).WindowState = FormWindowState.Minimized Then
                             frmCollection.Item(i).WindowState = FormWindowState.Normal
                         End If
+                        CURRENT_CONSTRUCTOR_ID = id
+                        CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
+                        If pJumpID <> -1 Then
+                            ' Nur ausführen, wenn das Form tatsächlich JumptoNode unterstützt
+                            If TypeOf frmCollection.Item(i) Is frmNodeNavigation Then
+                                DirectCast(frmCollection.Item(i), frmNodeNavigation).JumptoNode()
+                            End If
+                        End If
                         Exit Sub
                     End If
                 Next i
@@ -285,7 +300,7 @@ Module ModuleHelperMethods
             CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
 
             If NodeNav Then
-                Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID, pRecordId)
+                Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
                 frmNodeNav.Tag = id
                 If My.Settings.EntFormsChild = True Then
                     Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
@@ -295,15 +310,15 @@ Module ModuleHelperMethods
                 End If
 
 
-                If pRecordId <> -1 Then
-                    ' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
-                    JUMP_RECORD_ID = pRecordId
-                End If
                 If My.Settings.EntFormsChild = True Then
                     frmNodeNav.MdiParent = MAIN_FORM
                 End If
 
                 frmNodeNav.Show()
+                If pJumpID <> -1 Then
+                    frmNodeNav.JumptoNode()
+                End If
+
             Else
                 Dim frm As New frmConstructor_Main()
                 frm.Tag = id
@@ -315,9 +330,9 @@ Module ModuleHelperMethods
                 End If
 
 
-                If pRecordId <> -1 Then
+                If pJumpID <> -1 Then
                     ' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
-                    JUMP_RECORD_ID = pRecordId
+                    JUMP_ID = pJumpID
                 End If
                 If My.Settings.EntFormsChild = True Then
                     frm.MdiParent = MAIN_FORM

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -55,7 +55,7 @@ Module ModuleMySettings
 
     Public USER_IS_ADMIN = False
     Public USER_IS_SUPERVISOR = False
-    Public USERS_LOGGED_IN = 0
+    Public LICENSES_USED = 0
 
     Public USER_USERNAME As String
     Public USER_PERSONIFIED_TEST As Boolean = False
@@ -79,6 +79,9 @@ Module ModuleMySettings
     Public WM_RWA1 As String = ""
     Public WM_RWA2 As String = ""
 
+    Public OF_FILESTORE_ENTITY As Integer = 0
+    Public OF_FILESTORE_CONSTRUCTOR As Integer = 0
+
     Dim rowresult As String = ""
     Public MYGDPICTURE_LICENSE_KEY As String = ""
     Public Function LoadFileExclusion()

app/DD-Record-Organizer/ModuleRuntimeVariables.vb

@@ -88,7 +88,7 @@ Module ModuleRuntimeVariables
     Public BOOLEAN1 As Boolean = False
 
     Public JUMP_STATE As Integer
-    Public JUMP_RECORD_ID As Integer
+    Public JUMP_ID As Long
 
     Public TEMP_FILES As List(Of String) = New List(Of String)
     Public FILE_FORMATS_CHANGE_DURING_EDIT As List(Of String) = New List(Of String)
@@ -117,6 +117,8 @@ Module ModuleRuntimeVariables
     Public CURRENT_VARIABLE_CONTROLS As DataTable
     Public CURRENT_TBPMO_FORM_VIEW As DataTable
     Public CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS As DataTable
+    Public CURRENT_TBFILE_EXTENSION_OVERRIDE As DataTable
+
     Public CURRENT_TBPMO_RIGHT_USER As DataTable
 
     Public CURRENT_RECORD_ENABLED As Boolean = False
@@ -201,6 +203,8 @@ Module ModuleRuntimeVariables
     Public SQL_DOC_RESULT_RECORD As String = ""
     Public SQL_GLOBAL_SEARCH As String = ""
     Public SQL_OF_NODE_SEARCH As String = ""
+    Public SQL_LIC_NAMED_USER As String = ""
+    Public SQL_LIC_NAMED_USER_WITH_PATTERN As String = ""
     Public CONF_SUPPORTPORTAL As String = "https://www.digitaldata.works/Support'"
 
     Public Property FILESYSTEM As FilesystemEx

app/DD-Record-Organizer/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.4.0.0")>
+<Assembly: AssemblyVersion("3.6.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

app/DD-Record-Organizer/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -267,16 +267,13 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("True")>  _
-        Public Property UseAppConfigConString() As Boolean
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public ReadOnly Property UseAppConfig() As Boolean
             Get
-                Return CType(Me("UseAppConfigConString"),Boolean)
+                Return CType(Me("UseAppConfig"),Boolean)
             End Get
-            Set
-                Me("UseAppConfigConString") = value
-            End Set
         End Property
         
         <Global.System.Configuration.UserScopedSettingAttribute(),  _

app/DD-Record-Organizer/My Project/Settings.Settings

@@ -58,8 +58,8 @@
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True</Value>
     </Setting>
-    <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">True</Value>
+    <Setting Name="UseAppConfig" Type="System.Boolean" Scope="Application">
+      <Value Profile="(Default)">False</Value>
     </Setting>
     <Setting Name="EntFormsChild" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">True</Value>

app/DD-Record-Organizer/My Project/licenses.licx

@@ -1,12 +1,13 @@
-DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD-Record-Organizer/OrgFlow.vbproj

@@ -33,7 +33,7 @@
     </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
@@ -70,6 +70,27 @@
   <PropertyGroup>
     <ApplicationIcon>ORGFLOW_Icon_256x256.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
+    <DebugSymbols>true</DebugSymbols>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\x64\Debug\</OutputPath>
+    <DocumentationFile>orgFLOW.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>full</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\x64\Release\</OutputPath>
+    <DocumentationFile>orgFLOW.xml</DocumentationFile>
+    <Optimize>true</Optimize>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>pdbonly</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
       <HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
@@ -172,9 +193,12 @@
     <Reference Include="DevExpress.XtraWizard.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.6.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Controls.DocumentViewer, Version=2.6.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.GUIs.Common">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Base">
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
@@ -227,6 +251,9 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
+    <Reference Include="Mail">
+      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Limilabs\Mail.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
       <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
     </Reference>
@@ -1003,6 +1030,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmGlobalSearch.resx">
       <DependentUpon>frmGlobalSearch.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmStaticListEditor.en-US.resx">
       <DependentUpon>frmStaticListEditor.vb</DependentUpon>
@@ -1015,6 +1043,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmStructureNodeConfig.resx">
       <DependentUpon>frmStructureNodeConfig.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmTreeSearchResult.en-US.resx">
       <DependentUpon>frmTreeSearchResult.vb</DependentUpon>
@@ -1329,6 +1358,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>
@@ -1738,6 +1768,10 @@
     </PropertyGroup>
     <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets'))" />
   </Target>
+  <PropertyGroup>
+    <PostBuildEvent>
+    </PostBuildEvent>
+  </PropertyGroup>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

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

@@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
@@ -68,6 +68,9 @@ Partial Class frmConfig_Basic
         Me.Label8 = New System.Windows.Forms.Label()
         Me.btnstartstop2 = New System.Windows.Forms.Button()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.txtCreateWMFolder = New System.Windows.Forms.TextBox()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.rbGruppe = New System.Windows.Forms.RadioButton()
         Me.rbUser = New System.Windows.Forms.RadioButton()
@@ -76,9 +79,7 @@ Partial Class frmConfig_Basic
         Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
         Me.txtwdFolder = New System.Windows.Forms.TextBox()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.txtCreateWMFolder = New System.Windows.Forms.TextBox()
-        Me.Label6 = New System.Windows.Forms.Label()
+        Me.CheckBox_ForceTemporaryMode = New System.Windows.Forms.CheckBox()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.TabPage2.SuspendLayout()
@@ -192,6 +193,7 @@ Partial Class frmConfig_Basic
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.CheckBox_ForceTemporaryMode)
         Me.TabPage2.Controls.Add(Me.GroupBox5)
         Me.TabPage2.Controls.Add(Me.GroupBox1)
         Me.TabPage2.Controls.Add(Me.GroupBox4)
@@ -362,8 +364,8 @@ Partial Class frmConfig_Basic
         '
         'DataGridView1
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         resources.ApplyResources(Me.DataGridView1, "DataGridView1")
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView1.Name = "DataGridView1"
@@ -411,6 +413,22 @@ Partial Class frmConfig_Basic
         Me.TabPage4.Name = "TabPage4"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
+        'Label6
+        '
+        resources.ApplyResources(Me.Label6, "Label6")
+        Me.Label6.Name = "Label6"
+        '
+        'Button4
+        '
+        resources.ApplyResources(Me.Button4, "Button4")
+        Me.Button4.Name = "Button4"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'txtCreateWMFolder
+        '
+        resources.ApplyResources(Me.txtCreateWMFolder, "txtCreateWMFolder")
+        Me.txtCreateWMFolder.Name = "txtCreateWMFolder"
+        '
         'GroupBox2
         '
         Me.GroupBox2.Controls.Add(Me.rbGruppe)
@@ -462,21 +480,11 @@ Partial Class frmConfig_Basic
         resources.ApplyResources(Me.Label12, "Label12")
         Me.Label12.Name = "Label12"
         '
-        'Button4
+        'CheckBox_ForceTemporaryMode
         '
-        resources.ApplyResources(Me.Button4, "Button4")
-        Me.Button4.Name = "Button4"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'txtCreateWMFolder
-        '
-        resources.ApplyResources(Me.txtCreateWMFolder, "txtCreateWMFolder")
-        Me.txtCreateWMFolder.Name = "txtCreateWMFolder"
-        '
-        'Label6
-        '
-        resources.ApplyResources(Me.Label6, "Label6")
-        Me.Label6.Name = "Label6"
+        resources.ApplyResources(Me.CheckBox_ForceTemporaryMode, "CheckBox_ForceTemporaryMode")
+        Me.CheckBox_ForceTemporaryMode.Name = "CheckBox_ForceTemporaryMode"
+        Me.CheckBox_ForceTemporaryMode.UseVisualStyleBackColor = True
         '
         'frmConfig_Basic
         '
@@ -562,4 +570,5 @@ Partial Class frmConfig_Basic
     Friend WithEvents Label6 As Label
     Friend WithEvents Button4 As Button
     Friend WithEvents txtCreateWMFolder As TextBox
+    Friend WithEvents CheckBox_ForceTemporaryMode As CheckBox
 End Class

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -213,6 +213,7 @@ Public Class frmConfig_Basic
         Select Case TabControl1.SelectedIndex
             Case 1
                 cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
+                CheckBox_ForceTemporaryMode.Checked = CONFIG.Config.Viewer_ForceTemporaryMode
             Case 2
                 Dim DTSCAN_folderwatch As Data.DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
                 If Not DTSCAN_folderwatch Is Nothing Then
@@ -543,4 +544,10 @@ Public Class frmConfig_Basic
             End If
         End If
     End Sub
+
+
+    Private Sub CheckBox_ForceTemporaryMode_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_ForceTemporaryMode.CheckedChanged
+        CONFIG.Config.Viewer_ForceTemporaryMode = CheckBox_ForceTemporaryMode.Checked
+        CONFIG.Save()
+    End Sub
 End Class

app/DD-Record-Organizer/frmConstructorDesigner.vb

@@ -215,7 +215,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
             Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text
 
             Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
-                            "from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID IN (1,4) AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
+                            "from VWPMO_CONSTRUCTOR_FORMS WHERE (FORM_TYPE_ID IN (1,4) OR FORM_TYPE = 'Personal file') AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
 
             Dim DT As DataTable = MYDB_ECM.GetDatatable(sel_sql)
             If DT.Rows.Count >= 1 Then

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -3790,9 +3790,9 @@ Public Class frmConstructor_Main
             Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {ENTITY_ID}"
             CURRENT_DOCSEARCH_SQL = MYDB_ECM.ExecuteNonQuery(oSQL)
             If CURRENT_DOCSEARCH_SQL <> String.Empty Then
-                Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
+                Dim oText = $"Die Sicht-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
                 If USER_LANGUAGE <> "de-De" Then
-                    oText = $"The entity-wide search will be started in background. The result will be displayed when ready."
+                    oText = $"The view-wide search will be started in background. The result will be displayed when ready."
                 End If
                 MsgBox(oText, vbOKOnly, "Information")
 
@@ -3804,9 +3804,9 @@ Public Class frmConstructor_Main
 
 
                 If USER_LANGUAGE <> "de-DE" Then
-                    CURRENT_DOCSEARCH_CAPTION = "Entity-wide search"
+                    CURRENT_DOCSEARCH_CAPTION = "view-wide search"
                 Else
-                    CURRENT_DOCSEARCH_CAPTION = "Entitätssuche"
+                    CURRENT_DOCSEARCH_CAPTION = "Sicht-Suche"
                 End If
                 Dim myformThread = New Thread(Sub()
                                                   Using frm As New frmDocSearchResult
@@ -3886,9 +3886,9 @@ Public Class frmConstructor_Main
                         Else
                             Entitystring = selnode.Text
                         End If
-                        msg = "Dateien für Entität: " & Entitystring
+                        msg = "Dateien für Sicht: " & Entitystring
                         If USER_LANGUAGE <> "de-DE" Then
-                            msg = "files for entity: " & Entitystring
+                            msg = "files for view: " & Entitystring
                         End If
                         msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                     ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
@@ -3963,9 +3963,9 @@ Public Class frmConstructor_Main
                         Else
                             Entitystring = selnode.Text
                         End If
-                        msg = "Keine Dateien für Entität: " & Entitystring & " gefunden"
+                        msg = "Keine Dateien für Sicht: " & Entitystring & " gefunden"
                         If USER_LANGUAGE <> "de-DE" Then
-                            msg = "No files found for entity: " & Entitystring
+                            msg = "No files found for View: " & Entitystring
                         End If
                     ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
                         If NODE_NAVIGATION Then
@@ -4837,7 +4837,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
     Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click
         ClassJumpRecord.JumpToRecord(2, RECORD_ID)
-        JUMP_RECORD_ID = 0
+        JUMP_ID = 0
     End Sub
 
 
@@ -4978,8 +4978,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
         Try
             Dim sw As New SW("Jump_Record")
 
-            If JUMP_RECORD_ID > 0 Then
-                Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
+            If JUMP_ID > 0 Then
+                Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_ID)
                 Dim FormID = MYDB_ECM.GetScalarValue(sql)
                 If FormID > 0 Then
                     Dim n As TreeNode
@@ -4991,8 +4991,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
             ' wurde nicht zurückgesetzt, also 
             ' wurde der record nicht gefunden
-            If JUMP_RECORD_ID <> 0 Then
-                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden")
+            If JUMP_ID <> 0 Then
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_ID & " konnte nicht gefunden werden")
             End If
             sw.Done()
         Catch ex As Exception
@@ -5010,10 +5010,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
             'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
             'für Carousel und Tiles markieren wir den Record
-            LocateRecordinGridById(JUMP_RECORD_ID)
+            LocateRecordinGridById(JUMP_ID)
 
             ' Jump Record-ID wieder zurücksetzen
-            JUMP_RECORD_ID = 0
+            JUMP_ID = 0
             Exit Sub
         End If
 
@@ -5026,10 +5026,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
                 'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
                 'für Carousel und Tiles markieren wir den Record
-                LocateRecordinGridById(JUMP_RECORD_ID)
+                LocateRecordinGridById(JUMP_ID)
 
                 ' Jump Record-ID wieder zurücksetzen
-                JUMP_RECORD_ID = 0
+                JUMP_ID = 0
                 Exit For
                 Exit Sub
             End If
@@ -5807,7 +5807,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
     Private Sub DetailAnsichtDatensatzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailAnsichtDatensatzToolStripMenuItem.Click
         ClassJumpRecord.JumpToRecord(0, RECORD_ID)
-        JUMP_RECORD_ID = 0
+        JUMP_ID = 0
     End Sub
     Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As Views.Grid.RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
         If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
@@ -6414,7 +6414,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Show_Detail_Record: ", ex.Message)
         End Try
-        JUMP_RECORD_ID = 0
+        JUMP_ID = 0
     End Sub
 
 
@@ -6774,7 +6774,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
                 Exit Sub
             End If
             For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
-                If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) = True Then
+                If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"), 0) = True Then
                     TimerFileHandle.Enabled = True
                 End If
 
@@ -7227,7 +7227,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
                     If result = MsgBoxResult.Yes Then
                         ClassJumpRecord.JumpToRecord(2, RECORD_ID)
                         ClassWorkflow.Refresh_Workflows_Entity()
-                        JUMP_RECORD_ID = 0
+                        JUMP_ID = 0
                     End If
                 Else
                     If USER_LANGUAGE = "de-DE" Then
@@ -7245,7 +7245,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
     Private Sub bbtniclearCache_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniclearCache.ItemClick
         Dim result As MsgBoxResult
-        Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
+        Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Sicht wird dann automatisch neugeladen!"
         If USER_LANGUAGE <> "de-DE" Then
             msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
         End If

app/DD-Record-Organizer/frmCustomAppointment.vb

@@ -94,9 +94,9 @@ Partial Public Class frmCustomAppointment
     Private Sub btnJumpToRecord_Click(sender As Object, e As EventArgs) Handles btnJumpToRecord.Click
         If txtRecordID.Text.Length > 0 Then
             Dim RecordId = Integer.Parse(txtRecordID.Text)
-            JUMP_RECORD_ID = RecordId
+            JUMP_ID = RecordId
 
-            Dim constructDT As DataTable = MYDB_ECM.GetDatatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_RECORD_ID)
+            Dim constructDT As DataTable = MYDB_ECM.GetDatatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_ID)
 
             ' TODO: FormId und ConstructId herausfinden
 

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

@@ -35,9 +35,10 @@ Partial Class frmDocRecordLink
         Me.bbtnitmLinkRecords = New DevExpress.XtraBars.BarButtonItem()
         Me.bbtnitmsaveLayout = New DevExpress.XtraBars.BarButtonItem()
         Me.bbtnitmresetlayout = New DevExpress.XtraBars.BarButtonItem()
+        Me.bsitmSource = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -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,17 +151,28 @@ 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"
         '
+        'bsitmSource
+        '
+        Me.bsitmSource.Id = 5
+        Me.bsitmSource.Name = "bsitmSource"
+        '
         '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")
         '
+        'RibbonPageGroup3
+        '
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmLinkRecords)
+        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
+        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
+        '
         'RibbonPageGroup1
         '
         Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
@@ -169,15 +181,10 @@ Partial Class frmDocRecordLink
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
         '
-        'RibbonPageGroup3
-        '
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmLinkRecords)
-        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
-        '
         '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
@@ -242,4 +249,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,29 +368,23 @@
         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="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
   </data>
   <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1155, 158</value>
+    <value>1155, 147</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 639</value>
+    <value>0, 638</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1155, 22</value>
+    <value>1155, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -416,6 +410,12 @@
   <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
     <value>9</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="RibbonPage2.Text" xml:space="preserve">
     <value>RibbonPage2</value>
   </data>
@@ -1717,7 +1717,7 @@
 </value>
   </data>
   <data name="$this.Text" xml:space="preserve">
-    <value>Datei mit Datensatz aus Entität verknüpfen</value>
+    <value>Datei mit Datensatz aus Sicht verknüpfen</value>
   </data>
   <data name="&gt;&gt;grvwGrid.Name" xml:space="preserve">
     <value>grvwGrid</value>
@@ -1749,24 +1749,30 @@
   <data name="&gt;&gt;bbtnitmresetlayout.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, 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;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
   <data name="&gt;&gt;RibbonPage1.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;RibbonPageGroup1.Name" xml:space="preserve">
-    <value>RibbonPageGroup1</value>
-  </data>
-  <data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">
     <value>RibbonPageGroup3</value>
   </data>
   <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
+    <value>RibbonPageGroup1</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
     <value>RibbonPage2</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 Documents As New List(Of ClassDocGrid.clsWMDoc)
+    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
@@ -19,6 +16,9 @@ Public Class frmDocRecordLink
         End Function
     End Class
     Private Function GET_CURRENT_ENTITY_DATA()
+        If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
+            Return Nothing
+        End If
         Dim oDatatable As DataTable = CURRENT_DT_ENTITY_RECORDS.Copy
         Return oDatatable
     End Function
@@ -26,18 +26,19 @@ Public Class frmDocRecordLink
         Dim DT_RECORDS As DataTable
         If current = True Then
             DT_RECORDS = GET_CURRENT_ENTITY_DATA()
+
         Else
             DT_RECORDS = ENTITY_DATATABLE
         End If
         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
@@ -62,11 +63,11 @@ Public Class frmDocRecordLink
             grvwGrid.Columns.Clear()
             dgEntityRecords.DataSource = DT_RECORDS
             '  grvwGrid.Columns.Item("already linked").Fixed = True
-            grvwGrid.PopulateColumns()
-            dgEntityRecords.RefreshDataSource()
-            grvwGrid.OptionsView.ColumnAutoWidth = False
-            grvwGrid.Columns(0).Fixed = FixedStyle.Left
-            grvwGrid.BestFitColumns()
+            'grvwGrid.PopulateColumns()
+            'dgEntityRecords.RefreshDataSource()
+            'grvwGrid.OptionsView.ColumnAutoWidth = False
+            'grvwGrid.Columns(0).Fixed = FixedStyle.Left
+            'grvwGrid.BestFitColumns()
 
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in format grid", ex.Message, ex.StackTrace)
@@ -75,7 +76,7 @@ Public Class frmDocRecordLink
     End Sub
     Private Sub frmDocRecordLink_Load(sender As Object, e As EventArgs) Handles Me.Load
         ' OLD WAY
-        If Documents.Count = 0 Then
+        If myDocuments.Count = 0 Then
             ENTITY_LOAD_ACTIVE = True
             If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
                 txtFileInfo.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
@@ -83,9 +84,6 @@ Public Class frmDocRecordLink
                 txtFileInfo.Text = String.Format("{0} files selected for linking to record", ClassDocGrid.DT_RESULTFILES.Rows.Count)
             End If
             Try
-                If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
-                    Me.Close()
-                End If
                 If CURRENT_LINK_ENTITY_ID = 0 Then
                     Refresh_Grid_Data(True, Nothing)
                     CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
@@ -139,12 +137,12 @@ Public Class frmDocRecordLink
 
         End If
 
-        If Documents.Count > 0 Then
+        If myDocuments.Count > 0 Then
             ENTITY_LOAD_ACTIVE = True
-            If Documents.Count = 1 Then
-                txtFileInfo.Text = Documents.First.DocPath
+            If myDocuments.Count = 1 Then
+                txtFileInfo.Text = myDocuments.First.DocPath
             Else
-                txtFileInfo.Text = String.Format("{0} files selected for linking to record", Documents.Count)
+                txtFileInfo.Text = String.Format("{0} files selected for linking to record", myDocuments.Count)
             End If
             Try
                 If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
@@ -232,7 +230,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 +242,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
@@ -260,15 +258,18 @@ Public Class frmDocRecordLink
     End Sub
 
     Private Sub btnloadData2Entity_Click(sender As Object, e As EventArgs) Handles btnloadData2Entity.Click
-        Dim entity As ClassEntity = DirectCast(cmbConstructorForms.SelectedItem, ClassEntity)
         Me.Cursor = Cursors.WaitCursor
         If cmbConstructorForms.SelectedIndex <> -1 Then
+            Dim entity As ClassEntity = DirectCast(cmbConstructorForms.SelectedItem, ClassEntity)
             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 +283,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
 
@@ -303,12 +305,12 @@ Public Class frmDocRecordLink
                 Continue For
             End If
             Try
-                For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
+                For Each oRow As DataRow In CURRENT_DT_SELECTED_FILES.Rows
 
-                    CURRENT_DOC_ID = row.Item("DOC_ID")
+                    CURRENT_DOC_ID = oRow.Item("DOC_ID")
                     LOGGER.Info("DocID {0} will be linked with Record {1} ", CURRENT_DOC_ID.ToString, oSelectedRecordID.ToString)
-                    Dim DOC_PATH = row.Item("FILEPATH")
-                    Dim _objecttype = row.Item("OBJECTTYPE")
+                    Dim DOC_PATH = oRow.Item("FILEPATH")
+                    Dim _objecttype = oRow.Item("OBJECTTYPE")
                     WMOBJECTTYPE = _objecttype
                     Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", oSelectedRecordID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
                     If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
@@ -340,7 +342,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 +373,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/frmDocSearchResult.Designer.vb

@@ -23,7 +23,7 @@ Partial Class frmDocSearchResult
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocSearchResult))
         Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
         Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -46,12 +46,13 @@ Partial Class frmDocSearchResult
         Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.DateienVerknüpfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStripResultFiles.SuspendLayout()
         CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -68,8 +69,8 @@ Partial Class frmDocSearchResult
         '
         Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
         Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode2.RelationName = "Level1"
-        Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        GridLevelNode1.RelationName = "Level1"
+        Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
         Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
         Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
         Me.GridControlDocSearch.Name = "GridControlDocSearch"
@@ -81,9 +82,9 @@ Partial Class frmDocSearchResult
         'ContextMenuStripResultFiles
         '
         Me.ContextMenuStripResultFiles.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator20, Me.docCM_Showlinks, Me.ToolStripSeparator22, Me.docCM_PropertiesFile, Me.ToolStripSeparator25})
+        Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator20, Me.docCM_Showlinks, Me.DateienVerknüpfenToolStripMenuItem, Me.ToolStripSeparator22, Me.docCM_PropertiesFile, Me.ToolStripSeparator25})
         Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
-        Me.ContextMenuStripResultFiles.Size = New System.Drawing.Size(256, 152)
+        Me.ContextMenuStripResultFiles.Size = New System.Drawing.Size(256, 200)
         '
         'docCM_Open
         '
@@ -232,6 +233,12 @@ Partial Class frmDocSearchResult
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         Me.RibbonPageGroup1.Text = "Funktionen"
         '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.bchlitmPreview)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "Datei"
+        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
@@ -281,11 +288,12 @@ Partial Class frmDocSearchResult
         Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
         Me.XtraSaveFileDialog1.Filter = """xlsx-Dateien|*.xlsx"""
         '
-        'RibbonPageGroup2
+        'DateienVerknüpfenToolStripMenuItem
         '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bchlitmPreview)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "Datei"
+        Me.DateienVerknüpfenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link
+        Me.DateienVerknüpfenToolStripMenuItem.Name = "DateienVerknüpfenToolStripMenuItem"
+        Me.DateienVerknüpfenToolStripMenuItem.Size = New System.Drawing.Size(255, 26)
+        Me.DateienVerknüpfenToolStripMenuItem.Text = "Datei mit Datensatz verknüpfen"
         '
         'frmDocSearchResult
         '
@@ -343,4 +351,5 @@ Partial Class frmDocSearchResult
     Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
     Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog
     Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents DateienVerknüpfenToolStripMenuItem As ToolStripMenuItem
 End Class

app/DD-Record-Organizer/frmDocSearchResult.vb

@@ -99,7 +99,7 @@ Public Class frmDocSearchResult
         Refresh_DocID()
         If SplitContainerControl1.Collapsed = False Then
             Dim OFilePath = ClassHelper.FORMAT_WM_PATH(SelectedFULL_FILEPATH)
-            DocumentViewer1.LoadFile(OFilePath)
+            DocumentViewer1.LoadFile_FromPath(OFilePath)
         End If
     End Sub
     Sub Refresh_DocID()
@@ -147,7 +147,7 @@ Public Class frmDocSearchResult
                 MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
-            ClassHelper.File_open(SelectedFULL_FILEPATH, SelectedDocID)
+            ClassHelper.File_open(SelectedFULL_FILEPATH, SelectedDocID, 0)
             If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True)
 
         Else
@@ -328,4 +328,23 @@ Public Class frmDocSearchResult
             LoadFile2Viewer()
         End If
     End Sub
+
+    Private Sub DateienVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateienVerknüpfenToolStripMenuItem.Click
+        Try
+            ClassDocGrid.GetDocItems(GridViewDoc_Search)
+
+            Dim oDocuments = ClassDocGrid.SELECTED_DOCUMENTS
+
+            If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
+                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
+
+            Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
+            oForm.Show()
+
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Showing DocRecordLink-Form: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class

app/DD-Record-Organizer/frmDoc_Links.resx

@@ -121,12 +121,6 @@
     <value>241, 17</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>149, 22</value>
-  </data>
-  <data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Ordner öffnen</value>
-  </data>
   <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
     <value>150, 26</value>
   </data>
@@ -141,10 +135,10 @@
     <value>Fill</value>
   </data>
   <data name="GridControlRecords.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 158</value>
+    <value>0, 147</value>
   </data>
   <data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing">
-    <value>908, 324</value>
+    <value>908, 334</value>
   </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="GridControlRecords.TabIndex" type="System.Int32, mscorlib">
@@ -162,8 +156,14 @@
   <data name="&gt;&gt;GridControlRecords.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
+  <data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>149, 22</value>
+  </data>
+  <data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Ordner öffnen</value>
+  </data>
   <data name="bbtnitmdeletelink.Caption" xml:space="preserve">
-    <value>Ausgewählte Links löschen</value>
+    <value>Ausgewählte Verknüpfungen löschen</value>
   </data>
   <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="bbtnitmdeletelink.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -320,16 +320,16 @@
     <value>Layout</value>
   </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
-    <value>Doc-Links</value>
+    <value>Verknüpfungen</value>
   </data>
   <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>908, 158</value>
+    <value>908, 147</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 482</value>
+    <value>0, 481</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>908, 22</value>
+    <value>908, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -544,7 +544,7 @@
     <value>CenterScreen</value>
   </data>
   <data name="$this.Text" xml:space="preserve">
-    <value>Doc-Links</value>
+    <value>Verknüpfungen</value>
   </data>
   <data name="&gt;&gt;OrdnerÖffnenToolStripMenuItem.Name" xml:space="preserve">
     <value>OrdnerÖffnenToolStripMenuItem</value>

app/DD-Record-Organizer/frmDoc_Links.vb

@@ -8,6 +8,7 @@ Imports Microsoft.Office.Interop.Outlook
 Public Class frmDoc_Links
 
     Private ENTITY_ID As Integer = 0
+    Private form_shown As Boolean = False
     Public Property Documents As New List(Of ClassDocGrid.clsWMDoc)
 
     Private Sub frmDoc_DocLinks_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -23,7 +24,7 @@ Public Class frmDoc_Links
 
             ' TODO: this does not work for the old form
             If Documents.Count = 0 Then
-                Text = $"Document-Links for: NODOC-ID"
+                Text = $"Document-Link for: NODOC-ID"
             ElseIf Documents.Count = 1 Then
                 Text = $"Document-Links for: {Documents.First.DocPath}"
             Else
@@ -47,6 +48,7 @@ Public Class frmDoc_Links
         Catch ex As System.Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace)
         End Try
+        form_shown = True
     End Sub
 
     Private Function Get_Grid_Data(pDocuments As List(Of ClassDocGrid.clsWMDoc)) As DataTable
@@ -155,6 +157,9 @@ Public Class frmDoc_Links
 
     End Sub
     Sub Save_DocGrid_Layout()
+        If form_shown = False Then
+            Exit Sub
+        End If
         Try
             Dim XMLPath = Get_DocGrid_Layout_Filename()
             grvwGrid.SaveLayoutToXml(XMLPath)

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

@@ -37,7 +37,6 @@ Partial Class frmEntities
         Me.TBPMO_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
         Me.DESCRIPTIONTextBox = New System.Windows.Forms.TextBox()
         Me.TBPMO_FORM_VIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.FORM_TITLETextBox = New System.Windows.Forms.TextBox()
@@ -53,7 +52,7 @@ Partial Class frmEntities
         Me.SINGLE_RECORDCheckBox = New System.Windows.Forms.CheckBox()
         Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
         Me.ENTITY_IDTextBox = New System.Windows.Forms.TextBox()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.cmbEntityType = New System.Windows.Forms.ComboBox()
         Me.TBPMO_FORM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.SHOW_FORM_CONSTRUCTCheckBox = New System.Windows.Forms.CheckBox()
         Me.TreeViewEntity = New System.Windows.Forms.TreeView()
@@ -65,7 +64,7 @@ Partial Class frmEntities
         Me.btncopy = New System.Windows.Forms.Button()
         Me.lblStatus = New System.Windows.Forms.Label()
         Me.btnGenerate = New System.Windows.Forms.Button()
-        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblCreateConstrForm = New System.Windows.Forms.Label()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.btncancel = New System.Windows.Forms.Button()
         Me.ProgressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
@@ -143,7 +142,7 @@ Partial Class frmEntities
         Me.TBPMO_FORMBindingNavigator.BindingSource = Me.TBPMO_FORMBindingSource
         Me.TBPMO_FORMBindingNavigator.CountItem = Nothing
         Me.TBPMO_FORMBindingNavigator.DeleteItem = Nothing
-        Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
+        Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
         resources.ApplyResources(Me.TBPMO_FORMBindingNavigator, "TBPMO_FORMBindingNavigator")
         Me.TBPMO_FORMBindingNavigator.MoveFirstItem = Nothing
         Me.TBPMO_FORMBindingNavigator.MoveLastItem = Nothing
@@ -168,12 +167,6 @@ Partial Class frmEntities
         resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
         Me.ToolStripButton1.Name = "ToolStripButton1"
         '
-        'ToolStripButton2
-        '
-        Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
-        Me.ToolStripButton2.Name = "ToolStripButton2"
-        '
         'DESCRIPTIONTextBox
         '
         Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "DESCRIPTION", True))
@@ -279,7 +272,7 @@ Partial Class frmEntities
         Me.GroupBox2.Controls.Add(Me.ENTITY_IDTextBox)
         Me.GroupBox2.Controls.Add(GUIDLabel)
         Me.GroupBox2.Controls.Add(Label1)
-        Me.GroupBox2.Controls.Add(Me.ComboBox1)
+        Me.GroupBox2.Controls.Add(Me.cmbEntityType)
         Me.GroupBox2.Controls.Add(Me.SHOW_FORM_CONSTRUCTCheckBox)
         Me.GroupBox2.Controls.Add(PARENT_IDLabel)
         Me.GroupBox2.Controls.Add(Me.ADDED_WHOTextBox)
@@ -319,15 +312,15 @@ Partial Class frmEntities
         Me.ENTITY_IDTextBox.Name = "ENTITY_IDTextBox"
         Me.ENTITY_IDTextBox.ReadOnly = True
         '
-        'ComboBox1
+        'cmbEntityType
         '
-        Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True))
-        Me.ComboBox1.DataSource = Me.TBPMO_FORM_TYPEBindingSource
-        Me.ComboBox1.DisplayMember = "FORM_TYPE"
-        resources.ApplyResources(Me.ComboBox1, "ComboBox1")
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.ValueMember = "GUID"
+        Me.cmbEntityType.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True))
+        Me.cmbEntityType.DataSource = Me.TBPMO_FORM_TYPEBindingSource
+        Me.cmbEntityType.DisplayMember = "FORM_TYPE"
+        resources.ApplyResources(Me.cmbEntityType, "cmbEntityType")
+        Me.cmbEntityType.FormattingEnabled = True
+        Me.cmbEntityType.Name = "cmbEntityType"
+        Me.cmbEntityType.ValueMember = "GUID"
         '
         'TBPMO_FORM_TYPEBindingSource
         '
@@ -391,10 +384,10 @@ Partial Class frmEntities
         Me.btnGenerate.Name = "btnGenerate"
         Me.btnGenerate.UseVisualStyleBackColor = True
         '
-        'Label3
+        'lblCreateConstrForm
         '
-        resources.ApplyResources(Me.Label3, "Label3")
-        Me.Label3.Name = "Label3"
+        resources.ApplyResources(Me.lblCreateConstrForm, "lblCreateConstrForm")
+        Me.lblCreateConstrForm.Name = "lblCreateConstrForm"
         '
         'GroupBox1
         '
@@ -414,7 +407,6 @@ Partial Class frmEntities
         '
         'ProgressPanel1
         '
-        Me.ProgressPanel1.Appearance.BackColor = CType(resources.GetObject("ProgressPanel1.Appearance.BackColor"), System.Drawing.Color)
         Me.ProgressPanel1.Appearance.Options.UseBackColor = True
         Me.ProgressPanel1.AppearanceCaption.Options.UseTextOptions = True
         resources.ApplyResources(Me.ProgressPanel1, "ProgressPanel1")
@@ -442,7 +434,7 @@ Partial Class frmEntities
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.lblCreateConstrForm)
         Me.Controls.Add(Me.btnGenerate)
         Me.Controls.Add(Me.lblStatus)
         Me.Controls.Add(Me.btncopy)
@@ -478,14 +470,13 @@ Partial Class frmEntities
     Friend WithEvents PARENT_IDTextBox As System.Windows.Forms.TextBox
     Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
     Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
     Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter
     Friend WithEvents CHANGED_WHOTextBoxPMOForm As System.Windows.Forms.TextBox
     Friend WithEvents DESCRIPTIONTextBox As System.Windows.Forms.TextBox
     Friend WithEvents FORM_TITLETextBox As System.Windows.Forms.TextBox
     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
-    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
+    Friend WithEvents cmbEntityType As System.Windows.Forms.ComboBox
     Friend WithEvents SHOW_FORM_CONSTRUCTCheckBox As System.Windows.Forms.CheckBox
     Friend WithEvents TBPMO_FORM_TYPEBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPMO_FORM_TYPETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter
@@ -498,7 +489,7 @@ Partial Class frmEntities
     Friend WithEvents btncopy As System.Windows.Forms.Button
     Friend WithEvents lblStatus As System.Windows.Forms.Label
     Friend WithEvents btnGenerate As System.Windows.Forms.Button
-    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents lblCreateConstrForm As System.Windows.Forms.Label
     Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
     Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents SINGLE_RECORDCheckBox As System.Windows.Forms.CheckBox

app/DD-Record-Organizer/frmEntities.resx

@@ -449,15 +449,6 @@
   <data name="ToolStripButton1.Text" xml:space="preserve">
     <value>Im Form Designer öffnen</value>
   </data>
-  <data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>97, 22</value>
-  </data>
-  <data name="ToolStripButton2.Text" xml:space="preserve">
-    <value>Vorschau öffnen</value>
-  </data>
   <data name="TBPMO_FORMBindingNavigator.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
@@ -698,16 +689,16 @@
   <data name="&gt;&gt;ENTITY_IDTextBox.ZOrder" xml:space="preserve">
     <value>7</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.Name" xml:space="preserve">
-    <value>ComboBox1</value>
+  <data name="&gt;&gt;cmbEntityType.Name" xml:space="preserve">
+    <value>cmbEntityType</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.Type" xml:space="preserve">
+  <data name="&gt;&gt;cmbEntityType.Type" xml:space="preserve">
     <value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.Parent" xml:space="preserve">
+  <data name="&gt;&gt;cmbEntityType.Parent" xml:space="preserve">
     <value>GroupBox2</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;cmbEntityType.ZOrder" xml:space="preserve">
     <value>10</value>
   </data>
   <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Name" xml:space="preserve">
@@ -858,28 +849,28 @@ diese Entität angelegt werden.</value>
   <metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>255, 56</value>
   </metadata>
-  <data name="ComboBox1.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="cmbEntityType.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
   </data>
-  <data name="ComboBox1.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="cmbEntityType.Location" type="System.Drawing.Point, System.Drawing">
     <value>147, 295</value>
   </data>
-  <data name="ComboBox1.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="cmbEntityType.Size" type="System.Drawing.Size, System.Drawing">
     <value>220, 25</value>
   </data>
-  <data name="ComboBox1.TabIndex" type="System.Int32, mscorlib">
+  <data name="cmbEntityType.TabIndex" type="System.Int32, mscorlib">
     <value>17</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.Name" xml:space="preserve">
-    <value>ComboBox1</value>
+  <data name="&gt;&gt;cmbEntityType.Name" xml:space="preserve">
+    <value>cmbEntityType</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.Type" xml:space="preserve">
+  <data name="&gt;&gt;cmbEntityType.Type" xml:space="preserve">
     <value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.Parent" xml:space="preserve">
+  <data name="&gt;&gt;cmbEntityType.Parent" xml:space="preserve">
     <value>GroupBox2</value>
   </data>
-  <data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;cmbEntityType.ZOrder" xml:space="preserve">
     <value>10</value>
   </data>
   <metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -1191,7 +1182,7 @@ diese Entität angelegt werden.</value>
   <data name="btnGenerate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf
+        vwAADr8BOAVTJAAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf
         /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m
         m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8
         M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII=
@@ -1230,44 +1221,116 @@ diese Entität angelegt werden.</value>
   <data name="&gt;&gt;btnGenerate.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
-  <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
+  <data name="lblCreateConstrForm.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <data name="Label3.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="lblCreateConstrForm.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
-  <data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="lblCreateConstrForm.Location" type="System.Drawing.Point, System.Drawing">
     <value>755, 280</value>
   </data>
-  <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="lblCreateConstrForm.Size" type="System.Drawing.Size, System.Drawing">
     <value>268, 26</value>
   </data>
-  <data name="Label3.TabIndex" type="System.Int32, mscorlib">
+  <data name="lblCreateConstrForm.TabIndex" type="System.Int32, mscorlib">
     <value>31</value>
   </data>
-  <data name="Label3.Text" xml:space="preserve">
+  <data name="lblCreateConstrForm.Text" xml:space="preserve">
     <value>Mit dieser Funktion wird die Sicht erzeugt, 
 welche die links dargestellte TreeView-Struktur umsetzt.</value>
   </data>
-  <data name="Label3.Visible" type="System.Boolean, mscorlib">
+  <data name="lblCreateConstrForm.Visible" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
-  <data name="&gt;&gt;Label3.Name" xml:space="preserve">
-    <value>Label3</value>
+  <data name="&gt;&gt;lblCreateConstrForm.Name" xml:space="preserve">
+    <value>lblCreateConstrForm</value>
   </data>
-  <data name="&gt;&gt;Label3.Type" xml:space="preserve">
+  <data name="&gt;&gt;lblCreateConstrForm.Type" xml:space="preserve">
     <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;Label3.Parent" xml:space="preserve">
+  <data name="&gt;&gt;lblCreateConstrForm.Parent" xml:space="preserve">
     <value>$this</value>
   </data>
-  <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;lblCreateConstrForm.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
+  <data name="&gt;&gt;btncancel.Name" xml:space="preserve">
+    <value>btncancel</value>
+  </data>
+  <data name="&gt;&gt;btncancel.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btncancel.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Name" xml:space="preserve">
+    <value>ProgressPanel1</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Type" xml:space="preserve">
+    <value>DevExpress.XtraWaitForm.ProgressPanel, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.Name" xml:space="preserve">
+    <value>btnRefreshEntityTable</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.Name" xml:space="preserve">
+    <value>btnCreateEntityTable</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>328, 427</value>
+  </data>
+  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>424, 125</value>
+  </data>
+  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
+    <value>32</value>
+  </data>
+  <data name="GroupBox1.Text" xml:space="preserve">
+    <value>Erzeugung Tabellenstruktur:</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
   <data name="btncancel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI
+        vwAADr8BOAVTJAAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI
         FHS03z8bVllcEsFJJq7z/7xFORHRX9aGe/w5sKZpMtlPNrEjES7E2WU51wFi3/fJsixK0xRL1zk/t20b
         h2FIQRC84TpAJAG2bVNVVbjtnmXZ6DiOUoZ0AKPrutx1XQHBJ27FeV2GvgDQGrJVhrYA5mEAL3lFUYzL
         n4AyzkmSAOKJxVkKADeUZSn+PFnGkyCXEMz5u3gzkAJomkYp930/8rKJRUDwBJgvcwVQ1/WIMpYA46Ub
@@ -1307,9 +1370,6 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
   <data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="ProgressPanel1.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Transparent</value>
-  </data>
   <data name="ProgressPanel1.Description" xml:space="preserve">
     <value>Procedure is executing ......</value>
   </data>
@@ -1343,7 +1403,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
   <data name="btnRefreshEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih
+        vgAADr4B6kKxwAAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih
         yBh8VLWJnwa2daegAzJMhXz/PjDOS3ljwG/gMQAJggd8pwNRjhE6kCNRBlQAQMwyoAM1qoEWboEeLv3N
         iJxnTngNYdMDJwAAAABJRU5ErkJggg==
 </value>
@@ -1384,7 +1444,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
   <data name="btnCreateEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE
+        vwAADr8BOAVTJAAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE
         xzCAVEx9F6ArIMTHMIBUjGIAuRhsACUYqyDx+D8DAGWb3TPY4bxVAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -1418,30 +1478,6 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
   <data name="&gt;&gt;btnCreateEntityTable.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
-  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>328, 427</value>
-  </data>
-  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>424, 125</value>
-  </data>
-  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
-    <value>32</value>
-  </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
-    <value>Erzeugung Tabellenstruktur:</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
   <metadata name="BW_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>733, 56</value>
   </metadata>
@@ -1930,12 +1966,6 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
   <data name="&gt;&gt;ToolStripButton1.Type" xml:space="preserve">
     <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;ToolStripButton2.Name" xml:space="preserve">
-    <value>ToolStripButton2</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="&gt;&gt;TBPMO_FORM_VIEWBindingSource.Name" xml:space="preserve">
     <value>TBPMO_FORM_VIEWBindingSource</value>
   </data>

app/DD-Record-Organizer/frmEntities.vb

@@ -48,8 +48,8 @@ Public Class frmEntities
     End Sub
     Sub Load_TreeView()
         Try
-            Dim DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
-                                       "TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
+            Dim DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
+                                       "TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID IN (1,6) AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
             LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)
 
             Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
@@ -71,7 +71,7 @@ Public Class frmEntities
                             Dim Node1 As TreeNode
                             Node1 = Node.Nodes.Add(row1.Item("CAPTION").ToString)
                             Node1.Tag = row1.Item("GUID")
-                            DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
+                            DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
                                                    "TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = {2} AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("GUID"), USER_GUID)
                             LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
                             ' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
@@ -89,7 +89,7 @@ Public Class frmEntities
 
                     End If
                 Next
-                DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " & _
+                DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " &
                                        "FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
                 'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
                 Dim DT3 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
@@ -126,10 +126,12 @@ Public Class frmEntities
 
             Me.btnGenerate.Visible = True
 
-            If PARENT_IDTextBox.Text = 0 And (ComboBox1.SelectedValue = 1 Or ComboBox1.SelectedValue = 4) Then
+            If PARENT_IDTextBox.Text = 0 And (cmbEntityType.SelectedValue = 1 Or cmbEntityType.Text = "Personal file") Then
                 Me.btnGenerate.Visible = True
+                lblCreateConstrForm.Visible = True
             Else
                 Me.btnGenerate.Visible = False
+                lblCreateConstrForm.Visible = False
             End If
         Catch ex As Exception
             MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -248,7 +250,7 @@ Public Class frmEntities
             ' Save FORM_VIEW Properties
             If insert = True Then
                 Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
-                Dim FORM_ID = MYDB_ECM.GetScalarValue(SQL)
+                Dim FORM_ID = MYDB_ECM.GetScalarValue(sql)
 
                 Dim ADDED_WHO As String = USER_USERNAME
 
@@ -257,7 +259,7 @@ Public Class frmEntities
                 'ggg()
                 If FORM_ID Is Nothing = False Then
                     sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
-                    MYDB_ECM.ExecuteNonQuery(Sql)
+                    MYDB_ECM.ExecuteNonQuery(sql)
                 End If
                 Load_TreeView()
             Else
@@ -294,7 +296,7 @@ Public Class frmEntities
             Try
                 Dim CurrentID = GetCurrentGUID()
                 Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
-                If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
+                If MYDB_ECM.ExecuteNonQuery(sql) = True Then
                     MsgBox("Entity was deleted!", MsgBoxStyle.Information)
                     Load_TreeView()
                     Load_Forms(999999999)
@@ -312,7 +314,7 @@ Public Class frmEntities
         Dim anz_ent = MYDB_ECM.GetScalarValue("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
         anz_ent += 1
         If anz_ent > LICENSE_DOSSIER_COUNT Then
-            Dim msg = String.Format("Die Anzahl an lizensierten Sichten/Akten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
+            Dim msg = String.Format("Die Anzahl an lizensierten Sichten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
             If USER_LANGUAGE <> "de-DE" Then
                 msg = String.Format("The number of licensed views {0} was reached! Please contact Digital Data", LICENSE_DOSSIER_COUNT.ToString)
             End If
@@ -350,7 +352,7 @@ Public Class frmEntities
             Try
                 Dim CurrentID = GetCurrentGUID()
                 Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & USER_USERNAME & "'"
-                If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
+                If MYDB_ECM.ExecuteNonQuery(sql) = True Then
                     'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
                     Load_TreeView()
                     Load_Forms(999999999)
@@ -392,13 +394,13 @@ Public Class frmEntities
         End Try
     End Sub
 
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
-        If ComboBox1.SelectedIndex <> -1 Then
-            If ComboBox1.SelectedValue = 5 Then
-                ToolStripButton2.Enabled = False
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntityType.SelectedIndexChanged
+        If cmbEntityType.SelectedIndex <> -1 Then
+            If cmbEntityType.SelectedValue = 5 Then
+
                 ToolStripButton1.Enabled = False
             Else
-                ToolStripButton2.Enabled = True
+
                 ToolStripButton1.Enabled = True
             End If
         End If
@@ -447,8 +449,8 @@ Public Class frmEntities
 
     Private Sub btnRefreshEntityTable_Click(sender As Object, e As EventArgs) Handles btnRefreshEntityTable.Click
         Dim CurrentID = GetCurrentGUID()
-        EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine & _
-                  "EXEC	@return_value = dbo.PRPMO_ENTITY_TABLE_IMPORT_RECORDS {0}" & vbNewLine & _
+        EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine &
+                  "EXEC	@return_value = dbo.PRPMO_ENTITY_TABLE_IMPORT_RECORDS {0}" & vbNewLine &
                   "SELECT	'Return Value' = @return_value", CurrentID)
         ProgressPanel1.Description = "Inserting Records...."
         ProgressPanel1.Visible = True
@@ -463,4 +465,5 @@ Public Class frmEntities
         End If
 
     End Sub
+
 End Class

app/DD-Record-Organizer/frmFileInWork.vb

@@ -1,23 +1,27 @@
 Public Class frmFileInWork
-
+    Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
     Private Sub btnInWork_Click(sender As Object, e As EventArgs) Handles btnInWork.Click
         Try
-            If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
-                Dim expression As String
-                expression = "DocID = " & ClassFileResult.DocID
-                Dim foundRowsLevel0() As DataRow
-                ' Use the Select method to find all rows matching the filter.
-                foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
-                Try
-                    foundRowsLevel0(0)(13) = True
-                Catch ex As Exception
+            For Each oDoc As ClassDocGrid.clsWMDoc In myDocuments
+                ClassFileResult.DocID = oDoc.DocId
+                If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
+                    Dim expression As String
+                    expression = "DocID = " & ClassFileResult.DocID
+                    Dim foundRowsLevel0() As DataRow
+                    ' Use the Select method to find all rows matching the filter.
+                    foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
+                    Try
+                        foundRowsLevel0(0)(13) = True
+                    Catch ex As Exception
 
-                End Try
+                    End Try
 
-                Me.Close()
-            Else
-                MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
-            End If
+
+                Else
+                    MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
+                End If
+            Next
+            Me.Close()
         Catch ex As Exception
             MsgBox("Unexpected Error 2 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
         End Try

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

@@ -36,6 +36,7 @@ Partial Class frmGlobalSearch
         Me.tslblDocView = New System.Windows.Forms.ToolStripLabel()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
         Me.lblFT_Irregular = New System.Windows.Forms.Label()
         Me.txtSearch = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -51,17 +52,18 @@ Partial Class frmGlobalSearch
         Me.BarToggleSearchCombined = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.BarToggleSearchRecord = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.BarToggleFulltext = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.bbtnitmJump2Filestore = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupRecords = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupFiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupExcel = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.DD_ECMAdmin1 = New DD_Record_Organizer.DD_ECMAdmin()
         Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
-        Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
         CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerMain.Panel1.SuspendLayout()
@@ -195,6 +197,13 @@ Partial Class frmGlobalSearch
         resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Name = "Panel1"
         '
+        'LabelControl1
+        '
+        Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
+        Me.LabelControl1.Appearance.Options.UseFont = True
+        resources.ApplyResources(Me.LabelControl1, "LabelControl1")
+        Me.LabelControl1.Name = "LabelControl1"
+        '
         'lblFT_Irregular
         '
         resources.ApplyResources(Me.lblFT_Irregular, "lblFT_Irregular")
@@ -214,9 +223,9 @@ Partial Class frmGlobalSearch
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarToggleSearchCombined, Me.BarToggleSearchRecord, Me.BarToggleFulltext})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarToggleSearchCombined, Me.BarToggleSearchRecord, Me.BarToggleFulltext, Me.bbtnitmJump2Filestore, Me.BarButtonItem2})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 15
+        Me.RibbonControl1.MaxItemId = 17
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -298,42 +307,65 @@ Partial Class frmGlobalSearch
         Me.BarToggleFulltext.Id = 14
         Me.BarToggleFulltext.Name = "BarToggleFulltext"
         '
+        'bbtnitmJump2Filestore
+        '
+        resources.ApplyResources(Me.bbtnitmJump2Filestore, "bbtnitmJump2Filestore")
+        Me.bbtnitmJump2Filestore.Id = 15
+        Me.bbtnitmJump2Filestore.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmJump2Filestore.Name = "bbtnitmJump2Filestore"
+        '
+        'BarButtonItem2
+        '
+        resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
+        Me.BarButtonItem2.Id = 16
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupRecords, Me.RibbonPageGroupFiles, Me.RibbonPageGroup2, Me.RibbonPageGroup3})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupRecords, Me.RibbonPageGroupFiles, Me.RibbonPageGroupExcel, Me.RibbonPageGroup3})
         Me.RibbonPage1.Name = "RibbonPage1"
         resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
         '
         'RibbonPageGroup1
         '
+        Me.RibbonPageGroup1.AllowTextClipping = False
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
         '
         'RibbonPageGroupRecords
         '
+        Me.RibbonPageGroupRecords.AllowTextClipping = False
+        Me.RibbonPageGroupRecords.Enabled = False
         Me.RibbonPageGroupRecords.ItemLinks.Add(Me.BarButtonItem9)
         Me.RibbonPageGroupRecords.Name = "RibbonPageGroupRecords"
         resources.ApplyResources(Me.RibbonPageGroupRecords, "RibbonPageGroupRecords")
         '
         'RibbonPageGroupFiles
         '
+        Me.RibbonPageGroupFiles.AllowTextClipping = False
+        Me.RibbonPageGroupFiles.Enabled = False
         Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem6)
         Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem7)
+        Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem2)
         Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem8)
         Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem10)
+        Me.RibbonPageGroupFiles.ItemLinks.Add(Me.bbtnitmJump2Filestore)
         Me.RibbonPageGroupFiles.Name = "RibbonPageGroupFiles"
         resources.ApplyResources(Me.RibbonPageGroupFiles, "RibbonPageGroupFiles")
         '
-        'RibbonPageGroup2
+        'RibbonPageGroupExcel
         '
-        Me.RibbonPageGroup2.AllowTextClipping = False
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        Me.RibbonPageGroupExcel.AllowTextClipping = False
+        Me.RibbonPageGroupExcel.Enabled = False
+        Me.RibbonPageGroupExcel.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroupExcel.Name = "RibbonPageGroupExcel"
+        resources.ApplyResources(Me.RibbonPageGroupExcel, "RibbonPageGroupExcel")
         '
         'RibbonPageGroup3
         '
+        Me.RibbonPageGroup3.AllowTextClipping = False
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleSearchCombined)
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleSearchRecord)
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleFulltext)
@@ -362,13 +394,6 @@ Partial Class frmGlobalSearch
         Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
         resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1")
         '
-        'LabelControl1
-        '
-        Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
-        Me.LabelControl1.Appearance.Options.UseFont = True
-        resources.ApplyResources(Me.LabelControl1, "LabelControl1")
-        Me.LabelControl1.Name = "LabelControl1"
-        '
         'frmGlobalSearch
         '
         resources.ApplyResources(Me, "$this")
@@ -437,11 +462,13 @@ Partial Class frmGlobalSearch
     Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroupExcel As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog
     Friend WithEvents BarToggleSearchCombined As DevExpress.XtraBars.BarToggleSwitchItem
     Friend WithEvents BarToggleSearchRecord As DevExpress.XtraBars.BarToggleSwitchItem
     Friend WithEvents BarToggleFulltext As DevExpress.XtraBars.BarToggleSwitchItem
     Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents bbtnitmJump2Filestore As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
 End Class

app/DD-Record-Organizer/frmGlobalSearch.resx

@@ -156,12 +156,6 @@
   <metadata name="ToolStripRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <data name="tslblRecordsResult.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 22</value>
-  </data>
-  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
   <data name="ToolStripRecords.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
@@ -208,7 +202,7 @@
     <value>0, 25</value>
   </data>
   <data name="GridViewFiles.ViewCaption" xml:space="preserve">
-    <value>windream-Dateien und Werte</value>
+    <value>Dateien</value>
   </data>
   <data name="GridControlFiles.Size" type="System.Drawing.Size, System.Drawing">
     <value>841, 402</value>
@@ -234,12 +228,6 @@
   <data name="ToolStripDokumente.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 9pt</value>
   </data>
-  <data name="tslblDocView.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold, Italic</value>
-  </data>
-  <data name="tslblDocView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 22</value>
-  </data>
   <data name="ToolStripDokumente.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
@@ -300,6 +288,18 @@
   <data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
+  <data name="tslblRecordsResult.Size" type="System.Drawing.Size, System.Drawing">
+    <value>0, 22</value>
+  </data>
+  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>6, 25</value>
+  </data>
+  <data name="tslblDocView.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold, Italic</value>
+  </data>
+  <data name="tslblDocView.Size" type="System.Drawing.Size, System.Drawing">
+    <value>0, 22</value>
+  </data>
   <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
@@ -367,13 +367,13 @@
     <value>15, 74</value>
   </data>
   <data name="lblFT_Irregular.Size" type="System.Drawing.Size, System.Drawing">
-    <value>171, 13</value>
+    <value>194, 13</value>
   </data>
   <data name="lblFT_Irregular.TabIndex" type="System.Int32, mscorlib">
     <value>9</value>
   </data>
   <data name="lblFT_Irregular.Text" xml:space="preserve">
-    <value>Volltext enthält ungültige Zeichen.</value>
+    <value>Volltext enthält ungültige Zeichen. (".")</value>
   </data>
   <data name="lblFT_Irregular.Visible" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -608,7 +608,7 @@
 </value>
   </data>
   <data name="BarButtonItem8.Caption" xml:space="preserve">
-    <value>Verknüpfungen</value>
+    <value>Verknüpfungen anzeigen</value>
   </data>
   <data name="BarButtonItem8.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -662,25 +662,20 @@
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABcEAAAC77u/
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
         PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
         IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
         MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
         Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
-        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
-        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW1hZ2VMb2Fk
-        Ij4NCiAgICA8cGF0aCBkPSJNMjcuMywxOEg3LjZMMiwyOGgxOS44YzAuNSwwLDEuMS0wLjIsMS4zLTAu
-        Nmw0LjktOC45QzI4LjEsMTguMiwyNy44LDE4LDI3LjMsMTh6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAg
-        IDxnIGNsYXNzPSJzdDEiPg0KICAgICAgPHBhdGggZD0iTTIxLDEyaC0yLjJjLTAuNCwwLjUtMC43LDEt
-        MC44LDEuNWMtMC4yLDAuOS0xLDEuNi0yLDEuNmMwLDAsMCwwLDAsMGMtMSwwLTEuOC0wLjctMS45LTEu
-        NyAgICBDMTQsMTIuOSwxNCwxMi40LDE0LDEyaC00VjljMC0wLjYtMC40LTEtMS0xSDFDMC40LDgsMCw4
-        LjUsMCw5djE4YzAsMC4yLDAsMC4zLDAuMSwwLjRjMCwwLDAuMS0wLjEsMC4xLTAuMmw1LjUtMTAgICAg
-        QzYsMTYuNSw2LjcsMTYsNy41LDE2SDIydi0zQzIyLDEyLjUsMjEuNSwxMiwyMSwxMnoiIGNsYXNzPSJZ
-        ZWxsb3ciIC8+DQogICAgPC9nPg0KICAgIDxwYXRoIGQ9Ik0zMCw2bC02LTZ2NGMtNC40LDAtOCwzLjYt
-        OCw4YzAsMC40LDAsMC44LDAuMSwxLjFDMTYuNiwxMC4yLDIwLDgsMjQsOHY0TDMwLDZ6IiBjbGFzcz0i
-        Qmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
+        PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
+        MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
+        Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
+        aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
   <data name="BarToggleSearchCombined.Caption" xml:space="preserve">
@@ -692,26 +687,59 @@
   <data name="BarToggleFulltext.Caption" xml:space="preserve">
     <value>Nur in Volltext</value>
   </data>
+  <data name="bbtnitmJump2Filestore.Caption" xml:space="preserve">
+    <value>Springe zu Filestore</value>
+  </data>
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEADAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuR3JlZW57ZmlsbDojMDM5
+        QzIzO30KCS5CbHVle2ZpbGw6IzExNzdENzt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTdG9yZSI+DQogICAg
+        PHJlY3QgeD0iMjQiIHk9IjE2IiB3aWR0aD0iMiIgaGVpZ2h0PSIxMiIgcng9IjAiIHJ5PSIwIiBjbGFz
+        cz0iUmVkIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMTYsMjIgOCwyMiA4LDE2IDYsMTYgNiwyMiA2
+        LDI4IDgsMjggMTYsMjggMTgsMjggMTgsMjIgMTgsMTYgMTYsMTYgICIgY2xhc3M9IlJlZCIgLz4NCiAg
+        ICA8cGF0aCBkPSJNMjYsNEg2TDIsOHYydjAuNUMyLDEyLjQsMy42LDE0LDUuNSwxNFM5LDEyLjQsOSwx
+        MC41YzAsMS45LDEuNiwzLjUsMy41LDMuNWMxLjksMCwzLjUtMS42LDMuNS0zLjUgICBjMCwxLjksMS42
+        LDMuNSwzLjUsMy41czMuNS0xLjYsMy41LTMuNWMwLDEuOSwxLjYsMy41LDMuNSwzLjVzMy41LTEuNiwz
+        LjUtMy41VjEwVjhMMjYsNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem2.Caption" xml:space="preserve">
+    <value>Mit Datensatz verknüpfen</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAxNiAxNiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGluayIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMTYg
+        MTYiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
+        bGU+DQogIDxwYXRoIGQ9Ik0xMi41LDVoLTJDOS4zLDUsOC4zLDUuOSw4LjEsN0g2LjlDNi43LDUuOSw1
+        LjcsNSw0LjUsNWgtMkMxLjEsNSwwLDYuMSwwLDcuNVMxLjEsMTAsMi41LDEwaDIgIGMxLjIsMCwyLjIt
+        MC45LDIuNC0yaDEuMWMwLjIsMS4xLDEuMiwyLDIuNCwyaDJjMS40LDAsMi41LTEuMSwyLjUtMi41UzEz
+        LjksNSwxMi41LDV6IE00LjUsOWgtMkMxLjcsOSwxLDguMywxLDcuNSAgQzEsNi43LDEuNyw2LDIuNSw2
+        aDJjMC42LDAsMS4yLDAuNCwxLjQsMUgzLjVDMy4yLDcsMyw3LjIsMyw3LjVTMy4yLDgsMy41LDhoMi40
+        QzUuNyw4LjYsNS4xLDksNC41LDl6IE0xMi41LDloLTIgIEM5LjksOSw5LjMsOC42LDkuMSw4aDIuNEMx
+        MS44LDgsMTIsNy44LDEyLDcuNVMxMS44LDcsMTEuNSw3SDkuMWMwLjItMC42LDAuOC0xLDEuNC0xaDJD
+        MTMuMyw2LDE0LDYuNywxNCw3LjVDMTQsOC4zLDEzLjMsOSwxMi41LDkgIHoiIGNsYXNzPSJCbGFjayIg
+        Lz4NCjwvc3ZnPgs=
+</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>Aktionen</value>
-  </data>
-  <data name="RibbonPageGroupRecords.Text" xml:space="preserve">
-    <value>Datensatz</value>
-  </data>
-  <data name="RibbonPageGroupFiles.Text" xml:space="preserve">
-    <value>Dateien</value>
-  </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Funktionen Tabelle</value>
-  </data>
-  <data name="RibbonPageGroup3.Text" xml:space="preserve">
-    <value>Suchvariante</value>
-  </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
-    <value>Global Search</value>
+    <value>Globale Suche</value>
   </data>
   <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
     <value>1467, 158</value>
@@ -746,6 +774,21 @@
   <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>Aktionen</value>
+  </data>
+  <data name="RibbonPageGroupRecords.Text" xml:space="preserve">
+    <value>Datensatz</value>
+  </data>
+  <data name="RibbonPageGroupFiles.Text" xml:space="preserve">
+    <value>Datei(en)</value>
+  </data>
+  <data name="RibbonPageGroupExcel.Text" xml:space="preserve">
+    <value>Funktionen Tabelle</value>
+  </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>Suchvariante</value>
+  </data>
   <data name="RibbonPage2.Text" xml:space="preserve">
     <value>RibbonPage2</value>
   </data>
@@ -918,6 +961,18 @@
   <data name="&gt;&gt;BarToggleFulltext.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;bbtnitmJump2Filestore.Name" xml:space="preserve">
+    <value>bbtnitmJump2Filestore</value>
+  </data>
+  <data name="&gt;&gt;bbtnitmJump2Filestore.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
+    <value>BarButtonItem2</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
@@ -942,10 +997,10 @@
   <data name="&gt;&gt;RibbonPageGroupFiles.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
+  <data name="&gt;&gt;RibbonPageGroupExcel.Name" xml:space="preserve">
+    <value>RibbonPageGroupExcel</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageGroupExcel.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">

app/DD-Record-Organizer/frmGlobalSearch.vb

@@ -169,25 +169,13 @@ Public Class frmGlobalSearch
                 GridControlFiles.DataSource = DT_Files
                 tslblDocView.Text = String.Format("{0} files found", DT_Files.Rows.Count)
                 Try
-                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
-                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                    GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
+                    GridViewFiles.OptionsView.ColumnAutoWidth = False
+                    GridViewFiles.BestFitColumns()
                 Catch ex As Exception
 
                 End Try
-                Try
-                    GridViewFiles.Columns("ErstelltWann").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("ErstelltWann").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
-                    GridViewFiles.Columns("GeändertWann").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("GeändertWann").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
-                Catch ex As Exception
 
-                End Try
-                ' FormID und RecordID immer ausblenden
-                ' GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
-                GridViewFiles.OptionsView.ColumnAutoWidth = False
-                GridViewFiles.BestFitColumns()
             Else
                 tslblDocView.Text = String.Format(" No files found")
                 GridControlFiles.DataSource = Nothing
@@ -230,7 +218,7 @@ Public Class frmGlobalSearch
         Catch ex As Exception
             MsgBox("Unexpected Error in Show_Detail_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-        JUMP_RECORD_ID = 0
+        JUMP_ID = 0
     End Sub
 
     Private Sub frmSearchAllOVer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -301,6 +289,11 @@ Public Class frmGlobalSearch
     End Function
 
     Private Sub frmSearchAllOVer_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If OF_FILESTORE_ENTITY = 0 Then
+            bbtnitmJump2Filestore.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        Else
+            bbtnitmJump2Filestore.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        End If
         _Helper = New ClassHelper
         Load_DocGrid_Layout()
         Load_RecordGrid_Layout()
@@ -373,6 +366,8 @@ Public Class frmGlobalSearch
         Dim oTerm As String = txtSearch.Text
         If txtSearch.Text.Contains(".") Then
             lblFT_Irregular.Visible = True
+        Else
+            lblFT_Irregular.Visible = False
         End If
     End Sub
 
@@ -417,6 +412,64 @@ Public Class frmGlobalSearch
 
     End Sub
 
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmJump2Filestore.ItemClick
+        For Each row In GridViewFiles.GetSelectedRows
+            Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
+            Dim oJumpToDocSQL = String.Format("DECLARE @PID BIGINT
+                SELECT @PID = dwParentID FROM TBPMO_DOCRESULT_LIST WHERE DocID = {0}
+                SELECT GUID FROM VWPMO_STRUCTURE_NODES WHERE ENTITY_ID = {1} AND ISNUMERIC(ID1) = 1  AND ID1 = @PID", SELECTED_DOC_ID, OF_FILESTORE_ENTITY)
+            Dim ojumpID As Integer = MYDB_ECM.GetScalarValue(oJumpToDocSQL)
+            If Not IsNothing(ojumpID) AndAlso ojumpID <> 0 Then
+                OpenFormConstructor(OF_FILESTORE_CONSTRUCTOR, 1, OF_FILESTORE_ENTITY, ojumpID)
+
+            Else
+                MessageBox.Show("A parent node could not be found!", "No Node found", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            End If
+            Exit For
+        Next
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Dim Current_DocList As ClassDocGrid
+        Current_DocList = New ClassDocGrid(GridViewFiles)
+        Dim oDocuments = Current_DocList.SelectedDocuments
+
+        If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewFiles) Then
+            MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        Refresh_Selected_Table()
+
+        Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
+        oForm.Show()
+    End Sub
+    Sub Refresh_Selected_Table()
+        Dim table As New DataTable With {
+            .TableName = "SelectedFiles"
+        }
+
+        ' Create two columns, ID and Name.
+        Dim idColumn As DataColumn = table.Columns.Add("ID", GetType(System.Int32))
+        idColumn.AutoIncrement = True
+        idColumn.AutoIncrementSeed = 0
+        idColumn.AutoIncrementStep = 1
+        table.PrimaryKey = New DataColumn() {idColumn}
+        table.Columns.Add("FILEPATH", GetType(System.String))
+        table.Columns.Add("DOC_ID", GetType(System.Int32))
+        table.Columns.Add("OBJECTTYPE", GetType(System.String))
+        For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewFiles)
+            If oDoc.DocPath <> String.Empty Then
+                'Set the ID column as the primary key column.
+                Dim newRow As DataRow = table.NewRow()
+                newRow("FILEPATH") = oDoc.DocPath
+                newRow("DOC_ID") = oDoc.DocId
+                newRow("OBJECTTYPE") = oDoc.DocType
+                table.Rows.Add(newRow)
+            End If
+        Next
+        table.AcceptChanges()
+        CURRENT_DT_SELECTED_FILES = table
+    End Sub
     Sub File_open()
         Me.Cursor = Cursors.WaitCursor
 
@@ -428,7 +481,7 @@ Public Class frmGlobalSearch
                 Exit Sub
             End If
 
-            ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
+            ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID, 0)
 
         Next
         Me.Cursor = Cursors.Default

app/DD-Record-Organizer/frmLicense.vb

@@ -58,6 +58,8 @@ Public Class frmLicense
                 Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
                 If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
                     Refresh_Licence(True)
+                Else
+                    MsgBox("Fehler bei Update der License. Überprüfe das Log!", MsgBoxStyle.Exclamation)
                 End If
 
                 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")

app/DD-Record-Organizer/frmLicense_Login.resx

@@ -130,10 +130,13 @@
   </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 3</value>
+    <value>4, 4</value>
+  </data>
+  <data name="OK_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
   </data>
   <data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
-    <value>67, 23</value>
+    <value>89, 28</value>
   </data>
   <data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -157,10 +160,13 @@
     <value>None</value>
   </data>
   <data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
-    <value>76, 3</value>
+    <value>101, 4</value>
+  </data>
+  <data name="Cancel_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
   </data>
   <data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing">
-    <value>67, 23</value>
+    <value>89, 28</value>
   </data>
   <data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -181,13 +187,16 @@
     <value>1</value>
   </data>
   <data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>277, 274</value>
+    <value>369, 337</value>
+  </data>
+  <data name="TableLayoutPanel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
   </data>
   <data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib">
     <value>1</value>
   </data>
   <data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>146, 29</value>
+    <value>195, 36</value>
   </data>
   <data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -211,10 +220,13 @@
     <value>True</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>6, 13</value>
+    <value>8, 16</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>435, 315</value>
+    <value>580, 388</value>
+  </data>
+  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
   </data>
   <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
     <value>CenterParent</value>

app/DD-Record-Organizer/frmMain.vb

@@ -7,6 +7,7 @@ Imports DevExpress.XtraBars
 Imports DevExpress.XtraBars.Ribbon
 Imports DevExpress.XtraBars.Ribbon.ViewInfo
 Imports DevExpress.XtraNavBar
+Imports Microsoft.Office.Core
 
 Public Class frmMain
     Dim strIPAddress As String
@@ -207,23 +208,28 @@ Public Class frmMain
         ElseIf ERROR_INIT = "INVALID USER" Then
 
         End If
-        Load_TasksforUser()
+        'Load_TasksforUser()
     End Sub
     Sub LoggedIn()
         Try
-            Dim oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
+            Dim oSQL As String = ""
+            If SQL_LIC_NAMED_USER <> "" Then
+                oSQL = SQL_LIC_NAMED_USER
+            Else
+                oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
+            End If
             Dim anzahl = MYDB_ECM.GetScalarValue(oSQL)
-            USERS_LOGGED_IN = CInt(anzahl)
+            LICENSES_USED = CInt(anzahl)
 
         Catch ex As Exception
 
         End Try
-        Dim msg = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
+        Dim msg = "Anzahl verbrauchte Lizenzen: " & LICENSES_USED.ToString()
         If USER_LANGUAGE <> "de-DE" Then
-            msg = "#User logged in: " & USERS_LOGGED_IN.ToString()
+            msg = "#Used licenses: " & LICENSES_USED.ToString()
         End If
         LabelLoggedIn.Caption = msg
-        LOGGER.Info(msg + "(+1)")
+        LOGGER.Debug(msg)
     End Sub
     Sub Display_ConString()
         Try
@@ -413,7 +419,7 @@ Public Class frmMain
             End If
 
             Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
-            Dim Count = MYDB_ECM.GetScalarValue(SQL)
+            Dim Count = MYDB_ECM.GetScalarValue(sql)
             If Count = 0 Then
                 btnGlobalSearch.Enabled = False
                 groupSearchAllOver.Visible = False
@@ -545,7 +551,7 @@ Public Class frmMain
     End Sub
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles TimerTasks.Tick
-        Refresh_TaskReminder()
+        ' Refresh_TaskReminder()
 
     End Sub
 
@@ -563,7 +569,7 @@ Public Class frmMain
 
                 If Task_Popup_minutes <> 0 Then
                     TimerTasks.Start()
-                    Refresh_TaskReminder()
+                    'Refresh_TaskReminder()
                 End If
 
                 RUN_TIMER()
@@ -576,7 +582,8 @@ Public Class frmMain
                 End If
 
                 'Lizenz abgellaufen, überprüfen ob User Admin ist
-                If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
+                If LICENSE_COUNT <= (LICENSES_USED) Then
+                    LOGGER.Info($"{LICENSE_COUNT} <= {LICENSES_USED}")
                     If USER_IS_ADMIN = True Then
                         LOGGER.Info("User is Admin - Timer will be started")
                         'If USER_LANGUAGE = "de-DE" Then
@@ -793,7 +800,7 @@ Public Class frmMain
     End Sub
 
     Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
-        If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
+        If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (LICENSES_USED + 1) Then
             'If USER_LANGUAGE = "de-DE" Then
             '    MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
             'Else
@@ -923,6 +930,7 @@ Public Class frmMain
     Private Sub frmMain_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate
         Dim mainForm As Form = sender
         Dim constructorFound = False
+        Dim child As Form = Me.ActiveMdiChild
 
         For Each childForm As Form In mainForm.MdiChildren
             If (childForm.Name = "frmConstructor_Main") Then
@@ -943,6 +951,7 @@ Public Class frmMain
         Else
             ribbonMain.Minimized = False
         End If
+
     End Sub
 
     Private Sub ribbonMain_MouseMove(sender As Object, e As MouseEventArgs) Handles ribbonMain.MouseMove

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

@@ -44,11 +44,14 @@ Partial Class frmNodeNavigation
         Me.checkShowPreview = New DevExpress.XtraBars.BarCheckItem()
         Me.btnCreateNewNode = New DevExpress.XtraBars.BarButtonItem()
         Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiDocIDChanged = New DevExpress.XtraBars.BarStaticItem()
+        Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
         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()
@@ -63,17 +66,21 @@ Partial Class frmNodeNavigation
         Me.tsmiFileOpen = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiFileFolderOpen = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsmiFileInWorkMultiple_Lock = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiFileInWorkMultiple_Free = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiFileInWork = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem()
-        Me.tsmiFileLink_ShowAll = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiFileLinkRemove = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiFileLink_ShowAll = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TsmitmJumpToFilestore = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LinkPerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsmiFileRename = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiFileRenameFilename = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiFileRenameDisplayname = New System.Windows.Forms.ToolStripMenuItem()
-        Me.tsmiFileVersion = New System.Windows.Forms.ToolStripMenuItem()
         Me.DokumentartÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiFileVersion = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiFileRightsShow = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem()
@@ -97,10 +104,31 @@ Partial Class frmNodeNavigation
         Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
         Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
         Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
-        Me.Bar1 = New DevExpress.XtraBars.Bar()
-        Me.Bar2 = New DevExpress.XtraBars.Bar()
-        Me.Bar3 = New DevExpress.XtraBars.Bar()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem()
+        Me.PopupMenu2 = New DevExpress.XtraBars.PopupMenu(Me.components)
+        Me.PopupMenu3 = New DevExpress.XtraBars.PopupMenu(Me.components)
+        Me.PopupMenu4 = New DevExpress.XtraBars.PopupMenu(Me.components)
+        Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components)
+        Me.DD_DMSDataSet1 = New DD_Record_Organizer.DD_DMSDataSet()
         CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerTreeList.Panel1.SuspendLayout()
@@ -128,23 +156,29 @@ Partial Class frmNodeNavigation
         Me.CMSAdmin_Treeview.SuspendLayout()
         CType(Me.PopupMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PopupMenu2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PopupMenu3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PopupMenu4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PopupMenu5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_DMSDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'ribbonNodeNavigation
         '
         Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0
-        Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode, Me.tsitmDMSReadOnly})
-        Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 41)
-        Me.ribbonNodeNavigation.MaxItemId = 25
+        Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode, Me.tsitmDMSReadOnly, Me.bsiNotification, Me.bsiDocIDChanged})
+        Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 0)
+        Me.ribbonNodeNavigation.MaxItemId = 30
         Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation"
         Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
+        Me.ribbonNodeNavigation.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1})
         Me.ribbonNodeNavigation.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.ribbonNodeNavigation.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
         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(1443, 146)
+        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1151, 158)
         Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
         Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
         '
@@ -281,33 +315,35 @@ Partial Class frmNodeNavigation
         Me.tsitmDMSReadOnly.Name = "tsitmDMSReadOnly"
         Me.tsitmDMSReadOnly.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
+        'bsiNotification
+        '
+        Me.bsiNotification.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+        Me.bsiNotification.Id = 25
+        Me.bsiNotification.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow
+        Me.bsiNotification.ItemAppearance.Normal.Options.UseBackColor = True
+        Me.bsiNotification.Name = "bsiNotification"
+        Me.bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+        '
+        'bsiDocIDChanged
+        '
+        Me.bsiDocIDChanged.Caption = "bsiDocIDChanged"
+        Me.bsiDocIDChanged.Id = 26
+        Me.bsiDocIDChanged.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow
+        Me.bsiDocIDChanged.ItemAppearance.Normal.Options.UseBackColor = True
+        Me.bsiDocIDChanged.Name = "bsiDocIDChanged"
+        Me.bsiDocIDChanged.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+        '
+        'RepositoryItemTextEdit1
+        '
+        Me.RepositoryItemTextEdit1.AutoHeight = False
+        Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1"
+        '
         '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)
@@ -322,18 +358,41 @@ 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.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        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)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmRecordID)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiNotification)
         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, 769)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocIDChanged)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 567)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1443, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1151, 22)
         '
         'RibbonPage2
         '
@@ -355,8 +414,8 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
         Me.SplitContainerTreeList.Panel2.Text = "Panel2"
-        Me.SplitContainerTreeList.Size = New System.Drawing.Size(969, 582)
-        Me.SplitContainerTreeList.SplitterPosition = 289
+        Me.SplitContainerTreeList.Size = New System.Drawing.Size(776, 409)
+        Me.SplitContainerTreeList.SplitterPosition = 229
         Me.SplitContainerTreeList.TabIndex = 2
         '
         'TreeListDevexpress
@@ -380,7 +439,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 = 900
         Me.TreeListDevexpress.OptionsFind.FindFilterColumns = "NODE_CAPTION;NAVIGATION_PATH"
         Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
         Me.TreeListDevexpress.OptionsFind.ShowFindButton = False
@@ -397,7 +456,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(289, 582)
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 409)
         Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
         Me.TreeListDevexpress.TabIndex = 1
         '
@@ -421,8 +480,8 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
         Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
-        Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(670, 582)
-        Me.SplitContainerDocumentSearch.SplitterPosition = 246
+        Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(537, 409)
+        Me.SplitContainerDocumentSearch.SplitterPosition = 133
         Me.SplitContainerDocumentSearch.TabIndex = 1
         '
         'pnlControls
@@ -432,7 +491,7 @@ Partial Class frmNodeNavigation
         Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlControls.Location = New System.Drawing.Point(0, 0)
         Me.pnlControls.Name = "pnlControls"
-        Me.pnlControls.Size = New System.Drawing.Size(670, 246)
+        Me.pnlControls.Size = New System.Drawing.Size(537, 133)
         Me.pnlControls.TabIndex = 0
         '
         'GridControlDocSearch
@@ -446,136 +505,166 @@ 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(670, 326)
+        Me.GridControlDocSearch.Size = New System.Drawing.Size(537, 266)
         Me.GridControlDocSearch.TabIndex = 8
         Me.GridControlDocSearch.TabStop = False
         Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
         '
         'cmsResultFileDetail
         '
-        Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLink_ShowAll, Me.tsmiFileLinkRemove, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
+        Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(18, 18)
+        Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWorkMultiple_Lock, Me.tsmiFileInWorkMultiple_Free, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLinkRemove, Me.tsmiFileLink_ShowAll, Me.TsmitmJumpToFilestore, Me.LinkPerMailVersendenToolStripMenuItem, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
         Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles"
-        Me.cmsResultFileDetail.Size = New System.Drawing.Size(248, 394)
+        Me.cmsResultFileDetail.Size = New System.Drawing.Size(315, 418)
         '
         'tsmiFileProperties
         '
         Me.tsmiFileProperties.Image = CType(resources.GetObject("tsmiFileProperties.Image"), System.Drawing.Image)
         Me.tsmiFileProperties.Name = "tsmiFileProperties"
-        Me.tsmiFileProperties.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileProperties.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileProperties.Text = "Eigenschaften"
         '
         'ToolStripSeparator5
         '
         Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
-        Me.ToolStripSeparator5.Size = New System.Drawing.Size(244, 6)
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(311, 6)
         '
         'tsmiFileOpen
         '
         Me.tsmiFileOpen.Image = CType(resources.GetObject("tsmiFileOpen.Image"), System.Drawing.Image)
         Me.tsmiFileOpen.Name = "tsmiFileOpen"
-        Me.tsmiFileOpen.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileOpen.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileOpen.Text = "Datei öffnen"
         '
         'tsmiFileFolderOpen
         '
         Me.tsmiFileFolderOpen.Image = CType(resources.GetObject("tsmiFileFolderOpen.Image"), System.Drawing.Image)
         Me.tsmiFileFolderOpen.Name = "tsmiFileFolderOpen"
-        Me.tsmiFileFolderOpen.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileFolderOpen.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileFolderOpen.Text = "Ordner öffnen"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(244, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(311, 6)
+        '
+        'tsmiFileInWorkMultiple_Lock
+        '
+        Me.tsmiFileInWorkMultiple_Lock.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Lock.Image"), System.Drawing.Image)
+        Me.tsmiFileInWorkMultiple_Lock.Name = "tsmiFileInWorkMultiple_Lock"
+        Me.tsmiFileInWorkMultiple_Lock.Size = New System.Drawing.Size(314, 24)
+        Me.tsmiFileInWorkMultiple_Lock.Text = "Ausgewählte Dateien in Bearbeitung nehmen"
+        '
+        'tsmiFileInWorkMultiple_Free
+        '
+        Me.tsmiFileInWorkMultiple_Free.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Free.Image"), System.Drawing.Image)
+        Me.tsmiFileInWorkMultiple_Free.Name = "tsmiFileInWorkMultiple_Free"
+        Me.tsmiFileInWorkMultiple_Free.Size = New System.Drawing.Size(314, 24)
+        Me.tsmiFileInWorkMultiple_Free.Text = "Ausgewählte Dateien wieder freigeben"
         '
         'tsmiFileInWork
         '
         Me.tsmiFileInWork.Image = CType(resources.GetObject("tsmiFileInWork.Image"), System.Drawing.Image)
         Me.tsmiFileInWork.Name = "tsmiFileInWork"
-        Me.tsmiFileInWork.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileInWork.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileInWork.Text = "Datei in Bearbeitung nehmen"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(244, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(311, 6)
         '
         'tsmiFileLink_Add
         '
         Me.tsmiFileLink_Add.Image = CType(resources.GetObject("tsmiFileLink_Add.Image"), System.Drawing.Image)
         Me.tsmiFileLink_Add.Name = "tsmiFileLink_Add"
-        Me.tsmiFileLink_Add.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileLink_Add.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileLink_Add.Text = "Datei mit Datensatz verknüpfen"
         '
-        'tsmiFileLink_ShowAll
-        '
-        Me.tsmiFileLink_ShowAll.Image = CType(resources.GetObject("tsmiFileLink_ShowAll.Image"), System.Drawing.Image)
-        Me.tsmiFileLink_ShowAll.Name = "tsmiFileLink_ShowAll"
-        Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(247, 30)
-        Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen"
-        '
         'tsmiFileLinkRemove
         '
         Me.tsmiFileLinkRemove.Image = CType(resources.GetObject("tsmiFileLinkRemove.Image"), System.Drawing.Image)
         Me.tsmiFileLinkRemove.Name = "tsmiFileLinkRemove"
-        Me.tsmiFileLinkRemove.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileLinkRemove.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileLinkRemove.Text = "Entferne Dateilink"
         '
+        'tsmiFileLink_ShowAll
+        '
+        Me.tsmiFileLink_ShowAll.Image = CType(resources.GetObject("tsmiFileLink_ShowAll.Image"), System.Drawing.Image)
+        Me.tsmiFileLink_ShowAll.Name = "tsmiFileLink_ShowAll"
+        Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(314, 24)
+        Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen"
+        '
+        'TsmitmJumpToFilestore
+        '
+        Me.TsmitmJumpToFilestore.Image = Global.DD_Record_Organizer.My.Resources.Resources.HomeHS
+        Me.TsmitmJumpToFilestore.Name = "TsmitmJumpToFilestore"
+        Me.TsmitmJumpToFilestore.Size = New System.Drawing.Size(314, 24)
+        Me.TsmitmJumpToFilestore.Text = "Springe zu Filestore"
+        Me.TsmitmJumpToFilestore.Visible = False
+        '
+        'LinkPerMailVersendenToolStripMenuItem
+        '
+        Me.LinkPerMailVersendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
+        Me.LinkPerMailVersendenToolStripMenuItem.Name = "LinkPerMailVersendenToolStripMenuItem"
+        Me.LinkPerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(314, 24)
+        Me.LinkPerMailVersendenToolStripMenuItem.Text = "Link per Mail versenden"
+        Me.LinkPerMailVersendenToolStripMenuItem.Visible = False
+        '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(244, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(311, 6)
         '
         'tsmiFileRename
         '
         Me.tsmiFileRename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileRenameFilename, Me.tsmiFileRenameDisplayname})
         Me.tsmiFileRename.Name = "tsmiFileRename"
-        Me.tsmiFileRename.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileRename.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileRename.Text = "Umbenennen"
         '
         'tsmiFileRenameFilename
         '
         Me.tsmiFileRenameFilename.Name = "tsmiFileRenameFilename"
-        Me.tsmiFileRenameFilename.Size = New System.Drawing.Size(180, 22)
+        Me.tsmiFileRenameFilename.Size = New System.Drawing.Size(142, 22)
         Me.tsmiFileRenameFilename.Text = "Dateiname"
         '
         'tsmiFileRenameDisplayname
         '
         Me.tsmiFileRenameDisplayname.Name = "tsmiFileRenameDisplayname"
-        Me.tsmiFileRenameDisplayname.Size = New System.Drawing.Size(180, 22)
+        Me.tsmiFileRenameDisplayname.Size = New System.Drawing.Size(142, 22)
         Me.tsmiFileRenameDisplayname.Text = "Displayname"
         '
+        'DokumentartÄndernToolStripMenuItem
+        '
+        Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
+        Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(314, 24)
+        Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
+        '
         'tsmiFileVersion
         '
         Me.tsmiFileVersion.Image = CType(resources.GetObject("tsmiFileVersion.Image"), System.Drawing.Image)
         Me.tsmiFileVersion.Name = "tsmiFileVersion"
-        Me.tsmiFileVersion.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileVersion.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileVersion.Text = "Datei versionieren"
         '
-        'DokumentartÄndernToolStripMenuItem
-        '
-        Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
-        Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(247, 30)
-        Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
-        '
         'tsmiFileRightsShow
         '
         Me.tsmiFileRightsShow.Image = CType(resources.GetObject("tsmiFileRightsShow.Image"), System.Drawing.Image)
         Me.tsmiFileRightsShow.Name = "tsmiFileRightsShow"
-        Me.tsmiFileRightsShow.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileRightsShow.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileRightsShow.Text = "Dateirechte für User anzeigen"
         '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(244, 6)
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(311, 6)
         '
         'tsmiFileDelete
         '
         Me.tsmiFileDelete.Image = CType(resources.GetObject("tsmiFileDelete.Image"), System.Drawing.Image)
         Me.tsmiFileDelete.Name = "tsmiFileDelete"
-        Me.tsmiFileDelete.Size = New System.Drawing.Size(247, 30)
+        Me.tsmiFileDelete.Size = New System.Drawing.Size(314, 24)
         Me.tsmiFileDelete.Text = "Datei löschen"
         '
         'GridViewDoc_Search
@@ -642,7 +731,7 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 187)
+        Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158)
         Me.SplitContainerDocView.Name = "SplitContainerDocView"
         '
         'SplitContainerDocView.Panel1
@@ -654,18 +743,20 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
         Me.SplitContainerDocView.Panel2.Text = "Panel2"
-        Me.SplitContainerDocView.Size = New System.Drawing.Size(1443, 582)
-        Me.SplitContainerDocView.SplitterPosition = 969
+        Me.SplitContainerDocView.Size = New System.Drawing.Size(1151, 409)
+        Me.SplitContainerDocView.SplitterPosition = 776
         Me.SplitContainerDocView.TabIndex = 0
         '
         'DocumentViewer
         '
+        Me.DocumentViewer.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.DocumentViewer.Dock = System.Windows.Forms.DockStyle.Fill
         Me.DocumentViewer.FileLoaded = False
         Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
         Me.DocumentViewer.Name = "DocumentViewer"
-        Me.DocumentViewer.Size = New System.Drawing.Size(464, 582)
+        Me.DocumentViewer.Size = New System.Drawing.Size(365, 409)
         Me.DocumentViewer.TabIndex = 0
+        Me.DocumentViewer.Viewer_ForceTemporaryMode = False
         '
         'XtraSaveFileDialog1
         '
@@ -704,14 +795,13 @@ Partial Class frmNodeNavigation
         '
         'BarManager1
         '
-        Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar1, Me.Bar2, Me.Bar3})
         Me.BarManager1.DockControls.Add(Me.barDockControlTop)
         Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
         Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
         Me.BarManager1.DockControls.Add(Me.barDockControlRight)
         Me.BarManager1.Form = Me
-        Me.BarManager1.MainMenu = Me.Bar2
-        Me.BarManager1.StatusBar = Me.Bar3
+        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarSubItem1, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18})
+        Me.BarManager1.MaxItemId = 18
         '
         'barDockControlTop
         '
@@ -719,64 +809,264 @@ 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(1443, 41)
+        Me.barDockControlTop.Size = New System.Drawing.Size(1151, 0)
         '
         'barDockControlBottom
         '
         Me.barDockControlBottom.CausesValidation = False
         Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 791)
+        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 589)
         Me.barDockControlBottom.Manager = Me.BarManager1
-        Me.barDockControlBottom.Size = New System.Drawing.Size(1443, 19)
+        Me.barDockControlBottom.Size = New System.Drawing.Size(1151, 0)
         '
         'barDockControlLeft
         '
         Me.barDockControlLeft.CausesValidation = False
         Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
-        Me.barDockControlLeft.Location = New System.Drawing.Point(0, 41)
+        Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
         Me.barDockControlLeft.Manager = Me.BarManager1
-        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 750)
+        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 589)
         '
         'barDockControlRight
         '
         Me.barDockControlRight.CausesValidation = False
         Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
-        Me.barDockControlRight.Location = New System.Drawing.Point(1443, 41)
+        Me.barDockControlRight.Location = New System.Drawing.Point(1151, 0)
         Me.barDockControlRight.Manager = Me.BarManager1
-        Me.barDockControlRight.Size = New System.Drawing.Size(0, 750)
+        Me.barDockControlRight.Size = New System.Drawing.Size(0, 589)
         '
-        'Bar1
+        'BarButtonItem2
         '
-        Me.Bar1.BarName = "Befehle"
-        Me.Bar1.DockCol = 0
-        Me.Bar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
-        Me.Bar1.Text = "Befehle"
+        Me.BarButtonItem2.AccessibleName = "tsmiFileProperties"
+        Me.BarButtonItem2.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem2.Caption = "Eigenschaften"
+        Me.BarButtonItem2.Hint = Nothing
+        Me.BarButtonItem2.Id = 13
+        Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        Me.BarButtonItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
-        'Bar2
+        'BarButtonItem3
         '
-        Me.Bar2.BarName = "Hauptmenü"
-        Me.Bar2.DockCol = 0
-        Me.Bar2.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
-        Me.Bar2.OptionsBar.MultiLine = True
-        Me.Bar2.OptionsBar.UseWholeRow = True
-        Me.Bar2.Text = "Hauptmenü"
+        Me.BarButtonItem3.AccessibleName = "tsmiFileOpen"
+        Me.BarButtonItem3.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem3.Caption = "Datei öffnen"
+        Me.BarButtonItem3.Hint = Nothing
+        Me.BarButtonItem3.Id = 3
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        Me.BarButtonItem3.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
-        'Bar3
+        'BarButtonItem4
         '
-        Me.Bar3.BarName = "Statusleiste"
-        Me.Bar3.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom
-        Me.Bar3.DockCol = 0
-        Me.Bar3.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom
-        Me.Bar3.OptionsBar.AllowQuickCustomization = False
-        Me.Bar3.OptionsBar.DrawDragBorder = False
-        Me.Bar3.OptionsBar.UseWholeRow = True
-        Me.Bar3.Text = "Statusleiste"
+        Me.BarButtonItem4.AccessibleName = "tsmiFileFolderOpen"
+        Me.BarButtonItem4.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem4.Caption = "Ordner öffnen"
+        Me.BarButtonItem4.Hint = Nothing
+        Me.BarButtonItem4.Id = 4
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        Me.BarButtonItem4.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem5
+        '
+        Me.BarButtonItem5.AccessibleName = "tsmiFileInWork"
+        Me.BarButtonItem5.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem5.Caption = "Datei in Bearbeitung nehmen"
+        Me.BarButtonItem5.Hint = Nothing
+        Me.BarButtonItem5.Id = 0
+        Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem5.Name = "BarButtonItem5"
+        Me.BarButtonItem5.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem6
+        '
+        Me.BarButtonItem6.AccessibleName = "tsmiFileLink_Add"
+        Me.BarButtonItem6.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem6.Caption = "Datei mit Datensatz verknüpfen"
+        Me.BarButtonItem6.Hint = Nothing
+        Me.BarButtonItem6.Id = 2
+        Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem6.Name = "BarButtonItem6"
+        Me.BarButtonItem6.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem7
+        '
+        Me.BarButtonItem7.AccessibleName = "tsmiFileLink_ShowAll"
+        Me.BarButtonItem7.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem7.Caption = "Verknüpfungen anzeigen"
+        Me.BarButtonItem7.Hint = Nothing
+        Me.BarButtonItem7.Id = 5
+        Me.BarButtonItem7.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem7.Name = "BarButtonItem7"
+        Me.BarButtonItem7.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem8
+        '
+        Me.BarButtonItem8.AccessibleName = "tsmiFileLinkRemove"
+        Me.BarButtonItem8.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem8.Caption = "Entferne Dateilink"
+        Me.BarButtonItem8.Hint = Nothing
+        Me.BarButtonItem8.Id = 6
+        Me.BarButtonItem8.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem8.Name = "BarButtonItem8"
+        Me.BarButtonItem8.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem9
+        '
+        Me.BarButtonItem9.AccessibleName = "tsmiFileRenameFilename"
+        Me.BarButtonItem9.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem9.Caption = "Dateiname"
+        Me.BarButtonItem9.Hint = Nothing
+        Me.BarButtonItem9.Id = 11
+        Me.BarButtonItem9.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem9.Name = "BarButtonItem9"
+        Me.BarButtonItem9.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem10
+        '
+        Me.BarButtonItem10.AccessibleName = "tsmiFileRenameDisplayname"
+        Me.BarButtonItem10.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem10.Caption = "Displayname"
+        Me.BarButtonItem10.Hint = Nothing
+        Me.BarButtonItem10.Id = 12
+        Me.BarButtonItem10.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem10.Name = "BarButtonItem10"
+        Me.BarButtonItem10.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarSubItem1
+        '
+        Me.BarSubItem1.AccessibleName = "tsmiFileRename"
+        Me.BarSubItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarSubItem1.Caption = "Umbenennen"
+        Me.BarSubItem1.Hint = Nothing
+        Me.BarSubItem1.Id = 9
+        Me.BarSubItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarSubItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem10)})
+        Me.BarSubItem1.Name = "BarSubItem1"
+        Me.BarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem11
+        '
+        Me.BarButtonItem11.AccessibleName = "DokumentartÄndernToolStripMenuItem"
+        Me.BarButtonItem11.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem11.Caption = "Dokumentart ändern"
+        Me.BarButtonItem11.Hint = Nothing
+        Me.BarButtonItem11.Id = 10
+        Me.BarButtonItem11.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem11.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem11.Name = "BarButtonItem11"
+        Me.BarButtonItem11.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem12
+        '
+        Me.BarButtonItem12.AccessibleName = "tsmiFileVersion"
+        Me.BarButtonItem12.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem12.Caption = "Datei versionieren"
+        Me.BarButtonItem12.Hint = Nothing
+        Me.BarButtonItem12.Id = 7
+        Me.BarButtonItem12.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem12.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem12.Name = "BarButtonItem12"
+        Me.BarButtonItem12.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem13
+        '
+        Me.BarButtonItem13.AccessibleName = "tsmiFileRightsShow"
+        Me.BarButtonItem13.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem13.Caption = "Dateirechte für User anzeigen"
+        Me.BarButtonItem13.Hint = Nothing
+        Me.BarButtonItem13.Id = 8
+        Me.BarButtonItem13.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem13.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem13.Name = "BarButtonItem13"
+        Me.BarButtonItem13.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem14
+        '
+        Me.BarButtonItem14.AccessibleName = "tsmiFileDelete"
+        Me.BarButtonItem14.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem14.Caption = "Datei löschen"
+        Me.BarButtonItem14.Hint = Nothing
+        Me.BarButtonItem14.Id = 1
+        Me.BarButtonItem14.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem14.Name = "BarButtonItem14"
+        Me.BarButtonItem14.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem15
+        '
+        Me.BarButtonItem15.AccessibleName = "DateiÖffnenToolStripMenuItem"
+        Me.BarButtonItem15.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem15.Caption = "Datei öffnen"
+        Me.BarButtonItem15.Hint = Nothing
+        Me.BarButtonItem15.Id = 14
+        Me.BarButtonItem15.ImageOptions.Image = CType(resources.GetObject("BarButtonItem15.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem15.Name = "BarButtonItem15"
+        Me.BarButtonItem15.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem16
+        '
+        Me.BarButtonItem16.AccessibleName = "EigenschaftenToolStripMenuItem"
+        Me.BarButtonItem16.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem16.Caption = "Eigenschaften"
+        Me.BarButtonItem16.Hint = Nothing
+        Me.BarButtonItem16.Id = 15
+        Me.BarButtonItem16.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.Property_501
+        Me.BarButtonItem16.Name = "BarButtonItem16"
+        Me.BarButtonItem16.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem17
+        '
+        Me.BarButtonItem17.AccessibleName = "KnotenLöschenadminToolStripMenuItem"
+        Me.BarButtonItem17.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem17.Caption = "Knoten löschen (admin)"
+        Me.BarButtonItem17.Hint = Nothing
+        Me.BarButtonItem17.Id = 16
+        Me.BarButtonItem17.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
+        Me.BarButtonItem17.Name = "BarButtonItem17"
+        Me.BarButtonItem17.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem18
+        '
+        Me.BarButtonItem18.AccessibleName = "KnotenVerschiebenToolStripMenuItem"
+        Me.BarButtonItem18.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.BarButtonItem18.Caption = "Knoten verschieben"
+        Me.BarButtonItem18.Hint = Nothing
+        Me.BarButtonItem18.Id = 17
+        Me.BarButtonItem18.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.table_refresh
+        Me.BarButtonItem18.Name = "BarButtonItem18"
+        Me.BarButtonItem18.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'PopupMenu2
+        '
+        Me.PopupMenu2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem3, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem4), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem5, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem11), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem12), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem13), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14, True)})
+        Me.PopupMenu2.Manager = Me.BarManager1
+        Me.PopupMenu2.Name = "PopupMenu2"
+        '
+        'PopupMenu3
+        '
+        Me.PopupMenu3.Manager = Me.BarManager1
+        Me.PopupMenu3.Name = "PopupMenu3"
+        '
+        'PopupMenu4
+        '
+        Me.PopupMenu4.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem15), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem16)})
+        Me.PopupMenu4.Manager = Me.BarManager1
+        Me.PopupMenu4.Name = "PopupMenu4"
+        '
+        'PopupMenu5
+        '
+        Me.PopupMenu5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem17), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem18)})
+        Me.PopupMenu5.Manager = Me.BarManager1
+        Me.PopupMenu5.Name = "PopupMenu5"
+        '
+        'DD_DMSDataSet1
+        '
+        Me.DD_DMSDataSet1.DataSetName = "DD_DMSDataSet"
+        Me.DD_DMSDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
         'frmNodeNavigation
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1443, 810)
+        Me.ClientSize = New System.Drawing.Size(1151, 589)
         Me.Controls.Add(Me.SplitContainerDocView)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.ribbonNodeNavigation)
@@ -790,6 +1080,7 @@ Partial Class frmNodeNavigation
         Me.StatusBar = Me.RibbonStatusBar1
         Me.Text = "frmNodeNavigation"
         CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerTreeList.Panel1.ResumeLayout(False)
         CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -817,6 +1108,11 @@ Partial Class frmNodeNavigation
         Me.CMSAdmin_Treeview.ResumeLayout(False)
         CType(Me.PopupMenu1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PopupMenu2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PopupMenu3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PopupMenu4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PopupMenu5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_DMSDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -890,11 +1186,38 @@ Partial Class frmNodeNavigation
     Friend WithEvents KnotenVerschiebenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents PopupMenu1 As DevExpress.XtraBars.PopupMenu
     Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
-    Friend WithEvents Bar1 As DevExpress.XtraBars.Bar
-    Friend WithEvents Bar2 As DevExpress.XtraBars.Bar
-    Friend WithEvents Bar3 As DevExpress.XtraBars.Bar
     Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
     Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
     Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
     Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents PopupMenu2 As DevExpress.XtraBars.PopupMenu
+    Friend WithEvents PopupMenu3 As DevExpress.XtraBars.PopupMenu
+    Friend WithEvents PopupMenu4 As DevExpress.XtraBars.PopupMenu
+    Friend WithEvents PopupMenu5 As DevExpress.XtraBars.PopupMenu
+    Friend WithEvents bsiNotification As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents LinkPerMailVersendenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tsmiFileInWorkMultiple_Free As ToolStripMenuItem
+    Friend WithEvents tsmiFileInWorkMultiple_Lock As ToolStripMenuItem
+    Friend WithEvents DD_DMSDataSet1 As DD_DMSDataSet
+    Friend WithEvents bsiDocIDChanged As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents TsmitmJumpToFilestore As ToolStripMenuItem
+    Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
 End Class

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,103 +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
+        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
+        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==
-</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=
+        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
+        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">
@@ -688,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">
@@ -722,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">
@@ -735,19 +762,22 @@
     <value>779, 17</value>
   </metadata>
   <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>943, 17</value>
+    <value>944, 17</value>
   </metadata>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 54</value>
+    <value>1101, 17</value>
   </metadata>
   <metadata name="CMSAdmin_Treeview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>158, 54</value>
+    <value>1242, 17</value>
   </metadata>
   <metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>323, 54</value>
+    <value>17, 54</value>
   </metadata>
   <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>449, 54</value>
+    <value>143, 54</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>151</value>
   </metadata>
   <data name="frmNodeNavigation.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -772,4 +802,316 @@
         Zz4L
 </value>
   </data>
+  <data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        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">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKIDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
+        WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
+        N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
+        aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTIxLjUsMjhIMjBI
+        NlY0aDE0djVjMCwwLjYsMC40LDEsMSwxaDV2MTMuNWwyLDJWOWwtNy03SDVDNC40LDIsNCwyLjQsNCwz
+        djI2YzAsMC42LDAuNCwxLDEsMWgxOC41TDIxLjUsMjh6ICAiIGNsYXNzPSJCbGFjayIgLz4NCiAgPHBh
+        dGggZD0iTTE4LDEzLjljMy4zLDAsNiwyLjcsNiw2YzAsMS4yLTAuNCwyLjMtMSwzLjNsNC42LDQuNmMw
+        LjUsMC41LDAuNSwxLjMsMCwxLjdjLTAuNSwwLjUtMS4zLDAuNS0xLjcsMEwyMS4zLDI1ICBjLTAuOSww
+        LjYtMi4xLDEtMy4zLDFjLTMuMywwLTYtMi43LTYtNkMxMS45LDE2LjYsMTQuNiwxMy45LDE4LDEzLjl6
+        IE0xOCwyNGMyLjIsMCw0LTEuOCw0LTRzLTEuOC00LTQtNHMtNCwxLjgtNCw0UzE1LjgsMjQsMTgsMjR6
+        ICAiIGNsYXNzPSJCbHVlIiAvPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy
+        IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll
+        bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz
+        cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2
+        LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw
+        ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog
+        IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w
+        LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg
+        PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs
+        MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGcCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVW5waW5CdXR0b24iPg0KICAgIDxwb2x5Z29uIHBv
+        aW50cz0iMTgsNCAxNiw2IDE2LDEwIDEyLDE0IDgsMTQgNiwxNiA5LjMsMTkuMyA0LDI4IDEyLjgsMjIu
+        OCAxNiwyNiAxOCwyNCAxOCwyMCAyMiwxNiAyNiwxNiAyOCwxNCAgIiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+        PC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAxNiAxNiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGluayIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMTYg
+        MTYiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
+        bGU+DQogIDxwYXRoIGQ9Ik0xMi41LDVoLTJDOS4zLDUsOC4zLDUuOSw4LjEsN0g2LjlDNi43LDUuOSw1
+        LjcsNSw0LjUsNWgtMkMxLjEsNSwwLDYuMSwwLDcuNVMxLjEsMTAsMi41LDEwaDIgIGMxLjIsMCwyLjIt
+        MC45LDIuNC0yaDEuMWMwLjIsMS4xLDEuMiwyLDIuNCwyaDJjMS40LDAsMi41LTEuMSwyLjUtMi41UzEz
+        LjksNSwxMi41LDV6IE00LjUsOWgtMkMxLjcsOSwxLDguMywxLDcuNSAgQzEsNi43LDEuNyw2LDIuNSw2
+        aDJjMC42LDAsMS4yLDAuNCwxLjQsMUgzLjVDMy4yLDcsMyw3LjIsMyw3LjVTMy4yLDgsMy41LDhoMi40
+        QzUuNyw4LjYsNS4xLDksNC41LDl6IE0xMi41LDloLTIgIEM5LjksOSw5LjMsOC42LDkuMSw4aDIuNEMx
+        MS44LDgsMTIsNy44LDEyLDcuNVMxMS44LDcsMTEuNSw3SDkuMWMwLjItMC42LDAuOC0xLDEuNC0xaDJD
+        MTMuMyw2LDE0LDYuNywxNCw3LjVDMTQsOC4zLDEzLjMsOSwxMi41LDkgIHoiIGNsYXNzPSJCbGFjayIg
+        Lz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem7.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABMDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGlua1RvUHJldmlvdXMiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpu
+        ZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFja3tmaWxsOiM3Mjcy
+        NzI7fQoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9zdHlsZT4N
+        CiAgPHBhdGggZD0iTTE2LDE2SDZ2LTZoMTBWMTZ6IE0zMiwxMEgyMnY2aDEwVjEweiIgY2xhc3M9Illl
+        bGxvdyIgLz4NCiAgPHBhdGggZD0iTTE0LDE2djExYzAsMC41LTAuNSwxLTEsMUgzYy0wLjUsMC0xLTAu
+        NS0xLTFWMTNjMC0wLjUsMC41LTEsMS0xaDN2Mkg0djEyaDhWMTZIMTR6IE0yOCwxNnYxMGgtOFYxNGgy
+        di0yaC0zICBjLTAuNSwwLTEsMC41LTEsMXYxNGMwLDAuNSwwLjUsMSwxLDFoMTBjMC41LDAsMS0wLjUs
+        MS0xVjE2SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJNMTAuOSwyLjlDMTIuNywxLjEs
+        MTUuMiwwLDE4LDBjNC44LDAsOC45LDMuNCw5LjgsOGgtMi4xYy0wLjktMy40LTQtNi03LjctNmMtMi4y
+        LDAtNC4yLDAuOS01LjYsMi40TDE2LDhIOFYwICBMMTAuOSwyLjl6IiBjbGFzcz0iQmx1ZSIgLz4NCjwv
+        c3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem8.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAA0DAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAxNiAxNiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iVW5saW5rIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAx
+        NiAxNiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDojNzI3MjcyO30KPC9z
+        dHlsZT4NCiAgPHBhdGggZD0iTTQuNSw1aC0yQzEuMSw1LDAsNi4yLDAsNy41UzEuMSwxMCwyLjUsMTBo
+        MkM1LjksMTAsNyw4LjksNyw3LjVTNS45LDUsNC41LDV6IE00LjUsOWgtMkMxLjYsOSwxLDguMywxLDcu
+        NSAgQzEsNi43LDEuNiw2LDIuNSw2aDJjMC43LDAsMS4yLDAuNCwxLjQsMUgzLjVDMy4zLDcsMyw3LjMs
+        Myw3LjVTMy4zLDgsMy41LDhoMi40QzUuNyw4LjYsNS4yLDksNC41LDl6IE0xMy41LDVoLTIgIEMxMC4x
+        LDUsOSw2LjIsOSw3LjVzMS4xLDIuNSwyLjUsMi41aDJjMS40LDAsMi41LTEuMSwyLjUtMi41UzE0Ljks
+        NSwxMy41LDV6IE0xMy41LDloLTJjLTAuNiwwLTEuMi0wLjQtMS40LTFoMi40ICBDMTIuOCw4LDEzLDcu
+        OCwxMyw3LjVTMTIuOCw3LDEyLjUsN2gtMi40YzAuMi0wLjYsMC44LTEsMS40LTFoMkMxNC40LDYsMTUs
+        Ni43LDE1LDcuNUMxNSw4LjMsMTQuNCw5LDEzLjUsOXoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem9.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4CAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW5zZXJ0TGlz
+        dEJveCI+DQogICAgPHBhdGggZD0iTTI3LDMwSDNjLTAuNSwwLTEtMC41LTEtMVYxYzAtMC42LDAuNS0x
+        LDEtMWgyNGMwLjUsMCwxLDAuNCwxLDF2MjhDMjgsMjkuNSwyNy41LDMwLDI3LDMweiBNMjYsMkg0djI2
+        aDIyVjIgICB6IE0yMiw2SDh2MmgxNFY2eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYyaDE0VjE0
+        eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8
+        L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="BarButtonItem10.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
+        PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
+        MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
+        Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
+        aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarSubItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABwFAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iUmVuYW1lXzFfIj4NCiAgICA8
+        cGF0aCBkPSJNMi4xLDE2aDIuMmwwLjYtMi4zaDMuMkw4LjgsMTZIMTFMNy44LDZINS40TDIuMSwxNnog
+        TTYuNCw4LjdjMC4xLTAuMywwLjEtMC42LDAuMS0wLjloMC4xICAgYzAsMC4zLDAuMSwwLjYsMC4xLDAu
+        OWwxLDMuM0g1LjRMNi40LDguN3ogTTE3LjUsMTAuNmMwLjYtMC4yLDEuMS0wLjUsMS41LTAuOWMwLjQt
+        MC40LDAuNi0wLjksMC42LTEuNGMwLTAuNy0wLjMtMS4zLTAuOS0xLjcgICBDMTguMSw2LjIsMTcuMSw2
+        LDE1LjksNkgxMnY5LjlWMTZoNGMxLjIsMCwyLjItMC4yLDIuOS0wLjhDMTkuNywxNC42LDIwLDE0LDIw
+        LDEzYzAtMC42LTAuMi0xLjItMC43LTEuNiAgIEMxOC45LDExLDE4LjMsMTAuNywxNy41LDEwLjZ6IE0x
+        NC40LDcuN2gwLjljMS4xLDAsMS43LDAuNCwxLjcsMS4xYzAsMC40LTAuMSwwLjctMC40LDAuOUMxNi40
+        LDkuOSwxNiwxMCwxNS41LDEwaC0xLjFWNy43eiAgICBNMTcsMTMuOGMtMC4zLDAuMi0wLjgsMC40LTEu
+        MywwLjRoLTEuM3YtMi42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjNjMC4zLDAuMiwwLjUsMC42LDAu
+        NSwwLjlDMTcuNSwxMy4zLDE3LjQsMTMuNiwxNywxMy44eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxw
+        YXRoIGQ9Ik0yNywxOWwtOCw4bC00LTRsOC04TDI3LDE5eiBNMjgsMThsMS43LTEuN2MwLjQtMC40LDAu
+        NC0xLDAtMS4zTDI3LDEyLjNjLTAuNC0wLjQtMS0wLjQtMS4zLDBMMjQsMTRMMjgsMTh6ICAgIE0xNCwy
+        NHY0aDRMMTQsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem11.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIIFAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iUmVuYW1lIj4NCiAgICA8cGF0
+        aCBkPSJNMjEuNiwxMC4zYzAtMC43LTAuMy0xLjMtMC45LTEuN0MyMC4xLDguMiwxOS4xLDgsMTcuOSw4
+        SDE0djkuOVYxOGg0YzEuMiwwLDIuMi0wLjIsMi45LTAuOCAgIEMyMS43LDE2LjYsMjIsMTYsMjIsMTVj
+        MC0wLjYtMC4yLTEuMi0wLjctMS42Yy0wLjUtMC40LTEuMS0wLjctMS44LTAuOGMwLjYtMC4yLDEuMS0w
+        LjUsMS41LTAuOUMyMS40LDExLjMsMjEuNiwxMC45LDIxLjYsMTAuM3ogICAgTTE2LjQsOS43aDAuOWMx
+        LjEsMCwxLjcsMC40LDEuNywxLjFjMCwwLjQtMC4xLDAuNy0wLjQsMC45QzE4LjQsMTEuOSwxOCwxMiwx
+        Ny41LDEyaC0xLjFWOS43eiBNMTksMTUuOGMtMC4zLDAuMi0wLjgsMC40LTEuMywwLjQgICBoLTEuM3Yt
+        Mi42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjNjMC4zLDAuMiwwLjUsMC42LDAuNSwwLjlDMTkuNSwx
+        NS4zLDE5LjQsMTUuNiwxOSwxNS44eiBNMTcuMiwyMkgxYy0wLjUsMC0xLTAuNS0xLTFWNSAgIGMwLTAu
+        NSwwLjUtMSwxLTFoMjRjMC41LDAsMSwwLjUsMSwxdjguMmwtMiwyVjZIMnYxNGgxNy4yTDE3LjIsMjJ6
+        IE00LjEsMThoMi4ybDAuNi0yLjNoMy4ybDAuNiwyLjNIMTNMOS44LDhINy40TDQuMSwxOHogICAgTTgu
+        NCwxMC43YzAuMS0wLjMsMC4xLTAuNiwwLjEtMC45aDAuMWMwLDAuMywwLjEsMC42LDAuMSwwLjlsMSwz
+        LjNINy40TDguNCwxMC43eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwyMWwtOCw4
+        bC00LTRsOC04TDI5LDIxeiBNMzAsMjBsMS43LTEuN2MwLjQtMC40LDAuNC0xLDAtMS4zTDI5LDE0LjNj
+        LTAuNC0wLjQtMS0wLjQtMS4zLDBMMjYsMTZMMzAsMjB6ICAgIE0xNiwyNnY0aDRMMTYsMjZ6IiBjbGFz
+        cz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem12.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHECAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTXVsdGlwbGVfRG9jdW1lbnRzIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91
+        bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDoj
+        NzI3MjcyO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTMxLDhoLTVWNWMwLTAuNS0wLjUtMS0xLTFoLTVW
+        MWMwLTAuNS0wLjUtMS0xLTFIMUMwLjUsMCwwLDAuNSwwLDF2MjJjMCwwLjUsMC41LDEsMSwxaDV2M2Mw
+        LDAuNSwwLjUsMSwxLDEgIGg1djNjMCwwLjUsMC41LDEsMSwxaDE4YzAuNSwwLDEtMC41LDEtMVY5QzMy
+        LDguNSwzMS41LDgsMzEsOHogTTYsNXYxN0gyVjJoMTZ2Mkg3QzYuNSw0LDYsNC41LDYsNXogTTEyLDl2
+        MTdIOFY2aDE2djJIMTMgIEMxMi41LDgsMTIsOC41LDEyLDl6IE0zMCwzMEgxNFYxMGgxNlYzMHoiIGNs
+        YXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem13.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        UmVke2ZpbGw6I0QxMUMxQzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuR3JlZW57ZmlsbDojMDM5
+        QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNlY3VyaXR5Ij4NCiAgICA8cGF0aCBkPSJNMTYsMkw0LDhj
+        MCwwLDAsMCwwLDZzNSwxMy43LDEyLDE2YzctMi4zLDEyLTEwLDEyLTE2czAtNiwwLTZMMTYsMnogTTE0
+        LDIybC02LTZsMi0ybDQsNGw4LThsMiwyTDE0LDIyeiIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8
+        L3N2Zz4L
+</value>
+  </data>
+  <data name="BarButtonItem14.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs
+        YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy
+        Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N
+        CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu
+        NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w
+        LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt
+        MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks
+        Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44
+        LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem15.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        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">
+    <value>267, 54</value>
+  </metadata>
+  <metadata name="PopupMenu3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>393, 54</value>
+  </metadata>
+  <metadata name="PopupMenu4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>519, 54</value>
+  </metadata>
+  <metadata name="PopupMenu5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>645, 54</value>
+  </metadata>
+  <metadata name="DD_DMSDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>771, 54</value>
+  </metadata>
 </root>

app/DD-Record-Organizer/frmRecordView.vb

@@ -48,8 +48,8 @@ Public Class frmRecordView
                 Me.Text = "Detailansicht Record"
             End If
             recordView = New ClassRecordView(pnlDetails)
-            RECORD_ID = JUMP_RECORD_ID
-            recordView.LoadRecord(JUMP_RECORD_ID)
+            RECORD_ID = JUMP_ID
+            recordView.LoadRecord(JUMP_ID)
 
             'Titel updaten
             Me.Text &= " " + RECORD_ID.ToString()
@@ -437,8 +437,8 @@ Public Class frmRecordView
 
         End Try
         Me.BringToFront()
-        If JUMP_RECORD_ID <> 0 Then
-            JUMP_RECORD_ID = 0
+        If JUMP_ID <> 0 Then
+            JUMP_ID = 0
         End If
     End Sub
 
@@ -453,7 +453,7 @@ Public Class frmRecordView
             Exit Sub
         End If
         For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
-            ClassHelper.File_open(row.Item("DOC_PATH"), 0)
+            ClassHelper.File_open(row.Item("DOC_PATH"), 0, 0)
         Next
 
     End Sub
@@ -464,7 +464,7 @@ Public Class frmRecordView
             Exit Sub
         End If
         For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
-            ClassHelper.File_open(row.Item("DOC_PATH"), 0)
+            ClassHelper.File_open(row.Item("DOC_PATH"), 0, 0)
         Next
 
     End Sub
@@ -741,7 +741,7 @@ Public Class frmRecordView
             Exit Sub
         End If
         For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
-            ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
+            ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"), 0)
         Next
 
     End Sub

app/DD-Record-Organizer/frmRight_Management.resx

@@ -126,7 +126,7 @@
   </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="IDLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>9, 44</value>
+    <value>9, 43</value>
   </data>
   <data name="IDLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>21, 13</value>
@@ -156,10 +156,10 @@
     <value>True</value>
   </data>
   <data name="ENTITY_NAMELabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>9, 73</value>
+    <value>9, 72</value>
   </data>
   <data name="ENTITY_NAMELabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>32, 13</value>
+    <value>33, 13</value>
   </data>
   <data name="ENTITY_NAMELabel.TabIndex" type="System.Int32, mscorlib">
     <value>24</value>
@@ -186,7 +186,7 @@
     <value>True</value>
   </data>
   <data name="GROUP_NAMELabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>9, 99</value>
+    <value>9, 98</value>
   </data>
   <data name="GROUP_NAMELabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>46, 13</value>
@@ -216,7 +216,7 @@
     <value>True</value>
   </data>
   <data name="ADDED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>568, 44</value>
+    <value>567, 43</value>
   </data>
   <data name="ADDED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>64, 13</value>
@@ -246,10 +246,10 @@
     <value>True</value>
   </data>
   <data name="CHANGED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>828, 44</value>
+    <value>827, 43</value>
   </data>
   <data name="CHANGED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>77, 13</value>
+    <value>78, 13</value>
   </data>
   <data name="CHANGED_WHOLabel.TabIndex" type="System.Int32, mscorlib">
     <value>34</value>
@@ -276,7 +276,7 @@
     <value>True</value>
   </data>
   <data name="ADDED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>568, 73</value>
+    <value>567, 72</value>
   </data>
   <data name="ADDED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>74, 13</value>
@@ -306,10 +306,10 @@
     <value>True</value>
   </data>
   <data name="CHANGED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>828, 73</value>
+    <value>827, 72</value>
   </data>
   <data name="CHANGED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>87, 13</value>
+    <value>88, 13</value>
   </data>
   <data name="CHANGED_WHENLabel.TabIndex" type="System.Int32, mscorlib">
     <value>36</value>
@@ -490,10 +490,10 @@
     <value>ToolStripButton1</value>
   </data>
   <data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 3</value>
+    <value>2, 2</value>
   </data>
   <data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1155, 25</value>
+    <value>1293, 25</value>
   </data>
   <data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -707,10 +707,10 @@
     <value>Segoe UI, 8.25pt, style=Bold, Italic</value>
   </data>
   <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 133</value>
+    <value>15, 166</value>
   </data>
   <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>731, 57</value>
+    <value>914, 71</value>
   </data>
   <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
     <value>43</value>
@@ -731,10 +731,10 @@
     <value>0</value>
   </data>
   <data name="CHANGED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>921, 68</value>
+    <value>1151, 85</value>
   </data>
   <data name="CHANGED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>118, 22</value>
+    <value>148, 28</value>
   </data>
   <data name="CHANGED_WHENTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>37</value>
@@ -752,10 +752,10 @@
     <value>2</value>
   </data>
   <data name="ADDED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>673, 70</value>
+    <value>841, 87</value>
   </data>
   <data name="ADDED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>149, 22</value>
+    <value>186, 28</value>
   </data>
   <data name="ADDED_WHENTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>36</value>
@@ -773,10 +773,10 @@
     <value>4</value>
   </data>
   <data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>921, 39</value>
+    <value>1151, 48</value>
   </data>
   <data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>118, 22</value>
+    <value>148, 28</value>
   </data>
   <data name="CHANGED_WHOTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>35</value>
@@ -794,10 +794,10 @@
     <value>6</value>
   </data>
   <data name="ADDED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>673, 41</value>
+    <value>841, 51</value>
   </data>
   <data name="ADDED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>149, 22</value>
+    <value>186, 28</value>
   </data>
   <data name="ADDED_WHOTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>33</value>
@@ -815,10 +815,10 @@
     <value>8</value>
   </data>
   <data name="DELETE_DOCCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>458, 94</value>
+    <value>572, 117</value>
   </data>
   <data name="DELETE_DOCCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>104, 24</value>
+    <value>130, 30</value>
   </data>
   <data name="DELETE_DOCCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>32</value>
@@ -839,10 +839,10 @@
     <value>9</value>
   </data>
   <data name="VIEW_DOCCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>458, 68</value>
+    <value>572, 85</value>
   </data>
   <data name="VIEW_DOCCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>104, 24</value>
+    <value>130, 30</value>
   </data>
   <data name="VIEW_DOCCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>31</value>
@@ -863,10 +863,10 @@
     <value>10</value>
   </data>
   <data name="ADD_DOCCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>458, 39</value>
+    <value>572, 48</value>
   </data>
   <data name="ADD_DOCCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>104, 24</value>
+    <value>130, 30</value>
   </data>
   <data name="ADD_DOCCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>30</value>
@@ -887,10 +887,10 @@
     <value>11</value>
   </data>
   <data name="DELETE_RECCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>334, 94</value>
+    <value>417, 117</value>
   </data>
   <data name="DELETE_RECCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>104, 24</value>
+    <value>130, 30</value>
   </data>
   <data name="DELETE_RECCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>29</value>
@@ -911,10 +911,10 @@
     <value>12</value>
   </data>
   <data name="ADD_RECCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>334, 68</value>
+    <value>417, 85</value>
   </data>
   <data name="ADD_RECCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>104, 24</value>
+    <value>130, 30</value>
   </data>
   <data name="ADD_RECCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>28</value>
@@ -935,10 +935,10 @@
     <value>13</value>
   </data>
   <data name="EDIT_RECCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>334, 39</value>
+    <value>417, 48</value>
   </data>
   <data name="EDIT_RECCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>104, 24</value>
+    <value>130, 30</value>
   </data>
   <data name="EDIT_RECCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>27</value>
@@ -959,10 +959,10 @@
     <value>14</value>
   </data>
   <data name="GROUP_NAMETextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>72, 96</value>
+    <value>90, 120</value>
   </data>
   <data name="GROUP_NAMETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>231, 22</value>
+    <value>289, 28</value>
   </data>
   <data name="GROUP_NAMETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>26</value>
@@ -980,10 +980,10 @@
     <value>16</value>
   </data>
   <data name="ENTITY_NAMETextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>72, 70</value>
+    <value>90, 87</value>
   </data>
   <data name="ENTITY_NAMETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>231, 22</value>
+    <value>289, 28</value>
   </data>
   <data name="ENTITY_NAMETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>25</value>
@@ -1001,10 +1001,10 @@
     <value>18</value>
   </data>
   <data name="IDTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>72, 44</value>
+    <value>90, 55</value>
   </data>
   <data name="IDTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>100, 22</value>
+    <value>125, 28</value>
   </data>
   <data name="IDTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>24</value>
@@ -1082,7 +1082,7 @@
     <value>12, 196</value>
   </data>
   <data name="VWPMO_RIGHT_GROUPDataGridView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1121, 196</value>
+    <value>1259, 179</value>
   </data>
   <data name="VWPMO_RIGHT_GROUPDataGridView.TabIndex" type="System.Int32, mscorlib">
     <value>23</value>

app/DD-Record-Organizer/frmRight_Management.vb

@@ -38,8 +38,8 @@ Public Class frmRight_Management
         Try
             Me.TBWH_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
             Me.TBWH_USER_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBWH_USER_GROUPS)
-            Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
-            Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
+            'Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
+            'Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
             Me.TBDD_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
             Me.TBDD_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBDD_GROUPS)
             Me.TBDD_USERTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString

app/DD-Record-Organizer/frmStructureNodeConfig.resx

@@ -263,7 +263,7 @@
   </data>
   <data name="Label3.Text" xml:space="preserve">
     <value>Ein hier definierter Knoten dient "lediglich" zur Layoutstruktur und stellt noch keinen Knoten in der Sichtnavigation dar.
-Knoten entstehen entweder durch eine hinterlegte Businesslogik oder durch manuelle Anlage durch den benutzer, wenn der Knoten ein manueller Knoten (Leel = 1000) ist.</value>
+Knoten entstehen entweder durch eine hinterlegte Businesslogik oder durch manuelle Anlage durch den benutzer, wenn der Knoten ein manueller Knoten (Level = 1000) ist.</value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>192</value>

app/DD-Record-Organizer/frmViewsUser.vb

@@ -16,8 +16,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
                 Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
                 newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
                 newUserRow.Username = row.Item("USERNAME")
-                newUserRow.Surname = row.Item("NAME")
-                newUserRow.Prename = row.Item("PRENAME")
+                newUserRow.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
+                newUserRow.Prename = If(IsDBNull(row("PRENAME")), "", row("PRENAME").ToString())
                 Try
                     newUserRow.Email = row.Item("EMAIL")
                 Catch ex As Exception
@@ -35,8 +35,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
                 For Each row As DataRow In DT_USERS_CONFIGURED.Rows
                     Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
                     newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
-                    newUserRow.Surname = row.Item("NAME")
-                    newUserRow.Prename = row.Item("PRENAME")
+                    newUserRow.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
+                    newUserRow.Prename = If(IsDBNull(row("PRENAME")), "", row("PRENAME").ToString())
                     newUserRow.Username = row.Item("USERNAME")
                     Try
                         newUserRow.Email = row.Item("EMAIL")

app/DD-Record-Organizer/frmWM_CreateVersion.vb

@@ -13,7 +13,7 @@ Public Class frmWM_CreateVersion
             'Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
             'Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
             'MYDB_ECM.ExecuteNonQuery(oInsert)
-            Dim sql = $"SELECT DocID from VWPMO_DOC_SYNC Where FULL_FILENAME = '{ClassFileResult.DocumentPath}'"
+            Dim sql = $"SELECT DocID from VWPMO_DOC_SYNC Where dwParentID = {ClassFileResult.ParentID} and Filename = '{ClassFileResult.FileName}'"
             Dim VERSION = MYDB_ECM.GetScalarValue(sql)
             If Not IsNothing(VERSION) Then
                 VERSION = VERSION + 1

app/DD-Record-Organizer/frmWM_IndexFile.resx

@@ -294,6 +294,9 @@
   <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
     <value>8</value>
   </data>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>891, 17</value>
+  </metadata>
   <data name="cmbDokumentart.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI Semibold, 9.75pt, style=Bold</value>
   </data>
@@ -306,9 +309,6 @@
   <data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
   </data>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>891, 17</value>
-  </metadata>
   <data name="cmbDokumentart.ToolTip" xml:space="preserve">
     <value>Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert</value>
   </data>
@@ -390,6 +390,57 @@
   <data name="&gt;&gt;OBJECT_TYPETextBox.ZOrder" xml:space="preserve">
     <value>5</value>
   </data>
+  <data name="&gt;&gt;PATHTextBox.Name" xml:space="preserve">
+    <value>PATHTextBox</value>
+  </data>
+  <data name="&gt;&gt;PATHTextBox.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;PATHTextBox.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;PATHTextBox.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;DOCTYPE_IDTextBox.Name" xml:space="preserve">
+    <value>DOCTYPE_IDTextBox</value>
+  </data>
+  <data name="&gt;&gt;DOCTYPE_IDTextBox.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;DOCTYPE_IDTextBox.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt, style=Italic</value>
+  </data>
+  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>15, 117</value>
+  </data>
+  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>560, 80</value>
+  </data>
+  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
+    <value>7</value>
+  </data>
+  <data name="GroupBox1.Text" xml:space="preserve">
+    <value>Gewählte Indexierungsdaten - Automatik:</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
+    <value>5</value>
+  </data>
   <data name="PATHTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Left, Right</value>
   </data>
@@ -438,33 +489,6 @@
   <data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
-  <data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt, style=Italic</value>
-  </data>
-  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>15, 117</value>
-  </data>
-  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>560, 80</value>
-  </data>
-  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
-    <value>7</value>
-  </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
-    <value>Gewählte Indexierungsdaten - Automatik:</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
-    <value>5</value>
-  </data>
   <data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Bottom, Left</value>
   </data>
@@ -478,7 +502,7 @@
     <value>24, 598</value>
   </data>
   <data name="chkdelete_origin.Size" type="System.Drawing.Size, System.Drawing">
-    <value>178, 20</value>
+    <value>177, 20</value>
   </data>
   <data name="chkdelete_origin.TabIndex" type="System.Int32, mscorlib">
     <value>8</value>
@@ -486,6 +510,9 @@
   <data name="chkdelete_origin.Text" xml:space="preserve">
     <value>Lösche Ursprungsdatei</value>
   </data>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>891, 17</value>
+  </metadata>
   <data name="chkdelete_origin.ToolTip" xml:space="preserve">
     <value>Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eingabe gespeichert</value>
   </data>
@@ -514,7 +541,7 @@
     <value>24, 624</value>
   </data>
   <data name="chkMultiIndexer.Size" type="System.Drawing.Size, System.Drawing">
-    <value>520, 20</value>
+    <value>519, 20</value>
   </data>
   <data name="chkMultiIndexer.TabIndex" type="System.Int32, mscorlib">
     <value>9</value>

app/OrgFlow.sln

@@ -13,18 +13,23 @@ Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		CD_ROM|Any CPU = CD_ROM|Any CPU
 		CD_ROM|Mixed Platforms = CD_ROM|Mixed Platforms
+		CD_ROM|x64 = CD_ROM|x64
 		CD_ROM|x86 = CD_ROM|x86
 		Debug|Any CPU = Debug|Any CPU
 		Debug|Mixed Platforms = Debug|Mixed Platforms
+		Debug|x64 = Debug|x64
 		Debug|x86 = Debug|x86
 		DVD-5|Any CPU = DVD-5|Any CPU
 		DVD-5|Mixed Platforms = DVD-5|Mixed Platforms
+		DVD-5|x64 = DVD-5|x64
 		DVD-5|x86 = DVD-5|x86
 		Release|Any CPU = Release|Any CPU
 		Release|Mixed Platforms = Release|Mixed Platforms
+		Release|x64 = Release|x64
 		Release|x86 = Release|x86
 		SingleImage|Any CPU = SingleImage|Any CPU
 		SingleImage|Mixed Platforms = SingleImage|Mixed Platforms
+		SingleImage|x64 = SingleImage|x64
 		SingleImage|x86 = SingleImage|x86
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
@@ -32,78 +37,108 @@ Global
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|x64.ActiveCfg = Release|x64
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|x64.Build.0 = Release|x64
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|x64.Build.0 = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|x64.ActiveCfg = Release|x64
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|x64.Build.0 = Release|x64
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.DVD-5|x86.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Any CPU.Build.0 = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|x64.ActiveCfg = Release|x64
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|x64.Build.0 = Release|x64
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.Release|x86.ActiveCfg = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Any CPU.Build.0 = Release|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|x64.ActiveCfg = Release|x64
+		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|x64.Build.0 = Release|x64
 		{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|x86.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|x64.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|x64.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|x86.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|x64.Build.0 = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|x64.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|x64.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|x86.ActiveCfg = Debug|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Any CPU.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|x64.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|x64.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|x86.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Any CPU.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|x64.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|x64.Build.0 = Release|Any CPU
 		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|x86.ActiveCfg = Release|Any CPU
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Any CPU.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Any CPU.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|x64.ActiveCfg = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|x64.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|x86.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|x86.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|Any CPU.ActiveCfg = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|x64.ActiveCfg = Debug|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|x64.Build.0 = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|x86.ActiveCfg = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|x86.Build.0 = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Any CPU.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Any CPU.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|x64.ActiveCfg = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|x64.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|x86.ActiveCfg = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|x86.Build.0 = Debug|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|Any CPU.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|Mixed Platforms.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|Mixed Platforms.Build.0 = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|x64.ActiveCfg = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|x64.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|x86.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|x86.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Any CPU.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Any CPU.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Mixed Platforms.Build.0 = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|x64.ActiveCfg = Release|x86
+		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|x64.Build.0 = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|x86.ActiveCfg = Release|x86
 		{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|x86.Build.0 = Release|x86
 	EndGlobalSection

app/Setup_NoUpdaterVS19/Product.wxs

@@ -135,17 +135,24 @@
 			<Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293">
 				<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll"  KeyPath="no" />
 				<File Id="DD_Rights" Name="DD_Rights.dll"  KeyPath="no" />
-				<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDWindream" Name="DigitalData.Modules.Windream.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDConfig" Name="DigitalData.Modules.Config.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDBase" Name="DigitalData.Modules.Base.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="Messaging" Name="DigitalData.Modules.Messaging.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.GUIs.Common" Name="DigitalData.GUIs.Common.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Logging" Name="DigitalData.Modules.Logging.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Database" Name="DigitalData.Modules.Database.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Windream" Name="DigitalData.Modules.Windream.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.Patterns" Name="DigitalData.Modules.Patterns.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.Config" Name="DigitalData.Modules.Config.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Base" Name="DigitalData.Modules.Base.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Encryption" Name="DigitalData.Modules.Encryption.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Controls.DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Messaging" Name="DigitalData.Modules.Messaging.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.ZooFlow" Name="DigitalData.Modules.ZooFlow.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.Windows" Name="DigitalData.Modules.Windows.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.Filesystem" Name="DigitalData.Modules.Filesystem.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.EDMI.API" Name="DigitalData.Modules.EDMI.API.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Controls.LookupGrid.API" Name="DigitalData.Controls.LookupGrid.dll"  KeyPath="no" Checksum="yes"/>
 			</Component>
 
-			<!-- DD Bibliotheken -->
+			<!-- Basic Libs -->
 			<Component Id="BasicLibs" Guid="37238CB0-6DC3-4B1B-9438-52FA7D478897">
 				<File Id="OfficeLib" Name="Office.dll" Source="C:\Windows\assembly\GAC_MSIL\Office\15.0.0.0__71e9bce111e9429c\Office.dll" KeyPath="yes" />
 				<File Id="Microsoft.Office.Interop.Outlook" Name="Microsoft.Office.Interop.Outlook.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll" KeyPath="no" />
@@ -163,7 +170,7 @@
 				<File Id="MailLicense.xml" Name="MailLicense.xml"  KeyPath="no" />
 			</Component>
 			
-			<!-- MAIL.NET Bibliothek -->
+			<!-- ERPConnect35 Bibliothek -->
 			<Component Id="ERPConnectLibs" Guid="9AC1DD00-6225-47DD-A142-1EB462CD5240">
 				<File Id="ERPConnect35" Name="ERPConnect35.dll"  KeyPath="yes" />
 			</Component>
@@ -173,28 +180,53 @@
 				<File Id="NLog" Name="NLog.dll"  KeyPath="yes" Checksum="yes"/>
 			</Component>
 			
-			<!-- GDPicture -->
+			<!-- GDPicture und notwendige Lizenzen -->
 			<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
         <File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
+        <File Id="GdPicture.NET.14.CAD" Name="GdPicture.NET.14.CAD.dll" />
+        <File Id="GdPicture.NET.14.CAD.DWG" Name="GdPicture.NET.14.CAD.DWG.dll" />
         <File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
         <File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" />
         <File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
         <File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
         <File Id="GdPicture.NET.14.Imaging.Rendering.Skia" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
-        <File Id="GdPicture.NET.14..Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
+        <File Id="GdPicture.NET.14.Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
         <File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.dll" />
+        <File Id="GdPicture.NET.14.Imaging.ML.64" Name="GdPicture.NET.14.Imaging.ML.64.dll" />
+        <File Id="GdPicture.NET.14.Imaging.ML" Name="GdPicture.NET.14.Imaging.ML.dll" />
+        <File Id="GdPicture.NET.14.Imaging.Formats.Conversion" Name="GdPicture.NET.14.Imaging.Formats.Conversion.dll" />
         <File Id="GdPicture.NET.14.Common" Name="GdPicture.NET.14.Common.dll" />
         <File Id="GdPicture.NET.14.Imaging.Rendering" Name="GdPicture.NET.14.Imaging.Rendering.dll" />
         <File Id="GdPicture.NET.14.Document" Name="GdPicture.NET.14.Document.dll" />
         <File Id="GdPicture.NET.14.PDF" Name="GdPicture.NET.14.PDF.dll" />
         <File Id="GdPicture.NET.14.Imaging.Formats" Name="GdPicture.NET.14.Imaging.Formats.dll" />
         <File Id="GdPicture.NET.14.RTF" Name="GdPicture.NET.14.RTF.dll" />
+         <File Id="GdPicture.NET.14.SVG" Name="GdPicture.NET.14.SVG.dll" />
         <File Id="GdPicture.NET.14.OpenDocument" Name="GdPicture.NET.14.OpenDocument.dll" />
         <File Id="GdPicture.NET.14.OpenXML" Name="GdPicture.NET.14.OpenXML.dll" />
         <File Id="GdPicture.NET.14.Email" Name="GdPicture.NET.14.Email.dll" />
         <File Id="GdPicture.NET.14.HTML" Name="GdPicture.NET.14.HTML.dll" />
-        <File Id="System.ValueTuple.dll" Name="System.ValueTuple.dll" />
-			</Component>
+        <File Id="GdPicture.NET.14.MSOfficeBinary" Name="GdPicture.NET.14.MSOfficeBinary.dll"/>
+        <File Id="BouncyCastle.Cryptography" Name="BouncyCastle.Cryptography.dll"/>
+        <File Id="DocumentFormat.OpenXml" Name="DocumentFormat.OpenXml.dll" />
+        <File Id="DocumentFormat.OpenXml.Framework" Name="DocumentFormat.OpenXml.Framework.dll" />
+        <File Id="Microsoft.Bcl.AsyncInterfaces" Name="Microsoft.Bcl.AsyncInterfaces.dll" />
+        <File Id="OpenMcdf" Name="OpenMcdf.dll" />
+        <File Id="protobufnet.Core" Name="protobuf-net.Core.dll" />
+        <File Id="protobufnet" Name="protobuf-net.dll" />
+        <File Id="RtfPipe" Name="RtfPipe.dll" />
+        <File Id="System.Buffers" Name="System.Buffers.dll" />
+        <File Id="System.CodeDom" Name="System.CodeDom.dll" />
+        <File Id="System.Collections.Immutable" Name="System.Collections.Immutable.dll" />
+        <File Id="System.IO.Packaging" Name="System.IO.Packaging.dll" />
+        <File Id="System.Memory" Name="System.Memory.dll" />
+        <File Id="System.Numerics.Vectors" Name="System.Numerics.Vectors.dll" />
+        <File Id="System.Runtime.CompilerServices.Unsafe" Name="System.Runtime.CompilerServices.Unsafe.dll" />
+        <File Id="System.Security.Cryptography.Pkcs" Name="System.Security.Cryptography.Pkcs.dll" />
+        <File Id="System.Text.Encodings.Web" Name="System.Text.Encodings.Web.dll" />
+        <File Id="System.Threading.Tasks.Extensions" Name="System.Threading.Tasks.Extensions.dll" />
+        <File Id="System.ValueTuple" Name="System.ValueTuple.dll" />
+      </Component>
 
 			<!-- DEVEXPRESS Bibliotheken -->
 			<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">