MS Structure Nodes

app/DD-Record-Organizer/ClassAsyncNodeBuild.vb

@@ -0,0 +1,19 @@
+Imports System.ComponentModel
+Public Class ClassAsyncNodeBuild
+    Private DTNODES As DataTable
+    Private ImgList As ImageList
+    Public WithEvents bw As BackgroundWorker
+    Public newTreeview As TreeView
+
+    Public Sub New(DT_TREEVIEW_NODES As DataTable, TREEVIEW_IMAGELIST As ImageList)
+        Me.bw = New BackgroundWorker()
+        bw.WorkerReportsProgress = False
+        bw.WorkerSupportsCancellation = False
+        Me.DTNODES = DT_TREEVIEW_NODES
+        Me.ImgList = TREEVIEW_IMAGELIST
+    End Sub
+
+    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bw.DoWork
+        Me.newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DTNODES, ImgList)
+    End Sub
+End Class

app/DD-Record-Organizer/ClassConstructors.vb

@@ -0,0 +1,67 @@
+Public Class ClassConstructors
+    Public Shared ConstructorsTuple_TreeView As Object
+    Public Shared Function Init_Tuple()
+
+    Dim ConstructTreeViewTuple = New Dictionary(Of Tuple(Of TreeView), Integer)()
+        Dim sql = String.Format("Select DISTINCT T.GUID, T2.ENTITY_ID FROM TBPMO_FORM_CONSTRUCTOR T, TBPMO_FORM_CONSTRUCTOR_DETAIL T1, " &
+                                "TBPMO_STRUCTURE_NODES_CONFIGURATION T2 WHERE T.GUID = T1.CONSTRUCT_ID And T1.FORM_ID = T2.ENTITY_ID " &
+                                "And T.GUID In (Select CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {0})", USER_GUID)
+        Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
+        For Each rowconstruct As DataRow In DT.Rows
+            Try
+                Dim sqlnodes = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", rowconstruct.Item(0))
+                Dim DTNODES As DataTable = ClassDatabase.Return_Datatable(sqlnodes, True)
+
+                Dim sqlimage = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", rowconstruct.Item(0))
+                Dim DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(sql)
+                Dim TREEVIEW_IMAGELIST = New ImageList
+
+                For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
+                    Try
+                        Dim bimage = row.Item("NODE_IMAGE")
+                        If Not IsDBNull(bimage) Then
+                            Dim Node_image = ByteArrayToBitmap(bimage)
+                            TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString, Node_image) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
+                        End If
+                    Catch ex As Exception
+
+                    End Try
+
+                Next
+
+                'Dim async As New ClassAsyncNodeBuild(DTNODES, TREEVIEW_IMAGELIST)
+                'async.bw.RunWorkerAsync()
+                'While async.bw.IsBusy
+                '    Application.DoEvents()
+                'End While
+                Dim MyTreeview As TreeView = ClassNodeNavigation.CreateTreeViewNodes(DTNODES, TREEVIEW_IMAGELIST)
+                ConstructTreeViewTuple.Add(Tuple.Create(MyTreeview), rowconstruct.Item(0))
+            Catch ex As Exception
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Adding TreeView to Dictionary: ")
+            End Try
+
+
+
+        Next
+
+        ConstructorsTuple_TreeView = ConstructTreeViewTuple
+
+    End Function
+
+
+
+    Public Shared Function Check_TreeViewLoaded(CONSTRUCTID As Integer)
+        Try
+            For Each constrid As Integer In ConstructorsTuple_TreeView.keys
+                If constrid = CONSTRUCTID Then
+                    Return True
+                End If
+            Next
+            Return False
+        Catch ex As Exception
+            ClassLogger.Add("Error in Check_TreeViewLoaded: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+
+End Class

app/DD-Record-Organizer/ClassControlLoader.vb

@@ -227,9 +227,15 @@
 
                 Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("GUID = " & ControlId)
                 If drarray.Length > 0 Then
-                    Dim ID = drarray(0)("CONNECTION_ID").ToString
+                    Dim ID
+                    Try
+                        ID = drarray(0)("CONNECTION_ID_1").ToString
+                    Catch ex As Exception
+                        ID = drarray(0)("CONNECTION_ID").ToString
+                    End Try
+
                     If Not IsNothing(ID) Then
-                        Sql = drarray(0)("SQL_COMMAND").ToString
+                        Sql = drarray(0)("SQL_COMMAND_1").ToString
                         Sql = ClassControlValues.ReplaceSqlCommandPlaceholders(Sql, recordId, parentRecordId, entity_ID)
                         autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
                     Else
@@ -258,8 +264,8 @@
                 End If
             Catch ex As Exception
                 MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
+                ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
-            ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
+                ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
             End Try
 
         End Sub
@@ -323,7 +329,14 @@
                         Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
                         If drarray.Length > 0 Then
                             Dim autoValue
-                            Dim ID = drarray(0)("CONNECTION_ID").ToString
+                            Dim ID
+                            Try
+                                ID = drarray(0)("CONNECTION_ID_1").ToString
+                            Catch ex As Exception
+                                ID = drarray(0)("CONNECTION_ID").ToString
+                            End Try
+
+
                             Dim Sql = drarray(0)("SQL_COMMAND").ToString
                             If Not IsNothing(ID) Then
                                 autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)

app/DD-Record-Organizer/ClassControlValues.vb

@@ -188,8 +188,8 @@ Public Class ClassControlValues
                 Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
                 ' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
                 Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable()
-                            Where row.Item("CONTROL_ID") = ControlId
+                                                 Where row.Item("CONTROL_ID") = ControlId
-                            Select row.Item("VALUE")).ToList()
+                                                 Select row.Item("VALUE")).ToList()
                 If TypeOf control Is GroupBox Then
                     Dim groupbox As GroupBox = DirectCast(control, GroupBox)
                     LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID, True)
@@ -244,9 +244,9 @@ Public Class ClassControlValues
     End Sub
 
     Public Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object), entity_ID As Integer)
-        Try
+        ' Try
-            ' Für die meisten Controls wird nur das erste Element der Liste benötigt
+        ' Für die meisten Controls wird nur das erste Element der Liste benötigt
-            Dim value As String = Nothing
+        Dim value As String = Nothing
 
             If values.Count > 0 Then
                 value = values.Item(0)
@@ -306,10 +306,10 @@ Public Class ClassControlValues
                     End If
 
             End Select
-        Catch ex As Exception
+        'Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
+        '    ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
-            MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
+        '    MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
-        End Try
+        'End Try
 
     End Sub
 

app/DD-Record-Organizer/ClassDOC_SEARCH.vb

@@ -234,13 +234,13 @@ Public Class ClassDOC_SEARCH
             Return Nothing
         End Try
     End Function
-    Public Shared Function Get_DOCRESULTS(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, vType As String, Optional ftString As String = "", Optional BG As Boolean = False)
+    'Public Shared Function Get_DOCRESULTS(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, vType As String, Optional ftString As String = "", Optional BG As Boolean = False)
-        ENTITY_ID = ENT_ID
+    '    ENTITY_ID = ENT_ID
-        DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
+    '    DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
-        DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES
+    '    DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES
-        Return GET_DOCSEARCH_DATATABLE(BG)
+    '    Return GET_DOCSEARCH_DATATABLE(BG)
-    End Function
+    'End Function
-    Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, REC_ID As Integer, Optional BG As Boolean = False, Optional Preload As Boolean = False)
+    Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG As DataTable, ENT_ID As Integer, REC_ID As Integer, Optional BG As Boolean = False, Optional Preload As Boolean = False)
         Dim _step As String
         Dim COL_ARRAY_RESULTLIST As List(Of String)
         ENTITY_ID = ENT_ID
@@ -265,7 +265,7 @@ Public Class ClassDOC_SEARCH
             Dim DTGrid As New DataTable
             Dim ColArrayDEFINITION As New List(Of String)
             Dim listcheck As New List(Of String)
-            For Each row As DataRow In DT_WINDREAM_RESULTLIST.Rows
+            For Each row As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows
                 Dim type = row.Item("TYPE_ID")
                 Dim COLNAME = row.Item("HEADER_CAPTION")
                 If type = 2 Then
@@ -307,14 +307,18 @@ Public Class ClassDOC_SEARCH
                 DTGrid.Columns.Add(colDocID)
                 _step = "7"
 
-                If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count >= 1 Then
+                If Not DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG Is Nothing And DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows.Count >= 1 Then
                     Dim ColCount As Integer = 1
-                    For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
+                    For Each rw As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows
                         Dim ColumnName = rw.Item("HEADER_CAPTION")
                         Dim Width = rw.Item("WIDTH")
                         If IsNothing(Width) Or IsDBNull(Width) Then
                             Width = 200
                         End If
+                        'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
+                        Dim colname = rw.Item("COLUMN_VIEW")
+                        ColArrayDEFINITION.Add(rw.Item("COLUMN_VIEW"))
+                        _step = "7.2"
                         'Die Spalte definieren
                         Try
                             DTGrid.Columns.Add(ColumnName)
@@ -324,12 +328,6 @@ Public Class ClassDOC_SEARCH
                         End Try
                     Next
                     _step = "7.1"
-                    'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
-                    For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
-                        Dim colname = rw.Item("COLUMN_VIEW")
-                        ColArrayDEFINITION.Add(rw.Item("COLUMN_VIEW"))
-                    Next
-                    _step = "7.2"
                 End If
             Catch ex As Exception
                 ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message)
@@ -403,7 +401,7 @@ Public Class ClassDOC_SEARCH
                     Dim rowvalue
                     Try
                         rowvalue = FILE_ROW.Item(Colname)
-                        'If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname '" & Colname & "': '" & rowvalue.ToString & "'", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname '" & Colname & "': '" & rowvalue.ToString & "'", False)
                     Catch ex As Exception
                         If CURRENT_SEARCH_TYPE = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
                         If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then

app/DD-Record-Organizer/ClassDragDrop.vb

@@ -84,6 +84,14 @@ Public Class ClassDragDrop
                     Else
                         ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
                     End If
+                Else
+                    ClassLogger.Add(">> No simple drag and drop.", True, False)
+                    For Each fmt As String In e.Data.GetFormats()
+                        ' Output format name and type
+                        ClassLogger.Add(">> e.Data is: " & fmt + " (" +
+                              e.Data.GetData(fmt).ToString() + ")", True, False)
+                    Next
+
                 End If
             End If
             If e.Data.GetDataPresent("FileGroupDescriptor") Then

app/DD-Record-Organizer/ClassFileResult.vb

@@ -131,12 +131,39 @@
                         '    Return False
                         'Else
                         '    'Indexwert_Postprocessing(Replace(box.Name, "txt", ""), box.Text)
-                        SET_CURRENT_TBPMO_INDEX_MAN_VALUE(box.Tag, "")
+                        SET_CURRENT_TBPMO_INDEX_MAN_VALUE(box.Tag, box.Text)
 
                         result = True
                         'End If
                     End If
                 End If
+                If ctrl.Name.StartsWith("btn") Then
+                    Dim btn As Button = ctrl
+                    Dim optional_index = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, "OPTIONAL")
+                    If Not IsNothing(optional_index) Then
+                        If CBool(optional_index) = False Then
+                            For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
+                                If row.Item("GUID") = btn.Tag Then
+                                    If Not IsDBNull(row.Item("MAN_VALUE")) Then
+                                        If LogErrorsOnly = False Then ClassLogger.Add(" >> we got a value for folder...", False)
+                                        result = True
+                                    Else
+                                        If LogErrorsOnly = False Then ClassLogger.Add(" >> value for folder is missing...", False)
+                                        MsgBox("Please choose a folder!", MsgBoxStyle.Exclamation, "Missing input:")
+                                        Return False
+                                    End If
+
+                                End If
+
+                            Next
+                        Else
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >> value for folder is OPTIONAL...", False)
+                            SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, "")
+                            result = True
+                        End If
+                    End If
+
+                End If
                 If ctrl.Name.StartsWith("cmb") Then
                     Dim cmb As ComboBox = ctrl
                     If cmb.Text = "" Then
@@ -186,7 +213,7 @@
         End Try
     End Function
 
-    Private Shared Function SET_CURRENT_TBPMO_INDEX_MAN_VALUE(CONTROL_GUID As Integer, VALUE As String)
+    Public Shared Function SET_CURRENT_TBPMO_INDEX_MAN_VALUE(CONTROL_GUID As Integer, VALUE As String)
         Try
             For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
                 If row.Item("GUID") = CONTROL_GUID Then

app/DD-Record-Organizer/ClassHelper.vb

@@ -305,6 +305,7 @@ Public Class ClassHelper
     Public Shared Function Check_File_Read_only(RECORD_ID As Integer, ENTITY_ID As Integer)
         Dim sql = ""
         Try
+
             sql = SQL_DOC_READ_ONLY
             sql = sql.Replace("@RECORDID", RECORD_ID)
             sql = sql.Replace("@RECORD_ID", RECORD_ID)

app/DD-Record-Organizer/ClassImport_Windream.vb

@@ -124,12 +124,17 @@ Public Class ClassImport_Windream
             ' Den Zielordner erstellen
             Zielordner = DT.Rows(0).Item("ZIEL_PFAD")
 
-            sql = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID
+            sql = $"SELECT DYNAMIC_FOLDER FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID = {CURRENT_FORMVIEW_ID} AND DOCTYPE_ID = {DocTypeID}"
-            Dim Folder_for_index = ClassDatabase.Execute_Scalar(sql)
+            Dim DYNAMIC_FOLDER = ClassDatabase.Execute_Scalar(sql)
-            If Not IsDBNull(Folder_for_index) Then
+            If Not IsDBNull(DYNAMIC_FOLDER) Then
-                If Folder_for_index <> String.Empty Then
+                If DYNAMIC_FOLDER <> String.Empty Then
-                    If CREATE_FOLDER_INDEX(Folder_for_index, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
+                    If CREATE_FOLDER_INDEX(DYNAMIC_FOLDER, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
-                        Zielordner = Zielordner & "\" & CURRENT_VARIABLE_FOLDER
+                        If CURRENT_VARIABLE_FOLDER_OVERRIDE = True Then
+                            Zielordner = CURRENT_VARIABLE_FOLDER
+                        Else
+                            Zielordner = Zielordner & "\" & CURRENT_VARIABLE_FOLDER
+                        End If
+
                     Else
                         MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical)
                         Return False
@@ -151,7 +156,7 @@ Public Class ClassImport_Windream
             Try
                 Select Case clsWD_GET.WD_PATH_EXISTS(Zielordner.Substring(2))
                     Case False
-                        ClassLogger.Add(String.Format(">> Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", Zielordner.Substring(2)))
+                        ClassLogger.Add(String.Format(">> Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", Zielordner.Substring(2)), False)
                         Dim split() As String = Zielordner.Split("\")
                         Dim Path_Combined As String = ""
                         For Each s As String In split
@@ -159,13 +164,18 @@ Public Class ClassImport_Windream
                             If Path_Combined <> "W:\" Then
 
                                 Dim temppath = Path_Combined.Substring(2)
+
                                 Try
                                     temppath = Path_Combined.Substring(2).Substring(0, temppath.Length)
 
                                     Select Case clsWD_GET.WD_PATH_EXISTS(temppath)
                                         Case False
+                                            If LogErrorsOnly = False Then
+                                                ClassLogger.Add(" >> Trying to create folder-part: " & temppath, False)
+                                            End If
                                             clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, temppath, 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
                                         Case -10
+                                            ClassLogger.Add(">> WD_PATH_EXISTS returned -10 for: " & temppath, False)
                                             Return False
                                     End Select
                                 Catch ex As Exception
@@ -451,6 +461,7 @@ Public Class ClassImport_Windream
     End Function
     Private Shared Function CREATE_FOLDER_INDEX(FolderConvention As String, DocTypeID As Integer)
         Try
+            CURRENT_VARIABLE_FOLDER_OVERRIDE = False
             'Dim RootFolder As String = Path.GetDirectoryName(CURRENT_NEWFILENAME)
             CURRENT_VARIABLE_FOLDER = ""
             '######
@@ -507,23 +518,53 @@ Public Class ClassImport_Windream
                         End If
 
                     Case "M"
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Working on manual value......'", False)
                         Dim split() As String = element.Value.Substring(3, element.Value.Length - 4).Split("#")
                         If split.Length = 2 Then
                             'Die GUID des AutoIndex auslesen
                             Dim INDEX_ID = split(1)
                             If IsNumeric(INDEX_ID) Then
-                                For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
+                                If element.Value.ToUpper.Contains("FOLDERSELECT") Then
-                                    If row.Item("GUID") = INDEX_ID Then
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> FOLDERSELECT......'", False)
-                                        Dim manvalue = row.Item("MAN_VALUE")
+                                    For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
-                                        FolderConvention = FolderConvention.Replace(element.ToString, manvalue)
+                                        If row.Item("GUID") = INDEX_ID Then
-                                    End If
+                                            Dim manvalue = row.Item("MAN_VALUE")
-                                Next
+                                            If manvalue <> String.Empty Then
+                                                If LogErrorsOnly = False Then ClassLogger.Add(" >> folder value is: '" & manvalue & "'", False)
+                                                CURRENT_VARIABLE_FOLDER_OVERRIDE = True
+                                                CURRENT_VARIABLE_FOLDER = manvalue
+                                                Return True
+
+                                            Else
+                                                ClassLogger.Add(">> Attention: manvalue (from Input indexing is empty!!", False)
+                                            End If
+                                        End If
+                                    Next
+                                Else
+
+
+                                    For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
+                                        If row.Item("GUID") = INDEX_ID Then
+                                            Dim manvalue = row.Item("MAN_VALUE")
+                                            If manvalue <> String.Empty Then
+                                                If LogErrorsOnly = False Then ClassLogger.Add(" >> manvalue is: '" & manvalue & "'", False)
+                                                FolderConvention = FolderConvention.Replace(element.ToString, manvalue)
+                                                FolderConvention = FolderConvention.Replace("\\", "")
+                                            Else
+                                                ClassLogger.Add(">> Attention: manvalue (from Input indexing is empty!!", False)
+                                            End If
+                                        End If
+                                    Next
+
+                                End If
                             Else
                                 ClassLogger.Add(">> INDEX_ID is not numeric:  " & INDEX_ID.ToString & "- APattern: " & element.Value, False)
                             End If
                         Else
                             ClassLogger.Add(">> split.Length <> 2 - APattern: " & element.Value, False)
                         End If
+
+
                     Case "V"
                         Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
                         Dim split() As String = elmt

app/DD-Record-Organizer/ClassInit.vb

@@ -115,7 +115,7 @@ Public Class ClassInit
 
             sql = "SELECT * FROM TBPMO_CONTROL"
             CURRENT_TBPMO_CONTROL = ClassDatabase.Return_Datatable(sql, True)
-            sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG")
+            sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1")
             CURRENT_RESULTLIST_CONFIG = ClassDatabase.Return_Datatable(sql, True)
             sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS")
             CURRENT_VARIABLE_CONTROLS = ClassDatabase.Return_Datatable(sql, True)

app/DD-Record-Organizer/ClassNodeNavigation.vb

@@ -1,8 +1,61 @@
-Public Class ClassNodeNavigation
+Imports System.Data.SqlClient
+Imports DevExpress.Utils
+Public Class ClassNodeNavigation
     Public Shared NODE_CONFIGURABLE_ID As Integer
     Public Shared MyTreeView As TreeView
     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
+            connection.ConnectionString = MyConnectionString
+
+            Using cmd As New SqlCommand("PRPMO_CREATE_NODE", connection)
+                cmd.CommandType = CommandType.StoredProcedure
+                '@pNODE_PARENT_ID INT, @pADDED_WHO 
+                cmd.Parameters.AddWithValue("@pRECORD_ID", RECORD_ID)
+                cmd.Parameters.AddWithValue("@pNODE_CONFIG_ID", NODE_CONFIG_ID)
+                cmd.Parameters.AddWithValue("@pNODE_CAPTION", NODE_CAPTION)
+                cmd.Parameters.AddWithValue("@pNODE_ID1", NODE_ID1)
+                cmd.Parameters.AddWithValue("@pNODE_PARENT_ID", NODE_PARENT_ID)
+                cmd.Parameters.AddWithValue("@pADDED_WHO", ADDED_WHO)
+                cmd.Parameters.Add("@pRESULT", SqlDbType.Int)
+                cmd.Parameters("@pRESULT").Direction = ParameterDirection.Output
+
+                connection.Open()
+                cmd.ExecuteNonQuery()
+                connection.Close()
+
+                Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
+                Return GUID
+            End Using
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateNodeProcedure: ")
+            ClassLogger.Add("Error in CreateNodeProcedure: " & ex.Message, True)
+            Return 0
+        End Try
+    End Function
+
+
+    Public Shared Function CREATE_IMAGE_COLL(DT_IMAGELIST As DataTable)
+        IMAGE_COLLECTION = New ImageCollection
+        For Each row As DataRow In DT_IMAGELIST.Rows
+            Try
+                Dim bimage = row.Item("NODE_IMAGE")
+                If Not IsDBNull(bimage) Then
+                    Dim Node_image = ByteArrayToBitmap(bimage)
+                    IMAGE_COLLECTION.AddImage(Node_image, row.Item("GUID")) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
+
+                End If
+            Catch ex As Exception
+
+            End Try
+
+        Next
+    End Function
+
+
     Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
         Dim expression As String
         expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type  und Parent_Guid
@@ -43,8 +96,8 @@
             Dim NODE_ID
             Dim staticListItems = myTreeNode.Tag.Split("#")
             If staticListItems(0).Contains("NODE-TYPE") Then
-                NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
+                ' NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
-
+                NODE_ID = Return_NODEID_forTag(myTreeNode.Tag)
 
             End If
             If CURRENT_DT_NODE_CONFIGURABLE_NODES.Rows.Count > 0 And IsNumeric(NODE_ID) Then
@@ -135,9 +188,9 @@
                 MAIN_NODE.ImageIndex = index
                 MAIN_NODE.SelectedImageIndex = index
                 'New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
-                Dim fontfamily As String
+                Dim fontfamily, backcolor As String
                 Dim fontstyle, fontcolor, fontsize As Integer
-                Dim backcolor
+
                 fontfamily = MAIN_NODES(i)("FONT_FAMILY").ToString
                 fontsize = CInt(MAIN_NODES(i)("FONT_SIZE"))
                 fontstyle = MAIN_NODES(i)("FONT_STYLE")
@@ -147,14 +200,10 @@
                 MAIN_NODE.ForeColor = IntToColor(fontcolor)
 
                 Try
-                    If IsNumeric(backcolor) Then
+                    If backcolor <> String.Empty Then
-                        If backcolor = 16711680 Then
+                        MAIN_NODE.BackColor = Color.FromName(backcolor)
-                            Console.WriteLine("16711680")
-                        End If
-                        MAIN_NODE.BackColor = IntToColor(backcolor)
-                    Else
-                        If backcolor <> String.Empty Then MAIN_NODE.BackColor = Color.FromName(backcolor)
                     End If
+
                 Catch ex As Exception
                     ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message, True)
                 End Try
@@ -208,8 +257,8 @@
             Next
             SUB_NODE.ImageIndex = index
             SUB_NODE.SelectedImageIndex = index
-            Dim fontfamily As String
+            Dim fontfamily, backcolor As String
-            Dim fontstyle, fontcolor, fontsize, backcolor As Integer
+            Dim fontstyle, fontcolor, fontsize As Integer
 
             fontfamily = SUB_NODE_ROW(i)("FONT_FAMILY").ToString
             fontsize = CInt(SUB_NODE_ROW(i)("FONT_SIZE"))
@@ -219,15 +268,12 @@
             SUB_NODE.NodeFont = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
             SUB_NODE.ForeColor = IntToColor(fontcolor)
             Try
-                If IsNumeric(backcolor) Then
+                If backcolor <> String.Empty Then
-                    If backcolor = 255 Then
+                    SUB_NODE.BackColor = Color.FromName(backcolor)
-                        Console.WriteLine("255")
+                    Dim icolor = SUB_NODE.BackColor
-                    End If
-                    Dim col = IntToColor(backcolor)
-                    SUB_NODE.BackColor = IntToColor(backcolor)
-                Else
-                    If backcolor <> String.Empty Then SUB_NODE.BackColor = Color.FromName(backcolor)
                 End If
+
+
             Catch ex As Exception
                 ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message, True)
             End Try

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

