Version 3.1.0.1

clean up
Add config items, clear documents and controls when no record id is available
2023-09-28 12:59:00 +02:00 · 2023-09-28 12:06:39 +02:00 · 2023-09-28 10:49:14 +02:00 · 2023-09-28 08:29:18 +02:00 · 2023-09-27 15:01:04 +02:00
20 changed files with 833 additions and 410 deletions
--- a/app/DD-Record-Organizer/Classes/ClassConfig.vb
+++ b/app/DD-Record-Organizer/Classes/ClassConfig.vb
@@ -5,7 +5,12 @@ Public Class ClassConfig
    ' Global Settings (from computerconfig, overridable by userconfig)
    <ConnectionString>
    Public Property ConnectionString As String = ""
+
    ' Misc Settings
    Public Property DEBUG As Boolean = False
-    Public Property MyFormsDesign As String = "Office 2016 Colorful"
+    Public Property FormsDesign As String = "Office 2016 Colorful"
+
+    Public Property DocumentViewerSplitterWidth As Integer = 0
+    Public Property TreeListSplitterWidth As Integer = 0
+    Public Property DocumentSearchSplitterWidth As Integer = 0
 End Class
--- a/app/DD-Record-Organizer/Classes/ClassFileResult.vb
+++ b/app/DD-Record-Organizer/Classes/ClassFileResult.vb
@@ -1,5 +1,5 @@
 Public Class ClassFileResult
-    Public Shared DocID As Integer
+    Public Shared Property DocID As Integer
    Public Shared InWork As Boolean = False
    Public Shared Function Set_InWork(state As Integer, comment As String)
        Try
--- a/app/DD-Record-Organizer/Classes/Controls/ClassControlValues.vb
+++ b/app/DD-Record-Organizer/Classes/Controls/ClassControlValues.vb
@@ -155,6 +155,10 @@ Public Class ClassControlValues
        Try
            Dim sw As New SW("LoadControlValues1")

+            If RecordId = 0 Then
+                Exit Sub
+            End If
+
            'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
            Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
            Dim DT_ControlValues As DataTable = MYDB_ECM.GetDatatable(SQL)
--- a/app/DD-Record-Organizer/Classes/NodeNavigation/ClassDoctypeChange.vb
+++ b/app/DD-Record-Organizer/Classes/NodeNavigation/ClassDoctypeChange.vb
@@ -0,0 +1,29 @@
+Imports DD_LIB_Standards
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class ClassDoctypeChange
+    Inherits BaseClass
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Function ChangeDocType(pFilePaths As List(Of String), pNewDocTypeName As String, pObjectType As String) As Boolean
+        Try
+            For Each oPath As String In pFilePaths
+                Dim oResult As Boolean = clsWD_SET.IndexFile(oPath, "String 37", pNewDocTypeName, pObjectType)
+                If oResult = True Then
+                    Logger.Debug("Successfully set doctype of file [{0}] to [{1}]", oPath, pNewDocTypeName)
+                Else
+                    Logger.Warn("Could not set doctype of file [{0}]!", pNewDocTypeName)
+                End If
+            Next
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+
+        End Try
+    End Function
+End Class
--- a/app/DD-Record-Organizer/ModuleMySettings.vb
+++ b/app/DD-Record-Organizer/ModuleMySettings.vb
@@ -10,7 +10,6 @@ Module ModuleMySettings
    Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig2.xml")

    Public MyConnectionString As String = ""
-    Public MyFormsDesign As String = ""

    Public DEBUG As Boolean = False
    Public Sett_TaskOverviewKeepInFront As Boolean = True
@@ -221,10 +220,6 @@ Module ModuleMySettings
                        Else
                            MY_ADDON_PATH = Row.Item("Value")
                        End If
-                    Case "MyFormsDesign"
-                        If Row.Item("Value") <> String.Empty Then
-                            MyFormsDesign = Row.Item("Value")
-                        End If
                    Case "GridDocResult_BestFitColumns"
                        GridDocResult_BestFitColumns = CBool(Row.Item("Value"))

@@ -280,13 +275,6 @@ Module ModuleMySettings
                DT.Rows.Add(newRow)
                DT.WriteXml(ConfigPath)
            End If
-            If rowresult.Contains("MyFormsDesign") = False Then
-                Dim newRow As DataRow = DT.NewRow()
-                newRow("ConfigName") = "MyFormsDesign"
-                newRow("Value") = ""
-                DT.Rows.Add(newRow)
-                DT.WriteXml(ConfigPath)
-            End If
            If rowresult.Contains("GridDocResult_BestFitColumns") = False Then
                Dim newRow As DataRow = DT.NewRow()
                newRow("ConfigName") = "GridDocResult_BestFitColumns"
--- a/app/DD-Record-Organizer/My
+++ b/app/DD-Record-Organizer/My
@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("OrgFlow")>
 <Assembly: AssemblyCopyright("Copyright 2023 Digital Data")>
-<Assembly: AssemblyTrademark("3.1.0.0")>
+<Assembly: AssemblyTrademark("3.1.0.1")>

 <Assembly: ComVisible(False)> 

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

