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/ClassDOC_SEARCH.vb

@@ -516,7 +516,7 @@ Public Class ClassDOC_SEARCH
 
     Public Shared Function CREATE_DOC_RELATED_LINKS(DOC_ID As Integer, RECORD_ID As Integer)
         Try
-            Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
+            Dim execute = String.Format("EXEC PROF_DOC_CREATE_UPDATE {0},{1},'{2}','{3}'", DOC_ID, RECORD_ID, USER_USERNAME, CURRENT_FILE_HASH)
             If MYDB_ECM.ExecuteNonQuery(execute) = True Then
                 Return True
             Else
@@ -569,12 +569,12 @@ Public Class ClassDOC_SEARCH
                 Return "R"
             End If
             Dim sql = String.Format("SELECT dwAccessRight FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwObjectID = {0} and dwUserOrGroupID = {1}", DOC_ID, USERID_FK_INT_ECM)
-            Dim result = MYDB_ECM.GetScalarValue(sql)
+            Dim odwAccessRight = MYDB_ECM.GetScalarValue(sql)
-            If IsNothing(result) Or IsDBNull(result) Then
+            If IsNothing(odwAccessRight) Or IsDBNull(odwAccessRight) Then
                 Return Nothing
             End If
-            LOGGER.Debug($"dwAccesRight for DocID [{DOC_ID}] is [{result}]")
+            LOGGER.Debug($"dwAccesRight for DocID [{DOC_ID}] is [{odwAccessRight}]")
-            Select Case result
+            Select Case odwAccessRight
                 Case 1
                     If USER_IS_ADMIN = False Then
                         Return "R"
@@ -592,8 +592,16 @@ Public Class ClassDOC_SEARCH
                 Case 263
                     Return "RWA"
                 Case WM_RWA
+                    LOGGER.Debug($"odwAccessRight is equal WM_RWA [{WM_RWA}]")
+                    Return "RWA"
+                Case WM_RWA1
+                    LOGGER.Debug($"odwAccessRight is equal WM_RWA1 [{WM_RWA1}]")
+                    Return "RWA"
+                Case WM_RWA2
+                    LOGGER.Debug($"odwAccessRight is equal WM_RWA2 [{WM_RWA2}]")
                     Return "RWA"
                 Case Else
+
                     Return "R"
             End Select
 

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 oSQL = $"Select * FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
-            Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
+            Dim oDTRow As DataTable = MYDB_ECM.GetDatatable(oSQL)
-            Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
-            Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
 
+            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 oDocID = gridView.GetRowCellValue(row, "DocID")
-                        Dim DOC_ID = gridView.GetRowCellValue(row, "DocID")
+                    If IsNothing(oDocID) Then
-                        Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + DOC_ID.ToString, "")
+                        Exit Sub
-                        If CHeckDT.Rows.Count = 1 Then
+                    End If
-                            SELECTED_DOC_ID = DOC_ID
+                    Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + oDocID.ToString, "")
-                            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
-
                     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 DT_DETAIL_VALUES As DataTable = MYDB_ECM.GetDatatable(DT_DETAILS_SQL)
-            Dim docId As Integer
+            Dim oDocID As Integer
-            Dim configId 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")
+                        oDocID = oRow.Item("DocID")
-                        configId = RESULT_CONFIG_IDS.Item(col.ColumnName)
+                        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
+            GVDoc_Values.OptionsView.ShowGroupPanel = False
-            grvwDetail.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
+            GVDoc_Values.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
-            grvwDetail.OptionsView.EnableAppearanceEvenRow = True
+            GVDoc_Values.OptionsView.EnableAppearanceEvenRow = True
-            grvwDetail.Appearance.EvenRow.BackColor = Color.Orange
+            GVDoc_Values.Appearance.EvenRow.BackColor = Color.Orange
-            grvwDetail.Appearance.HeaderPanel.BackColor = Color.Orange
+            GVDoc_Values.Appearance.HeaderPanel.BackColor = Color.Orange
-            grvwDetail.Appearance.HeaderPanel.Options.UseBackColor = True
+            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 pDocGridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded
-        AddHandler gridView.CustomColumnDisplayText, AddressOf gridView_CustomColumnDisplayText
+        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
+        pDocGridView.Columns.Item("ICON").MaxWidth = 24
-        gridView.Columns.Item("ICON").MinWidth = 24
+        pDocGridView.Columns.Item("ICON").MinWidth = 24
-        gridView.Columns.Item("FULLPATH").Visible = False
+        pDocGridView.Columns.Item("FULLPATH").Visible = False
-        gridView.Columns.Item("OBJECTTYPE").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
+            pDocGridView.OptionsView.BestFitMaxRowCount = -1
-            gridView.BestFitColumns(True)
+            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 & "'"
+            ' WICHTIG: DB-Löschung NICHT im UI-Thread erzwingen.
-            MYDB_ECM.ExecuteNonQuery(sql)
+            ' => 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
+            '1) Klassische Outlook-Attachments: Descriptor + Contents
-                LOGGER.Debug("Simple File Drop")
+            If (hasOutlookUnicode OrElse hasOutlookAnsi) AndAlso hasOutlookContents Then
-                Dim MyFiles() As String
+                ' ... dein bestehender Descriptor/Contents-Code ...
-                Dim i As Integer
+                ' Return True wenn erfolgreich
-                ' 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
             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()
+                    Dim oApp As Outlook.Application = Nothing
-                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)
                     Try
-                        myobj.SaveAs(strFile)
+                        oApp = New Outlook.Application()
-                    Catch ex As Exception
+                    Catch ex As System.Exception
-                        MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                        MsgBox("Fehler beim Initialisieren der Outlook-API:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Return False
+                        GoTo CheckFileDrop
                     End Try
 
-                    ReDim Preserve files_dropped(i)
+                    Dim explorer = oApp.ActiveExplorer
-                    files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile
+                    If explorer IsNot Nothing AndAlso explorer.Selection IsNot Nothing AndAlso explorer.Selection.Count > 0 Then
-                Next
+                        LOGGER?.Debug("Drop of msg (Outlook Explorer Selection)")
-                Return True
+                        For i As Integer = 1 To explorer.Selection.Count
-                'Drop eines Outlook Attachments
+                            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)
+        LOGGER?.Warn("Drop_File: Kein extrahierbarer Inhalt. Bitte Attachment aus der Nachrichtenliste ziehen oder zunächst speichern.")
-            Console.WriteLine(Wert)
+        Return False
-            ReDim Preserve files_dropped(0)
-            files_dropped(0) = "@SCAN@" & Wert
-            Return True
-        End If
 
 
     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
+            Dim hasOutlookUnicode As Boolean = e.Data.GetDataPresent("FileGroupDescriptorW")
-                LOGGER.Debug("DragEnter ... SimpleFileDrop")
+            Dim hasOutlookAnsi As Boolean = e.Data.GetDataPresent("FileGroupDescriptor")
-                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
+            Dim hasOutlookDescriptor As Boolean = hasOutlookUnicode OrElse hasOutlookAnsi
-            ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
+
+            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 ... Outlook/WebView2 erkannt (Descriptor/Chromium/FileNameW)")
-                LOGGER.Debug("DragEnter ... Attachment from Outlook")
+            ElseIf hasFileDrop Then
-            ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
-                'handle a message dragged from Outlook
                 e.Effect = DragDropEffects.Copy
-                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
+                LOGGER?.Debug("DragEnter ... SimpleFileDrop")
-                LOGGER.Debug("DragEnter ... OutlookMessage")
             Else
-                'otherwise, do not handle
+                e.Effect = DragDropEffects.None
-                e.Effect = DragDropEffects.Copy
+                LOGGER?.Debug("DragEnter ... Other FileFormat")
-                'frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
-                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/ClassFolderWatcher.vb

@@ -87,7 +87,9 @@ Public Class ClassFolderWatcher
             'Die Datei übergeben
             LOGGER.Debug("OnCreated-File:" & e.FullPath)
             If FileExistsinDropTable(CURRENT_FILENAME) = False Then
-                ClassHelper.Insert_USER_File(e.FullPath, handleType)
+                If ClassHelper.Insert_USER_File(e.FullPath, handleType) = False Then
+                    Exit Sub
+                End If
             Else
                 Console.WriteLine("File existiert bereits")
             End If

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 Not IsNothing(WMpath) Then
-            If WMpath.StartsWith("W:") Then
+                Dim ochanged As Boolean = False
-                WMpath = WMpath.Replace("W:", WMPATH_PREFIX)
+                If WMpath.StartsWith("W:") Then
-                ochanged = True
+                    WMpath = WMpath.Replace("W:", WMPATH_PREFIX)
-            ElseIf WMpath.StartsWith("\") Then
-                If WMpath.StartsWith(WMPATH_PREFIX) = False Then
-                    WMpath = WMPATH_PREFIX & WMpath
                     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)
+    Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String, pParentID 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)
         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)
+                ' ###### Startinfo vorbereiten ######
-                oMyProcess.StartInfo.FileName = BW_DocPath
+                Dim startInfo As New ProcessStartInfo()
-                oMyProcess.StartInfo.UseShellExecute = True
+
-                oMyProcess.StartInfo.RedirectStandardOutput = False
+                If oOverrideRunPath <> "" Then
-                oMyProcess.Start()
+                    startInfo.FileName = oOverrideRunPath
-                Dim ProcID = oMyProcess.GetCurrentProcess.Id
+                    startInfo.Arguments = $"""{BW_DocPath}"""
-                oMyProcess.WaitForExit()
+                    LOGGER.Debug($"Opening document [{BW_DocPath}] using override application [{oOverrideRunPath}].")
-                oExtension = Path.GetExtension(BW_DocPath).ToLower
+                Else
-                LOGGER.Debug($"Checking oExtension [{oExtension}]...")
+                    startInfo.FileName = BW_DocPath
-                If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
+                    LOGGER.Debug($"Opening document [{BW_DocPath}] with system default application.")
-                    oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
+                End If
-                    Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
+
-                    If Not IsNothing(odwVersionId) Then
+                startInfo.UseShellExecute = True
-                        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}')"
+                startInfo.RedirectStandardOutput = False
-                        MYDB_ECM.ExecuteNonQuery(oInsert)
+                If oOverrideRunPath <> "" Then
-                    End If
+                    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)
+                ' Fehler im Prozessstart oder während des Wartens
-                MsgBox("Error in OpenFile: " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, MsgBoxStyle.Exclamation)
+                LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
-                Exit Sub
+                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
@@ -446,13 +548,42 @@ Public Class ClassHelper
             Return False
         End Try
     End Function
-    Public Shared Function Insert_USER_File(filename As String, handleType As String)
+    Public Shared Function Insert_USER_File(pFilename As String, handleType As String)
         Try