@@ -240,8 +240,10 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ClassAsyncNodeBuild.vb" />
     <Compile Include="ClassAsyncReturnDT.vb" />
     <Compile Include="ClassBackgroundHelper.vb" />
+    <Compile Include="ClassConstructors.vb" />
     <Compile Include="ClassControlLoader.vb" />
     <Compile Include="ClassControlMetadata.vb" />
     <Compile Include="ClassControls_Manual.vb" />
@@ -280,6 +282,12 @@
     <Compile Include="DD_ECMAdmin.vb">
       <DependentUpon>DD_ECMAdmin.xsd</DependentUpon>
     </Compile>
+    <Compile Include="frmCalendarEntity.Designer.vb">
+      <DependentUpon>frmCalendarEntity.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmCalendarEntity.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmChooseParentRecord.Designer.vb">
       <DependentUpon>frmChooseParentRecord.vb</DependentUpon>
     </Compile>
@@ -747,6 +755,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmCalendarEntity.resx">
+      <DependentUpon>frmCalendarEntity.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmChooseParentRecord.en-US.resx">
       <DependentUpon>frmChooseParentRecord.vb</DependentUpon>
     </EmbeddedResource>
@@ -764,6 +775,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmConstructor_Main.aa.resx">
       <DependentUpon>frmConstructor_Main.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmDiagrams.en-US.resx">
       <DependentUpon>frmDiagrams.vb</DependentUpon>

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -52,6 +52,7 @@ Module ModuleMySettings
     Public FWSCAN_started As Boolean = False
 
 
+
     Dim rowresult As String = ""
     Public Function LoadFileExclusion()
         Dim rowresult As String = ""

app/DD-Record-Organizer/ModuleRuntimeVariables.vb

@@ -141,6 +141,7 @@
 
     Public NEW_FILES_ADDED As Boolean = False
     Public CURRENT_VARIABLE_FOLDER As String
+    Public CURRENT_VARIABLE_FOLDER_OVERRIDE As Boolean = False
     Public CURRENT_DOCVIEW_PATH As String
     Public CURRENT_DOCVIEW
 

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

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

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

@@ -1,4 +1,6 @@
-DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

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

@@ -94,12 +94,14 @@ Partial Class frmCalendar
         '
         'SchedulerControl1
         '
+        Me.SchedulerControl1.ActiveViewType = DevExpress.XtraScheduler.SchedulerViewType.Week
         Me.SchedulerControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SchedulerControl1.Location = New System.Drawing.Point(0, 141)
         Me.SchedulerControl1.MenuManager = Me.ribbonCalendar
         Me.SchedulerControl1.Name = "SchedulerControl1"
+        Me.SchedulerControl1.OptionsView.FirstDayOfWeek = DevExpress.XtraScheduler.FirstDayOfWeek.Monday
         Me.SchedulerControl1.Size = New System.Drawing.Size(926, 456)
-        Me.SchedulerControl1.Start = New Date(2014, 12, 23, 0, 0, 0, 0)
+        Me.SchedulerControl1.Start = New Date(2014, 12, 22, 0, 0, 0, 0)
         Me.SchedulerControl1.Storage = Me.SchedulerStorage1
         Me.SchedulerControl1.TabIndex = 0
         Me.SchedulerControl1.Text = "SchedulerControl1"

app/DD-Record-Organizer/frmCalendar.vb

@@ -76,4 +76,8 @@
             form.Dispose()
         End Try
     End Sub
+
+    Private Sub SchedulerControl1_Click(sender As Object, e As EventArgs) Handles SchedulerControl1.Click
+
+    End Sub
 End Class

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

@@ -0,0 +1,421 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmCalendarEntity
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim TimeRuler4 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
+        Dim TimeRuler5 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
+        Dim TimeRuler6 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
+        Me.ribbonCalendar = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.SwitchToDayViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToDayViewItem()
+        Me.SwitchToWorkWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem()
+        Me.SwitchToWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWeekViewItem()
+        Me.SwitchToFullWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem()
+        Me.SwitchToMonthViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToMonthViewItem()
+        Me.SwitchToTimelineViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem()
+        Me.SwitchToGanttViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToGanttViewItem()
+        Me.SwitchTimeScalesItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesItem()
+        Me.ChangeScaleWidthItem1 = New DevExpress.XtraScheduler.UI.ChangeScaleWidthItem()
+        Me.SwitchTimeScalesCaptionItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem()
+        Me.SwitchCompressWeekendItem1 = New DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem()
+        Me.SwitchShowWorkTimeOnlyItem1 = New DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem()
+        Me.SwitchCellsAutoHeightItem1 = New DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem()
+        Me.ChangeSnapToCellsUIItem1 = New DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem()
+        Me.EditAppointmentQueryItem1 = New DevExpress.XtraScheduler.UI.EditAppointmentQueryItem()
+        Me.EditOccurrenceUICommandItem1 = New DevExpress.XtraScheduler.UI.EditOccurrenceUICommandItem()
+        Me.EditSeriesUICommandItem1 = New DevExpress.XtraScheduler.UI.EditSeriesUICommandItem()
+        Me.DeleteAppointmentsItem1 = New DevExpress.XtraScheduler.UI.DeleteAppointmentsItem()
+        Me.DeleteOccurrenceItem1 = New DevExpress.XtraScheduler.UI.DeleteOccurrenceItem()
+        Me.DeleteSeriesItem1 = New DevExpress.XtraScheduler.UI.DeleteSeriesItem()
+        Me.SplitAppointmentItem1 = New DevExpress.XtraScheduler.UI.SplitAppointmentItem()
+        Me.ChangeAppointmentStatusItem1 = New DevExpress.XtraScheduler.UI.ChangeAppointmentStatusItem()
+        Me.ChangeAppointmentLabelItem1 = New DevExpress.XtraScheduler.UI.ChangeAppointmentLabelItem()
+        Me.ToggleRecurrenceItem1 = New DevExpress.XtraScheduler.UI.ToggleRecurrenceItem()
+        Me.ChangeAppointmentReminderItem1 = New DevExpress.XtraScheduler.UI.ChangeAppointmentReminderItem()
+        Me.NewAppointmentItem1 = New DevExpress.XtraScheduler.UI.NewAppointmentItem()
+        Me.NewRecurringAppointmentItem1 = New DevExpress.XtraScheduler.UI.NewRecurringAppointmentItem()
+        Me.NavigateViewBackwardItem1 = New DevExpress.XtraScheduler.UI.NavigateViewBackwardItem()
+        Me.NavigateViewForwardItem1 = New DevExpress.XtraScheduler.UI.NavigateViewForwardItem()
+        Me.GotoTodayItem1 = New DevExpress.XtraScheduler.UI.GotoTodayItem()
+        Me.ViewZoomInItem1 = New DevExpress.XtraScheduler.UI.ViewZoomInItem()
+        Me.ViewZoomOutItem1 = New DevExpress.XtraScheduler.UI.ViewZoomOutItem()
+        Me.GroupByNoneItem1 = New DevExpress.XtraScheduler.UI.GroupByNoneItem()
+        Me.GroupByDateItem1 = New DevExpress.XtraScheduler.UI.GroupByDateItem()
+        Me.GroupByResourceItem1 = New DevExpress.XtraScheduler.UI.GroupByResourceItem()
+        Me.pageCalendar = New DevExpress.XtraScheduler.UI.HomeRibbonPage()
+        Me.AppointmentRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.AppointmentRibbonPageGroup()
+        Me.NavigatorRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.NavigatorRibbonPageGroup()
+        Me.ArrangeRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ArrangeRibbonPageGroup()
+        Me.GroupByRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.GroupByRibbonPageGroup()
+        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.SchedulerControl1 = New DevExpress.XtraScheduler.SchedulerControl()
+        Me.SchedulerStorage1 = New DevExpress.XtraScheduler.SchedulerStorage(Me.components)
+        CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SchedulerStorage1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'ribbonCalendar
+        '
+        Me.ribbonCalendar.ExpandCollapseItem.Id = 0
+        Me.ribbonCalendar.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonCalendar.ExpandCollapseItem, Me.SwitchToDayViewItem1, Me.SwitchToWorkWeekViewItem1, Me.SwitchToWeekViewItem1, Me.SwitchToFullWeekViewItem1, Me.SwitchToMonthViewItem1, Me.SwitchToTimelineViewItem1, Me.SwitchToGanttViewItem1, Me.SwitchTimeScalesItem1, Me.ChangeScaleWidthItem1, Me.SwitchTimeScalesCaptionItem1, Me.SwitchCompressWeekendItem1, Me.SwitchShowWorkTimeOnlyItem1, Me.SwitchCellsAutoHeightItem1, Me.ChangeSnapToCellsUIItem1, Me.EditAppointmentQueryItem1, Me.EditOccurrenceUICommandItem1, Me.EditSeriesUICommandItem1, Me.DeleteAppointmentsItem1, Me.DeleteOccurrenceItem1, Me.DeleteSeriesItem1, Me.SplitAppointmentItem1, Me.ChangeAppointmentStatusItem1, Me.ChangeAppointmentLabelItem1, Me.ToggleRecurrenceItem1, Me.ChangeAppointmentReminderItem1, Me.NewAppointmentItem1, Me.NewRecurringAppointmentItem1, Me.NavigateViewBackwardItem1, Me.NavigateViewForwardItem1, Me.GotoTodayItem1, Me.ViewZoomInItem1, Me.ViewZoomOutItem1, Me.GroupByNoneItem1, Me.GroupByDateItem1, Me.GroupByResourceItem1})
+        Me.ribbonCalendar.Location = New System.Drawing.Point(0, 0)
+        Me.ribbonCalendar.MaxItemId = 1
+        Me.ribbonCalendar.Name = "ribbonCalendar"
+        Me.ribbonCalendar.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageCalendar})
+        Me.ribbonCalendar.Size = New System.Drawing.Size(1047, 141)
+        '
+        'SwitchToDayViewItem1
+        '
+        Me.SwitchToDayViewItem1.Id = 1
+        Me.SwitchToDayViewItem1.Name = "SwitchToDayViewItem1"
+        '
+        'SwitchToWorkWeekViewItem1
+        '
+        Me.SwitchToWorkWeekViewItem1.Id = 2
+        Me.SwitchToWorkWeekViewItem1.Name = "SwitchToWorkWeekViewItem1"
+        '
+        'SwitchToWeekViewItem1
+        '
+        Me.SwitchToWeekViewItem1.Caption = "&Wochenansicht (Arbeitswoche)"
+        Me.SwitchToWeekViewItem1.Id = 3
+        Me.SwitchToWeekViewItem1.Name = "SwitchToWeekViewItem1"
+        '
+        'SwitchToFullWeekViewItem1
+        '
+        Me.SwitchToFullWeekViewItem1.Caption = "&Ganze Woche anzeigen"
+        Me.SwitchToFullWeekViewItem1.Id = 4
+        Me.SwitchToFullWeekViewItem1.Name = "SwitchToFullWeekViewItem1"
+        '
+        'SwitchToMonthViewItem1
+        '
+        Me.SwitchToMonthViewItem1.Id = 5
+        Me.SwitchToMonthViewItem1.Name = "SwitchToMonthViewItem1"
+        '
+        'SwitchToTimelineViewItem1
+        '
+        Me.SwitchToTimelineViewItem1.Id = 6
+        Me.SwitchToTimelineViewItem1.Name = "SwitchToTimelineViewItem1"
+        '
+        'SwitchToGanttViewItem1
+        '
+        Me.SwitchToGanttViewItem1.Id = 7
+        Me.SwitchToGanttViewItem1.Name = "SwitchToGanttViewItem1"
+        '
+        'SwitchTimeScalesItem1
+        '
+        Me.SwitchTimeScalesItem1.Id = 8
+        Me.SwitchTimeScalesItem1.Name = "SwitchTimeScalesItem1"
+        '
+        'ChangeScaleWidthItem1
+        '
+        Me.ChangeScaleWidthItem1.Edit = Nothing
+        Me.ChangeScaleWidthItem1.Id = 9
+        Me.ChangeScaleWidthItem1.Name = "ChangeScaleWidthItem1"
+        Me.ChangeScaleWidthItem1.UseCommandCaption = True
+        '
+        'SwitchTimeScalesCaptionItem1
+        '
+        Me.SwitchTimeScalesCaptionItem1.Id = 10
+        Me.SwitchTimeScalesCaptionItem1.Name = "SwitchTimeScalesCaptionItem1"
+        '
+        'SwitchCompressWeekendItem1
+        '
+        Me.SwitchCompressWeekendItem1.Id = 11
+        Me.SwitchCompressWeekendItem1.Name = "SwitchCompressWeekendItem1"
+        '
+        'SwitchShowWorkTimeOnlyItem1
+        '
+        Me.SwitchShowWorkTimeOnlyItem1.Id = 12
+        Me.SwitchShowWorkTimeOnlyItem1.Name = "SwitchShowWorkTimeOnlyItem1"
+        '
+        'SwitchCellsAutoHeightItem1
+        '
+        Me.SwitchCellsAutoHeightItem1.Id = 13
+        Me.SwitchCellsAutoHeightItem1.Name = "SwitchCellsAutoHeightItem1"
+        '
+        'ChangeSnapToCellsUIItem1
+        '
+        Me.ChangeSnapToCellsUIItem1.Id = 14
+        Me.ChangeSnapToCellsUIItem1.Name = "ChangeSnapToCellsUIItem1"
+        '
+        'EditAppointmentQueryItem1
+        '
+        Me.EditAppointmentQueryItem1.Id = 15
+        Me.EditAppointmentQueryItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.EditOccurrenceUICommandItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditSeriesUICommandItem1)})
+        Me.EditAppointmentQueryItem1.Name = "EditAppointmentQueryItem1"
+        Me.EditAppointmentQueryItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'EditOccurrenceUICommandItem1
+        '
+        Me.EditOccurrenceUICommandItem1.Id = 16
+        Me.EditOccurrenceUICommandItem1.Name = "EditOccurrenceUICommandItem1"
+        '
+        'EditSeriesUICommandItem1
+        '
+        Me.EditSeriesUICommandItem1.Id = 17
+        Me.EditSeriesUICommandItem1.Name = "EditSeriesUICommandItem1"
+        '
+        'DeleteAppointmentsItem1
+        '
+        Me.DeleteAppointmentsItem1.Id = 18
+        Me.DeleteAppointmentsItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteOccurrenceItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteSeriesItem1)})
+        Me.DeleteAppointmentsItem1.Name = "DeleteAppointmentsItem1"
+        Me.DeleteAppointmentsItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'DeleteOccurrenceItem1
+        '
+        Me.DeleteOccurrenceItem1.Id = 19
+        Me.DeleteOccurrenceItem1.Name = "DeleteOccurrenceItem1"
+        '
+        'DeleteSeriesItem1
+        '
+        Me.DeleteSeriesItem1.Id = 20
+        Me.DeleteSeriesItem1.Name = "DeleteSeriesItem1"
+        '
+        'SplitAppointmentItem1
+        '
+        Me.SplitAppointmentItem1.Id = 21
+        Me.SplitAppointmentItem1.Name = "SplitAppointmentItem1"
+        '
+        'ChangeAppointmentStatusItem1
+        '
+        Me.ChangeAppointmentStatusItem1.Id = 22
+        Me.ChangeAppointmentStatusItem1.Name = "ChangeAppointmentStatusItem1"
+        '
+        'ChangeAppointmentLabelItem1
+        '
+        Me.ChangeAppointmentLabelItem1.Id = 23
+        Me.ChangeAppointmentLabelItem1.Name = "ChangeAppointmentLabelItem1"
+        '
+        'ToggleRecurrenceItem1
+        '
+        Me.ToggleRecurrenceItem1.Id = 24
+        Me.ToggleRecurrenceItem1.Name = "ToggleRecurrenceItem1"
+        '
+        'ChangeAppointmentReminderItem1
+        '
+        Me.ChangeAppointmentReminderItem1.Edit = Nothing
+        Me.ChangeAppointmentReminderItem1.Id = 25
+        Me.ChangeAppointmentReminderItem1.Name = "ChangeAppointmentReminderItem1"
+        '
+        'NewAppointmentItem1
+        '
+        Me.NewAppointmentItem1.Id = 26
+        Me.NewAppointmentItem1.Name = "NewAppointmentItem1"
+        '
+        'NewRecurringAppointmentItem1
+        '
+        Me.NewRecurringAppointmentItem1.Id = 27
+        Me.NewRecurringAppointmentItem1.Name = "NewRecurringAppointmentItem1"
+        '
+        'NavigateViewBackwardItem1
+        '
+        Me.NavigateViewBackwardItem1.Id = 28
+        Me.NavigateViewBackwardItem1.Name = "NavigateViewBackwardItem1"
+        '
+        'NavigateViewForwardItem1
+        '
+        Me.NavigateViewForwardItem1.Id = 29
+        Me.NavigateViewForwardItem1.Name = "NavigateViewForwardItem1"
+        '
+        'GotoTodayItem1
+        '
+        Me.GotoTodayItem1.Id = 30
+        Me.GotoTodayItem1.Name = "GotoTodayItem1"
+        '
+        'ViewZoomInItem1
+        '
+        Me.ViewZoomInItem1.Id = 31
+        Me.ViewZoomInItem1.Name = "ViewZoomInItem1"
+        '
+        'ViewZoomOutItem1
+        '
+        Me.ViewZoomOutItem1.Id = 32
+        Me.ViewZoomOutItem1.Name = "ViewZoomOutItem1"
+        '
+        'GroupByNoneItem1
+        '
+        Me.GroupByNoneItem1.Id = 33
+        Me.GroupByNoneItem1.Name = "GroupByNoneItem1"
+        '
+        'GroupByDateItem1
+        '
+        Me.GroupByDateItem1.Id = 34
+        Me.GroupByDateItem1.Name = "GroupByDateItem1"
+        '
+        'GroupByResourceItem1
+        '
+        Me.GroupByResourceItem1.Id = 35
+        Me.GroupByResourceItem1.Name = "GroupByResourceItem1"
+        '
+        'pageCalendar
+        '
+        Me.pageCalendar.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.AppointmentRibbonPageGroup1, Me.NavigatorRibbonPageGroup1, Me.ArrangeRibbonPageGroup1, Me.GroupByRibbonPageGroup1})
+        Me.pageCalendar.Name = "pageCalendar"
+        Me.pageCalendar.Text = "Kalender"
+        '
+        'AppointmentRibbonPageGroup1
+        '
+        Me.AppointmentRibbonPageGroup1.ItemLinks.Add(Me.NewAppointmentItem1)
+        Me.AppointmentRibbonPageGroup1.ItemLinks.Add(Me.NewRecurringAppointmentItem1)
+        Me.AppointmentRibbonPageGroup1.Name = "AppointmentRibbonPageGroup1"
+        '
+        'NavigatorRibbonPageGroup1
+        '
+        Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.NavigateViewBackwardItem1)
+        Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.NavigateViewForwardItem1)
+        Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.GotoTodayItem1)
+        Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.ViewZoomInItem1)
+        Me.NavigatorRibbonPageGroup1.ItemLinks.Add(Me.ViewZoomOutItem1)
+        Me.NavigatorRibbonPageGroup1.Name = "NavigatorRibbonPageGroup1"
+        '
+        'ArrangeRibbonPageGroup1
+        '
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToDayViewItem1)
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWorkWeekViewItem1)
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWeekViewItem1)
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToFullWeekViewItem1)
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToMonthViewItem1)
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToTimelineViewItem1)
+        Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SwitchToGanttViewItem1)
+        Me.ArrangeRibbonPageGroup1.Name = "ArrangeRibbonPageGroup1"
+        '
+        'GroupByRibbonPageGroup1
+        '
+        Me.GroupByRibbonPageGroup1.ItemLinks.Add(Me.GroupByNoneItem1)
+        Me.GroupByRibbonPageGroup1.ItemLinks.Add(Me.GroupByDateItem1)
+        Me.GroupByRibbonPageGroup1.ItemLinks.Add(Me.GroupByResourceItem1)
+        Me.GroupByRibbonPageGroup1.Name = "GroupByRibbonPageGroup1"
+        '
+        'StatusStrip1
+        '
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 527)
+        Me.StatusStrip1.Name = "StatusStrip1"
+        Me.StatusStrip1.Size = New System.Drawing.Size(1047, 22)
+        Me.StatusStrip1.TabIndex = 2
+        Me.StatusStrip1.Text = "StatusStrip1"
+        '
+        'SchedulerControl1
+        '
+        Me.SchedulerControl1.ActiveViewType = DevExpress.XtraScheduler.SchedulerViewType.Week
+        Me.SchedulerControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SchedulerControl1.Location = New System.Drawing.Point(0, 141)
+        Me.SchedulerControl1.MenuManager = Me.ribbonCalendar
+        Me.SchedulerControl1.Name = "SchedulerControl1"
+        Me.SchedulerControl1.OptionsView.FirstDayOfWeek = DevExpress.XtraScheduler.FirstDayOfWeek.Monday
+        Me.SchedulerControl1.Size = New System.Drawing.Size(1047, 386)
+        Me.SchedulerControl1.Start = New Date(2014, 12, 22, 0, 0, 0, 0)
+        Me.SchedulerControl1.Storage = Me.SchedulerStorage1
+        Me.SchedulerControl1.TabIndex = 3
+        Me.SchedulerControl1.Text = "SchedulerControl1"
+        Me.SchedulerControl1.Views.DayView.TimeRulers.Add(TimeRuler4)
+        Me.SchedulerControl1.Views.FullWeekView.Enabled = True
+        Me.SchedulerControl1.Views.FullWeekView.TimeRulers.Add(TimeRuler5)
+        Me.SchedulerControl1.Views.WorkWeekView.TimeRulers.Add(TimeRuler6)
+        '
+        'SchedulerStorage1
+        '
+        Me.SchedulerStorage1.Appointments.CustomFieldMappings.Add(New DevExpress.XtraScheduler.AppointmentCustomFieldMapping("RecordID", "CustomField1"))
+        Me.SchedulerStorage1.Appointments.CustomFieldMappings.Add(New DevExpress.XtraScheduler.AppointmentCustomFieldMapping("ControlID", "CustomField2"))
+        Me.SchedulerStorage1.Appointments.Mappings.AllDay = "AllDay"
+        Me.SchedulerStorage1.Appointments.Mappings.Description = "Description"
+        Me.SchedulerStorage1.Appointments.Mappings.End = "EndDate"
+        Me.SchedulerStorage1.Appointments.Mappings.Label = "Label"
+        Me.SchedulerStorage1.Appointments.Mappings.Location = "Location"
+        Me.SchedulerStorage1.Appointments.Mappings.RecurrenceInfo = "RecurrenceInfo"
+        Me.SchedulerStorage1.Appointments.Mappings.ReminderInfo = "ReminderInfo"
+        Me.SchedulerStorage1.Appointments.Mappings.ResourceId = "ResourceID"
+        Me.SchedulerStorage1.Appointments.Mappings.Start = "StartDate"
+        Me.SchedulerStorage1.Appointments.Mappings.Status = "Status"
+        Me.SchedulerStorage1.Appointments.Mappings.Subject = "Subject"
+        Me.SchedulerStorage1.Appointments.Mappings.Type = "Type"
+        Me.SchedulerStorage1.Resources.Mappings.Caption = "ResourceName"
+        Me.SchedulerStorage1.Resources.Mappings.Color = "Color"
+        Me.SchedulerStorage1.Resources.Mappings.Id = "ResourceID"
+        Me.SchedulerStorage1.Resources.Mappings.Image = "Image"
+        Me.SchedulerStorage1.Resources.Mappings.ParentId = "UniqueID"
+        '
+        'frmCalendarEntity
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1047, 549)
+        Me.Controls.Add(Me.SchedulerControl1)
+        Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.ribbonCalendar)
+        Me.Name = "frmCalendarEntity"
+        Me.Text = "frmCalendarEntity"
+        CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SchedulerStorage1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents ribbonCalendar As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents SwitchToDayViewItem1 As DevExpress.XtraScheduler.UI.SwitchToDayViewItem
+    Friend WithEvents SwitchToWorkWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem
+    Friend WithEvents SwitchToWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWeekViewItem
+    Friend WithEvents SwitchToFullWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem
+    Friend WithEvents SwitchToMonthViewItem1 As DevExpress.XtraScheduler.UI.SwitchToMonthViewItem
+    Friend WithEvents SwitchToTimelineViewItem1 As DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem
+    Friend WithEvents SwitchToGanttViewItem1 As DevExpress.XtraScheduler.UI.SwitchToGanttViewItem
+    Friend WithEvents SwitchTimeScalesItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesItem
+    Friend WithEvents ChangeScaleWidthItem1 As DevExpress.XtraScheduler.UI.ChangeScaleWidthItem
+    Friend WithEvents SwitchTimeScalesCaptionItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem
+    Friend WithEvents SwitchCompressWeekendItem1 As DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem
+    Friend WithEvents SwitchShowWorkTimeOnlyItem1 As DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem
+    Friend WithEvents SwitchCellsAutoHeightItem1 As DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem
+    Friend WithEvents ChangeSnapToCellsUIItem1 As DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem
+    Friend WithEvents EditAppointmentQueryItem1 As DevExpress.XtraScheduler.UI.EditAppointmentQueryItem
+    Friend WithEvents EditOccurrenceUICommandItem1 As DevExpress.XtraScheduler.UI.EditOccurrenceUICommandItem
+    Friend WithEvents EditSeriesUICommandItem1 As DevExpress.XtraScheduler.UI.EditSeriesUICommandItem
+    Friend WithEvents DeleteAppointmentsItem1 As DevExpress.XtraScheduler.UI.DeleteAppointmentsItem
+    Friend WithEvents DeleteOccurrenceItem1 As DevExpress.XtraScheduler.UI.DeleteOccurrenceItem
+    Friend WithEvents DeleteSeriesItem1 As DevExpress.XtraScheduler.UI.DeleteSeriesItem
+    Friend WithEvents SplitAppointmentItem1 As DevExpress.XtraScheduler.UI.SplitAppointmentItem
+    Friend WithEvents ChangeAppointmentStatusItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentStatusItem
+    Friend WithEvents ChangeAppointmentLabelItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentLabelItem
+    Friend WithEvents ToggleRecurrenceItem1 As DevExpress.XtraScheduler.UI.ToggleRecurrenceItem
+    Friend WithEvents ChangeAppointmentReminderItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentReminderItem
+    Friend WithEvents NewAppointmentItem1 As DevExpress.XtraScheduler.UI.NewAppointmentItem
+    Friend WithEvents NewRecurringAppointmentItem1 As DevExpress.XtraScheduler.UI.NewRecurringAppointmentItem
+    Friend WithEvents NavigateViewBackwardItem1 As DevExpress.XtraScheduler.UI.NavigateViewBackwardItem
+    Friend WithEvents NavigateViewForwardItem1 As DevExpress.XtraScheduler.UI.NavigateViewForwardItem
+    Friend WithEvents GotoTodayItem1 As DevExpress.XtraScheduler.UI.GotoTodayItem
+    Friend WithEvents ViewZoomInItem1 As DevExpress.XtraScheduler.UI.ViewZoomInItem
+    Friend WithEvents ViewZoomOutItem1 As DevExpress.XtraScheduler.UI.ViewZoomOutItem
+    Friend WithEvents GroupByNoneItem1 As DevExpress.XtraScheduler.UI.GroupByNoneItem
+    Friend WithEvents GroupByDateItem1 As DevExpress.XtraScheduler.UI.GroupByDateItem
+    Friend WithEvents GroupByResourceItem1 As DevExpress.XtraScheduler.UI.GroupByResourceItem
+    Friend WithEvents pageCalendar As DevExpress.XtraScheduler.UI.HomeRibbonPage
+    Friend WithEvents AppointmentRibbonPageGroup1 As DevExpress.XtraScheduler.UI.AppointmentRibbonPageGroup
+    Friend WithEvents NavigatorRibbonPageGroup1 As DevExpress.XtraScheduler.UI.NavigatorRibbonPageGroup
+    Friend WithEvents ArrangeRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ArrangeRibbonPageGroup
+    Friend WithEvents GroupByRibbonPageGroup1 As DevExpress.XtraScheduler.UI.GroupByRibbonPageGroup
+    Friend WithEvents StatusStrip1 As StatusStrip
+    Friend WithEvents SchedulerControl1 As DevExpress.XtraScheduler.SchedulerControl
+    Friend WithEvents SchedulerStorage1 As DevExpress.XtraScheduler.SchedulerStorage
+End Class

