Merge branch 'master' of http://dd-vmp07-com04:3000/JenneJ/RecordOrganizer

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

@@ -6,6 +6,9 @@ Public Class ClassNodeNavigation
     Public Shared Datatable_Nodes As DataTable
     Public Shared TREEVIEW_IMAGELIST As ImageList
     Public Shared IMAGE_COLLECTION As ImageCollection
+
+
+
     Public Shared Function CreateNodeProcedure(RECORD_ID As Integer, NODE_CONFIG_ID As Integer, NODE_CAPTION As String, NODE_ID1 As String, NODE_PARENT_ID As String, ADDED_WHO As String)
         Try
             Dim connection As New SqlConnection
@@ -38,56 +41,56 @@ Public Class ClassNodeNavigation
     End Function
 
 
-    Public Shared Function CREATE_IMAGE_COLL(DT_IMAGELIST As DataTable)
+    'Public Shared Function CREATE_IMAGE_COLL(DT_IMAGELIST As DataTable)
-        IMAGE_COLLECTION = New ImageCollection
+    '    IMAGE_COLLECTION = New ImageCollection
-        For Each row As DataRow In DT_IMAGELIST.Rows
+    '    For Each row As DataRow In DT_IMAGELIST.Rows
-            Try
+    '        Try
-                Dim bimage = row.Item("NODE_IMAGE")
+    '            Dim bimage = row.Item("NODE_IMAGE")
-                If Not IsDBNull(bimage) Then
+    '            If Not IsDBNull(bimage) Then
-                    Dim Node_image = ByteArrayToBitmap(bimage)
+    '                Dim Node_image = ByteArrayToBitmap(bimage)
-                    IMAGE_COLLECTION.AddImage(Node_image, row.Item("GUID")) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
+    '                IMAGE_COLLECTION.AddImage(Node_image, row.Item("GUID")) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
 
-                End If
+    '            End If
-            Catch ex As Exception
+    '        Catch ex As Exception
 
-            End Try
+    '        End Try
 
-        Next
+    '    Next
-    End Function
+    'End Function
 
 
-    Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
+    'Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
-        Dim expression As String
+    '    Dim expression As String
-        expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type  und Parent_Guid
+    '    expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type  und Parent_Guid
-        Dim foundRows() As DataRow
+    '    Dim foundRows() As DataRow
-        foundRows = Datatable_Nodes.Select(expression)
+    '    foundRows = Datatable_Nodes.Select(expression)
-        Dim q As Integer
+    '    Dim q As Integer
-        For q = 0 To foundRows.GetUpperBound(0)
+    '    For q = 0 To foundRows.GetUpperBound(0)
-            Dim ID9 = foundRows(q)("GUID")
+    '        Dim ID9 = foundRows(q)("GUID")
-            Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
+    '        Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
-            Dim controlID9 = foundRows(q)("CONTROL_ID")
+    '        Dim controlID9 = foundRows(q)("CONTROL_ID")
-            Dim nodetext9 = foundRows(q)("NODE_CAPTION")
+    '        Dim nodetext9 = foundRows(q)("NODE_CAPTION")
-            Dim RECORD_ID = foundRows(q)("RECORD_ID")
+    '        Dim RECORD_ID = foundRows(q)("RECORD_ID")
-            Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
+    '        Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
-            ' Node erstellen..
+    '        ' Node erstellen..
-            Dim NEW_NODE As TreeNode
+    '        Dim NEW_NODE As TreeNode
-            NEW_NODE = New TreeNode(nodetext9)
+    '        NEW_NODE = New TreeNode(nodetext9)
-            ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9, NEW_NODE)
+    '        ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9, NEW_NODE)
-            NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
+    '        NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
 