-            Dim filename_only As String = Path.GetFileName(filename)
+            Dim filename_only As String = Path.GetFileName(pFilename)
-            Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, USER_USERNAME, handleType, filename_only)
+            CURRENT_FILE_HASH = ""
+
+            If File.Exists(pFilename) Then
+                If (pFilename.ToUpper.EndsWith(".MSG") Or pFilename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+                    CURRENT_FILE_HASH = FILESYSTEM.GetChecksumFromString(pFilename)
+                Else
+                    CURRENT_FILE_HASH = FILESYSTEM.GetChecksum(pFilename)
+                End If
+            End If
+            Dim oSQL = $"SELECT ADDED_WHO, FORMAT(ADDED_WHEN, 'dd-MM-yyyy HH:mm') AS ADDED_WHEN_STRING FROM TBPMO_DOCRESULT_LIST WHERE FILE_HASH = '{CURRENT_FILE_HASH}' ORDER BY ADDED_WHEN DESC"
+            LOGGER.Debug($"Inserting File - hash is [{CURRENT_FILE_HASH}]")
+            Dim oDTCHECK As DataTable = MYDB_ECM.GetDatatable(oSQL)
+            If Not IsNothing(oDTCHECK) Then
+                If oDTCHECK.Rows.Count >= 1 Then
+                    LOGGER.Info($"We got a file with the same hash [{CURRENT_FILE_HASH}]")
+                    Dim oUSER = oDTCHECK.Rows(0).Item(0)
+                    Dim oADDED_WHEN = oDTCHECK.Rows(0).Item(1)
+                    Dim oMSG = $"Achtung:" & vbNewLine & "Die Datei wurde bereits nach orgFLOW importiert. Anzahl: " & oDTCHECK.Rows.Count.ToString & vbNewLine &
+                    $"Importiert wann: {oADDED_WHEN}" & vbNewLine &
+                    $"Importiert wer: {oUSER}" & vbNewLine &
+                    "Wollen Sie die Datei dennoch importieren?"
+                    Dim result As MsgBoxResult
+                    result = MessageBox.Show(oMSG, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    If result = MsgBoxResult.No Then
+                        Return False
+                    End If
+                End If
+            End If
+
+            Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", pFilename, USER_USERNAME, handleType, filename_only)
             Return MYDB_ECM.ExecuteNonQuery(ins)
         Catch ex As Exception
-            MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Unexpected Error in Insert file for user (TBPMO_FILES_USER): " & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
     End Function

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)
@@ -103,10 +103,12 @@ Public Class ClassImport_Windream
     End Function
 
     Public Shared Function Name_Generieren(DocTypeID As Integer)
-
+        Dim myLogger As New DigitalData.Modules.Logging.Logger
         Try
+
+            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")
@@ -124,6 +126,7 @@ Public Class ClassImport_Windream
             oWMTARGET_FOLDER = oDT.Rows(0).Item("ZIEL_PFAD")
 
             sql = $"SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID = {CURRENT_FORMVIEW_ID} AND DOCTYPE_ID = {DocTypeID}"
+            myLogger.Debug(sql)
             Dim oDTFW_DOCTYPES As DataTable = MYDB_ECM.GetDatatable(sql)
             Dim oDYNAMIC_FOLDER = oDTFW_DOCTYPES.Rows(0).Item("DYNAMIC_FOLDER")
             Dim oNAME_CONVENTION = oDTFW_DOCTYPES.Rows(0).Item("NAME_CONVENTION")
@@ -144,8 +147,8 @@ Public Class ClassImport_Windream
                 If oDYNAMIC_FOLDER <> String.Empty Then
                     If CREATE_FOLDER_INDEX(oDYNAMIC_FOLDER, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
 
-                        LOGGER.Debug("After CREATE_FOLDER_INDEX - oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
+                        'myLogger.Debug("After CREATE_FOLDER_INDEX - oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
-                        LOGGER.Debug("After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER)
+                        myLogger.Debug("After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER)
 
                         If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then
                             If CURRENT_VARIABLE_FOLDER.StartsWith("\") Then
@@ -156,17 +159,16 @@ Public Class ClassImport_Windream
                             oWMTARGET_FOLDER = CURRENT_VARIABLE_FOLDER
                         End If
 
-                        'End If
-
-                    Else
-                        MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical)
-                        Return False
                     End If
+
+                Else
+                    MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical)
+                    Return False
                 End If
             End If
 
-            LOGGER.Debug("oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
+            myLogger.Debug("oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
-            LOGGER.Debug("CURRENT_SUBFOLDER: " & CURRENT_SUBFOLDER)
+            myLogger.Debug("CURRENT_SUBFOLDER: " & CURRENT_SUBFOLDER)
 
 
             'Untsserordner ja oder nein
@@ -174,26 +176,25 @@ Public Class ClassImport_Windream
                 oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_SUBFOLDER
             End If
             If oWMTARGET_FOLDER.Contains("/") Then
-                LOGGER.Info(String.Format("Targetpath contains /-sign. / will be replaced with _"))
+                myLogger.Info(String.Format("Targetpath contains /-sign. / will be replaced with _"))
                 oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("/", "_")
             End If
 
 
             Try
+                oWMTARGET_FOLDER = WMMOD.GetNormalizedPath(oWMTARGET_FOLDER, 0)
                 If WMMOD.TestFolderExists(oWMTARGET_FOLDER) = False Then
-                    oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("W:", "\\windream\objects")
+                    myLogger.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
-                    oWMTARGET_FOLDER = WMMOD.GetNormalizedPath(oWMTARGET_FOLDER, 0)
-                    LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
 
                     If WMMOD.NewFolder(oWMTARGET_FOLDER) = False Then
-                        LOGGER.Warn(String.Format("Could not create folder-part: {0} - Complete path is: ({1})", oWMTARGET_FOLDER, oWMTARGET_FOLDER.Substring(2)))
+                        myLogger.Warn(String.Format("Could not create folder-part: {0} - Complete path is: ({1})", oWMTARGET_FOLDER, oWMTARGET_FOLDER.Substring(2)))
                         Return False
                     End If
                 End If
 
             Catch ex As Exception
                 If Not ex.Message.Contains("Filename exists!") Then
-                    LOGGER.Warn(String.Format("Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER))
+                    myLogger.Warn(String.Format("Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER))
                     Return False
                 End If
             End Try
@@ -202,15 +203,15 @@ Public Class ClassImport_Windream
             Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
             'Namenkonvention laden
             If IsDBNull(oNAME_CONVENTION) Then
-                LOGGER.Warn("Achtung: Namenskonvention is DBNull")
+                myLogger.Warn("Achtung: Namenskonvention is DBNull")
                 oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
             ElseIf oNAME_CONVENTION = String.Empty Then
-                LOGGER.Warn("Achtung: Namenskonvention is String empty")
+                myLogger.Warn("Achtung: Namenskonvention is String empty")
                 oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
             End If
             'schonmal den gesamten Pfad laden
             Dim oNewWM_Filename As String = oWMTARGET_FOLDER & "\" & oNAME_CONVENTION
-            LOGGER.Debug("oNewWM_Filename: " & oNewWM_Filename)
+            myLogger.Debug("oNewWM_Filename: " & oNewWM_Filename)
 
             ' einen Regulären Ausdruck laden
             Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
@@ -220,7 +221,7 @@ Public Class ClassImport_Windream
             ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
             For Each element As System.Text.RegularExpressions.Match In elemente
 
-                LOGGER.Debug("element in RegeX: " & element.Value)
+                myLogger.Debug("element in RegeX: " & element.Value)
                 Dim oSubstring = element.Value.Substring(2, 1).ToUpper
                 '%CTRL
                 Dim oSubstr = element.Value.Substring(2, 4)
@@ -247,7 +248,7 @@ Public Class ClassImport_Windream
                                         If IsNumeric(INDEX_ID) Then
                                             Dim sql_AUTOindexresult = MYDB_ECM.GetScalarValue("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID)
                                             If IsNothing(sql_AUTOindexresult) Then
-                                                LOGGER.Debug("unexpected: sql_AUTOindexresult is nothing!!")
+                                                myLogger.Debug("unexpected: sql_AUTOindexresult is nothing!!")
                                                 oPatternvalue = ""
                                             Else
                                                 If IsDBNull(sql_AUTOindexresult) Then
@@ -256,8 +257,8 @@ Public Class ClassImport_Windream
                                                     sql_AUTOindexresult = sql_AUTOindexresult.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
                                                     Dim AUTOindexresult = MYDB_ECM.GetScalarValue(sql_AUTOindexresult)
                                                     If IsNothing(AUTOindexresult) Then
-                                                        LOGGER.Warn("ATTENTION: unexpected: AUTOindexresult is nothing!!")
+                                                        myLogger.Warn("ATTENTION: unexpected: AUTOindexresult is nothing!!")
-                                                        LOGGER.Warn("" & sql_AUTOindexresult)
+                                                        myLogger.Warn("" & sql_AUTOindexresult)
                                                         oPatternvalue = ""
                                                     Else
                                                         If IsDBNull(AUTOindexresult) Then
@@ -270,16 +271,16 @@ Public Class ClassImport_Windream
                                                 End If
                                             End If
                                         Else
-                                            LOGGER.Warn("INDEX_ID is not numeric:  " & INDEX_ID.ToString & "- APattern: " & APattern)
+                                            myLogger.Warn("INDEX_ID is not numeric:  " & INDEX_ID.ToString & "- APattern: " & APattern)
                                             oPatternvalue = ""
                                         End If
                                     Else
-                                        LOGGER.Warn("split.Length <> 2 - APattern: " & APattern)
+                                        myLogger.Warn("split.Length <> 2 - APattern: " & APattern)
                                         oPatternvalue = ""
                                     End If
 
                                 ElseIf APattern.Contains("#") Then
-                                    LOGGER.Debug("element [" & APattern & "] filled with Record-Data...: ")
+                                    myLogger.Debug("element [" & APattern & "] filled with Record-Data...: ")
 
                                     Dim split() As String = APattern.Split("#")
                                     If split.Length = 2 Then
@@ -294,7 +295,7 @@ Public Class ClassImport_Windream
                         If oPatternvalue <> String.Empty Then
                             oNewWM_Filename = oNewWM_Filename.Replace(element.Value, oPatternvalue)
                             _NewFileString = oNewWM_Filename
-                            LOGGER.Debug("Actual NEWFILESTRING: " & _NewFileString)
+                            myLogger.Debug("Actual NEWFILESTRING: " & _NewFileString)
                             ' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
                             AnzahlIndexe += 1
                             ' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
@@ -357,7 +358,7 @@ Public Class ClassImport_Windream
                     Case Else
                         If element.Value.Substring(2, 4).ToUpper = "CTRL" Then
                             Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
-                            LOGGER.Debug("element [" & element.Value & "] with Control-Data...: ")
+                            myLogger.Debug("element [" & element.Value & "] with Control-Data...: ")
                             Dim split() As String = APattern.Split("#")
                             If split.Length = 2 Then
                                 Dim CONTROL_ID = split(1)
@@ -370,7 +371,7 @@ Public Class ClassImport_Windream
                             If USER_LANGUAGE <> "de-DE" Then
                                 msg = "In nameconvention an element was defined which could not be replaced." & vbNewLine & "Elementname: " & element.Value.ToUpper
                             End If
-                            LOGGER.Warn(msg)
+                            myLogger.Warn(msg)
                             MsgBox(msg, MsgBoxStyle.Exclamation, "Error in Name Convention:")
                         End If
 
@@ -383,13 +384,13 @@ Public Class ClassImport_Windream
                 'ungültige Zeichen entfernen
                 oNewWM_Filename = ClassHelper.CleanFilename(oNewWM_Filename, "")
                 If oNewWM_Filename.Contains("/") Then
-                    LOGGER.Info(String.Format("DATEINAME contains /-sign. / will be replaced with _"))
+                    myLogger.Info(String.Format("DATEINAME contains /-sign. / will be replaced with _"))
                     oNewWM_Filename = oNewWM_Filename.Replace("/", "_")
                 End If
                 oNewWM_Filename = oNewWM_Filename.Replace("\\", "\")
 
             Catch ex As Exception
-                LOGGER.Warn(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
+                myLogger.Warn(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
                 MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")
                 err = True
             End Try
@@ -410,7 +411,7 @@ Public Class ClassImport_Windream
             End If
 
         Catch ex As Exception
-            LOGGER.Warn(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
+            myLogger.Warn(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
             MsgBox(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try

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

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
@@ -10,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")
@@ -193,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
 
 
@@ -213,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
@@ -221,16 +234,16 @@ Public Class ClassInit
 
             oSql = "SELECT * FROM TBPMO_CONTROL"
             CURRENT_TBPMO_CONTROL = MYDB_ECM.GetDatatable(oSql)
-            oSql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1")
+            oSql = "SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1"
             DT_DOCSEARCH_RESULTLIST_CONFIG = MYDB_ECM.GetDatatable(oSql)
-            oSql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS")
+            oSql = "SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS"
             CURRENT_VARIABLE_CONTROLS = MYDB_ECM.GetDatatable(oSql)
-            oSql = String.Format("SELECT * FROM TBPMO_FORM_VIEW")
+            oSql = "SELECT * FROM TBPMO_FORM_VIEW"
             CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql)
-            oSql = String.Format("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")
+            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
@@ -245,6 +258,8 @@ Public Class ClassInit
             End If
             MYGDPICTURE_LICENSE_KEY = MYDB_ECM.GetGDPictureString()
 
+            FILESYSTEM = New FilesystemEx(LOGCONFIG)
+
 
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -307,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}")
@@ -461,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)
+            LICENSES_USED = CInt(anzahl)
-            LOGGER.Info("User# logged in: " & anzahl.ToString)
+            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
+            If LICENSE_COUNT <= (LICENSES_USED) 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!")
+                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'"
@@ -484,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
+        If svc IsNot Nothing AndAlso SQLString IsNot Nothing Then
-        '    Using Form As New frmSQLEditor()
+            Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, MYDB_ECM) With {
-        '        Form.Value = SQLSTring
+                .SQLCommand = SQLString
-        '        If svc.ShowDialog(Form) = DialogResult.OK Then
+            }
-        '            Dim sql As New SQLValue(Form.Value)
+
-        '            value = sql
+            Dim oResult = oForm2.ShowDialog()
-        '        End If
+            If oResult = DialogResult.OK Then
-        '    End Using
+                Dim oSql As New SQLValue(oForm2.SQLCommand)
-        'End If
+                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/ClassWDRights.vb

@@ -86,9 +86,9 @@ Public Class ClassWDRights
 
             If Not IsNothing(oSession) Then
                 LOGGER.Debug("Session created.")
-                Dim oSql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0},{1}) where USER_OR_GROUP = 'USER'", doc_id, CURRENT_ENTITY_ID)
+                Dim oSql = String.Format("SELECT * FROM [dbo].[FNOF_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'USER'", doc_id)
                 DT_USER_RIGHT = MYDB_ECM.GetDatatable(oSql)
-                oSql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0},{1}) where USER_OR_GROUP = 'GROUP'", doc_id, CURRENT_ENTITY_ID)
+                oSql = String.Format("SELECT * FROM [dbo].[FNOF_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'GROUP'", doc_id)
                 DT_GROUP_RIGHT = MYDB_ECM.GetDatatable(oSql)
                 If IsNothing(DT_USER_RIGHT) Then
                     Dim msg = "Error while receiving rights for DocID"

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 existsSQL As String = "SELECT COALESCE(MAX(GUID),0) FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
-        Dim exists = MYDB_ECM.ExecuteNonQuery(existsSQL)
+        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

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
 
 Module ModuleRuntimeVariables
@@ -61,6 +62,7 @@ Module ModuleRuntimeVariables
     Public CURRENT_CONSTRUCTOR_DETAIL_ID As Integer
     Public CURRENT_FILEID As Integer
     Public CURRENT_FILENAME As String
+    Public CURRENT_FILE_HASH As String = ""
     Public CURRENT_OFFICE_FILE_CHANGED As Boolean = False
     Public CURRENT_NEWFILENAME As String
     Public CURRENT_CONTROL_DOCTYPE_MATCH As String = ""
@@ -86,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)
@@ -115,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
@@ -199,9 +203,11 @@ 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
 
     Public CURRENT_DT_TBPMO_DOC_RECORD_LINK As DataTable
     Public Property MYDB_ECM As MSSQLServer

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.3.0.1")>
+<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")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property UseAppConfigConString() As Boolean
+        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">
+    <Setting Name="UseAppConfig" Type="System.Boolean" Scope="Application">
-      <Value Profile="(Default)">True</Value>
+      <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,11 +1,13 @@
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.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.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.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.XtraGrid.GridControl, DevExpress.XtraGrid.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.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.XtraTreeList.TreeList, DevExpress.XtraTreeList.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.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.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>
@@ -208,70 +232,6 @@
     <Reference Include="ERPConnect35">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect35.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.CAD, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Common, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Document, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Email, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.HTML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.PDF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.RTF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.SVG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14.wia.gateway, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6973b5c22dcf45f7, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </Reference>
     <Reference Include="Independentsoft.Msg">
       <HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>
     </Reference>
@@ -291,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>
@@ -1067,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>
@@ -1079,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>
@@ -1393,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>
@@ -1802,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.CheckBox_ForceTemporaryMode = New System.Windows.Forms.CheckBox()
-        Me.txtCreateWMFolder = New System.Windows.Forms.TextBox()
-        Me.Label6 = New System.Windows.Forms.Label()
         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
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        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")
+        resources.ApplyResources(Me.CheckBox_ForceTemporaryMode, "CheckBox_ForceTemporaryMode")
-        Me.Button4.Name = "Button4"
+        Me.CheckBox_ForceTemporaryMode.Name = "CheckBox_ForceTemporaryMode"
-        Me.Button4.UseVisualStyleBackColor = True
+        Me.CheckBox_ForceTemporaryMode.UseVisualStyleBackColor = True
-        '
-        'txtCreateWMFolder
-        '
-        resources.ApplyResources(Me.txtCreateWMFolder, "txtCreateWMFolder")
-        Me.txtCreateWMFolder.Name = "txtCreateWMFolder"
-        '
-        'Label6
-        '
-        resources.ApplyResources(Me.Label6, "Label6")
-        Me.Label6.Name = "Label6"
         '
         '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
@@ -4620,7 +4620,9 @@ Public Class frmConstructor_Main
                                 MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
                                 Continue For
                             End If
-                            ClassHelper.Insert_USER_File(CURRENT_WORKFILE, DropType)
+                            If ClassHelper.Insert_USER_File(CURRENT_WORKFILE, DropType) = False Then
+                                Exit Sub
+                            End If
                         End If
                     End If
                 Next
@@ -4835,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
 
 
@@ -4976,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
+            If JUMP_ID > 0 Then
-                Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
+                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
@@ -4989,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
+            If JUMP_ID <> 0 Then
-                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden")
+                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
@@ -5008,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
 
@@ -5024,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
@@ -5805,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
@@ -6412,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
 
 
@@ -6566,10 +6568,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
                     My.Computer.FileSystem.RenameFile(OldName, NewName)
                     LOGGER.Info($"Renaming FileSystem done!")
                     Cursor = Cursors.WaitCursor
-                    Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
+                    Dim oEXEC As String = $"EXEC PROF_DOC_CREATE_UPDATE {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}',''"
                     If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
-                        LOGGER.Info($"Exec PRPMO_DOC_CREATE_NEW_DOC done!")
+                        LOGGER.Info($"Exec PROF_DOC_CREATE_UPDATE done - rename abgeschlossen")
-
                     End If
 
                     Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
@@ -6773,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
 
@@ -7226,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
@@ -7244,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

@@ -32,13 +32,13 @@ Partial Class frmDocRecordLink
         Me.btnloadData2Entity = New System.Windows.Forms.Button()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnitmLinkRecords = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnitmsaveLayout = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem3 = 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.RibbonPageGroup2 = 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()
@@ -111,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.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3})
+        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]
@@ -128,55 +128,63 @@ Partial Class frmDocRecordLink
         Me.bsiInfo.Id = 1
         Me.bsiInfo.Name = "bsiInfo"
         '
-        'BarButtonItem1
+        'bbtnitmLinkRecords
         '
-        Me.BarButtonItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
+        Me.bbtnitmLinkRecords.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
-        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        resources.ApplyResources(Me.bbtnitmLinkRecords, "bbtnitmLinkRecords")
-        Me.BarButtonItem1.Id = 2
+        Me.bbtnitmLinkRecords.Id = 2
-        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmLinkRecords.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmLinkRecords.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItem1.Name = "BarButtonItem1"
+        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"
         '
-        'BarButtonItem2
+        'bbtnitmsaveLayout
         '
-        resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
+        resources.ApplyResources(Me.bbtnitmsaveLayout, "bbtnitmsaveLayout")
-        Me.BarButtonItem2.Id = 3
+        Me.bbtnitmsaveLayout.Id = 3
-        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmsaveLayout.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmsaveLayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItem2.Name = "BarButtonItem2"
+        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"
         '
-        'BarButtonItem3
+        'bbtnitmresetlayout
         '
-        resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
+        resources.ApplyResources(Me.bbtnitmresetlayout, "bbtnitmresetlayout")
-        Me.BarButtonItem3.Id = 4
+        Me.bbtnitmresetlayout.Id = 4
-        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmresetlayout.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmresetlayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItem3.Name = "BarButtonItem3"
+        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.RibbonPageGroup2, 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
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmsaveLayout)
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmresetlayout)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
         '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        '
-        'RibbonPageGroup3
-        '
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
-        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
@@ -235,11 +243,11 @@ Partial Class frmDocRecordLink
     Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
-    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtnitmLinkRecords As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtnitmsaveLayout As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    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

@@ -288,11 +288,11 @@
   <data name="bsiInfo.Caption" xml:space="preserve">
     <value>Waiting for Record-Selection...</value>
   </data>
-  <data name="BarButtonItem1.Caption" xml:space="preserve">
+  <data name="bbtnitmLinkRecords.Caption" xml:space="preserve">
     <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,10 +313,13 @@
         Lz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <data name="BarButtonItem2.Caption" xml:space="preserve">
+  <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
@@ -336,10 +339,13 @@
         bGxvdyIgLz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <data name="BarButtonItem3.Caption" xml:space="preserve">
+  <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
@@ -362,6 +368,9 @@
         LjR6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
 </value>
   </data>
+  <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>
@@ -369,13 +378,13 @@
     <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>
@@ -401,12 +410,12 @@
   <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
     <value>9</value>
   </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>Layout</value>
-  </data>
   <data name="RibbonPageGroup3.Text" xml:space="preserve">
     <value>Funktionen</value>
   </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>Layout</value>
+  </data>
   <data name="RibbonPage2.Text" xml:space="preserve">
     <value>RibbonPage2</value>
   </data>
@@ -1708,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>
@@ -1722,48 +1731,48 @@
   <data name="&gt;&gt;bsiInfo.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;BarButtonItem1.Name" xml:space="preserve">
+  <data name="&gt;&gt;bbtnitmLinkRecords.Name" xml:space="preserve">
-    <value>BarButtonItem1</value>
+    <value>bbtnitmLinkRecords</value>
   </data>
-  <data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve">
+  <data name="&gt;&gt;bbtnitmLinkRecords.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">
+  <data name="&gt;&gt;bbtnitmsaveLayout.Name" xml:space="preserve">
-    <value>BarButtonItem2</value>
+    <value>bbtnitmsaveLayout</value>
   </data>
-  <data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
+  <data name="&gt;&gt;bbtnitmsaveLayout.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;BarButtonItem3.Name" xml:space="preserve">
+  <data name="&gt;&gt;bbtnitmresetlayout.Name" xml:space="preserve">
-    <value>BarButtonItem3</value>
+    <value>bbtnitmresetlayout</value>
   </data>
-  <data name="&gt;&gt;BarButtonItem3.Type" xml:space="preserve">
+  <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;RibbonPageGroup2.Name" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
-  </data>
-  <data name="&gt;&gt;RibbonPageGroup2.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
+        'Try
-            ' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
+        '    DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
-            ' DT_RECORDS.Columns("already linked").DefaultValue = False
+        '    DT_RECORDS.Columns("already linked").DefaultValue = False
-        Catch ex As Exception
+        '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()
+            'grvwGrid.PopulateColumns()
-            dgEntityRecords.RefreshDataSource()
+            'dgEntityRecords.RefreshDataSource()
-            grvwGrid.OptionsView.ColumnAutoWidth = False
+            'grvwGrid.OptionsView.ColumnAutoWidth = False
-            grvwGrid.Columns(0).Fixed = FixedStyle.Left
+            'grvwGrid.Columns(0).Fixed = FixedStyle.Left
-            grvwGrid.BestFitColumns()
+            '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
+            If myDocuments.Count = 1 Then
-                txtFileInfo.Text = Documents.First.DocPath
+                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,32 +258,39 @@ 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()
+        Else
+            bsiInfo.Caption = "Bitte wöhlen Sie eine Sicht aus! " + Now.ToShortTimeString
         End If
-        Load_DocGrid_Layout()
+
         Me.Cursor = Cursors.Default
     End Sub
     Private Function ReturnDataforEntity(oEntityID As Integer) As DataTable
         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
 
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLinkRecords.ItemClick
         If WMMOD.SessionLoggedin = False Then
             MsgBox("No session to windream created! Check Your connection!", MsgBoxStyle.Critical)
             Exit Sub
@@ -293,33 +298,25 @@ Public Class frmDocRecordLink
 
         Dim selectedRows As Integer() = grvwGrid.GetSelectedRows()
         Dim oLinkCount As Integer = 0
+        LOGGER.Info("Start der Verknüpfung - Es wurden [{0}] Datensätze ausgewählt!", selectedRows.Count)
         For Each rowhandle As Integer In selectedRows
-            Dim SELECTED_RECORDID = grvwGrid.GetRowCellValue(rowhandle, "Record-ID")
+            Dim oSelectedRecordID = grvwGrid.GetRowCellValue(rowhandle, "Record-ID")
-            If IsNothing(SELECTED_RECORDID) Then
+            If IsNothing(oSelectedRecordID) Then
                 Continue For
             End If
-            LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString)
             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")
+
-                    Dim DOC_PATH = row.Item("FILEPATH")
+                    CURRENT_DOC_ID = oRow.Item("DOC_ID")
-                    Dim _objecttype = row.Item("OBJECTTYPE")
+                    LOGGER.Info("DocID {0} will be linked with Record {1} ", CURRENT_DOC_ID.ToString, oSelectedRecordID.ToString)
+                    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}'", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
+                    Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", oSelectedRecordID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
-                    'Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
                     If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
                         MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
                     Else
-                        'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
+                        ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & oSelectedRecordID.ToString)
-                        '    Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
-                        '    MYDB_ECM.ExecuteNonQuery(proc)
-                        'End If
-                        Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "The record was successfully linked"
-                        End If
-                        bsiInfo.Caption = msg
-                        ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & SELECTED_RECORDID.ToString)
                         oLinkCount += 1
                     End If
                     Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