app/DD-Record-Organizer/frmCalendarEntity.resx

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

app/DD-Record-Organizer/frmCalendarEntity.vb

@@ -0,0 +1,3 @@
+Public Class frmCalendarEntity
+
+End Class

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

@@ -42,7 +42,9 @@ Partial Class frmConstructor_Main
         Me.tsmiFulltext = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
         Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsmi_NewNode = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiNodeRename = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tstxtRenameNode = New System.Windows.Forms.ToolStripTextBox()
+        Me.tsmiNodeNew = New System.Windows.Forms.ToolStripMenuItem()
         Me.SdsdToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmINewText = New System.Windows.Forms.ToolStripTextBox()
         Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
@@ -173,6 +175,9 @@ Partial Class frmConstructor_Main
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsbtnVariantDetailView = New System.Windows.Forms.ToolStripButton()
+        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
+        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
         Me.SplitContainerFORM = New DevExpress.XtraEditors.SplitContainerControl()
         Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
@@ -188,6 +193,8 @@ Partial Class frmConstructor_Main
         Me.CMDoc_TextBoxRenameDisplay = New System.Windows.Forms.ToolStripTextBox()
         Me.docCM_InWork = New System.Windows.Forms.ToolStripMenuItem()
         Me.docCM_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AusDieserEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AusAndererEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.WindreamToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DateiVersionierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DokumentartÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -211,7 +218,6 @@ Partial Class frmConstructor_Main
         Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel()
         Me.labelLoadEntity = New System.Windows.Forms.ToolStripStatusLabel()
         Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin()
-        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
         Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
         Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.cmsrpContainer = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -259,12 +265,14 @@ Partial Class frmConstructor_Main
         CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tsVariants.SuspendLayout()
+        Me.XtraTabPage1.SuspendLayout()
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerFORM.SuspendLayout()
         Me.ContextMenuStripResultFiles.SuspendLayout()
         Me.StatusStrip_Main.SuspendLayout()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cmsrpContainer.SuspendLayout()
         CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -308,7 +316,7 @@ Partial Class frmConstructor_Main
         'cmsTreeView
         '
         Me.cmsTreeView.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.cmsTreeView.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ResetEbenenAuswahlToolStripMenuItem, Me.ToolStripSeparator14, Me.FormDesignerToolStripMenuItem, Me.ToolStripSeparator13, Me.AuswertungAnzeigenToolStripMenuItem, Me.tsmiFilesearch, Me.ToolStripSeparator12, Me.ToolStripSeparator24, Me.tsmi_NewNode, Me.tsmiNodeDelete, Me.tstxtboxSearchNode})
+        Me.cmsTreeView.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ResetEbenenAuswahlToolStripMenuItem, Me.ToolStripSeparator14, Me.FormDesignerToolStripMenuItem, Me.ToolStripSeparator13, Me.AuswertungAnzeigenToolStripMenuItem, Me.tsmiFilesearch, Me.ToolStripSeparator12, Me.ToolStripSeparator24, Me.tsmiNodeRename, Me.tsmiNodeNew, Me.tsmiNodeDelete, Me.tstxtboxSearchNode})
         Me.cmsTreeView.Name = "ContextMenuStrip2"
         resources.ApplyResources(Me.cmsTreeView, "cmsTreeView")
         '
@@ -371,11 +379,24 @@ Partial Class frmConstructor_Main
         Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
         resources.ApplyResources(Me.ToolStripSeparator24, "ToolStripSeparator24")
         '
-        'tsmi_NewNode
+        'tsmiNodeRename
         '
-        Me.tsmi_NewNode.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SdsdToolStripMenuItem, Me.tsmINewText, Me.ToolStripSeparator15, Me.OberhalbToolStripMenuItem, Me.UnterhalbToolStripMenuItem})
+        Me.tsmiNodeRename.BackColor = System.Drawing.SystemColors.Control
-        resources.ApplyResources(Me.tsmi_NewNode, "tsmi_NewNode")
+        Me.tsmiNodeRename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstxtRenameNode})
-        Me.tsmi_NewNode.Name = "tsmi_NewNode"
+        resources.ApplyResources(Me.tsmiNodeRename, "tsmiNodeRename")
+        Me.tsmiNodeRename.Name = "tsmiNodeRename"
+        '
+        'tstxtRenameNode
+        '
+        Me.tstxtRenameNode.BackColor = System.Drawing.SystemColors.ActiveCaption
+        Me.tstxtRenameNode.Name = "tstxtRenameNode"
+        resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
+        '
+        'tsmiNodeNew
+        '
+        Me.tsmiNodeNew.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SdsdToolStripMenuItem, Me.tsmINewText, Me.ToolStripSeparator15, Me.OberhalbToolStripMenuItem, Me.UnterhalbToolStripMenuItem})
+        resources.ApplyResources(Me.tsmiNodeNew, "tsmiNodeNew")
+        Me.tsmiNodeNew.Name = "tsmiNodeNew"
         '
         'SdsdToolStripMenuItem
         '
@@ -419,7 +440,6 @@ Partial Class frmConstructor_Main
         Me.GridControlMain.AllowDrop = True
         Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
         resources.ApplyResources(Me.GridControlMain, "GridControlMain")
-        Me.GridControlMain.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlMain.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
         GridLevelNode1.LevelTemplate = Me.grvwGrid
         GridLevelNode1.RelationName = "Level1"
         GridLevelNode2.LevelTemplate = Me.grvwCarousel
@@ -548,6 +568,7 @@ Partial Class frmConstructor_Main
         Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.grvwGrid.OptionsBehavior.Editable = False
         Me.grvwGrid.OptionsBehavior.ReadOnly = True
+        Me.grvwGrid.OptionsClipboard.AllowCopy = DevExpress.Utils.DefaultBoolean.[False]
         Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
@@ -674,15 +695,15 @@ Partial Class frmConstructor_Main
         Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = False
         Me.TCDetails.Name = "TCDetails"
         Me.TCDetails.SelectedTabPage = Me.TabDetails
-        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabPos, Me.TabWindream, Me.TabFollowUp, Me.TabPageVariant})
+        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabPos, Me.TabWindream, Me.TabFollowUp, Me.TabPageVariant, Me.XtraTabPage1})
         Me.TCDetails.TabStop = False
         '
         'TabDetails
         '
         Me.TabDetails.Controls.Add(Me.SplitContainerDetails)
         Me.TabDetails.Controls.Add(Me.ToolStripEdit)
-        resources.ApplyResources(Me.TabDetails, "TabDetails")
         Me.TabDetails.Name = "TabDetails"
+        resources.ApplyResources(Me.TabDetails, "TabDetails")
         '
         'SplitContainerDetails
         '
@@ -818,14 +839,13 @@ Partial Class frmConstructor_Main
         Me.TabPos.Controls.Add(Me.GridControlPos)
         Me.TabPos.Controls.Add(Me.BindingNavigatorPOS)
         Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
-        resources.ApplyResources(Me.TabPos, "TabPos")
         Me.TabPos.Name = "TabPos"
         Me.TabPos.PageVisible = False
+        resources.ApplyResources(Me.TabPos, "TabPos")
         '
         'GridControlPos
         '
         resources.ApplyResources(Me.GridControlPos, "GridControlPos")
-        Me.GridControlPos.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlPos.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
         Me.GridControlPos.MainView = Me.grvwGridPos
         Me.GridControlPos.Name = "GridControlPos"
         Me.GridControlPos.TabStop = False
@@ -938,15 +958,14 @@ Partial Class frmConstructor_Main
         Me.TabWindream.AllowDrop = True
         Me.TabWindream.Controls.Add(Me.GridControlDocSearch)
         Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
-        resources.ApplyResources(Me.TabWindream, "TabWindream")
         Me.TabWindream.Name = "TabWindream"
+        resources.ApplyResources(Me.TabWindream, "TabWindream")
         '
         'GridControlDocSearch
         '
         Me.GridControlDocSearch.AllowDrop = True
         Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFilesBasic
         resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
-        Me.GridControlDocSearch.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
         Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
         Me.GridControlDocSearch.Name = "GridControlDocSearch"
         Me.GridControlDocSearch.TabStop = False
@@ -1036,8 +1055,8 @@ Partial Class frmConstructor_Main
         Me.TabFollowUp.Controls.Add(Me.ListViewFollowUps)
         Me.TabFollowUp.Controls.Add(Me.grpbxFU_Profile)
         Me.TabFollowUp.Controls.Add(Me.Label5)
-        resources.ApplyResources(Me.TabFollowUp, "TabFollowUp")
         Me.TabFollowUp.Name = "TabFollowUp"
+        resources.ApplyResources(Me.TabFollowUp, "TabFollowUp")
         '
         'ListViewFollowUps
         '
@@ -1152,15 +1171,14 @@ Partial Class frmConstructor_Main
         Me.TabPageVariant.Appearance.Header.Options.UseForeColor = True
         Me.TabPageVariant.Controls.Add(Me.GridControl1)
         Me.TabPageVariant.Controls.Add(Me.tsVariants)
-        resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
         Me.TabPageVariant.Name = "TabPageVariant"
         Me.TabPageVariant.PageVisible = False
+        resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
         '
         'GridControl1
         '
         Me.GridControl1.DataSource = Me.TBPMO_RECORD_VARIANTBindingSource
         resources.ApplyResources(Me.GridControl1, "GridControl1")
-        Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
         Me.GridControl1.MainView = Me.GridViewVariants
         Me.GridControl1.Name = "GridControl1"
         Me.GridControl1.ShowOnlyPredefinedDetails = True
@@ -1259,6 +1277,36 @@ Partial Class frmConstructor_Main
         resources.ApplyResources(Me.tsbtnVariantDetailView, "tsbtnVariantDetailView")
         Me.tsbtnVariantDetailView.Name = "tsbtnVariantDetailView"
         '
+        'XtraTabPage1
+        '
+        Me.XtraTabPage1.Controls.Add(Me.TreeList1)
+        Me.XtraTabPage1.Name = "XtraTabPage1"
+        resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1")
+        '
+        'TreeList1
+        '
+        Me.TreeList1.AllowDrop = True
+        Me.TreeList1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("TreeList1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
+        Me.TreeList1.Appearance.FocusedRow.Options.UseBackColor = True
+        resources.ApplyResources(Me.TreeList1, "TreeList1")
+        Me.TreeList1.Name = "TreeList1"
+        Me.TreeList1.OptionsBehavior.EnableFiltering = True
+        Me.TreeList1.OptionsBehavior.ExpandNodesOnFiltering = True
+        Me.TreeList1.OptionsFilter.FilterMode = DevExpress.XtraTreeList.FilterMode.Extended
+        Me.TreeList1.OptionsFind.AllowFindPanel = True
+        Me.TreeList1.OptionsFind.AlwaysVisible = True
+        Me.TreeList1.OptionsFind.FindDelay = 300
+        Me.TreeList1.OptionsFind.FindMode = DevExpress.XtraTreeList.FindMode.Always
+        Me.TreeList1.OptionsFind.ShowCloseButton = False
+        Me.TreeList1.OptionsFind.ShowFindButton = False
+        Me.TreeList1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.TreeList1.OptionsView.ShowColumns = False
+        Me.TreeList1.StateImageList = Me.ImageCollection1
+        '
+        'ImageCollection1
+        '
+        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
+        '
         'SplitContainerFORM
         '
         Me.SplitContainerFORM.Collapsed = True
@@ -1347,10 +1395,21 @@ Partial Class frmConstructor_Main
         '
         'docCM_linkRecord
         '
+        Me.docCM_linkRecord.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusDieserEntitätToolStripMenuItem, Me.AusAndererEntitätToolStripMenuItem})
         Me.docCM_linkRecord.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link
         Me.docCM_linkRecord.Name = "docCM_linkRecord"
         resources.ApplyResources(Me.docCM_linkRecord, "docCM_linkRecord")
         '
