Merge Commit

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

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

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)

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

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"

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

@@ -14,8 +14,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")> 
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("OrgFlow")>
-<Assembly: AssemblyCopyright("Copyright 2023 Digital Data")>
+<Assembly: AssemblyCopyright("Copyright 2023")>
-<Assembly: AssemblyTrademark("3.1.0.0")>
+<Assembly: AssemblyTrademark("3.1.0.2")>
 
 <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.2")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

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>

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>

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

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>

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

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)

app/DD-Record-Organizer/frmConstructor_Main.resx

@@ -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>
@@ -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>

app/DD-Record-Organizer/frmFileRename.vb

@@ -1,8 +1,9 @@
 Imports System.IO
 
 Public Class frmFileRename
-    Dim oRenameType As String
+    Private ReadOnly oRenameType As String
-    Public Sub New(DocID As Int32, oldName As String, pRenameType 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

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()

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)

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>

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.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerMain.Panel1.SuspendLayout()
+        Me.SplitContainerTreeList.Panel1.SuspendLayout()
-        CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerMain.Panel2.SuspendLayout()
+        Me.SplitContainerTreeList.Panel2.SuspendLayout()
-        Me.SplitContainerMain.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.SplitContainerTreeList.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerTreeList.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerMain.Name = "SplitContainerMain"
+        Me.SplitContainerTreeList.Name = "SplitContainerTreeList"
         '
-        'SplitContainerMain.Panel1
+        'SplitContainerTreeList.Panel1
         '
-        Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeListDevexpress)
+        Me.SplitContainerTreeList.Panel1.Controls.Add(Me.TreeListDevexpress)
-        Me.SplitContainerMain.Panel1.Text = "Panel1"
+        Me.SplitContainerTreeList.Panel1.Text = "Panel1"
         '
-        'SplitContainerMain.Panel2
+        'SplitContainerTreeList.Panel2
         '
-        Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainer1)
+        Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
-        Me.SplitContainerMain.Panel2.Text = "Panel2"
+        Me.SplitContainerTreeList.Panel2.Text = "Panel2"
-        Me.SplitContainerMain.Size = New System.Drawing.Size(1295, 520)
+        Me.SplitContainerTreeList.Size = New System.Drawing.Size(1297, 510)
-        Me.SplitContainerMain.SplitterPosition = 289
+        Me.SplitContainerTreeList.SplitterPosition = 289
-        Me.SplitContainerMain.TabIndex = 2
+        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()
+        CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.Panel1.ResumeLayout(False)
+        Me.SplitContainerTreeList.Panel1.ResumeLayout(False)
-        CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.Panel2.ResumeLayout(False)
+        Me.SplitContainerTreeList.Panel2.ResumeLayout(False)
-        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.ResumeLayout(False)
+        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 SplitContainerTreeList As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents SplitContainer1 As SplitContainer
     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

app/Setup_NoUpdaterVS19/Product.wxs

@@ -140,7 +140,6 @@
 				<File Id="DDWindream" Name="DigitalData.Modules.Windream.dll"  KeyPath="no" Checksum="yes"/>
 				<File Id="DDConfig" Name="DigitalData.Modules.Config.dll"  KeyPath="no" Checksum="yes"/>
 				<File Id="DDBase" Name="DigitalData.Modules.Base.dll"  KeyPath="no" Checksum="yes"/>
-				<File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll"  KeyPath="no" Checksum="yes"/>
 				<File Id="DDLanguage" Name="DigitalData.Modules.Language.dll"  KeyPath="no" Checksum="yes"/>
 				<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll"  KeyPath="no" Checksum="yes"/>
 				<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll"  KeyPath="no" Checksum="yes"/>