-<Assembly: AssemblyVersion("3.1.0.0")>
+<Assembly: AssemblyVersion("3.1.0.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

 <Assembly: NeutralResourcesLanguageAttribute("")> 
--- a/app/DD-Record-Organizer/OrgFlow.ruleset
+++ b/app/DD-Record-Organizer/OrgFlow.ruleset
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="utf-8"?>
+<RuleSet Name="New Rule Set" Description=" " ToolsVersion="17.0">
+  <Rules AnalyzerId="Microsoft.Analyzers.ManagedCodeAnalysis" RuleNamespace="Microsoft.Rules.Managed">
+    <Rule Id="CA1801" Action="Warning" />
+    <Rule Id="CA1804" Action="Warning" />
+    <Rule Id="CA1811" Action="Warning" />
+    <Rule Id="CA1812" Action="Warning" />
+    <Rule Id="CA1823" Action="Warning" />
+  </Rules>
+  <Rules AnalyzerId="Microsoft.Analyzers.NativeCodeAnalysis" RuleNamespace="Microsoft.Rules.Native">
+    <Rule Id="C6259" Action="Warning" />
+  </Rules>
+</RuleSet>
--- a/app/DD-Record-Organizer/OrgFlow.vbproj
+++ b/app/DD-Record-Organizer/OrgFlow.vbproj
@@ -307,6 +307,7 @@
    <Compile Include="Classes\ClassWDRights.vb" />
    <Compile Include="Classes\ClassWindreamDocGrid.vb" />
    <Compile Include="Classes\ClassWorkflow.vb" />
+    <Compile Include="Classes\NodeNavigation\ClassDoctypeChange.vb" />
    <Compile Include="Classes\NodeNavigation\ClassNodeCreator.vb" />
    <Compile Include="DD_DMSDataSet.Designer.vb">
      <AutoGen>True</AutoGen>
@@ -322,6 +323,12 @@
    <Compile Include="frmCalendarEntity.vb">
      <SubType>Form</SubType>
    </Compile>
+    <Compile Include="frmChangeDocType.Designer.vb">
+      <DependentUpon>frmChangeDocType.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmChangeDocType.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="frmChooseParentRecord.Designer.vb">
      <DependentUpon>frmChooseParentRecord.vb</DependentUpon>
    </Compile>
@@ -803,6 +810,9 @@
    <EmbeddedResource Include="frmCalendarEntity.resx">
      <DependentUpon>frmCalendarEntity.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="frmChangeDocType.resx">
+      <DependentUpon>frmChangeDocType.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="frmChooseParentRecord.en-US.resx">
      <DependentUpon>frmChooseParentRecord.vb</DependentUpon>
    </EmbeddedResource>
@@ -1267,6 +1277,7 @@
    <None Include="App.config" />
  </ItemGroup>
  <ItemGroup>
+    <None Include="OrgFlow.ruleset" />
    <None Include="packages.config" />
    <None Include="Resources\database_go.png" />
  </ItemGroup>
--- a/app/DD-Record-Organizer/frmChangeDocType.Designer.vb
+++ b/app/DD-Record-Organizer/frmChangeDocType.Designer.vb
@@ -0,0 +1,174 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmChangeDocType
+    Inherits DevExpress.XtraEditors.XtraForm
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmChangeDocType))
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.cmbDocType = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
+        Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
+        Me.txtDocuments = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtDocuments.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'LayoutControl1
+        '
+        Me.LayoutControl1.Controls.Add(Me.cmbDocType)
+        Me.LayoutControl1.Controls.Add(Me.SimpleButton1)
+        Me.LayoutControl1.Controls.Add(Me.txtDocuments)
+        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControl1.Name = "LayoutControl1"
+        Me.LayoutControl1.Root = Me.Root
+        Me.LayoutControl1.Size = New System.Drawing.Size(431, 131)
+        Me.LayoutControl1.TabIndex = 0
+        Me.LayoutControl1.Text = "LayoutControl1"
+        '
+        'Root
+        '
+        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.Root.GroupBordersVisible = False
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.EmptySpaceItem2, Me.LayoutControlItem3})
+        Me.Root.Name = "Root"
+        Me.Root.Size = New System.Drawing.Size(431, 131)
+        Me.Root.TextVisible = False
+        '
+        'cmbDocType
+        '
+        Me.cmbDocType.Location = New System.Drawing.Point(114, 36)
+        Me.cmbDocType.Name = "cmbDocType"
+        Me.cmbDocType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.cmbDocType.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.DisableTextEditor
+        Me.cmbDocType.Size = New System.Drawing.Size(305, 20)
+        Me.cmbDocType.StyleController = Me.LayoutControl1
+        Me.cmbDocType.TabIndex = 5
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.cmbDocType
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(411, 24)
+        Me.LayoutControlItem2.Text = "Neue Dokumentart"
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(90, 13)
+        '
+        'SimpleButton1
+        '
+        Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.SimpleButton1.Location = New System.Drawing.Point(299, 97)
+        Me.SimpleButton1.Name = "SimpleButton1"
+        Me.SimpleButton1.Size = New System.Drawing.Size(120, 22)
+        Me.SimpleButton1.StyleController = Me.LayoutControl1
+        Me.SimpleButton1.TabIndex = 6
+        Me.SimpleButton1.Text = "OK"
+        '
+        'LayoutControlItem1
+        '
+        Me.LayoutControlItem1.Control = Me.SimpleButton1
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(287, 85)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(124, 26)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem1.TextVisible = False
+        '
+        'EmptySpaceItem1
+        '
+        Me.EmptySpaceItem1.AllowHotTrack = False
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 85)
+        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(287, 26)
+        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
+        '
+        'EmptySpaceItem2
+        '
+        Me.EmptySpaceItem2.AllowHotTrack = False
+        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 48)
+        Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
+        Me.EmptySpaceItem2.Size = New System.Drawing.Size(411, 37)
+        Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
+        '
+        'txtDocuments
+        '
+        Me.txtDocuments.Location = New System.Drawing.Point(114, 12)
+        Me.txtDocuments.Name = "txtDocuments"
+        Me.txtDocuments.Properties.ReadOnly = True
+        Me.txtDocuments.Size = New System.Drawing.Size(305, 20)
+        Me.txtDocuments.StyleController = Me.LayoutControl1
+        Me.txtDocuments.TabIndex = 7
+        '
+        'LayoutControlItem3
+        '
+        Me.LayoutControlItem3.Control = Me.txtDocuments
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(411, 24)
+        Me.LayoutControlItem3.Text = "Dokument"
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(90, 13)
+        '
+        'frmChangeDocType
+        '
+        Me.AcceptButton = Me.SimpleButton1
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(431, 131)
+        Me.Controls.Add(Me.LayoutControl1)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmChangeDocType.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.Name = "frmChangeDocType"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Dokumentart ändern"
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtDocuments.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
+    Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
+    Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
+    Friend WithEvents txtDocuments As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+End Class
--- a/app/DD-Record-Organizer/frmChangeDocType.resx
+++ b/app/DD-Record-Organizer/frmChangeDocType.resx
@@ -0,0 +1,139 @@
+<?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>
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="frmChangeDocType.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHECAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTXVsdGlwbGVfRG9jdW1lbnRzIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91
+        bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDoj
+        NzI3MjcyO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTMxLDhoLTVWNWMwLTAuNS0wLjUtMS0xLTFoLTVW
+        MWMwLTAuNS0wLjUtMS0xLTFIMUMwLjUsMCwwLDAuNSwwLDF2MjJjMCwwLjUsMC41LDEsMSwxaDV2M2Mw
+        LDAuNSwwLjUsMSwxLDEgIGg1djNjMCwwLjUsMC41LDEsMSwxaDE4YzAuNSwwLDEtMC41LDEtMVY5QzMy
+        LDguNSwzMS41LDgsMzEsOHogTTYsNXYxN0gyVjJoMTZ2Mkg3QzYuNSw0LDYsNC41LDYsNXogTTEyLDl2
+        MTdIOFY2aDE2djJIMTMgIEMxMi41LDgsMTIsOC41LDEyLDl6IE0zMCwzMEgxNFYxMGgxNlYzMHoiIGNs
+        YXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
+</value>
+  </data>
+</root>
--- a/app/DD-Record-Organizer/frmChangeDocType.vb
+++ b/app/DD-Record-Organizer/frmChangeDocType.vb
@@ -0,0 +1,29 @@
+Public Class frmChangeDocType
+    Public Property SelectedDocType As DocType
+    Public Property DocTypes As List(Of DocType)
+    Public Property FileNames As List(Of String)
+
+
+    Private Sub frmChangeDocType_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cmbDocType.Properties.Items.AddRange(DocTypes)
+
+        If FileNames.Count = 1 Then
+            txtDocuments.EditValue = FileNames.First()
+        Else
+            txtDocuments.EditValue = $"{FileNames.Count} Dokumente"
+        End If
+    End Sub
+
+    Public Class DocType
+        Public Property Name As String
+        Public Property Id As Integer
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        SelectedDocType = cmbDocType.EditValue
+    End Sub
+End Class
--- a/app/DD-Record-Organizer/frmConfig_Basic.vb
+++ b/app/DD-Record-Organizer/frmConfig_Basic.vb
@@ -165,7 +165,7 @@ Public Class frmConfig_Basic
                cmbConstructor.Enabled = False
            End If

-            cmbDesign.Text = MyFormsDesign
+            cmbDesign.Text = CONFIG.Config.FormsDesign

            'Catch ex As Exception
            '    MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -536,23 +536,19 @@ Public Class frmConfig_Basic
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If cmbDesign.SelectedIndex <> -1 Then
            UserLookAndFeel.Default.SetSkinStyle(cmbDesign.Text)
-            SaveMySettingsValue("MyFormsDesign", cmbDesign.Text, "ConfigMain")
+            CONFIG.Config.FormsDesign = cmbDesign.Text
+            CONFIG.Save()
        End If
-
-    End Sub
-
-    Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged
-
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        Dim exists
+        Dim oExists = False
        If rbUser.Checked Then
-            exists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
+            oExists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
        ElseIf rbGruppe.Checked Then
-            exists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
+            oExists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
        End If
-        If exists = True Then
+        If oExists = True Then
            MsgBox("Object exists in windream!")
        Else
            MsgBox("Object is not existing in windream!", MsgBoxStyle.Critical)
--- a/app/DD-Record-Organizer/frmConstructor_Main.resx
+++ b/app/DD-Record-Organizer/frmConstructor_Main.resx
@@ -230,7 +230,7 @@
    <value>Knoten umbenennen</value>
  </data>
  <data name="SdsdToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>216, 26</value>
+    <value>212, 22</value>
  </data>
  <data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
    <value>Knotentext:</value>
@@ -242,7 +242,7 @@
    <value>152, 23</value>
  </data>
  <data name="ToolStripSeparator15.Size" type="System.Drawing.Size, System.Drawing">
-    <value>213, 6</value>
+    <value>209, 6</value>
  </data>
  <data name="OberhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
@@ -253,7 +253,7 @@
 </value>
  </data>
  <data name="OberhalbToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>216, 26</value>
+    <value>212, 22</value>
  </data>
  <data name="OberhalbToolStripMenuItem.Text" xml:space="preserve">
    <value>Auf dieser Ebene</value>
@@ -268,7 +268,7 @@
 </value>
  </data>
  <data name="UnterhalbToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>216, 26</value>
+    <value>212, 22</value>
  </data>
  <data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
    <value>Unterhalb</value>
@@ -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>
@@ -496,7 +496,7 @@
    <value>0, 0</value>
  </data>
  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>908, 237</value>
+    <value>910, 237</value>
  </data>
  <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@@ -592,7 +592,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>699, 231</value>
+    <value>699, 223</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, 206</value>
+    <value>488, 198</value>
  </data>
  <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
    <value>5</value>
@@ -681,10 +681,10 @@
    <value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
  </data>
  <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 206</value>
+    <value>0, 198</value>
  </data>
  <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>486, 25</value>
+    <value>488, 25</value>
  </data>
  <data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -720,7 +720,7 @@
    <value>1</value>
  </data>
  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 235</value>