+        'AusDieserEntitätToolStripMenuItem
+        '
+        Me.AusDieserEntitätToolStripMenuItem.Name = "AusDieserEntitätToolStripMenuItem"
+        resources.ApplyResources(Me.AusDieserEntitätToolStripMenuItem, "AusDieserEntitätToolStripMenuItem")
+        '
+        'AusAndererEntitätToolStripMenuItem
+        '
+        Me.AusAndererEntitätToolStripMenuItem.Name = "AusAndererEntitätToolStripMenuItem"
+        resources.ApplyResources(Me.AusAndererEntitätToolStripMenuItem, "AusAndererEntitätToolStripMenuItem")
+        '
         'WindreamToolStripMenuItem
         '
         Me.WindreamToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiVersionierenToolStripMenuItem, Me.DokumentartÄndernToolStripMenuItem})
@@ -1487,10 +1546,6 @@ Partial Class frmConstructor_Main
         Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
         Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
-        'ImageCollection1
-        '
-        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
-        '
         'ContextMenuDetails
         '
         Me.ContextMenuDetails.ImageScalingSize = New System.Drawing.Size(20, 20)
@@ -1623,13 +1678,15 @@ Partial Class frmConstructor_Main
         CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).EndInit()
         Me.tsVariants.ResumeLayout(False)
         Me.tsVariants.PerformLayout()
+        Me.XtraTabPage1.ResumeLayout(False)
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerFORM.ResumeLayout(False)
         Me.ContextMenuStripResultFiles.ResumeLayout(False)
         Me.StatusStrip_Main.ResumeLayout(False)
         Me.StatusStrip_Main.PerformLayout()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.cmsrpContainer.ResumeLayout(False)
         CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -1803,7 +1860,7 @@ Partial Class frmConstructor_Main
     Friend WithEvents CMDoc_TextBoxRenameFile As System.Windows.Forms.ToolStripTextBox
     Friend WithEvents DisplaynameUmbenennenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents CMDoc_TextBoxRenameDisplay As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents tsmi_NewNode As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents tsmiNodeNew As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents OberhalbToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents UnterhalbToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents SdsdToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -1831,4 +1888,10 @@ Partial Class frmConstructor_Main
     Friend WithEvents ContextMenuStripClipboard As ContextMenuStrip
     Friend WithEvents tslblDocIDMain As ToolStripStatusLabel
     Friend WithEvents BW_LoadTreeView As System.ComponentModel.BackgroundWorker
+    Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents AusDieserEntitätToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AusAndererEntitätToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tsmiNodeRename As ToolStripMenuItem
+    Friend WithEvents tstxtRenameNode As ToolStripTextBox
 End Class

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -15,6 +15,11 @@ Imports DD_Rights
 Imports DD_LIB_Standards
 Imports DevExpress.LookAndFeel
 Imports System.ComponentModel
+Imports System.Threading
+Imports DevExpress.XtraTreeList
+Imports DevExpress.XtraTreeList.Columns
+Imports DevExpress.XtraTreeList.Nodes.Operations
+Imports DevExpress.XtraTreeList.Nodes
 
 Public Class frmConstructor_Main
     <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
@@ -54,7 +59,9 @@ Public Class frmConstructor_Main
     Private DT_CONSTRUCT_VIEW As DataTable
     Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
     Private DT_ENTITY_DATA As DataTable
-    Private DT_TREEVIEW_NODES As DataTable
+    Private DT_TREEVIEW_NODES_ALL As DataTable
+    Private DT_TREEVIEW_NODES_FIRST As DataTable
+    Private DT_TREEVIEW_NODES_DEVEXPRESS As DataTable
 
     Private DT_TREEVIEW_CONFIGURATION As DataTable
     Private DT_CONTROLS_ENTITY As DataTable
@@ -286,9 +293,6 @@ Public Class frmConstructor_Main
                 FormDesignerToolStripMenuItem.Visible = False
             End If
 
-            'Try
-
-
             If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
                 SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
                 DT_PROXY_ENTITY = ClassDatabase.Return_Datatable(SQL, True)
@@ -349,7 +353,37 @@ Public Class frmConstructor_Main
             Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
             If DT.Rows.Count > 1 Then
                 TreeView_perControl = True
-                DT_TREEVIEW_NODES = DT
+                DT_TREEVIEW_NODES_ALL = DT
+                DT_TREEVIEW_NODES_DEVEXPRESS = DT_TREEVIEW_NODES_ALL.Copy()
+                Try
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("ID1")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("ID2")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("ID3")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("BOOL1")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("BOOL2")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("ADDED_WHO")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("ADDED_WHEN")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("CHANGED_WHO")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("CHANGED_WHEN")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("CONTROL_ID")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("CREATE_RECORD")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("ENTITY_ID")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("SEQUENCE")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("EXPAND_NODE")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("NAME")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("TYPE_NODE")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("FONT_FAMILY")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("FONT_COLOR")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("FONT_SIZE")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.Columns.Remove("FONT_STYLE")
+                    DT_TREEVIEW_NODES_DEVEXPRESS.AcceptChanges()
+                Catch ex As Exception
+
+                End Try
+
+
+
+                DT_TREEVIEW_NODES_FIRST = ClassHelper.FILTER_DATATABLE(DT, "EXPAND_NODE = 1", "")
                 SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
                 DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
 
@@ -382,9 +416,12 @@ Public Class frmConstructor_Main
                 SplitContainerMain.Collapsed = True
                 NODE_NAVIGATION = True
                 tsmiNodedownSearch.Visible = True
-                tsmi_NewNode.Visible = True
+                tsmiNodeNew.Visible = True
+                tsmiNodeRename.Visible = True
             Else
-                tsmi_NewNode.Visible = False
+                tsmiNodeNew.Visible = False
+                tsmiNodeRename.Visible = False
+
                 If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 1 Then
                     SplitContainerTop.PanelVisibility = SplitPanelVisibility.Both
                     SplitContainerTop.CollapsePanel = SplitCollapsePanel.Panel1
@@ -1061,6 +1098,8 @@ Public Class frmConstructor_Main
                 If RIGHT_RECORD_AND_FILE_READ_ONLY = False And CtrlCommandUI.IsInsert = False Then
                     If DT_CONTROLS_ENTITY.Rows.Count = COUNT_RO_CONTROLS Then
                         tsButtonEdit.Enabled = False
+                        tsButtonSave.Enabled = False
+                        tsButtonDelete.Enabled = False
                     Else
                         ' tsButtonEdit.Enabled = True
                     End If
@@ -1110,9 +1149,10 @@ Public Class frmConstructor_Main
 
         If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then
             If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
+
+                tsButtonEdit.Enabled = False
                 tsButtonSave.Enabled = False
                 tsButtonDelete.Enabled = False
-                tsButtonEdit.Enabled = False
                 tslblLocked.Visible = True
                 TabFollowUp.PageEnabled = False
                 tsmiMassChanges.Enabled = False
@@ -1134,6 +1174,8 @@ Public Class frmConstructor_Main
                 If RIGHT_EDIT_R = False Then
                     tslblLocked.Visible = True
                     tsButtonEdit.Enabled = False
+                    tsButtonSave.Enabled = False
+                    tsButtonDelete.Enabled = False
                     tsmiMassChanges.Enabled = False
                     If RIGHT_ADD_R = False Then
                         tsButtonSave.Enabled = False
@@ -1215,6 +1257,7 @@ Public Class frmConstructor_Main
             If Not IsNothing(TreeViewMain.SelectedNode) Then
                 TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
             End If
+
         End If
     End Sub
     Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
@@ -1310,40 +1353,102 @@ Public Class frmConstructor_Main
     End Sub
 
     Sub Load_TreeView_Node_Navigation()
-        MyTreeview = Nothing
+        Try
-        Dim newTreeview As TreeView
+            MyTreeview = Nothing
-        'If DT_TREEVIEW_NODES.Rows.Count > 500 Then
+
-        '    newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST)
+            'If DT_TREEVIEW_NODES.Rows.Count > 500 Then
-        'Else
+            '    newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST)
-        newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST)
+            'Else
-        'End If
+            Try
+                Dim async As New ClassAsyncNodeBuild(DT_TREEVIEW_NODES_ALL, TREEVIEW_IMAGELIST)
+                async.bw.RunWorkerAsync()
+                While async.bw.IsBusy
+                    Application.DoEvents()
+                    progressLoadEntity.Visible = True
+                    labelLoadEntity.Visible = True
+                    labelLoadEntity.Text = "Loading TreeView..."
+                End While
+                progressLoadEntity.Visible = False
+                labelLoadEntity.Visible = False
+                MyTreeview = async.newTreeview
+            Catch ex As Exception
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Async NodeBuild", ex.Message & vbNewLine & "ADDI will try an alternative method!", ex.StackTrace)
+                MyTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES_ALL, TREEVIEW_IMAGELIST)
+            End Try
+
+
+            'End If
+            Dim sw As New SW("ADD TV to Form")
+            If Not IsNothing(MyTreeview) Then
+                MyTreeview.BeginUpdate()
+
+                For Each node As TreeNode In MyTreeview.Nodes
+                    TreeViewMain.Nodes.Add(node.Clone)
+                Next
+                MyTreeview.EndUpdate()
+            End If
+
+            ' Start the asynchronous operation.
+            'backgroundWorkerTreeView.RunWorkerAsync()
+
+
+            sw.Done()
+        Catch ex As Exception
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_TreeView_Node_Navigation", ex.Message, ex.StackTrace)
+        End Try
 
-        If Not IsNothing(newTreeview) Then
-            For Each node As TreeNode In newTreeview.Nodes
-                TreeViewMain.Nodes.Add(node.Clone)
-            Next
-        End If
         'If CONSTRUCT_EXPAND = True Then
         '    TreeViewMain.ExpandAll()
         'End If
     End Sub
-    Sub START_BW_LoadTreeView()
+
-        If BW_LoadTreeView.IsBusy <> True Then
-            TreeViewMain.Nodes.Clear()
-            BW_LoadTreeView.RunWorkerAsync()
-        End If
-    End Sub
     Sub Load_Tree_View()
         Try
             TreeViewMain.Nodes.Clear()
-            Dim sw As New SW("Load_Tree_View")
+
             If NODE_NAVIGATION = True Then
+                Load_TreeView_Node_Navigation()
                 Try
-                    Load_TreeView_Node_Navigation()
+                    For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
+                        Try
+                            Dim bimage = row.Item("NODE_IMAGE")
+                            If Not IsDBNull(bimage) Then
+                                Dim Node_image = ByteArrayToBitmap(bimage)
+                                ImageCollection1.AddImage(Node_image, row.Item("GUID")) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
+                            End If
+                        Catch ex As Exception
+
+                        End Try
+
+                    Next
+                    Dim sw As New SW("Devexpress TreeView")
+
+                    TreeList1.DataSource = DT_TREEVIEW_NODES_DEVEXPRESS
+                    TreeList1.KeyFieldName = "GUID"
+                    TreeList1.ParentFieldName = "PARENT_GUID"
+                    Try
+                        TreeList1.Columns.ColumnByName("colRECORD_ID").Visible = False
+                    Catch ex As Exception
+
+                    End Try
+                    Try
+                        TreeList1.Columns.ColumnByName("colNODE_CONFIG_ID").Visible = False
+                    Catch ex As Exception
+
+                    End Try
+                    Try
+                        TreeList1.Columns.ColumnByName("colBACK_COLOR").Visible = False
+                    Catch ex As Exception
+
+                    End Try
+
+
+                    sw.Done()
                 Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_TreeView_Node_Navigation", ex.Message, ex.StackTrace)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Devexpress TreeView Load", ex.Message, ex.StackTrace)
                 End Try
             Else
+                Dim sw As New SW("Load_Tree_View")
                 ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
                 Dim query1 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                              Select form
@@ -1410,10 +1515,11 @@ Public Class frmConstructor_Main
                         Next
                     Next
                 Next
+                sw.Done()
             End If
 
 
-            sw.Done()
+
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
@@ -1427,11 +1533,9 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub BW_Load_EntityData_DoWork(sender As Object, e As DoWorkEventArgs) Handles BW_LoadTreeView.DoWork
-        Try
+
-            Load_Tree_View()
+        Load_Tree_View()
-        Catch ex As Exception
+
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in BW_Load_EntityData_DoWork", ex.Message, ex.StackTrace)
-        End Try
 
     End Sub
     Sub Create_variable_node()
@@ -1813,61 +1917,61 @@ Public Class frmConstructor_Main
             End If
         End If
         Me.Cursor = Cursors.WaitCursor
-        ' Try
+        Try
-        If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
+            If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
-            SELECTED_RECORD_ID = 0
+                SELECTED_RECORD_ID = 0
-            ' Lock_RecordControls(False)
+                ' Lock_RecordControls(False)
 
-            CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
+                CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
-            ' Den Record anlegen, damit wir eine RECORD_ID bekommen
+                ' Den Record anlegen, damit wir eine RECORD_ID bekommen
 
-            Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
+                Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
 
-            If recordId > 0 Then
+                If recordId > 0 Then
-                Lock_RecordControls(False)
+                    Lock_RecordControls(False)
-                tsButtonCancel.Visible = True
+                    tsButtonCancel.Visible = True
-                ' Die RECORD_ID auslesen und setzen
+                    ' Die RECORD_ID auslesen und setzen
-                NEW_RECORD_ID = recordId
+                    NEW_RECORD_ID = recordId
-                CURRENT_RECORD_ID = NEW_RECORD_ID
+                    CURRENT_RECORD_ID = NEW_RECORD_ID
-                RECORD_ID = NEW_RECORD_ID
+                    RECORD_ID = NEW_RECORD_ID
-                SELECTED_RECORD_ID = NEW_RECORD_ID
+                    SELECTED_RECORD_ID = NEW_RECORD_ID
-                ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
+                    ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
-                If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
+                    If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
-                    If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
+                        If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
-                        ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
+                            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
-                    Else
+                        Else
-                        ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
+                            ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
+                        End If
                     End If
-                End If
 
-                ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID)
+                    ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID)
-                ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
+                    ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
-                ' Das StatusLabel aktualisieren
+                    ' Das StatusLabel aktualisieren
-                Update_Record_Label(NEW_RECORD_ID)
+                    Update_Record_Label(NEW_RECORD_ID)
-                Doc_ReadOnlyHandler(True)
+                    Doc_ReadOnlyHandler(True)
-                RUN_WDSEARCH_GRID()
+                    RUN_WDSEARCH_GRID()
-                ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
+                    ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
-                tsButtonSave.Enabled = True
+                    tsButtonSave.Enabled = True
-                ' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
+                    ' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
-                CURRENT_RECORD_ENABLED = True
+                    CURRENT_RECORD_ENABLED = True
-                ' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
+                    ' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
-                EDIT_STATE = EditState.Update
+                    EDIT_STATE = EditState.Update
-                RECORD_CHANGED = True
+                    RECORD_CHANGED = True
-                'tsslblRecord.Text = "Adding record ......"
+                    'tsslblRecord.Text = "Adding record ......"
-                RIGHT_RECORD_AND_FILE_READ_ONLY = False
+                    RIGHT_RECORD_AND_FILE_READ_ONLY = False
-                tslblLocked.Visible = False
+                    tslblLocked.Visible = False
-                tslblFileslocked.Visible = False
+                    tslblFileslocked.Visible = False
-                tsButtonAdd.Enabled = False
+                    tsButtonAdd.Enabled = False
-            Else
+                Else
-                Me.Cursor = Cursors.Default
+                    Me.Cursor = Cursors.Default
-                MsgBox("Could not create a new record. Please check the log for further informations!", MsgBoxStyle.Critical)
+                    MsgBox("Could not create a new record. Please check the log for further informations!", MsgBoxStyle.Critical)
+                End If
             End If
-        End If
+        Catch ex As Exception
-        ' Catch ex As Exception
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
-        'ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
+        Finally
-        ' Finally
+            Me.Cursor = Cursors.Default
-        'Me.Cursor = Cursors.Default
+        End Try
-        ' End Try
     End Sub
 
     Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
@@ -2322,8 +2426,12 @@ Public Class frmConstructor_Main
             Next
             If DT_CONTROLS_ENTITY.Rows.Count = COUNT_RO_CONTROLS Then
                 tsButtonEdit.Enabled = False
+                tsButtonSave.Enabled = False
+                tsButtonDelete.Enabled = False
             Else
                 tsButtonEdit.Enabled = True
+                tsButtonSave.Enabled = True
+                tsButtonDelete.Enabled = True
             End If
 
             Dim resultDT_VWPMO_CONSTRUCTOR_FORMS = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
@@ -2370,7 +2478,7 @@ Public Class frmConstructor_Main
 
             'sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
 
-            expression = String.Format("VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
+            expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
             DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")  'ClassDatabase.Return_Datatable(sql, True)
             expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
             'sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}')  ORDER BY T.SEQUENCE ", ENTITY_ID, USER_LANGUAGE)
@@ -2379,7 +2487,7 @@ Public Class frmConstructor_Main
             'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 
             DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
             ' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
-            expression = String.Format("VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
+            expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
             DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")  'ClassDatabase.Return_Datatable(sql, True)
             Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                               Select form
@@ -2610,7 +2718,7 @@ Public Class frmConstructor_Main
 
                 progressLoadEntity.Visible = True
                 labelLoadEntity.Visible = True
-
+                labelLoadEntity.Text = "Loading record-data..."
                 If LOCK_CONTROLS_BG_LOAD = True Then
                     SplitContainerMain.Panel2.Enabled = False
                 End If
@@ -2639,7 +2747,7 @@ Public Class frmConstructor_Main
                     CURRENT_DT_ENTITY_RECORDS.TableName = "VWPMO_ENTITY_TABLE" & ENTITY_ID
                     ' Dim SQL_AutoValues = "SELECT GUID AS CONTROL_ID, CONNECTION_ID_1 AS CONNECTION_ID, SQL_COMMAND_1 AS SQL_COMMAND FROM TBPMO_CONTROL WHERE CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID
 
-                    Dim DT_AUTOVALUES = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID, "")
+                    Dim DT_AUTOVALUES = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONNECTION_ID_1 > 0 AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID, "")
 
                     'Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, True)
                     CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
@@ -4184,7 +4292,7 @@ Public Class frmConstructor_Main
                 End If
                 Load_DocGrid_Layout()
             Case "TabFollowUp"
-                'tsButtonEdit.Enabled = False
+
                 Refresh_FollowUps()
                 dtpFollowUp.Enabled = False
                 lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
@@ -4192,7 +4300,7 @@ Public Class frmConstructor_Main
                 Load_Variants()
             Case "TabPos"
                 Dim stg As String
-                'tsButtonEdit.Enabled = False
+
                 If POS_ENABLED = True Then
                     tslblPoslocked.Visible = False
                     BindingNavigatorAddNewItem.Enabled = True
@@ -4372,6 +4480,14 @@ Public Class frmConstructor_Main
                         If DropType.ToString.Contains("SCAN") = False Then
                             ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
                             Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