@@ -327,29 +324,35 @@ Public Class frmDocRecordLink
                     If DT_OBJTYPE.Rows.Count = 1 Then
                         Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID")
                         Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
-                        Dim ENT_ID = MYDB_ECM.GetScalarValue(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
+                        Dim ENT_ID = MYDB_ECM.GetScalarValue(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", oSelectedRecordID))
                         If ENT_ID > 1 And Entity_Index <> String.Empty Then
                             WMMOD.SetFileIndex(DOC_PATH, Entity_Index, ENT_ID, _objecttype)
                         End If
                         If Record_Index <> String.Empty Then
-                            WMMOD.SetFileIndex(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype)
+                            WMMOD.SetFileIndex(DOC_PATH, Record_Index, oSelectedRecordID, _objecttype)
                         End If
                     End If
                 Next
-                bsiInfo.Caption = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
-                Refresh_Grid_Data(True, Nothing)
             Catch ex As Exception
                 ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Linking Record to file", ex.Message, ex.StackTrace)
             End Try
         Next
+        Dim omsg = $"[{oLinkCount}] Datensätze erfolgreich verknüpft! - {Now.ToShortTimeString}"
+        If USER_LANGUAGE <> "de-DE" Then
+            omsg = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
+        End If
+        MsgBox(omsg, MsgBoxStyle.Information, "orgFLOW")
+
+        Refresh_Grid_Data(False, DT_ENTITYDATA)
+        Load_DocGrid_Layout()
         grvwGrid.ClearSelection()
     End Sub
 
-    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmsaveLayout.ItemClick
         Save_DocGrid_Layout()
     End Sub
 
-    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmresetlayout.ItemClick
         Reset_View_layout()
     End Sub
     Sub Reset_View_layout()
@@ -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"
+        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        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.DateienVerknüpfenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.DateienVerknüpfenToolStripMenuItem.Name = "DateienVerknüpfenToolStripMenuItem"
-        Me.RibbonPageGroup2.Text = "Datei"
+        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

@@ -44,7 +44,12 @@ Public Class frmDocSearchResult
         _Helper = New ClassHelper
         Text = CURRENT_DOCSEARCH_CAPTION
 
-        DocumentViewer1.Init(LOGCONFIG, MYGDPICTURE_LICENSE_KEY)
+        DocumentViewer1.Init(LOGCONFIG, MYGDPICTURE_LICENSE_KEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
+            .ShowPrintButton = True,
+            .ShowRotateButton = True,
+            .ShowFlipButton = True,
+            .ShowSettingButton = True
+        })
     End Sub
 
     Private Sub frmDocSearchResult_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -94,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()
@@ -142,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
@@ -323,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.cmbEntityType.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True))
-        Me.ComboBox1.DataSource = Me.TBPMO_FORM_TYPEBindingSource
+        Me.cmbEntityType.DataSource = Me.TBPMO_FORM_TYPEBindingSource
-        Me.ComboBox1.DisplayMember = "FORM_TYPE"
+        Me.cmbEntityType.DisplayMember = "FORM_TYPE"
-        resources.ApplyResources(Me.ComboBox1, "ComboBox1")
+        resources.ApplyResources(Me.cmbEntityType, "cmbEntityType")
-        Me.ComboBox1.FormattingEnabled = True
+        Me.cmbEntityType.FormattingEnabled = True
-        Me.ComboBox1.Name = "ComboBox1"
+        Me.cmbEntityType.Name = "cmbEntityType"
-        Me.ComboBox1.ValueMember = "GUID"
+        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")
+        resources.ApplyResources(Me.lblCreateConstrForm, "lblCreateConstrForm")
-        Me.Label3.Name = "Label3"
+        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">
+  <data name="&gt;&gt;cmbEntityType.Name" xml:space="preserve">
-    <value>ComboBox1</value>
+    <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">
+  <data name="&gt;&gt;cmbEntityType.Name" xml:space="preserve">
-    <value>ComboBox1</value>
+    <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">
+  <data name="&gt;&gt;lblCreateConstrForm.Name" xml:space="preserve">
-    <value>Label3</value>
+    <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 " & _
+            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)
+                                       "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
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntityType.SelectedIndexChanged
-        If ComboBox1.SelectedIndex <> -1 Then
+        If cmbEntityType.SelectedIndex <> -1 Then
-            If ComboBox1.SelectedValue = 5 Then
+            If cmbEntityType.SelectedValue = 5 Then
-                ToolStripButton2.Enabled = False
+
                 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 & _
+        EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine &
-                  "EXEC	@return_value = dbo.PRPMO_ENTITY_TABLE_IMPORT_RECORDS {0}" & 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
+            For Each oDoc As ClassDocGrid.clsWMDoc In myDocuments
-                Dim expression As String
+                ClassFileResult.DocID = oDoc.DocId
-                expression = "DocID = " & ClassFileResult.DocID
+                If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
-                Dim foundRowsLevel0() As DataRow
+                    Dim expression As String
-                ' Use the Select method to find all rows matching the filter.
+                    expression = "DocID = " & ClassFileResult.DocID
-                foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
+                    Dim foundRowsLevel0() As DataRow
-                Try
+                    ' Use the Select method to find all rows matching the filter.
-                    foundRowsLevel0(0)(13) = True
+                    foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
-                Catch ex As Exception
+                    Try
+                        foundRowsLevel0(0)(13) = True
+                    Catch ex As Exception
 
-                End Try
+                    End Try
 
-                Me.Close()
+
-            Else
+                Else
-                MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
+                    MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
-            End If
+                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/frmFileRename.vb

@@ -2,9 +2,11 @@
 
 Public Class frmFileRename
     Private ReadOnly oRenameType As String
-    Private OldDisplayName As String
+    Private DisplayName As String
+    Private FullFilename As String
+    Private DocID As Int64
 
-    Public Sub New(DocID As Integer, oldName As String, pRenameType As String)
+    Public Sub New(pDocID As Integer, oldName As String, pRenameType As String, pFullFilename As String)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -14,6 +16,8 @@ Public Class frmFileRename
         lblOldFilename.Text = oldName
         txtNewName.Text = oldName
         oRenameType = pRenameType
+        FullFilename = pFullFilename
+        DocID = pDocID
     End Sub
 
     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
@@ -50,26 +54,27 @@ Public Class frmFileRename
                 End Try
             Else
                 Dim OldName, NewName, OnlyFilename As String
-                OldName = ClassDocGrid.SELECTED_DOC_PATH
+                OldName = FullFilename
+
                 ' Define file names.
                 NewName = txtNewName.Text
                 OnlyFilename = NewName
-                Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
+                Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(FullFilename)
                 Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
                 NewName &= Path.GetExtension(oFullFilename)
                 OnlyFilename &= Path.GetExtension(oFullFilename)
                 ' Rename file.
-                LOGGER.Info($"Renaming Old: [{OldName}]")
+                LOGGER.Info($"Renaming Old: [{oFullFilename}]")
                 LOGGER.Info($"Renaming New: [{NewName}]")
-                My.Computer.FileSystem.RenameFile(OldName, NewName)
+                My.Computer.FileSystem.RenameFile(oFullFilename, NewName)
                 LOGGER.Info($"Renaming FileSystem done!")
-                Cursor = Cursors.WaitCursor
+                Dim oEXEC As String = $"EXEC PROF_DOC_CREATE_UPDATE {DocID}, {CURRENT_RECORD_ID},'{USER_USERNAME}',''"
-                Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
                 If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
                     Me.Close()
                 Else
                     MsgBox("Not succesfull - Check log", MsgBoxStyle.Critical)
                 End If
+
             End If
         End If
     End Sub

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,11 +52,13 @@ 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()
@@ -186,6 +189,7 @@ Partial Class frmGlobalSearch
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.LabelControl1)
         Me.Panel1.Controls.Add(Me.lblFT_Irregular)
         Me.Panel1.Controls.Add(Me.txtSearch)
         Me.Panel1.Controls.Add(Me.Label2)
@@ -193,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")
@@ -212,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]
@@ -296,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.RibbonPageGroupExcel.AllowTextClipping = False
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroupExcel.Enabled = False
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroupExcel.ItemLinks.Add(Me.BarButtonItem4)
-        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        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)
@@ -428,10 +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>
@@ -328,7 +328,34 @@
     <value>Panel1</value>
   </data>
   <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>3</value>
+    <value>4</value>
+  </data>
+  <data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Tahoma, 8.25pt, style=Italic</value>
+  </data>
+  <data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>382, 74</value>
+  </data>
+  <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>134, 13</value>
+  </data>
+  <data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
+    <value>10</value>
+  </data>
+  <data name="LabelControl1.Text" xml:space="preserve">
+    <value>Leerzeichen mit % ersetzen</value>
+  </data>
+  <data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
+    <value>LabelControl1</value>
+  </data>
+  <data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve">
+    <value>0</value>
   </data>
   <data name="lblFT_Irregular.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -340,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>
@@ -361,7 +388,7 @@
     <value>Panel1</value>
   </data>
   <data name="&gt;&gt;lblFT_Irregular.ZOrder" xml:space="preserve">
-    <value>0</value>
+    <value>1</value>
   </data>
   <data name="txtSearch.Location" type="System.Drawing.Point, System.Drawing">
     <value>15, 50</value>
@@ -382,7 +409,7 @@
     <value>Panel1</value>
   </data>
   <data name="&gt;&gt;txtSearch.ZOrder" xml:space="preserve">
-    <value>1</value>
+    <value>2</value>
   </data>
   <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -391,13 +418,13 @@
     <value>15, 31</value>
   </data>
   <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>66, 13</value>
+    <value>69, 13</value>
   </data>
   <data name="Label2.TabIndex" type="System.Int32, mscorlib">
     <value>8</value>
   </data>
   <data name="Label2.Text" xml:space="preserve">
-    <value>Suchbegriff:</value>
+    <value>Suchbegriff: </value>
   </data>
   <data name="&gt;&gt;Label2.Name" xml:space="preserve">
     <value>Label2</value>
@@ -409,7 +436,7 @@
     <value>Panel1</value>
   </data>
   <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
-    <value>2</value>
+    <value>3</value>
   </data>
   <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Top</value>
@@ -581,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>
@@ -635,25 +662,20 @@
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABcEAAAC77u/
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
         PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
         IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
         MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
         Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
-        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW1hZ2VMb2Fk
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
-        Ij4NCiAgICA8cGF0aCBkPSJNMjcuMywxOEg3LjZMMiwyOGgxOS44YzAuNSwwLDEuMS0wLjIsMS4zLTAu
+        PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
-        Nmw0LjktOC45QzI4LjEsMTguMiwyNy44LDE4LDI3LjMsMTh6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAg
+        MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
-        IDxnIGNsYXNzPSJzdDEiPg0KICAgICAgPHBhdGggZD0iTTIxLDEyaC0yLjJjLTAuNCwwLjUtMC43LDEt
+        Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
-        MC44LDEuNWMtMC4yLDAuOS0xLDEuNi0yLDEuNmMwLDAsMCwwLDAsMGMtMSwwLTEuOC0wLjctMS45LTEu
+        aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
-        NyAgICBDMTQsMTIuOSwxNCwxMi40LDE0LDEyaC00VjljMC0wLjYtMC40LTEtMS0xSDFDMC40LDgsMCw4
+        DQogIDwvZz4NCjwvc3ZnPgs=
-        LjUsMCw5djE4YzAsMC4yLDAsMC4zLDAuMSwwLjRjMCwwLDAuMS0wLjEsMC4xLTAuMmw1LjUtMTAgICAg
-        QzYsMTYuNSw2LjcsMTYsNy41LDE2SDIydi0zQzIyLDEyLjUsMjEuNSwxMiwyMSwxMnoiIGNsYXNzPSJZ
-        ZWxsb3ciIC8+DQogICAgPC9nPg0KICAgIDxwYXRoIGQ9Ik0zMCw2bC02LTZ2NGMtNC40LDAtOCwzLjYt
-        OCw4YzAsMC40LDAsMC44LDAuMSwxLjFDMTYuNiwxMC4yLDIwLDgsMjQsOHY0TDMwLDZ6IiBjbGFzcz0i
-        Qmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
 </value>
   </data>
   <data name="BarToggleSearchCombined.Caption" xml:space="preserve">
@@ -665,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>
@@ -719,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>
@@ -891,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>
@@ -915,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">
+  <data name="&gt;&gt;RibbonPageGroupExcel.Name" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
+    <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.Item("FULL_FILENAME").Visible = False
-                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                    GridViewFiles.OptionsView.ColumnAutoWidth = False
-                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewFiles.BestFitColumns()
-                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
                 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
@@ -241,6 +247,7 @@ Public Class frmMain
     End Sub
     Sub Load_TasksforUser()
         Try
+
             VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
             Me.VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
             CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE
@@ -412,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
@@ -544,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
 
@@ -562,7 +569,7 @@ Public Class frmMain
 
                 If Task_Popup_minutes <> 0 Then
                     TimerTasks.Start()
-                    Refresh_TaskReminder()
+                    'Refresh_TaskReminder()
                 End If
 
                 RUN_TIMER()
@@ -575,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
@@ -792,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
@@ -922,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
@@ -942,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()
@@ -91,7 +98,37 @@ Partial Class frmNodeNavigation
         Me.CMSAdmin_Treeview = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.KnotenLöschenadminToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.KnotenVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PopupMenu1 = New DevExpress.XtraBars.PopupMenu(Me.components)
+        Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
+        Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
+        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()
@@ -117,23 +154,31 @@ Partial Class frmNodeNavigation
         Me.SplitContainerDocView.Panel2.SuspendLayout()
         Me.SplitContainerDocView.SuspendLayout()
         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.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 = 25
+        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, 158)
+        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1151, 158)
         Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
         Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
         '
@@ -270,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)
@@ -311,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, 788)
+        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
         '
@@ -344,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(1433, 630)
+        Me.SplitContainerTreeList.Size = New System.Drawing.Size(776, 409)
-        Me.SplitContainerTreeList.SplitterPosition = 289
+        Me.SplitContainerTreeList.SplitterPosition = 229
         Me.SplitContainerTreeList.TabIndex = 2
         '
         'TreeListDevexpress
@@ -369,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
@@ -386,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, 630)
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 409)
         Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
         Me.TreeListDevexpress.TabIndex = 1
         '
@@ -410,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(1134, 630)
+        Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(537, 409)
-        Me.SplitContainerDocumentSearch.SplitterPosition = 246
+        Me.SplitContainerDocumentSearch.SplitterPosition = 133
         Me.SplitContainerDocumentSearch.TabIndex = 1
         '
         'pnlControls
@@ -421,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(1134, 246)
+        Me.pnlControls.Size = New System.Drawing.Size(537, 133)
         Me.pnlControls.TabIndex = 0
         '
         'GridControlDocSearch
@@ -435,92 +505,122 @@ 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(1134, 374)
+        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.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.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLink_ShowAll, Me.tsmiFileLinkRemove, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.tsmiFileVersion, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
+        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
@@ -535,36 +635,36 @@ Partial Class frmNodeNavigation
         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
@@ -629,7 +729,6 @@ Partial Class frmNodeNavigation
         '
         'SplitContainerDocView
         '