-            Dim index = 0
+    '        Dim index = 0
-            For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
+    '        For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
+    '            If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
-                    Exit For
+    '                Exit For
-                End If
+    '            End If
-                index += 1
+    '            index += 1
-            Next
+    '        Next
-            NEW_NODE.ImageIndex = index
+    '        NEW_NODE.ImageIndex = index
-            NEW_NODE.SelectedImageIndex = index
+    '        NEW_NODE.SelectedImageIndex = index
-            ' ..und einfügen
+    '        ' ..und einfügen
-            ParentNode.Nodes.Add(NEW_NODE)
+    '        ParentNode.Nodes.Add(NEW_NODE)
-        Next '
+    '    Next '
-    End Function
+    'End Function
     Public Shared Sub Check_NODE_CONFIG_ID(ENTITY_ID As Integer, myTreeNode As TreeNode)
         Try
             If myTreeNode Is Nothing Then

app/DD-Record-Organizer/Classes/Commands/ClassFormCommands.vb

@@ -1,5 +1,25 @@
 Public Class ClassFormCommands
 
+    Public Shared Function LoadConstructorForms(pScreenId As Integer, pConstructorId As Integer, pLanguage As String)
+        Try
+            Dim Sql = $"SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION](
+                '{pLanguage}',
+                'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 
+                {pScreenId}) AS 'CAPTION' 
+            FROM VWPMO_CONSTRUCTOR_FORMS
+            WHERE 
+                SCREEN_ID = {pScreenId} AND 
+                CONSTRUCT_ID = {pConstructorId} 
+            ORDER BY SEQUENCE"
+
+            Dim oTable = MYDB_ECM.GetDatatable(Sql)
+
+            Return oTable
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+
     Public Shared Function LoadForm(guid) As DataTable
         Try
             Dim SQL As String = "SELECT NAME, LEVEL FROM TBPMO_FORM WHERE GUID = " & guid

app/DD-Record-Organizer/Classes/Commands/ClassNodeCommands.vb

@@ -0,0 +1,35 @@
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Public Class ClassNodeCommands
+    Inherits BaseClass
+
+    Private ReadOnly Database As MSSQLServer
+
+    Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
+        MyBase.New(pLogConfig)
+        Database = pDatabase
+    End Sub
+
+    Public Async Function LoadNodes(pEntityId As Integer) As Task(Of DataTable)
+        Dim oStructureNodeSql = $"SELECT 
+                T.GUID,
+                T.RECORD_ID,
+                T.NODE_CONFIG_ID,
+                T.NODE_CAPTION,
+                T.ID1, 
+                T.BACK_COLOR,
+                T.PARENT_GUID,
+                T.SEQUENCE,
+                T.TYPE_NODE,
+                T.CREATE_RECORD
+             FROM 
+                VWPMO_STRUCTURE_NODES T 
+            INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID 
+            WHERE T.ENTITY_ID = {pEntityId}"
+        Dim oTable = Await Database.GetDatatableAsync(oStructureNodeSql)
+
+        Return oTable
+    End Function
+End Class

app/DD-Record-Organizer/Classes/NodeNavigation/ClassNodeCreator.vb

@@ -0,0 +1,48 @@
+Imports DevExpress.Utils
+Imports DevExpress.XtraTreeList.Nodes
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class ClassNodeCreator
+    Inherits BaseClass
+
+    Private ReadOnly _ImageList As ImageCollection
+
+    Public Sub New(pLogConfig As LogConfig, pImageList As ImageCollection)
+        MyBase.New(pLogConfig)
+        _ImageList = pImageList
+    End Sub
+
+    Public Function AddNode(pEntityId As Integer, pNodeCaption As String, pParentNodeId As Integer, pNodeConfigId As Integer, pCreateRecord As Boolean) As Boolean
+
+        Dim oRecordId
+
+        ' If a record should be created, do it.
+        ' Otherwise we set the record id to 0.
+        If pCreateRecord Then
+            ' Create a new Record in the given Entity
+            oRecordId = ClassRecordCommands.CreateRecordProcedure(pEntityId)
+            If oRecordId = 0 Then
+                Logger.Warn("Could not create a record. Exiting.")
+                Return False
+            End If
+        Else
+            ' Zero will be handled by CreateNodeProcedure
+            oRecordId = 0
+        End If
+
+        ' Update the proxy?
+        ClassProxy.PRPROXY_RECORD_UPD_INS(pEntityId, oRecordId)
+
+        ' Create the Node in the Database
+        Dim oNodeIdentifier = $"CONFIG {oRecordId}-{pNodeConfigId}"
+        Dim oNodeId = ClassNodeNavigation.CreateNodeProcedure(oRecordId, pNodeConfigId, pNodeCaption, oNodeIdentifier, pParentNodeId, USER_USERNAME)
+
+        If oNodeId = 0 Then
+            Logger.Warn("Node could not be created in database. Exiting.")
+            Return False
+        End If
+
+        Return True
+    End Function
+End Class

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

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("OrgFlow")>
 <Assembly: AssemblyCopyright("Copyright 2023 Digital Data")>