+                            If CURRENT_WORKFILE.ToString.Contains("@") Then
+                                MsgBox("File contains invalid operator @!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
+                                Continue For
+                            End If
+                            If CURRENT_WORKFILE.ToString.Contains("'") Then
+                                MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
+                                Continue For
+                            End If
                             ClassFolderWatcher.Insert_USER_File(CURRENT_WORKFILE, DropType)
                         End If
                     End If
@@ -4895,7 +5011,7 @@ Public Class frmConstructor_Main
     End Sub
 
 
-    Private Sub grvwGridPos_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
+    Private Sub grvwGridPos_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
         Try
             Dim column = e.Column.FieldName
             Dim sql = String.Format("select guid from TBPMO_CONTROL where COL_NAME = '{0}' and FORM_ID = {1}", column, POS_ENTITY)
@@ -5194,7 +5310,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
 
-    Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
+    Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
         GridViewDoc_Search.EndSelection()
         ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
         Refresh_DocID()
@@ -5512,11 +5628,6 @@ Public Class frmConstructor_Main
     End Function
 #End Region
 
-
-    Private Sub grvwGrid_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGrid.CellValueChanged
-
-    End Sub
-
     Private Sub SucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem.Click
         grvwGrid.ShowFindPanel()
         grvwGrid.FindFilterText = ""
@@ -5591,18 +5702,7 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click
-        Try
+
-            ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-            If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
-                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
-                Exit Sub
-            End If
-            Refresh_Selected_Table()
-            Dim frm As New frmDocRecordLink ' frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
-            frm.Show()
-        Catch ex As Exception
-            MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
     End Sub
 
     Private Sub DetailAnsichtDatensatzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailAnsichtDatensatzToolStripMenuItem.Click
@@ -6111,7 +6211,7 @@ Public Class frmConstructor_Main
                         If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
                             msg = "Sie benutzen einen Proxyserver. Die Daten des neu verlinkten Datensatzes werden Sie evtl. erst nach vollständiger Proxysynchronisation einsehen können!"
                             If USER_LANGUAGE <> "de-DE" Then
-                                msg = String.Format("You are using a proxy-Server. The new linked record in entity '{0}' will only be displayed after a full synchronisation!", ENTITY_STRING)
+                                msg = String.Format("You are using a proxy-Server. The new linked record in entity '{0}' might only be displayed after a full synchronisation!", ENTITY_STRING)
                             End If
                             MsgBox(msg, MessageBoxIcon.Information)
                         End If
@@ -6398,14 +6498,32 @@ Public Class frmConstructor_Main
                 e.Cancel = True
             End If
             If CURRENT_NODE_CONFIGURABLE_ID <> 0 Then
-                tsmi_NewNode.Visible = True
+                tsmiNodeNew.Visible = True
             Else
-                tsmi_NewNode.Visible = False
+                tsmiNodeNew.Visible = False
             End If
             If Not IsNothing(TreeViewMain.SelectedNode) Then
-                Dim nodetag = TreeViewMain.SelectedNode.Tag.ToString
+                Dim oNODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(TreeViewMain.SelectedNode.Tag.ToString)
-                Console.WriteLine(nodetag)
+
-                If nodetag.StartsWith("CONFIG_NODE") Then
+                Try
+                    Dim oExpression As String
+                    oExpression = "GUID = " & oNODE_GUID
+                    Dim oRowNode() As DataRow = DT_TREEVIEW_NODES_ALL.Select(oExpression)
+                    If oRowNode.Length = 1 Then
+                        Dim oAllowRenameNode = oRowNode(0)("BOOL1")
+                        If oAllowRenameNode = True Then
+                            Me.tsmiNodeRename.Visible = True
+                        Else
+                            Me.tsmiNodeRename.Visible = False
+                        End If
+                    End If
+
+                Catch ex As Exception
+
+                End Try
+
+
+                If TreeViewMain.SelectedNode.Tag.ToString.StartsWith("CONFIG_NODE") Then
                     tsmiNodeDelete.Visible = True
                 End If
             End If
@@ -6567,12 +6685,9 @@ Public Class frmConstructor_Main
             ElseIf where = "BELOW" Then
                 PARENT_ID = ClassNodeNavigation.Return_NODEID_forTag(TreeViewMain.SelectedNode.Tag)
             End If
-
-
             Dim NEWRECORD As Integer
             If RECORD_CREATE = True Then
                 Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
-
                 If recordId = 0 Then
                     ClassLogger.Add("Error in ADD_NODE: Could not create Record", True)
                     ClassHelper.MSGBOX_Handler("ERROR", "Error in ADD_NODE", "Could not create Record")
@@ -6581,7 +6696,6 @@ Public Class frmConstructor_Main
                     NEWRECORD = recordId
                 End If
             End If
-
             'Dim NEWRECORD As Integer = ClassControlCommandsUI.GetLastRecord(ENTITY_ID)
             Dim NEWNODE = New TreeNode(tsmINewText.Text)
             If Not IsNothing(NEWRECORD) Then
@@ -6598,18 +6712,20 @@ Public Class frmConstructor_Main
                     NEWNODE.ImageIndex = index
                     NEWNODE.SelectedImageIndex = index
                 End If
-                Dim ins
+                'Dim ins
-                If RECORD_CREATE Then
+                'If RECORD_CREATE Then
-                    ins = String.Format("INSERT INTO TBPMO_STRUCTURE_NODES (RECORD_ID,NODE_CONFIG_ID, NODE_CAPTION, ID1, PARENT_GUID, ADDED_WHO) VALUES (" &
-                                    "{0},{1},'{2}','{3}','{4}','{5}')", NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
-                Else
-                    ins = String.Format("INSERT INTO TBPMO_STRUCTURE_NODES (NODE_CONFIG_ID, NODE_CAPTION, ID1, PARENT_GUID, ADDED_WHO) VALUES (" &
-                                        "{1},'{2}','{3}','{4}','{5}')", NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
-                End If
-                If ClassDatabase.Execute_non_Query(ins) Then
-                    Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_STRUCTURE_NODES WHERE NODE_CONFIG_ID = {0} AND NODE_CAPTION = '{1}'", CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text)
 
-                    Dim NEW_GUID = ClassDatabase.Execute_Scalar(sel)
+                '    sdd
+                '    ins = String.Format("INSERT INTO TBPMO_STRUCTURE_NODES (RECORD_ID,NODE_CONFIG_ID, NODE_CAPTION, ID1, PARENT_GUID, ADDED_WHO) VALUES (" &
+                '                    "{0},{1},'{2}','{3}','{4}','{5}')", NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
+                'Else
+                '    ins = String.Format("INSERT INTO TBPMO_STRUCTURE_NODES (NODE_CONFIG_ID, NODE_CAPTION, ID1, PARENT_GUID, ADDED_WHO) VALUES (" &
+                '                        "{0},'{1}','{2}','{3}','{4}')", CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
+                'End If
+                'If ClassDatabase.Execute_non_Query(ins) Then
+
+                Dim NEW_GUID = ClassNodeNavigation.CreateNodeProcedure(NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
+                If NEW_GUID > 0 Then
                     ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID, Nothing)
                     NEWNODE.Tag = ClassNodeNavigation.CreateNODE_TAG(ENTITY_ID, NEW_GUID, NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID)
 
@@ -6620,7 +6736,9 @@ Public Class frmConstructor_Main
                         TreeViewMain.SelectedNode.Nodes.Add(NEWNODE)
                         TreeViewMain.SelectedNode.Expand()
                     End If
+                    ' End If
                 End If
+
             End If
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in Adding ConfigNode: ", ex.Message)
@@ -6642,14 +6760,10 @@ Public Class frmConstructor_Main
                 Dim result As MsgBoxResult
                 result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                 If result = MsgBoxResult.Yes Then
-                    Dim delete = String.Format("DELETE FROM TBPMO_STRUCTURE_NODES WHERE GUID = {0}", NODE_GUID)
+                    Dim oDelete = String.Format("EXEC PRPMO_DELETE_NODE {0},'{1}'", NODE_GUID, USER_USERNAME)
-                    If ClassDatabase.Execute_non_Query(delete) Then
+                    If ClassDatabase.Execute_non_Query(oDelete) Then
-                        If REC_Exists = True Then
+                        TreeViewMain.Nodes.Remove(TreeViewMain.SelectedNode)
-                            If ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "NodeDelete-Click") = True Then
+                        Refresh_Entity_Data()
-                                ClassHelper.InsertEssential_Log(SELECTED_RECORD_ID, "RECORD-ID", "RECORD WAS DELETED MANUALLY by USER: " & USER_USERNAME)
-                                TreeViewMain.Nodes.Remove(TreeViewMain.SelectedNode)
-                            End If
-                        End If
                     End If
                 End If
             End If
@@ -6765,7 +6879,7 @@ Public Class frmConstructor_Main
 
     End Sub
 
-    Private Sub grvwGridPos_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGridPos.FocusedColumnChanged
+    Private Sub grvwGridPos_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles grvwGridPos.FocusedColumnChanged
         Pos_COLROW_Changer()
     End Sub
 
@@ -6939,5 +7053,125 @@ Public Class frmConstructor_Main
         End If
     End Sub
 
+    Private Sub TreeViewMain_BeforeExpand(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeExpand
 
+    End Sub
+
+    Private Sub TreeList1_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeList1.GetStateImage
+        Dim Column_Config_ID As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeList1.Columns("NODE_CONFIG_ID")
+        Dim configid = e.Node.GetDisplayText(Column_Config_ID)
+
+        e.Node.StateImageIndex = ImageCollection1.Images.Keys.IndexOf(configid)
+
+    End Sub
+
+    Private Sub TreeList1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles TreeList1.ColumnFilterChanged
+        Dim tree As TreeList = TryCast(sender, TreeList)
+        Dim filteredColumns As List(Of TreeListColumn) = tree.Columns.Cast(Of TreeListColumn)().Where(Function(c) c.FilterInfo.AutoFilterRowValue IsNot Nothing).ToList()
+        If filteredColumns.Count = 0 Then
+            tree.CollapseAll()
+            Return
+        End If
+
+        tree.BeginUpdate()
+        For Each col As TreeListColumn In filteredColumns
+            Dim op As New CollapseChildrenOperation(col.FilterInfo.AutoFilterRowValue.ToString(), col)
+            tree.NodesIterator.DoOperation(op)
+        Next col
+        tree.EndUpdate()
+    End Sub
+    Public Class CollapseChildrenOperation
+        Inherits TreeListOperation
+
+        Private filterValue As String
+        Private column As TreeListColumn
+
+        Public Sub New(ByVal filter As String, ByVal col As TreeListColumn)
+            filterValue = filter
+            column = col
+        End Sub
+
+        Private Function IsNodeMatchFilter(ByVal node As TreeListNode, ByVal column As TreeListColumn) As Boolean
+            Return node.GetDisplayText(column).Contains(filterValue)
+        End Function
+        Public Overrides Sub Execute(ByVal node As TreeListNode)
+            If IsNodeMatchFilter(node, column) Then
+                node.TreeList.MakeNodeVisible(node)
+                CollapseChildren(node)
+            End If
+        End Sub
+
+        Public Sub CollapseChildren(ByVal node As TreeListNode)
+            'node.Visible = true;
+            For Each childNode As TreeListNode In node.Nodes
+                CollapseChildren(childNode)
+            Next childNode
+            node.Expanded = False
+        End Sub
+    End Class
+
+    Private Sub AusDieserEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusDieserEntitätToolStripMenuItem.Click
+        Try
+            ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
+            If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
+                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
+            Refresh_Selected_Table()
+            Dim frm As New frmDocRecordLink ' frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
+            frm.Show()
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub AusAndererEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusAndererEntitätToolStripMenuItem.Click
+        Try
+            ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
+            If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
+                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
+            Refresh_Selected_Table()
+            Dim frm As New frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
+            frm.Show()
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub tstxtRenameNode_KeyUp(sender As Object, e As KeyEventArgs) Handles tstxtRenameNode.KeyUp
+        If e.KeyCode = Keys.Return Then
+            Try
+                Dim oTag = TreeViewMain.SelectedNode.Tag
+                Dim oRecExists As Boolean = False
+                If oTag.ToString.ToString.Contains("RECORD-ID") Then
+                    oRecExists = True
+                End If
+                Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(oTag)
+                If IsNumeric(NODE_GUID) Then
+                    Dim OMsg = "Sind Sie sicher, dass Sie den Knoten '" & TreeViewMain.SelectedNode.Text & "' umbenennen wollen?"
+                    If USER_LANGUAGE <> "de-DE" Then
+                        OMsg = "Are You sure You want to rename the node'" & TreeViewMain.SelectedNode.Text & "'?"
+                    End If
+                    Dim oResult As MsgBoxResult
+                    oResult = MessageBox.Show(OMsg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    If oResult = MsgBoxResult.Yes Then
+                        Dim oUpdate = String.Format("UPDATE TBPMO_STRUCTURE_NODES SET NODE_CAPTION = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", Me.tstxtRenameNode.Text, USER_USERNAME, NODE_GUID)
+                        If ClassDatabase.Execute_non_Query(oUpdate) Then
+                            TreeViewMain.SelectedNode.Text = Me.tstxtRenameNode.Text
+                        End If
+                    End If
+                End If
+            Catch ex As Exception
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in Renaming ConfigNode: ", ex.Message)
+            End Try
+        End If
+    End Sub
+
+    Private Sub tsmiNodeRename_MouseHover(sender As Object, e As EventArgs) Handles tsmiNodeRename.MouseHover
+        If Not IsNothing(TreeViewMain.SelectedNode) Then
+            Me.tstxtRenameNode.Text = TreeViewMain.SelectedNode.Text
+        End If
+    End Sub
 End Class

app/DD-Record-Organizer/frmDocLink_Record_Entities.vb

@@ -13,8 +13,9 @@ Public Class frmDocLink_Record_Entities
     Private ENTITY_LOADED As Boolean = False
     Private ENTITY_ID As Integer
     Private RECORD_ID As Integer
+    Private _FORM_ID As Integer
     ' Private _objecttype As String
-    Private Class ClassConstructor
+    Private Class ClassEntity
         Public title As String
         Public id As Integer
 
@@ -23,8 +24,6 @@ Public Class frmDocLink_Record_Entities
         End Function
     End Class
 
-    Private CONSTRUCTOR_DETAIL_ID, CONSTRUCTOR_ID, FORM_ID As Integer
-
     Public Sub New() 'fileName As String, Objecttype As String)
         InitializeComponent()
         If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
@@ -36,15 +35,14 @@ Public Class frmDocLink_Record_Entities
         '_objecttype = Objecttype
     End Sub
 
-    Private Function GetConstructorForms() As DataTable
+    Private Function GetENTITIES() As DataTable
         Try
-            Dim SQL As String = String.Format("SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID), {1}) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," &
+            Dim SQL As String = String.Format("SELECT DISTINCT FORM_ID,FORM_TITLE,SEQUENCE FROM VWPMO_CONSTRUCTOR_FORMS where CONSTRUCT_ID in " &
-           "CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, " &
+"(SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {0}) ORDER BY SEQUENCE", USER_GUID)
-           "'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 1 AND USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
             Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
             Return dt
         Catch ex As Exception
-            MsgBox("Constructor Forms could not be loaded in LinkToRecord: " & vbNewLine & ex.Message)
+            MsgBox("Entities could not be loaded in LinkToRecord: " & vbNewLine & ex.Message)
             Return Nothing
         End Try
     End Function
@@ -54,23 +52,19 @@ Public Class frmDocLink_Record_Entities
     End Sub
 
     Private Sub frmWD_Link_to_Record_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Dim constructorForms As DataTable = GetConstructorForms()
+        Dim DT_ENTITIES As DataTable = GetENTITIES()
         Dim selected As Integer = 0
 
-        If constructorForms.Rows.Count = 0 Then
+        If DT_ENTITIES.Rows.Count = 0 Then
             Exit Sub
         End If
 
-        For Each row As DataRow In constructorForms.Rows
+        For Each row As DataRow In DT_ENTITIES.Rows
-            Dim constructor As New ClassConstructor
+            Dim entity As New ClassEntity
-            constructor.title = row.Item("FORM_TITLE")
+            entity.title = row.Item("FORM_TITLE")
-            constructor.id = row.Item("GUID")
+            entity.id = row.Item("FORM_ID")
-            cmbConstructorForms.Items.Add(constructor)
+            cmbConstructorForms.Items.Add(entity)
 
-            ' Von der aktuell geöffneten ConstructorForm den Index in Combobox speichern
-            If constructor.id = CURRENT_CONSTRUCTOR_ID Then
-                selected = cmbConstructorForms.Items.Count - 1
-            End If
         Next
         If USER_LANGUAGE = "de-DE" Then
             Me.Text = CURRENT_DT_SELECTED_FILES.Rows.Count.ToString & " Datei(en) mit Datensatz verknüpfen:"
@@ -181,21 +175,21 @@ Public Class frmDocLink_Record_Entities
 
     Public foundNode As TreeNode = Nothing
     Private Sub cmbConstructorForms_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbConstructorForms.SelectedIndexChanged
-        Dim constructor As ClassConstructor = DirectCast(cmbConstructorForms.SelectedItem, ClassConstructor)
+        Dim entity As ClassEntity = DirectCast(cmbConstructorForms.SelectedItem, ClassEntity)
 
         If cmbConstructorForms.SelectedIndex <> -1 Then
-            CONSTRUCTOR_ID = constructor.id
+            CURRENT_CONSTRUCTOR_ID = entity.id
             Dim SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
-                       "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {1} AND  CONSTRUCT_ID = {2} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTRUCTOR_ID)
+                       "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {1} AND  CONSTRUCT_ID = {2} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_CONSTRUCTOR_ID)
 
             DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL, True)
 
-            SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_ID)
+            SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CURRENT_CONSTRUCTOR_ID)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
             If DT.Rows.Count > 1 Then
                 TreeView_perControl = True
                 DT_TREEVIEW_PER_CONTROLS = DT
-                SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_ID)
+                SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CURRENT_CONSTRUCTOR_ID)
                 DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
 
                 Try
@@ -229,7 +223,7 @@ Public Class frmDocLink_Record_Entities
 
 
             ' Entitäten laden
-            Load_TreeViewEbene(constructor.id)
+            Load_TreeViewEbene(CURRENT_CONSTRUCTOR_ID)
 
             foundNode = Nothing
             SelectNodeRecursive(trvwMain, trvwMain.Nodes, CURRENT_CONSTRUCTOR_DETAIL_ID)
@@ -263,15 +257,14 @@ Public Class frmDocLink_Record_Entities
 
     Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect
         Try
-
             Dim dt As DataTable
             If NODE_NAVIGATION = False Then
                 SetSelectedNodeStyle(trvwMain.Nodes)
 
-                CONSTRUCTOR_DETAIL_ID = Integer.Parse(e.Node.Tag)
+                CURRENT_CONSTRUCTOR_DETAIL_ID = Integer.Parse(e.Node.Tag)
-                Dim SQL As String = String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = {0} AND CONSTRUCT_ID = {1}", CONSTRUCTOR_DETAIL_ID, CONSTRUCTOR_ID)
+                Dim SQL As String = String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = {0} AND CONSTRUCT_ID = {1}", CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_CONSTRUCTOR_ID)
-                FORM_ID = ClassDatabase.Execute_Scalar(SQL)
+                _FORM_ID = ClassDatabase.Execute_Scalar(SQL)
-                SQL = Get_Grid_Sql(FORM_ID, CONSTRUCTOR_DETAIL_ID)
+                SQL = Get_Grid_Sql(_FORM_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
                 dt = ClassDatabase.Return_Datatable(SQL)
                 dgEntityRecords.DataSource = dt
                 grvwGrid.PopulateColumns()
@@ -289,8 +282,8 @@ Public Class frmDocLink_Record_Entities
 
                 If NODE_NAVIGATION_LOADED = False Then
                     ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
-                    Dim SQL As String '= String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", CONSTRUCTOR_ID, ENTITY_ID)
+                    Dim SQL As String '= String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", CURRENT_CONSTRUCTOR_ID, ENTITY_ID)
-                    SQL = Get_Grid_Sql(ENTITY_ID, CONSTRUCTOR_DETAIL_ID)
+                    SQL = Get_Grid_Sql(ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
                     dt = ClassDatabase.Return_Datatable(SQL)
                     If IsNothing(dt) Then
                         Exit Sub
@@ -322,13 +315,13 @@ Public Class frmDocLink_Record_Entities
             End If
             ' Datasource neu setzen und columns laden
 
-            Dim constructor = DirectCast(cmbConstructorForms.Items.Item(cmbConstructorForms.SelectedIndex), ClassConstructor)
+            'Dim constructor = DirectCast(cmbConstructorForms.Items.Item(cmbConstructorForms.SelectedIndex), ClassConstructor)
-            Dim constructorName As String = constructor.title
+            'Dim constructorName As String = constructor.title
-            If Not IsNothing(dgEntityRecords.DataSource) Then
+            'If Not IsNothing(dgEntityRecords.DataSource) Then
-                Load_Grid_Layout(constructorName)
+            '    Load_Grid_Layout(constructorName)
-                grvwGrid.Columns.Item("Form-ID").Visible = False
+            '    grvwGrid.Columns.Item("Form-ID").Visible = False
-                grvwGrid.Columns.Item("ROW_COLOR").Visible = False
+            '    grvwGrid.Columns.Item("ROW_COLOR").Visible = False
-            End If
+            'End If
 
             If RECORD_ID > 0 Then
                 Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
@@ -336,7 +329,7 @@ Public Class frmDocLink_Record_Entities
             End If
 
         Catch ex As Exception
-            MsgBox("Entität " + CONSTRUCTOR_DETAIL_ID + " konnte nicht geladen werden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Entität " + CURRENT_CONSTRUCTOR_DETAIL_ID + " konnte nicht geladen werden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Exit Sub
         End Try
     End Sub
@@ -345,7 +338,7 @@ Public Class frmDocLink_Record_Entities
     End Function
 
     Private Function Get_Grid_Layout_Filename(EntityName As String)
-        Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTOR_ID)
+        Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CURRENT_CONSTRUCTOR_ID)
         Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
     End Function
     Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)

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

@@ -30,6 +30,7 @@ Partial Class frmDocRecordLink
         Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.tsslbl = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.Button1 = New System.Windows.Forms.Button()
         CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.StatusStrip1.SuspendLayout()
@@ -56,7 +57,6 @@ Partial Class frmDocRecordLink
         'dgEntityRecords
         '
         resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords")
-        Me.dgEntityRecords.EmbeddedNavigator.Margin = CType(resources.GetObject("dgEntityRecords.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
         Me.dgEntityRecords.MainView = Me.grvwGrid
         Me.dgEntityRecords.Name = "dgEntityRecords"
         Me.dgEntityRecords.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid})
@@ -95,10 +95,17 @@ Partial Class frmDocRecordLink
         Me.tsslbl.Name = "tsslbl"
         resources.ApplyResources(Me.tsslbl, "tsslbl")
         '
+        'Button1
+        '
+        resources.ApplyResources(Me.Button1, "Button1")
+        Me.Button1.Name = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'frmDocRecordLink
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.dgEntityRecords)
         Me.Controls.Add(Me.txtFileInfo)
@@ -120,4 +127,5 @@ Partial Class frmDocRecordLink
     Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents StatusStrip1 As StatusStrip
     Friend WithEvents tsslbl As ToolStripStatusLabel
+    Friend WithEvents Button1 As Button
 End Class

app/DD-Record-Organizer/frmDocRecordLink.resx

@@ -123,13 +123,10 @@
   </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="txtFileInfo.Location" type="System.Drawing.Point, System.Drawing">
-    <value>148, 8</value>
+    <value>125, 6</value>
-  </data>
-  <data name="txtFileInfo.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
   </data>
   <data name="txtFileInfo.Size" type="System.Drawing.Size, System.Drawing">
-    <value>713, 24</value>
+    <value>515, 21</value>
   </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="txtFileInfo.TabIndex" type="System.Int32, mscorlib">
@@ -145,7 +142,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;txtFileInfo.ZOrder" xml:space="preserve">
-    <value>2</value>
+    <value>3</value>
   </data>
   <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -157,13 +154,10 @@
     <value>NoControl</value>
   </data>
   <data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 12</value>
+    <value>9, 9</value>
-  </data>
-  <data name="Label3.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 0, 4, 0</value>
   </data>
   <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>128, 19</value>
+    <value>110, 13</value>
   </data>
   <data name="Label3.TabIndex" type="System.Int32, mscorlib">
     <value>11</value>
@@ -181,7 +175,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
-    <value>3</value>
+    <value>4</value>
   </data>
   <data name="btnLink.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Right</value>