-        Me.SplitContainerDocView.Collapsed = True
         Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158)
@@ -644,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, 630)
+        Me.SplitContainerDocView.Size = New System.Drawing.Size(1151, 409)
-        Me.SplitContainerDocView.SplitterPosition = 969
+        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(0, 0)
+        Me.DocumentViewer.Size = New System.Drawing.Size(365, 409)
         Me.DocumentViewer.TabIndex = 0
+        Me.DocumentViewer.Viewer_ForceTemporaryMode = False
         '
         'XtraSaveFileDialog1
         '
@@ -687,20 +788,299 @@ Partial Class frmNodeNavigation
         Me.KnotenVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(201, 22)
         Me.KnotenVerschiebenToolStripMenuItem.Text = "Knoten verschieben"
         '
+        'PopupMenu1
+        '
+        Me.PopupMenu1.Name = "PopupMenu1"
+        Me.PopupMenu1.Ribbon = Me.ribbonNodeNavigation
+        '
+        'BarManager1
+        '
+        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.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
+        '
+        Me.barDockControlTop.CausesValidation = False
+        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(1151, 0)
+        '
+        'barDockControlBottom
+        '
+        Me.barDockControlBottom.CausesValidation = False
+        Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 589)
+        Me.barDockControlBottom.Manager = Me.BarManager1
+        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, 0)
+        Me.barDockControlLeft.Manager = Me.BarManager1
+        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(1151, 0)
+        Me.barDockControlRight.Manager = Me.BarManager1
+        Me.barDockControlRight.Size = New System.Drawing.Size(0, 589)
+        '
+        'BarButtonItem2
+        '
+        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
+        '
+        'BarButtonItem3
+        '
+        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
+        '
+        'BarButtonItem4
+        '
+        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)
+        Me.Controls.Add(Me.barDockControlLeft)
+        Me.Controls.Add(Me.barDockControlRight)
+        Me.Controls.Add(Me.barDockControlBottom)
+        Me.Controls.Add(Me.barDockControlTop)
         Me.IconOptions.SvgImage = CType(resources.GetObject("frmNodeNavigation.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.Name = "frmNodeNavigation"
         Me.Ribbon = Me.ribbonNodeNavigation
         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()
@@ -726,6 +1106,13 @@ Partial Class frmNodeNavigation
         CType(Me.SplitContainerDocView, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerDocView.ResumeLayout(False)
         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()
 
@@ -797,4 +1184,40 @@ Partial Class frmNodeNavigation
     Friend WithEvents CMSAdmin_Treeview As ContextMenuStrip
     Friend WithEvents KnotenLöschenadminToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents KnotenVerschiebenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PopupMenu1 As DevExpress.XtraBars.PopupMenu
+    Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
+    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
+        bGUARWRpdFJhbmdlUGVybWlzc2lvbjtTZWN1cml0eTt7Gu0YAAAJYklEQVRYR6WXCVTU1R7H/9V7vTYr
-        ZpZooo4kVDRu0Uyh4FZGpkYHF0oTcUFWZVFEAYNGQUT2FhSEiHtEAUWRKKKyC6iIsokCKovI2kBDQ6Mg
+        sLdkmy/Kk6Vm2TskaHos3nn6MOVAhRoCggskoYihqagIDIugECSatqiooEiKpuwCJqBsLoDKIrIOMDAw
-        DfQ/57wGBEWTqTlVX73ud3n8/zn33XNvq/htnN8fA31N5/p4GWmXuK/XqnZdOyt235qZC+iq4m6gpeJt
+        bDLAfN65fwbEhJbz7jnf8//P3Jnz+/x+997vvVcKWTZTGkYPBTu8F+RvZ1ruu9ikznvR1IRtC9+d5b1o
-        OFvl/wkAPbwpbENk+5jNy4sJ2obClFPIiHRHVKANRBY6nTv1puvT8wOID97BwHfAY/ycEO8zUH8r1An3
+        quRrYyIF2E6T/p8GDOqXgV1Dls3MD3KcURgfsZqS9O/IifUlLtyVwBVmfest3raWJOkBSZIeHEEPjSDR
-        I9xRlBSEgsRgnHc1RKCNLnwtdbBVd2rz/G9GfUL/4yNiUBeDiSHEUOLjLoZ1MbzryuN/JgQT7zIwkMC9
+        J/73mwBN5w95cinGl9LUCIpT9hPlbUu4qznBTmasMn+zbeYbY56WJOkvkiQ9otejkiQ9JknS45IkPaHX
-        S27wNJ6HX7YtQ+IZEQ7bLIGn0WzsWD4JJvM0cDXtGXYFZ2PHqUw4nMzETycyYH88A3ZH78H2SDq2EjaH
+        KL2e1D9F/58HIEYCeChk2UwuHvfBz34GX6+eR8qBQHa5zsXPbhrr5k9gyYxxnMq8xYb9+az7LhePb3P5
-        72LLL2nYHHgHmwJuw9w3KZV02SBX450GVHzM5rYctNRR3D+3B5GBO2GjOw3mCydi/ZwvYfn9eKzT1kBb
+        Yl8O7ntzWLPnIm67s1m1OxvXXVl8/nUmK8Mv8FnYzywPTs3QA4pqjAggBTm+17nTyUx36chmYsPX42o+
-        u4Ke+9/Cwu8WKalw5f70XgMikzn5ImMt+YuyW+ioz0Lj00jkRLkh5cRG2CydBrPFs/CitaMPzUxLB2TM
+        meUfvM7i6a/g9P7LfGo6ju4eHX+0rQg5jyRJonJ/+lWAwCXTiwLtTbTtlefpbcqj5WYsBXE+pO9bhuuH
-        y3Y0Mi/kkBINzXKUVMlg7pfKBkYSPA3vNuCxXtv9gKmWoqPhEVpKYyB7Eg5JThAqU5xhNvcLuNlbkGj7
+        k3GcM5X2rt571CbU2YtGqKOHFqF2Lep2Lc1tWsprNSwPyRAAo/XDMDKAYrGp7w4HE11v8zU6K+LR3IhG
-        2+IkKmtpR5Mg3g4pCTc0t6FeJkcxGdh4MIUNfPq7BqwWT/n6qJWWTFaaCunDX1FP4jVp3iiI3AS7xRoI
+        VRBBTfoWHN97AR/3FbR39dwfvKMHTWcPrXLwHtRtIng3TRotZbUalu1MFwDP/CaA85xJr+1xNtFoKjJQ
-        OhGGU/El8It6jAOXC+D7WwH2R+ZDdCkPXhcfwePCQ7iH58L1/AMSb4OEKKpqgtkBwcBfiA/fa4BiyFHL
+        X/2epoII6jMDKI79jDVzxhGx7zDfJZUTEnedHSeKCf6xmO2xRQQeL8T/2DUUR6/iG30F76jLNGm6UWm6
-        GZFZEW6ove+H6lQXVCbtwKU9C+BvvxrVNQ2vMxeyp8wpa2XmVHYhc3mPeF3TKxRVNsHUN5kN/JUQDPSJ
+        Ka1txXGHDPBXSZIe/lUAMVv3OE2JzYvxoeFSCHUZXtSkruP45lmEui+grr75buZy9j1y9v2Za/WZaweD
-        XuIfTNs2dsLireohR6xmIDPcAcVRlojz+Q+2/+szmLoYwD8yFv6XH8InMk+ZeQRlHkGZU/bu4Q+x71wO
+        N7beobSmFYfgNAHwtwGAe9qQ4A9OXv3S+DmrjCJ3O08hN9qDsjgnEoP+y9p/P4uDlw2hsQmEnrhKUGxh
-        XMKy4RyShRppK9GCx+VSmOxPYgN/J942MP/gBJUJhqMHa3lp+C0PmtWxP8Eep6N2IcBuPlz1xmGv8Qx4
+        f+YxhfjHXENx7Bq+0VfZdqQAr8P5bInMo17dRb26k+tVapZsTxUA/xgWYObO8dJ42+ceNfEfFzI/Ymrv
-        nNyA7ReMsMB7KnaE2qK8qhZS2SvlS9edOWdMgtV1MlTUNOJ5tRSl1fV4UCSGoVccGxhNcP/oG2P//emH
+        9mR3fojbQNiamXhbjGWr/RQU3y5l7VE7ZgW8ybpDblTVNqDW3OmfdAOZi4zVndQ1aqiub+F2nZqKuiYu
-        c3y+TvRLccDjpjjkN0bjVtVhROTvwqE7hnBNWA6neF3sS1oLn1Rr2ISvg65oEULi82jOH8CN5vtQVB4u
+        lyqx9U8UAM/p/ePe9tJ/nnl4etBrKSHpHlxvTaSo5TTna3cRU7SBry7Y4p08H88kc7alLiIowwXX6E8x
-        pBQhLC4X9j7hMHAIhJ6lBwxsRdjucRyrdp9jA+oE9wLuiq9Dy+OrnxyjTfFAcgUJlb6IKNmK8GJrnMw3
+        D5xNZFIhiqOX8Ym6zFdxhRxNL+Vw4hXcg6Kx8QjHwkmBjVsgaxV7+WTjEQFgpPcC4Yp3m4ni1S82nXbg
-        xcH7+tibrAv7GzqwujwfRhdmQz9EG0sCtKjsrqiRyFBP81wubsTxyFswdwlGeEw6HhZWoLRKgvTcQhw/
+        suokyTXBxJSvIrrMhW+LHNh5yZqtaea4nzXD+cRM7I5OwzrSlLlhJiiOeVOv0tDUeocqZQt7Y8+z3Gs/
-        H4NV1m7Q1jUJGDR0+GckydPAHVHZmrW9NYpmeX0JTQ91/NNtPL5zHYfpLuPw7d4xmOo8BlOcPsdkx9GY
+        0fHZXC2ppqJWRfaVEvZGxfOJiw+m5kvCHnn8yWf1wyAcsd+aTQPGlU71fwVjhRH/8nmZd7zH8rbXWN7a
-        tHsUvtk1CpMIvs7Z9x0ibj4WMncKuo7dAZeFkp++lAjzXf5YauYEI3sRXANCcSk2Dabb92Om7oZgkuT2
+        +iJvbnmRSZ7PM3HTc0zYOIY3Noxhwob+5/Rt7xBz7rqcuWfEGTaGnZBL/sPxFJZvCOVDR0/s3APxDjvE
-        3NOWObg7sSueH+7ZapdSCtEglUFc20hvvhRV4gZUiCUor65DGc1/WWUdfa+HWNKM5MxCbHA5i5JKCWy9
+        8YRMHNZu513zpfv19jxoy6IJdxJUYnyEZxseTy+hWa1B2dBCXb2aWmUz1UoVVXWNVNY2UFnTSLWyCaWq
-        zsLO9SgSb+eg+HkV4lMzscXJH4bbPBAUdg06ax0wUVtvWZeOcip61qMy+OYQ++P36Raoq8mFxvLmOud5
+        jbTcEpZ6HaS8RoWb/0HWeO8h5ecCym7XkpSRy+eeodiuVhBx+CfMFnnwuqnFPH2c/qEYXI/9TXz5mPve
-        dwnLQWjCU9j7XUF4bAYJ3MC2fUdQUS1BbX0zJNKXwhSVlouxzdkfOzyOwcrxEKYsNL5CGiMITnxAfwaG
+        S7KFtnRoZWP55ToX4+51uIBDyTdxDzlJdEIOEYfPsnrbbqrrVDQ0taFSd8hDVFGlZPWWUNYpvsF501dM
-        2h27pzTQ9YbXC13tNbzGaxpaUCaWwnjPaTwuFUPPwh3Jd3OFqrF4fWOLcK2kSsUlp0PXcAdERy9gko55
+        +sD+pCRJT+kTf2A4gMfXfHOxH0A/w5tkV7srscbrmzupVKqx3/wD1yuUWKzwJS3rilw1EbyppVN+1iib
-        DWl0N6W3DPBu9bEt7Wwc3Y3Fs1eH47W+NyQbcVnluHqnCD/YH0ZlXRO0VmxH/tNneF5RQ8uUpqqyVvhc
+        SEzLxtx2HYF7jjLBbHn9EFO6D0DsVk+47ekHGDAWvyEOJ9b61sh8EvOqOHWhlI/cd1HT2IqJ5VqKbt7i
-        WFKOjKxHmLdiMw6HRGPCQks5aXxBKKehPwNbg+4KBpT9nDJuUna1brjJVNQ2oTAjDsc9rXHAXg8H7Jbj
+        dnU9VbWNVNY0yO8l5VXk5F1jhuVKdkWeZvwHTlpJkl4YHIbhAFZFZMkA/X7ejaq139UGJEymuqGVkpxE
-        WcBMFPtrotBPE099NfHYRxP5Ik088tKEx+bl8Ni0HM4blpSK9L8yIB3l7tiPgWE2QWmCge5yu53Ppcxp
+        9vq5sMPdgh1r5nMr7F3KQo0pCTHmZrAx14OMKQo05pq/MYqV81F8Np8tS+dWBFq/ajO4Ow4DMMo1IlMG
-        3kNzqMtlw/FMBqLvFqPk2PdoLbsDdLQA7S+JZkDeBLQ1Aq8aCAnQWgu0iIGXVUQFmvKikeY4Q0I6ys7Y
+        GCi3T9QVth25jNehArZE5rPpQA6ns8oo/+Z9uiovQG8n9HRATxtoW6G7Be40wx0VdDVApxI6aqGjmtbC
-        j4HhfJjg6O7ntZx142sqJS9QVE4lDpxBoi+gkGRDUZ3y+9SmQ9H4BOk7p7Pg58RH/RkYwScZjjoqfS0J
+        02RumqIadMZhAJ4UhwnRBvy8QWTdclc1qnZKqxq4HT4FetrRqfLR1aX/thqy0bXcIHv92yLg8/LKGwbg
-        8hvvHJoNp7NZcDybiV2/3sPl1Cco8lYXslWUXetD/Pn90F+pS1fRW2OKumwkW6uzIL8Hg940wEtjBB+j
+        KXGSEa2xtZuGljvyjN9yKB/Pg3lsOpjLhu8vciLjBqUBRnK2usqf7lFS1HasrcxJigq8r0/XmE+ai5EI
-        OFicMxY3tKK6F+W1zSh4JkbBHjUopE/Q+SgQiuLzPSxZtADqk7VgZGUHxfPonvv8d22Z3ogxVGXBMUS/
+        KObBI78EEEvjKXGMEk0EFxkrm7uoG6KqhjaKbykp3myITn2Dvmvh6MqiBjV39iyMJppg57wG3e3Tg9+L
-        Bj6x8u9rwEmY9yzsDs7Ez8EZcDiRjojkAuQ5koHaTMiv6qAj0QAddx3QmeONEF8LaC8xw/WocCjKY9BJ
+        33XnBhBvayACvjgSwNPOofcCeMrjnsfG/bl8uT8Hj33ZxKQVU7jJEF1DLtpTZvSm2NCb5UFfQQCRwSsw
-        99sTaDxKB20ptrhuoMaCY4l+Daha+t/qY+DNCpTVyJBfXI2HP5OBmjR0XF+EzmuL0SGwCGG7taDx7Tzc
+        nevImbhodFXx9GV50JNsQ2+cGd3pbpyxMRQBXxoJwMAp9PyvVqCyXkNRWR1XvzREV59J75nZ9P00h15Z
-        CPdD521r4V7HdRoj2pK3IHqNUIFxRP8G+AzHIbx00lck2oKq+tYenotlyCuqxAMHVSjEKeiMXdYHqx+m
+        szm80YRxb83gbHQIfT+7yN/1npkjqzvtc04vlCswdkQAcYYTTZ506jvUNXdS29Q1qNtKDYWlNVz2MECn
-        QX3KbHh67qPst6IzrmuMrm3J1ohaLVTgH0T/U7DxoNLAk/ImOlA0ooDIe/6a3OI63MkpQZY9GahKgCJx
+        TKcvYd49cv5oMkaTpuHnt42+rFX0Jer7EufRneZC3AK5Av8cCeDpZTv7AW5UtXK9qoXiqhYKb9/VlbJG
-        JTqZhJVQEJMnqmPy7GVYYWwLRa4X3V9B4wSNyZOtcEVfMDCeGPymAaERGXnGJPExymT/TZiIbsJIlAhD
+        LhSUk+dugK42GV2KFX1CyVbokq2Y+LoRE6fNw9LeDd0Vf/qSLelLsZT7tWnOnLSWAV6W7xTDrIIn7Pzi
-        70Ss90qAgUcC1rjGYOXuCGTYqgEVN6C4uZrQ77oSKUTRGaD0onDlMdD9zoQfIb9pid9+HPlOA7xF8lbJ
+        U8Uxasn2cywJPIddYAq2ASks9k/GRpHMQu94rDbGkONmCNVn0Z1bgO6ctf65AF36AnSlB6DimPwUfZxb
-        v2b4GM3nuL8RvI+P6oJPNjx/k9KsVV82JLlAnroZ8pgVxEq0xRL8OZa/rxA+93yPX4PKM0txceXIl/Q8
+        QF/yx2jPOfHjx6NHBBBbpNgqxW1GHKPFOe7vkiSJfXyMXuJkI8ZvQqaLQUdzqhfajJVo4y3RxlvRnWBF
-        L8O3+gAHm+BKsBHeMLrh7bob7uMjA/SGGSdbqkpSLVWRvFEVSWaqiDdRRSwts5j1qri+Tg1X6YWLopJf
+        t3hPEJ8t5ffBz0kLqTnwIcesRnfol+F9PjAAISohQMSGMSCxXQ9I+PjoMItR9mlOBqoMJwPSlhmQ6mhA
-        XqVGmauxuGyn1jALel55TO/HwB8JNsmm+HDBO1t3Zbi7cWa8xnmZcaX4ZeNyd8PjLM6/K19vRn+UrmAD
+        0hIDEmwNiF9swJlPDTm10IA4a0NOfGLIjx8biuCa9SajVgwe04cB+D1NQAoocbgQO9tAZYS7iczEGhfL
-        vSvVuzpM9w/X3vCPWIbH+Rna+lUG/Bex9uEqV0XDgQAAAABJRU5ErkJggg==
+        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
+        bmRhcmQ7U2VhcmNou2WcCAAAAYdJREFUWEfFlsttAkEQRHECPnAmAmIoiWCQ0zDi6Ax8JAXLMfjkE7EQ
-        gDODvKv53+vv7w/Chyet7JnZwdiGTd/3qxIefCY+dF0XsQMHcAYXcB3gzGM8R83Iq0tK+JAFvIB38Av6
+        wFqFplGrupvdgZX38KTRTFd17ezsZzUMw2pJwsR/cxsAyNgA2AM4ATgDuDQ45hzXWKO60KiiCvAC4A3A
-        Gaihlh7P0CUlfBDzFnyCaFkJeui9qwA/Rb78DxzBHnAB4cxjPKdaem9XQpeU8IEmwEupgV/gTQ0Kzw0a
+        D4BhBNawlppZAqwBfCSNxqCG2qcC8Cq0+S+AA4Bda0A45hzXNMR1J7RRhQbgVnrDTwBbFTnNttV4DT1C
-        9TAj1Ef4ABNvJv3OGfyq4ghqBq35mLGLtBE+wMQ72kJ4aSc/eQ61g8f8h0gX4QNMfKws4KiiGugR/znS
+        bYU342Hy95zGrypQWCMh6LHRugpvxBPtt728cqXthL8de62p8CZ8rMzgoIVjtDNh+pOuV3gDPttmsNPC
-        RPgAE59tC9irqAZ6xH+JNBE+wMQXjAVsVVQDPeK/RpoIH2iSgFUKrP4VrH4Trv4YPvRFBHhuEvNrEHnE
+        MdrBNP1Z1yu8AV8wZrDWwjHa02H6i65XeIPFAyx+CxY/hIs/hrO+iOTjFsgCkDlexV/aLKMK8OzHyHjX
-        q/gb+KIpLEPDyL0/RsYHSBbmTBUgXJCXaKFYolSALP1D8pMdMyZLzBUwlvwlO4HqEqMCrWTB1SXMn4S1
+        hkoVgDz6OVbuhrgXgPT+kHwn83dDjAUwen7JjkmAMkQI8ChiPDmE6YNhL2o8NYTpg2EvSYBJIUwfDHtJ
-        kAeDqhLmT8Ja0FBhtoT5k7AWLDCgWML8SVgLDCswWcL8o8ClIGyOqMTJ/KPApSCsBi3B2f1JWAsMq4SL
+        mk8KYfpg2EvSeFII0wfDXpKmShbiaPpg2EvSMMOH4PimD4a9JM0q2PjafNYAzxIm/ps/IprfeMS/OGEA
-        b8uJ+ZOwNQgPPo9+8w8imt94911hKQAAAABJRU5ErkJggg==
+        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
+        bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAKuSURBVDhPjZJbSJNxGMb/WVlpFllCZWQX
-        VCBIUSTkTWEkGImSRWQpQtZQtLFybqbuIjtIUZhhSTlnYt1JOF0rT3mcm87DLPSmMs2cm1PTedh0T//3
+        RgWCFEZC3hRGgqEoWUSaImQNRRsr52bqLrKDFIUZlpQ7JNadhNO18pTHz03nYRZ6U5lmm5vbTHdw0z3x
-        y31WFPTAD77T8zzv//0ETKvk5cY6+Ys+5JT3IrusF9ef9yCztAcyZTekJQZIig1If9YJ0eOWRva9BwCB
+        /3RTVhe98Fx8f3h+7/s+70cIIetEtdoW0ZsRlNQOo7hmGLdfD6FQNgShdBACiQb8ag3yX/WD+7yrnRDi
-        C5IbGf9Hoic6cnixy98C3LNYK0lSrP2FdmSUEDpIlTqMTc4jtVBLjvUuM0FanVnaTX5M2RyYtNkxMWOH
+        D4B4RMuPGv+nuC9U1BHgC1hfVLMM4Fcza9SLAgmVCgKpCtMWB3IrGerY6gvYUCgbZAGzVhcsVifM806Y
-        9bsdlqkFmJnRNDmH0Yk5JBe0ksPHZSa4AGlJF/mRodDySBQr7bJSHUassxDmt5Bjw+HYdEFotJgPWJOu
+        fjthnF2AweKA3mKHzmxHdkU3dQT9BRBIBlhAgZjxii9e7S6UqTBlsoFT3kUd206m5JPoJJ4XsDFf3M8C
-        6OQCrNN2jE+z1uVmah21znHmrxYbku43ksM3NPqq4MBJER/gIX6q5wKk7Mw8XLMej6o+oFjTB1GuAmGn
+        THNOzMwtwLDSmXbVmeys+afRiqzH7dSxPTrpJolK4HoB/ryXahYgkPSuiu2sxrOGL6hWjoBbKkbMBQGO
-        pTgYdaWamQP2R6bxAWtpuyTz1Dy3LBNr/jY+ixHGMGtOlhfhnvI1BkzzyC1SYV9kakNIRAof4JnGtkuS
+        J95ojErghh6Lz/MCNtF0aRlmHWxYerMdv2ZsmJqxYdJoRbaoCo+k7zGmd6C0So6j8bltkXE5XsCWvEqG
-        KfUrsPaHlUaU1fQh7JQY9YaPOBSVBlXbAILDkxaYz5vhTgFeyQVtXACdmc47bJnFkNmG/sExGArPwpgb
+        BQil6lXJ1Hhar0VN0whizvPQqvmKE4l5kPeMISI2a4EQEkgvSAEB2RU9LIDuTPedNNowYbBidHwamspL
-        gm55MDqy9qJdshut4iCohYHa5RCBtzC/mQv4c4I7L7Uw3ggBJt7DaemAc7QZzuE3WPpUgTrhDpp/IxeQ
+        0JZGYlAUgb6iI+jlH0I3LxwKThizAiGBnPLOf07w4C0D7Z1IwPwZbmMf3LpOuCc/YOlbHVo4++n8O1hA
-        9KCRC3A1D5pn8Nk0A0P/F3TlBLPldGCpJgbKM/5YVJ+AoyoCby8GUIAfBay7cFP9LvFuAxLy6hGfV4fz
+        1pN2FuDpPG6Yx3f9PDSjPzBQEgEY+rDUlAzpxRAsKs7B1RCHj1dDKSCYAjZfuav4lPmwDRllrUgva0Ha
-        t2sRd6sWsVkV0Mv2sOYmLGpOIvuoD2d2VB6DOmErH+DG8GT4MmgkeriJsZkRpL22C84hDRzVkXCojjNz
+        /Wak3mtGSlEd1MLDcOs6sKhMQPHpINbsqj8DRcYeL8CPBknvuzISfdxJCNlFCAlnbh2Ee0IJV2M8XPKz
-        OOyvjqDqnP/PI7DJ/wmTt/ryzqb6lEDUXNoOTeI2VMdvgSrOH+Uxfk30/q9GF0z0m2jTrslc0D17LnD/
+        cNXHwvnuFBouhyyvsPa39BVdT3H9QEdrThiaru2DMnMvGtN3Q54agtrk4A42RF+TD4CeiSbtmcwj+s2e
-        AcNOfPqnudCoAAAAAElFTkSuQmCC
+        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
+        bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAgESURBVFhHrZdpUFNZFsefvWm37ZI4W88+
-        SVVSMTUz+UGKpCpVM/GHUybBAqPJyLjhAoJGRMVBMIKCLIIQUEdNJihImhhUkF1AFoMo0GwNNIuA7A00
+        zcxU9dTYNTP9gS66q7pqpv1gl91igQqODC64gKAtouAgKKAgiyA0KKP2goAYtBFBdtlRQNkhQNiREAKE
-        3ayhgf7mnLc0PIck/Mip+qq57/Lu9517zj3nvicAWCHZAsKThKckPE14RsKzhIUSFklYTHiOsITwvISl
+        kAQCJJD8p87LS0wwLXzoW/WvJDzePb9zz7nn3MsAYIzixgqGYV5hGOZVTq8xDPM6pzcYhlnJaRWnNxmG
-        EpZJvzzP7/PaSk7FQLQnT6hrck+otQggHE+oIVTjk/gq+MVXwjeuAkevVMAnVoMjseXw/m85Dn1eikOf
+        eYthmNUMw7zNaQ2ntdwnPaf3aW6TPdamFYBXzgvaSs4LhAgRCBGU1oagtFacS21BYGozAlKacCa5Cf5J
-        leLgxQc4cPE+9l+4j4/P38O+c8XYe7YYrmfyC2ldFsgOKTkVA1HhU0z+Y9qeT+/y4isIvJtKTsVAEhCg
+        jTid1AC/bxtw6ps6nPq6DievP8WJ609w/NoTfJlYg2NXq3H0SjXcL5dXcoDk0EsBiPBVMv5jjiNfPaLJ
-        rqEhMDI+9YMYZoxNYYgxOgkjY8SMQYJh2IyHXUNwEwWsJHAYlJyKgSjgad5yNiXZpPVvgVSGRDw0NgmT
+        13OruTRAiKCNfXF6dmFJTZFmFqAiqeehIE1rMTmthXxKiz6JCh4GgA1cGJYEeI2W/EWAeUuj5sbV81DN
-        QD6JQSI2DE9gYMiMZhKwO7KIF3+BMC8Bzxy/WkXDGQHnM5pxLqMJZ9MaEZPaiOhUHaJSdIgkRCTX4fSN
+        zEPJGp/H5BQZ12BCpUWvRIXDsVU0+U+WC/B60K0WC4DE/F5cze/BldxuJOR0Iz5HhLhsEWKzRYjJ6sCl
-        WoRdr0VokhbBX9fg1FfVRD6BfkJTlwm7Igt58Z8QOImVnIqBJIATjk0WIGPGa/Z4ZttFz2nbBc/NVvI+
+        zHZE3WtHZIYQ4d+34eKdVkyoNJCpNOiRKHEotpIm/ymXxEsDUMK9uALmXpPHz5fd4LmW81xrMj6unEPP
-        07do6jRh55kCXvynhHkJeNYvrpKGMwJEzxvI8wbJ83pE3KxD+I26Gc+v1SCIPA9MrMIJdSWRiwIaSIBL
+        sBIHL1fQ5D9bLsAbgSnNFgAGz7sQn9PFed6JmPsdiM7seO753TaE3WlFaHoLzguaMa40AHQNK+EWwwL8
-        hCDgZ7w2k8h8DOVAFLDQ9zEBDEW8Ja9ney54T14PECkT640T6DWOQ9dhwvbwfF785wRBgMJkcgYZF6CF
+        fLkAKwMWAVgkG8Wb89rcc9Z7lQYTyjnW8JhCg1HFLERiJfZHl9PkvzACWIxFAFSAVvonN1kAmGKeJbL0
-        PnTO2WRya8yTKeazPf9ajHkQeR+YWI2ALyvgn6ChmlGOHsMYugZGUdc2iG1hebz4LwjzErDI57KG+UXP
+        /HtDzMPutiE0vRUht5sQnNaIc6kNkMpnIJlQo2NwEvuiSmnyXy4XYJX/zUYTAHltiLnBc+M2U0wZRJ5T
-        yWsx5qLn8jEzkscM9pxjzl73GkbR0TeE9p5BtHQZ6AgOQNPQg83B2bz4r3ltJlGYTM4gEwRwhWMbkcgj
+        zMnrUbka4nEVhqST6JfI0SeZQGOXFK7hRTT5b7jKuTQAVTgWgDMem9WJmKxOXOI8j+CynWJ+QdCM2Kw2
-        kynmhNOS5yFStnPMT1K8I5NrEJ/bgNh0DfaHqbHpUAzWuQbB2TMUXoGXsOHol7z4HwlcppljxmRyBhlP
+        pJZ0ISmvEcejBNh9KgHb3MPg4h0Jn9Ab2HnmNk3+R65Mk42XArzp9109C2BeYJRqLZS0x7kCY9S4YhZD
-        Lvb+ooz5xZhbM90ME59xqcDI6KM4t3cbcSmpCLv8LyMxswTVjR1o7epHSVUjLqkzscHjJN5cuy160ZJl
+        IwrcyKjCoeCbSC+oRWu3GAMSGWpbunFDUICdXhfw0ZZ98atWr32HCwPlGtsXrAG85fuNEcCw9BTzS/eE
-        L9L6HAbONcacAp47/LksQNx6jvnp61qEyDGXsv1UYqXguc/ZVByNvonW7gHEJuVil08U3nPxwxavUJyI
+        iDDGnMv2i+nNrOf+V3JwJv4+BkYmkJRRgkP+cfjCLRB7fCJxPv4WMgqrsf9kFD7ccuAm16BMjckawGpq
-        voqkrGJsPxiGN9buuEzrc4OyNqa5BCzhxsJmPeMMKd7yOddTzLsp5ndKG7HDPw4PO/vhGRyH/QEXkFlQ
+        LDRMe5xkzHQu5mPKOYzI1Sir68aB4BT0DcvgHZ6C4yHXUFBRj47eIeSWPIVnQCxcj4chMS0Xm/7ti/fs
-        hrrmdqTlPoC7byQ27w/C+YQ0rP7nYbxs7+BAHNwdxVDI5Awy7lbPe116wPxETIlG2/74Oee4+ydUIDa7
+        7O257mgIxSIA6lZv+9x4ygIo1Fq2tC7e5xT34LQmJBV1wjvmPtIL65CYlo9jQf9D39AoxKMKiEdVGJDI
-        Hp4RN5GYVUoEGdh3/D942N6Ljl4jYYjCYICWwuHhFwnvoItw8/0Ur72zNZk4lhO4MS2YUwC3VDb5jA8I
+        IewWwyswFn5h1+ER8BXe/3RvFsMw67jGtMIqALVUFoDb4xNsXeeqm2LO4P2EGoMjcuw9m4TOASm2HQ5F
-        dV2qbkY64+w9HbG2bgO2HotFfWsP1u0ORM7dSrRR7Dv1JhJgQluPEfUtPbieWYS1m70ReuErvLp6Vy9x
+        8aNmDEpkGB5TQjyqxKBUgc5+Ke4VVGGLqx8ir93BXzcdGjUry1YB1nhfMwAYl5xqu7HC0V4PSm3Eg9oB
-        yGV5TgFLPamfs8lbzrVdrnB81o/Ha3CrpBVJ+Tqs9zqHzj4T7B0PoqK2GbqHXdC1dFMIOgXvy7TNyCkq
+        ZJSLsN3nKobHlbBzOImm9l6I+iQQ9Y+go3eY9b5e2IviqgZ84uCJq6k5eO9Tdy23JQ1hsAKwlg4TNAwd
-        x9uO7jgXn4qX33E1EwcfSTEMMjmDjAUs48sEm9jRyHOprOrJe65u3QNjeETeNZRmIfDQFkR4rUPEAQe0
+        TQMZV1bHFHNsdRuZmMEzqQJddYUIPbUHMT7bEHPCHv3xH6I3zhbdsbboirZF5yVbtEfaoi3cFmGe9gg7
-        RL+B5ig7NEbaoSHcDvWn7VAbaoeaYDsEuTsgaI8DvF0cp0I3/smZeMT7gUzOkAQs33e+mPmt235SXUWe
+        Yg8/N4eFSKc/uZjOB1YA1h1LrGYBjMt+QdCCkNvNCL7VhHOpjQhIrkNGZRd6r/8Ls88eAwszwLwamJ8C
-        U9yvVlCV08D3SimSChvQfPHvGH/0DTA1BkyOEoYBswmYMALfGgj9wLgeGOsBRrsIHTBpU1Hs+3o/8Yil
+        tEpAowDm5MCcDJgdA2akgFoCqMVQCnNQHfCBzFSaFwFQYqyjYxQNY0ejmI8q5iCdnMWIfAbPxqYhGhzD
-        WSZnkHFiLOdrFJvc0TjmveR9zyB5TyX2kX4EujY92mJeJ9IRWPo1sHQX/DD0JbAYdSg58lcm+xVh4VwC
+        YMIHwPw09LJG6EcqltZYLfQKEWpP/4OM/Zo9W1oBWO+Z8JgFoI5Gy04Zf+5WIwJTGhCQUg//755AUNqO
-        VrjHkFdk3NF42znjP7mqgV9cOd0Jy+DzxX2o82rRFGIreGt5lKbAbXUYNjqtpd/Q/5uz9GmQ72HLZGJp
+        nggb1lv9s1wLPRREwclxCx4KIl94ph9vRLmXzfPSbAWAdyT+EQtgiPkcpHLyfBaSiRmIZTMYlE6ho1+K
-        lskZkgDVnui7zC/FnDw3sOfj1FzG0NE/Rtk9jDrK7rpjNrAM6jBdEwNLs9qKd9f8Dbar7LHF7QAsbanW
+        jrN86CdF0LUlQN8rMOnzzf+EzUY77PE4Af1gjunv9H+a+ggUuPLI2G9/EMAjzgBAxkcnqeBQZ5vFsIwA
-        5/x/E2UhyNysYrLffKcAtyhRAJP3DnLB4c42jk4i7+gfRUu3CdqmLmh9SYC+DOZbqzGV64ype4cxXRGC
+        1OgfUULYI4EwgA/9WD20DzZhocQFCzW+0DVFIDX6MD763A152enQDxVAV+OL+WIXLGRvgqbCG3kufDL2
-        +PDdePNdF6SnJMLSnolpej6ZQ/MpqzFR4Il0Zxsm++13CVjhGlXE/NC1m1DfbkQdQdvGGIS2dRCVTX34
+        ux8CWO8eV8UCiIaU6BxSoGNIAeEgaRLCgUk094zjcVM/Wv/Lh360Ggt5m6HL/QwLrDYj7Ywd/vz3T5Cf
-        pqIF1f8mAb3FmEpfg+m0f2BKwBokHLXHS395GxmJkZi+6yE8m0qnOcJE/l6kfiTswO/mEiAUou2h2Xk7
+        HgvdIy/2bwt5n7HSlB9Fzi52BX5vDYAtRPsji0oPXq7EgegKuEWXY39UGfZGlmJPRClcw0vgElqEnWcz
-        zxRiR3gBXOgysT3sDraG5mFLSB611lw4B2Zjw7EbqDysgqWnANNZ7yvgtv7PsH3tLZw6FUDef4zpbGmO
+        0ezLg15aAV3hVgt5bP8bbN7/GBcvhkBX8yV0Rdyzoq3QlHsh25ldgT9YA2DPhNxtho7RdI6joxR1MTpQ
-        fifyPZDyobADv59LADcIbhT8NcPXaL7H8VWKuxhfKBi/JLD6VeVeJKArB5ZcJ0wzcpxgIax6xRar3nof
+        kH7F0W9s8OFBLymGvsQROlKxI/TFjtj4Fxts/HgrHPZ6Q98SDl2xA3QlDuxzbbkHspxYgHfZW9UiACME
-        jls9YakKpueONE+gOXO+G5I3CgL+QFj8uAA2FsE7wUK4XMqQP8kY3NdfLPW0AToyYLnzIWGj9EsoIDRd
+        rYTxKmaU8UpGor7+Tp03HxDnQ1/mDH2ZE/fpDH2FM/Q9ycDAXfaTnqHMGbriHdCWuSNzx4aXAixnUK7w
-        AVqvCb88B3o+nfMBzHdcceODld8rYD7GuWJzb69q2JDnD3OhO8yZjgQnTGQR+O8sHjsKf1vHtz9C55X3
+        a47ypuSlwdBWekJb4ABtgSM0hY7Q0PdC+u3Afjf9frgLw8lf4K7jBjW3DS3rwHLEDTZXvt6+ZneFO2+8
-        cM1p5Si9z8dQWQfmA8mEXPls/dJNBa6qvkJXFfJ3qpDnosLtbSpk0THL/JcK6ZtscIsSLoW2/OYGG/Lc
+        0p2H8oM8lLrx8HAfD4WuPBT8h4e83Xw82MVDthMf93fykbmDT8ZVp+3WHDZdVBYbWErcMM8VmsiYI5Qf
-        hsmHjtgv3U3vix8qc5F8HySbnSu8kJwjnB9c4dg7Pud81DhfOOF4yxk8x+/w/VDZjOYDyVjA7FyZnR8M
+        VOHIO9rntNUoXyjhaMlJ9IzeofOhZTNajswAzHPFPD/Mr+7moms8iZ7TO3QgWfF/d9LPh1Zne6oAAAAA
-        +dN9NvgznsHz/A5dSJ5Y8D930s+Hgv+wEAAAAABJRU5ErkJggg==
+        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+
+        vAAADrwBlbxySQAAAM5JREFUOE+lk80NhCAQhS1lS7AG7xTgbUvxRBXc7cIWLMQDt3edzXMZwiqDbpzk
-        Dwv+k4BjIKK/9PookXP2rMSiKoyRGzF/CeBF27qu5JwjY0zRPM8N8gBEBfCkh7kZoRCCNJdOrgBJVn43
+        EQJ53/wQOhHpnui7GAFgAhABSBL3PHvxvgkAsC7LIuM4yjAMu0IICnkTYgKYhWY1Ut770rxX0gLEMvPR
-        t05UQIxRq54wRo7HbL0JaJBmhlQAT0yYtNbuAFLYHro5AKq5t6kJB8zr9oeomWUnqFzNGzwdwInxzIx/
+        rJWYgG3brOyRe55xJrcBClFzEwCg56Vz7gRRsb1qC8mcy7TEAZ+GaJnLSpg5mVd6MoBvWjOn4ZXan08r
-        zkuV6ysVOSTAL8tyZoZhqusPsQPgbr8xIySgbAFdQHfMiA5AVAgeSn8sn6IDfhcNT8nYEsuIPk+EAAAA
+        LgHTPM81Mw197vEQPwC+7T9mxqkFVkHdMTOOQySEHyV/lqvIgCf6AMnYEsuFQTeyAAAAAElFTkSuQmCC
-        AElFTkSuQmCC
 </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
+        vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
-        D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4
+        vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
-        sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA
+        wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
-        cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg==
+        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
+        vAAADrwBlbxySQAAALJJREFUOE9jYCAAvn37ZvDt27f33759+48No6tHATDNbW1t/52cnDAwigHoJsMw
-        zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
+        SHNzc8v/D+8/omCsBqDbAMLImmFieA1AtwkXpp4ByP4l2wB0f+PD2Aw4n5+fj6EQFz565CiGAQ3Lly/H
-        3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
+        UIgL9/X1YxhgcOXKFQyFuHByUjKqAdAYeB8ZGYmhGBe+dfM2hgHzcSVXbHj9uvUYBiTs27cPQyEhjGyA
-        CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
+        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
+        vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
-        Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE
+        bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
-        8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH
+        05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
-        4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ
+        w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
-        y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8
+        FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
-        htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh
+        43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
-        Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR
+        ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
-        swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU
+        IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
-        JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
-        H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
 </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
+        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAFwSURBVDhPY/j//z8DJRhDgFSM
-        ICkYqyApGKsgKRhMdMzZ4QvEC4H4cf3UjY9LO5cvTK+d5UtIDmwAUCJ04eZTz68/fPv/L1Dk4/f//7cf
+        IUAqxhAgFWMIkIrBRMecHb4dc3Ys7Jiz43H91I2PSzuXL0yvneVLSA5sQMecHaELN596fv3h2/9/////
-        ufG/uG3R87zmhX245Dzi60NhBmy69+zT/8LmOYcEtXyv6LimX5m0/PCjRVsv/5+1/syv9QduAenTnyWN
+        //H7///bj9z4X9y26Hle88I+XHIe8fWhMAM23Xv26X9h85xDglq+V3Rc069MWn740aKtl//PWn/m1/oD
-        Q66B5GonrD60cOPp/xZBRZtgBnwBMv5zq3ne13BM1pq3+dJZEP/7v///n338///K41//j1///J9fy7c3
+        t/7PWn/6s6RxyDWQXO2E1YcWbjz93yKoaBPMgC//////z63meV/DMVlr3uZLZ0H87//+/3/28f//K49/
-        LK9Xq2nG9vvHr73/r+mcAtLHwAD016bT1579z2+aewio4Er9tC1X+DR9fnOquP+HYV2XlGcwuSnLjxzq
+        /T9+/fN/fi3f3rC8Xq2mGdvvH7/2/r+mcwpIHwND/dSNm05fe/Y/v2nuobC83iv107Zc4dP0+c2p4v4f
-        mLPzv4x5BMQFpV3LQ5umrn++csf5/yeuvf6/+/TT//VTN/+3DCp+7pPS3IdLDuhdSBiAiIj8Xl+PhPqF
+        hnVdUp7B5KYsP3KoY87O/zLmERAXlHYtD22auv75yh3n/5+49vr/7tNP/9dP3fzfMqj4uU9Kcx8uOUEt
-        QH891nROfgw0faGgji84pPHJwQ2gBGMVJAVjFSQFYxUkHv9nAAD1UMkwC2hGngAAAABJRU5ErkJggg==
+        X0gYgIiI/F5fj4T6hRZBRY81nZMfy5hHLBTU8QWHND45uAGUYAwBUjGGAKkYQ4BUDAD1UMkw9LweUAAA
-</value>
+        AABJRU5ErkJggg==
-  </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=
 </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
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIBSURBVDhPpZFPiBJxHMWNcYO2UzcJIvaQ4EFIL9HF
-        mjONC/UlunmuguiJpbYwq9EUSsFZCAYq6CoXrUTQVoXGGGhuIrKVhYs3gxQhRRo0jTaZp/+6eJU8COmH
+        yd3Vg38SvYynIFIsZzqYtas5sCm4B8FABT3loZMI2mnDiTXQvERkJwsPs4sUIUUatKVt5ovvHmRj7CD9
-        Dy7nnnP+qwLwXyiKi6AoLoKiuAjyYDAYjnq93luJRGJQKBQQjUZ7fr//LGOFzRJptCMPef8q0Ov1h202
+        4MGX9/28xxd+KgCq/5HCWFQKY1EpjEU1G0wm0+lgMHgvmUwOisUiRFHsCYJwSRAEjSiKMnm0I4bYvwqM
-        WzKdTqPf70OSJDQaDcRisZ1IJNLsdrtj0lqtFshDXsrIBTqd7mIwGPzS6XQGLpfridVqnbjdbmQyGYTD
+        RuNJh8ORymQy6Pf7kGUZjUYD8Xh8LxaLNbvd7pi8VqsFYoilzKzAYDBcDYfDXzudzsDr9T612+0Tv9+P
-        YdBMGu2KxWKPvJT584JkPB4fZbNZj91uXzYajV/r9Tra7TaazSbK5TJIox15yEsZuUCr1V7zeDzDXC53
+        bDaLaDQKmsmjXalU6hFLmeMXpBKJxCiXywVcLtcyy7Lf6vU62u02ms0mKpUKyKMdMcRSZlag1+tvBQKB
-        0+l01kwm04HZbIbD4ZhBM2m0Iw95KSMXnGaP5/m3qVRqWCqVPlcqFeTzeQQCAYRCodlc3fLimXDy5/ba
+        YT6fv+vxeCSz2XxotVrhdruPRDN5tCOGWMrMCnQ6nc7pdL5Lp9PDcrn8pVqtolAoIBQKIRKJHM217SCe
-        Eh6Zlw8emo7clws0Gg3HTjxjsVh2RVHc8/l8I8Z3QRAuMdZzl83j18FzGD1OYfqmim/FG3jp006erquv
+        c+d/764u4Yl1+fCx+dTDWYFWq2VYlr1os9n2fT7fAc/zI57nf3Icd43juLX8dev4TfgyRjtpTN/W8L10
-        zwr+Re0CJ+2zMDI8sHkM2FrFp+R5MH1HMTDP9pp6On1VYePvN7y7AtIVA/PUNrh3ew+uACw0vq3CgNG7
+        B694/eTZmvq24l/nSVpn5B87aSDrBDbPANsr+Jy6Ammd2VPA87S7qp5OX1dx/A23NCBfAc+TZGHeHzy6
-        yoHp7xUD8zwXjt97IZ768WFzFR/DS5DEQ6jz6kl1g7ujGFCiJZwIsR936Wy6iMIAVL8AJPOUchRWzukA
+        AWxpMN5QYbChQu8mA8nCfFDA8/SCO/vgpe/Cr4+bK/gUXYLsO4G6Uz2pWZj7CvhfanHnIpKF2aez6SIK
-        AAAASUVORK5CYII=
+        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
+        vAAADrwBlbxySQAAAD5JREFUKFNj+Pbt239kzEAIgBQ5OTmBMbpmbBisAaYJmY0N49SAD2NoQHcyBsAw
-        gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
+        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
+        vAAADrwBlbxySQAAAIdJREFUOE+lkUsOgCAMBT0bexJuwpFloW7Yv21NkZpqjdpAMkAeZcJnIqJpBBN4
-        sKGEb/oZKSWb8RkgcG+xthTgwRgjOOdAa13APWZYawIys/TNvSTX/CCYD/UYY+C+nkLNsOdIEEIYBVXS
+        MYEXE3g5upcGIAGYAVCH54nXPgVcWGulnDOFEBo854zXToGyG/RmLeGTXAT3Ik2MkdZla0jGe4YEpZSr
-        r8jWFejBWmNdM3uPWAUzlK+/8QQ2lMCGEthwH1AvkxW67ZxkSbQAAAAASUVORK5CYII=
+        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
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABWpJREFUWEfFll9MU1cc
-        x9siUBhoZQcHKCAlA2TYWnYoUHZoacu+BwhL2VogrLLvTciMcR4mMRGMxolL4jJPk8zLxJd5caLxASf6
+        x8+9d7RXpHSWYsssII4SxdhaW68t/V/wtlBqWwtSUBpq+FMol0KDWEZtqaCSNLpsD0uWDJctM/uT7I9P
-        MMZRY6JIIqNONJTr/35JSefr/RxIDJL8Avy/c+8599xzzveJCCH/K0zxImGKF8npH93d3eLd3d3Ivb29
+        Jr6Yvfgys2UPzmwPLnNblmyOZLrNbBHOcpqUwLktarKxh0/afH/fc+7v/s45v3sAhBD8n/CEzYYnbDar
-        3eXl5V8WFhYOV1ZW9ldXVydyc3MDnBedl+npaY+tra2g4eHhiKSkpJfc3Nx8HM9OjVpaWi4NDQ29Asf2
+        f8LhMLG4uFhz+fLlxXQ6/UsymVyanZ29nclk4kajsQIf+CxMTU0Jzp8/XxmNRqtVKtULFEWV5WOrpu7u
-        tbU1AsdkaWmJbG5ukt7e3g+Tk5PVWq1W4rA/C3AoHR0dTcI+q+Cb5ubmX5VK5R0EoHPYnBrX1dV5pqen
+        7q0jIyMvJZPJ5bNnz8JMJgNTqRQ8d+4c7O/v/1CtVuscDgeJT74R0WiU5jhOlUqlMqlU6ptgMPirUqm8
-        D42NjR3v7OwQGgQNYHFxkQvCarU+rq6ubs3IyHhuEHAqHh8fvzo7O2vDXkdzc3MkKyvrc7FY3C8Sibyd
+        RlFUOy+BQCAgPHjw4Mj4+PjjbDYLURIogTNnzuSSiMVi99xudw/DME9MguM4YmJiYl8ikVjIZrMPpqen
-        bZ9ZKJVKI/M1mk+w8Nhms5Ht7W2yvr5ONjY2OCYnJw8KCwsHPT09T1PIZ2RkJBDBmhH8Q7q+vb39MDg4
+        oV6v/5wgiEEAQOla77qBNE3XmC2WTxKJxOOFhQV44cIFODc3B+fn53NMTk7et9lsw0KhcLWEOKOjo9JY
-        +FU4VrDsXQSZTK7QG00r/QPmB4jcTgOhGcA9kvn5eZoJolarb8jl8lD+Wpw8a2Bg4BZOT5B+euovJRJJ
+        LBZJpVJ30PgTJ04sbd++/WUAQC3u5SWAKC8X13p8/tnBocit6enpZZQIqsDU1BScmZlBlYA6ne5VsVgs
-        C5yL+bYOmCJFb6xPqG9oslms1u9QlNyVTE1NkZmZGS6IvLy8DxQKRSS1nZiYkPb39/c1NjZ+1draSoxG
+        x8dyHKcfGhq6MjExAaPRKHrrL0mS7AYAELi3aAJ5PL6Oxo7OroWxWOy7dDqdW5JTp07B06dP55IwmUwf
-        I4mKivoIjlX8ffkwRQd6Q527zmCqMJpM74yMjh7jCojZbCZdXV2kra2NFBUVvWcymbT4/1pZWdkfVVVV
+        1NbW1iBvPB6nBwcHB44dO/ZVT08P9Pl8cOfOnR8BALT4vDg8YV0S3kBJu9fv8vn974xy3OPJyUkYiURg
-        pLi42B4aGvo6nF9m7cmHKfLJzcsLLNRqNxDIE+q8oaGB1NbWkvr6ejsK87FGozlBACQnJ+eJv7//MtL+
+        X18fPH78OLTb7e/5/X5HX1/fRZZl/2hra4PNzc3Lcrn8dQDADny+QvCEQhhNJqnN4Zj3+f0P0cM7Ozvh
-        ImsfFkyRhSojwztWqTSr1ap9nJJUVFQQOCYqlYo6JmjThyjObpxcylovBFMUAvNAkp2dU5KamvotCowW
+        0aNHYUdHx7Lb7b5nsVhWWJaFTU1NDyUSSZokyefxOYrBE4qhZZjSeqUyotNpbzc3N0OXywUtFgvUarXo
-        IxdAZmYmCQ8P/xjIWev+DaYoBIaULybmDpw/pQFUVlYSeu80A5gPvyMYi6+vrztrrRBMkYXFYgmD87cK
+        wVCtVt8RCoVhAACNj90InrAR/f39pMHQ1KLRaL7V6/VoM+YSOHToEFQoFB8rFAoxPuZJ8ISNSCaTonA4
-        Cgr+ys/PJzU1NbQTfkYWHtEgqJadnX2A9jydcmeBKfJBf0d2dnbehsMTvBdo8dEOOPTw8OjDdLuK+7+r
+        nNXr9Y9QAq2trRCtO6oAwzC/a7XaMZFIVIKP2wieUIyxsbGqcDj8ltVq/ctsNsMjR46gk/CzTqe7i5JA
-        1+tPaE1g1j/AQItg7cOCKTqDHr/c09NzGxOQSzUcEVT8U6R6HQXHpRuBvAzHdwwGwwm9lsTExNfQCc+M
+        msFguC8Wi1e73NPAEwrBcVxNKBS6ajKZVoxGI9p86AQsCQSCAYIg9qnV6usej2cF7QmVSnWLpulqfI5i
-        XCGYogOcXI6+f7e8vJwg9USn0xH8fRIUFPQGnF9ytsULJjotLe1uU1MTKSkp+Q1XYXB+LgRTpCDlUji/
+        8ASceDy+4+TJk1dtNluu1B6PB7Is+0gkEs0BAHLlFggEL6pUqmter3cFLcvevXtfIUlyXcstBk9YC8dx
-        jlPZkW6u4Oi9R0dHfwrn4aw1CCIBdfAZHVLolHu4niCWnTNMkYJXb3dHR8eftOdLS0u51OOuf4STIpa9
+        4kgk8q7T6YRWqxW2t7dDp9O5UllZ+QYAYOtaL0VRdQcOHLje1dUFW1pafhOLxV58vkLwhDyhUIiORCKX
-        Ay8vrwIE+z29DgwlC8vGGaYYEhJyBYNmH5vQ0cqlnk469PmbLHs+gYGBQxjRf6M1v0AtMLPlgCnGxsbO
+        vF7vst1uz204tO51dXWfAgAUuB9BUVSjwWD4DDUpjUZzgyCIStyDwxPyOByOcG9v75/ozB8+fDhXerVa
-        0kqnp6YTj/7GZj9FRERoWPZ84FQaFxf3Nr4xiJ+f3wDLxoGLgBZSoKfvoQa4txoNANdBEhISbsXExLjx
+        /SNFUXbcu5YtW7ZYW1tbv0fLIZFIxvA4Dk9AyGSy3S6X67bX60WtNVd61OkUCsWbuLcQUql0xO/3/80w
-        7YXAPnEo2EeohfsISHBCughIXzU+nY76+voIPQFeNiQlJeVAJpOV8W2fB65yDFd3hFooYT2nuAhY1ILi
+        zBckSRasVh6egKivr0+gnY7eGnU89MswzE/V1dUW3FsIkiTphoaGtwOBANy2bdsQHl8LT6BputZsNt8I
-        sw8ODhIEQtuOpvF9nELwK0gId3f3UAyu+/gOvM56TnERfHx8EHTZIc0AfeXGx8f/AOdVfLuzgB+Jt7d3
+        hUK5rxpKwOFwwMbGxiu7du2icH8xaJpucDqddzUazU2SJIt2SJ4glUrdwWDwwcDAAERv4Ha74f79+++X
-        c0BAwE28KWVMGxdBJPLFB8U8+vnrsLAwWsVWaGeaaiwwCzxAOPbwZD13EThRJHoBKMEVcK6323lhig7w
+        l5ezuPdJyGSycZZlH0gkkhY8locnyGSy7t7e3uXh4WEYDAbRsUNlfJ8kyaK3oGKUlJTIjUbjTaVSeQmP
-        I/gx+V/BFC8SpniRMMWLg4j+AZFhAokn1Yy0AAAAAElFTkSuQmCC
+        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
+        vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
-        D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4
+        vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
-        sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA
+        wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
-        cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg==
+        jQxf0w+v3zQAAAAASUVORK5CYII=
 </value>
   </data>
   <metadata name="TimerFileHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -735,13 +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>17, 54</value>
+  </metadata>
+  <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <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>
@@ -766,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
+            RECORD_ID = JUMP_ID
-            recordView.LoadRecord(JUMP_RECORD_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
+        If JUMP_ID <> 0 Then
-            JUMP_RECORD_ID = 0
+            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.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
-            Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
+            '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.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
-                newUserRow.Prename = row.Item("PRENAME")
+                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.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
-                    newUserRow.Prename = row.Item("PRENAME")
+                    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/DD-Record-Organizer/frmWM_IndexFile.vb

@@ -33,7 +33,7 @@ Public Class frmWM_IndexFile
 
     End Class
     Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean)
-        Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text)
+        'Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text)
         Try
             CURRENT_DOC_ID = Nothing
             Dim odeleteRights As Boolean = True
@@ -47,7 +47,7 @@ Public Class frmWM_IndexFile
             '#################################################################
             Dim sw As New SW("GetUse Nameconvention ID: " & DOCTYPE_IDTextBox.Text)
             If ClassImport_Windream.Name_Generieren(DOCTYPE_IDTextBox.Text) = False Then
-                swWORK_FILE.Done()
+                'swWORK_FILE.Done()
                 Return False
             End If
             sw.Done()
@@ -63,7 +63,7 @@ Public Class frmWM_IndexFile
                 result = MessageBox.Show(msg, "File already exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                 If result = MsgBoxResult.Yes Then
                     If WMMOD.RemoveFile(CURRENT_NEWFILENAME) Then
-                        swWORK_FILE.Done()
+                        'swWORK_FILE.Done()
                         Return False
                     End If
                 Else
@@ -111,15 +111,12 @@ Public Class frmWM_IndexFile
                     sql = "SELECT * FROM VWCUST_DOCTYPE_CONFIG WHERE DOCTYPE_ID = " & vDokart_ID
                     Dim DTVWCUST_DOCTYPE_CONFIG As DataTable = MYDB_ECM.GetDatatable(sql)
                     If Not IsNothing(DTVWCUST_DOCTYPE_CONFIG) Then
-                        For Each oRow As DataRow In DTVWCUST_DOCTYPE_CONFIG.Rows
+                        If DTVWCUST_DOCTYPE_CONFIG.Rows.Count = 1 Then
-                            If oRow.Item(0) = "DELETE_RIGHTS" Then
+                            odeleteRights = CBool(DTVWCUST_DOCTYPE_CONFIG.Rows(0).Item("DELETE_RIGHTS"))
-                                odeleteRights = CBool(oRow.Item(1))
+                        End If
-                            End If
-                        Next
                     End If
                 Catch ex As Exception
                     LOGGER.Warn($"Unexpected error in VWCUST_DOCTYPE_CONFIG Area: {ex.Message}")
-
                 End Try
 
                 Dim indexierung_erfolgreich As Boolean = True
@@ -129,7 +126,7 @@ Public Class frmWM_IndexFile
                     err = True
                     ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing Doctype '" & WMINDEX_DOCTYPE & "') - Check logfile!")
                     sw.Done()
-                    swWORK_FILE.Done()
+                    'swWORK_FILE.Done()
                     Return False
                 End If
 
@@ -138,7 +135,7 @@ Public Class frmWM_IndexFile
                     err = True
                     ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing AddiRelation '" & WMINDEX_RELATION & "') - Check logfile!")
                     sw.Done()
-                    swWORK_FILE.Done()
+                    'swWORK_FILE.Done()
                     Return False
                 End If
 
@@ -213,7 +210,7 @@ Public Class frmWM_IndexFile
 
                         Next
                         If err = True Then
-                            swWORK_FILE.Done()
+                            'swWORK_FILE.Done()
                             Return False
                         End If
 
@@ -222,7 +219,7 @@ Public Class frmWM_IndexFile
                         'Return False
                     End If
                 Else
-                    swWORK_FILE.Done()
+                    'swWORK_FILE.Done()
                     MsgBox("Attention in Work-File:" & vbNewLine & "No indices were defined (0)!", MsgBoxStyle.Critical)
 
                     Return False
@@ -324,18 +321,18 @@ Public Class frmWM_IndexFile
                     End If
                 Else
                     MsgBox("An unexpected error occured while indexing file. Please check the log!", MsgBoxStyle.Exclamation)
-                    swWORK_FILE.Done()
+                    ' swWORK_FILE.Done()
                     Return False
                 End If
-                swWORK_FILE.Done()
+                'swWORK_FILE.Done()
                 Return True
             Else
-                swWORK_FILE.Done()
+                'swWORK_FILE.Done()
                 Return False
             End If
         Catch ex As Exception
             MsgBox("Unexpected error in Work-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            swWORK_FILE.Done()
+            'swWORK_FILE.Done()
             Return False
         End Try
 

app/DD-Record-Organizer/packages.config

@@ -3,7 +3,6 @@
   <package id="BouncyCastle.Cryptography" version="2.5.0" targetFramework="net462" />
   <package id="DocumentFormat.OpenXml" version="3.2.0" targetFramework="net462" />
   <package id="DocumentFormat.OpenXml.Framework" version="3.2.0" targetFramework="net462" />
-  <package id="GdPicture" version="14.3.3" targetFramework="net462" />
   <package id="GdPicture.runtimes.windows" version="14.3.3" targetFramework="net462" />
   <package id="Microsoft.AspNet.WebApi.Client" version="6.0.0" targetFramework="net462" />
   <package id="Microsoft.Bcl.AsyncInterfaces" version="9.0.0" targetFramework="net462" />

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,22 +135,28 @@
 			<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="DigitalData.GUIs.Common" Name="DigitalData.GUIs.Common.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Logging" Name="DigitalData.Modules.Logging.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDWindream" Name="DigitalData.Modules.Windream.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Database" Name="DigitalData.Modules.Database.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDConfig" Name="DigitalData.Modules.Config.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Windream" Name="DigitalData.Modules.Windream.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDBase" Name="DigitalData.Modules.Base.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.Patterns" Name="DigitalData.Modules.Patterns.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll"  KeyPath="no" Checksum="yes"/>
+        <File Id="DigitalData.Modules.Config" Name="DigitalData.Modules.Config.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll"  KeyPath="no" Checksum="yes"/>
+				<File Id="DigitalData.Modules.Base" Name="DigitalData.Modules.Base.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="Messaging" Name="DigitalData.Modules.Messaging.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" />
 				<File Id="Microsoft.Office.Interop.Word" Name="Microsoft.Office.Interop.Word.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Word\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Word.dll" KeyPath="no" />
-        <File Id="InteropServices.RuntimeInformation" Name="System.Runtime.InteropServices.RuntimeInformation.dll" Source="System.Runtime.InteropServices.RuntimeInformation.dll" KeyPath="no" />
       </Component>
 
 			<!-- MAIL.NET Bibliothek -->
@@ -164,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>
@@ -174,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" />
+        <File Id="GdPicture.NET.14.MSOfficeBinary" Name="GdPicture.NET.14.MSOfficeBinary.dll"/>
-			</Component>
+        <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">

app/packages/GdPicture.14.3.3/License.md

@@ -1,199 +0,0 @@
-\======================================================
-
-**GdPicture.NET 14 End User License Agreement** 
-
-\======================================================
-
-**1) INTRODUCTION AND DEFINITIONS**
-
-1.1. This Agreement is a license agreement between you and ORPALIS (the "Author") for the use of the computer software development kit (the “SDK”) you have purchased or downloaded for evaluation purposes ("GdPicture.NET" and/or “DocuVieware” at current major version).
-
-1.2. We, ORPALIS (the "Author") reserve the right to modify at whenever required time, the content of this Agreement (“Agreement” or “EULA”).
-
-1.3. You accept this Agreement by clicking the "I accept" button where this option is made available to you by us, ORPALIS (the "Author") in the user interface regarding End User License Agreement (EULA) of our products.
-
-1.4. By using GdPicture.NET products (including DocuVieware), either by evaluating or purchasing it, you agree to be bound by all the terms and conditions of this Agreement.
-
-1.5. This Agreement is the entire agreement between you and us, ORPALIS (the "Author") and supersedes any other communication or advertising with respect to GdPicture.NET and related products. If any provision of this Agreement is held invalid, the remainder of this Agreement shall continue in full force and effect.
-
-1.6 “User” and “End User” means a person or an entity that installs or uses the SDK or Documentation.
-
-
-**2) EDITIONS**
-
-2.1. GdPicture.NET SDK is a Software Development Kit (SDK). 
-
-DocuVieware is another Software Development Kit (SDK) having a dependency on GdPicture.NET SDK.
-
-2.2 Both software are bundled into the same Software Package (or installation kit).
-
-2.3 Each GdPicture.NET SDK developer license includes a DocuVieware developer license. In other words  DocuVieware development licenses are bundled with GdPicture.NET SDK (see 3.3.1).
-
-
-**3) DOCUVIEWARE**
-
-3.1 DocuVieware is a universal HTML5 Viewer and Document Management toolkit, a standalone product whose licensing rules are stated as below.
-3.2 DocuVieware licensing comprises:
--DocuVieware development-licensing, and
--DocuVieware distribution-licensing.
-
-3.3 DocuVieware development licensing
-3.3.1 DocuVieware development licenses are bundled with GdPicture.NET SDK and, therefore, are subject to all GdPicture.NET regulatory amendments, as specified below.
-3.4. DocuVieware distribution licensing
-3.4.1 In order to distribute your works that relate to DocuVieware, you will need to license distribution rights.
-3.4.2 Distribution licensing concerns the rights to distribute your DocuVieware-based works and does not regulate your DocuVieware nor GdPicture.NET development rights. 
-3.4.3 DocuVieware distribution licensing is Server-based.
-3.4.4 The term "Server" with regard to DocuVieware distribution licensing is defined by us, ORPALIS, as a physical, or virtual machine, or computing device on which you have installed DocuVieware software in order to deploy and provide your DocuVieware-based works to your customers.
-3.4.5 Server may have up to 4 vCPUs (or cores). IE: distributing DocuVieware on a Server having 8 vCPUs (or cores) require two deployment licenses.
-3.4.6. You may distribute your unlimited works based-on (or linked-to) DocuVieware, on a Server once you have acquired a Server deployment license.
-3.4.7 Each Server deployment requires a distribution licensing.
-3.4.8 Unlimited distribution rights licensing is available solely upon direct negotiation.
-
-
-**4) EVALUATION LICENSING**
-
-4.1. “Evaluation License” allows a User to fully evaluate the SDK during an evaluation period of sixty (60) days from the date the SDK is first used.
-
-The evaluation license key unlocks all features of the SDK for sixty (60) days.
-
-4.2. The evaluation license is provided for evaluation purposes only, not for production use.
-
-4.3. Evaluators requiring an evaluation period beyond the initial sixty (60) days can contact us by creating a sales support ticket.
-
-4.4. Evaluation license usage is prohibited to develop/maintain an application already covered by a commercial GdPicture license. For example, if a developer is joining a team assigned to the development/maintenance of an application linking GdPicture under a commercial license agreement, this developer must have its own valid commercial license.* 
-
-
-**5) COMMERCIAL LICENSING**
-
-5.1. Three different license types are available for each of the GdPicture.NET editions:
-
-a) per-developer license:
-
-Based on the amount of seats purchased - this license type entitles 1,2,3,4,5 or 6 distinct Users and/or build machine(s), of the same organization at a single physical address to write software with access to the SDK..
-
-b) site license:
-
-This license type entitles an unlimited number of Users and/or build machine(s) of the same organization at a single physical address to write software with access to the SDK.
-
-c) Worldwide license:
-
-This license entitles an unlimited number of Users and/or build machine(s) of the same organization at an unlimited number of physical addresses to write software with access to the SDK.
-
-5.2. The use of the SDK requires one license for each User within your organization who will launch the compilation process of any application linking the SDK. For example, if your organization has 3 developers, 2 of which will work directly with the SDK and another one will not work directly with the SDK but will nevertheless launch the compilation process of a project linking the SDK, you will need to purchase 2 + 1 = 3 licenses.
-
-5.3. Licenses are non-transferable between Users. Therefore, if a company has "x" Users who will use the SDK, the company requires a "x" Users license purchased according to paragraph 5.1. above. The same provision applies if, for example, the Users will not be working with the SDK at the same time.
-
-5.4 You are forbidden to disclose your license key(s) to third parties.
-
-5.5 The same license cannot be used by two different companies.
-
-5.6. You are not allowed to sell the SDK or your license key(s) to other persons or entities.
-
-5.7. You are prohibited from disclosing your license key(s) to other persons or entities.
-
-5.8. You are not allowed to disclose your license key(s) on the source code of a web page.
-
-5.9. You may not rent, lease, sub-license, or transfer the SDK, SDK copies, documentation, license keys, or your rights under this license without the prior written consent of ORPALIS (the "Author").
-
-5.10 Any owner of any application linking the SDK must own at least one commercial license. For example, if a company X is owning the intellectual property of any application developed or maintained by another company Y, both companies will have to own their* own licenses.
-
-
-**6) USE OF THE SDK**
-
-6.1. You may not alter, decompile, disassemble, or reverse engineer GdPicture.NET products, including DocuVieware.
-
-6.2. **GdPicture.NET SDK may not be used to develop software toolkits, API, libraries, components, command-line software, REST API, or any kind of third-party software, except as authorized in writing by a duly authorized officer of ORPALIS. This includes internal usage.**
-
-6.3. Binaries of legally purchased SDK may be embedded in any application or system developed by you or your organization as long the SDK is covered by an active SDK maintenance (see 9.4).
-
-6.4. You may modify the source code versions of sample files, if any, included with the SDK for the purpose of creating your own application(s).
-
-6.5. You may not remove or alter our copyright notices.
-
-6.6. You are not allowed to use our name, logo, or trademarks to market your application without our prior written consent.
-
-
-**7) GDPICTURE.NET SERVER AND WEB DEPLOYMENT**
-
-7.1. This chapter is not related to DocuVieware distribution licensing nor to DocuVieware-based works deployment.
-7.2. This chapter concerns GdPicture.NET SDK only.
-7.3. No extra fees are charged for GdPicture.NET SDK server deployment.
-
-7.4. GdPicture.NET SDK may be used on any server, as long as access to the functionalities of our components is done via your own software and into your own machine. In other words, the public should not have direct access to GdPicture.NET SDK binaries or key.
-
-7.5. GdPicture.NET SDK may be installed on any third-party hosting server as long as each developer using GdPicture.NET SDK has its own license key.
-
-7.6. GdPicture.NET SDK may be installed on a shared hosting server, provided that each customer accesses GdPicture.NET SDK with its own license key.
-
-7.7. GdPicture.NET SDK may not be installed on a hosting provider's server with a single license key used by all the hosting provider's customers.
-
-7.8. You are not allowed to publish web applications, using GdPicture.NET SDK on the client side.
-
-
-**8) REDISTRIBUTION**
-
-8.1. No royalties are payable for the re-distribution of the SDK.
-
-8.2. Binaries of legally purchased SDK can be distributed with your application (desktop or server) on a royalty-free basis. This means that you can distribute as many applications using the SDK as you wish, without restrictions or royalties, as long the SDK is covered by an active SDK maintenance (see 9.5).
-
-8.3. Redistribution of the SDK is granted during a period of twelve months following the acquisition date. A separate maintenance contract is required to extend the redistribution rights beyond the twelve months period following the acquisition date. 
-
-8.4. You must distribute your application(s) under a written agreement that prohibits reverse engineering, decompilation, or disassembly of the applications(s) and clearly require from the customers of your application(s) to abide by the previously stated conditions.
-
-
-**9) SDK MAINTENANCE**
-
-9.1 The SDK is sold based on a yearly subscription model. An active SDK maintenance is required to install, use, or distribute the SDK.
-
-9.2 An active SDK maintenance is automatically granted to owners of a commercial license during a period of twelve months which starts at the acquisition date. A separate annual maintenance contract (Annual Maintenance Contract (AMC)) is required to extend the SDK maintenance beyond the initial twelve months period.
-
-9.3 An active SDK maintenance is required to install the SDK binaries for development purpose.
-
-9.4 An active SDK maintenance is required to develop/maintain any application linking the SDK.
-
-9.5 An active SDK maintenance is required to redistribute or allow installation of any application linking the SDK.
-
-
-**10) TECHNICAL SUPPORT**
-
-10.1. ORPALIS supports only the latest SDK version in a continuous integration model. This support includes bug fixes, new features, new minor and major versions, and any form of enhancements.
-
-10.2. Technical support is available to Users owning a valid evaluation license or owning a commercial license under an active maintenance.
-
-10.3. Each developer with a maintained license is allowed to open up to 10 tickets for a commercial license and up to 5 tickets for evaluation. Additional support plans can be purchased separately.
-
-10.4. Before creating a support ticket, you have to make sure that you are using the latest available version of the SDK.
-
-10.5. Technical support is provided for the problems which you cannot reasonably be expected to resolve by yourself. This includes any bug proven to be related to our product but excludes any code writing for your own applications development. It also excludes issues described and published in our online wealth of resources: online guides, online forums, knowledge-base, and FAQ page of our website.
-
-10.6. Response time depends on the complexity of the reported issue and/or the completeness and accuracy of provided information for investigation/reproducing purposes (code snippets, files generating the issue, hardware/software environment information, and so forth).
-
-
-**11) RECORDS AND AUDIT** 
-
-Users of a commercial license must maintain complete and accurate records relating to their use of the SDK including, but not limited to, copies of all agreements relating to the disclosure of the SDK in Source Code form.
-
-Users must permit ORPALIS or its independent auditors to access, review, and copy such records upon the ORPALIS’s reasonable request, to determine the User’s compliance with this End User License Agreement. 
-
-ORPALIS may request that a User provides information regarding all developers using the SDK.
-
-Users shall respond to each request completely and accurately within thirty (30) days of the date of the request. Notwithstanding the foregoing, a User is not obligated to disclose confidential information of any third party in connection with the audit and may redact any records solely to the extent required to satisfy its confidentiality obligations to third parties.
-
-
-**12) WARRANTIES AND EXCLUSION OF WARRANTIES**
-
-ORPALIS represents and warrants that it has and shall have full right and authority to enter into this Agreement and to license the SDK and other technology to you, and that it shall use its best efforts to provide SDK, support, and maintenance in accordance with all terms of this Agreement, in a good, timely, efficient, professional, and workmanlike manner using (i) then-current technology, (ii) ORPALIS employees and agents who are fully familiar with the technology, and (ii) at least the degrees of accuracy, quality, efficiency, completeness, timeliness, and responsiveness as are equal to or higher than the accepted industry standards.  
-
-EXCEPT FOR THE PRIOR EXPRESS LIMITED WARRANTIES, THE AUTHOR MAKES, AND YOU RECEIVE, NO WARRANTIES, EXPRESS, IMPLIED, STATUTORY OR IN ANY COMMUNICATION WITH YOU, AND THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. THE SDK IS PROVIDED “AS IS”, THE AUTHOR DOES NOT WARRANT THAT THE OPERATION OF THE SDK WILL BE UNINTERRUPTED OR ERROR-FREE.
-
-IN NO EVENT WILL THE AUTHOR BE LIABLE FOR ANY DAMAGES, INCLUDING LOSS OF DATA, LOST PROFITS, COST OF COVER OR OTHER SPECIAL, INCIDENTAL, CONSEQUENTIAL OR INDIRECT DAMAGES ARISING FROM THE USE OF THE SDK OR ACCOMPANYING DOCUMENTATION, HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY. THIS LIMITATION WILL APPLY EVEN IF THE COMPANY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. YOU ACKNOWLEDGE THAT THE LICENSE FEE REFLECTS THIS ALLOCATION OF RISK.
-
-
-**13) LIMITATION OF LIABILITY; INDEMNITY**
-
-Except (A) to the extent resulting from the negligence or willful misconduct of ORPALIS or its employees or agents, and/or (B) for ORPALIS’ indemnity obligations below: (i) In no event shall ORPALIS be liable for any damages (including, without limitation, lost profits, business interruption, or lost information) arising out of or related to this Agreement or any 'Authorized Users' use of or inability to use the SDK, even if ORPALIS has been advised of the possibility of such damages. In no event will ORPALIS be liable for loss of data or for indirect, special, incidental, consequential (including lost profit), or other damages based in contract, tort, or otherwise. 
-
-
-**14) TERMINATION**
-
-Without prejudice to any other rights, either party may terminate this EULA if the other party materially breaches any the terms and conditions of this EULA and fails to cure such breach within thirty (30) days after receipt of notice documenting such breach. In the event of termination, you must destroy all copies of the SDK in your possession.

