MS SAP

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

@@ -325,7 +325,7 @@ Public Class ClassImport_Windream
                                                         value = ""
                                                     End If
                                                 Else
-                                                    LOGGER.Warn("NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
+                                                    LOGGER.Warn("!!ATTENTION: NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
                                                     LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
                                                     value = ""
                                                 End If

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

@@ -96,12 +96,12 @@ Public Class ClassNodeNavigation
             Dim NODE_ID
             Dim NODE_CONFIG_ID
             Dim staticListItems = myTreeNode.Tag.Split("#")
-            LOGGER.Debug($"SUB CNCID.myTreeNode.Tag  [{myTreeNode.Tag.ToString}]", False)
+            'LOGGER.Debug($"SUB CNCID.myTreeNode.Tag  [{myTreeNode.Tag.ToString}]", False)
             If staticListItems(0).Contains("NODE-TYPE") Or staticListItems(0).Contains("CONFIG_NODE") Then
                 ' NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
                 NODE_ID = Return_NODEID_forTag(myTreeNode.Tag)
                 NODE_CONFIG_ID = Return_NODE_CONFIG_ID_forTag(myTreeNode.Tag)
-                LOGGER.Debug($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
+                '  LOGGER.Debug($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
             Else
                 LOGGER.Debug($"Attention no NODE-TYPE in staticListItems(0)  [{staticListItems(0).ToString}]", False)
             End If
@@ -127,20 +127,20 @@ Public Class ClassNodeNavigation
 
 
                 If Not IsNothing(ID) Then
-                    LOGGER.Debug($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
+                    'LOGGER.Debug($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
                     ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
                     CURRENT_NODE_CONFIGURABLE_ID = ID
                 Else
-                    LOGGER.Debug($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
+                    'LOGGER.Debug($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
                     ' LOGGER.Debug("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
                     CURRENT_NODE_CONFIGURABLE_ID = 0
                 End If
             Else
-                If IsNumeric(NODE_ID) = False Then
-                    LOGGER.Debug("SUB CNCID.NODE_ID is not numeric", False)
-                Else
-                    LOGGER.Debug("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
-                End If
+                'If IsNumeric(NODE_ID) = False Then
+                '    ' LOGGER.Debug("SUB CNCID.NODE_ID is not numeric", False)
+                'Else
+                '    LOGGER.Debug("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
+                'End If
 
                 CURRENT_NODE_CONFIGURABLE_ID = 0
             End If
@@ -174,6 +174,7 @@ Public Class ClassNodeNavigation
     End Function
     Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_NODES As DataTable, TREEVIEW_IMAGELIST As ImageList)
         Try
+            LOGGER.Debug($"NODES: DT_TREEVIEW_NODES-Count: {DT_TREEVIEW_NODES.Rows.Count}")
             Dim sw As New SW("CreateTreeViewNodes")
             Dim mytrv As New TreeView
             Dim ENTITY_ID As Integer

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

@@ -1,7 +1,11 @@
 Imports ERPConnect
+Imports ERPConnect.Utils
+
 Public Class ClassSAP
     Public Shared SAPConnectionString
     Public Shared SAP_CONNECTION As New R3Connection()
+
+    Private Shared NewDatatable As DataTable
     Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
         Try
             LOGGER.Debug("", False)
@@ -72,10 +76,10 @@ Public Class ClassSAP
                         CURRENT_COL_COUNT = ColCount
 
                         LOGGER.Debug("ColCount: " & ColCount.ToString, False)
-                            LOGGER.Debug("Split-Results: ", False)
-                            For Each s As String In split
-                                LOGGER.Debug("  # " & s, False)
-                            Next
+                        LOGGER.Debug("Split-Results: ", False)
+                        For Each s As String In split
+                            LOGGER.Debug("  # " & s, False)
+                        Next
 
                         For x = 0 To ColCount
                             ' Declare DataColumn and DataRow variables.
@@ -130,34 +134,58 @@ Public Class ClassSAP
             Return Nothing
         End Try
     End Function
+    Private Shared WithEvents read As New ReadTable(SAPConnectionString)
+    Private Shared Sub OnIncomingPackage(ByVal Sender As ReadTable, ByVal PackageResult As DataTable) Handles read.IncomingPackage
+        Try
+            LOGGER.Debug("Processing data package with " +
+                  PackageResult.Rows.Count.ToString() + " rows")
+            If NewDatatable Is Nothing Then
+                NewDatatable = PackageResult.Clone
+                LOGGER.Debug("...NewDatatable initialized!")
+            End If
+            NewDatatable.Merge(PackageResult, False)
+            LOGGER.Debug("...Datatable merged with PackageResult!")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            LOGGER.Error(ex)
+        End Try
+    End Sub
     Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, Optional RowLimit As Integer = 0)
         Try
             Dim RESULT_TABLE As DataTable = New DataTable
             LOGGER.Debug("Get data from SAP Table", False)
-            Dim table As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
-            'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
-            'Dim sSearchDate1 = "20160101"
-            'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
-            'cWhereClause = Replace(cWhereClause, "<AR_DATE>", sSearchDate1)
+            Dim oReadTable As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
+            oReadTable.PackageSize = 10000
+            oReadTable.RaiseIncomingPackageEvent = True
+            NewDatatable = Nothing
             If where_clause <> "" Then
-                table.WhereClause = where_clause
+                oReadTable.WhereClause = where_clause
             End If
-            table.TableName = tablename
+            oReadTable.TableName = tablename
             If RowLimit <> 0 Then
-                table.RowCount = RowLimit
+                oReadTable.RowCount = RowLimit
             End If
-            LOGGER.Debug(" >>Table.Run executing.....", False)
-            table.Run()
-            LOGGER.Debug(" >>Table.Run executed", False)
-            RESULT_TABLE = table.Result
+            LOGGER.Debug("Table.Run executing.....", False)
+            read = oReadTable
+            read.Run()
+
+            LOGGER.Debug("Table.Run executed", False)
+            RESULT_TABLE = read.Result
+            If Not IsNothing(NewDatatable) Then
+                LOGGER.Debug($"Got [{NewDatatable.Rows.Count}] rows", False)
+            End If
+
             SAP_CONNECTION.Close()
-            Return RESULT_TABLE
+            Return NewDatatable
         Catch ex As Exception
-            LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message, False)
+            LOGGER.Error(ex)
+            LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message)
             MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
             Return Nothing
         End Try
     End Function
+
+
     Public Shared Function LINK_ARC_OBJECT(table As String, barcode As String, contrep As String, docid As String, ardate As String, doctype As String)
         Try
             LOGGER.Debug("CREATE_ARC_OBJECT", False)

app/DD-Record-Organizer/DD-Record-Organizer.vbproj

@@ -175,9 +175,8 @@
     <Reference Include="DLLLicenseManager">
       <HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="ERPConnect45, Version=5.1.1.1, Culture=neutral, PublicKeyToken=ba20005d1d0c44ef, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect45.dll</HintPath>
+    <Reference Include="ERPConnect35">
+      <HintPath>D:\ProgramFiles\ERPConnect\ERPConnect35.dll</HintPath>
     </Reference>
     <Reference Include="Independentsoft.Msg">
       <HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>
@@ -252,40 +251,40 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="ClassAsyncNodeBuild.vb" />
-    <Compile Include="ClassAsyncReturnDT.vb" />
-    <Compile Include="ClassBackgroundHelper.vb" />
-    <Compile Include="ClassConstructors.vb" />
-    <Compile Include="ClassControlLoader.vb" />
-    <Compile Include="ClassControlMetadata.vb" />
-    <Compile Include="ClassControls_Manual.vb" />
-    <Compile Include="ClassControlValueCache.vb" />
-    <Compile Include="ClassConverter.vb" />
-    <Compile Include="ClassCustomComboBox.vb">
+    <Compile Include="Classes\NodeNavigation\ClassAsyncNodeBuild.vb" />
+    <Compile Include="Classes\ClassAsyncReturnDT.vb" />
+    <Compile Include="Classes\ClassBackgroundHelper.vb" />
+    <Compile Include="Classes\ClassConstructors.vb" />
+    <Compile Include="Classes\Controls\ClassControlLoader.vb" />
+    <Compile Include="Classes\Controls\ClassControlMetadata.vb" />
+    <Compile Include="Classes\Controls\ClassControls_Manual.vb" />
+    <Compile Include="Classes\Controls\ClassControlValueCache.vb" />
+    <Compile Include="Classes\ClassConverter.vb" />
+    <Compile Include="Classes\ClassCustomComboBox.vb">
       <SubType>Component</SubType>
     </Compile>
-    <Compile Include="ClassFileResult.vb" />
-    <Compile Include="ClassFolderWatcher.vb" />
-    <Compile Include="ClassGridFormatter.vb" />
-    <Compile Include="ClassInactivity.vb" />
-    <Compile Include="ClassJumpRecord.vb" />
-    <Compile Include="ClassLicence.vb" />
-    <Compile Include="ClassAsyncSQL.vb" />
-    <Compile Include="ClassMoreMetadata.vb" />
-    <Compile Include="ClassNodeNavigation.vb" />
-    <Compile Include="ClassPosGrid.vb" />
-    <Compile Include="ClassProxy.vb" />
-    <Compile Include="ClassRecordCommands.vb" />
-    <Compile Include="ClassRecordState.vb" />
-    <Compile Include="ClassRecordView.vb" />
-    <Compile Include="ClassRightManagement.vb" />
-    <Compile Include="ClassSAP.vb" />
-    <Compile Include="ClassDOC_SEARCH.vb" />
-    <Compile Include="ClassUpdate.vb" />
-    <Compile Include="ClassUser.vb" />
-    <Compile Include="ClassWDRights.vb" />
-    <Compile Include="ClassWindreamDocGrid.vb" />
-    <Compile Include="ClassWorkflow.vb" />
+    <Compile Include="Classes\ClassFileResult.vb" />
+    <Compile Include="Classes\ClassFolderWatcher.vb" />
+    <Compile Include="Classes\ClassGridFormatter.vb" />
+    <Compile Include="Classes\ClassInactivity.vb" />
+    <Compile Include="Classes\ClassJumpRecord.vb" />
+    <Compile Include="Classes\ClassLicence.vb" />
+    <Compile Include="Classes\ClassAsyncSQL.vb" />
+    <Compile Include="Classes\ClassMoreMetadata.vb" />
+    <Compile Include="Classes\ClassNodeNavigation.vb" />
+    <Compile Include="Classes\ClassPosGrid.vb" />
+    <Compile Include="Classes\ClassProxy.vb" />
+    <Compile Include="Classes\ClassRecordCommands.vb" />
+    <Compile Include="Classes\ClassRecordState.vb" />
+    <Compile Include="Classes\ClassRecordView.vb" />
+    <Compile Include="Classes\ClassRightManagement.vb" />
+    <Compile Include="Classes\ClassSAP.vb" />
+    <Compile Include="Classes\ClassDOC_SEARCH.vb" />
+    <Compile Include="Classes\ClassUpdate.vb" />
+    <Compile Include="Classes\ClassUser.vb" />
+    <Compile Include="Classes\ClassWDRights.vb" />
+    <Compile Include="Classes\ClassWindreamDocGrid.vb" />
+    <Compile Include="Classes\ClassWorkflow.vb" />
     <Compile Include="DD_DMSDataSet.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -384,6 +383,12 @@
     <Compile Include="frmNewVariant.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmNodeNavigation.Designer.vb">
+      <DependentUpon>frmNodeNavigation.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmNodeNavigation.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmRight_Management.Designer.vb">
       <DependentUpon>frmRight_Management.vb</DependentUpon>
     </Compile>
@@ -456,7 +461,7 @@
     <Compile Include="frmWM_Import_Doc_Record.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="ClassStaticListEditor.vb" />
+    <Compile Include="Classes\ClassStaticListEditor.vb" />
     <Compile Include="frmRecordView.Designer.vb">
       <DependentUpon>frmRecordView.vb</DependentUpon>
     </Compile>
@@ -475,13 +480,13 @@
     <Compile Include="frmWM_Resultlist_Config.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="ClassSnapPanel.Designer.vb">
+    <Compile Include="Classes\ClassSnapPanel.Designer.vb">
       <DependentUpon>ClassSnapPanel.vb</DependentUpon>
     </Compile>
-    <Compile Include="ClassSnapPanel.vb">
+    <Compile Include="Classes\ClassSnapPanel.vb">
       <SubType>Component</SubType>
     </Compile>
-    <Compile Include="ClassInactivityFilter.vb" />
+    <Compile Include="Classes\ClassInactivityFilter.vb" />
     <Compile Include="Strings\ControlProperties.en.Designer.vb">
       <DependentUpon>ControlProperties.en.resx</DependentUpon>
       <AutoGen>True</AutoGen>
@@ -499,24 +504,24 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="ApplicationEvents.vb" />
-    <Compile Include="ClassControlCommands.vb" />
-    <Compile Include="ClassControlCommandsUI.vb" />
-    <Compile Include="ClassControlValues.vb" />
-    <Compile Include="ClassDragDrop.vb" />
-    <Compile Include="ClassEmail.vb" />
-    <Compile Include="ClassEncryption.vb" />
-    <Compile Include="ClassFormCommands.vb" />
-    <Compile Include="ClassFunctionCommands.vb" />
-    <Compile Include="ClassFunctionCommandsUI.vb" />
-    <Compile Include="ClassHelper.vb" />
-    <Compile Include="ClassImport_Windream.vb" />
-    <Compile Include="ClassInit.vb" />
-    <Compile Include="ClassLayout.vb" />
-    <Compile Include="ClassDatabase.vb" />
-    <Compile Include="ClassControlBuilder.vb" />
-    <Compile Include="ClassControlProperties.vb" />
-    <Compile Include="ClassOfficeTemplate.vb" />
-    <Compile Include="ClassSQLEditor.vb" />
+    <Compile Include="Classes\Controls\ClassControlCommands.vb" />
+    <Compile Include="Classes\Controls\ClassControlCommandsUI.vb" />
+    <Compile Include="Classes\Controls\ClassControlValues.vb" />
+    <Compile Include="Classes\ClassDragDrop.vb" />
+    <Compile Include="Classes\ClassEmail.vb" />
+    <Compile Include="Classes\ClassEncryption.vb" />
+    <Compile Include="Classes\ClassFormCommands.vb" />
+    <Compile Include="Classes\ClassFunctionCommands.vb" />
+    <Compile Include="Classes\ClassFunctionCommandsUI.vb" />
+    <Compile Include="Classes\ClassHelper.vb" />
+    <Compile Include="Classes\ClassImport_Windream.vb" />
+    <Compile Include="Classes\ClassInit.vb" />
+    <Compile Include="Classes\ClassLayout.vb" />
+    <Compile Include="Classes\ClassDatabase.vb" />
+    <Compile Include="Classes\Controls\ClassControlBuilder.vb" />
+    <Compile Include="Classes\Controls\ClassControlProperties.vb" />
+    <Compile Include="Classes\ClassOfficeTemplate.vb" />
+    <Compile Include="Classes\ClassSQLEditor.vb" />
     <Compile Include="DD_DMSDataSet.vb">
       <DependentUpon>DD_DMSDataSet.xsd</DependentUpon>
     </Compile>
@@ -862,6 +867,9 @@
     <EmbeddedResource Include="frmNewVariant.resx">
       <DependentUpon>frmNewVariant.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmNodeNavigation.resx">
+      <DependentUpon>frmNodeNavigation.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmRecordView.en-US.resx">
       <DependentUpon>frmRecordView.vb</DependentUpon>
     </EmbeddedResource>

app/DD-Record-Organizer/ModuleHelperMethods.vb

@@ -285,9 +285,13 @@ Module ModuleHelperMethods
 
             CURRENT_CONSTRUCTOR_ID = id
             CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
+
+            ' Dim frm As New frmNodeNavigation()
+            'frm.Tag = id
+
+
             Dim frm As New frmConstructor_Main()
             frm.Tag = id
-            ' frm = frmForm_Constructor.Instance()
 
             Dim activeChild As Form = MAIN_FORM.ActiveMdiChild
             If activeChild IsNot Nothing Then

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

@@ -1,4 +1,4 @@
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.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.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

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

@@ -1,6 +1,4 @@
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.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.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

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

@@ -153,7 +153,7 @@ Partial Class frmConstructor_Main
         Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsbtnVariantDetailView = New System.Windows.Forms.ToolStripButton()
         Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
+        Me.TreeListDevexpress = New DevExpress.XtraTreeList.TreeList()
         Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
         Me.SplitContainerFORM = New DevExpress.XtraEditors.SplitContainerControl()
         Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -299,7 +299,7 @@ Partial Class frmConstructor_Main
         CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tsVariants.SuspendLayout()
         Me.XtraTabPage1.SuspendLayout()
-        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerFORM.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1201,27 +1201,27 @@ Partial Class frmConstructor_Main
         '
         'XtraTabPage1
         '
-        Me.XtraTabPage1.Controls.Add(Me.TreeList1)
+        Me.XtraTabPage1.Controls.Add(Me.TreeListDevexpress)
         Me.XtraTabPage1.Name = "XtraTabPage1"
         resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1")
         '
-        'TreeList1
+        'TreeListDevexpress
         '
-        Me.TreeList1.AllowDrop = True
-        Me.TreeList1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Aqua
-        Me.TreeList1.Appearance.FocusedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.TreeList1, "TreeList1")
-        Me.TreeList1.Name = "TreeList1"
-        Me.TreeList1.OptionsFilter.ExpandNodesOnFiltering = True
-        Me.TreeList1.OptionsFilter.FilterMode = DevExpress.XtraTreeList.FilterMode.ParentBranch
-        Me.TreeList1.OptionsFind.AlwaysVisible = True
-        Me.TreeList1.OptionsFind.FindDelay = 300
-        Me.TreeList1.OptionsFind.FindMode = DevExpress.XtraTreeList.FindMode.Always
-        Me.TreeList1.OptionsFind.ShowCloseButton = False
-        Me.TreeList1.OptionsFind.ShowFindButton = False
-        Me.TreeList1.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.TreeList1.OptionsView.ShowColumns = False
-        Me.TreeList1.StateImageList = Me.ImageCollection1
+        Me.TreeListDevexpress.AllowDrop = True
+        Me.TreeListDevexpress.Appearance.FocusedRow.BackColor = System.Drawing.Color.Aqua
+        Me.TreeListDevexpress.Appearance.FocusedRow.Options.UseBackColor = True
+        resources.ApplyResources(Me.TreeListDevexpress, "TreeListDevexpress")
+        Me.TreeListDevexpress.Name = "TreeListDevexpress"
+        Me.TreeListDevexpress.OptionsFilter.ExpandNodesOnFiltering = True
+        Me.TreeListDevexpress.OptionsFilter.FilterMode = DevExpress.XtraTreeList.FilterMode.ParentBranch
+        Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True
+        Me.TreeListDevexpress.OptionsFind.FindDelay = 300
+        Me.TreeListDevexpress.OptionsFind.FindMode = DevExpress.XtraTreeList.FindMode.Always
+        Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
+        Me.TreeListDevexpress.OptionsFind.ShowFindButton = False
+        Me.TreeListDevexpress.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.TreeListDevexpress.OptionsView.ShowColumns = False
+        Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
         '
         'ImageCollection1
         '
@@ -1947,7 +1947,7 @@ Partial Class frmConstructor_Main
         Me.tsVariants.ResumeLayout(False)
         Me.tsVariants.PerformLayout()
         Me.XtraTabPage1.ResumeLayout(False)
-        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerFORM.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerFORM.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2130,7 +2130,7 @@ Partial Class frmConstructor_Main
     Friend WithEvents ContextMenuStripClipboard As ContextMenuStrip
     Friend WithEvents BW_LoadTreeView As System.ComponentModel.BackgroundWorker
     Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents TreeListDevexpress As DevExpress.XtraTreeList.TreeList
     Friend WithEvents tsmiNodeRename As ToolStripMenuItem
     Friend WithEvents tstxtRenameNode As ToolStripTextBox
     Friend WithEvents ToolStripSeparator22 As ToolStripSeparator

app/DD-Record-Organizer/frmConstructor_Main.resx

@@ -322,7 +322,7 @@
     <value>Suche Knoten</value>
   </data>
   <data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>225, 257</value>
+    <value>225, 235</value>
   </data>
   <data name="&gt;&gt;cmsTreeView.Name" xml:space="preserve">
     <value>cmsTreeView</value>
@@ -592,7 +592,7 @@
     <value>0, 0</value>
   </data>
   <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>699, 229</value>
+    <value>699, 231</value>
   </data>
   <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -634,7 +634,7 @@
     <value>0, 0</value>
   </data>
   <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
-    <value>486, 204</value>
+    <value>486, 206</value>
   </data>
   <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
     <value>5</value>
@@ -681,7 +681,7 @@
     <value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
   </data>
   <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 204</value>
+    <value>0, 206</value>
   </data>
   <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
     <value>486, 25</value>
@@ -720,7 +720,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 233</value>
+    <value>1201, 235</value>
   </data>
   <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -896,7 +896,7 @@
     <value>1</value>
   </data>
   <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 260</value>
+    <value>1201, 262</value>
   </data>
   <data name="TabDetails.Text" xml:space="preserve">
     <value>Detailansicht</value>
@@ -914,7 +914,7 @@
     <value>0</value>
   </data>
   <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 288</value>
+    <value>1203, 290</value>
   </data>
   <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -926,7 +926,7 @@
     <value>0, 27</value>
   </data>
   <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 237</value>
+    <value>1201, 223</value>
   </data>
   <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -1183,7 +1183,7 @@
 </value>
   </data>
   <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+    <value>1201, 250</value>
   </data>
   <data name="TabPos.Text" xml:space="preserve">
     <value>Positionen</value>
@@ -1239,7 +1239,7 @@
     <value>0, 0</value>
   </data>
   <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+    <value>1201, 262</value>
   </data>
   <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
     <value>7</value>
@@ -1257,7 +1257,7 @@
     <value>0</value>
   </data>
   <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+    <value>1201, 262</value>
   </data>
   <data name="TabWindream.Text" xml:space="preserve">
     <value>Dateien</value>
@@ -1688,7 +1688,7 @@
     <value>2</value>
   </data>
   <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+    <value>1201, 250</value>
   </data>
   <data name="TabFollowUp.Text" xml:space="preserve">
     <value>Wiedervorlage</value>
@@ -1712,7 +1712,7 @@
     <value>169, 95</value>
   </metadata>
   <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>997, 17</value>
+    <value>832, 17</value>
   </metadata>
   <data name="GridControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -1790,7 +1790,7 @@
     <value>5</value>
   </data>
   <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 237</value>
+    <value>1201, 223</value>
   </data>
   <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
     <value>90</value>
@@ -1862,7 +1862,7 @@
     <value>1</value>
   </data>
   <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+    <value>1201, 250</value>
   </data>
   <data name="TabPageVariant.Text" xml:space="preserve">
     <value>Vorgängervarianten</value>
@@ -1879,17 +1879,17 @@
   <data name="&gt;&gt;TabPageVariant.ZOrder" xml:space="preserve">
     <value>4</value>
   </data>
-  <data name="TreeList1.Caption" xml:space="preserve">
+  <data name="TreeListDevexpress.Caption" xml:space="preserve">
     <value>Instandhaltung View</value>
   </data>
-  <data name="TreeList1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+  <data name="TreeListDevexpress.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
-  <data name="TreeList1.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="TreeListDevexpress.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="TreeList1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+  <data name="TreeListDevexpress.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1201, 250</value>
   </data>
   <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>301, 17</value>
@@ -1902,23 +1902,23 @@
         ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
 </value>
   </data>
-  <data name="TreeList1.TabIndex" type="System.Int32, mscorlib">
+  <data name="TreeListDevexpress.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
   </data>
-  <data name="&gt;&gt;TreeList1.Name" xml:space="preserve">
-    <value>TreeList1</value>
+  <data name="&gt;&gt;TreeListDevexpress.Name" xml:space="preserve">
+    <value>TreeListDevexpress</value>
   </data>
-  <data name="&gt;&gt;TreeList1.Type" xml:space="preserve">
+  <data name="&gt;&gt;TreeListDevexpress.Type" xml:space="preserve">
     <value>DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;TreeList1.Parent" xml:space="preserve">
+  <data name="&gt;&gt;TreeListDevexpress.Parent" xml:space="preserve">
     <value>XtraTabPage1</value>
   </data>
-  <data name="&gt;&gt;TreeList1.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;TreeListDevexpress.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
   <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 264</value>
+    <value>1201, 250</value>
   </data>
   <data name="XtraTabPage1.Text" xml:space="preserve">
     <value>NodeNavigation(beta)</value>
@@ -1963,7 +1963,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 537</value>
+    <value>1203, 539</value>
   </data>
   <data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -2020,7 +2020,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 537</value>
+    <value>1203, 539</value>
   </data>
   <data name="SplitContainerFORM.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -2167,13 +2167,13 @@
 </value>
   </data>
   <data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>184, 22</value>
+    <value>188, 26</value>
   </data>
   <data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
     <value>Datei versionieren</value>
   </data>
   <data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>184, 22</value>
+    <value>188, 26</value>
   </data>
   <data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
     <value>Dokumentart ändern</value>
@@ -2289,7 +2289,7 @@
     <value>Ansicht zurücksetzen</value>
   </data>
   <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>256, 520</value>
+    <value>256, 542</value>
   </data>
   <data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
     <value>ContextMenuStripResultFiles</value>
@@ -2352,7 +2352,7 @@
     <value>295, 56</value>
   </metadata>
   <metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1140, 17</value>
+    <value>975, 17</value>
   </metadata>
   <metadata name="TBPMO_RECORD_VARIANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>447, 95</value>
@@ -3088,10 +3088,10 @@
     <value>1203, 147</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 684</value>
+    <value>0, 686</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 25</value>
+    <value>1203, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -372,6 +372,7 @@ Public Class frmConstructor_Main
             SQL = String.Format("select T.* from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
             If DT.Rows.Count > 1 Then
+                LOGGER.Info($"There are  [{DT.Rows.Count}] NODES.....")
                 TreeView_perControl = True
                 DT_TREEVIEW_NODES_ALL = DT
                 DT_TREEVIEW_NODES_DEVEXPRESS = DT_TREEVIEW_NODES_ALL.Copy()
@@ -406,7 +407,7 @@ Public Class frmConstructor_Main
                 DT_TREEVIEW_NODES_FIRST = ClassHelper.FILTER_DATATABLE(DT, "EXPAND_NODE = 1", "")
                 SQL = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
                 DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
-
+                LOGGER.Debug($"DT_TREEVIEW_CONFIGURATION-Count: {DT_TREEVIEW_CONFIGURATION.Rows.Count}")
                 Try
                     TREEVIEW_IMAGELIST = New ImageList
                     For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
@@ -445,6 +446,7 @@ Public Class frmConstructor_Main
 
 
             Else
+                LOGGER.Info($"There are now rows for VWPMO_STRUCTURE_NODE [{SQL}]")
                 tsmiNodeNew.Visible = False
                 tsmiNodeRename.Visible = False
 
@@ -1412,6 +1414,7 @@ Public Class frmConstructor_Main
             '    newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST)
             'Else
             Try
+                LOGGER.Debug($"NODES: DT_TREEVIEW_NODES_ALL-Count: {DT_TREEVIEW_NODES_ALL.Rows.Count}")
                 Dim async As New ClassAsyncNodeBuild(DT_TREEVIEW_NODES_ALL, TREEVIEW_IMAGELIST)
                 async.bw.RunWorkerAsync()
                 While async.bw.IsBusy
@@ -1422,6 +1425,7 @@ Public Class frmConstructor_Main
                 End While
                 BarEditItem2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                 bsitmLoadEntity.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                LOGGER.Debug($"NODES: StructureNodes-Count (asyn.newTreeviewc): {async.newTreeview.Nodes.Count}")
                 MyTreeview = async.newTreeview
             Catch ex As Exception
                 ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Async NodeBuild", ex.Message & vbNewLine & "ADDI will try an alternative method!", ex.StackTrace)
@@ -1440,9 +1444,6 @@ Public Class frmConstructor_Main
                 MyTreeview.EndUpdate()
             End If
 
-            ' Start the asynchronous operation.
-            'backgroundWorkerTreeView.RunWorkerAsync()
-
 
             sw.Done()
         Catch ex As Exception
@@ -1475,21 +1476,21 @@ Public Class frmConstructor_Main
                     Next
                     Dim sw As New SW("Devexpress TreeView")
 
-                    TreeList1.DataSource = DT_TREEVIEW_NODES_DEVEXPRESS
-                    TreeList1.KeyFieldName = "GUID"
-                    TreeList1.ParentFieldName = "PARENT_GUID"
+                    TreeListDevexpress.DataSource = DT_TREEVIEW_NODES_DEVEXPRESS
+                    TreeListDevexpress.KeyFieldName = "GUID"
+                    TreeListDevexpress.ParentFieldName = "PARENT_GUID"
                     Try
-                        TreeList1.Columns.ColumnByName("colRECORD_ID").Visible = False
+                        TreeListDevexpress.Columns.ColumnByName("colRECORD_ID").Visible = False
                     Catch ex As Exception
 
                     End Try
                     Try
-                        TreeList1.Columns.ColumnByName("colNODE_CONFIG_ID").Visible = False
+                        TreeListDevexpress.Columns.ColumnByName("colNODE_CONFIG_ID").Visible = False
                     Catch ex As Exception
 
                     End Try
                     Try
-                        TreeList1.Columns.ColumnByName("colBACK_COLOR").Visible = False
+                        TreeListDevexpress.Columns.ColumnByName("colBACK_COLOR").Visible = False
                     Catch ex As Exception
 
                     End Try
@@ -6224,13 +6225,24 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
                         If Not IsNothing(row.Item("DOC_ID")) Then
                             Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & row.Item("DOC_ID"), True)
                             If Count > 1 And CURRENT_SEARCH_TYPE = "RECORD" Then
-                                msg = "Diese Datei ist noch mit anderen Datensätzen verknüpft! Lediglich die Verknüpfung zum aktuellen Datensatz wird gelöscht!"
+                                msg = "Diese Datei ist noch mit anderen Datensätzen verknüpft! Wollen Sie diese Verknüpfungen ebenfalls löschen?"
                                 If USER_LANGUAGE <> "de-DE" Then
-                                    msg = "This file is also linked to other records! Only the link for this Record will be deleted!"
+                                    msg = "This file is also linked to other records! Would You like to delete these links also?"
                                 End If
-                                MsgBox(msg, MsgBoxStyle.Information)
-                                If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
-                                    ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE LINK DELETED BY USER")
+                                Dim result2 As MsgBoxResult
+                                result2 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                                Dim oDElWMFile As Boolean = False
+                                If result2 = MsgBoxResult.Yes Then
+                                    oDElWMFile = True
+                                End If
+
+                                If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, oDElWMFile) = True Then
+                                    If oDElWMFile = True Then
+                                        ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
+                                    Else
+                                        ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE LINK DELETED BY USER")
+                                    End If
+
                                 End If
                             Else
                                 If CURRENT_SEARCH_TYPE = "FULLTEXT" Or CURRENT_SEARCH_TYPE = "ENTITY" Then