+    <value>1201, 227</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, 262</value>
+    <value>1201, 254</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, 290</value>
+    <value>1203, 282</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, 227</value>
+    <value>1201, 237</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, 254</value>
+    <value>1201, 264</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, 254</value>
+    <value>1201, 264</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, 254</value>
+    <value>1201, 264</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, 254</value>
+    <value>1201, 264</value>
  </data>
  <data name="TabFollowUp.Text" xml:space="preserve">
    <value>Wiedervorlage</value>
@@ -1790,7 +1790,7 @@
    <value>5</value>
  </data>
  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 227</value>
+    <value>1201, 237</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, 254</value>
+    <value>1201, 264</value>
  </data>
  <data name="TabPageVariant.Text" xml:space="preserve">
    <value>Vorgängervarianten</value>
@@ -1963,7 +1963,7 @@
    <value>1</value>
  </data>
  <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 539</value>
+    <value>1203, 529</value>
  </data>
  <data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@@ -1987,7 +1987,7 @@
    <value>Fill</value>
  </data>
  <data name="SplitContainerFORM.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 147</value>
+    <value>0, 158</value>
  </data>
  <data name="SplitContainerFORM.Panel1.Text" xml:space="preserve">
    <value>Panel1</value>
@@ -2020,7 +2020,7 @@
    <value>1</value>
  </data>
  <data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 539</value>
+    <value>1203, 529</value>
  </data>
  <data name="SplitContainerFORM.TabIndex" type="System.Int32, mscorlib">
    <value>4</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>
@@ -3085,13 +3085,13 @@
    <value>Funktionen</value>
  </data>
  <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 147</value>
+    <value>1203, 158</value>
  </data>
  <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 686</value>
+    <value>0, 687</value>
  </data>
  <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 23</value>
+    <value>1203, 22</value>
  </data>
  <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
    <value>RibbonStatusBar1</value>
--- a/app/DD-Record-Organizer/frmFileRename.vb
+++ b/app/DD-Record-Organizer/frmFileRename.vb
@@ -1,8 +1,9 @@
 Imports System.IO

 Public Class frmFileRename
-    Dim oRenameType As String
-    Public Sub New(DocID As Int32, oldName As String, pRenameType As String)
+    Private ReadOnly oRenameType As String
+
+    Public Sub New(DocID As Integer, oldName As String, pRenameType As String)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
@@ -43,7 +44,7 @@ Public Class frmFileRename
                OnlyFilename = NewName
                Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
                Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
-                NewName = NewName & Path.GetExtension(oFullFilename)
+                NewName &= Path.GetExtension(oFullFilename)
                OnlyFilename &= Path.GetExtension(oFullFilename)
                ' Rename file.
                LOGGER.Info($"Renaming Old: [{OldName}]")
@@ -59,9 +60,5 @@ Public Class frmFileRename
                End If
            End If
        End If
-
-
-
-
    End Sub
 End Class
--- a/app/DD-Record-Organizer/frmMain.vb
+++ b/app/DD-Record-Organizer/frmMain.vb
@@ -72,7 +72,7 @@ Public Class frmMain
                ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
                Dim i = My.Application.UICulture.ToString()

-                UserLookAndFeel.Default.SetSkinStyle(MyFormsDesign)
+                UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.FormsDesign)


                ' GetIPv4Address()
--- a/app/DD-Record-Organizer/frmNewNode.Designer.vb
+++ b/app/DD-Record-Organizer/frmNewNode.Designer.vb
@@ -19,6 +19,7 @@ Partial Class frmNewNode
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewNode))
        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
        Me.cmbNodeConfig = New DevExpress.XtraEditors.ComboBoxEdit()
        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
@@ -56,19 +57,19 @@ Partial Class frmNewNode
        '
        'cmbNodeConfig
        '
-        Me.cmbNodeConfig.Location = New System.Drawing.Point(73, 36)
+        Me.cmbNodeConfig.Location = New System.Drawing.Point(81, 36)
        Me.cmbNodeConfig.Name = "cmbNodeConfig"
        Me.cmbNodeConfig.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
        Me.cmbNodeConfig.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.DisableTextEditor
-        Me.cmbNodeConfig.Size = New System.Drawing.Size(356, 20)
+        Me.cmbNodeConfig.Size = New System.Drawing.Size(348, 20)
        Me.cmbNodeConfig.StyleController = Me.LayoutControl1
        Me.cmbNodeConfig.TabIndex = 4
        '
        'TextEdit1
        '
-        Me.TextEdit1.Location = New System.Drawing.Point(73, 12)
+        Me.TextEdit1.Location = New System.Drawing.Point(81, 12)
        Me.TextEdit1.Name = "TextEdit1"
-        Me.TextEdit1.Size = New System.Drawing.Size(356, 20)
+        Me.TextEdit1.Size = New System.Drawing.Size(348, 20)
        Me.TextEdit1.StyleController = Me.LayoutControl1
        Me.TextEdit1.TabIndex = 5
        '
@@ -140,9 +141,11 @@ Partial Class frmNewNode
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(441, 125)
        Me.Controls.Add(Me.LayoutControl1)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmNewNode.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmNewNode"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "Neuen Knoten erstellen"
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.LayoutControl1.ResumeLayout(False)
--- a/app/DD-Record-Organizer/frmNewNode.resx
+++ b/app/DD-Record-Organizer/frmNewNode.resx
@@ -117,4 +117,28 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="frmNewNode.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW5zZXJ0VHJl
+        ZVZpZXciPg0KICAgIDxwYXRoIGQ9Ik0xMyw4SDVDNC40LDgsNCw3LjYsNCw3VjNjMC0wLjUsMC40LTEs
+        MS0xaDhjMC42LDAsMSwwLjUsMSwxdjRDMTQsNy42LDEzLjYsOCwxMyw4eiBNMjYsMTd2LTQgICBjMC0w
+        LjYtMC41LTEtMS0xaC04Yy0wLjUsMC0xLDAuNC0xLDF2NGMwLDAuNSwwLjUsMSwxLDFoOEMyNS41LDE4
+        LDI2LDE3LjUsMjYsMTd6IE0yNiwyN3YtNGMwLTAuNS0wLjUtMS0xLTFoLThjLTAuNSwwLTEsMC41LTEs
+        MSAgIHY0YzAsMC41LDAuNSwxLDEsMWg4QzI1LjUsMjgsMjYsMjcuNSwyNiwyN3oiIGNsYXNzPSJZZWxs
+        b3ciIC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSIxNCwxNiAxNCwxNCAxMCwxNCAxMCwxMCA4LDEwIDgs
+        MjYgMTQsMjYgMTQsMjQgMTAsMjQgMTAsMTYgICIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2
+        Zz4L
+</value>
+  </data>
 </root>
--- a/app/DD-Record-Organizer/frmNodeNavigation.Designer.vb
+++ b/app/DD-Record-Organizer/frmNodeNavigation.Designer.vb
@@ -51,10 +51,9 @@ Partial Class frmNodeNavigation
        Me.RPGNodes = 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.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl()
        Me.TreeListDevexpress = New DevExpress.XtraTreeList.TreeList()
        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
-        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
        Me.pnlControls = New System.Windows.Forms.Panel()
        Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
        Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
@@ -78,6 +77,7 @@ Partial Class frmNodeNavigation
        Me.tsmiFileRenameFilename = New System.Windows.Forms.ToolStripMenuItem()
        Me.tsmiFileRenameDisplayname = New System.Windows.Forms.ToolStripMenuItem()
        Me.tsmiFileVersion = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DokumentartÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.tsmiFileRightsShow = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
        Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem()
@@ -85,19 +85,16 @@ Partial Class frmNodeNavigation
        Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
        Me.SplitContainerDocView = New DevExpress.XtraEditors.SplitContainerControl()
        Me.DocumentViewer = New DigitalData.Controls.DocumentViewer.DocumentViewer()