app/packages/GdPicture.14.3.3/README.md

@@ -1,160 +0,0 @@
-# .NET SDK README
-
-Intelligent PDF & document processing SDKs: from scanning to barcodes to OCR to conversion to robust PDF processing — if you can think of it, this library can probably do it.
-
-# Getting Started
-
-## Setting up the SDK
-
-```csharp
-using GdPicture14;
-
-LicenseManager licence = new LicenseManager();
-licence.RegisterKEY(""); // Set a demo key
-```
-
-## Converting a Word Document to a PDF
-
-```csharp
-// After Setting up the SDK
-
-using GdPictureDocumentConverter converter = new GdPictureDocumentConverter();
-converter.LoadFromFile(@"input.docx");
-converter.SaveAsPDF(@"output.pdf");
-```
-
-## Converting an Image File into Searchable PDF (OCR)
-
-**Note**: For using the OCR with GdPicture the optional nuget [**GdPicture.Resources**](https://www.nuget.org/packages/GdPicture.Resources) is required.
-
-### Method 1: Saving intermediary output in a file
-
-```csharp
-// After Setting up the SDK
-
-using GdPicturePDF pdf = new GdPicturePDF();
-using GdPictureDocumentConverter converter = new GdPictureDocumentConverter();
-
-converter.LoadFromFile(@"input.png");
-converter.SaveAsPDF(@"output_intermediary.pdf");
-pdf.LoadFromFile(@"output_intermediary.pdf", true);
-pdf.OcrPages("*", 0, "eng", "", "", 200);
-pdf.SaveToFile(@"output_with_ocr.pdf");
-```
-
-### Method 2: With a memory stream
-
-```csharp
-// After Setting up the SDK
-
-using GdPicturePDF pdf = new GdPicturePDF();
-using GdPictureDocumentConverter converter = new GdPictureDocumentConverter();
-
-converter.LoadFromFile(@"input.png");
-using MemoryStream stream = new MemoryStream();
-converter.SaveAsPDF(stream);
-pdf.LoadFromStream(stream);
-pdf.OcrPages("*", 0, "eng", "", "", 200);
-pdf.SaveToFile(@"output_with_ocr.pdf");
-```
-
-**If you would like to see more examples**, please visit the [code samples page](https://www.nutrient.io/guides/dotnet/samples/) in our guides. 
-
-# **Introduction**
-
-[GdPicture.NET](https://www.nutrient.io/guides/dotnet/) is a [Nutrient](https://www.nutrient.io/) SDK for OCR, data extraction, editing, converting, generating PDFs, barcodes, scanning, and much more. It offers developers a rich API for quickly adding PDF, imaging, and intelligent data processing capabilities to any .NET application. There are many [code samples](https://www.nutrient.io/guides/web/samples/), and it comes supported by the amazing team at [Nutrient](https://www.nutrient.io//company/about/). 
-
-- **Low-Level APIs**: For fine-grained control
-- **High Fidelity**: Accurate, reliable document conversion and OCR
-- **Prebuilt Features**: Convert, edit, sign, form fill, and more
-
-## **System Compatibility**
-
-### Deployment
-
-GdPicture.NET assemblies are available for the following frameworks:
-
-- .NET 8.0
-- .NET Framework 4.6.2
-
-Using different GdPicture.NET assemblies, you can deploy the application you build to various operating systems, as outlined in the table below.
-
-| GdPicture.NET Assembly | Operating Systems Supported for Deployment |
-| --- | --- |
-| .NET 8.0 or newer | Linux* (x64, arm64), Microsoft Windows 10 (x64/x86) or newer, Microsoft Windows Server Core 2012 (x64) or newer, macOS 13 or newer (x64/ arm64) |
-| .NET Framework 4.6.2 | Microsoft Windows Vista (x64/x86) or newer Microsoft Windows Server 2008 (x64/x86) or newer |
-
-*The .NET 8.0 assembly on Linux requires GLIBC 2.29 or newer.*
-
-### **Package Overview and Dependencies**
-
-GdPicture repository contains multiple packages designed to provide flexibility, scalability, and targeted functionality for various platforms and use cases. Below is an overview of each package and its role within the ecosystem:
-
-### Main package
-
-- [**GdPicture.API**](https://www.nuget.org/packages/GdPicture.API): A cross-platform package that provides core API-level functionality. Serves as the foundation for all other GdPicture packages and can be used independently for lightweight document processing and manipulation tasks.
-
-### Optional package
-
-- [**GdPicture.Resources**](https://www.nuget.org/packages/GdPicture.Resources): Resources for GdPicture required for OCR processing.
-
-### Alternative packages
-
-- [**GdPicture**](https://www.nuget.org/packages/GdPicture): A Windows-only package that wraps [GdPicture.API](https://www.nuget.org/packages/GdPicture.API) and extends its capabilities by adding GdViewers (WPF and Winform).
-- [**DocuVieware**](https://www.nuget.org/packages/DocuVieware): A standalone package offering a rich viewer and collaboration solution. Ideal for web-based projects that require advanced document viewing, annotation, and sharing capabilities.
-- [**GdPicture.MAUI**](https://www.nuget.org/packages/GdPicture.MAUI): A cross-platform package that extends GdPicture.API capabilities by adding GdViewer MAUI viewer component (Preview).
-
-# Supported File Types
-
-GdPicture.NET library enables you to load, save, and convert numerous file types, and a full list of file types can be found [here](https://www.nutrient.io/guides/dotnet/about/file-type-support/).
-
-- PDF, PDF/A
-- Microsoft Office: DOC, DOCM, DOCX, DOTX, PPT, PPTM, PPTX, PPSX, XLS, XLSM, XLSX
-- CAD: DXF
-- Image: AI, BMP, CUR, CUT, DDS, DIB, DICOM, EMF, EXIF, EXR, G3, GIF, HDR, HEIF/HEIC, ICO, IFF, J2K, J2C, JB2, JBIG2, JIF, JFIF, JNG, JP2, JPEG, JPG, JPE, KOA, LBM, MNG, PBM, PBM RAW, PCD, PCT, PICT, PIC, PCX, PFM, PGM, PGM RAW, PJPEG, PNG, PNM, PPM, PPM RAW, PSD, RAS, RAW, RLE, SGI, SVG, TGA, TARGA, TIFF, TIF, WBMP, WAP, WBM, WMF, WSQ, XBM, XPM
-- RAW Camera Image: 3FR, ARW, BAY, BMQ, CAP, CINE, CR2, CR3, CRW, CS1, DC2, DCR, DRF, DSC, DNG, ERF, FFF, HDR, IA, IIQ, KC2, K25, KDC, MDC, MEF, MOS, MRW, NEF, NRW, ORF, PEF, PTX, PXN, QTK, RAF, RAW, RDC, RW2, RW1, RWZ, SR2, SRF, SRW, STI
-- Web: HTM, HTML, MHT, MHTML
-- Email: EML, MSG
-- Text: ODT, RTF, TXT
-- PostScript: PS (*Currently, PostScript implementation is experimental.)*
-
-# Key Features, **Documentation &** Support
-
-Nutrient offers comprehensive [guides](https://www.nutrient.io/guides/dotnet/) and [code samples](https://www.nutrient.io/guides/dotnet/samples/) to help you quickly integrate and customize your application. It comes with [full technical support](http://www.nutrient.io/support/request/?utm_source=npm&utm_medium=referral&utm_campaign=readme) that includes direct access to the engineers who built the product. Whether you have questions getting started with our SDK, or you want to know how to best integrate new features into your app, we’re here to help you find a solution.
-
-Most popular guides:
-
-- [Load a file](https://www.nutrient.io/guides/dotnet/load-a-file/): Load PDF documents, images and about 100 different file formats. This is the first step in using the full potential of our library. Loading files to one of our custom classes allows you to perform different actions on those files. You can use different kind of sources, such as a local machine, a byte array, a stream object, or remote URLs.
-- [Conversion](https://www.nutrient.io/guides/dotnet/conversion/): Convert various formats — including Office documents, images, emails, and webpages — into high-quality PDFs. Seamlessly convert PDFs back to Office formats while preserving original styling and layout.
-- [OCR](https://www.nutrient.io/guides/dotnet/ocr/): Leverage advanced OCR technology for zonal, full-page, and template-based text recognition, enabling searchable PDF/A creation, automated document classification, and fast processing, including barcode and specialized data decoding.
-- [Editor](https://www.nutrient.io/guides/dotnet/editor/): Programmatically edit PDFs, images, and other file formats in your application. Leverage an intuitive API to manipulate, merge, split, insert, and remove PDF pages in your workflows. Easily adjust images with more than 50 unique filters, including blur, sharpen, red-eye correction, sepia, smooth, and soften. Dynamically insert text and image watermarks to protect your confidential documents and images.
-- [Extraction](https://www.nutrient.io/guides/dotnet/extraction/): Harness our API to automatically extract key-value pairs, tables, and structured data.
-- [Barcodes](https://www.nutrient.io/guides/dotnet/barcodes/): Automate the recognition and decoding of 1D and 2D barcodes (including QR, Micro QR, Data Matrix, PDF417, Aztec Code, and MaxiCode). Dynamically generate barcodes in vector or raster format for insertion into image or PDF files.
-- [PDF Generation](https://www.nutrient.io/guides/dotnet/pdf-generation/): Leverage a lightning-fast PDF generation engine that can merge data with templates.
-- [TWAIN and WIA Scanning](https://www.nutrient.io/guides/dotnet/scanning/) (Windows Specific Feature): Capture images from any scanner devices and digital cameras using our enterprise-grade TWAIN and WIA toolkit, and leverage high- and low-level APIs to customize the process.
-- [Hyper-compression](https://www.nutrient.io/guides/dotnet/optimization/hyper-compress-mrc/): Dramatically reduce file sizes for various document types using our mixed raster content (MRC) compression engine, which calibrates specific settings to deliver high-fidelity outputs without noticeable data loss.
-- [PDF/A](https://www.nutrient.io/guides/dotnet/pdfa/convert/): Convert more than 100 file types into ISO-compliant, searchable PDF/A formats with full conformance support and veraPDF validation, ideal for automated workflows and high-volume processing.
-
-# **API**
-
-[Read the full API reference](https://www.nutrient.io/api/gdpicture/).
-
-# **Changelog**
-
-For a detailed list of the changes included in each version, refer to the [changelog](https://www.nutrient.io/changelog/dotnet/).
-
-# **License**
-
-When you integrate [GdPicture.NET](https://www.nutrient.io/guides/dotnet/) into your application, a trial license is activated automatically, meaning there's no need for a license key. This trial license provides the following:
-
-- **Support**: Access to [technical support](https://support.pspdfkit.com/hc/en-us/requests/new) is included.
-- **Watermarking**: A prominent watermark (text overlay) will appear on all documents.
-- **Trial Notifications**: Regular reminders indicating that the product is in trial mode.
-
-For a comprehensive evaluation, please [contact our Sales team](https://www.nutrient.io/contact-sales) to request a demo license key. This demo license enables you to explore our product for a 60-day period without watermarks or trial notifications.
-
-Copyright 2025 Nutrient. All rights reserved.
-
-[Docuvieware](https://www.notion.so/Docuvieware-176e1255d6bc804795efc99e27b5eb7f?pvs=21)
-
-[GdPicture](https://www.notion.so/GdPicture-176e1255d6bc80928cb2e867d335e267?pvs=21)