@@ -6642,8 +6654,14 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
                             ClassDatabase.Execute_non_Query(oEXEC, True)
                         End If
                     End If
+
+                    Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
                     Cursor = Cursors.Default
                     RUN_WDSEARCH_GRID(True)
+                    If Not IsNothing(oRowHandle) Then
+                        GridViewDoc_Search.FocusedRowHandle = oRowHandle
+                    End If
+
                     ContextMenuStripResultFiles.Close()
                 End If
             Catch ex As Exception
@@ -6667,7 +6685,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
                 If CMDoc_TextBoxRenameDisplay.Text <> "" Then
                     If ClassFileResult.Set_Displayname(CMDoc_TextBoxRenameDisplay.Text) Then
                         Cursor = Cursors.WaitCursor
+                        Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
+                        Cursor = Cursors.Default
                         RUN_WDSEARCH_GRID(True)
+
+                        If Not IsNothing(oRowHandle) Then
+                            GridViewDoc_Search.FocusedRowHandle = oRowHandle
+                        End If
                         ContextMenuStripResultFiles.Close()
                     End If
                 End If
@@ -7083,15 +7107,15 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
     End Sub
 
-    Private Sub TreeList1_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeList1.GetStateImage
-        Dim Column_Config_ID As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeList1.Columns("NODE_CONFIG_ID")
+    Private Sub TreeList1_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeListDevexpress.GetStateImage
+        Dim Column_Config_ID As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("NODE_CONFIG_ID")
         Dim configid = e.Node.GetDisplayText(Column_Config_ID)
 
         e.Node.StateImageIndex = ImageCollection1.Images.Keys.IndexOf(configid)
 
     End Sub
 