+        Me.SplitContainerDocumentSearch = New DevExpress.XtraEditors.SplitContainerControl()
        CType(Me.ribbonNodeNavigation, 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.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerTreeList.Panel1.SuspendLayout()
+        CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerTreeList.Panel2.SuspendLayout()
+        Me.SplitContainerTreeList.SuspendLayout()
        CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainer1.Panel1.SuspendLayout()
-        Me.SplitContainer1.Panel2.SuspendLayout()
-        Me.SplitContainer1.SuspendLayout()
        CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.cmsResultFilesBasic.SuspendLayout()
@@ -108,6 +105,12 @@ Partial Class frmNodeNavigation
        CType(Me.SplitContainerDocView.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainerDocView.Panel2.SuspendLayout()
        Me.SplitContainerDocView.SuspendLayout()
+        CType(Me.SplitContainerDocumentSearch, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerDocumentSearch.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerDocumentSearch.Panel1.SuspendLayout()
+        CType(Me.SplitContainerDocumentSearch.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerDocumentSearch.Panel2.SuspendLayout()
+        Me.SplitContainerDocumentSearch.SuspendLayout()
        Me.SuspendLayout()
        '
        'ribbonNodeNavigation
@@ -124,7 +127,7 @@ Partial Class frmNodeNavigation
        Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
        Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
-        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1307, 147)
+        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1307, 158)
        Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
        Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
        '
@@ -305,34 +308,34 @@ Partial Class frmNodeNavigation
        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmRecordID)
        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 667)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 668)
        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
        Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1307, 23)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1307, 22)
        '
        'RibbonPage2
        '
        Me.RibbonPage2.Name = "RibbonPage2"
        Me.RibbonPage2.Text = "RibbonPage2"
        '
-        'SplitContainerMain
+        'SplitContainerTreeList
        '
-        Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerMain.Name = "SplitContainerMain"
+        Me.SplitContainerTreeList.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerTreeList.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerTreeList.Name = "SplitContainerTreeList"
        '
-        'SplitContainerMain.Panel1
+        'SplitContainerTreeList.Panel1
        '
-        Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeListDevexpress)
-        Me.SplitContainerMain.Panel1.Text = "Panel1"
+        Me.SplitContainerTreeList.Panel1.Controls.Add(Me.TreeListDevexpress)
+        Me.SplitContainerTreeList.Panel1.Text = "Panel1"
        '
-        'SplitContainerMain.Panel2
+        'SplitContainerTreeList.Panel2
        '
-        Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainer1)
-        Me.SplitContainerMain.Panel2.Text = "Panel2"
-        Me.SplitContainerMain.Size = New System.Drawing.Size(1295, 520)
-        Me.SplitContainerMain.SplitterPosition = 289
-        Me.SplitContainerMain.TabIndex = 2
+        Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
+        Me.SplitContainerTreeList.Panel2.Text = "Panel2"
+        Me.SplitContainerTreeList.Size = New System.Drawing.Size(1297, 510)
+        Me.SplitContainerTreeList.SplitterPosition = 289
+        Me.SplitContainerTreeList.TabIndex = 2
        '
        'TreeListDevexpress
        '
@@ -368,7 +371,7 @@ Partial Class frmNodeNavigation
        Me.TreeListDevexpress.OptionsView.ShowVertLines = False
        Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
        Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
-        Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 520)
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 510)
        Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
        Me.TreeListDevexpress.TabIndex = 1
        '
@@ -376,25 +379,6 @@ Partial Class frmNodeNavigation
        '
        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
        '
-        'SplitContainer1
-        '
-        Me.SplitContainer1.AllowDrop = True
-        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
-        '
-        'SplitContainer1.Panel1
-        '
-        Me.SplitContainer1.Panel1.Controls.Add(Me.pnlControls)
-        '
-        'SplitContainer1.Panel2
-        '
-        Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlDocSearch)
-        Me.SplitContainer1.Size = New System.Drawing.Size(994, 520)
-        Me.SplitContainer1.SplitterDistance = 167
-        Me.SplitContainer1.TabIndex = 0
-        '
        'pnlControls
        '
        Me.pnlControls.AllowDrop = True
@@ -402,7 +386,7 @@ Partial Class frmNodeNavigation
        Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlControls.Location = New System.Drawing.Point(0, 0)
        Me.pnlControls.Name = "pnlControls"
-        Me.pnlControls.Size = New System.Drawing.Size(994, 167)
+        Me.pnlControls.Size = New System.Drawing.Size(998, 246)
        Me.pnlControls.TabIndex = 0
        '
        'GridControlDocSearch
@@ -415,7 +399,7 @@ Partial Class frmNodeNavigation
        Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
        Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
        Me.GridControlDocSearch.Name = "GridControlDocSearch"
-        Me.GridControlDocSearch.Size = New System.Drawing.Size(994, 349)
+        Me.GridControlDocSearch.Size = New System.Drawing.Size(998, 254)
        Me.GridControlDocSearch.TabIndex = 8
        Me.GridControlDocSearch.TabStop = False
        Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -472,9 +456,9 @@ Partial Class frmNodeNavigation
        '
        'cmsResultFileDetail
        '
-        Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLink_ShowAll, Me.tsmiFileLinkRemove, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
+        Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLink_ShowAll, Me.tsmiFileLinkRemove, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.tsmiFileVersion, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
        Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles"
-        Me.cmsResultFileDetail.Size = New System.Drawing.Size(240, 276)
+        Me.cmsResultFileDetail.Size = New System.Drawing.Size(240, 298)
        '
        'tsmiFileProperties
        '
@@ -571,6 +555,12 @@ Partial Class frmNodeNavigation
        Me.tsmiFileVersion.Size = New System.Drawing.Size(239, 22)
        Me.tsmiFileVersion.Text = "Datei versionieren"
        '
+        'DokumentartÄndernToolStripMenuItem
+        '
+        Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
+        Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(239, 22)
+        Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
+        '
        'tsmiFileRightsShow
        '
        Me.tsmiFileRightsShow.Image = CType(resources.GetObject("tsmiFileRightsShow.Image"), System.Drawing.Image)
@@ -603,19 +593,19 @@ Partial Class frmNodeNavigation
        Me.SplitContainerDocView.Collapsed = True
        Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 147)
+        Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158)
        Me.SplitContainerDocView.Name = "SplitContainerDocView"
        '
        'SplitContainerDocView.Panel1
        '
-        Me.SplitContainerDocView.Panel1.Controls.Add(Me.SplitContainerMain)
+        Me.SplitContainerDocView.Panel1.Controls.Add(Me.SplitContainerTreeList)
        Me.SplitContainerDocView.Panel1.Text = "Panel1"
        '
        'SplitContainerDocView.Panel2
        '
        Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
        Me.SplitContainerDocView.Panel2.Text = "Panel2"
-        Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 520)
+        Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 510)
        Me.SplitContainerDocView.SplitterPosition = 969
        Me.SplitContainerDocView.TabIndex = 0
        '
@@ -628,6 +618,26 @@ Partial Class frmNodeNavigation
        Me.DocumentViewer.Size = New System.Drawing.Size(0, 0)
        Me.DocumentViewer.TabIndex = 0
        '