-<Assembly: AssemblyTrademark("3.0.0.5")>
+<Assembly: AssemblyTrademark("3.1.0.0")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.0.0.5")>
+<Assembly: AssemblyVersion("3.1.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

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

@@ -1,5 +1,9 @@
-DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD-Record-Organizer/OrgFlow.vbproj

@@ -272,6 +272,7 @@
   <ItemGroup>
     <Compile Include="Classes\ClassConfig.vb" />
     <Compile Include="Classes\ClassTreeListViewState.vb" />
+    <Compile Include="Classes\Commands\ClassNodeCommands.vb" />
     <Compile Include="Classes\NodeNavigation\ClassAsyncNodeBuild.vb" />
     <Compile Include="Classes\ClassAsyncReturnDT.vb" />
     <Compile Include="Classes\ClassBackgroundHelper.vb" />
@@ -295,7 +296,7 @@
     <Compile Include="Classes\ClassNodeNavigation.vb" />
     <Compile Include="Classes\ClassPosGrid.vb" />
     <Compile Include="Classes\ClassProxy.vb" />
-    <Compile Include="Classes\ClassRecordCommands.vb" />
+    <Compile Include="Classes\Commands\ClassRecordCommands.vb" />
     <Compile Include="Classes\ClassRecordState.vb" />
     <Compile Include="Classes\ClassRecordView.vb" />
     <Compile Include="Classes\ClassRightManagement.vb" />
@@ -306,6 +307,7 @@
     <Compile Include="Classes\ClassWDRights.vb" />
     <Compile Include="Classes\ClassWindreamDocGrid.vb" />
     <Compile Include="Classes\ClassWorkflow.vb" />
+    <Compile Include="Classes\NodeNavigation\ClassNodeCreator.vb" />
     <Compile Include="DD_DMSDataSet.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -404,6 +406,12 @@
     <Compile Include="frmMessageBox.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmNewNode.Designer.vb">
+      <DependentUpon>frmNewNode.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmNewNode.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmNewVariant.Designer.vb">
       <DependentUpon>frmNewVariant.vb</DependentUpon>
     </Compile>
@@ -525,9 +533,9 @@
     <Compile Include="Classes\ClassDragDrop.vb" />
     <Compile Include="Classes\ClassEmail.vb" />
     <Compile Include="Classes\ClassEncryption.vb" />
-    <Compile Include="Classes\ClassFormCommands.vb" />
+    <Compile Include="Classes\Commands\ClassFormCommands.vb" />
-    <Compile Include="Classes\ClassFunctionCommands.vb" />
+    <Compile Include="Classes\Commands\ClassFunctionCommands.vb" />
-    <Compile Include="Classes\ClassFunctionCommandsUI.vb" />
+    <Compile Include="Classes\Commands\ClassFunctionCommandsUI.vb" />
     <Compile Include="Classes\ClassHelper.vb" />
     <Compile Include="Classes\ClassImport_Windream.vb" />
     <Compile Include="Classes\ClassInit.vb" />
@@ -874,6 +882,9 @@
     <EmbeddedResource Include="frmMessageBox.resx">
       <DependentUpon>frmMessageBox.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmNewNode.resx">
+      <DependentUpon>frmNewNode.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmNewVariant.en-US.resx">
       <DependentUpon>frmNewVariant.vb</DependentUpon>
     </EmbeddedResource>

app/DD-Record-Organizer/frmConstructor_Main.resx

@@ -496,7 +496,7 @@
     <value>0, 0</value>
   </data>
   <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>910, 237</value>
+    <value>908, 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, 223</value>
+    <value>699, 231</value>
   </data>
   <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -634,7 +634,7 @@
     <value>0, 0</value>
   </data>
   <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
-    <value>488, 198</value>
+    <value>486, 206</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, 198</value>
+    <value>0, 206</value>
   </data>
   <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>488, 25</value>
+    <value>486, 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, 227</value>
+    <value>1201, 235</value>
   </data>
   <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -896,7 +896,7 @@
     <value>1</value>
   </data>
   <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 254</value>
+    <value>1201, 262</value>
   </data>
   <data name="TabDetails.Text" xml:space="preserve">
     <value>Detailansicht</value>
@@ -914,7 +914,7 @@
     <value>0</value>
   </data>
   <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 282</value>
+    <value>1203, 290</value>
   </data>
   <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -1889,7 +1889,7 @@
     <value>0, 0</value>
   </data>
   <data name="TreeListDevexpress.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 254</value>
+    <value>1201, 264</value>
   </data>
   <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>301, 17</value>
@@ -1918,7 +1918,7 @@
     <value>0</value>
   </data>
   <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1201, 254</value>
+    <value>1201, 264</value>
   </data>
   <data name="XtraTabPage1.Text" xml:space="preserve">
     <value>NodeNavigation(beta)</value>
@@ -1963,7 +1963,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 529</value>
+    <value>1203, 539</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, 158</value>
+    <value>0, 147</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, 529</value>
+    <value>1203, 539</value>
   </data>
   <data name="SplitContainerFORM.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -3085,13 +3085,13 @@
     <value>Funktionen</value>
   </data>
   <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 158</value>
+    <value>1203, 147</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 687</value>
+    <value>0, 686</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1203, 22</value>
+    <value>1203, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>

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

@@ -0,0 +1,171 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmNewNode
+    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()
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.cmbNodeConfig = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
+        Me.btnOK = New DevExpress.XtraEditors.SimpleButton()
+        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
+        Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.cmbNodeConfig.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'LayoutControl1
+        '
+        Me.LayoutControl1.Controls.Add(Me.cmbNodeConfig)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit1)
+        Me.LayoutControl1.Controls.Add(Me.btnOK)
+        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(441, 125)
+        Me.LayoutControl1.TabIndex = 0
+        Me.LayoutControl1.Text = "LayoutControl1"
+        '
+        'cmbNodeConfig
+        '
+        Me.cmbNodeConfig.Location = New System.Drawing.Point(73, 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.StyleController = Me.LayoutControl1
+        Me.cmbNodeConfig.TabIndex = 4
+        '
+        'TextEdit1
+        '
+        Me.TextEdit1.Location = New System.Drawing.Point(73, 12)
+        Me.TextEdit1.Name = "TextEdit1"
+        Me.TextEdit1.Size = New System.Drawing.Size(356, 20)
+        Me.TextEdit1.StyleController = Me.LayoutControl1
+        Me.TextEdit1.TabIndex = 5
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(326, 91)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(103, 22)
+        Me.btnOK.StyleController = Me.LayoutControl1
+        Me.btnOK.TabIndex = 6
+        Me.btnOK.Text = "OK"
+        '
+        '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.LayoutControlItem3, Me.EmptySpaceItem2, Me.EmptySpaceItem1})
+        Me.Root.Name = "Root"
+        Me.Root.Size = New System.Drawing.Size(441, 125)
+        Me.Root.TextVisible = False
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.TextEdit1
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(421, 24)
+        Me.LayoutControlItem2.Text = "Knoten Titel"
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(57, 13)
+        '
+        'LayoutControlItem1
+        '
+        Me.LayoutControlItem1.Control = Me.cmbNodeConfig
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(421, 24)
+        Me.LayoutControlItem1.Text = "Knoten Typ"
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(57, 13)
+        '
+        'LayoutControlItem3
+        '
+        Me.LayoutControlItem3.Control = Me.btnOK
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(314, 79)
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(107, 26)
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem3.TextVisible = False
+        '
+        'EmptySpaceItem2
+        '
+        Me.EmptySpaceItem2.AllowHotTrack = False
+        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 79)
+        Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
+        Me.EmptySpaceItem2.Size = New System.Drawing.Size(314, 26)
+        Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
+        '
+        'EmptySpaceItem1
+        '
+        Me.EmptySpaceItem1.AllowHotTrack = False
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 48)
+        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(421, 31)
+        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
+        '
+        'frmNewNode
+        '
+        Me.AcceptButton = Me.btnOK
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(441, 125)
+        Me.Controls.Add(Me.LayoutControl1)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmNewNode"
+        Me.Text = "Neuen Knoten erstellen"
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.cmbNodeConfig.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.EmptySpaceItem1, 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 cmbNodeConfig As DevExpress.XtraEditors.ComboBoxEdit
+    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
+    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
+End Class