-    Private Sub TreeList1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles TreeList1.ColumnFilterChanged
+    Private Sub TreeList1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles TreeListDevexpress.ColumnFilterChanged
         Dim tree As TreeList = TryCast(sender, TreeList)
         Dim filteredColumns As List(Of TreeListColumn) = tree.Columns.Cast(Of TreeListColumn)().Where(Function(c) c.FilterInfo.AutoFilterRowValue IsNot Nothing).ToList()
         If filteredColumns.Count = 0 Then

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

@@ -43,6 +43,7 @@ Partial Class frmDocRecordLink
         'txtFileInfo
         '
         resources.ApplyResources(Me.txtFileInfo, "txtFileInfo")
+        Me.txtFileInfo.BackColor = System.Drawing.SystemColors.ControlLight
         Me.txtFileInfo.Name = "txtFileInfo"
         Me.txtFileInfo.ReadOnly = True
         '
@@ -67,13 +68,13 @@ Partial Class frmDocRecordLink
         '
         'grvwGrid
         '
-        Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.grvwGrid.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
         Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
-        Me.grvwGrid.Appearance.FilterPanel.BackColor = CType(resources.GetObject("grvwGrid.Appearance.FilterPanel.BackColor"), System.Drawing.Color)
+        Me.grvwGrid.Appearance.FilterPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.grvwGrid.Appearance.FilterPanel.Options.UseBackColor = True
-        Me.grvwGrid.Appearance.HideSelectionRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.HideSelectionRow.BackColor"), System.Drawing.Color)
+        Me.grvwGrid.Appearance.HideSelectionRow.BackColor = System.Drawing.Color.Yellow
         Me.grvwGrid.Appearance.HideSelectionRow.Options.UseBackColor = True