+        'SplitContainerDocumentSearch
+        '
+        Me.SplitContainerDocumentSearch.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerDocumentSearch.Horizontal = False
+        Me.SplitContainerDocumentSearch.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerDocumentSearch.Name = "SplitContainerDocumentSearch"
+        '
+        'SplitContainerDocumentSearch.SplitContainerDocumentSearch_Panel1
+        '
+        Me.SplitContainerDocumentSearch.Panel1.Controls.Add(Me.pnlControls)
+        Me.SplitContainerDocumentSearch.Panel1.Text = "Panel1"
+        '
+        'SplitContainerDocumentSearch.SplitContainerDocumentSearch_Panel2
+        '
+        Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
+        Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
+        Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(998, 510)
+        Me.SplitContainerDocumentSearch.SplitterPosition = 246
+        Me.SplitContainerDocumentSearch.TabIndex = 1
+        '
        'frmNodeNavigation
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -642,18 +652,14 @@ Partial Class frmNodeNavigation
        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "frmNodeNavigation"
        CType(Me.ribbonNodeNavigation, 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.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerTreeList.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerTreeList.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerTreeList.ResumeLayout(False)
        CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainer1.Panel1.ResumeLayout(False)
-        Me.SplitContainer1.Panel2.ResumeLayout(False)
-        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainer1.ResumeLayout(False)
        CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
        Me.cmsResultFilesBasic.ResumeLayout(False)
@@ -664,6 +670,12 @@ Partial Class frmNodeNavigation
        Me.SplitContainerDocView.Panel2.ResumeLayout(False)
        CType(Me.SplitContainerDocView, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainerDocView.ResumeLayout(False)
+        CType(Me.SplitContainerDocumentSearch.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDocumentSearch.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerDocumentSearch.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDocumentSearch.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainerDocumentSearch, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDocumentSearch.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -674,8 +686,7 @@ Partial Class frmNodeNavigation
    Friend WithEvents RibbonPageGroupRecord 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 SplitContainerTreeList As DevExpress.XtraEditors.SplitContainerControl
    Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
    Friend WithEvents TreeListDevexpress As DevExpress.XtraTreeList.TreeList
    Friend WithEvents bbtnitmRecEdit As DevExpress.XtraBars.BarButtonItem
@@ -729,4 +740,6 @@ Partial Class frmNodeNavigation
    Friend WithEvents RibbonPageGroupView As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents checkShowPreview As DevExpress.XtraBars.BarCheckItem
    Friend WithEvents btnCreateNewNode As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents DokumentartÄndernToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents SplitContainerDocumentSearch As DevExpress.XtraEditors.SplitContainerControl
 End Class
--- a/app/DD-Record-Organizer/frmNodeNavigation.vb
+++ b/app/DD-Record-Organizer/frmNodeNavigation.vb
@@ -18,64 +18,57 @@ Imports DigitalData.Modules.Database

 Public Class frmNodeNavigation
 #Region "Laufzeitvariablen & Konstanten"
-    Private DT_STRUCTURE_NODES As DataTable
-    Private DT_ADDING_USERS As DataTable
-    Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
-    Private RunningTask As Task
-    Private RunningTaskTokenSource As New CancellationTokenSource
-    Private RunningTaskToken = RunningTaskTokenSource.Token
-    Private _EntityId As Short
-    Private oConstructID As Short
-    Private CONSTRUCTORID As Integer
-    Private CONSTRUCTOR_DETAIL_ID As Short
-    Private _FilterActive As Boolean = False
-    Private _RowReadOnly As Boolean = False
-    Private ADD_RECORDS_CONSTR As Boolean = True
-    Private TV_Collapse_ExpandState = "Collapse"
+    Private Property DT_STRUCTURE_NODES As DataTable
+    Private Property DT_ADDING_USERS As DataTable
+    Private Property DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
+    Private Property RunningTaskTokenSource As New CancellationTokenSource
+    Private Property _EntityId As Short
+    Private Property oConstructID As Short
+    Private Property CONSTRUCTORID As Integer
+    Private Property CONSTRUCTOR_DETAIL_ID As Short
+    Private Property _RowReadOnly As Boolean = False
+    Private Property ADD_RECORDS_CONSTR As Boolean = True
+    Private Property TV_Collapse_ExpandState = "Collapse"

-    Private WindowsEx As WindowsEx
+    Private Property WindowsEx As WindowsEx

-    Private DT_CONTROLS_ENTITY As DataTable
-    Private DT_COLUMNS_GRID_ENTITY As DataTable
-    Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
-    Private DT_RESULTLIST_OPTIONS As DataTable
-    Private DT_RESULTLIST_VARIABLE_VALUE As DataTable
-    Private DT_ENTITY_DATA As DataTable
-    Private DT_TBPMO_FORM_VIEW As DataTable
-    Private DT_CONSTRUCT_VIEW As DataTable
-    Private COUNT_RO_CONTROLS As Integer = 0
-    Private SELECTED_NODE_RECORD_ID As Integer
-    Private SELECTED_NODE_CAPTION As String
-    Private ENTITY_RECORD_COUNT As Integer = 0
-    Private FORMVIEW_ID As Integer
-    Private FORM_LOADED As Boolean = False
-    Private FORM_SHOWN As Boolean = False
-    Private SAVE_ROUTINE_ACTIVE As Boolean = False
+    Private Property DT_CONTROLS_ENTITY As DataTable
+    Private Property DT_COLUMNS_GRID_ENTITY As DataTable
+    Private Property DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
+    Private Property DT_RESULTLIST_OPTIONS As DataTable
+    Private Property DT_RESULTLIST_VARIABLE_VALUE As DataTable
+    Private Property DT_ENTITY_DATA As DataTable
+    Private Property DT_TBPMO_FORM_VIEW As DataTable
+    Private Property DT_CONSTRUCT_VIEW As DataTable
+    Private Property COUNT_RO_CONTROLS As Integer = 0
+    Private Property SELECTED_NODE_RECORD_ID As Integer
+    Private Property SELECTED_NODE_CAPTION As String
+    Private Property FORMVIEW_ID As Integer
+    Private Property FORM_LOADED As Boolean = False
+    Private Property FORM_SHOWN As Boolean = False
+    Private Property SAVE_ROUTINE_ACTIVE As Boolean = False

-    Private ENTITY_LOADING_PROCESS As Boolean = False
-    Private RECORD_ENABLED As Boolean = False
-    Private BACKGROUND_HELPER As ClassBackgroundHelper
-    Private Node_AfterSelect As Boolean = False
-    Private EDIT_STATE As EditState = EditState.None
-    Private POS_ENABLED As Boolean = False
-    Private ERROR_WHILE_SAVING As Boolean = False
-    Private taskToken As CancellationTokenSource
-    Private IW_USER As String
-    Private IW_COMMENT As String
-    Private INWORK_FILE As Boolean
-    Private CONTROL_DOCTYPE_MATCH As Integer = 0
-    Private FocusedNode As TreeListNode
-    Private MyTreeListViewState As ClassTreeListViewState
+    Private Property ENTITY_LOADING_PROCESS As Boolean = False
+    Private Property RECORD_ENABLED As Boolean = False
+    Private Property Node_AfterSelect As Boolean = False
+    Private Property EDIT_STATE As EditState = EditState.None
+    Private Property ERROR_WHILE_SAVING As Boolean = False
+    Private Property IW_USER As String
+    Private Property IW_COMMENT As String
+    Private Property INWORK_FILE As Boolean
+    Private Property CONTROL_DOCTYPE_MATCH As Integer = 0
+    Private Property FocusedNode As TreeListNode
+    Private Property MyTreeListViewState As ClassTreeListViewState

-    Private AvailableConfigNodes As New List(Of frmNewNode.NodeConfig)
-    Private CurrentNodeConfigId As Integer = 0
+    Private Property AvailableConfigNodes As New List(Of frmNewNode.NodeConfig)
+    Private Property CurrentNodeConfigId As Integer = 0

-    Private DocList As ClassWindreamDocGrid
+    Private Property DocList As ClassWindreamDocGrid

    Public CtrlBuilder As ClassControlBuilder
    Public CtrlCommandUI As ClassControlCommandsUI

-    Private ClassNodeCommands As ClassNodeCommands
+    Private Property ClassNodeCommands As ClassNodeCommands

    Private Debug As Boolean = False

@@ -101,20 +94,13 @@ Public Class frmNodeNavigation
        ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM)
    End Sub

-    Private Function Get_Splitter_Layout_Filename()
-        Dim Filename As String = String.Format("{0}-{1}-SplitterLayout.xml", CONSTRUCTOR_DETAIL_ID, CONSTRUCTOR_DETAIL_ID.ToString)
-        Return Path.Combine(Application.UserAppDataPath(), Filename)
-    End Function
-
    Sub Save_Splitter_Layout()
        Try
-            Dim XMLPath = Get_Splitter_Layout_Filename()
-            Dim layout As New ClassLayout(XMLPath)
-            Dim settings As New List(Of ClassSetting) From {
-                New ClassSetting("SplitViewDetailsSplitterPosition", SplitContainer1.SplitterDistance),
-                New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition)
-            }
-            layout.Save(settings)
+
+            CONFIG.Config.TreeListSplitterWidth = SplitContainerTreeList.SplitterPosition
+            CONFIG.Config.DocumentViewerSplitterWidth = SplitContainerDocView.SplitterPosition
+            CONFIG.Config.DocumentSearchSplitterWidth = SplitContainerDocumentSearch.SplitterPosition
+
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
@@ -122,31 +108,17 @@ Public Class frmNodeNavigation

    Sub Load_Splitter_Layout()
        Try
-            Dim XMLPath As String = Get_Splitter_Layout_Filename()
-            Dim layout As New ClassLayout(XMLPath)
-            Dim settings As System.Collections.Generic.List(Of ClassSetting)
-            settings = layout.Load()
+            If CONFIG.Config.TreeListSplitterWidth > 0 Then
+                SplitContainerTreeList.SplitterPosition = CONFIG.Config.TreeListSplitterWidth
+            End If

-            'If settings.Count = 0 Then
-            '    settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
-            '    If CONSTRUCTOR_DETAIL_ID > 0 Then
-            '        settings.Add(New ClassSetting("SplitViewMainSplitterPosition_" & CONSTRUCTOR_DETAIL_ID.ToString, SplitContainerMain.SplitterPosition))
-            '    Else
-            '        settings.Add(New ClassSetting("SplitViewMainSplitterPosition_0", SplitContainerMain.SplitterPosition))
-            '    End If
+            If CONFIG.Config.DocumentViewerSplitterWidth > 0 Then
+                SplitContainerDocView.SplitterPosition = CONFIG.Config.DocumentViewerSplitterWidth
+            End If

-            '    settings.Add(New ClassSetting("SplitViewDetailsSplitterPosition_" & CONSTRUCTOR_DETAIL_ID.ToString, SplitContainerDetails.SplitterPosition))
-            '    layout.Save(settings)
-            'End If
-
-            For Each setting As ClassSetting In settings
-                Select Case setting._name
-                    Case "SplitViewMainSplitterPosition"
-                        SplitContainerMain.SplitterPosition = Integer.Parse(setting._value)
-                    Case "SplitViewDetailsSplitterPosition"
-                        SplitContainer1.SplitterDistance = Integer.Parse(setting._value)
-                End Select
-            Next
+            If CONFIG.Config.DocumentSearchSplitterWidth > 0 Then
+                SplitContainerDocumentSearch.SplitterPosition = CONFIG.Config.DocumentSearchSplitterWidth
+            End If
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
@@ -326,6 +298,8 @@ Public Class frmNodeNavigation
        Dim oNodeId = e.Node.Id
        Console.Write($"Node ID: {oNodeId}")

+
+
        Dim oRowObject = TreeListDevexpress.GetRow(oNodeId)

        If TypeOf oRowObject IsNot DataRowView Then
@@ -346,6 +320,11 @@ Public Class frmNodeNavigation
        Dim oIsConfigNode = (oNodeConfigId = 1000)
        Dim oParentNode = e.Node.ParentNode

+        CURRENT_NODE_GUID = oNodeId
+        CURRENT_RECORD_ID = oRecordId
+        CURRENT_ENTITY_ID = _EntityId
+        SELECTED_NODE_CAPTION = oNodeCaption
+
        ' BEGIN NEW NODE
        Dim oConfigNodeChildren = FocusedNode.Nodes.Where(Function(n) n.Item("TYPE_NODE") = 1000)
        Dim oHasConfigNodeChildren = oConfigNodeChildren.Any()
@@ -370,24 +349,12 @@ Public Class frmNodeNavigation

        If oHasRecordId Then
            Update_Status_Label(True, $"NodeGUID {oGuid} - RecordID {oRecordId}", EditState.None)
-        Else
-            Update_Status_Label(True, $"NodeGUID {oGuid}", EditState.None)
-        End If

-        If oHasRecordId Then
-            'oNodeInfo += $" - RecordID {oRecordId}"
            Node_AfterSelect = True
-            'Dim sw As New SW("TreeViewMain_AfterSelect1")
-            ' Dim swAll As New SW("TreeViewMain_AfterSelect")
-            DisableEditMode()

-            ' ClassNodeNavigation.Check_NODE_CONFIG_ID(oEntityID, SelectedNode)
-
-            CURRENT_RECORD_ID = oRecordId
            ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
-            CURRENT_ENTITY_ID = _EntityId
-            CURRENT_NODE_GUID = oNodeId
-            SELECTED_NODE_CAPTION = oNodeCaption
+
+
            CURRENT_SEARCH_TYPE = "RECORD"
            DisableEditMode()
            ' muss vor show selected record data kommen,
@@ -397,33 +364,30 @@ Public Class frmNodeNavigation
            CtrlBuilder.WatchRecordChanges = True
            Await Show_Selected_Record_Data(CURRENT_RECORD_ID)

-
            ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
            CONTROL_HANDLING()

-
-            If CURRENT_RECORD_ID > 0 Then
-                If RIGHT_RECORD_AND_FILE_READ_ONLY = False And CtrlCommandUI.IsInsert = False Then
-                    If DT_CONTROLS_ENTITY.Rows.Count = COUNT_RO_CONTROLS Then
-                        bbtnitmRecEdit.Enabled = False
-                        bbtnitmRecSave.Enabled = False
-                    Else
-                        bbtnitmRecEdit.Enabled = True
-                        In_Visible_Record_Group(True)
-                    End If
-
-                End If
-                If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
+            If RIGHT_RECORD_AND_FILE_READ_ONLY = False And CtrlCommandUI.IsInsert = False Then
+                If DT_CONTROLS_ENTITY.Rows.Count = COUNT_RO_CONTROLS Then
                    bbtnitmRecEdit.Enabled = False
                    bbtnitmRecSave.Enabled = False
-                    btnCreateNewNode.Enabled = False
                Else
                    bbtnitmRecEdit.Enabled = True
                    In_Visible_Record_Group(True)
-                    btnCreateNewNode.Enabled = True
                End If

            End If
+
+            If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
+                bbtnitmRecEdit.Enabled = False
+                bbtnitmRecSave.Enabled = False
+                btnCreateNewNode.Enabled = False
+            Else
+                bbtnitmRecEdit.Enabled = True
+                In_Visible_Record_Group(True)
+                btnCreateNewNode.Enabled = True
+            End If
+
            If RIGHT_READ_ONLY_DOC = False Then
                Doc_ReadOnlyHandler(True)

@@ -438,9 +402,89 @@ Public Class frmNodeNavigation
            'swAll.Done()
            Node_AfterSelect = False

+        Else
+            Update_Status_Label(True, $"NodeGUID {oGuid}", EditState.None)
+
+            ClassControlValues.ClearControlValues(pnlControls.Controls)
+
+            Await Show_Selected_Record_Data(0)
        End If
    End Sub

+    Public Sub Update_Document_Label(pDocumentCount As Integer)
+        Dim oMessage
+
+        If pDocumentCount = 0 Then
+            oMessage = "Keine Dateien für '"
+
+            If CURRENT_SEARCH_TYPE = "ENTITY" Then
+                oMessage &= " Entität gefunden"
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "No files found for entity: "
+                End If
+
+            ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
+
+                oMessage &= SELECTED_NODE_CAPTION & "' gefunden"
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "No files found for object '" & SELECTED_NODE_CAPTION & "'"
+                End If
+
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "No files found for record " & SELECTED_NODE_RECORD_ID
+                End If
+
+            ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
+                oMessage = "Keine Dateien für Knotenunterstruktur gefunden"
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "No files found in Node-Substructure"
+                End If
+
+            Else
+                oMessage = "Keine Dateien für Volltextsuche (" & CURRENT_FULLTEXT_PATTERN & ") gefunden"
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "No files found for fulltext-search (" & CURRENT_FULLTEXT_PATTERN & ")"
+                End If
+
+            End If
+        Else
+            oMessage = "Dateien für Record: " & SELECTED_NODE_RECORD_ID
+
+            If CURRENT_SEARCH_TYPE = "ENTITY" Then
+
+                oMessage = "Dateien für Entität: "
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "files for entity: "
+                End If
+                oMessage &= " (" & pDocumentCount.ToString & ")"
+
+            ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
+                oMessage = String.Format("Dateien für Objekt '{0}' ", SELECTED_NODE_CAPTION)
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = String.Format("Files for Object  '{0}'", SELECTED_NODE_CAPTION)
+                End If
+                oMessage &= " (" & pDocumentCount.ToString & ")"
+
+            ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
+                oMessage = "Dateien für Knotenunterstruktur"
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = "files found in Node-Substructure"
+                End If
+                oMessage &= " (" & pDocumentCount.ToString & ")"
+
+            Else
+                oMessage = String.Format("Ergebnis der Volltextsuche")
+                If USER_LANGUAGE <> "de-DE" Then
+                    oMessage = String.Format("Result of Fulltext-Search")
+                End If
+                oMessage &= " (" & pDocumentCount.ToString & ")"
+
+            End If
+        End If
+
+        GridViewDoc_Search.ViewCaption = oMessage
+    End Sub
+
    Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None)
        bsiInfo.Caption = text
        If visible = True Then