@@ -196,13 +190,10 @@
     <value>NoControl</value>
   </data>
   <data name="btnLink.Location" type="System.Drawing.Point, System.Drawing">
-    <value>869, 4</value>
+    <value>646, 3</value>
-  </data>
-  <data name="btnLink.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
   </data>
   <data name="btnLink.Size" type="System.Drawing.Size, System.Drawing">
-    <value>183, 30</value>
+    <value>155, 23</value>
   </data>
   <data name="btnLink.TabIndex" type="System.Int32, mscorlib">
     <value>10</value>
@@ -223,16 +214,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;btnLink.ZOrder" xml:space="preserve">
-    <value>4</value>
+    <value>5</value>
   </data>
   <data name="dgEntityRecords.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Bottom, Left, Right</value>
   </data>
-  <data name="dgEntityRecords.EmbeddedNavigator.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
-  </data>
   <data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
-    <value>16, 35</value>
+    <value>12, 33</value>
   </data>
   <data name="grvwGrid.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
     <value>Aqua</value>
@@ -246,11 +234,8 @@
   <data name="grvwGrid.Appearance.SelectedRow.BackColor" type="System.Drawing.Color, System.Drawing">
     <value>Yellow</value>
   </data>
-  <data name="dgEntityRecords.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
-  </data>
   <data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1039, 482</value>
+    <value>791, 377</value>
   </data>
   <data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
     <value>15</value>
@@ -265,19 +250,22 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;dgEntityRecords.ZOrder" xml:space="preserve">
-    <value>1</value>
+    <value>2</value>
   </data>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="tsslbl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 534</value>
+    <value>171, 17</value>
   </data>
-  <data name="StatusStrip1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+  <data name="tsslbl.Text" xml:space="preserve">
-    <value>1, 0, 19, 0</value>
+    <value>Waiting for record-Selection.....</value>
+  </data>
+  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 442</value>
   </data>
   <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1071, 25</value>
+    <value>815, 22</value>
   </data>
   <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
     <value>16</value>
@@ -295,22 +283,40 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>726, 416</value>
+  </data>
+  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>75, 23</value>
+  </data>
+  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
+    <value>17</value>
+  </data>
+  <data name="Button1.Text" xml:space="preserve">
+    <value>aus anderer Entität:</value>
+  </data>
+  <data name="&gt;&gt;Button1.Name" xml:space="preserve">
+    <value>Button1</value>
+  </data>
+  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Button1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="tsslbl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>212, 20</value>
-  </data>
-  <data name="tsslbl.Text" xml:space="preserve">
-    <value>Waiting for record-Selection.....</value>
-  </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>8, 17</value>
+    <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1071, 559</value>
+    <value>815, 464</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt</value>
@@ -1549,11 +1555,8 @@
         AIPBAAD//wAA//8AAA==
 </value>
   </data>
-  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
-  </data>
   <data name="$this.Text" xml:space="preserve">
-    <value>Datei mit Datensatz verknüpfen</value>
+    <value>Datei mit Datensatz aus aktueller Entität verknüpfen</value>
   </data>
   <data name="&gt;&gt;grvwGrid.Name" xml:space="preserve">
     <value>grvwGrid</value>

app/DD-Record-Organizer/frmDocRecordLink.vb

@@ -13,10 +13,14 @@ Public Class frmDocRecordLink
             If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
                 Me.Close()
             End If
-            Dim DT_RECORDS As DataTable = CURRENT_DT_ENTITY_RECORDS
+            Dim DT_RECORDS As DataTable = CURRENT_DT_ENTITY_RECORDS.Copy
+            Try
+                DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
+                DT_RECORDS.Columns("already linked").DefaultValue = False
+            Catch ex As Exception
+
+            End Try
 
-            DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
-            DT_RECORDS.Columns("already linked").DefaultValue = False
             Try
                 For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
                     Dim DOC_ID = row.Item("DOC_ID")
@@ -25,7 +29,7 @@ Public Class frmDocRecordLink
                     For Each recrow As DataRow In DTRECS_LINKED.Rows
                         For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
                             If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
-                                rowrecsdisplay.Item("file linked") = True
+                                rowrecsdisplay.Item("already linked") = True
                             End If
                         Next
                     Next
@@ -63,6 +67,7 @@ Public Class frmDocRecordLink
             If IsNothing(SELECTED_RECORDID) Then
                 Continue For
             End If
+            If LogErrorsOnly = False Then ClassLogger.Add(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
             Try
                 For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
                     CURRENT_DOC_ID = row.Item("DOC_ID")
@@ -78,6 +83,13 @@ Public Class frmDocRecordLink
                             Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
                             ClassDatabase.Execute_non_Query(proc, True)
                         End If
+                        Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
+                        If USER_LANGUAGE <> "de-DE" Then
+                            msg = "The record was successfully linked"
+                        End If
+                        tsslbl.Text = msg
+                        tsslbl.BackColor = Color.Yellow
+                        ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & SELECTED_RECORDID.ToString)
                     End If
                     Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
                     Dim DT_OBJTYPE As DataTable = ClassDatabase.Return_Datatable(sql, True)
@@ -85,7 +97,7 @@ Public Class frmDocRecordLink
                         Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID")
                         Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
                         Dim ENT_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
-                        If ENT_ID > 1 Then
+                        If ENT_ID > 1 And Entity_Index <> String.Empty Then
                             If clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype) = False Then
                                 Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
                                 If USER_LANGUAGE <> "de-DE" Then
@@ -94,21 +106,16 @@ Public Class frmDocRecordLink
                                 MsgBox(msg, MsgBoxStyle.Exclamation)
                             End If
                         End If
-                        If clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype) = False Then
+                        If Record_Index <> String.Empty Then
-                            Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
+                            If clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype) = False Then
-                            If USER_LANGUAGE <> "de-DE" Then
+                                Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
-                                msg = "Could not index Record-ID! Please check logfile!"
+                                If USER_LANGUAGE <> "de-DE" Then
+                                    msg = "Could not index Record-ID! Please check logfile!"
+                                End If
+                                MsgBox(msg, MsgBoxStyle.Exclamation)
                             End If
-                            MsgBox(msg, MsgBoxStyle.Exclamation)
-                        Else
-                            Dim msg = String.Format("Der Datensatz wurde erfolgreich mit der Datei " & vbNewLine & "{0}" & vbNewLine & "verknüpft!", DOC_PATH)
-                            If USER_LANGUAGE <> "de-DE" Then
-                                msg = "The record was successfully linked to the file: " & vbNewLine & DOC_PATH
-                            End If
-                            tsslbl.Text = msg
-                            tsslbl.BackColor = Color.Yellow
 
-                            ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & SELECTED_RECORDID.ToString)
+
                         End If
                     End If
                 Next

app/DD-Record-Organizer/frmDoctype_NameConvention.vb

@@ -4,6 +4,7 @@
     Private FORM_VIEW_ID As Integer
     Private TBPMO_WD_FORMVIEW_DOKTYPES_GUID As Integer
     Private loaded As Boolean = False
+    Dim DTTBPMO_WD_FORMVIEW_DOKTYPES As DataTable
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
         If Not Me.cmbIndex_AUTO.Text = "" Then
@@ -90,8 +91,14 @@
         Else
             sf = 0
         End If
-        Dim sql = "UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET NAME_CONVENTION = '" & txtnamenKonv.Text & "', MANUAL_SUBFOLDER = " & sf & ",  CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID
+        Dim sql = ""
+        If DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows.Count = 1 Then
+            sql = "UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET NAME_CONVENTION = '" & txtnamenKonv.Text & "', MANUAL_SUBFOLDER = " & sf & ",  CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID
+        Else
+            sql = $"INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES (NAME_CONVENTION,MANUAL_SUBFOLDER,ADDED_WHO) VALUES ('{txtnamenKonv.Text}',{sf},'{USER_USERNAME}')"
+        End If
         If ClassDatabase.Execute_non_Query(sql) = True Then
+            DTTBPMO_WD_FORMVIEW_DOKTYPES = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
             lblSave.Visible = True
             lblSave.Text = "Data saved - " & Now.ToString
             Return True
@@ -129,11 +136,11 @@
         Try
             If cmbEntity.SelectedIndex <> -1 Then
                 TBPMO_WD_FORMVIEW_DOKTYPES_GUID = Me.cmbEntity.SelectedValue
-                Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
+                DTTBPMO_WD_FORMVIEW_DOKTYPES = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
-                If DT.Rows.Count = 1 Then
+                If DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows.Count = 1 Then
-                    FORM_VIEW_ID = DT.Rows(0).Item("FORMVIEW_ID")
+                    FORM_VIEW_ID = DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows(0).Item("FORMVIEW_ID")
-                    Dim NameConv = DT.Rows(0).Item("NAME_CONVENTION")
+                    Dim NameConv = DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows(0).Item("NAME_CONVENTION")
-                    chkManFolder.Checked = CBool(DT.Rows(0).Item("MANUAL_SUBFOLDER"))
+                    chkManFolder.Checked = CBool(DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows(0).Item("MANUAL_SUBFOLDER"))
                     If Not IsDBNull(NameConv) Then
                         Me.txtnamenKonv.Text = NameConv
                         Load_Controls()

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

@@ -79,6 +79,7 @@ Partial Class frmMain
         Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItemSwitchCon = New DevExpress.XtraBars.BarButtonItem()
         Me.LabelConString = New DevExpress.XtraBars.BarStaticItem()
+        Me.StatusVersionDB = New DevExpress.XtraBars.BarStaticItem()
         Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -99,7 +100,6 @@ Partial Class frmMain
         Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
         Me.TimerInformation = New System.Windows.Forms.Timer(Me.components)
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.StatusVersionDB = New DevExpress.XtraBars.BarStaticItem()
         Me.cmsSystray.SuspendLayout()
         CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -561,6 +561,13 @@ Partial Class frmMain
         Me.LabelConString.Name = "LabelConString"
         Me.LabelConString.TextAlignment = System.Drawing.StringAlignment.Near
         '
+        'StatusVersionDB
+        '
+        resources.ApplyResources(Me.StatusVersionDB, "StatusVersionDB")
+        Me.StatusVersionDB.Id = 11
+        Me.StatusVersionDB.Name = "StatusVersionDB"
+        Me.StatusVersionDB.TextAlignment = System.Drawing.StringAlignment.Near
+        '
         'pageHome
         '
         Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm, Me.groupSearchAllOver, Me.RibbonPageGroupConnManager})
@@ -715,13 +722,6 @@ Partial Class frmMain
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
         '
-        'StatusVersionDB
-        '
-        resources.ApplyResources(Me.StatusVersionDB, "StatusVersionDB")
-        Me.StatusVersionDB.Id = 11
-        Me.StatusVersionDB.Name = "StatusVersionDB"
-        Me.StatusVersionDB.TextAlignment = System.Drawing.StringAlignment.Near
-        '
         'frmMain
         '
         Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)

app/DD-Record-Organizer/frmMain.resx

@@ -124,20 +124,8 @@
     <value>17, 56</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>196, 26</value>
-  </data>
-  <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
-    <value>ADDI beenden</value>
-  </data>
-  <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>196, 26</value>
-  </data>
-  <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Cockpit anzeigen</value>
-  </data>
   <data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
-    <value>197, 56</value>
+    <value>170, 56</value>
   </data>
   <data name="&gt;&gt;cmsSystray.Name" xml:space="preserve">
     <value>cmsSystray</value>
@@ -1044,6 +1032,18 @@
   <data name="NotifyIcon.Visible" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
+  <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>169, 26</value>
+  </data>
+  <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
+    <value>ADDI beenden</value>
+  </data>
+  <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>169, 26</value>
+  </data>
+  <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Cockpit anzeigen</value>
+  </data>
   <metadata name="TimerTasks.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1208, 17</value>
   </metadata>
@@ -2284,105 +2284,6 @@
         rGVfvYI98TWlNa9PnJGLMGDjunfB71xCckbODKy2/jgAln/eXvihrcNlZ8s+M+l3XnAsLt75Z+/2Vnxq
         3VuxbKCBYrmRgXjPPNVdUWINbcGQISPf6BVwYl7NvE359uCFxlG70jtXN/HfF33ijFw4KcMCLMTblOF6
         z5X+PxSF4t+qN/szT9oWSwAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BarButtonItem23.Caption" xml:space="preserve">
-    <value>Synchronisation windream-Dateien</value>
-  </data>
-  <data name="BarButtonItem23.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACZ0RVh0VGl0
-        bGUARmluZDtCYXJzO1JpYmJvbjtTdGFuZGFyZDtTZWFyY2i7ZZwIAAAJwElEQVRYR8VWaVSU1xm2xsZU
-        GxNrUk2aNuk5OWmO2TUtNmIkLoBRgohsKiKbw6YzRHRAYJBFdlCWYd9hQJYxMDACsgyLyKo4sq/DAAPI
-        GjfEEHx671fGpi1J/JW85zxz73zf8977vPfe733vMgC/KpZ8+EviP52ft98sts9qP8l/VgF0kOUEz/0A
-        9P9Sg9NnSv4PfZbk/5wAZqC80sYdorLm/JyiRkVaXo0i5lJ5vl+kcBd5t4K+p8RFY/jRGSU7ErIr82Mz
-        JYro9DJFeMrVfL+IJfk/KYAZ7IrklnNVUxfkI5OYufsQgyPTqKrvQEKWBN5hQlfC+S3lKflxmeXO+eXN
-        kCsm0SefQP7VOpRfb4VAdB1+UXlK/tOV+CkByzNE1TtLaloXZIopPHg4h4np+7jVOQhhQQ3EJXWIu1S+
-        YO4QpIzsudDEArXswoaFqZn7ZCigs28UobFCxKQWoL1vBAnZFQtsHl9jkc+I+K95w5KLl/XI79Aufbki
-        I7+2pvy6FL3yO5id+w7y4QlU1neBn5iHhPQilNW1w8Y16hrhvkDwPD+tpKq6kawWiZ5at2wMkUlinHYL
-        R1ltGyrqO2HvHldLuCsJllc1di077hhGuosWGFuwTNo5RLvLfcMzN6fmXluQ1LVBNjSBucfz6CBR5BY2
-        wDdUgORLpZDUdeA4N/Qe4a8iWHkh8crdoupbDJ8abeMFV8FxCkTmleuMCA4vasHA0kWF8JlVMGEHkmbR
-        PMOFtGGi94/OvZCYXYqqxk6M3JkmW/AIdc29SMmugKtPNJKzy3FFIsVBS/c5wn+RYNW5CxlzOYX1JPIR
-        RsDQyBTiBCVgcwPhG56B3NIm8ILTYHzSN5Tw6aot12d5kWbRnALTabP8b+9tXuURmj0Smy5GU0sf2ft7
-        mCQoqpIiIl4Ee+eLSBKWI4CfiS90bPGhyv4vd+lYaxy0cEO0oBCtXYOMgJE7M4jLKAfb8QJsHQKQQ1Yh
-        LKUQh0/6jb6y4c8vk7mengWlMdHbOIZouQQKkHq5ErfaBvBwdo4s5zjS82pwzi8ZrK99EBAlJK0fVPey
-        sGXHMew3dsYBcx78I7LQKO1hBIxNfEu+lgrYu4TDyOIsyOeJkEQxjE94Q9/SRZfMxZwFOrHS6J+VrLP8
-        PO75WMRnFENUVIOm5jZkCEvB80vBcY4PTKx4YLuEwsD0LFR2m2LbHhsYWnlDx9QF7oHJqK5vxfcLC2jt
-        7EdARDZY9n7Q0rfDScdQuPqn4KRrJI6y/cVkLrp1T1eBiX6vkd27Vk78JxzXEFTXSTExOYMnT54wA3b3
-        DSE2+RvompyB3jEnaOqewCa1Q/8WwDoPbZOzOOMZjTwiWtrSic4eGeRDY5if/x7fzc+jjQjKFlWA40YE
-        nPR98s5H2z8mczJngQqgPy+Yn77YcMIpGIqxCdx98AiK8bvoJae5h2BwbAbT92bRL1fgoLEDtqmb4sOt
-        +lDVtIb+cS98ZewI1il/xKbkMYf22/tzGCb+PYMT6CaQj85gkiSzIcU4zE54Yed+mxtkzpcI6CosW6Gu
-        y9po68wnp3ecIYvKOnDSrQAHWJdgYJuDM76lKJB0oodkuP4BBf654wje36KLg8dcYe8Wgb2HuTCydCV7
-        PwOZYgaXr96GpWM6NI6G40vTKNi6ZSOnWIoO2TgGyMocsjqHv76rspkGTgWsPHrCx9snLAP9w5MIjK2G
-        ql4iDnBrcMS7DUd9OnDIrRF6dgWISGsimW0UQWEp2LrHHB5ByUgXlkDXzJXZIhqxd2QxNmkHQY1dDA3X
-        RuzhNUHjdBl2m8YhIE6C290KOLrzoapuHETmXkMFrLZ2DB241SaDsLgVakdS4JXajx7ZLEm/9+EpGAIr
-        TAY7fi+MHa/ickkbOnuHoXXkNDapGlzX0GPXGNt5Q9oxgAzxDfxdPwQO8R1o73+A+va74CT2QiewHQbB
-        LdhnJ4Cg4AbKrkmx19CeZr51VMAam7Oh8x39YzA5kwN93nVMTz7G1MRjdMkeoqRxBpxYOdgxA+BGt8HB
-        XwIpqQtGx91pIv8TwQaLU4Fo6x2DHjseO4nIiYk5jI/PoaXvPnLrJ2HI74JheCfMQ+pgSbajXtqP/Ye5
-        88R3PRXwkjU3BA0tcmhapIAV2Y2B4Udkv2dR23oPOdVTcEobBDdVjoC8ERzjFZHc3oVDLE8q4A2C11in
-        L+DaTRm2HgnGgYu3yMF9iDbZA5TdnkZ8xRjMErthktAFrrAf2pxEFFe3Y5/hKer/OiPAwj7wXgUptXtt
-        0sFO6kV40SiqWu4ir2EaAfmjcBcOw0ekQEjRCEzOFeFKZQv0zHmPlQIs7AMel9V2YvuxEBjF3IaHeACF
-        0imk1t0BN08O26w+cC7L4FIwAK1TicgpaoK6jt19pYA1h6w92r8paoC5pwhWUc1wzR3CefEw/IpHEXB1
-        DIGkjamegJeQVLWLEpIpq6Bl5NBNJydYb3TcrSuzoA6GjknQu1gNq5wecET9cCgcwJkisnqFcvhWKvB1
-        xg2YeWUhJr0U2zXNuqgvFbBa6/CpsKDob5AkaoKBuxg+xUMIkowhtGocMfXjEDRPIYFEY35Bgvi8BngE
-        p2PHPsso4vsKwR/2GXEiyM0HEVnV0DydhFPiHpwtG4Rb5TB8axUIvzmGoJoh6HpkITyzElzPWHyqejCG
-        +lIBK9/9aNtGY+vzs6LSZngnVcHASwy/wi6kNt+BQDqO4NIemASXwif1Gimv9SQjOj964633PyG+vydY
-        /fZ7Kh8etvKczSlsgjO/ABpnEuCUexPhTcOIuDkMnlgKbZ4AzlFipOTWYJe2zaNXX3ub5oHVVADNRi9u
-        /9LU2pYcRnL3Q/TlOrAjSmAccIWBfWQZIoW1SCQl2ZLjj398rscmPlQ9vWZRvKyqfsTOihxGcifERYEE
-        pj6XoOWUgK+cE2Hun4VgQTmi0kphaO6KjZ/s/pr40E/weQKmFtDO2i1q+sbah7gKHql8UWnFzGHJLmwE
-        n5RSp/MJ2KNrP7rpM21Lwn2VQFnRmEJGsO5TVR3zPbqcUa5HHEISxOQ+WE8CqkNQrAgclwhs0zQbfecD
-        NepP9/5pLaCmFLFm/etvv/O5phl/51c2reoH2Nitw8YX+6zaPttlHLlu/ZsbCWctgXJyppoRU4pYu+6P
-        f9moomYYtXX3sfZtGhbYqm4GFbXD7R9v2R/z0trXPiAcGrlycqU/Y0xVJPgdAZ2EqqSJhn5qGwioI92z
-        H96GlUb79Bl9R69plEs/sTcJ3iKg49AD+2P+T005EBVCV4RGRUH79NmPOi7a//rTSCnoGM/i/9QoaSk8
-        qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BarButtonItem23.LargeGlyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACZ0RVh0VGl0
-        bGUARmluZDtCYXJzO1JpYmJvbjtTdGFuZGFyZDtTZWFyY2i7ZZwIAAAJwElEQVRYR8VWaVSU1xm2xsZU
-        GxNrUk2aNuk5OWmO2TUtNmIkLoBRgohsKiKbw6YzRHRAYJBFdlCWYd9hQJYxMDACsgyLyKo4sq/DAAPI
-        GjfEEHx671fGpi1J/JW85zxz73zf8977vPfe733vMgC/KpZ8+EviP52ft98sts9qP8l/VgF0kOUEz/0A
-        9P9Sg9NnSv4PfZbk/5wAZqC80sYdorLm/JyiRkVaXo0i5lJ5vl+kcBd5t4K+p8RFY/jRGSU7ErIr82Mz
-        JYro9DJFeMrVfL+IJfk/KYAZ7IrklnNVUxfkI5OYufsQgyPTqKrvQEKWBN5hQlfC+S3lKflxmeXO+eXN
-        kCsm0SefQP7VOpRfb4VAdB1+UXlK/tOV+CkByzNE1TtLaloXZIopPHg4h4np+7jVOQhhQQ3EJXWIu1S+
-        YO4QpIzsudDEArXswoaFqZn7ZCigs28UobFCxKQWoL1vBAnZFQtsHl9jkc+I+K95w5KLl/XI79Aufbki
-        I7+2pvy6FL3yO5id+w7y4QlU1neBn5iHhPQilNW1w8Y16hrhvkDwPD+tpKq6kawWiZ5at2wMkUlinHYL
-        R1ltGyrqO2HvHldLuCsJllc1di077hhGuosWGFuwTNo5RLvLfcMzN6fmXluQ1LVBNjSBucfz6CBR5BY2
-        wDdUgORLpZDUdeA4N/Qe4a8iWHkh8crdoupbDJ8abeMFV8FxCkTmleuMCA4vasHA0kWF8JlVMGEHkmbR
-        PMOFtGGi94/OvZCYXYqqxk6M3JkmW/AIdc29SMmugKtPNJKzy3FFIsVBS/c5wn+RYNW5CxlzOYX1JPIR
-        RsDQyBTiBCVgcwPhG56B3NIm8ILTYHzSN5Tw6aot12d5kWbRnALTabP8b+9tXuURmj0Smy5GU0sf2ft7
-        mCQoqpIiIl4Ee+eLSBKWI4CfiS90bPGhyv4vd+lYaxy0cEO0oBCtXYOMgJE7M4jLKAfb8QJsHQKQQ1Yh
-        LKUQh0/6jb6y4c8vk7mengWlMdHbOIZouQQKkHq5ErfaBvBwdo4s5zjS82pwzi8ZrK99EBAlJK0fVPey
-        sGXHMew3dsYBcx78I7LQKO1hBIxNfEu+lgrYu4TDyOIsyOeJkEQxjE94Q9/SRZfMxZwFOrHS6J+VrLP8
-        PO75WMRnFENUVIOm5jZkCEvB80vBcY4PTKx4YLuEwsD0LFR2m2LbHhsYWnlDx9QF7oHJqK5vxfcLC2jt
-        7EdARDZY9n7Q0rfDScdQuPqn4KRrJI6y/cVkLrp1T1eBiX6vkd27Vk78JxzXEFTXSTExOYMnT54wA3b3
-        DSE2+RvompyB3jEnaOqewCa1Q/8WwDoPbZOzOOMZjTwiWtrSic4eGeRDY5if/x7fzc+jjQjKFlWA40YE
-        nPR98s5H2z8mczJngQqgPy+Yn77YcMIpGIqxCdx98AiK8bvoJae5h2BwbAbT92bRL1fgoLEDtqmb4sOt
-        +lDVtIb+cS98ZewI1il/xKbkMYf22/tzGCb+PYMT6CaQj85gkiSzIcU4zE54Yed+mxtkzpcI6CosW6Gu
-        y9po68wnp3ecIYvKOnDSrQAHWJdgYJuDM76lKJB0oodkuP4BBf654wje36KLg8dcYe8Wgb2HuTCydCV7
-        PwOZYgaXr96GpWM6NI6G40vTKNi6ZSOnWIoO2TgGyMocsjqHv76rspkGTgWsPHrCx9snLAP9w5MIjK2G
-        ql4iDnBrcMS7DUd9OnDIrRF6dgWISGsimW0UQWEp2LrHHB5ByUgXlkDXzJXZIhqxd2QxNmkHQY1dDA3X
-        RuzhNUHjdBl2m8YhIE6C290KOLrzoapuHETmXkMFrLZ2DB241SaDsLgVakdS4JXajx7ZLEm/9+EpGAIr
-        TAY7fi+MHa/ickkbOnuHoXXkNDapGlzX0GPXGNt5Q9oxgAzxDfxdPwQO8R1o73+A+va74CT2QiewHQbB
-        LdhnJ4Cg4AbKrkmx19CeZr51VMAam7Oh8x39YzA5kwN93nVMTz7G1MRjdMkeoqRxBpxYOdgxA+BGt8HB
-        XwIpqQtGx91pIv8TwQaLU4Fo6x2DHjseO4nIiYk5jI/PoaXvPnLrJ2HI74JheCfMQ+pgSbajXtqP/Ye5
-        88R3PRXwkjU3BA0tcmhapIAV2Y2B4Udkv2dR23oPOdVTcEobBDdVjoC8ERzjFZHc3oVDLE8q4A2C11in
-        L+DaTRm2HgnGgYu3yMF9iDbZA5TdnkZ8xRjMErthktAFrrAf2pxEFFe3Y5/hKer/OiPAwj7wXgUptXtt
-        0sFO6kV40SiqWu4ir2EaAfmjcBcOw0ekQEjRCEzOFeFKZQv0zHmPlQIs7AMel9V2YvuxEBjF3IaHeACF
-        0imk1t0BN08O26w+cC7L4FIwAK1TicgpaoK6jt19pYA1h6w92r8paoC5pwhWUc1wzR3CefEw/IpHEXB1
-        DIGkjamegJeQVLWLEpIpq6Bl5NBNJydYb3TcrSuzoA6GjknQu1gNq5wecET9cCgcwJkisnqFcvhWKvB1
-        xg2YeWUhJr0U2zXNuqgvFbBa6/CpsKDob5AkaoKBuxg+xUMIkowhtGocMfXjEDRPIYFEY35Bgvi8BngE
-        p2PHPsso4vsKwR/2GXEiyM0HEVnV0DydhFPiHpwtG4Rb5TB8axUIvzmGoJoh6HpkITyzElzPWHyqejCG
-        +lIBK9/9aNtGY+vzs6LSZngnVcHASwy/wi6kNt+BQDqO4NIemASXwif1Gimv9SQjOj964633PyG+vydY
-        /fZ7Kh8etvKczSlsgjO/ABpnEuCUexPhTcOIuDkMnlgKbZ4AzlFipOTWYJe2zaNXX3ub5oHVVADNRi9u
-        /9LU2pYcRnL3Q/TlOrAjSmAccIWBfWQZIoW1SCQl2ZLjj398rscmPlQ9vWZRvKyqfsTOihxGcifERYEE
-        pj6XoOWUgK+cE2Hun4VgQTmi0kphaO6KjZ/s/pr40E/weQKmFtDO2i1q+sbah7gKHql8UWnFzGHJLmwE
-        n5RSp/MJ2KNrP7rpM21Lwn2VQFnRmEJGsO5TVR3zPbqcUa5HHEISxOQ+WE8CqkNQrAgclwhs0zQbfecD
-        NepP9/5pLaCmFLFm/etvv/O5phl/51c2reoH2Nitw8YX+6zaPttlHLlu/ZsbCWctgXJyppoRU4pYu+6P
-        f9moomYYtXX3sfZtGhbYqm4GFbXD7R9v2R/z0trXPiAcGrlycqU/Y0xVJPgdAZ2EqqSJhn5qGwioI92z
-        H96GlUb79Bl9R69plEs/sTcJ3iKg49AD+2P+T005EBVCV4RGRUH79NmPOi7a//rTSCnoGM/i/9QoaSk8
-        qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="btnGlobalSearch.Caption" xml:space="preserve">
@@ -2494,6 +2395,105 @@
         wqLj0c+lRxMLoJwoFOnR7OgBY/UIxOZ10lFccwVkCmP1cZXV/VhpcT2UpW7JQ9/Kh4WPXCQiLCQqkd6C
         X6NvUWGs8aCPmpBz0CRczCdxLA8m1bTXdNFQ2X1vOZ4oAMhPlaEK0Xj6clp5J6AxxFwA8No/K4uTvqJI
         kmkAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="BarButtonItem23.Caption" xml:space="preserve">