-        Me.grvwGrid.Appearance.SelectedRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.grvwGrid.Appearance.SelectedRow.BackColor = System.Drawing.Color.Yellow
         Me.grvwGrid.Appearance.SelectedRow.Options.UseBackColor = True
         Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = True
         Me.grvwGrid.GridControl = Me.dgEntityRecords
@@ -102,6 +103,7 @@ Partial Class frmDocRecordLink
         'cmbConstructorForms
         '
         resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
+        Me.cmbConstructorForms.BackColor = System.Drawing.SystemColors.ControlLight
         Me.cmbConstructorForms.FormattingEnabled = True
         Me.cmbConstructorForms.Name = "cmbConstructorForms"
         '
@@ -124,7 +126,7 @@ Partial Class frmDocRecordLink
         '
         'txtEntity
         '
-        Me.txtEntity.BackColor = System.Drawing.SystemColors.Control
+        Me.txtEntity.BackColor = System.Drawing.SystemColors.ControlLight
         resources.ApplyResources(Me.txtEntity, "txtEntity")
         Me.txtEntity.Name = "txtEntity"
         Me.txtEntity.ReadOnly = True

app/DD-Record-Organizer/frmDocRecordLink.resx

@@ -126,7 +126,7 @@
     <value>142, 6</value>
   </data>
   <data name="txtFileInfo.Size" type="System.Drawing.Size, System.Drawing">