@@ -658,13 +702,9 @@ Public Class frmNodeNavigation
            Dim QuickViewSQL = query.Single().Item("SQL_QUICK_VIEW")

            CURRENT_ENTITYSQL = Get_Grid_Sql_NODE_NAV(CONSTRUCTORID, _EntityId, CURRENT_CONSTRUCTOR_DETAIL_ID, USER_GUID)
-            ' CURRENT_ENTITYSQL = GridSQL
-            'Anzahl der Datensätze
-            ENTITY_RECORD_COUNT = MYDB_ECM.GetScalarValue("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & _EntityId)

            ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_COLUMNS_GRID_ENTITY, _EntityId, SELECTED_NODE_RECORD_ID, True, True)

-
            DT_TBPMO_FORM_VIEW = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_FORM_VIEW, "FORM_ID = " & _EntityId & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, "")
            CURRENT_ENTITYSTRING = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_TITLE")

@@ -706,12 +746,6 @@ Public Class frmNodeNavigation
                    LOGGER.Warn("Could not set the primary Key(Record-ID): " & ex.Message)
                End Try

-
-
-
-
-
-
                CtrlBuilder.WatchRecordChanges = False
                ClassControlValues.LoadControlValuesList(_EntityId, CtrlBuilder.MasterPanel.Controls)
                CtrlBuilder.WatchRecordChanges = True