+    <value>Synchronisation windream-Dateien</value>
+  </data>
+  <data name="BarButtonItem23.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACZ0RVh0VGl0
+        bGUARmluZDtCYXJzO1JpYmJvbjtTdGFuZGFyZDtTZWFyY2i7ZZwIAAAJwElEQVRYR8VWaVSU1xm2xsZU
+        GxNrUk2aNuk5OWmO2TUtNmIkLoBRgohsKiKbw6YzRHRAYJBFdlCWYd9hQJYxMDACsgyLyKo4sq/DAAPI
+        GjfEEHx671fGpi1J/JW85zxz73zf8977vPfe733vMgC/KpZ8+EviP52ft98sts9qP8l/VgF0kOUEz/0A
+        9P9Sg9NnSv4PfZbk/5wAZqC80sYdorLm/JyiRkVaXo0i5lJ5vl+kcBd5t4K+p8RFY/jRGSU7ErIr82Mz
+        JYro9DJFeMrVfL+IJfk/KYAZ7IrklnNVUxfkI5OYufsQgyPTqKrvQEKWBN5hQlfC+S3lKflxmeXO+eXN
+        kCsm0SefQP7VOpRfb4VAdB1+UXlK/tOV+CkByzNE1TtLaloXZIopPHg4h4np+7jVOQhhQQ3EJXWIu1S+
+        YO4QpIzsudDEArXswoaFqZn7ZCigs28UobFCxKQWoL1vBAnZFQtsHl9jkc+I+K95w5KLl/XI79Aufbki
+        I7+2pvy6FL3yO5id+w7y4QlU1neBn5iHhPQilNW1w8Y16hrhvkDwPD+tpKq6kawWiZ5at2wMkUlinHYL
+        R1ltGyrqO2HvHldLuCsJllc1di077hhGuosWGFuwTNo5RLvLfcMzN6fmXluQ1LVBNjSBucfz6CBR5BY2
+        wDdUgORLpZDUdeA4N/Qe4a8iWHkh8crdoupbDJ8abeMFV8FxCkTmleuMCA4vasHA0kWF8JlVMGEHkmbR
+        PMOFtGGi94/OvZCYXYqqxk6M3JkmW/AIdc29SMmugKtPNJKzy3FFIsVBS/c5wn+RYNW5CxlzOYX1JPIR
+        RsDQyBTiBCVgcwPhG56B3NIm8ILTYHzSN5Tw6aot12d5kWbRnALTabP8b+9tXuURmj0Smy5GU0sf2ft7
+        mCQoqpIiIl4Ee+eLSBKWI4CfiS90bPGhyv4vd+lYaxy0cEO0oBCtXYOMgJE7M4jLKAfb8QJsHQKQQ1Yh
+        LKUQh0/6jb6y4c8vk7mengWlMdHbOIZouQQKkHq5ErfaBvBwdo4s5zjS82pwzi8ZrK99EBAlJK0fVPey
+        sGXHMew3dsYBcx78I7LQKO1hBIxNfEu+lgrYu4TDyOIsyOeJkEQxjE94Q9/SRZfMxZwFOrHS6J+VrLP8
+        PO75WMRnFENUVIOm5jZkCEvB80vBcY4PTKx4YLuEwsD0LFR2m2LbHhsYWnlDx9QF7oHJqK5vxfcLC2jt
+        7EdARDZY9n7Q0rfDScdQuPqn4KRrJI6y/cVkLrp1T1eBiX6vkd27Vk78JxzXEFTXSTExOYMnT54wA3b3
+        DSE2+RvompyB3jEnaOqewCa1Q/8WwDoPbZOzOOMZjTwiWtrSic4eGeRDY5if/x7fzc+jjQjKFlWA40YE
+        nPR98s5H2z8mczJngQqgPy+Yn77YcMIpGIqxCdx98AiK8bvoJae5h2BwbAbT92bRL1fgoLEDtqmb4sOt
+        +lDVtIb+cS98ZewI1il/xKbkMYf22/tzGCb+PYMT6CaQj85gkiSzIcU4zE54Yed+mxtkzpcI6CosW6Gu
+        y9po68wnp3ecIYvKOnDSrQAHWJdgYJuDM76lKJB0oodkuP4BBf654wje36KLg8dcYe8Wgb2HuTCydCV7
+        PwOZYgaXr96GpWM6NI6G40vTKNi6ZSOnWIoO2TgGyMocsjqHv76rspkGTgWsPHrCx9snLAP9w5MIjK2G
+        ql4iDnBrcMS7DUd9OnDIrRF6dgWISGsimW0UQWEp2LrHHB5ByUgXlkDXzJXZIhqxd2QxNmkHQY1dDA3X
+        RuzhNUHjdBl2m8YhIE6C290KOLrzoapuHETmXkMFrLZ2DB241SaDsLgVakdS4JXajx7ZLEm/9+EpGAIr
+        TAY7fi+MHa/ickkbOnuHoXXkNDapGlzX0GPXGNt5Q9oxgAzxDfxdPwQO8R1o73+A+va74CT2QiewHQbB
+        LdhnJ4Cg4AbKrkmx19CeZr51VMAam7Oh8x39YzA5kwN93nVMTz7G1MRjdMkeoqRxBpxYOdgxA+BGt8HB
+        XwIpqQtGx91pIv8TwQaLU4Fo6x2DHjseO4nIiYk5jI/PoaXvPnLrJ2HI74JheCfMQ+pgSbajXtqP/Ye5
+        88R3PRXwkjU3BA0tcmhapIAV2Y2B4Udkv2dR23oPOdVTcEobBDdVjoC8ERzjFZHc3oVDLE8q4A2C11in
+        L+DaTRm2HgnGgYu3yMF9iDbZA5TdnkZ8xRjMErthktAFrrAf2pxEFFe3Y5/hKer/OiPAwj7wXgUptXtt
+        0sFO6kV40SiqWu4ir2EaAfmjcBcOw0ekQEjRCEzOFeFKZQv0zHmPlQIs7AMel9V2YvuxEBjF3IaHeACF
+        0imk1t0BN08O26w+cC7L4FIwAK1TicgpaoK6jt19pYA1h6w92r8paoC5pwhWUc1wzR3CefEw/IpHEXB1
+        DIGkjamegJeQVLWLEpIpq6Bl5NBNJydYb3TcrSuzoA6GjknQu1gNq5wecET9cCgcwJkisnqFcvhWKvB1
+        xg2YeWUhJr0U2zXNuqgvFbBa6/CpsKDob5AkaoKBuxg+xUMIkowhtGocMfXjEDRPIYFEY35Bgvi8BngE
+        p2PHPsso4vsKwR/2GXEiyM0HEVnV0DydhFPiHpwtG4Rb5TB8axUIvzmGoJoh6HpkITyzElzPWHyqejCG
+        +lIBK9/9aNtGY+vzs6LSZngnVcHASwy/wi6kNt+BQDqO4NIemASXwif1Gimv9SQjOj964633PyG+vydY
+        /fZ7Kh8etvKczSlsgjO/ABpnEuCUexPhTcOIuDkMnlgKbZ4AzlFipOTWYJe2zaNXX3ub5oHVVADNRi9u
+        /9LU2pYcRnL3Q/TlOrAjSmAccIWBfWQZIoW1SCQl2ZLjj398rscmPlQ9vWZRvKyqfsTOihxGcifERYEE
+        pj6XoOWUgK+cE2Hun4VgQTmi0kphaO6KjZ/s/pr40E/weQKmFtDO2i1q+sbah7gKHql8UWnFzGHJLmwE
+        n5RSp/MJ2KNrP7rpM21Lwn2VQFnRmEJGsO5TVR3zPbqcUa5HHEISxOQ+WE8CqkNQrAgclwhs0zQbfecD
+        NepP9/5pLaCmFLFm/etvv/O5phl/51c2reoH2Nitw8YX+6zaPttlHLlu/ZsbCWctgXJyppoRU4pYu+6P
+        f9moomYYtXX3sfZtGhbYqm4GFbXD7R9v2R/z0trXPiAcGrlycqU/Y0xVJPgdAZ2EqqSJhn5qGwioI92z
+        H96GlUb79Bl9R69plEs/sTcJ3iKg49AD+2P+T005EBVCV4RGRUH79NmPOi7a//rTSCnoGM/i/9QoaSk8
+        qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BarButtonItem23.LargeGlyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACZ0RVh0VGl0
+        bGUARmluZDtCYXJzO1JpYmJvbjtTdGFuZGFyZDtTZWFyY2i7ZZwIAAAJwElEQVRYR8VWaVSU1xm2xsZU
+        GxNrUk2aNuk5OWmO2TUtNmIkLoBRgohsKiKbw6YzRHRAYJBFdlCWYd9hQJYxMDACsgyLyKo4sq/DAAPI
+        GjfEEHx671fGpi1J/JW85zxz73zf8977vPfe733vMgC/KpZ8+EviP52ft98sts9qP8l/VgF0kOUEz/0A
+        9P9Sg9NnSv4PfZbk/5wAZqC80sYdorLm/JyiRkVaXo0i5lJ5vl+kcBd5t4K+p8RFY/jRGSU7ErIr82Mz
+        JYro9DJFeMrVfL+IJfk/KYAZ7IrklnNVUxfkI5OYufsQgyPTqKrvQEKWBN5hQlfC+S3lKflxmeXO+eXN
+        kCsm0SefQP7VOpRfb4VAdB1+UXlK/tOV+CkByzNE1TtLaloXZIopPHg4h4np+7jVOQhhQQ3EJXWIu1S+
+        YO4QpIzsudDEArXswoaFqZn7ZCigs28UobFCxKQWoL1vBAnZFQtsHl9jkc+I+K95w5KLl/XI79Aufbki
+        I7+2pvy6FL3yO5id+w7y4QlU1neBn5iHhPQilNW1w8Y16hrhvkDwPD+tpKq6kawWiZ5at2wMkUlinHYL
+        R1ltGyrqO2HvHldLuCsJllc1di077hhGuosWGFuwTNo5RLvLfcMzN6fmXluQ1LVBNjSBucfz6CBR5BY2
+        wDdUgORLpZDUdeA4N/Qe4a8iWHkh8crdoupbDJ8abeMFV8FxCkTmleuMCA4vasHA0kWF8JlVMGEHkmbR
+        PMOFtGGi94/OvZCYXYqqxk6M3JkmW/AIdc29SMmugKtPNJKzy3FFIsVBS/c5wn+RYNW5CxlzOYX1JPIR
+        RsDQyBTiBCVgcwPhG56B3NIm8ILTYHzSN5Tw6aot12d5kWbRnALTabP8b+9tXuURmj0Smy5GU0sf2ft7
+        mCQoqpIiIl4Ee+eLSBKWI4CfiS90bPGhyv4vd+lYaxy0cEO0oBCtXYOMgJE7M4jLKAfb8QJsHQKQQ1Yh
+        LKUQh0/6jb6y4c8vk7mengWlMdHbOIZouQQKkHq5ErfaBvBwdo4s5zjS82pwzi8ZrK99EBAlJK0fVPey
+        sGXHMew3dsYBcx78I7LQKO1hBIxNfEu+lgrYu4TDyOIsyOeJkEQxjE94Q9/SRZfMxZwFOrHS6J+VrLP8
+        PO75WMRnFENUVIOm5jZkCEvB80vBcY4PTKx4YLuEwsD0LFR2m2LbHhsYWnlDx9QF7oHJqK5vxfcLC2jt
+        7EdARDZY9n7Q0rfDScdQuPqn4KRrJI6y/cVkLrp1T1eBiX6vkd27Vk78JxzXEFTXSTExOYMnT54wA3b3
+        DSE2+RvompyB3jEnaOqewCa1Q/8WwDoPbZOzOOMZjTwiWtrSic4eGeRDY5if/x7fzc+jjQjKFlWA40YE
+        nPR98s5H2z8mczJngQqgPy+Yn77YcMIpGIqxCdx98AiK8bvoJae5h2BwbAbT92bRL1fgoLEDtqmb4sOt
+        +lDVtIb+cS98ZewI1il/xKbkMYf22/tzGCb+PYMT6CaQj85gkiSzIcU4zE54Yed+mxtkzpcI6CosW6Gu
+        y9po68wnp3ecIYvKOnDSrQAHWJdgYJuDM76lKJB0oodkuP4BBf654wje36KLg8dcYe8Wgb2HuTCydCV7
+        PwOZYgaXr96GpWM6NI6G40vTKNi6ZSOnWIoO2TgGyMocsjqHv76rspkGTgWsPHrCx9snLAP9w5MIjK2G
+        ql4iDnBrcMS7DUd9OnDIrRF6dgWISGsimW0UQWEp2LrHHB5ByUgXlkDXzJXZIhqxd2QxNmkHQY1dDA3X
+        RuzhNUHjdBl2m8YhIE6C290KOLrzoapuHETmXkMFrLZ2DB241SaDsLgVakdS4JXajx7ZLEm/9+EpGAIr
+        TAY7fi+MHa/ickkbOnuHoXXkNDapGlzX0GPXGNt5Q9oxgAzxDfxdPwQO8R1o73+A+va74CT2QiewHQbB
+        LdhnJ4Cg4AbKrkmx19CeZr51VMAam7Oh8x39YzA5kwN93nVMTz7G1MRjdMkeoqRxBpxYOdgxA+BGt8HB
+        XwIpqQtGx91pIv8TwQaLU4Fo6x2DHjseO4nIiYk5jI/PoaXvPnLrJ2HI74JheCfMQ+pgSbajXtqP/Ye5
+        88R3PRXwkjU3BA0tcmhapIAV2Y2B4Udkv2dR23oPOdVTcEobBDdVjoC8ERzjFZHc3oVDLE8q4A2C11in
+        L+DaTRm2HgnGgYu3yMF9iDbZA5TdnkZ8xRjMErthktAFrrAf2pxEFFe3Y5/hKer/OiPAwj7wXgUptXtt
+        0sFO6kV40SiqWu4ir2EaAfmjcBcOw0ekQEjRCEzOFeFKZQv0zHmPlQIs7AMel9V2YvuxEBjF3IaHeACF
+        0imk1t0BN08O26w+cC7L4FIwAK1TicgpaoK6jt19pYA1h6w92r8paoC5pwhWUc1wzR3CefEw/IpHEXB1
+        DIGkjamegJeQVLWLEpIpq6Bl5NBNJydYb3TcrSuzoA6GjknQu1gNq5wecET9cCgcwJkisnqFcvhWKvB1
+        xg2YeWUhJr0U2zXNuqgvFbBa6/CpsKDob5AkaoKBuxg+xUMIkowhtGocMfXjEDRPIYFEY35Bgvi8BngE
+        p2PHPsso4vsKwR/2GXEiyM0HEVnV0DydhFPiHpwtG4Rb5TB8axUIvzmGoJoh6HpkITyzElzPWHyqejCG
+        +lIBK9/9aNtGY+vzs6LSZngnVcHASwy/wi6kNt+BQDqO4NIemASXwif1Gimv9SQjOj964633PyG+vydY
+        /fZ7Kh8etvKczSlsgjO/ABpnEuCUexPhTcOIuDkMnlgKbZ4AzlFipOTWYJe2zaNXX3ub5oHVVADNRi9u
+        /9LU2pYcRnL3Q/TlOrAjSmAccIWBfWQZIoW1SCQl2ZLjj398rscmPlQ9vWZRvKyqfsTOihxGcifERYEE
+        pj6XoOWUgK+cE2Hun4VgQTmi0kphaO6KjZ/s/pr40E/weQKmFtDO2i1q+sbah7gKHql8UWnFzGHJLmwE
+        n5RSp/MJ2KNrP7rpM21Lwn2VQFnRmEJGsO5TVR3zPbqcUa5HHEISxOQ+WE8CqkNQrAgclwhs0zQbfecD
+        NepP9/5pLaCmFLFm/etvv/O5phl/51c2reoH2Nitw8YX+6zaPttlHLlu/ZsbCWctgXJyppoRU4pYu+6P
+        f9moomYYtXX3sfZtGhbYqm4GFbXD7R9v2R/z0trXPiAcGrlycqU/Y0xVJPgdAZ2EqqSJhn5qGwioI92z
+        H96GlUb79Bl9R69plEs/sTcJ3iKg49AD+2P+T005EBVCV4RGRUH79NmPOi7a//rTSCnoGM/i/9QoaSk8
+        qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="LabelProxyServer.Caption" xml:space="preserve">
@@ -2688,60 +2688,26 @@
   <data name="ribbonMain.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="ribbonMain.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