-    <value>537, 21</value>
+    <value>845, 21</value>
   </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="txtFileInfo.TabIndex" type="System.Int32, mscorlib">
@@ -190,10 +190,10 @@
     <value>NoControl</value>
   </data>
   <data name="btnLink.Location" type="System.Drawing.Point, System.Drawing">
-    <value>685, 3</value>
+    <value>993, 6</value>
   </data>
   <data name="btnLink.Size" type="System.Drawing.Size, System.Drawing">
-    <value>155, 23</value>
+    <value>157, 23</value>
   </data>
   <data name="btnLink.TabIndex" type="System.Int32, mscorlib">
     <value>10</value>
@@ -222,20 +222,8 @@
   <data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
     <value>12, 59</value>
   </data>
-  <data name="grvwGrid.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Aqua</value>
-  </data>
-  <data name="grvwGrid.Appearance.FilterPanel.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>255, 128, 0</value>
-  </data>
-  <data name="grvwGrid.Appearance.HideSelectionRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Yellow</value>
-  </data>
-  <data name="grvwGrid.Appearance.SelectedRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Yellow</value>
-  </data>
   <data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
-    <value>830, 377</value>
+    <value>1138, 609</value>
   </data>
   <data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
     <value>15</value>
@@ -262,10 +250,10 @@
     <value>Waiting for record-Selection.....</value>
   </data>
   <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 480</value>
+    <value>0, 712</value>
   </data>
   <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>854, 22</value>
+    <value>1162, 22</value>
   </data>
   <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
     <value>16</value>
@@ -289,7 +277,7 @@
     <value>Bottom, Left</value>
   </data>
   <data name="cmbConstructorForms.Location" type="System.Drawing.Point, System.Drawing">
-    <value>144, 451</value>
+    <value>144, 683</value>
   </data>
   <data name="cmbConstructorForms.Size" type="System.Drawing.Size, System.Drawing">
     <value>234, 21</value>
@@ -322,7 +310,7 @@
     <value>NoControl</value>
   </data>
   <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>9, 454</value>
+    <value>9, 686</value>
   </data>
   <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
     <value>124, 13</value>
@@ -352,7 +340,7 @@
     <value>MiddleLeft</value>
   </data>
   <data name="btnloadData2Entity.Location" type="System.Drawing.Point, System.Drawing">
-    <value>384, 449</value>
+    <value>384, 681</value>
   </data>
   <data name="btnloadData2Entity.Size" type="System.Drawing.Size, System.Drawing">
     <value>122, 23</value>
@@ -385,7 +373,7 @@
     <value>Tahoma, 8.25pt, style=Bold, Italic</value>
   </data>
   <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 32</value>
+    <value>9, 36</value>
   </data>
   <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
     <value>124, 13</value>
@@ -412,7 +400,7 @@
     <value>Tahoma, 8.25pt, style=Bold, Italic</value>
   </data>
   <data name="txtEntity.Location" type="System.Drawing.Point, System.Drawing">
-    <value>142, 29</value>
+    <value>142, 33</value>
   </data>
   <data name="txtEntity.Size" type="System.Drawing.Size, System.Drawing">
     <value>259, 21</value>
@@ -439,7 +427,7 @@
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>854, 502</value>
+    <value>1162, 734</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt</value>

app/DD-Record-Organizer/frmDocRecordLink.vb

@@ -40,6 +40,8 @@ Public Class frmDocRecordLink
                     For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
                         If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
                             rowrecsdisplay.Item("already linked") = True
+                        Else
+                            rowrecsdisplay.Item("already linked") = False
                         End If
                     Next
                 Next
@@ -164,11 +166,11 @@ Public Class frmDocRecordLink
                         End If
                         If Record_Index <> String.Empty Then
                             If clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype) = False Then
-                                Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
-                                If USER_LANGUAGE <> "de-DE" Then
-                                    msg = "Could not index Record-ID! Please check logfile!"
-                                End If
-                                MsgBox(msg, MsgBoxStyle.Exclamation)
+                                'Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
+                                'If USER_LANGUAGE <> "de-DE" Then
+                                '    msg = "Could not index Record-ID! Please check logfile!"
+                                'End If
+                                'MsgBox(msg, MsgBoxStyle.Exclamation)
                             End If
 
 
@@ -179,19 +181,20 @@ Public Class frmDocRecordLink
                 ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Linking Record to file", ex.Message, ex.StackTrace)
             End Try
         Next