app/DD-Record-Organizer/frmNewNode.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

app/DD-Record-Organizer/frmNewNode.vb

@@ -0,0 +1,29 @@
+Public Class frmNewNode
+    Public Property Title As String
+    Public Property Id As Integer
+    Public Property NodeConfigTypes As New List(Of NodeConfig)
+
+    Public Class NodeConfig
+        Public Property Id
+        Public Property Name
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+    Private Sub frmNewNode_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cmbNodeConfig.Properties.Items.AddRange(NodeConfigTypes)
+        cmbNodeConfig.SelectedIndex = 0
+    End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Try
+            Dim oSelectedNodeConfig As NodeConfig = cmbNodeConfig.EditValue
+            Id = oSelectedNodeConfig.Id
+            Title = TextEdit1.EditValue
+            DialogResult = DialogResult.OK
+        Catch ex As Exception
+        End Try
+    End Sub
+End Class

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

@@ -42,6 +42,7 @@ Partial Class frmNodeNavigation
         Me.BbtnitmNodeReorder = New DevExpress.XtraBars.BarButtonItem()
         Me.bbtnItm_TV_Collape_Expand = New DevExpress.XtraBars.BarButtonItem()
         Me.checkShowPreview = New DevExpress.XtraBars.BarCheckItem()
+        Me.btnCreateNewNode = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroupView = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -112,9 +113,9 @@ Partial Class frmNodeNavigation
         'ribbonNodeNavigation
         '
         Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0