-  </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Kalender</value>
-  </data>
-  <data name="groupQuickAccessForm.Text" xml:space="preserve">
-    <value>Views/Sichten</value>
-  </data>
-  <data name="groupSearchAllOver.Text" xml:space="preserve">
-    <value>Weitere Views</value>
-  </data>
-  <data name="RibbonPageGroupConnManager.Text" xml:space="preserve">
-    <value>Client Connection</value>
-  </data>
   <data name="pageHome.Text" xml:space="preserve">
     <value>Home</value>
   </data>
   <data name="pageForms.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
     <value>Yellow</value>
   </data>
-  <data name="groupQuickAccessForm2.Text" xml:space="preserve">
-    <value>Views/Sichten</value>
-  </data>
   <data name="pageForms.Text" xml:space="preserve">
     <value>Weitere Sichten</value>
   </data>
-  <data name="RibbonPageGroupProgram.Text" xml:space="preserve">
-    <value>Programm Konfiguration</value>
-  </data>
-  <data name="RibbonPageGroupTask.Text" xml:space="preserve">
-    <value>Tasks und windream-Konfigurationen</value>
-  </data>
-  <data name="RibbonPageGroupMenue.Text" xml:space="preserve">
-    <value>Menü Konfiguration</value>
-  </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>Connections</value>
-  </data>
   <data name="pageAdmin.Text" xml:space="preserve">
     <value>Administration</value>
   </data>
   <data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1196, 187</value>
+    <value>995, 150</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 616</value>
+    <value>0, 508</value>
-  </data>
-  <data name="RibbonStatusBar1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1196, 29</value>
+    <value>995, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -2767,6 +2733,33 @@
   <data name="&gt;&gt;ribbonMain.ZOrder" xml:space="preserve">
     <value>4</value>
   </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Kalender</value>
+  </data>
+  <data name="groupQuickAccessForm.Text" xml:space="preserve">
+    <value>Views/Sichten</value>
+  </data>
+  <data name="groupSearchAllOver.Text" xml:space="preserve">
+    <value>Weitere Views</value>
+  </data>
+  <data name="RibbonPageGroupConnManager.Text" xml:space="preserve">
+    <value>Client Connection</value>
+  </data>
+  <data name="groupQuickAccessForm2.Text" xml:space="preserve">
+    <value>Views/Sichten</value>
+  </data>
+  <data name="RibbonPageGroupProgram.Text" xml:space="preserve">
+    <value>Programm Konfiguration</value>
+  </data>
+  <data name="RibbonPageGroupTask.Text" xml:space="preserve">
+    <value>Tasks und windream-Konfigurationen</value>
+  </data>
+  <data name="RibbonPageGroupMenue.Text" xml:space="preserve">
+    <value>Menü Konfiguration</value>
+  </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>Connections</value>
+  </data>
   <metadata name="DefaultLookAndFeel1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>242, 17</value>
   </metadata>
@@ -2807,10 +2800,10 @@
     <value>White</value>
   </data>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>8, 19</value>
+    <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1196, 645</value>
+    <value>995, 531</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
@@ -3707,9 +3700,6 @@
         /////////////wA///////////////////8f////////////////////
 </value>
   </data>
-  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>4, 4, 4, 4</value>
-  </data>
   <data name="$this.Text" xml:space="preserve">
     <value>Form1</value>
   </data>
@@ -4031,6 +4021,12 @@
   <data name="&gt;&gt;LabelConString.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;StatusVersionDB.Name" xml:space="preserve">
+    <value>StatusVersionDB</value>
+  </data>
+  <data name="&gt;&gt;StatusVersionDB.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;pageHome.Name" xml:space="preserve">
     <value>pageHome</value>
   </data>
@@ -4139,12 +4135,6 @@
   <data name="&gt;&gt;TimerInformation.Type" xml:space="preserve">
     <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;StatusVersionDB.Name" xml:space="preserve">
-    <value>StatusVersionDB</value>
-  </data>
-  <data name="&gt;&gt;StatusVersionDB.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmMain</value>
   </data>

app/DD-Record-Organizer/frmMass_Change.vb

@@ -2,6 +2,7 @@
 
 Public Class frmMass_Change
     Dim SQL As String
+    Dim _CONTROLID As Integer
     Private Sub frmMass_Change_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             SUCCESSFULL = False
@@ -30,6 +31,7 @@ Public Class frmMass_Change
     End Sub
     Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
         Try
+            _CONTROLID = 0
             If txtNewValue.Text <> "" And Me.cmbColumn.SelectedIndex <> -1 Then
                 Dim msg = "Sind Sie sicher, dass Sie diese Massenänderung durchführen wollen?" & vbNewLine & MASS_RECORD_IDs2CHANGE.Count.ToString & " Datensätze werden geändert!"
                 If USER_LANGUAGE <> "de-DE" Then
@@ -44,6 +46,11 @@ Public Class frmMass_Change
                     ClassHelper.InsertEssential_Log(USER_GUID, "User-ID", String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
                     Me.Cursor = Cursors.WaitCursor
                     SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
+                    Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True)
+
+                    If Not IsNothing(control_Id) Then
+                        _CONTROLID = control_Id
+                    End If
                     ProgressBar1.Visible = True
                     lblStateBW.Text = "Preparing BackgroundWorker..."
                     lblStateBW.Visible = True
@@ -66,11 +73,10 @@ Public Class frmMass_Change
         Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
         Dim val = txtNewValue.Text
 
-        Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True)
+
-        If Not IsNothing(control_Id) Then
+        If _CONTROLID <> 0 Then
-            If control_Id > 0 Then
+            SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", _CONTROLID)
-                SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", control_Id)
+            Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True)
-                Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True)
                 If control_type_ID = 4 Then
                     Try
                         val = CDate(val)
@@ -90,10 +96,10 @@ Public Class frmMass_Change
                     'Dim result1 As MsgBoxResult
                     'result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                     For Each Record As String In MASS_RECORD_IDs2CHANGE
-                        Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record))
+                    Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
-                        ClassDatabase.Execute_non_Query(del, False)
+                    ClassDatabase.Execute_non_Query(del, False)
-                        ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, control_Id)
+                    ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, _CONTROLID)
-                    Next
+                Next
                 End If
                 Try
                     Dim RIGHT_ONLY_READ_RECORD_FILE = False
@@ -104,8 +110,8 @@ Public Class frmMass_Change
                             RIGHT_ONLY_READ_RECORD_FILE = ClassHelper.Check_Record_Read_only(CInt(Record), CURRENT_ENTITY_ID)
                         End If
                         If RIGHT_ONLY_READ_RECORD_FILE = False Then
-                            SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record))
+                        SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
-                            Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL, True)
+                        Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL, True)
                             If Not IsNothing(ex_GUID) Then
                                 SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID)
                                 If ClassDatabase.Execute_non_Query(SQL, False) = False Then
@@ -113,16 +119,16 @@ Public Class frmMass_Change
                                     ClassLogger.Add(">> Error in updating the value for Record: " & Record, False)
 
                                 Else
-                                    ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val)
+                                ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
-                                End If
+                            End If
                             Else
-                                SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, USER_USERNAME)
+                            SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", _CONTROLID, CInt(Record), val, USER_USERNAME)
-                                If ClassDatabase.Execute_non_Query(SQL, False) = False Then
+                            If ClassDatabase.Execute_non_Query(SQL, False) = False Then
                                     _Error = True
                                     ClassLogger.Add(">> Error in inserting the value for Record: " & Record, False)
                                 Else
-                                    ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val)
+                                ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
-                                End If
+                            End If
                             End If
                         End If
                         BackgroundWorker.ReportProgress(i)
@@ -135,11 +141,7 @@ Public Class frmMass_Change
                     _Error = True
                 End Try
             Else
-                ClassLogger.Add("No defined column found! (1)")
+            ClassLogger.Add("No defined Control found!")
-                _Error = True
-            End If
-        Else
-            ClassLogger.Add("No defined column found! (2) - SQL: " & SQL)
             _Error = True
         End If
 

app/DD-Record-Organizer/frmRecordView.vb

@@ -63,7 +63,7 @@ Public Class frmRecordView
             'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID)
             DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'ClassDatabase.Return_Datatable(sql, True)
             ' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
-            Dim expression As String = String.Format("VISIBLE = 1 And ENTITY_ID = {0} And LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
+            Dim expression As String = String.Format("ENTITY_ID = {0} And LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
             DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
 
             'Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)

app/DD-Record-Organizer/frmSplash.vb

@@ -3,7 +3,7 @@
 Public NotInheritable Class frmSplash
     'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung"
     '  des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften").
-    Private InitSteps As Integer = 6
+    Private InitSteps As Integer = 7
     Private bw As New BackgroundWorker()
     Private mainForm As Form
 
@@ -98,9 +98,14 @@ Public NotInheritable Class frmSplash
 
                 System.Threading.Thread.Sleep(500)
 
-                bw.ReportProgress(CalcProgress(6), "Initializing Frontend")
+
                 ' InitInterface wurde in frmMain integriert
                 'Init.InitInterface(mainForm)
+                bw.ReportProgress(CalcProgress(6), "Initializing Node-Configuration")
+                'ClassConstructors.Init_Tuple()
+
+
+                bw.ReportProgress(CalcProgress(7), "Initializing Frontend")
 
                 System.Threading.Thread.Sleep(500)
             Else

app/DD-Record-Organizer/frmWM_ChangeDoctype.vb

@@ -321,7 +321,6 @@ Public Class frmWM_ChangeDoctype
                                 MsgBox("Oracle not yet implememnted!", MsgBoxStyle.Exclamation)
                                 Exit Sub
                                 'oracleConn = New OracleConnection(connectionString)
-                                '' Try
                                 'oracleConn.Open()
                                 'oracleCmd = New OracleCommand(sql, oracleConn)
                                 'oracleadapter.SelectCommand = oracleCmd
@@ -409,7 +408,6 @@ Public Class frmWM_ChangeDoctype
                         MsgBox("Oracle not yet implememnted!", MsgBoxStyle.Exclamation)
                         Exit Sub
                         'oracleConn = New OracleConnection(connectionString)
-                        '' Try
                         'oracleConn.Open()
                         'oracleCmd = New OracleCommand(sql_Vorschlag, oracleConn)
                         'oracleadapter.SelectCommand = oracleCmd

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

@@ -42,7 +42,7 @@ Partial Class frmWM_DoctypeConfig
         Dim CHANGED_WHOLabel As System.Windows.Forms.Label
         Dim CHANGED_WHENLabel As System.Windows.Forms.Label
         Dim OBJEKTTYPLabel As System.Windows.Forms.Label
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
         Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
         Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -173,6 +173,8 @@ Partial Class frmWM_DoctypeConfig
         Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton()
         Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cmbFormViewVariablePath = New System.Windows.Forms.ComboBox()
         Me.lblpathsaved = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.FOLDER_FOR_INDEXTextBox = New System.Windows.Forms.TextBox()
@@ -473,7 +475,6 @@ Partial Class frmWM_DoctypeConfig
         'GridControl1
         '
         Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource
-        Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
         resources.ApplyResources(Me.GridControl1, "GridControl1")
         Me.GridControl1.MainView = Me.GridView1
         Me.GridControl1.Name = "GridControl1"
@@ -1002,8 +1003,8 @@ Partial Class frmWM_DoctypeConfig
         '
         Me.XtraTabPage3.Controls.Add(Me.ListBox1)
         Me.XtraTabPage3.Controls.Add(Me.BindingNavigator2)
-        resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
         Me.XtraTabPage3.Name = "XtraTabPage3"
+        resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
         '
         'ListBox1
         '
@@ -1121,8 +1122,8 @@ Partial Class frmWM_DoctypeConfig
         '
         Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False
         Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
-        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         resources.ApplyResources(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView")
         Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False
         Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -1298,13 +1299,29 @@ Partial Class frmWM_DoctypeConfig
         '
         'XtraTabPage4
         '
+        Me.XtraTabPage4.Controls.Add(Me.Label8)
+        Me.XtraTabPage4.Controls.Add(Me.cmbFormViewVariablePath)
         Me.XtraTabPage4.Controls.Add(Me.lblpathsaved)
         Me.XtraTabPage4.Controls.Add(Me.Button3)
         Me.XtraTabPage4.Controls.Add(Me.FOLDER_FOR_INDEXTextBox)
         Me.XtraTabPage4.Controls.Add(Me.grbxFolderforIndex)
         Me.XtraTabPage4.Controls.Add(Me.Label17)
-        resources.ApplyResources(Me.XtraTabPage4, "XtraTabPage4")
         Me.XtraTabPage4.Name = "XtraTabPage4"
+        resources.ApplyResources(Me.XtraTabPage4, "XtraTabPage4")
+        '
+        'Label8
+        '
+        resources.ApplyResources(Me.Label8, "Label8")
+        Me.Label8.Name = "Label8"
+        '
+        'cmbFormViewVariablePath
+        '
+        Me.cmbFormViewVariablePath.DataSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource
+        Me.cmbFormViewVariablePath.DisplayMember = "FORM_TITLE"
+        Me.cmbFormViewVariablePath.FormattingEnabled = True
+        resources.ApplyResources(Me.cmbFormViewVariablePath, "cmbFormViewVariablePath")
+        Me.cmbFormViewVariablePath.Name = "cmbFormViewVariablePath"
+        Me.cmbFormViewVariablePath.ValueMember = "FORMVIEW_ID"
         '
         'lblpathsaved
         '
@@ -1593,4 +1610,6 @@ Partial Class frmWM_DoctypeConfig
     Friend WithEvents Button3 As System.Windows.Forms.Button
     Friend WithEvents lblpathsaved As System.Windows.Forms.Label
     Friend WithEvents colBESCHREIBUNG As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cmbFormViewVariablePath As ComboBox
 End Class

app/DD-Record-Organizer/frmWM_DoctypeConfig.vb

@@ -252,6 +252,7 @@ Public Class frmWM_DoctypeConfig
                 Refresh_DokID_FORM_VIEW()
                 Me.btnAddDokart_Entity.Text = "Entität zu Dokumentart ' " & Me.KURZNAMETextBox.Text & "' hinzufügen"
             Case 3
+                Refresh_DokID_FORM_VIEW()
                 Load_Variable_Folder()
 
         End Select
@@ -262,12 +263,12 @@ Public Class frmWM_DoctypeConfig
             If GUIDTextBox.Text <> "" Then
                 FOLDER_FOR_INDEXTextBox.Enabled = True
                 grbxFolderforIndex.Enabled = True
-                Dim sql As String = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & GUIDTextBox.Text
+                Dim sel = $"SELECT DYNAMIC_FOLDER FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = '{GUIDTextBox.Text}' AND FORMVIEW_ID = {cmbFormViewVariablePath.SelectedValue}"
-                Dim result = ClassDatabase.Execute_Scalar(sql)
+                Dim dynamic_Folder = ClassDatabase.Execute_Scalar(sel, False)
-                If IsDBNull(result) Then
+                If Not IsNothing(dynamic_Folder) Then
-                    FOLDER_FOR_INDEXTextBox.Text = ""
+                    FOLDER_FOR_INDEXTextBox.Text = dynamic_Folder
                 Else
-                    FOLDER_FOR_INDEXTextBox.Text = result.ToString
+                    FOLDER_FOR_INDEXTextBox.Text = ""
                 End If
             Else
                 FOLDER_FOR_INDEXTextBox.Enabled = False
@@ -517,7 +518,7 @@ Public Class frmWM_DoctypeConfig
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         Try
-            Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text)
+            Dim upd = String.Format("UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET DYNAMIC_FOLDER = '{0}', CHANGED_WHO = '{1}' WHERE DOCTYPE_ID = {2} AND FORMVIEW_ID = {3}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text, cmbFormViewVariablePath.SelectedValue)
             If ClassDatabase.Execute_non_Query(upd, False) = False Then
                 MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
             Else
@@ -533,4 +534,10 @@ Public Class frmWM_DoctypeConfig
 
         End Try
     End Sub
+
+    Private Sub cmbFormViewVariablePath_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFormViewVariablePath.SelectedIndexChanged
+        If cmbFormViewVariablePath.SelectedIndex <> -1 Then
+            Load_Variable_Folder()
+        End If
+    End Sub
 End Class

app/DD-Record-Organizer/frmWM_IndexFile.vb

@@ -594,7 +594,10 @@ Public Class frmWM_IndexFile
                                 'nur eine Textbox
                                 AddTextBox(DR.Item("GUID"), DR.Item("NAME"), y, VORBELGUNG)
                             End If
+                        Case "FOLDERSELECT"
+                            AddFOLDERSELECTBUTTON(DR.Item("GUID"), DR.Item("NAME"), y)
                         Case "VARCHAR"
+
                             If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
                                 AddVorschlag_ComboBox(DR.Item("GUID"), DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
                                 'AddAutoSuggest_Textbox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
@@ -696,6 +699,56 @@ Public Class frmWM_IndexFile
     Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
         Dim cmb As ComboBox = sender
         cmb.BackColor = Color.White
+    End Sub
+    Function AddFOLDERSELECTBUTTON(ID As Integer, indexname As String, y As Integer)
+        Dim btn As New Button
+        btn.Name = "btn" & indexname
+        If USER_LANGUAGE <> "de-DE" Then
+            btn.Text = "Select the folder"
+        Else
+            btn.Text = "Wählen Sie einen Ordner"
+        End If
+
+        btn.Size = New Size(260, 27)
+
+        btn.Tag = ID
+        grbxControls.Controls.Add(btn)
+        btn.Location = New Point(11, y)
+
+        AddHandler btn.Click, AddressOf OnbtnClick
+        Return btn
+    End Function
+    Public Sub OnbtnClick(sender As System.Object, e As System.EventArgs)
+        Dim btn As Button = sender
+        Dim folderBrowserDialog1 As New FolderBrowserDialog
+        If USER_LANGUAGE <> "de-DE" Then
+            folderBrowserDialog1.Description =
+            "Select the directory:"
+        Else
+            folderBrowserDialog1.Description =
+            "Wählen Sie einen Ordner:"
+        End If
+
+        ' Do not allow the user to create New files via the FolderBrowserDialog.
+        folderBrowserDialog1.ShowNewFolderButton = True
+        Try
+            folderBrowserDialog1.RootFolder = PATHTextBox.Text
+        Catch ex As Exception
+
+        End Try
+        Try
+            folderBrowserDialog1.SelectedPath = PATHTextBox.Text
+        Catch ex As Exception
+
+        End Try
+
+        Dim result As DialogResult = folderBrowserDialog1.ShowDialog()
+
+        If (result = DialogResult.OK) Then
+            ClassFileResult.SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, folderBrowserDialog1.SelectedPath)
+        End If
+
+
     End Sub
     Function AddTextBox(ID As Integer, indexname As String, y As Integer, text As String)
         Dim txt As New TextBox
@@ -828,7 +881,6 @@ Public Class frmWM_IndexFile
                                 adapter.Fill(NewDataset)
                             ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then
                                 oracleConn = New OracleConnection(connectionString)
-                                ' Try
                                 oracleConn.Open()
                                 oracleCmd = New OracleCommand(sql, oracleConn)
                                 oracleadapter.SelectCommand = oracleCmd
@@ -919,7 +971,6 @@ Public Class frmWM_IndexFile
                     ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then
 
                         oracleConn = New OracleConnection(connectionString)
-                        ' Try
                         oracleConn.Open()
                         oracleCmd = New OracleCommand(sql_Vorschlag, oracleConn)
                         oracleadapter.SelectCommand = oracleCmd