+        grvwGrid.ClearSelection()
     End Sub
 
     Private Sub grvwGrid_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged
-        'Try
-        '    If Not IsNothing(dgEntityRecords.DataSource) Then
-        '        Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("Record-ID"))
-        '        SELECTED_RECORDID = RecordId
-        '        tsslbl.Text = "Record (" & RecordId.ToString & ") selected!"
-        '    End If
-        'Catch ex As Exception
-        '    MsgBox("Could not get the RecordID: " & ex.Message, MsgBoxStyle.Exclamation)
-        '    SELECTED_RECORDID = Nothing
-        'End Try
+        Try
+            If Not IsNothing(dgEntityRecords.DataSource) Then
+                Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("Record-ID"))
+
+                tsslbl.Text = "Record (" & RecordId.ToString & ") selected!"
+            End If
+        Catch ex As Exception
+            MsgBox("Could not get the RecordID: " & ex.Message, MsgBoxStyle.Exclamation)
+
+        End Try
 
     End Sub
     Sub Save_DocGrid_Layout()

app/DD-Record-Organizer/frmDoc_Links.vb

@@ -65,21 +65,26 @@ Public Class frmDoc_Links
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmdeletelink.ItemClick
-
-
-        Dim oDocID = grvwGrid.GetRowCellValue(grvwGrid.FocusedRowHandle, "DocID")
-        Dim oRECORD_ID = grvwGrid.GetRowCellValue(grvwGrid.FocusedRowHandle, "RecordID")
-        If IsNothing(oDocID) Then
-            Exit Sub
-        End If
-        LOGGER.Debug($"RecordLink will be removed Record: {oRECORD_ID} - DocID: {oDocID} ")
-        Try
-            If ClassFileResult.Delete_ResultFile(oDocID, oRECORD_ID, 0) = True Then
-                ClassHelper.InsertEssential_Log(oDocID, "DOC-ID", $"RECORD LINK {oRECORD_ID} REMOVED FROM DOC-SEARCH")
-            End If
-        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Removing DocRecord-Link", ex.Message, ex.StackTrace)
-        End Try
+        Dim oSelectedRows As Integer() = grvwGrid.GetSelectedRows()
+        For Each rowhandle As Integer In oSelectedRows
+            Try
+                Dim oSelectedDocID = grvwGrid.GetRowCellValue(rowhandle, "DocID")
+                Dim oSelectedRecordID = grvwGrid.GetRowCellValue(rowhandle, "RecordID")
+                If IsNothing(oSelectedDocID) Then
+                    Continue For
+                End If
+                LOGGER.Debug($"RecordLink will be removed Record: {oSelectedRecordID} - DocID: {oSelectedDocID} ")
+                Try
+                    If ClassFileResult.Delete_ResultFile(oSelectedDocID, oSelectedRecordID, 0) = True Then
+                        ClassHelper.InsertEssential_Log(oSelectedDocID, "DOC-ID", $"RECORD LINK {oSelectedRecordID} REMOVED FROM DOC-SEARCH")
+                    End If
+                Catch ex As Exception
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Removing DocRecord-Link", ex.Message, ex.StackTrace)
+                End Try
+            Catch ex As Exception
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Collecting DocRecord-Link", ex.Message, ex.StackTrace)
+            End Try
+        Next
 
         Refresh_Grid_Data()
     End Sub

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

@@ -61,7 +61,12 @@ Partial Class frmGlobalSearch
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
         CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.Panel1.SuspendLayout()
+        CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.Panel2.SuspendLayout()
         Me.SplitContainerMain.SuspendLayout()
         CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cmsRecords.SuspendLayout()
@@ -82,9 +87,15 @@ Partial Class frmGlobalSearch
         Me.SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
         Me.SplitContainerMain.Name = "SplitContainerMain"
+        '
+        'SplitContainerMain.Panel1
+        '
         Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlRecords)
         Me.SplitContainerMain.Panel1.Controls.Add(Me.ToolStripRecords)
         resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
+        '
+        'SplitContainerMain.Panel2
+        '
         Me.SplitContainerMain.Panel2.Controls.Add(Me.GridControlFiles)
         Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStripDokumente)
         resources.ApplyResources(Me.SplitContainerMain.Panel2, "SplitContainerMain.Panel2")
@@ -132,7 +143,9 @@ Partial Class frmGlobalSearch
         Me.GridViewRecords.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
         Me.GridViewRecords.OptionsView.ColumnAutoWidth = False
         Me.GridViewRecords.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewRecords.OptionsView.ShowViewCaption = True
         Me.GridViewRecords.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
+        resources.ApplyResources(Me.GridViewRecords, "GridViewRecords")
         '
         'ToolStripRecords
         '
@@ -203,7 +216,9 @@ Partial Class frmGlobalSearch
         Me.GridViewFiles.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
         Me.GridViewFiles.OptionsView.ColumnAutoWidth = False
         Me.GridViewFiles.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewFiles.OptionsView.ShowViewCaption = True
         Me.GridViewFiles.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
+        resources.ApplyResources(Me.GridViewFiles, "GridViewFiles")
         '
         'ToolStripDokumente
         '
@@ -292,9 +307,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.BarButtonItem1, Me.BarButtonItem2, Me.bsiInfo})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.bsiInfo, Me.BarButtonItem3})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 4
+        Me.RibbonControl1.MaxItemId = 5
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -329,6 +344,7 @@ Partial Class frmGlobalSearch
         '
         'RibbonPageGroup1
         '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
@@ -346,6 +362,13 @@ Partial Class frmGlobalSearch
         Me.RibbonPage2.Name = "RibbonPage2"
         resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
         '
+        'BarButtonItem3
+        '
+        resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
+        Me.BarButtonItem3.Id = 4
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        '
         'frmGlobalSearch
         '
         resources.ApplyResources(Me, "$this")
@@ -359,6 +382,12 @@ Partial Class frmGlobalSearch
         Me.Name = "frmGlobalSearch"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
+        CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.Panel1.ResumeLayout(False)
+        Me.SplitContainerMain.Panel1.PerformLayout()
+        CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.Panel2.ResumeLayout(False)
+        Me.SplitContainerMain.Panel2.PerformLayout()
         CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerMain.ResumeLayout(False)
         CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).EndInit()
@@ -419,4 +448,5 @@ Partial Class frmGlobalSearch
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
 End Class

app/DD-Record-Organizer/frmGlobalSearch.resx

@@ -155,6 +155,9 @@
   <data name="GridControlRecords.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 25</value>
   </data>
+  <data name="GridViewRecords.ViewCaption" xml:space="preserve">
+    <value>ADDI-Datensätze</value>
+  </data>
   <data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing">
     <value>751, 131</value>
   </data>
@@ -178,10 +181,7 @@
     <value>145, 17</value>
   </metadata>
   <data name="tslblRecordsResult.Size" type="System.Drawing.Size, System.Drawing">
-    <value>93, 22</value>
-  </data>
-  <data name="tslblRecordsResult.Text" xml:space="preserve">
-    <value>0 Records found</value>
+    <value>0, 22</value>
   </data>
   <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
     <value>6, 25</value>
@@ -213,6 +213,18 @@
   <data name="SplitContainerMain.Panel1.Text" xml:space="preserve">
     <value>Panel1</value>
   </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel1.Name" xml:space="preserve">
+    <value>SplitContainerMain.Panel1</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel1.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel1.Parent" xml:space="preserve">
+    <value>SplitContainerMain</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel1.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>571, 17</value>
   </metadata>
@@ -255,6 +267,9 @@
   <data name="GridControlFiles.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 25</value>
   </data>
+  <data name="GridViewFiles.ViewCaption" xml:space="preserve">
+    <value>windream-Dokumente</value>
+  </data>
   <data name="GridControlFiles.Size" type="System.Drawing.Size, System.Drawing">
     <value>408, 131</value>
   </data>
@@ -283,10 +298,7 @@
     <value>Segoe UI, 8.25pt, style=Bold, Italic</value>
   </data>
   <data name="tslblDocView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>126, 22</value>
-  </data>
-  <data name="tslblDocView.Text" xml:space="preserve">
-    <value>Windream-Dokumente</value>
+    <value>0, 22</value>
   </data>
   <data name="ToolStripDokumente.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