@@ -720,8 +754,6 @@ Public Class frmNodeNavigation
                ENTITY_LOADING_PROCESS = True
                Dim RecLoaded As Boolean = False

-
-
            End If
            Load_Splitter_Layout()
            sw.Done()
@@ -776,24 +808,22 @@ Public Class frmNodeNavigation
        End Try

    End Sub
-    Private Async Function Show_Selected_Record_Data(Rec_ID As Integer) As Threading.Tasks.Task
+    Private Async Function Show_Selected_Record_Data(pRecordId As Integer) As Task
        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)

        Try
-            LOGGER.Debug("Show_Selected_Record_Data: " & Rec_ID.ToString)
+            LOGGER.Debug("Show_Selected_Record_Data: " & pRecordId.ToString)
            Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                              Select form
                              Where form.Item("GUID") = _EntityId).Single()

            'Update_Status_Label(False, "")
-            LOGGER.Debug("RECORD ID: " & Rec_ID.ToString)
+            LOGGER.Debug("RECORD ID: " & pRecordId.ToString)
            'Me.pnlControls.Visible = True

-            SELECTED_NODE_RECORD_ID = Rec_ID
-
+            SELECTED_NODE_RECORD_ID = pRecordId
            CURRENT_PARENT_RECORD_ID = 0

-
            RIGHT_CONTROL_CHANGED = False

            ENTITY_RELOAD_AFT_CONTROL_LOAD = False
@@ -808,12 +838,14 @@ Public Class frmNodeNavigation
            'Refresh_Navpane()
            Update_Record_Label(SELECTED_NODE_RECORD_ID)

-            Dim oDocumentsFounnd = Await RUN_WDSEARCH_GRID(True)
+            Dim oDocumentsFound = Await RUN_WDSEARCH_GRID(True)

-            If oDocumentsFounnd = 0 Then
+            If oDocumentsFound = 0 Then
                DocumentViewer.CloseDocument()
            End If

+            Update_Document_Label(oDocumentsFound)
+
            sw.Done()

        Catch ex As Exception
@@ -821,7 +853,6 @@ Public Class frmNodeNavigation
        Finally
            SplashScreenManager.CloseOverlayForm(oHandle)
        End Try
-
    End Function

 #Region "Controls"
@@ -1011,84 +1042,84 @@ Public Class frmNodeNavigation

        LastFindFilterText = oFilterText
    End Sub
-    Private Async Sub LoadRecord(pRecord As Integer)
-        Try
-            CURRENT_RECORD_ID = pRecord
-            CURRENT_SEARCH_TYPE = "RECORD"
-            ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
+    'Private Async Sub LoadRecord(pRecord As Integer)
+    '    Try
+    '        CURRENT_RECORD_ID = pRecord
+    '        CURRENT_SEARCH_TYPE = "RECORD"
+    '        ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)

-            'Wird jetzt bei BeforeRowChange überprüft
+    '        'Wird jetzt bei BeforeRowChange überprüft

-            DisableEditMode()
+    '        DisableEditMode()

-            ' muss vor show selected record data kommen,
-            ' sodass die datasource für die angehakten werte existiert (checked list box)
-            CtrlBuilder.WatchRecordChanges = False
+    '        ' muss vor show selected record data kommen,
+    '        ' sodass die datasource für die angehakten werte existiert (checked list box)
+    '        CtrlBuilder.WatchRecordChanges = False

-            ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_ENTITY_ID, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId)
-            CtrlBuilder.WatchRecordChanges = True
-            If CURRENT_RECORD_ID > 0 Then
-                Await Show_Selected_Record_Data(CURRENT_RECORD_ID)
-            End If
+    '        ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_ENTITY_ID, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId)
+    '        CtrlBuilder.WatchRecordChanges = True
+    '        If CURRENT_RECORD_ID > 0 Then
+    '            Await Show_Selected_Record_Data(CURRENT_RECORD_ID)
+    '        End If


-            ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
-            CONTROL_HANDLING()
+    '        ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
+    '        CONTROL_HANDLING()



-            If CURRENT_RECORD_ID > 0 Then
-                If RIGHT_RECORD_AND_FILE_READ_ONLY = False And CtrlCommandUI.IsInsert = False Then
-                    If DT_CONTROLS_ENTITY.Rows.Count = COUNT_RO_CONTROLS Then
-                        bbtnitmRecEdit.Enabled = False
-                        bbtnitmRecSave.Enabled = False
-                        'tsButtonDelete.Enabled = False
-                    Else
-                        ' bbtnitmEditRec.Enabled = True
-                    End If
+    '        If CURRENT_RECORD_ID > 0 Then
+    '            If RIGHT_RECORD_AND_FILE_READ_ONLY = False And CtrlCommandUI.IsInsert = False Then
+    '                If DT_CONTROLS_ENTITY.Rows.Count = COUNT_RO_CONTROLS Then
+    '                    bbtnitmRecEdit.Enabled = False
+    '                    bbtnitmRecSave.Enabled = False
+    '                    'tsButtonDelete.Enabled = False
+    '                Else
+    '                    ' bbtnitmEditRec.Enabled = True
+    '                End If

-                End If
-                If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
-                    ' bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-                    ' bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-                    ' bbtniParentLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-                    ' bbtniWFTask.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-                Else
-                    ' bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                    ' bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                    ' bbtniParentLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                    ' bbtniWFTask.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                End If
+    '            End If
+    '            If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
+    '                ' bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    '                ' bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    '                ' bbtniParentLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    '                ' bbtniWFTask.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    '            Else
+    '                ' bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+    '                ' bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+    '                ' bbtniParentLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+    '                ' bbtniWFTask.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+    '            End If

-                'tsButtonAdd.Enabled = False
-                'MsgBox(SplitContainerFORM.Collapsed)
-                'MsgBox(SplitContainerMain.Collapsed)
-                'MsgBox(SplitContainerTop.Collapsed)
+    '            'tsButtonAdd.Enabled = False
+    '            'MsgBox(SplitContainerFORM.Collapsed)
+    '            'MsgBox(SplitContainerMain.Collapsed)
+    '            'MsgBox(SplitContainerTop.Collapsed)




-            End If
-            'Liste der geänderten Control Values leeren
-            CtrlBuilder.ControlsChanged.Clear()
+    '        End If
+    '        'Liste der geänderten Control Values leeren
+    '        CtrlBuilder.ControlsChanged.Clear()


-        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error:", ex.Message & vbNewLine & ex.StackTrace)
-        End Try
-    End Sub
+    '    Catch ex As Exception
+    '        ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error:", ex.Message & vbNewLine & ex.StackTrace)
+    '    End Try
+    'End Sub

    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
        Open_File()
    End Sub

    Private Sub frmNodeNavigation_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-
        If TrySave_Automatic() = False Then
-
            e.Cancel = True
        End If

+        Save_Splitter_Layout()
+
        ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "NODE_NAVIGATION")

        CURRENT_OPEN_CONSTRUCTOR_FORMS.Remove(CONSTRUCTORID)
@@ -1115,13 +1146,13 @@ Public Class frmNodeNavigation
    Private Sub GridControlDocSearch_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlDocSearch.MouseDown
        In_Visible_Record_Group(False)
    End Sub
-    Private Sub pnlControls_MouseDown(sender As Object, e As MouseEventArgs) Handles pnlControls.MouseDown

-    End Sub
+
    Sub In_Visible_Record_Group(oBool As Boolean)
        RibbonPageGroupRecord.Visible = oBool
        RibbonPageGroupRecord.Enabled = oBool
    End Sub
+
    Private Sub bbtnitmEditRec_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecEdit.ItemClick
        If RECORD_ENABLED = False Then
            EnableEditMode()
@@ -1132,6 +1163,7 @@ Public Class frmNodeNavigation
            End If
        End If
    End Sub
+
    Sub EnableEditMode()
        Dim EditingUser = ClassRecordState.IsRecordLocked(SELECTED_NODE_RECORD_ID)
        ' Überprüfen, ob der Record gerade bearbeitet wird
@@ -1222,7 +1254,6 @@ Public Class frmNodeNavigation

        Lock_RecordControls(True)
        RECORD_ENABLED = False
-        POS_ENABLED = False
        CURRENT_RECORD_ENABLED = False