-        Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview})
+        Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode})
         Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 0)
-        Me.ribbonNodeNavigation.MaxItemId = 19
+        Me.ribbonNodeNavigation.MaxItemId = 22
         Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation"
         Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
@@ -123,7 +124,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, 158)
+        Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1307, 147)
         Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
         Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
         '
@@ -230,7 +231,7 @@ Partial Class frmNodeNavigation
         '
         'bbtnItm_TV_Collape_Expand
         '
-        Me.bbtnItm_TV_Collape_Expand.Caption = "Collaps/Expand"
+        Me.bbtnItm_TV_Collape_Expand.Caption = "Ein- / Ausklappen"
         Me.bbtnItm_TV_Collape_Expand.Id = 17
         Me.bbtnItm_TV_Collape_Expand.ImageOptions.SvgImage = CType(resources.GetObject("bbtnItm_TV_Collape_Expand.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.bbtnItm_TV_Collape_Expand.Name = "bbtnItm_TV_Collape_Expand"
@@ -242,6 +243,14 @@ Partial Class frmNodeNavigation
         Me.checkShowPreview.ImageOptions.SvgImage = CType(resources.GetObject("checkShowPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.checkShowPreview.Name = "checkShowPreview"
         '
+        'btnCreateNewNode
+        '
+        Me.btnCreateNewNode.Caption = "Neuen Knoten anlegen"
+        Me.btnCreateNewNode.Enabled = False
+        Me.btnCreateNewNode.Id = 19
+        Me.btnCreateNewNode.ImageOptions.SvgImage = CType(resources.GetObject("btnCreateNewNode.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.btnCreateNewNode.Name = "btnCreateNewNode"
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupView, Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes})
@@ -285,6 +294,7 @@ Partial Class frmNodeNavigation
         '
         Me.RPGNodes.ItemLinks.Add(Me.BbtnitmNodeReorder)
         Me.RPGNodes.ItemLinks.Add(Me.bbtnItm_TV_Collape_Expand)
+        Me.RPGNodes.ItemLinks.Add(Me.btnCreateNewNode)
         Me.RPGNodes.Name = "RPGNodes"
         Me.RPGNodes.Text = "Knoten"
         '
@@ -295,10 +305,10 @@ 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, 822)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 667)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1307, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1307, 23)
         '
         'RibbonPage2
         '
@@ -320,7 +330,7 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainer1)
         Me.SplitContainerMain.Panel2.Text = "Panel2"