@@ -315,6 +327,18 @@
   <data name="SplitContainerMain.Panel2.Text" xml:space="preserve">
     <value>Panel2</value>
   </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel2.Name" xml:space="preserve">
+    <value>SplitContainerMain.Panel2</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel2.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel2.Parent" xml:space="preserve">
+    <value>SplitContainerMain</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerMain.Panel2.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
   <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
     <value>1169, 156</value>
   </data>
@@ -615,7 +639,7 @@
   <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">
     <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
         dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/
         PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -638,7 +662,7 @@
   </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/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
         dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFQFAAAC77u/
         PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -669,6 +693,29 @@
   <data name="bsiInfo.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold, Italic</value>
   </data>
+  <data name="BarButtonItem3.Caption" xml:space="preserve">
+    <value>Starte Suche</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
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
+        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
+        My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
+        Cjwvc3ZnPgs=
+</value>
+  </data>
   <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
@@ -886,6 +933,12 @@
   <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem3.Name" xml:space="preserve">
+    <value>BarButtonItem3</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem3.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;$this.Name" xml:space="preserve">
     <value>frmGlobalSearch</value>
   </data>

app/DD-Record-Organizer/frmGlobalSearch.vb

@@ -368,6 +368,10 @@ Public Class frmGlobalSearch
         Show_Detail_Record()
     End Sub
 
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Refresh_Search()
+    End Sub
+
     Sub File_open()
         Me.Cursor = Cursors.WaitCursor
 

app/DD-Record-Organizer/frmLoginUserSelect.vb

@@ -17,8 +17,18 @@
                 Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
                 newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
                 newUserRow.Username = row.Item("USERNAME")
-                newUserRow.Surname = row.Item("NAME")
-                newUserRow.Prename = row.Item("PRENAME")
+                Try
+                    newUserRow.Surname = row.Item("NAME")
+                Catch ex As Exception
+                    newUserRow.Surname = ""
+                End Try
+                Try
+                    newUserRow.Prename = row.Item("PRENAME")
+                Catch ex As Exception
+                    newUserRow.Prename = ""
+                End Try
+
+
                 Try
                     newUserRow.Email = row.Item("EMAIL")
                 Catch ex As Exception

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

@@ -0,0 +1,183 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmNodeNavigation
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNodeNavigation))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        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.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
+        Me.TreeListDevexpress = New DevExpress.XtraTreeList.TreeList()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.Panel1.SuspendLayout()
+        CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.Panel2.SuspendLayout()
+        Me.SplitContainerMain.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 1
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.Size = New System.Drawing.Size(1096, 147)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "Start"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 821)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1096, 23)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'SplitContainerMain
+        '
+        Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 147)
+        Me.SplitContainerMain.Name = "SplitContainerMain"
+        '
+        'SplitContainerMain.Panel1
+        '
+        Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeListDevexpress)
+        Me.SplitContainerMain.Panel1.Text = "Panel1"
+        '
+        'SplitContainerMain.Panel2
+        '
+        Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainer1)
+        Me.SplitContainerMain.Panel2.Text = "Panel2"
+        Me.SplitContainerMain.Size = New System.Drawing.Size(1096, 674)
+        Me.SplitContainerMain.SplitterPosition = 451
+        Me.SplitContainerMain.TabIndex = 2
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        Me.SplitContainer1.Size = New System.Drawing.Size(633, 674)
+        Me.SplitContainer1.SplitterDistance = 362
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'ImageCollection1
+        '
+        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
+        '
+        'TreeListDevexpress
+        '
+        Me.TreeListDevexpress.AllowDrop = True
+        Me.TreeListDevexpress.Appearance.FocusedRow.BackColor = System.Drawing.Color.Aqua
+        Me.TreeListDevexpress.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.TreeListDevexpress.Caption = "Instandhaltung View"
+        Me.TreeListDevexpress.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeListDevexpress.Location = New System.Drawing.Point(0, 0)
+        Me.TreeListDevexpress.Name = "TreeListDevexpress"
+        Me.TreeListDevexpress.OptionsFilter.ExpandNodesOnFiltering = True
+        Me.TreeListDevexpress.OptionsFilter.FilterMode = DevExpress.XtraTreeList.FilterMode.ParentBranch
+        Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True
+        Me.TreeListDevexpress.OptionsFind.FindDelay = 300
+        Me.TreeListDevexpress.OptionsFind.FindMode = DevExpress.XtraTreeList.FindMode.Always
+        Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
+        Me.TreeListDevexpress.OptionsFind.ShowFindButton = False
+        Me.TreeListDevexpress.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.TreeListDevexpress.OptionsView.ShowColumns = False
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(451, 674)
+        Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
+        Me.TreeListDevexpress.TabIndex = 1
+        '
+        'frmNodeNavigation
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1096, 844)
+        Me.Controls.Add(Me.SplitContainerMain)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Name = "frmNodeNavigation"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "frmNodeNavigation"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.ResumeLayout(False)
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents SplitContainerMain As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents SplitContainer1 As SplitContainer
+    Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
+    Friend WithEvents TreeListDevexpress As DevExpress.XtraTreeList.TreeList
+End Class

app/DD-Record-Organizer/frmNodeNavigation.resx

@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu
+        NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
+        ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
+</value>
+  </data>
+</root>

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -0,0 +1,130 @@
+Imports DevExpress.XtraTreeList
+Imports DevExpress.XtraTreeList.Columns
+Imports DevExpress.XtraTreeList.Nodes.Operations
+Imports DevExpress.XtraTreeList.Nodes
+Imports DevExpress.XtraSplashScreen
+Imports System.Threading
+
+Public Class frmNodeNavigation
+    Dim DTNODES As DataTable
+    Private RunningTask As Task
+    Private RunningTaskTokenSource As New CancellationTokenSource
+    Private RunningTaskToken = RunningTaskTokenSource.Token
+    Private Sub frmNodeNavigation_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        Load_nodes()
+    End Sub
+    Async Function Load_nodes() As Threading.Tasks.Task
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+        Try
+
+            Dim oToken = RunningTaskTokenSource.Token
+            Dim Sql = String.Format("select T.GUID,T.RECORD_ID, T.NODE_CONFIG_ID,T.NODE_CAPTION,T.ID1, T.BACK_COLOR,T.PARENT_GUID from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", 1)
+            DTNODES = ClassDatabase.Return_Datatable(Sql, True)
+            Sql = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", 1)
+            Dim DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(Sql)
+            For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
+                Try
+                    Dim bimage = row.Item("NODE_IMAGE")
+                    If Not IsDBNull(bimage) Then
+                        Dim Node_image = ByteArrayToBitmap(bimage)
+                        ImageCollection1.AddImage(Node_image, row.Item("GUID"))
+                    End If
+                Catch ex As Exception
+
+                End Try
+
+            Next
+
+
+
+            TreeListDevexpress.DataSource = DTNODES
+            TreeListDevexpress.KeyFieldName = "GUID"
+            TreeListDevexpress.ParentFieldName = "PARENT_GUID"
+            TreeListDevexpress.StateImageList = ImageCollection1
+            Try
+                TreeListDevexpress.Columns.ColumnByName("colRECORD_ID").Visible = False
+            Catch ex As Exception
+
+            End Try
+            Try
+                TreeListDevexpress.Columns.ColumnByName("colNODE_CONFIG_ID").Visible = False
+            Catch ex As Exception
+
+            End Try
+            Try
+                TreeListDevexpress.Columns.ColumnByName("colBACK_COLOR").Visible = False
+                TreeListDevexpress.Columns.ColumnByName("colID1").Visible = False
+            Catch ex As Exception
+
+            End Try
+
+
+        Catch ex As Exception
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+        End Try
+
+
+    End Function
+
+    Private Sub TreeListDevexpress_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs)
+        Dim Column_Config_ID As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("NODE_CONFIG_ID")
+        Dim configid = e.Node.GetDisplayText(Column_Config_ID)
+
+        e.Node.StateImageIndex = ImageCollection1.Images.Keys.IndexOf(configid)
+
+    End Sub
+    Private Sub TreeListDevexpress_ColumnFilterChanged(sender As Object, e As EventArgs)
+        Dim tree As TreeList = TryCast(sender, TreeList)
+        Dim filteredColumns As List(Of TreeListColumn) = tree.Columns.Cast(Of TreeListColumn)().Where(Function(c) c.FilterInfo.AutoFilterRowValue IsNot Nothing).ToList()
+        If filteredColumns.Count = 0 Then
+            tree.CollapseAll()
+            Return
+        End If
+
+        tree.BeginUpdate()
+        For Each col As TreeListColumn In filteredColumns
+            Dim op As New CollapseChildrenOperation(col.FilterInfo.AutoFilterRowValue.ToString(), col)
+            tree.NodesIterator.DoOperation(op)
+        Next col
+        tree.EndUpdate()
+    End Sub
+    Public Class CollapseChildrenOperation
+        Inherits TreeListOperation
+
+        Private filterValue As String
+        Private column As TreeListColumn
+
+        Public Sub New(ByVal filter As String, ByVal col As TreeListColumn)
+            filterValue = filter
+            column = col
+        End Sub
+
+        Private Function IsNodeMatchFilter(ByVal node As TreeListNode, ByVal column As TreeListColumn) As Boolean
+            Return node.GetDisplayText(column).Contains(filterValue)
+        End Function
+        Public Overrides Sub Execute(ByVal node As TreeListNode)
+            If IsNodeMatchFilter(node, column) Then
+                node.TreeList.MakeNodeVisible(node)
+                CollapseChildren(node)
+            End If
+        End Sub
+
+        Public Sub CollapseChildren(ByVal node As TreeListNode)
+            'node.Visible = true;
+            For Each childNode As TreeListNode In node.Nodes
+                CollapseChildren(childNode)
+            Next childNode
+            node.Expanded = False
+        End Sub
+    End Class
+
+    Private Sub TreeListDevexpress_FocusedNodeChanged(sender As Object, e As FocusedNodeChangedEventArgs) Handles TreeListDevexpress.FocusedNodeChanged
+        For Each treeListNode As DevExpress.XtraTreeList.Nodes.TreeListNode In TreeListDevexpress.Selection
+            Dim oID = treeListNode.Id
+            Dim PID = treeListNode.ParentNode
+            Console.WriteLine(oID)
+        Next
+    End Sub
+End Class