@@ -1444,13 +1475,18 @@ Public Class frmNodeNavigation
        Dim oHandle As IOverlaySplashScreenHandle
        If pShowSplashscreen Then
            oHandle = SplashScreenManager.ShowOverlayForm(Me)
-            taskToken = New CancellationTokenSource()
        End If

        Dim sw As New SW("RUN_WDSEARCH_GRID")
        Dim oFilesFound As Integer = 0

        Try
+
+            If CURRENT_RECORD_ID = 0 Then
+                GridControlDocSearch.DataSource = Nothing
+                Return 0
+            End If
+
            bsitmtInfoDoc.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
            If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then

@@ -1477,41 +1513,6 @@ Public Class frmNodeNavigation
            Else
                If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse

-                    Dim msg = "Dateien für Record: " & SELECTED_NODE_RECORD_ID
-                    If CURRENT_SEARCH_TYPE = "ENTITY" Then
-
-                        msg = "Dateien für Entität: "
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "files for entity: "
-                        End If
-                        msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
-                    ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
-
-                        'If NODE_TEXT.Contains(" (") Then
-                        '        NODE_TEXT = NODE_TEXT.Substring(0, NODE_TEXT.IndexOf("(") - 1)
-                        '    End If
-                        msg = String.Format("Dateien für Objekt '{0}' ", SELECTED_NODE_CAPTION)
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = String.Format("Files for Object  '{0}'", SELECTED_NODE_CAPTION)
-                        End If
-                        msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
-
-                    ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
-                        msg = "Dateien für Knotenunterstruktur"
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "files found in Node-Substructure"
-                        End If
-                        msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
-                    Else
-                        msg = String.Format("Ergebnis der Volltextsuche")
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = String.Format("Result of Fulltext-Search")
-                        End If
-                        msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
-                    End If
-
-                    GridViewDoc_Search.ViewCaption = msg
-
                    If DT_RESULT.Rows.Count > 0 Then
                        If CURRENT_SEARCH_TYPE = "FULLTEXT" Then
                            GridViewDoc_Search.ShowFindPanel()
@@ -1541,47 +1542,11 @@ Public Class frmNodeNavigation
                    oFilesFound = DT_RESULT.Rows.Count
                Else

-                    Dim msg = "Keine Dateien für '"
-                    If CURRENT_SEARCH_TYPE = "ENTITY" Then
-                        msg &= " Entität gefunden"
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "No files found for entity: "
-                        End If
-                    ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
-
-                        'If NODE_TEXT.Contains(" (") Then
-                        '        NODE_TEXT = NODE_TEXT.Substring(0, NODE_TEXT.IndexOf("(") - 1)
-                        '    End If
-                        msg &= SELECTED_NODE_CAPTION & "' gefunden"
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "No files found for object '" & SELECTED_NODE_CAPTION & "'"
-                        End If
-
-
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "No files found for record " & SELECTED_NODE_RECORD_ID
-                        End If
-                    ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
-                        msg = "Keine Dateien für Knotenunterstruktur gefunden"
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "No files found in Node-Substructure"
-                        End If
-                    Else
-                        msg = "Keine Dateien für Volltextsuche (" & CURRENT_FULLTEXT_PATTERN & ") gefunden"
-                        If USER_LANGUAGE <> "de-DE" Then
-                            msg = "No files found for fulltext-search (" & CURRENT_FULLTEXT_PATTERN & ")"
-                        End If
-                    End If
-
-                    GridViewDoc_Search.ViewCaption = msg
                    GridControlDocSearch.DataSource = Nothing
-                    'Clear_Windream_ResultList()
-
                    oFilesFound = 0
                End If
            End If

-
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message)
        Finally
@@ -1779,13 +1744,6 @@ Public Class frmNodeNavigation
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
        End Try
    End Sub
-
-    Private Sub SplitContainer1_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainer1.SplitterMoved
-        If FORM_LOADED Then
-            Save_Splitter_Layout()
-        End If
-
-    End Sub
 #Region "GridViewEvents"
    Private Sub GridViewDoc_Search_LayoutSave(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged, GridViewDoc_Search.ColumnWidthChanged, GridViewDoc_Search.ColumnPositionChanged
        Save_DocGrid_Layout()
@@ -2091,11 +2049,11 @@ Public Class frmNodeNavigation
    Private Sub pnlControls_DragEnter(sender As Object, e As DragEventArgs) Handles pnlControls.DragEnter
        Drag_Enter(e)
    End Sub
-    Private Sub SplitContainer1_DragEnter(sender As Object, e As DragEventArgs) Handles SplitContainer1.DragEnter
+    Private Sub SplitContainer1_DragEnter(sender As Object, e As DragEventArgs)
        Drag_Enter(e)
    End Sub

-    Private Async Sub SplitContainer1_DragDrop(sender As Object, e As DragEventArgs) Handles SplitContainer1.DragDrop
+    Private Async Sub SplitContainer1_DragDrop(sender As Object, e As DragEventArgs)
        Await Drag_Drop(e)
    End Sub
 #End Region
@@ -2938,15 +2896,55 @@ Public Class frmNodeNavigation
        Dim oParentNodeGuid As Integer = FocusedNode.Item("GUID")
        Dim oIsExpanded As Boolean = FocusedNode.Expanded
        Dim oNodeCreator = New ClassNodeCreator(LOGCONFIG, ImageCollection1)
-        oNodeCreator.AddNode(_EntityId, oForm.Title, oParentNodeGuid, oForm.Id, oCreateRecord)
+        Dim oSuccess = oNodeCreator.AddNode(_EntityId, oForm.Title, oParentNodeGuid, oForm.Id, oCreateRecord)

-        Await ReloadTreeView()
+        If oSuccess = True Then
+            Dim oMessage As String = "Der Knoten wurde erfolgreich angelegt! Wollen Sie die Sicht jetzt neu laden? Abhängig von der Anzahl der Knoten kann dies einige Sekunden dauern."

-        Dim oNode = TreeListDevexpress.FindNodeByFieldValue("GUID", oParentNodeGuid)
-        Dim oNodeIndex = TreeListDevexpress.MakeNodeVisible(oNode)
-        TreeListDevexpress.SetFocusedNode(oNode)
-        If oIsExpanded Then
-            oNode.Expand()
+            If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
+                Await ReloadTreeView()
+
+                Dim oNode = TreeListDevexpress.FindNodeByFieldValue("GUID", oParentNodeGuid)
+                Dim oNodeIndex = TreeListDevexpress.MakeNodeVisible(oNode)
+                TreeListDevexpress.SetFocusedNode(oNode)
+                If oIsExpanded Then
+                    oNode.Expand()
+                End If
+            End If
+        Else
+            MsgBox("Fehler beim Anlegen des neuen Knotens!", MsgBoxStyle.Critical, Text)
        End If
+
+
    End Sub
+
+    Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click
+
+        Try
+            Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
+
+            If oSelectedDocs.Count = 0 Then
+                Exit Sub
+            End If
+
+            Dim oTable = MYDB_ECM.GetDatatable($"SELECT DOKUMENTTYPE_ID AS ID, DOKUMENTTYPE AS NAME FROM VWPMO_DOKUMENTTYPES WHERE FORM_ID = {CURRENT_ENTITY_ID}")
+            Dim oDocTypes = oTable.Rows.Cast(Of DataRow).Select(AddressOf ToDocType).ToList()
+            Dim oFileNames = oSelectedDocs.Select(Function(d) d.DisplayName).ToList()
+
+            Dim oForm As New frmChangeDocType With {.DocTypes = oDocTypes, .FileNames = oFileNames}
+
+            If oForm.ShowDialog() = DialogResult.OK Then
+
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
+    End Sub
+
+    Private Function ToDocType(pRow As DataRow) As frmChangeDocType.DocType
+        Return New frmChangeDocType.DocType() With {
+            .Id = pRow.ItemEx("ID", 0),
+            .Name = pRow.ItemEx("NAME", "")
+        }
+    End Function
 End Class
--- a/app/DD-Record-Organizer.sln
+++ b/app/DD-Record-Organizer.sln
Author	SHA1	Message	Date
Jonathan Jenne	ab75c5a6e3	Version 3.1.0.1	2023-09-28 12:59:00 +02:00
Jonathan Jenne	f50442bf30	clean up	2023-09-28 12:06:39 +02:00
Jonathan Jenne	a7dc616690	Add config items, clear documents and controls when no record id is available	2023-09-28 10:49:14 +02:00
Jonathan Jenne	b06a399eaa	rename solution	2023-09-28 08:29:18 +02:00
Jonathan Jenne	ebe79ddb92	Change Doc Type	2023-09-27 15:01:04 +02:00