-        Me.SplitContainerMain.Size = New System.Drawing.Size(1297, 664)
+        Me.SplitContainerMain.Size = New System.Drawing.Size(1295, 520)
         Me.SplitContainerMain.SplitterPosition = 289
         Me.SplitContainerMain.TabIndex = 2
         '
@@ -331,6 +341,7 @@ Partial Class frmNodeNavigation
         Me.TreeListDevexpress.Appearance.FocusedRow.Options.UseBackColor = True
         Me.TreeListDevexpress.Caption = "Instandhaltung View"
         Me.TreeListDevexpress.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeListDevexpress.KeyFieldName = "GUID"
         Me.TreeListDevexpress.Location = New System.Drawing.Point(0, 0)
         Me.TreeListDevexpress.Name = "TreeListDevexpress"
         Me.TreeListDevexpress.BeginUnboundLoad()
@@ -356,7 +367,8 @@ Partial Class frmNodeNavigation
         Me.TreeListDevexpress.OptionsView.ShowTreeLines = DevExpress.Utils.DefaultBoolean.[False]
         Me.TreeListDevexpress.OptionsView.ShowVertLines = False
         Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
-        Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 664)
+        Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 520)
         Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
         Me.TreeListDevexpress.TabIndex = 1
         '
@@ -379,8 +391,8 @@ Partial Class frmNodeNavigation
         'SplitContainer1.Panel2
         '
         Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlDocSearch)
-        Me.SplitContainer1.Size = New System.Drawing.Size(998, 664)
+        Me.SplitContainer1.Size = New System.Drawing.Size(994, 520)
-        Me.SplitContainer1.SplitterDistance = 214
+        Me.SplitContainer1.SplitterDistance = 167
         Me.SplitContainer1.TabIndex = 0
         '
         'pnlControls
@@ -390,7 +402,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(998, 214)
+        Me.pnlControls.Size = New System.Drawing.Size(994, 167)
         Me.pnlControls.TabIndex = 0
         '
         'GridControlDocSearch
@@ -403,7 +415,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(998, 446)
+        Me.GridControlDocSearch.Size = New System.Drawing.Size(994, 349)
         Me.GridControlDocSearch.TabIndex = 8
         Me.GridControlDocSearch.TabStop = False
         Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -591,7 +603,7 @@ 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, 158)
+        Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 147)
         Me.SplitContainerDocView.Name = "SplitContainerDocView"
         '
         'SplitContainerDocView.Panel1
@@ -603,7 +615,7 @@ Partial Class frmNodeNavigation
         '
         Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
         Me.SplitContainerDocView.Panel2.Text = "Panel2"
-        Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 664)
+        Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 520)
         Me.SplitContainerDocView.SplitterPosition = 969
         Me.SplitContainerDocView.TabIndex = 0
         '