app/DD-Record-Organizer/frmRight_Management.vb

@@ -35,7 +35,12 @@
             Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
 
             If DD_DMSDataSet.TBPMO_RIGHT_GROUP.GetChanges Is Nothing = False Then
-                Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = USER_USERNAME
+                Try
+
+                    Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = USER_USERNAME
+                Catch ex As Exception
+
+                End Try
                 Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
                 Me.TBPMO_RIGHT_GROUPTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_GROUP)
                 tschangedlabel.Text = "Right Group changed - " & Now
@@ -183,8 +188,17 @@ WHERE T2.SHORT_NAME = 'ADDI'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
                 Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
                 newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
                 newUserRow.Username = row.Item("USERNAME")
-                newUserRow.Surname = row.Item("NAME")
-                newUserRow.Prename = row.Item("PRENAME")
+                Try
+                    newUserRow.Surname = row.Item("NAME")
+                Catch ex As Exception
+                    newUserRow.Surname = ""
+                End Try
+                Try
+                    newUserRow.Prename = row.Item("PRENAME")
+                Catch ex As Exception
+                    newUserRow.Prename = ""
+                End Try
+
                 Try
                     newUserRow.Email = row.Item("EMAIL")
                 Catch ex As Exception

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

@@ -483,9 +483,9 @@ Partial Class frmWM_DoctypeConfig
         '
         'GridView1
         '
-        Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
         Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
+        Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
         Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
         Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG, Me.colOBJEKTTYP, Me.colBESCHREIBUNG})
         Me.GridView1.GridControl = Me.GridControl1

app/DD-Record-Organizer/frmWM_DoctypeConfig.resx

@@ -796,6 +796,9 @@
   <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
+  <data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt</value>
+  </data>
   <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>50, 23</value>
   </data>
@@ -907,12 +910,6 @@
   <data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
     <value>3, 59</value>
   </data>
-  <data name="GridView1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>LightBlue</value>
-  </data>
-  <data name="GridView1.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Fuchsia</value>
-  </data>
   <data name="colBEZEICHNUNG.Caption" xml:space="preserve">
     <value>Dokumentart</value>
   </data>
@@ -1470,7 +1467,7 @@
     <value>403, 56</value>
   </metadata>
   <data name="ToolStripStatusLabel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>120, 17</value>
+    <value>119, 17</value>
   </data>
   <data name="ToolStripStatusLabel1.Text" xml:space="preserve">
     <value>ToolStripStatusLabel1</value>
@@ -2025,7 +2022,7 @@
     <value>0, 27</value>
   </data>
   <data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>305, 205</value>
+    <value>305, 225</value>
   </data>
   <data name="ListBox2.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -2067,7 +2064,7 @@
     <value>Neu hinzufügen</value>
   </data>
   <data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>88, 24</value>
+    <value>89, 24</value>
   </data>
   <data name="ToolStripLabel1.Text" xml:space="preserve">
     <value>von {0} Indexen</value>
@@ -2143,6 +2140,9 @@
   <data name="ToolStripTextBox1.AutoSize" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
+  <data name="ToolStripTextBox1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt</value>
+  </data>
   <data name="ToolStripTextBox1.Size" type="System.Drawing.Size, System.Drawing">
     <value>50, 23</value>
   </data>
@@ -2213,7 +2213,7 @@
     <value>0, 0</value>
   </data>
   <data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1347, 27</value>
+    <value>1265, 27</value>
   </data>
   <data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -2234,7 +2234,7 @@
     <value>22</value>
   </data>
   <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1261, 249</value>
+    <value>1265, 252</value>
   </data>
   <data name="XtraTabPage1.Text" xml:space="preserve">
     <value>Automatische Indexe</value>
@@ -2270,7 +2270,7 @@
     <value>0, 27</value>
   </data>
   <data name="ListBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>305, 222</value>
+    <value>305, 225</value>
   </data>
   <data name="ListBox1.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -2312,7 +2312,7 @@
     <value>Neu hinzufügen</value>
   </data>
   <data name="ToolStripLabel3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>88, 24</value>
+    <value>89, 24</value>
   </data>
   <data name="ToolStripLabel3.Text" xml:space="preserve">
     <value>von {0} Indexen</value>
@@ -2388,6 +2388,9 @@
   <data name="ToolStripTextBox3.AutoSize" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
+  <data name="ToolStripTextBox3.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt</value>
+  </data>
   <data name="ToolStripTextBox3.Size" type="System.Drawing.Size, System.Drawing">
     <value>50, 23</value>
   </data>
@@ -2458,7 +2461,7 @@
     <value>0, 0</value>
   </data>
   <data name="BindingNavigator2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1261, 27</value>
+    <value>1265, 27</value>
   </data>
   <data name="BindingNavigator2.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -2479,7 +2482,7 @@
     <value>1</value>
   </data>
   <data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1261, 249</value>
+    <value>1265, 252</value>
   </data>
   <data name="XtraTabPage3.Text" xml:space="preserve">
     <value>Manuelle Indexe</value>
@@ -2738,6 +2741,9 @@
   <data name="ToolStripTextBox2.AutoSize" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
+  <data name="ToolStripTextBox2.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt</value>
+  </data>
   <data name="ToolStripTextBox2.Size" type="System.Drawing.Size, System.Drawing">
     <value>50, 23</value>
   </data>
@@ -2817,7 +2823,7 @@
     <value>0, 0</value>
   </data>
   <data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1261, 27</value>
+    <value>1265, 27</value>
   </data>
   <data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -2838,7 +2844,7 @@
     <value>5</value>
   </data>
   <data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1261, 249</value>
+    <value>1265, 252</value>
   </data>
   <data name="XtraTabPage2.Text" xml:space="preserve">
     <value>Zurodnung Dokumentart - Entität</value>
@@ -3273,7 +3279,7 @@
     <value>6</value>
   </data>
   <data name="XtraTabPage4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1261, 249</value>
+    <value>1265, 252</value>
   </data>
   <data name="XtraTabPage4.Text" xml:space="preserve">
     <value>Variabler Ordnerpfad</value>