@@ -620,7 +632,7 @@ Partial Class frmNodeNavigation
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1307, 844)
+        Me.ClientSize = New System.Drawing.Size(1307, 690)
         Me.Controls.Add(Me.SplitContainerDocView)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.ribbonNodeNavigation)
@@ -716,4 +728,5 @@ Partial Class frmNodeNavigation
     Friend WithEvents DocumentViewer As DigitalData.Controls.DocumentViewer.DocumentViewer
     Friend WithEvents RibbonPageGroupView As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents checkShowPreview As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents btnCreateNewNode As DevExpress.XtraBars.BarButtonItem
 End Class

app/DD-Record-Organizer/frmNodeNavigation.resx

@@ -446,6 +446,24 @@
         MjEuMywyNSAgIGMtMC45LDAuNi0yLjEsMS0zLjMsMWMtMy4zLDAtNi0yLjctNi02QzEyLDE2LjcsMTQu
         NywxNCwxOCwxNHogTTE4LDI0YzIuMiwwLDQtMS44LDQtNHMtMS44LTQtNC00cy00LDEuOC00LDRTMTUu
         OCwyNCwxOCwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="btnCreateNewNode.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
+        QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
+        LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
+        Cjwvc3ZnPgs=
 </value>
   </data>
   <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

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

@@ -331,8 +331,9 @@ Partial Class frmStructureNodeConfig
         '
         Me.TYPE_NODENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource, "TYPE_NODE", True))
         Me.TYPE_NODENumericUpDown.Location = New System.Drawing.Point(659, 153)
+        Me.TYPE_NODENumericUpDown.Maximum = New Decimal(New Integer() {1000, 0, 0, 0})
         Me.TYPE_NODENumericUpDown.Name = "TYPE_NODENumericUpDown"
-        Me.TYPE_NODENumericUpDown.Size = New System.Drawing.Size(39, 22)
+        Me.TYPE_NODENumericUpDown.Size = New System.Drawing.Size(55, 22)
         Me.TYPE_NODENumericUpDown.TabIndex = 6
         Me.TYPE_NODENumericUpDown.Value = New Decimal(New Integer() {1, 0, 0, 0})
         '

app/DD-Record-Organizer/frmStructureNodeConfig.resx

@@ -154,7 +154,7 @@
   <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
+        wAAADsABataJCQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
         pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
         Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
         /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
@@ -172,7 +172,7 @@
   <data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
+        wAAADsABataJCQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
         DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
         rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
         i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
@@ -184,7 +184,7 @@
   <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
+        wAAADsABataJCQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
         wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
         v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
         UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
@@ -195,7 +195,7 @@
   <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
+        wAAADsABataJCQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
         5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
         Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
         08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
@@ -204,7 +204,7 @@
   <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
+        wAAADsABataJCQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
         n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
         N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
         oAc0QjgAAAAASUVORK5CYII=
@@ -213,7 +213,7 @@
   <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
+        wAAADsABataJCQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
         h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
         twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
         kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
@@ -224,7 +224,7 @@
   <data name="TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigatorSaveItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wgAADsIBFShKgAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo
+        wAAADsABataJCQAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo
         dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
 </value>
   </data>

app/DD-Record-Organizer/frmStructureNodeConfig.vb

@@ -402,6 +402,11 @@
 
     Private Sub frmStructureNodeConfig_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Load_Image()
+
+        If cmbEntity.Items.Count > 0 Then
+            cmbEntity.SelectedIndex = 0
+            LoadData()
+        End If
     End Sub
 
     Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
@@ -420,12 +425,15 @@
     End Sub
 
     Private Sub cmbEntity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntity.SelectedIndexChanged
+        LoadData()
+    End Sub
+
+    Private Sub LoadData()
         If cmbEntity.SelectedIndex <> -1 Then
             Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION, cmbEntity.SelectedValue)
             If DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION.Rows.Count > 0 Then
                 Load_TreeView()
             End If
-
         End If
     End Sub