MS_1708

app/DD-Record-Organiser.sln

@@ -9,6 +9,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SnapPanelControl", "SnapPan
 EndProject
 Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWiX", "SetupWiX\SetupWiX.wixproj", "{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RecordOrganizer_RightManager", "RecordOrganizer_RightManager\RecordOrganizer_RightManager.vbproj", "{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		CD_ROM|Any CPU = CD_ROM|Any CPU
@@ -100,6 +102,31 @@ Global
 		{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Mixed Platforms.Build.0 = Release|x86
 		{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|x86.ActiveCfg = Release|x86
 		{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|x86.Build.0 = Release|x86
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|x86.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.DVD-5|x86.ActiveCfg = Debug|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Any CPU.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.Release|x86.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Any CPU.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU
+		{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.SingleImage|x86.ActiveCfg = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -337,7 +337,9 @@ Public Class ClassControlBuilder
                                     Try
                                         dateValue = CStr(CDate(val)) 'Format(val, "dd-MM-yyyy"))
                                     Catch ex As Exception
-                                        ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
+                                        If val <> "" Then
+                                            ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
+                                        End If
                                         Continue For
                                     End Try
 
@@ -346,7 +348,7 @@ Public Class ClassControlBuilder
                                     Dim id = ClassDatabase.Execute_Scalar(sql1)
 
                                     If Not IsNothing(id) Then
-                                        Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", dateValue, id)
+                                        Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, Environment.UserName, id)
                                         If ClassDatabase.Execute_non_Query(upd) = True Then
                                             If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
                                         Else
@@ -401,7 +403,7 @@ Public Class ClassControlBuilder
                                     Dim id = ClassDatabase.Execute_Scalar(sqltextbox)
 
                                     If Not IsNothing(id) Then
-                                        Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id)
+                                        Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", value1, Environment.UserName, id)
                                         If ClassDatabase.Execute_non_Query(upd) = True Then
                                             If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
                                         Else
@@ -438,7 +440,7 @@ Public Class ClassControlBuilder
                 End If
             Next
         Catch ex As Exception
-            MsgBox("Error in DependingControls - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Unexpected error in DependingControls - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
     Public Sub OnDateTimeValueChanged(sender As Object, ByVal e As EventArgs)

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -18,11 +18,11 @@ Public Class ClassControlCommandsUI
     ''' <param name="AddAppointmentDelegate">Ein Delegate, der auf eine AddAppointment-Methode verweist, mit AddressOf verwenden</param>
     ''' <param name="AddFormDataDelegate">Ein Delegate, der auf eine AddFormData-Methode verweist, mit AddressOf verwenden</param>
     ''' <remarks></remarks>
-    Sub New(ControlBuilder As ClassControlBuilder, ContextMenuStrip As ContextMenuStrip, AddAppointmentDelegate As System.EventHandler, AddFormDataDelegate As System.EventHandler)
+    Sub New(ControlBuilder As ClassControlBuilder, ContextMenuStrip As ContextMenuStrip, AddAppointmentDelegate As System.EventHandler) ', AddFormDataDelegate As System.EventHandler)
         _CtrlBuilder = ControlBuilder
         _ContextMenuStrip = ContextMenuStrip
         _AddAppointmentHandler = AddAppointmentDelegate
-        _AddFormDataHandler = AddFormDataDelegate
+        ' _AddFormDataHandler = AddFormDataDelegate
     End Sub
 
     Sub LoadControls(FormId As Integer)
@@ -455,7 +455,7 @@ Public Class ClassControlCommandsUI
             Dim VALUE = "%%" & ImageID.ToString & "%%"
 
             If valueExists Then
-                SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", VALUE, ControlID, RecordID)
+                SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE CONTROL_ID = {2} AND RECORD_ID = {3}", VALUE, Environment.UserName, ControlID, RecordID)
             Else
                 SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, Environment.UserName)
             End If
@@ -613,7 +613,8 @@ Public Class ClassControlCommandsUI
                             v = Decimal.Parse(v, Globalization.NumberStyles.Integer)
                     End Select
                 End If
-                ClassDatabase.Execute_non_Query(String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE) VALUES({0}, {1}, '{2}')", ControlId, RecordId, v))
+                Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE,ADDED_WHO) VALUES({0}, {1}, '{2}','{3}')", ControlId, RecordId, v, Environment.UserName)
+                ClassDatabase.Execute_non_Query(ins)
             Next
 
             For Each v As String In RemoveValues

app/DD-Record-Organiser/ClassDOC_SEARCH.vb

@@ -1,6 +1,6 @@
 Imports System.IO
 
-Public Class Class_DOC_SEARCH
+Public Class ClassDOC_SEARCH
     Private Shared DT_RESULTLIST_OPTIONS As DataTable
     Private Shared ENTITY_ID As Integer
     Private Shared RECORD_ID As Integer
@@ -47,22 +47,22 @@ Public Class Class_DOC_SEARCH
                 '"FROM VWPMO_WD_DOC_SEARCH WHERE ENTITY_ID LIKE '%#{1}%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
                 SQL_DOC_SEARCH = String.Format("SELECT 	* ," & _
                  "CASE " & _
-                 "WHEN [ENTITY_ID] LIKE '%#{1}#%' THEN " & _
+                 "WHEN [ENTITY_ID] = {1} THEN " & _
                  "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {2} AND RECORD_ID = {0}) " & _
                  "ELSE '' END AS OPTION1," & _
                  "CASE " & _
-                 "WHEN [ENTITY_ID] LIKE '%#{1}#%' THEN " & _
+                 "WHEN [ENTITY_ID] = {1} THEN " & _
                  "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {3} AND RECORD_ID = {0}) " & _
                  "ELSE '' END AS OPTION2," & _
                  "CASE " & _
-                 "WHEN [ENTITY_ID] LIKE '%#{1}#%' THEN " & _
+                 "WHEN [ENTITY_ID] = {1} THEN " & _
                  "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {4} AND RECORD_ID = {0}) " & _
                  "ELSE '' END AS OPTION3," & _
                  "CASE " & _
-                 "WHEN [ENTITY_ID] LIKE '%#{1}#%' THEN " & _
+                 "WHEN [ENTITY_ID] = {1} THEN " & _
                  "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
                  "ELSE '' END AS OPTION4 " & _
-             "FROM VWPMO_WD_DOC_SEARCH WHERE ENTITY_ID LIKE '%#{1}#%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
+             "FROM VWPMO_WD_DOC_SEARCH WHERE ENTITY_ID = {1} AND DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {6})", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM)
                 If CURRENT_ENTITYSQL.ToUpper.Contains("WHERE") Then
                     Dim where = CURRENT_ENTITYSQL.ToUpper.Replace("SELECT T.*", "SELECT '#' + CONVERT(VARCHAR(10),T.[Record-ID]) + '#'")
                     SQL_DOC_SEARCH = SQL_DOC_SEARCH & String.Format(" AND RECORD_ID IN ({0})", where)
@@ -85,7 +85,7 @@ Public Class Class_DOC_SEARCH
                 "WHEN {1} THEN " & _
                 "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
                 "ELSE '' END AS OPTION4 " & _
-            "FROM VWPMO_WD_DOC_SEARCH WHERE RECORD_ID LIKE '%#{0}#%' AND ENTITY_ID LIKE '%#{1}#%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
+            "FROM VWPMO_WD_DOC_SEARCH WHERE RECORD_ID = {0} AND ENTITY_ID = {1} AND DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {6})", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM)
             End If
             Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
         Catch ex As Exception
@@ -257,4 +257,43 @@ Public Class Class_DOC_SEARCH
             Return False
         End Try
     End Function
+    Public Shared Function SET_RECORD_DOCID_LINK(DOC_ID As Integer, RECORD_ID As Integer)
+        Try
+            Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (DOC_ID, RECORD_ID,ADDED_WHO) VALUES	({0},{1},'{2}')", DOC_ID, RECORD_ID, Environment.UserName)
+            Return ClassDatabase.Execute_non_Query(ins)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in SET_RECORD_DOCID_LINK: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    Public Shared Function SET_WD_RIGHTS(ByVal RESULT_DOC_PATH)
+        Try
+            DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
+            If DD_Rights.ClassDatabase.Init(MyConnectionString) = True Then
+                If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
+                    If DD_Rights.ClassRights.Collect_Users(RECORD_ID) = True Then
+                        If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOC_PATH, True) Then
+                            If DD_Rights.ClassRights.MSG_RESULT <> "" Then
+                                MsgBox("Unexpected Errors in setting rights: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Exclamation)
+                                Return False
+                            Else
+                                Return True
+                            End If
+                        Else
+                            Return False
+                        End If
+                    Else
+                        Return False
+                    End If
+                Else
+                    Return False
+                End If
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in SET_WD_RIGHTS: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
 End Class

app/DD-Record-Organiser/ClassFileResult.vb

@@ -59,14 +59,18 @@
     End Function
     Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
         Try
-            Dim del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
+            Dim del = "DELETE FROM TBPMO_DOC_INDICES WHERE DocID = " & RESULT_DOC_ID
             If ClassDatabase.Execute_non_Query(del) = True Then
-                del = "DELETE FROM TBPMO_DOC_INDICES WHERE DocID = " & RESULT_DOC_ID
+                del = "DELETE FROM TBPMO_DOC_RECORD_LINK WHERE DocID = " & RESULT_DOC_ID
-                ClassDatabase.Execute_non_Query(del)
+                If ClassDatabase.Execute_non_Query(del) = True Then
-                Return True
+                    del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
-            Else
+                    If ClassDatabase.Execute_non_Query(del) = True Then
-                MsgBox("Could not delete file from Search-table - Check logfile", MsgBoxStyle.Exclamation)
+                        Return True
-                Return False
+                    Else
+                        MsgBox("Could not delete file from Search-table - Check logfile", MsgBoxStyle.Exclamation)
+                        Return False
+                    End If
+                End If
             End If
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in Delete ResultFile: " & ex.Message, True)

app/DD-Record-Organiser/ClassFolderWatcher.vb

@@ -13,7 +13,7 @@ Public Class ClassFolderWatcher
                 'FolderWatch neu instanzieren
                 FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
                 ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
-                FolderWatcher_SCAN.IncludeSubdirectories = False
+                FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
                 FWSCAN_started = True
@@ -34,7 +34,7 @@ Public Class ClassFolderWatcher
             If FolderWatcher_SCAN Is Nothing Then
                 FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
                 ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
-                FolderWatcher_SCAN.IncludeSubdirectories = False
+                FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
                 FWSCAN_started = True
@@ -46,7 +46,7 @@ Public Class ClassFolderWatcher
                 ' watcher.Path = CURRENT_FOLDERWATCH
                 FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
                 ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
-                FolderWatcher_SCAN.IncludeSubdirectories = False
+                FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
                 FWSCAN_started = True

app/DD-Record-Organiser/ClassFunctionCommands.vb

@@ -105,7 +105,7 @@
             If ValueExists = 0 Then
                 Return InsertValue(ControlID, RecordID, Value)
             Else
-                SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", Value, ControlID, RecordID)
+                SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE CONTROL_ID = {2} AND RECORD_ID = {3}", Value, Environment.UserName, ControlID, RecordID)
                 If ClassDatabase.Execute_non_Query(SQL) = True Then
                     Return True
                 Else : Return False

app/DD-Record-Organiser/ClassFunctionCommandsUI.vb

@@ -1,32 +1,6 @@
 Imports DevExpress.XtraScheduler
 
 Public Class ClassFunctionCommandsUI
-    Shared Sub OpenFormData(ControlName As String, FormID As Integer)
-        Try
-            Dim ControlId As Integer = GetControlID_for_Name(ControlName, FormID)
-
-            Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId)
-
-            If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then
-                MsgBox("FormId ist nicht definiert für " & ControlName)
-                Exit Sub
-            End If
-
-            If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then
-                MsgBox("ScreenId ist nicht definiert für " & ControlName)
-                Exit Sub
-            End If
-
-            Dim newFormId As Integer = dr.Item("INTEGER1")
-            Dim newScreenId As Integer = dr.Item("INTEGER2")
-
-            OpenFormInputFor(newFormId, newScreenId)
-        Catch ex As Exception
-            MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
     Shared Sub NewEditTaskAppointment(RecordID As Integer, ControlID As Integer, Subject As String, Description As String, DueDateTime As DateTime)
         Try
             Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal)
@@ -53,7 +27,7 @@ Public Class ClassFunctionCommandsUI
         Catch ex As Exception
             MsgBox("Error in NewEditTaskAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-       
+
     End Sub
 
     Private Shared Sub NewTaskAppointment(RecordID As Integer, ControlID As Integer, Subject As String, Description As String, DueDateTime As DateTime)

app/DD-Record-Organiser/ClassImport_Windream.vb

@@ -541,30 +541,41 @@ Public Class ClassImport_Windream
                             ClassLogger.Add(">> split.Length <> 2 - APattern: " & element.Value, False)
                         End If
                     Case "V"
-                        Dim folder_temp As String
+                        Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
-                        Dim _Month As String = My.Computer.Clock.LocalTime.Month
+                        Dim split() As String = elmt
-                        If _Month.Length = 1 Then
+                        If split.Length = 2 Then
-                            _Month = "0" & _Month
+                            Dim VARTYPE = split(0)
+                            Select Case VARTYPE
+                                Case "ARDoctype"
+                                    FolderConvention = FolderConvention.Replace(element.ToString, CURRENT_DOKARTSTRING)
+                            End Select
+                        Else
+                            Dim folder_temp As String
+                            Dim _Month As String = My.Computer.Clock.LocalTime.Month
+                            If _Month.Length = 1 Then
+                                _Month = "0" & _Month
+                            End If
+                            Dim _day As String = My.Computer.Clock.LocalTime.Day
+                            If _day.Length = 1 Then
+                                _day = "0" & _day
+                            End If
+                            Dim type = element.Value.Substring(3, element.Value.Length - 4)
+                            If type.StartsWith("_") Then
+                                type = type.Replace("_", "")
+                            End If
+                            Select Case type
+                                Case "YYYY/MM/DD"
+                                    folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day
+                                Case "YYYY/MM"
+                                    folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month
+                                Case "YYYY"
+                                    folder_temp = My.Computer.Clock.LocalTime.Year
+                                Case "YYYY-MM"
+                                    folder_temp = My.Computer.Clock.LocalTime.Year & "-" & _Month
+                            End Select
+                            FolderConvention = FolderConvention.Replace(element.ToString, folder_temp)
                         End If
-                        Dim _day As String = My.Computer.Clock.LocalTime.Day
+                       
-                        If _day.Length = 1 Then
-                            _day = "0" & _day
-                        End If
-                        Dim type = element.Value.Substring(3, element.Value.Length - 4)
-                        If type.StartsWith("_") Then
-                            type = type.Replace("_", "")
-                        End If
-                        Select Case type
-                            Case "YYYY/MM/DD"
-                                folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day
-                            Case "YYYY/MM"
-                                folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month
-                            Case "YYYY"
-                                folder_temp = My.Computer.Clock.LocalTime.Year
-                            Case "YYYY-MM"
-                                folder_temp = My.Computer.Clock.LocalTime.Year & "-" & _Month
-                        End Select
-                        FolderConvention = FolderConvention.Replace(element.ToString, folder_temp)
                     Case "C"
                         'Füllen mit Controlwert
                         Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
@@ -631,15 +642,7 @@ Public Class ClassImport_Windream
                             End If
                         End If
                     Case "V"
-                        Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
+                       
-                        Dim split() As String = elmt
-                        If split.Length = 2 Then
-                            Dim VARTYPE = split(0)
-                            Select Case VARTYPE
-                                Case "Doctype"
-                                    FolderConvention = FolderConvention.Replace(element.ToString, CURRENT_DOKARTSTRING)
-                            End Select
-                        End If
 
                     Case Else
                         ClassLogger.Add(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper)

app/DD-Record-Organiser/ClassInit.vb

@@ -52,42 +52,36 @@ Public Class ClassInit
 
     Public Shared Function InitUserLogin()
         Try
-            Dim sql = sql_UserID
+            Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
-            sql = sql.Replace("@user", Environment.UserName)
             ClassLogger.Add(">> Login at: " & Now.ToString, False)
             ClassLogger.Add(">> Username: " & Environment.UserName, False)
-
+            Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql)
-            USER_GUID = ClassDatabase.Execute_Scalar(sql)
+            If USER_DT.Rows.Count = 0 Then
-            If USER_GUID Is Nothing Then
                 ClassLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", False)
                 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                 'Me.Close()
-                Dim msg = String.Format("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+                Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
-
-                If USER_LANGUAGE <> "de-DE" Then
-                    msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
-                End If
                 MsgBox(msg, MsgBoxStyle.Exclamation)
                 Return False
             Else
-                Dim USER_DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
+                USER_GUID = USER_DT.Rows(0).Item("GUID")
-
+                USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
                 USER_WAN = USER_DT.Rows(0).Item("WAN_ENVIRONMENT") 'ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
                 USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
                 USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
 
                 'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
                 Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
-                Dim i As Integer = 0
+                'Dim i As Integer = 0
-                For Each row As DataRow In DT_CLIENT_USER.Rows
+                'For Each row As DataRow In DT_CLIENT_USER.Rows
-                    If i = 0 Then
+                '    If i = 0 Then
-                        USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString
+                '        USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString
-                    Else
+                '    Else
-                        USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString
+                '        USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString
-                    End If
+                '    End If
-                    i += 1
+                '    i += 1
 
-                Next
+                'Next
 
                 Dim Right_RO As Boolean = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
                 If Right_RO = False Then

app/DD-Record-Organiser/ClassWindream.vb

@@ -1413,6 +1413,84 @@ Public Class ClassWindream
         End Try
 
 
+    End Function
+    Public Shared Function REMOVE_VEKTOR_LINK(ByVal FILEPATH As String, vktIndexName As String, deleteValue As String)
+        Try
+            Dim WMObject As WINDREAMLib.WMObject
+            Dim containsvalue As Boolean = False
+            Try
+                ' ein windream-Objekt der Datei erzeugen
+                WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, FILEPATH.Substring(2))
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> wibdreamObject created", False)
+            Catch ex As Exception
+                ClassLogger.Add("Unexpected Error in Initializing windream file: " & ex.Message, False)
+                Return False
+            End Try
+
+            Dim ValueArray()
+            'Jeden Wert des Vektorfeldes durchlaufen
+            Dim wertWD = WMObject.GetVariableValue(vktIndexName)
+            If wertWD Is Nothing = False Then
+                'Nochmals prüfen ob wirklich Array
+                If wertWD.GetType.ToString.Contains("System.Object") Then
+                    ' das entsprechende Attribut aus windream auslesen
+                    Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, vktIndexName)
+                    ' den Variablentyp (String, Integer, ...) auslesen 
+                    Dim vType = oAttribute.getVariableValue("dwAttrType")
+                    Dim Anzahl As Integer = 0
+                    For Each WDValue As Object In wertWD
+                        If WDValue Is Nothing = False Then
+                            If WDValue = deleteValue Then
+                                containsvalue = True
+                            End If
+                            If WDValue <> deleteValue Then
+                                'Erst die ALten Werte schreiben
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = Convert_VectorType(vType, WDValue)
+                                Anzahl += 1
+                            End If
+                        End If
+                    Next
+                End If
+            End If
+            If containsvalue = True Then 'And Not IsNothing(ValueArray)
+                Try
+                    ' die Datei sperren
+                    WMObject.lock()
+                Catch ex As Exception
+                    ClassLogger.Add("Unexpected Error in locking windream file: " & ex.Message, False)
+                    Return False
+                End Try
+
+                'Indexiern des Vektorfeldes
+                WMObject.SetVariableValue(vktIndexName, ValueArray)
+                ' die Indexinformationen des Dokuments speichern
+                WMObject.Save()
+                ClassLogger.Add(" >> The new vectorvalues were saved!", False)
+                ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, 
+                ' wenn eine Datei nicht gesperrt ist
+                Try
+                    ' die Sperrung des Dokuments aufheben
+                    WMObject.unlock()
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> die Sperrung des Dokuments aufheben", False)
+                Catch ex As Exception
+                    ' nichts tun (Datei war nicht gesperrt)
+                End Try
+
+                ' die Indexierungsinformationen für den TreeView-Log zurückgeben
+                Return True
+            Else
+                MsgBox("Could not remove the linked value!", MsgBoxStyle.Information)
+                Return False
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add("unexpected error in ClassWindream.REMOVE_VEKTOR_LINK: " & ex.Message, True)
+            Return False
+        End Try
+
+
     End Function
 
     Private Shared Function Convert_VectorType(vType As Object, value As String)

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -81,6 +81,10 @@
     <Reference Include="CommandLine">
       <HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath>
     </Reference>
+    <Reference Include="DD_Rights, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DD_Libraries\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
+    </Reference>
     <Reference Include="DevExpress.BonusSkins.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
@@ -254,7 +258,7 @@
     <Compile Include="ClassRecordState.vb" />
     <Compile Include="ClassRecordView.vb" />
     <Compile Include="ClassSAP.vb" />
-    <Compile Include="Class_DOC_SEARCH.vb" />
+    <Compile Include="ClassDOC_SEARCH.vb" />
     <Compile Include="DD_DMSDataSet.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -514,24 +518,12 @@
     <Compile Include="frmWD_Dokumentart_Konfig.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmQuickEdit.Designer.vb">
-      <DependentUpon>frmQuickEdit.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmQuickEdit.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmEntities.Designer.vb">
       <DependentUpon>frmEntities.vb</DependentUpon>
     </Compile>
     <Compile Include="frmEntities.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmForm_Input.Designer.vb">
-      <DependentUpon>frmForm_Input.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmForm_Input.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmMain.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -563,12 +555,6 @@
     <Compile Include="frmMenuDesigner.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmQuickInput.Designer.vb">
-      <DependentUpon>frmQuickInput.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmQuickInput.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmTask_Management.designer.vb">
       <DependentUpon>frmTask_Management.vb</DependentUpon>
     </Compile>
@@ -885,16 +871,10 @@
     <EmbeddedResource Include="frmWD_Dokumentart_Konfig.resx">
       <DependentUpon>frmWD_Dokumentart_Konfig.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmQuickEdit.resx">
-      <DependentUpon>frmQuickEdit.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmEntities.resx">
       <DependentUpon>frmEntities.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmForm_Input.resx">
-      <DependentUpon>frmForm_Input.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmMain.resx">
       <DependentUpon>frmMain.vb</DependentUpon>
       <SubType>Designer</SubType>
@@ -911,9 +891,6 @@
     <EmbeddedResource Include="frmMenuDesigner.resx">
       <DependentUpon>frmMenuDesigner.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmQuickInput.resx">
-      <DependentUpon>frmQuickInput.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmTask_Management.resx">
       <DependentUpon>frmTask_Management.vb</DependentUpon>
     </EmbeddedResource>
@@ -1256,6 +1233,7 @@
     <None Include="Resources\brick.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\RightFileOnly.png" />
     <None Include="Resources\TableView_nameonly_263.png" />
     <None Include="Resources\InsertColumn_5626.png" />
     <None Include="Resources\lock_16xMD.png" />

app/DD-Record-Organiser/ModuleHelperMethods.vb

@@ -176,18 +176,6 @@
             Return False
         End Try
     End Function
-
-    Public Sub OpenFormInputFor(FormID As Integer, ScreenID As Integer)
-        CURRENT_FORM_ID = FormID
-        CURRENT_SCREEN_ID = ScreenID
-
-        Dim frm As New frmFormInput
-        frm.MdiParent = MAIN_FORM
-
-        frm.Show()
-        frm.BringToFront()
-    End Sub
-
     Public Sub OpenFormCalendar()
         Dim frm As New frmCalendar
         frm = frmCalendar.Instance()
@@ -351,6 +339,12 @@
 
         frm.Show()
     End Sub
+    Public Sub OpenRightsmanager()
+        Dim path = ClassDatabase.Execute_Scalar("SELECT PATH_ADDONS FROm TBPMO_KONFIGURATION WHERE GUID = 1")
+        Dim startInfo As New ProcessStartInfo(path & "\RecordOrganizer_RightManager.exe")
+        startInfo.Arguments = """" & MyConnectionString & """"
+        Process.Start(startInfo)
+    End Sub
     Public Sub OpenWindream_Files()
         Dim frm As New frmWD_Import_Doc_Record
         frm.MdiParent = MAIN_FORM

app/DD-Record-Organiser/ModuleMySettings.vb

@@ -28,13 +28,11 @@ Module ModuleMySettings
     Public USER_IS_ADMIN = False
     Public USERS_LOGGED_IN = 0
     Public USER_GUID = 0
+    Public USERID_FK_INT_ECM = 0
     Public USER_LANGUAGE As String = "de-DE"
     Public USER_DATE_FORMAT As String
     Public USER_WAN As Boolean = False
-    Public USER_CLIENTS_COMMA_SEPERATED As String
+    'Public USER_CLIENTS_COMMA_SEPERATED As String
-
-    Public sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
-
     Public FWSCAN_started As Boolean = False
 
     Dim rowresult As String = ""

app/DD-Record-Organiser/ModuleRuntimeVariables.vb

@@ -59,6 +59,7 @@
     Public CONNECTION_CHANGED As Boolean = False
 
     Public CURRENT_SCAN_FOLDERWATCH As String
+    Public CURRENT_SCAN_FOLDERWATCH_SD As Boolean = False
     Public DTEXCLUDE_FILES As DataTable
     Public LANGUAGE_CHANGED As Boolean = False
     'DATATABLES

app/DD-Record-Organiser/My Project/Resources.Designer.vb

@@ -1550,6 +1550,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property RightFileOnly() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("RightFileOnly", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

app/DD-Record-Organiser/My Project/Resources.resx

@@ -130,8 +130,8 @@
   <data name="UserInterfaceEditor_5845_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\UserInterfaceEditor_5845_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Carousel_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Carousel_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="DD_Icons-ADDI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -196,6 +196,9 @@
   <data name="userAccounts" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -208,9 +211,6 @@
   <data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="dtp1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -247,18 +247,12 @@
   <data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="application_view_detail1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\application_view_detail1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="page_excel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="dtp" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -274,20 +268,26 @@
   <data name="application_view_detail" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="brick_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\brick_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="calendar_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\calendar_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Carousel_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="dtp1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Carousel_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="f5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -301,6 +301,9 @@
   <data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ComboBox_672" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ComboBox_672.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -313,8 +316,8 @@
   <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -322,12 +325,6 @@
   <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="lightbulb" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lightbulb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -382,15 +379,9 @@
   <data name="lock_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lock_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="database_lightning" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -403,8 +394,8 @@
   <data name="Label_684" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Label_684.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bug_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bug_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -442,17 +433,20 @@
   <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Task_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Task_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Men6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Men6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,8 +454,8 @@
   <data name="f2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -487,15 +481,18 @@
   <data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="eye" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\eye.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="WebUserControl(ascx)_11270_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -514,6 +511,9 @@
   <data name="bug_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bug_edit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="action_add_16xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -538,14 +538,17 @@
   <data name="folder_Open_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="note_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\note_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -556,8 +559,8 @@
   <data name="database_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Men4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Men4.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -568,8 +571,8 @@
   <data name="keinbild" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -580,8 +583,8 @@
   <data name="f1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -613,8 +616,8 @@
   <data name="grid_Data_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\grid_Data_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="eye" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="application_view_detail1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\eye.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\application_view_detail1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="AddressEnvelope_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\AddressEnvelope_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -625,8 +628,8 @@
   <data name="138_PushPin_32x42_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -649,7 +652,7 @@
   <data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="action_add_16xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="RightFileOnly" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\RightFileOnly.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

app/DD-Record-Organiser/frmConfig_Basic.Designer.vb

@@ -63,6 +63,7 @@ Partial Class frmConfig_Basic
         Me.btnApplicationFolder = New System.Windows.Forms.Button()
         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.chkSubfolder = New System.Windows.Forms.CheckBox()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
@@ -349,6 +350,7 @@ Partial Class frmConfig_Basic
         '
         'TabPage3
         '
+        Me.TabPage3.Controls.Add(Me.chkSubfolder)
         Me.TabPage3.Controls.Add(Me.Label9)
         Me.TabPage3.Controls.Add(Me.DataGridView1)
         Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles)
@@ -360,6 +362,12 @@ Partial Class frmConfig_Basic
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'chkSubfolder
+        '
+        resources.ApplyResources(Me.chkSubfolder, "chkSubfolder")
+        Me.chkSubfolder.Name = "chkSubfolder"
+        Me.chkSubfolder.UseVisualStyleBackColor = True
+        '
         'Label9
         '
         resources.ApplyResources(Me.Label9, "Label9")
@@ -477,4 +485,5 @@ Partial Class frmConfig_Basic
     Friend WithEvents Label10 As System.Windows.Forms.Label
     Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox
     Friend WithEvents Button4 As System.Windows.Forms.Button
+    Friend WithEvents chkSubfolder As System.Windows.Forms.CheckBox
 End Class

app/DD-Record-Organiser/frmConfig_Basic.resx

@@ -1135,6 +1135,33 @@
   <data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
+  <data name="chkSubfolder.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="chkSubfolder.Location" type="System.Drawing.Point, System.Drawing">
+    <value>11, 56</value>
+  </data>
+  <data name="chkSubfolder.Size" type="System.Drawing.Size, System.Drawing">
+    <value>123, 17</value>
+  </data>
+  <data name="chkSubfolder.TabIndex" type="System.Int32, mscorlib">
+    <value>18</value>
+  </data>
+  <data name="chkSubfolder.Text" xml:space="preserve">
+    <value>include Subfolders</value>
+  </data>
+  <data name="&gt;&gt;chkSubfolder.Name" xml:space="preserve">
+    <value>chkSubfolder</value>
+  </data>
+  <data name="&gt;&gt;chkSubfolder.Type" xml:space="preserve">
+    <value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;chkSubfolder.Parent" xml:space="preserve">
+    <value>TabPage3</value>
+  </data>
+  <data name="&gt;&gt;chkSubfolder.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
   <data name="Label9.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
@@ -1163,7 +1190,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;Label9.ZOrder" xml:space="preserve">
-    <value>0</value>
+    <value>1</value>
   </data>
   <data name="DataGridView1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Bottom, Left</value>
@@ -1187,7 +1214,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;DataGridView1.ZOrder" xml:space="preserve">
-    <value>1</value>
+    <value>2</value>
   </data>
   <data name="btnSaveExclusionFiles.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
@@ -1220,7 +1247,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;btnSaveExclusionFiles.ZOrder" xml:space="preserve">
-    <value>2</value>
+    <value>3</value>
   </data>
   <data name="Button2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
@@ -1247,7 +1274,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
-    <value>3</value>
+    <value>4</value>
   </data>
   <data name="txtScanFolderWatch.Location" type="System.Drawing.Point, System.Drawing">
     <value>11, 28</value>
@@ -1268,7 +1295,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;txtScanFolderWatch.ZOrder" xml:space="preserve">
-    <value>4</value>
+    <value>5</value>
   </data>
   <data name="Label8.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -1298,7 +1325,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
-    <value>5</value>
+    <value>6</value>
   </data>
   <data name="btnstartstop2.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
@@ -1334,7 +1361,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;btnstartstop2.ZOrder" xml:space="preserve">
-    <value>6</value>
+    <value>7</value>
   </data>
   <data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing">
     <value>4, 22</value>

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -212,9 +212,13 @@ Public Class frmConfig_Basic
             Case 1
                 cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
             Case 2
-                Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID, True)
+                Dim DTSCAN_folderwatch As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID, True)
-                If Not SCAN_folderwatch Is Nothing Then
+                If Not DTSCAN_folderwatch Is Nothing Then
-                    CURRENT_SCAN_FOLDERWATCH = SCAN_folderwatch
+                    If DTSCAN_folderwatch.Rows.Count = 1 Then
+                        CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
+                        CURRENT_SCAN_FOLDERWATCH_SD = DTSCAN_folderwatch.Rows(0).Item(1)
+                    End If
+
                 End If
                 Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
 
@@ -256,10 +260,10 @@ Public Class frmConfig_Basic
             fbdialog.SelectedPath = txtScanFolderWatch.Text
         End If
         If fbdialog.ShowDialog() = DialogResult.OK Then
-            CheckScanFolder(fbdialog.SelectedPath)
+            CheckScanFolder(fbdialog.SelectedPath, chkSubfolder.Checked)
         End If
     End Sub
-    Sub CheckScanFolder(mypath As String)
+    Sub CheckScanFolder(mypath As String, SUBDIRECTORIES As Boolean)
         Try
             If mypath <> "" Then
                 Try
@@ -274,18 +278,27 @@ Public Class frmConfig_Basic
                 End Try
             End If
 
+            Dim _SUBDIRECTORIES
+            If SUBDIRECTORIES = False Then
+                _SUBDIRECTORIES = 0
+            Else
+                _SUBDIRECTORIES = 1
+            End If
+
             Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
             Dim sql As String
             If folderwatch Is Nothing And mypath <> "" Then
-                sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN','" & Environment.UserName & "')"
+                sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & Environment.UserName & "')"
             Else
-                sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch
+                sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch
             End If
             If ClassDatabase.Execute_non_Query(sql) Then
-                folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
+                Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
 
-                CURRENT_SCAN_FOLDERWATCH = folderwatch
+                CURRENT_SCAN_FOLDERWATCH = DT.Rows(0).Item(0)
+                CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1)
                 Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
+                Me.chkSubfolder.Checked = CURRENT_SCAN_FOLDERWATCH_SD
             End If
             If FWSCAN_started = True Then
                 ClassFolderWatcher.Restart_FolderWatchSCAN()
@@ -309,7 +322,7 @@ Public Class frmConfig_Basic
 
     Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
         If CURRENT_SCAN_FOLDERWATCH <> "" Then
-            CheckScanFolder(CURRENT_SCAN_FOLDERWATCH)
+            CheckScanFolder(CURRENT_SCAN_FOLDERWATCH, chkSubfolder.Checked)
             CheckFWSCAN_State()
         End If
     End Sub
@@ -404,6 +417,10 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
-        CheckScanFolder(txtScanFolderWatch.Text)
+        CheckScanFolder(txtScanFolderWatch.Text, chkSubfolder.Checked)
+    End Sub
+
+    Private Sub chkSubfolder_CheckedChanged(sender As Object, e As EventArgs) Handles chkSubfolder.CheckedChanged
+        CheckScanFolder(txtScanFolderWatch.Text, chkSubfolder.Checked)
     End Sub
 End Class

app/DD-Record-Organiser/frmConfiguration_Basic.Designer.vb

@@ -33,7 +33,6 @@ Partial Class frmConfiguration_Basic
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.chkUnicode = New System.Windows.Forms.CheckBox()
         Me.lblSaveresult = New System.Windows.Forms.Label()
-        Me.chkChildWindow = New System.Windows.Forms.CheckBox()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.btnResetBackground = New System.Windows.Forms.Button()
         Me.btnSelectBackground = New System.Windows.Forms.Button()
@@ -42,11 +41,24 @@ Partial Class frmConfiguration_Basic
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
         Me.txtProductName = New System.Windows.Forms.TextBox()
         Me.btnsave = New System.Windows.Forms.Button()
+        Me.chkChildWindow = New System.Windows.Forms.CheckBox()
+        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.btnTest_Anmeldung = New System.Windows.Forms.Button()
+        Me.txtServername = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtPW = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtUser = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtDomäne = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
         CType(Me.pbBackground, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox4.SuspendLayout()
+        Me.GroupBox5.SuspendLayout()
         Me.SuspendLayout()
         '
         'Label1
@@ -81,20 +93,20 @@ Partial Class frmConfiguration_Basic
         '
         'GroupBox1
         '
-        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Controls.Add(Me.Label1)
         Me.GroupBox1.Controls.Add(Me.Label3)
         Me.GroupBox1.Controls.Add(Me.txtDelimiterFile)
         Me.GroupBox1.Controls.Add(Me.txtDelimiterVersion)
+        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.TabStop = False
         '
         'GroupBox2
         '
-        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
         Me.GroupBox2.Controls.Add(Me.chkUnicode)
         Me.GroupBox2.Controls.Add(Me.Label2)
         Me.GroupBox2.Controls.Add(Me.txtwddriveletter)
+        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.TabStop = False
         '
@@ -110,21 +122,12 @@ Partial Class frmConfiguration_Basic
         Me.lblSaveresult.BackColor = System.Drawing.Color.Yellow
         Me.lblSaveresult.Name = "lblSaveresult"
         '
-        'chkChildWindow
-        '
-        resources.ApplyResources(Me.chkChildWindow, "chkChildWindow")
-        Me.chkChildWindow.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_DesignPanels_areChild
-        Me.chkChildWindow.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.chkChildWindow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_DesignPanels_areChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.chkChildWindow.Name = "chkChildWindow"
-        Me.chkChildWindow.UseVisualStyleBackColor = True
-        '
         'GroupBox3
         '
-        resources.ApplyResources(Me.GroupBox3, "GroupBox3")
         Me.GroupBox3.Controls.Add(Me.btnResetBackground)
         Me.GroupBox3.Controls.Add(Me.btnSelectBackground)
         Me.GroupBox3.Controls.Add(Me.pbBackground)
+        resources.ApplyResources(Me.GroupBox3, "GroupBox3")
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.TabStop = False
         '
@@ -149,12 +152,11 @@ Partial Class frmConfiguration_Basic
         'OpenFileDialog1
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
-        resources.ApplyResources(Me.OpenFileDialog1, "OpenFileDialog1")
         '
         'GroupBox4
         '
-        resources.ApplyResources(Me.GroupBox4, "GroupBox4")
         Me.GroupBox4.Controls.Add(Me.txtProductName)
+        resources.ApplyResources(Me.GroupBox4, "GroupBox4")
         Me.GroupBox4.Name = "GroupBox4"
         Me.GroupBox4.TabStop = False
         '
@@ -170,10 +172,90 @@ Partial Class frmConfiguration_Basic
         Me.btnsave.Name = "btnsave"
         Me.btnsave.UseVisualStyleBackColor = True
         '
+        'chkChildWindow
+        '
+        resources.ApplyResources(Me.chkChildWindow, "chkChildWindow")
+        Me.chkChildWindow.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_DesignPanels_areChild
+        Me.chkChildWindow.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chkChildWindow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_DesignPanels_areChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.chkChildWindow.Name = "chkChildWindow"
+        Me.chkChildWindow.UseVisualStyleBackColor = True
+        '
+        'GroupBox5
+        '
+        Me.GroupBox5.Controls.Add(Me.btnTest_Anmeldung)
+        Me.GroupBox5.Controls.Add(Me.txtServername)
+        Me.GroupBox5.Controls.Add(Me.Label5)
+        Me.GroupBox5.Controls.Add(Me.txtPW)
+        Me.GroupBox5.Controls.Add(Me.Label4)
+        Me.GroupBox5.Controls.Add(Me.txtUser)
+        Me.GroupBox5.Controls.Add(Me.Label6)
+        Me.GroupBox5.Controls.Add(Me.txtDomäne)
+        Me.GroupBox5.Controls.Add(Me.Label7)
+        Me.GroupBox5.Controls.Add(Me.Label8)
+        resources.ApplyResources(Me.GroupBox5, "GroupBox5")
+        Me.GroupBox5.Name = "GroupBox5"
+        Me.GroupBox5.TabStop = False
+        '
+        'btnTest_Anmeldung
+        '
+        Me.btnTest_Anmeldung.BackColor = System.Drawing.SystemColors.Control
+        Me.btnTest_Anmeldung.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect
+        resources.ApplyResources(Me.btnTest_Anmeldung, "btnTest_Anmeldung")
+        Me.btnTest_Anmeldung.Name = "btnTest_Anmeldung"
+        Me.btnTest_Anmeldung.UseVisualStyleBackColor = False
+        '
+        'txtServername
+        '
+        resources.ApplyResources(Me.txtServername, "txtServername")
+        Me.txtServername.Name = "txtServername"
+        '
+        'Label5
+        '
+        resources.ApplyResources(Me.Label5, "Label5")
+        Me.Label5.Name = "Label5"
+        '
+        'txtPW
+        '
+        resources.ApplyResources(Me.txtPW, "txtPW")
+        Me.txtPW.Name = "txtPW"
+        Me.txtPW.UseSystemPasswordChar = True
+        '
+        'Label4
+        '
+        resources.ApplyResources(Me.Label4, "Label4")
+        Me.Label4.Name = "Label4"
+        '
+        'txtUser
+        '
+        resources.ApplyResources(Me.txtUser, "txtUser")
+        Me.txtUser.Name = "txtUser"
+        '
+        'Label6
+        '
+        resources.ApplyResources(Me.Label6, "Label6")
+        Me.Label6.Name = "Label6"
+        '
+        'txtDomäne
+        '
+        resources.ApplyResources(Me.txtDomäne, "txtDomäne")
+        Me.txtDomäne.Name = "txtDomäne"
+        '
+        'Label7
+        '
+        resources.ApplyResources(Me.Label7, "Label7")
+        Me.Label7.Name = "Label7"
+        '
+        'Label8
+        '
+        resources.ApplyResources(Me.Label8, "Label8")
+        Me.Label8.Name = "Label8"
+        '
         'frmConfiguration_Basic
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.GroupBox5)
         Me.Controls.Add(Me.GroupBox4)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.chkChildWindow)
@@ -192,6 +274,8 @@ Partial Class frmConfiguration_Basic
         CType(Me.pbBackground, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox4.ResumeLayout(False)
         Me.GroupBox4.PerformLayout()
+        Me.GroupBox5.ResumeLayout(False)
+        Me.GroupBox5.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -207,7 +291,6 @@ Partial Class frmConfiguration_Basic
     Friend WithEvents chkUnicode As System.Windows.Forms.CheckBox
     Friend WithEvents btnsave As System.Windows.Forms.Button
     Friend WithEvents lblSaveresult As System.Windows.Forms.Label
-    Friend WithEvents chkChildWindow As System.Windows.Forms.CheckBox
     Friend WithEvents pbBackground As System.Windows.Forms.PictureBox
     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
     Friend WithEvents btnResetBackground As System.Windows.Forms.Button
@@ -215,4 +298,16 @@ Partial Class frmConfiguration_Basic
     Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
     Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
     Friend WithEvents txtProductName As System.Windows.Forms.TextBox
+    Friend WithEvents chkChildWindow As System.Windows.Forms.CheckBox
+    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+    Friend WithEvents btnTest_Anmeldung As System.Windows.Forms.Button
+    Friend WithEvents txtServername As System.Windows.Forms.TextBox
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents txtPW As System.Windows.Forms.TextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents txtUser As System.Windows.Forms.TextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents txtDomäne As System.Windows.Forms.TextBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label8 As System.Windows.Forms.Label
 End Class

app/DD-Record-Organiser/frmConfiguration_Basic.vb

@@ -1,4 +1,5 @@
-Public Class frmConfiguration_Basic
+Imports DD_Rights
+Public Class frmConfiguration_Basic
     Dim loaded As Boolean = False
     Dim changes_ModuleKonfig As Boolean = False
     Dim changes_Konfig As Boolean = False
@@ -26,6 +27,19 @@
             If Not dt Is Nothing Then
                 If dt.Rows.Count = 1 Then
                     Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
+                    Me.txtDomäne.Text = dt.Rows(0).Item("AD_DOMAIN")
+                    Me.txtUser.Text = dt.Rows(0).Item("AD_USER")
+                    Dim PWplainText As String
+                    Dim wrapper As New ClassEncryption("!35452didalog=")
+                    ' DecryptData throws if the wrong password is used.
+                    Try
+                        PWplainText = wrapper.DecryptData(dt.Rows(0).Item("AD_USER_PW"))
+                        Me.txtPW.Text = PWplainText
+                    Catch ex As Exception
+                        ClassLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
+                        Me.txtPW.Text = ""
+                    End Try
+                    Me.txtServername.Text = dt.Rows(0).Item("AD_SERVER")
                 End If
             End If
         Catch ex As Exception
@@ -40,7 +54,7 @@
             btnsave.Enabled = True
         End If
     End Sub
-   
+
     Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnicode.CheckedChanged
         If loaded = True Then
             changes_Konfig = True
@@ -88,8 +102,9 @@
                 If chkUnicode.Checked Then
                     wduni = 1
                 End If
-                Dim sql As String = "UPDATE TBPMO_KONFIGURATION SET WD_UNICODE = " & wduni & ",CHANGED_WHO = '" & Environment.UserName & "' where GUID = 1"
+                Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}',WD_UNICODE = {5} WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtServername.Text, Environment.UserName, wduni)
-                If ClassDatabase.Execute_non_Query(sql, True) = True Then
+
+                If ClassDatabase.Execute_non_Query(upd, True) = True Then
                     lblSaveresult.Visible = True
                 Else
                     lblSaveresult.Visible = False
@@ -125,4 +140,48 @@
         pbBackground.ImageLocation = Nothing
         pbBackground.Image = Nothing
     End Sub
+
+    Private Sub btnTest_Anmeldung_Click(sender As Object, e As EventArgs) Handles btnTest_Anmeldung.Click
+        Dim session = DD_Rights.ClassRights.GetWMSessionAsUser(Me.txtDomäne.Text, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text)
+        If Not IsNothing(session) Then
+            MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
+            Dim wrapper As New ClassEncryption("!35452didalog=")
+            Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text)
+            Dim pw As String = cipherText
+
+            Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, Environment.UserName)
+            ClassDatabase.Execute_non_Query(upd)
+            btnsave.Enabled = False
+        Else
+            MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)
+        End If
+    End Sub
+
+    Private Sub txtDomäne_TextChanged(sender As Object, e As EventArgs) Handles txtDomäne.TextChanged
+        If loaded = True Then
+            changes_Konfig = True
+            btnsave.Enabled = True
+        End If
+    End Sub
+
+    Private Sub txtUser_TextChanged(sender As Object, e As EventArgs) Handles txtUser.TextChanged
+        If loaded = True Then
+            changes_Konfig = True
+            btnsave.Enabled = True
+        End If
+    End Sub
+
+    Private Sub txtPW_TextChanged(sender As Object, e As EventArgs) Handles txtPW.TextChanged
+        If loaded = True Then
+            changes_Konfig = True
+            btnsave.Enabled = True
+        End If
+    End Sub
+
+    Private Sub txtServername_TextChanged(sender As Object, e As EventArgs) Handles txtServername.TextChanged
+        If loaded = True Then
+            changes_Konfig = True
+            btnsave.Enabled = True
+        End If
+    End Sub
 End Class

app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb

@@ -33,17 +33,12 @@ Partial Class frmConstructorDesigner
         Dim CHANGED_WHOLabel As System.Windows.Forms.Label
         Dim CHANGED_WHENLabel As System.Windows.Forms.Label
         Dim GUIDLabel1 As System.Windows.Forms.Label
-        Dim WINDREAM_SEARCHLabel As System.Windows.Forms.Label
         Dim ADDED_WHOLabel1 As System.Windows.Forms.Label
         Dim ADDED_WHENLabel1 As System.Windows.Forms.Label
         Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label
         Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label
         Dim SQL_SELECT_EBENE1Label As System.Windows.Forms.Label
         Dim COLUMN_NAME1Label1 As System.Windows.Forms.Label
-        Dim SEARCH_PATTERN1Label1 As System.Windows.Forms.Label
-        Dim SEARCH_PATTERN2Label1 As System.Windows.Forms.Label
-        Dim SEARCH_PATTERN3Label As System.Windows.Forms.Label
-        Dim SEARCH_PATTERN4Label As System.Windows.Forms.Label
         Dim GUIDLabel2 As System.Windows.Forms.Label
         Dim SQL_COMMANDLabel As System.Windows.Forms.Label
         Dim ADDED_WHOLabel2 As System.Windows.Forms.Label
@@ -53,8 +48,8 @@ Partial Class frmConstructorDesigner
         Dim Label19 As System.Windows.Forms.Label
         Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel As System.Windows.Forms.Label
         Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
         Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
@@ -88,7 +83,6 @@ Partial Class frmConstructorDesigner
         Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
         Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
         Me.LEVEL1_SELECTCheckBox = New System.Windows.Forms.CheckBox()
-        Me.WINDREAM_SEARCHTextBox = New System.Windows.Forms.TextBox()
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
@@ -121,33 +115,21 @@ Partial Class frmConstructorDesigner
         Me.listBoxControls = New System.Windows.Forms.ListBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
-        Me.chkWDSearch_Active = New System.Windows.Forms.CheckBox()
+        Me.GroupBoxDocSearch = New System.Windows.Forms.GroupBox()
-        Me.grpbxWD_RecordSearch = New System.Windows.Forms.GroupBox()
+        Me.TBWH_Users2BindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.lblSave1 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.txtWindreamsuche = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.cmbSearchPattern5 = New System.Windows.Forms.ComboBox()
-        Me.cmbSearchPattern1 = New System.Windows.Forms.ComboBox()
         Me.Label11 = New System.Windows.Forms.Label()
-        Me.btnWindreamsuche = New System.Windows.Forms.Button()
+        Me.cmbRight = New System.Windows.Forms.ComboBox()
-        Me.Label14 = New System.Windows.Forms.Label()
+        Me.btnDeleteUserSupervisor = New System.Windows.Forms.Button()
-        Me.cmbSearchPattern4 = New System.Windows.Forms.ComboBox()
+        Me.btnAddUser2Supervisor = New System.Windows.Forms.Button()
-        Me.cmbSearchPattern3 = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
-        Me.cmbSearchPattern2 = New System.Windows.Forms.ComboBox()
-        Me.Label13 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblSaveDocSearch = New System.Windows.Forms.Label()
-        Me.SEARCH_PATTERN4ComboBox = New System.Windows.Forms.ComboBox()
+        Me.chkWDSearch_Active = New System.Windows.Forms.CheckBox()
-        Me.SEARCH_PATTERN1ComboBox = New System.Windows.Forms.ComboBox()
-        Me.SEARCH_PATTERN3ComboBox = New System.Windows.Forms.ComboBox()
-        Me.SEARCH_PATTERN2ComboBox = New System.Windows.Forms.ComboBox()
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.GridControlUserSQL = New DevExpress.XtraGrid.GridControl()
-        Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.GridViewUserSQL = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -217,6 +199,18 @@ Partial Class frmConstructorDesigner
         Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridControlSupervisorAdd = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSupervisorsAdd = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn10 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn11 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn12 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn13 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn14 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn15 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn16 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn17 = New DevExpress.XtraGrid.Columns.GridColumn()
         GUIDLabel = New System.Windows.Forms.Label()
         FORM_TITLELabel = New System.Windows.Forms.Label()
         SEQUENCE_MENULabel = New System.Windows.Forms.Label()
@@ -226,17 +220,12 @@ Partial Class frmConstructorDesigner
         CHANGED_WHOLabel = New System.Windows.Forms.Label()
         CHANGED_WHENLabel = New System.Windows.Forms.Label()
         GUIDLabel1 = New System.Windows.Forms.Label()
-        WINDREAM_SEARCHLabel = New System.Windows.Forms.Label()
         ADDED_WHOLabel1 = New System.Windows.Forms.Label()
         ADDED_WHENLabel1 = New System.Windows.Forms.Label()
         CHANGED_WHOLabel1 = New System.Windows.Forms.Label()
         CHANGED_WHENLabel1 = New System.Windows.Forms.Label()
         SQL_SELECT_EBENE1Label = New System.Windows.Forms.Label()
         COLUMN_NAME1Label1 = New System.Windows.Forms.Label()
-        SEARCH_PATTERN1Label1 = New System.Windows.Forms.Label()
-        SEARCH_PATTERN2Label1 = New System.Windows.Forms.Label()
-        SEARCH_PATTERN3Label = New System.Windows.Forms.Label()
-        SEARCH_PATTERN4Label = New System.Windows.Forms.Label()
         GUIDLabel2 = New System.Windows.Forms.Label()
         SQL_COMMANDLabel = New System.Windows.Forms.Label()
         ADDED_WHOLabel2 = New System.Windows.Forms.Label()
@@ -261,13 +250,13 @@ Partial Class frmConstructorDesigner
         Me.XtraTabPage3.SuspendLayout()
         Me.XtraTabPage5.SuspendLayout()
         Me.XtraTabPage4.SuspendLayout()
-        Me.grpbxWD_RecordSearch.SuspendLayout()
+        Me.GroupBoxDocSearch.SuspendLayout()
-        Me.GroupBox1.SuspendLayout()
+        CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPage2.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         CType(Me.GridControlUserSQL, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridViewUserSQL, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -284,6 +273,10 @@ Partial Class frmConstructorDesigner
         CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControlSupervisorAdd, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSupervisorsAdd, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GUIDLabel
@@ -331,11 +324,6 @@ Partial Class frmConstructorDesigner
         resources.ApplyResources(GUIDLabel1, "GUIDLabel1")
         GUIDLabel1.Name = "GUIDLabel1"
         '
-        'WINDREAM_SEARCHLabel
-        '
-        resources.ApplyResources(WINDREAM_SEARCHLabel, "WINDREAM_SEARCHLabel")
-        WINDREAM_SEARCHLabel.Name = "WINDREAM_SEARCHLabel"
-        '
         'ADDED_WHOLabel1
         '
         resources.ApplyResources(ADDED_WHOLabel1, "ADDED_WHOLabel1")
@@ -366,26 +354,6 @@ Partial Class frmConstructorDesigner
         resources.ApplyResources(COLUMN_NAME1Label1, "COLUMN_NAME1Label1")
         COLUMN_NAME1Label1.Name = "COLUMN_NAME1Label1"
         '
-        'SEARCH_PATTERN1Label1
-        '
-        resources.ApplyResources(SEARCH_PATTERN1Label1, "SEARCH_PATTERN1Label1")
-        SEARCH_PATTERN1Label1.Name = "SEARCH_PATTERN1Label1"
-        '
-        'SEARCH_PATTERN2Label1
-        '
-        resources.ApplyResources(SEARCH_PATTERN2Label1, "SEARCH_PATTERN2Label1")
-        SEARCH_PATTERN2Label1.Name = "SEARCH_PATTERN2Label1"
-        '
-        'SEARCH_PATTERN3Label
-        '
-        resources.ApplyResources(SEARCH_PATTERN3Label, "SEARCH_PATTERN3Label")
-        SEARCH_PATTERN3Label.Name = "SEARCH_PATTERN3Label"
-        '
-        'SEARCH_PATTERN4Label
-        '
-        resources.ApplyResources(SEARCH_PATTERN4Label, "SEARCH_PATTERN4Label")
-        SEARCH_PATTERN4Label.Name = "SEARCH_PATTERN4Label"
-        '
         'GUIDLabel2
         '
         resources.ApplyResources(GUIDLabel2, "GUIDLabel2")
@@ -645,13 +613,6 @@ Partial Class frmConstructorDesigner
         Me.LEVEL1_SELECTCheckBox.Name = "LEVEL1_SELECTCheckBox"
         Me.LEVEL1_SELECTCheckBox.UseVisualStyleBackColor = True
         '
-        'WINDREAM_SEARCHTextBox
-        '
-        Me.WINDREAM_SEARCHTextBox.BackColor = System.Drawing.SystemColors.Info
-        Me.WINDREAM_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "WINDREAM_SEARCH", True))
-        resources.ApplyResources(Me.WINDREAM_SEARCHTextBox, "WINDREAM_SEARCHTextBox")
-        Me.WINDREAM_SEARCHTextBox.Name = "WINDREAM_SEARCHTextBox"
-        '
         'XtraTabControl1
         '
         resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1")
@@ -885,175 +846,81 @@ Partial Class frmConstructorDesigner
         '
         'XtraTabPage4
         '
-        Me.XtraTabPage4.Controls.Add(Me.chkWDSearch_Active)
-        Me.XtraTabPage4.Controls.Add(Me.grpbxWD_RecordSearch)
-        Me.XtraTabPage4.Controls.Add(Me.GroupBox1)
-        Me.XtraTabPage4.Name = "XtraTabPage4"
         resources.ApplyResources(Me.XtraTabPage4, "XtraTabPage4")
+        Me.XtraTabPage4.Controls.Add(Me.GroupBoxDocSearch)
+        Me.XtraTabPage4.Controls.Add(Me.lblSaveDocSearch)
+        Me.XtraTabPage4.Controls.Add(Me.chkWDSearch_Active)
+        Me.XtraTabPage4.Name = "XtraTabPage4"
         '
-        'chkWDSearch_Active
+        'GroupBoxDocSearch
         '
-        resources.ApplyResources(Me.chkWDSearch_Active, "chkWDSearch_Active")
+        resources.ApplyResources(Me.GroupBoxDocSearch, "GroupBoxDocSearch")
-        Me.chkWDSearch_Active.Name = "chkWDSearch_Active"
+        Me.GroupBoxDocSearch.Controls.Add(Me.GridControl2)
-        Me.chkWDSearch_Active.UseVisualStyleBackColor = True
+        Me.GroupBoxDocSearch.Controls.Add(Me.GridControlSupervisorAdd)
+        Me.GroupBoxDocSearch.Controls.Add(Me.Label11)
+        Me.GroupBoxDocSearch.Controls.Add(Me.cmbRight)
+        Me.GroupBoxDocSearch.Controls.Add(Me.btnDeleteUserSupervisor)
+        Me.GroupBoxDocSearch.Controls.Add(Me.btnAddUser2Supervisor)
+        Me.GroupBoxDocSearch.Controls.Add(Me.Label9)
+        Me.GroupBoxDocSearch.Controls.Add(Me.Label7)
+        Me.GroupBoxDocSearch.Name = "GroupBoxDocSearch"
+        Me.GroupBoxDocSearch.TabStop = False
         '
-        'grpbxWD_RecordSearch
+        'TBWH_Users2BindingSource
         '
-        resources.ApplyResources(Me.grpbxWD_RecordSearch, "grpbxWD_RecordSearch")
+        Me.TBWH_Users2BindingSource.DataMember = "TBWH_Users2"
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.lblSave1)
+        Me.TBWH_Users2BindingSource.DataSource = Me.DD_ECMAdmin
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.Label9)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.txtWindreamsuche)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.Label15)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.cmbSearchPattern5)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.cmbSearchPattern1)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.Label11)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.btnWindreamsuche)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.Label14)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.cmbSearchPattern4)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.cmbSearchPattern3)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.cmbSearchPattern2)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.Label13)
-        Me.grpbxWD_RecordSearch.Controls.Add(Me.Label7)
-        Me.grpbxWD_RecordSearch.Name = "grpbxWD_RecordSearch"
-        Me.grpbxWD_RecordSearch.TabStop = False
-        '
-        'lblSave1
-        '
-        resources.ApplyResources(Me.lblSave1, "lblSave1")
-        Me.lblSave1.BackColor = System.Drawing.Color.Yellow
-        Me.lblSave1.Name = "lblSave1"
-        '
-        'Label9
-        '
-        resources.ApplyResources(Me.Label9, "Label9")
-        Me.Label9.Name = "Label9"
-        '
-        'txtWindreamsuche
-        '
-        Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info
-        resources.ApplyResources(Me.txtWindreamsuche, "txtWindreamsuche")
-        Me.txtWindreamsuche.Name = "txtWindreamsuche"
-        '
-        'Label15
-        '
-        resources.ApplyResources(Me.Label15, "Label15")
-        Me.Label15.Name = "Label15"
-        '
-        'cmbSearchPattern5
-        '
-        resources.ApplyResources(Me.cmbSearchPattern5, "cmbSearchPattern5")
-        Me.cmbSearchPattern5.FormattingEnabled = True
-        Me.cmbSearchPattern5.Items.AddRange(New Object() {resources.GetString("cmbSearchPattern5.Items"), resources.GetString("cmbSearchPattern5.Items1")})
-        Me.cmbSearchPattern5.Name = "cmbSearchPattern5"
-        '
-        'cmbSearchPattern1
-        '
-        resources.ApplyResources(Me.cmbSearchPattern1, "cmbSearchPattern1")
-        Me.cmbSearchPattern1.FormattingEnabled = True
-        Me.cmbSearchPattern1.Items.AddRange(New Object() {resources.GetString("cmbSearchPattern1.Items"), resources.GetString("cmbSearchPattern1.Items1")})
-        Me.cmbSearchPattern1.Name = "cmbSearchPattern1"
         '
         'Label11
         '
         resources.ApplyResources(Me.Label11, "Label11")
         Me.Label11.Name = "Label11"
         '
-        'btnWindreamsuche
+        'cmbRight
         '
-        resources.ApplyResources(Me.btnWindreamsuche, "btnWindreamsuche")
+        Me.cmbRight.FormattingEnabled = True
-        Me.btnWindreamsuche.Name = "btnWindreamsuche"
+        Me.cmbRight.Items.AddRange(New Object() {resources.GetString("cmbRight.Items"), resources.GetString("cmbRight.Items1"), resources.GetString("cmbRight.Items2")})
-        Me.btnWindreamsuche.UseVisualStyleBackColor = True
+        resources.ApplyResources(Me.cmbRight, "cmbRight")
+        Me.cmbRight.Name = "cmbRight"
         '
-        'Label14
+        'btnDeleteUserSupervisor
         '
-        resources.ApplyResources(Me.Label14, "Label14")
+        resources.ApplyResources(Me.btnDeleteUserSupervisor, "btnDeleteUserSupervisor")
-        Me.Label14.Name = "Label14"
+        Me.btnDeleteUserSupervisor.Name = "btnDeleteUserSupervisor"
+        Me.btnDeleteUserSupervisor.UseVisualStyleBackColor = True
         '
-        'cmbSearchPattern4
+        'btnAddUser2Supervisor
         '
-        resources.ApplyResources(Me.cmbSearchPattern4, "cmbSearchPattern4")
+        resources.ApplyResources(Me.btnAddUser2Supervisor, "btnAddUser2Supervisor")
-        Me.cmbSearchPattern4.FormattingEnabled = True
+        Me.btnAddUser2Supervisor.Name = "btnAddUser2Supervisor"
-        Me.cmbSearchPattern4.Items.AddRange(New Object() {resources.GetString("cmbSearchPattern4.Items"), resources.GetString("cmbSearchPattern4.Items1")})
+        Me.btnAddUser2Supervisor.UseVisualStyleBackColor = True
-        Me.cmbSearchPattern4.Name = "cmbSearchPattern4"
         '
-        'cmbSearchPattern3
+        'Label9
         '
-        resources.ApplyResources(Me.cmbSearchPattern3, "cmbSearchPattern3")
+        resources.ApplyResources(Me.Label9, "Label9")
-        Me.cmbSearchPattern3.FormattingEnabled = True
+        Me.Label9.Name = "Label9"
-        Me.cmbSearchPattern3.Items.AddRange(New Object() {resources.GetString("cmbSearchPattern3.Items"), resources.GetString("cmbSearchPattern3.Items1")})
-        Me.cmbSearchPattern3.Name = "cmbSearchPattern3"
-        '
-        'cmbSearchPattern2
-        '
-        resources.ApplyResources(Me.cmbSearchPattern2, "cmbSearchPattern2")
-        Me.cmbSearchPattern2.FormattingEnabled = True
-        Me.cmbSearchPattern2.Items.AddRange(New Object() {resources.GetString("cmbSearchPattern2.Items"), resources.GetString("cmbSearchPattern2.Items1")})
-        Me.cmbSearchPattern2.Name = "cmbSearchPattern2"
-        '
-        'Label13
-        '
-        resources.ApplyResources(Me.Label13, "Label13")
-        Me.Label13.Name = "Label13"
         '
         'Label7
         '
         resources.ApplyResources(Me.Label7, "Label7")
         Me.Label7.Name = "Label7"
         '
-        'GroupBox1
+        'TBWH_Users1BindingSource
         '
-        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
+        Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1"
-        Me.GroupBox1.Controls.Add(Me.Button1)
+        Me.TBWH_Users1BindingSource.DataSource = Me.DD_ECMAdmin
-        Me.GroupBox1.Controls.Add(WINDREAM_SEARCHLabel)
-        Me.GroupBox1.Controls.Add(SEARCH_PATTERN4Label)
-        Me.GroupBox1.Controls.Add(Me.WINDREAM_SEARCHTextBox)
-        Me.GroupBox1.Controls.Add(Me.SEARCH_PATTERN4ComboBox)
-        Me.GroupBox1.Controls.Add(Me.SEARCH_PATTERN1ComboBox)
-        Me.GroupBox1.Controls.Add(SEARCH_PATTERN3Label)
-        Me.GroupBox1.Controls.Add(SEARCH_PATTERN1Label1)
-        Me.GroupBox1.Controls.Add(Me.SEARCH_PATTERN3ComboBox)
-        Me.GroupBox1.Controls.Add(Me.SEARCH_PATTERN2ComboBox)
-        Me.GroupBox1.Controls.Add(SEARCH_PATTERN2Label1)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.TabStop = False
         '
-        'Button1
+        'lblSaveDocSearch
         '
-        resources.ApplyResources(Me.Button1, "Button1")
+        resources.ApplyResources(Me.lblSaveDocSearch, "lblSaveDocSearch")
-        Me.Button1.Name = "Button1"
+        Me.lblSaveDocSearch.BackColor = System.Drawing.Color.Yellow
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.lblSaveDocSearch.Name = "lblSaveDocSearch"
         '
-        'SEARCH_PATTERN4ComboBox
+        'chkWDSearch_Active
         '
-        Me.SEARCH_PATTERN4ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN4", True))
+        resources.ApplyResources(Me.chkWDSearch_Active, "chkWDSearch_Active")
-        Me.SEARCH_PATTERN4ComboBox.FormattingEnabled = True
+        Me.chkWDSearch_Active.Name = "chkWDSearch_Active"
-        Me.SEARCH_PATTERN4ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN4ComboBox.Items"), resources.GetString("SEARCH_PATTERN4ComboBox.Items1"), resources.GetString("SEARCH_PATTERN4ComboBox.Items2")})
+        Me.chkWDSearch_Active.UseVisualStyleBackColor = True
-        resources.ApplyResources(Me.SEARCH_PATTERN4ComboBox, "SEARCH_PATTERN4ComboBox")
-        Me.SEARCH_PATTERN4ComboBox.Name = "SEARCH_PATTERN4ComboBox"
-        '
-        'SEARCH_PATTERN1ComboBox
-        '
-        Me.SEARCH_PATTERN1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN1", True))
-        Me.SEARCH_PATTERN1ComboBox.FormattingEnabled = True
-        Me.SEARCH_PATTERN1ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN1ComboBox.Items"), resources.GetString("SEARCH_PATTERN1ComboBox.Items1"), resources.GetString("SEARCH_PATTERN1ComboBox.Items2")})
-        resources.ApplyResources(Me.SEARCH_PATTERN1ComboBox, "SEARCH_PATTERN1ComboBox")
-        Me.SEARCH_PATTERN1ComboBox.Name = "SEARCH_PATTERN1ComboBox"
-        '
-        'SEARCH_PATTERN3ComboBox
-        '
-        Me.SEARCH_PATTERN3ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN3", True))
-        Me.SEARCH_PATTERN3ComboBox.FormattingEnabled = True
-        Me.SEARCH_PATTERN3ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN3ComboBox.Items"), resources.GetString("SEARCH_PATTERN3ComboBox.Items1"), resources.GetString("SEARCH_PATTERN3ComboBox.Items2")})
-        resources.ApplyResources(Me.SEARCH_PATTERN3ComboBox, "SEARCH_PATTERN3ComboBox")
-        Me.SEARCH_PATTERN3ComboBox.Name = "SEARCH_PATTERN3ComboBox"
-        '
-        'SEARCH_PATTERN2ComboBox
-        '
-        Me.SEARCH_PATTERN2ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN2", True))
-        Me.SEARCH_PATTERN2ComboBox.FormattingEnabled = True
-        Me.SEARCH_PATTERN2ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN2ComboBox.Items"), resources.GetString("SEARCH_PATTERN2ComboBox.Items1"), resources.GetString("SEARCH_PATTERN2ComboBox.Items2")})
-        resources.ApplyResources(Me.SEARCH_PATTERN2ComboBox, "SEARCH_PATTERN2ComboBox")
-        Me.SEARCH_PATTERN2ComboBox.Name = "SEARCH_PATTERN2ComboBox"
         '
         'XtraTabPage2
         '
@@ -1105,11 +972,6 @@ Partial Class frmConstructorDesigner
         Me.GridControlUserSQL.ShowOnlyPredefinedDetails = True
         Me.GridControlUserSQL.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserSQL})
         '
-        'TBWH_Users1BindingSource
-        '
-        Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1"
-        Me.TBWH_Users1BindingSource.DataSource = Me.DD_ECMAdmin
-        '
         'GridViewUserSQL
         '
         Me.GridViewUserSQL.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.BackColor"), System.Drawing.Color)
@@ -1166,8 +1028,8 @@ Partial Class frmConstructorDesigner
         '
         Me.dgvResult.AllowUserToAddRows = False
         Me.dgvResult.AllowUserToDeleteRows = False
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Cyan
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan
-        Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         resources.ApplyResources(Me.dgvResult, "dgvResult")
         Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvResult.Name = "dgvResult"
@@ -1177,8 +1039,8 @@ Partial Class frmConstructorDesigner
         '
         Me.dgvPlaceholders.AllowUserToAddRows = False
         Me.dgvPlaceholders.AllowUserToDeleteRows = False
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Cyan
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan
-        Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders")
         Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
@@ -1614,6 +1476,110 @@ Partial Class frmConstructorDesigner
         Me.GridColumn9.FieldName = "ID"
         Me.GridColumn9.Name = "GridColumn9"
         '
+        'GridControlSupervisorAdd
+        '
+        resources.ApplyResources(Me.GridControlSupervisorAdd, "GridControlSupervisorAdd")
+        Me.GridControlSupervisorAdd.DataSource = Me.TBAD_UsersBindingSource
+        Me.GridControlSupervisorAdd.MainView = Me.GridViewSupervisorsAdd
+        Me.GridControlSupervisorAdd.Name = "GridControlSupervisorAdd"
+        Me.GridControlSupervisorAdd.ShowOnlyPredefinedDetails = True
+        Me.GridControlSupervisorAdd.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSupervisorsAdd})
+        '
+        'GridViewSupervisorsAdd
+        '
+        Me.GridViewSupervisorsAdd.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSupervisorsAdd.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewSupervisorsAdd.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView3.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSupervisorsAdd.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridViewSupervisorsAdd.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn10, Me.GridColumn11, Me.GridColumn12, Me.GridColumn13})
+        Me.GridViewSupervisorsAdd.GridControl = Me.GridControlSupervisorAdd
+        Me.GridViewSupervisorsAdd.Name = "GridViewSupervisorsAdd"
+        Me.GridViewSupervisorsAdd.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSupervisorsAdd.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSupervisorsAdd.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSupervisorsAdd.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSupervisorsAdd.OptionsView.ColumnAutoWidth = False
+        Me.GridViewSupervisorsAdd.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSupervisorsAdd.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewSupervisorsAdd.OptionsView.ShowGroupPanel = False
+        '
+        'GridColumn10
+        '
+        resources.ApplyResources(Me.GridColumn10, "GridColumn10")
+        Me.GridColumn10.FieldName = "Select"
+        Me.GridColumn10.Name = "GridColumn10"
+        '
+        'GridColumn11
+        '
+        Me.GridColumn11.FieldName = "Username"
+        Me.GridColumn11.Name = "GridColumn11"
+        Me.GridColumn11.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn11, "GridColumn11")
+        '
+        'GridColumn12
+        '
+        Me.GridColumn12.FieldName = "Email"
+        Me.GridColumn12.Name = "GridColumn12"
+        Me.GridColumn12.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn12, "GridColumn12")
+        '
+        'GridColumn13
+        '
+        Me.GridColumn13.FieldName = "ID"
+        Me.GridColumn13.Name = "GridColumn13"
+        '
+        'GridControl2
+        '
+        resources.ApplyResources(Me.GridControl2, "GridControl2")
+        Me.GridControl2.DataSource = Me.TBWH_Users2BindingSource
+        Me.GridControl2.MainView = Me.GridView2
+        Me.GridControl2.Name = "GridControl2"
+        Me.GridControl2.ShowOnlyPredefinedDetails = True
+        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        '
+        'GridView2
+        '
+        Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridView2.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView2.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
+        Me.GridView2.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn14, Me.GridColumn15, Me.GridColumn16, Me.GridColumn17})
+        Me.GridView2.GridControl = Me.GridControl2
+        Me.GridView2.Name = "GridView2"
+        Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridView2.OptionsView.ColumnAutoWidth = False
+        Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridView2.OptionsView.ShowAutoFilterRow = True
+        Me.GridView2.OptionsView.ShowGroupPanel = False
+        '
+        'GridColumn14
+        '
+        resources.ApplyResources(Me.GridColumn14, "GridColumn14")
+        Me.GridColumn14.FieldName = "Select"
+        Me.GridColumn14.Name = "GridColumn14"
+        '
+        'GridColumn15
+        '
+        Me.GridColumn15.FieldName = "Username"
+        Me.GridColumn15.Name = "GridColumn15"
+        Me.GridColumn15.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn15, "GridColumn15")
+        '
+        'GridColumn16
+        '
+        Me.GridColumn16.FieldName = "Email"
+        Me.GridColumn16.Name = "GridColumn16"
+        Me.GridColumn16.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn16, "GridColumn16")
+        '
+        'GridColumn17
+        '
+        Me.GridColumn17.FieldName = "ID"
+        Me.GridColumn17.Name = "GridColumn17"
+        '
         'frmConstructorDesigner
         '
         resources.ApplyResources(Me, "$this")
@@ -1670,16 +1636,15 @@ Partial Class frmConstructorDesigner
         Me.XtraTabPage5.PerformLayout()
         Me.XtraTabPage4.ResumeLayout(False)
         Me.XtraTabPage4.PerformLayout()
-        Me.grpbxWD_RecordSearch.ResumeLayout(False)
+        Me.GroupBoxDocSearch.ResumeLayout(False)
-        Me.grpbxWD_RecordSearch.PerformLayout()
+        Me.GroupBoxDocSearch.PerformLayout()
-        Me.GroupBox1.ResumeLayout(False)
+        CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.GroupBox1.PerformLayout()
+        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPage2.ResumeLayout(False)
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
         CType(Me.GridControlUserSQL, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridViewUserSQL, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1699,6 +1664,10 @@ Partial Class frmConstructorDesigner
         CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlSupervisorAdd, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSupervisorsAdd, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1734,7 +1703,6 @@ Partial Class frmConstructorDesigner
     Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox
     Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox
     Friend WithEvents LEVEL1_SELECTCheckBox As System.Windows.Forms.CheckBox
-    Friend WithEvents WINDREAM_SEARCHTextBox As System.Windows.Forms.TextBox
     Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
     Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
@@ -1758,30 +1726,9 @@ Partial Class frmConstructorDesigner
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents COLUMN_NAME1ComboBox As System.Windows.Forms.ComboBox
     Friend WithEvents Label4 As System.Windows.Forms.Label
-    Friend WithEvents SEARCH_PATTERN4ComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents SEARCH_PATTERN3ComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents SEARCH_PATTERN2ComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents SEARCH_PATTERN1ComboBox As System.Windows.Forms.ComboBox
     Friend WithEvents lblSave As System.Windows.Forms.Label
-    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
-    Friend WithEvents cmbSearchPattern5 As System.Windows.Forms.ComboBox
-    Friend WithEvents cmbSearchPattern4 As System.Windows.Forms.ComboBox
-    Friend WithEvents cmbSearchPattern3 As System.Windows.Forms.ComboBox
-    Friend WithEvents cmbSearchPattern2 As System.Windows.Forms.ComboBox
-    Friend WithEvents Label7 As System.Windows.Forms.Label
-    Friend WithEvents cmbSearchPattern1 As System.Windows.Forms.ComboBox
-    Friend WithEvents btnWindreamsuche As System.Windows.Forms.Button
-    Friend WithEvents txtWindreamsuche As System.Windows.Forms.TextBox
-    Friend WithEvents Label9 As System.Windows.Forms.Label
-    Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog
-    Friend WithEvents grpbxWD_RecordSearch As System.Windows.Forms.GroupBox
-    Friend WithEvents Label11 As System.Windows.Forms.Label
-    Friend WithEvents Label14 As System.Windows.Forms.Label
-    Friend WithEvents Label13 As System.Windows.Forms.Label
-    Friend WithEvents Label15 As System.Windows.Forms.Label
     Friend WithEvents chkWDSearch_Active As System.Windows.Forms.CheckBox
-    Friend WithEvents lblSave1 As System.Windows.Forms.Label
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents listBoxControls As System.Windows.Forms.ListBox
@@ -1865,4 +1812,25 @@ Partial Class frmConstructorDesigner
     Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents lblSaveDocSearch As System.Windows.Forms.Label
+    Friend WithEvents GroupBoxDocSearch As System.Windows.Forms.GroupBox
+    Friend WithEvents btnDeleteUserSupervisor As System.Windows.Forms.Button
+    Friend WithEvents btnAddUser2Supervisor As System.Windows.Forms.Button
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents TBWH_Users2BindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents cmbRight As System.Windows.Forms.ComboBox
+    Friend WithEvents GridControlSupervisorAdd As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSupervisorsAdd As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridColumn10 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn11 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn12 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn13 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridColumn14 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn15 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn16 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn17 As DevExpress.XtraGrid.Columns.GridColumn
 End Class

app/DD-Record-Organiser/frmConstructorDesigner.vb

@@ -164,71 +164,11 @@ Public Class frmConstructorDesigner
     Public Sub RecordSearch_Config()
         Try
             'Zurücksetzen
-            txtWindreamsuche.Text = ""
+       
-            cmbSearchPattern1.SelectedIndex = -1
-            cmbSearchPattern2.SelectedIndex = -1
-            cmbSearchPattern3.SelectedIndex = -1
-            cmbSearchPattern4.SelectedIndex = -1
-            cmbSearchPattern5.SelectedIndex = -1
             Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
 
             If res = True Then
                 chkWDSearch_Active.Checked = True
-
-                Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
-                If DT.Rows.Count = 1 Then
-                    If Not IsDBNull(DT.Rows(0).Item(0)) Then
-                        txtWindreamsuche.Text = ClassHelper.CheckDBNull(DT.Rows(0).Item(0), "String")
-                        'Form-ID (Entity)
-                        'Record -ID
-                        Dim result
-                        result = ClassHelper.CheckDBNull(DT.Rows(0).Item(1), "String")
-                        If result <> "" Then
-                            If result.ToString.ToUpper.Contains("RECORD") Then
-                                cmbSearchPattern1.SelectedIndex = 1
-                            Else
-                                cmbSearchPattern1.SelectedIndex = 0
-                            End If
-                        End If
-                        result = ClassHelper.CheckDBNull(DT.Rows(0).Item(2), "String")
-                        If result <> "" Then
-                            If result.ToString.ToUpper.Contains("RECORD") Then
-                                cmbSearchPattern2.SelectedIndex = 1
-                            Else
-                                cmbSearchPattern2.SelectedIndex = 0
-                            End If
-                        End If
-                        result = ClassHelper.CheckDBNull(DT.Rows(0).Item(3), "String")
-                        If result <> "" Then
-                            If result.ToString.ToUpper.Contains("RECORD") Then
-                                cmbSearchPattern3.SelectedIndex = 1
-                            Else
-                                cmbSearchPattern3.SelectedIndex = 0
-                            End If
-                        End If
-                        result = ClassHelper.CheckDBNull(DT.Rows(0).Item(4), "String")
-                        If result <> "" Then
-                            If result.ToString.ToUpper.Contains("RECORD") Then
-                                cmbSearchPattern4.SelectedIndex = 1
-                            Else
-                                cmbSearchPattern4.SelectedIndex = 0
-                            End If
-                        End If
-                        result = ClassHelper.CheckDBNull(DT.Rows(0).Item(5), "String")
-                        If result <> "" Then
-                            If result.ToString.ToUpper.Contains("RECORD") Then
-                                cmbSearchPattern5.SelectedIndex = 1
-                            Else
-                                cmbSearchPattern5.SelectedIndex = 0
-                            End If
-                        End If
-                        'cmbSearchPattern1.SelectedIndex = cmbSearchPattern1.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(1), "String"))
-                        'cmbSearchPattern2.SelectedIndex = cmbSearchPattern2.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(2), "String"))
-                        'cmbSearchPattern3.SelectedIndex = cmbSearchPattern3.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(3), "String"))
-                        'cmbSearchPattern4.SelectedIndex = cmbSearchPattern4.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(4), "String"))
-                        'cmbSearchPattern5.SelectedIndex = cmbSearchPattern5.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(5), "String"))
-                    End If
-                End If
             Else
                 chkWDSearch_Active.Checked = False
             End If
@@ -299,6 +239,7 @@ Public Class frmConstructorDesigner
         If formloaded = True Then
             Try
                 If CONSTRUCTOR_IDTextBox.Text <> "" Then
+
                     LANGUAGETextBox.Text = USER_LANGUAGE
                     Load_TreeViewEbene()
                     Load_ConstructorUser()
@@ -316,7 +257,6 @@ Public Class frmConstructorDesigner
                 SELECTED_CONSTRUCTOR_DETAIL_ID = construct_id
                 Me.tslblSaveDetail.Visible = False
                 Load_Detail(construct_id)
-                lblSave1.Visible = False
                 Select Case XtraTabControl2.SelectedTabPageIndex
                     Case 0
                         Load_QuickDisplay()
@@ -325,7 +265,7 @@ Public Class frmConstructorDesigner
                     Case 2
                         RecordSearch_Config()
                     Case 3
-                        Load_UserSQL()
+                        Load_TBWH_Users1()
                     Case 4
                         Load_Client_Entity()
                         Load_ClientsforEntity()
@@ -385,45 +325,26 @@ Public Class frmConstructorDesigner
         If XtraTabControl2.SelectedTabPageIndex = 2 Then
             Try
                 Try
-                    Dim SP1, SP2, SP3, SP4, SP5
+                    lblSaveDocSearch.Visible = False
-                    If cmbSearchPattern1.SelectedIndex <> -1 Then
+                    Dim docsearch As Integer
-                        SP1 = "@" & cmbSearchPattern1.Text
+                    If chkWDSearch_Active.Checked Then
+                        docsearch = 1
                     Else
-                        SP1 = ""
+                        docsearch = 0
                     End If
-                    If cmbSearchPattern2.SelectedIndex <> -1 Then
+
-                        SP2 = "@" & cmbSearchPattern2.Text
+                    Dim sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = " & docsearch & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
-                    Else
-                        SP2 = ""
-                    End If
-                    If cmbSearchPattern3.SelectedIndex <> -1 Then
-                        SP3 = "@" & cmbSearchPattern3.Text
-                    Else
-                        SP3 = ""
-                    End If
-                    If cmbSearchPattern4.SelectedIndex <> -1 Then
-                        SP4 = "@" & cmbSearchPattern4.Text
-                    Else
-                        SP4 = ""
-                    End If
-                    If cmbSearchPattern5.SelectedIndex <> -1 Then
-                        SP5 = "@" & cmbSearchPattern5.Text
-                    Else
-                        SP5 = ""
-                    End If
-                    Dim sql = "UPDATE TBPMO_FORM_VIEW SET WINDREAM_SEARCH = '" & txtWindreamsuche.Text & "',SEARCH_PATTERN1 = '" & SP1 & "',SEARCH_PATTERN2= '" & SP2 & "',SEARCH_PATTERN3= '" & SP3 & _
-                             "',SEARCH_PATTERN4 = '" & SP4 & "',SEARCH_PATTERN5 = '" & SP5 & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
                     If ClassDatabase.Execute_non_Query(sql) = True Then
-                        lblSave1.Visible = True
+                        lblSaveDocSearch.Visible = True
-                        lblSave1.Text = "Data saved - " & Now
+                        lblSaveDocSearch.Text = "Data saved - " & Now
                     End If
                 Catch ex As Exception
                     MsgBox("Error in Save DocView-properties 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                    lblSave1.Visible = False
+                    lblSaveDocSearch.Visible = False
                 End Try
             Catch ex As Exception
                 MsgBox("Error in Save DocView-properties 1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                lblSave1.Visible = False
+                lblSaveDocSearch.Visible = False
             End Try
         End If
 
@@ -445,40 +366,22 @@ Public Class frmConstructorDesigner
         End If
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If Not Me.txtWindreamsuche.Text = "" Then
-            Me.OFDWindreamsuche.FileName = Me.WINDREAM_SEARCHTextBox.Text
-        End If
-
-        If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
-            Me.WINDREAM_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
-        End If
-    End Sub
-
-    Private Sub btnWindreamsuche_Click(sender As Object, e As EventArgs) Handles btnWindreamsuche.Click
-        If Not Me.txtWindreamsuche.Text = "" Then
-            Me.OFDWindreamsuche.FileName = Me.txtWindreamsuche.Text
-        End If
-
-        If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
-            Me.txtWindreamsuche.Text = Me.OFDWindreamsuche.FileName
-        End If
-    End Sub
 
     Private Sub chkWDSearch_Active_CheckedChanged(sender As Object, e As EventArgs) Handles chkWDSearch_Active.CheckedChanged
         Try
-            Dim check = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
+            'Dim check = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
-
             If chkWDSearch_Active.Checked Then
-                grpbxWD_RecordSearch.Enabled = True
+                GroupBoxDocSearch.Enabled = True
-                If check = False Then
+                Load_TBAD_Users()
-                    ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
+                Load_Supervisor()
-                End If
+                'If check = False Then
+                '    ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
+                'End If
             Else
-                grpbxWD_RecordSearch.Enabled = False
+                GroupBoxDocSearch.Enabled = False
-                If check = True Then
+                'If check = True Then
-                    ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
+                '    ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
-                End If
+                'End If
             End If
         Catch ex As Exception
             MsgBox("Error in Checked Change WD-Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -493,7 +396,7 @@ Public Class frmConstructorDesigner
             Case 2
                 RecordSearch_Config()
             Case 3
-                Load_UserSQL()
+                Load_TBWH_Users1()
             Case 4
                 Load_Client_Entity()
                 Load_ClientsforEntity()
@@ -541,9 +444,8 @@ Public Class frmConstructorDesigner
     End Sub
     Sub Load_ClientsforEntity()
         Try
-            Dim ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
             Dim sql = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBPMO_CLIENT_ENTITY T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID " & _
-                        "AND T1.GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0}) AND T.ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
+                        "AND T1.GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0}) AND T.ENTITY_ID = {1}", USER_GUID, SELECTED_ENTITY_ID)
 
 
             Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
@@ -555,7 +457,7 @@ Public Class frmConstructorDesigner
             MsgBox("UnexpectedError Load_ClientsforEntity:" & vbNewLine & ex.Message)
         End Try
     End Sub
-    Public Sub Load_UserSQL()
+    Public Sub Load_TBWH_Users1()
         Try
             Dim sql = String.Format("SELECT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
@@ -578,6 +480,54 @@ Public Class frmConstructorDesigner
             MsgBox("UnexpectedError Load_UserSQL:" & vbNewLine & ex.Message)
         End Try
     End Sub
+    Public Sub Load_TBAD_Users()
+        Try
+            Dim sql = String.Format("SELECT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            DD_ECMAdmin.TBAD_Users.Clear()
+            For Each row As DataRow In DT.Rows
+                Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
+                newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
+                newUserRow.Username = row.Item(1)
+                Try
+                    newUserRow.Email = row.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+
+                newUserRow.ID = row.Item(0)
+                DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
+                ' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
+            Next
+        Catch ex As Exception
+            MsgBox("UnexpectedError Load_TBAD_Users:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
+
+    Public Sub Load_Supervisor()
+        Try
+            Dim ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
+            Dim sql = String.Format("SELECT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0}) ORDER BY T.USERNAME", ENTITY_ID)
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            DD_ECMAdmin.TBWH_Users2.Clear()
+            For Each row As DataRow In DT.Rows
+                Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
+                newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row
+                newUserRow.Username = row.Item(1)
+                Try
+                    newUserRow.Email = row.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+
+                newUserRow.ID = row.Item(0)
+                DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow)
+                ' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
+            Next
+        Catch ex As Exception
+            MsgBox("UnexpectedError Load_Supervisor:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
     Private Sub btnAddControl_Click(sender As Object, e As EventArgs) Handles btnAddControl.Click
         Try
             Dim i = listBoxControls.SelectedValue
@@ -930,4 +880,55 @@ Public Class frmConstructorDesigner
             MsgBox("Unexpected error in executing delete-statement! Check log!", MsgBoxStyle.Exclamation)
         End If
     End Sub
+
+    Private Sub btnAddUser2Supervisor_Click(sender As Object, e As EventArgs) Handles btnAddUser2Supervisor.Click
+        Try
+            If cmbRight.Text = "" Then
+                MsgBox("Please choose a right!", MsgBoxStyle.Exclamation)
+                cmbRight.DroppedDown = True
+                Exit Sub
+            End If
+            For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+                If row.Item(0) = CBool(True) Then
+                    Dim right As String
+                    Select Case cmbRight.Text
+                        Case "Admin"
+                            right = "4"
+                        Case "Read/Write/Rights"
+                            right = "6"
+                    End Select
+
+                    Dim sel = String.Format("SELECT COUNT(GUID) FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0} AND USER_ID = {1}", SELECTED_ENTITY_ID, row.Item(5))
+                    If ClassDatabase.Execute_Scalar(sel) = 0 Then
+                        Dim insert = String.Format("INSERT INTO TBPMO_ENTITY_SUPERVISOR ([ENTITY_ID], USER_ID,RIGHT1,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_ENTITY_ID, row.Item(5), right, Environment.UserName)
+                        If ClassDatabase.Execute_non_Query(insert, True) Then
+                        End If
+                    End If
+                End If
+            Next
+            For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+                row.Item(0) = CBool(False)
+            Next
+            Load_Supervisor()
+        Catch ex As Exception
+            MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btnDeleteUserSupervisor_Click(sender As Object, e As EventArgs) Handles btnDeleteUserSupervisor.Click
+        Try
+            Dim refresh As Boolean = False
+            For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
+                If row.Item(0) = CBool(True) Then
+                    Dim delete = String.Format("DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = {0} AND ENTITY_ID = {1}", row.Item(5), SELECTED_ENTITY_ID)
+                    If ClassDatabase.Execute_non_Query(delete, True) Then
+                        refresh = True
+                    End If
+                End If
+            Next
+            If refresh = True Then Load_Supervisor()
+        Catch ex As Exception
+            MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class

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

@@ -74,6 +74,7 @@ Partial Class frmConstructor_Main
         Me.tstbDisplayname = New System.Windows.Forms.ToolStripTextBox()
         Me.TSMI_inWork = New System.Windows.Forms.ToolStripMenuItem()
         Me.TSMI_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
         Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
@@ -472,7 +473,7 @@ Partial Class frmConstructor_Main
         '
         'ContextMenuStripResultFiles
         '
-        Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.ToolStripSeparator8, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
+        Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.tsmiRights, Me.ToolStripSeparator8, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
         Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
         resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
         '
@@ -535,6 +536,12 @@ Partial Class frmConstructor_Main
         Me.TSMI_linkRecord.Name = "TSMI_linkRecord"
         resources.ApplyResources(Me.TSMI_linkRecord, "TSMI_linkRecord")
         '
+        'tsmiRights
+        '
+        Me.tsmiRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly
+        Me.tsmiRights.Name = "tsmiRights"
+        resources.ApplyResources(Me.tsmiRights, "tsmiRights")
+        '
         'ToolStripSeparator8
         '
         Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
@@ -1296,4 +1303,5 @@ Partial Class frmConstructor_Main
     Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents TSMIDisplayname As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents tstbDisplayname As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem
 End Class

app/DD-Record-Organiser/frmConstructor_Main.resx

@@ -325,7 +325,7 @@
     <value>0, 0</value>
   </data>
   <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 237</value>
+    <value>1067, 237</value>
   </data>
   <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -394,7 +394,7 @@
     <value>0, 0</value>
   </data>
   <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
   </data>
   <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -412,7 +412,7 @@
     <value>0</value>
   </data>
   <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
   </data>
   <data name="TabDetails.Text" xml:space="preserve">
     <value>Detailansicht</value>
@@ -430,7 +430,7 @@
     <value>0</value>
   </data>
   <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1362, 378</value>
+    <value>1362, 371</value>
   </data>
   <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -495,6 +495,12 @@
   <data name="TSMI_linkRecord.Text" xml:space="preserve">
     <value>Datei mit Datensatz verknüpfen</value>
   </data>
+  <data name="tsmiRights.Size" type="System.Drawing.Size, System.Drawing">
+    <value>239, 22</value>
+  </data>
+  <data name="tsmiRights.Text" xml:space="preserve">
+    <value>Rechte prüfen und setzen</value>
+  </data>
   <data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
     <value>236, 6</value>
   </data>
@@ -520,7 +526,7 @@
     <value>Ansicht zurücksetzen</value>
   </data>
   <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>240, 226</value>
+    <value>240, 270</value>
   </data>
   <data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
     <value>ContextMenuStripResultFiles</value>
@@ -2433,6 +2439,12 @@
   <data name="&gt;&gt;TSMI_linkRecord.Type" xml:space="preserve">
     <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="&gt;&gt;tsmiRights.Name" xml:space="preserve">
+    <value>tsmiRights</value>
+  </data>
+  <data name="&gt;&gt;tsmiRights.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;ToolStripSeparator8.Name" xml:space="preserve">
     <value>ToolStripSeparator8</value>
   </data>

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -11,6 +11,7 @@ Imports System.IO
 Imports DevExpress.XtraGrid
 Imports WINDREAMLib
 Imports System.Runtime.InteropServices
+Imports DD_Rights
 
 Public Class frmConstructor_Main
   
@@ -1851,8 +1852,8 @@ Public Class frmConstructor_Main
         'LoadControls(thisFormId)
         CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
                                                    ContextMenuDetails,
-                                                   AddressOf NewEditAppointment,
+                                                   AddressOf NewEditAppointment) ',
-                                                   AddressOf OpenFormData)
+        'AddressOf OpenFormData)
         CtrlCommandUI.LoadControls(ENTITY_ID)
         Lock_RecordControls(True)
         ' pnlDetails.Enabled = False
@@ -1886,39 +1887,6 @@ Public Class frmConstructor_Main
         End If
 
     End Sub
-
-    Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
-        Try
-            Dim Control As Control = sender
-            Dim ControlName As String = Control.Name
-            Dim ControlId As Integer = DirectCast(Control.Tag, ClassControlMetadata).Id  ' GetControlID_for_Name(ControlName, FORM_ID)
-
-            Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId)
-
-            If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then
-                MsgBox("FormId ist nicht definiert für " & ControlName)
-                Exit Sub
-            End If
-
-            If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then
-                MsgBox("ScreenId ist nicht definiert für " & ControlName)
-                Exit Sub
-            End If
-
-            Dim FormId As Integer = dr.Item("INTEGER1")
-            Dim ScreenId As Integer = dr.Item("INTEGER2")
-
-            Cursor = Cursors.WaitCursor
-            OpenFormInputFor(FormId, ScreenId)
-
-            Cursor = Cursors.Default
-        Catch ex As Exception
-            MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-
 #End Region
 
 #Region "DetailView - Toolstrip"
@@ -1996,6 +1964,7 @@ Public Class frmConstructor_Main
                 RIGHT_ONLY_READ = False
                 tslblLocked.Visible = False
                 tslblFileslocked.Visible = False
+                tsButtonAdd.Enabled = False
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Insert: " & ex.Message)
@@ -4062,7 +4031,7 @@ Public Class frmConstructor_Main
         Dim elapsed As Double
         ' Dim Basesearch As String
         Try
-            Dim DT_RESULT As DataTable = Class_DOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "RECORD")
+            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "RECORD")
             If IsNothing(DT_RESULT) Then
                 Exit Sub
             Else
@@ -4269,7 +4238,7 @@ Public Class frmConstructor_Main
             Dim sw As New Stopwatch
             sw.Start()
             Dim elapsed As Double
-            Dim DT_RESULT As DataTable = Class_DOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, Type)
+            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, Type)
             If IsNothing(DT_RESULT) Then
                 Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
                 tslblWindreamView.Text = msg
@@ -4609,7 +4578,7 @@ Public Class frmConstructor_Main
                     ' RUN_WD_SEARCH(WD_Suche, "RECORD")
                     RUN_WDSEARCH_GRID("RECORD")
                 End If
-                  Load_DocGrid_Layout()
+                Load_DocGrid_Layout()
             End If
         End If
         If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then
@@ -4712,7 +4681,7 @@ Public Class frmConstructor_Main
             'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
             If NEW_FILES_ADDED = True Then
                 Me.Cursor = Cursors.WaitCursor
-                If Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
+                If ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
                     RUN_WDSEARCH_GRID("RECORD")
                 End If
             Else
@@ -5045,7 +5014,7 @@ Public Class frmConstructor_Main
 
 
     Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
-        Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
+        ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
         RUN_WDSEARCH_GRID("RECORD")
         ' RUN_WD_SEARCH(WD_Suche, "RECORD")
     End Sub
@@ -5642,25 +5611,57 @@ Public Class frmConstructor_Main
 
     Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
         If RESULT_DOC_PATH <> Nothing Then
-            Dim msg = "Sind Sie sicher, dass Sie die Datei " & vbNewLine & RESULT_DOC_PATH & vbNewLine & "löschen wollen?"
+            Dim msg = "Wollen Sie nur die Verknüpfung der Datei entfernen?" & vbNewLine & "Datei bleibt im DMS/Archiv/Explorer erhalten!"
             If USER_LANGUAGE <> "de-DE" Then
-                msg = "Are You sure You want to delete this file?" & vbNewLine & RESULT_DOC_PATH
+                msg = "Would You like to delete only the references?" & vbNewLine & "File will stay in ECM/Archive/Explorer!"
             End If
             Dim result As MsgBoxResult
             result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result = MsgBoxResult.Yes Then
                 Try
-                    If Not IsNothing(RESULT_DOC_ID) Then
+                    Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & RESULT_OBJECTTYPE & "'")
-                        If ClassWindream.Delete_WDFile(RESULT_DOC_PATH) = True Then
+                    If Not IsNothing(DT_INDICES) Then
-                            If ClassFileResult.Delete_ResultFile(RESULT_DOC_ID) = True Then
+                        If DT_INDICES.Rows.Count = 1 Then
-                                RUN_WDSEARCH_GRID("RECORD")
+                            'Record-Links entfernen
+                            If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
+                                'ENTITY-Links entfernen
+                                If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
+                                    Dim del = "DELETE FROM TBPMO_DOC_RECORD_LINK WHERE DocID = " & RESULT_DOC_ID
+                                    If ClassDatabase.Execute_non_Query(del) = True Then
+                                        del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
+                                        If ClassDatabase.Execute_non_Query(del) = True Then
+                                            RUN_WDSEARCH_GRID("RECORD")
+                                        End If
+                                    End If
+                                End If
                             End If
                         End If
                     End If
                 Catch ex As Exception
-                    MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                    MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                 End Try
+            Else
+                msg = "Sind Sie sicher, dass Sie die Datei " & vbNewLine & RESULT_DOC_PATH & vbNewLine & "endgültig löschen wollen?"
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = "Are You sure You want to permanently delete this file?" & vbNewLine & RESULT_DOC_PATH
+                End If
+                Dim result1 As MsgBoxResult
+                result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                If result1 = MsgBoxResult.Yes Then
+                    Try
+                        If Not IsNothing(RESULT_DOC_ID) Then
+                            If ClassWindream.Delete_WDFile(RESULT_DOC_PATH) = True Then
+                                If ClassFileResult.Delete_ResultFile(RESULT_DOC_ID) = True Then
+                                    RUN_WDSEARCH_GRID("RECORD")
+                                End If
+                            End If
+                        End If
+                    Catch ex As Exception
+                        MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                    End Try
+                End If
             End If
+            
         End If
 
     End Sub
@@ -5983,7 +5984,7 @@ Public Class frmConstructor_Main
 
     Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click
         Dim fileName As String = RESULT_DOC_PATH
-
+        CURRENT_DOC_ID = RESULT_DOC_ID
         Dim frm As New frmWD_Link_to_Record(fileName, RESULT_OBJECTTYPE)
         frm.Show()
     End Sub
@@ -6011,17 +6012,16 @@ Public Class frmConstructor_Main
                     Exit Sub
                 End If
                 Try
-                    If rowCellValue <> "" Then
+
-                        Dim inwork = CBool(rowCellValue)
+                    Dim inwork = rowCellValue
-                        If inwork = True Then
+                    If inwork = True Then
-                            e.Appearance.BackColor = Color.Orchid
+                        e.Appearance.BackColor = Color.Orchid
-                            e.HighPriority = True
+                        e.HighPriority = True
-                        End If
                     End If
                 Catch ex As Exception
                     ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
                 End Try
-               
+
             Catch ex As Exception
                 ClassLogger.Add(">> Unexpected Error in RowStyle GridViewDoc_Search: " & ex.Message, False)
             End Try
@@ -6161,4 +6161,20 @@ Public Class frmConstructor_Main
             End Try
         End If
     End Sub
+
+    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click
+        Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
+        If ClassDOC_SEARCH.SET_WD_RIGHTS(RESULT_DOC_PATH) = True Then
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "The rights were successfully renewed!"
+            End If
+            MsgBox(msg, MsgBoxStyle.Information)
+        Else
+            msg = "Unerwarteter Fehler im Rechtemodul. Bitte prüfen Sie die Logdatei!"
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Unexpected error in rights-module. Please check the logfile!"
+            End If
+            MsgBox(msg, MsgBoxStyle.Exclamation)
+        End If
+    End Sub
 End Class

app/DD-Record-Organiser/frmEntities.vb

@@ -139,25 +139,25 @@ Public Class frmEntities
         Cursor = Cursors.Default
     End Sub
 
-    Sub Open_Viewer()
+    'Sub Open_Viewer()
-        Try
+    '    Try
-            If GUIDTextBox.Text = "" Then
+    '        If GUIDTextBox.Text = "" Then
-                Exit Sub
+    '            Exit Sub
-            End If
+    '        End If
-            Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
+    '        Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
-            If FormId <> -1 Then
+    '        If FormId <> -1 Then
-                Me.Hide()
+    '            Me.Hide()
 
-                Cursor = Cursors.WaitCursor
+    '            Cursor = Cursors.WaitCursor
-                OpenFormInputFor(FormId, 1)
+    '            OpenFormInputFor(FormId, 1)
-                Cursor = Cursors.Default
+    '            Cursor = Cursors.Default
-                ' Me.Visible = True
+    '            ' Me.Visible = True
-            End If
+    '        End If
-        Catch ex As Exception
+    '    Catch ex As Exception
-            MsgBox("Error while Opening Entity View!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+    '        MsgBox("Error while Opening Entity View!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
+    '    End Try
 
-    End Sub
+    'End Sub
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
         Try
@@ -173,15 +173,6 @@ Public Class frmEntities
         End Try
 
     End Sub
-
-    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
-        Open_Viewer()
-    End Sub
-
-    Private Sub gvMainView_DoubleClick(sender As Object, e As EventArgs)
-        Open_Viewer()
-    End Sub
-
     Private Function GetCurrentGUID() As Integer
         Dim FormId As Integer
         Try

app/DD-Record-Organiser/frmForm_Input.Designer.vb

@@ -1,474 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmFormInput
-    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormInput))
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tsstat_lbl = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
-        Me.VWPMO_CONTROL_SCREENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.VWPMO_CONTROL_SCREENTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter()
-        Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
-        Me.VWPMO_CONTROL_SCREENBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.BindingSourceDGV = New System.Windows.Forms.BindingSource(Me.components)
-        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
-        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.LäscheAlleFilterEtcToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.SplitContainerMain = New System.Windows.Forms.SplitContainer()
-        Me.dgvInput = New DevExpress.XtraGrid.GridControl()
-        Me.gvMainView = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.SplitContainerDetails = New System.Windows.Forms.SplitContainer()
-        Me.pnlView = New System.Windows.Forms.Panel()
-        Me.StatusStrip2 = New System.Windows.Forms.StatusStrip()
-        Me.tserstellt_Detail = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
-        Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton()
-        Me.tsButtonDelete = New System.Windows.Forms.ToolStripButton()
-        Me.tsButtonSave = New System.Windows.Forms.ToolStripButton()
-        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl()
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.tslblAnzahl_Dokumente = New System.Windows.Forms.ToolStripLabel()
-        Me.TBPMO_RECORDBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPMO_RECORDTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter()
-        Me.TooltipControl = New System.Windows.Forms.ToolTip(Me.components)
-        Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components)
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.StammdatenEditierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.StatusStrip1.SuspendLayout()
-        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.SuspendLayout()
-        CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerMain.Panel1.SuspendLayout()
-        Me.SplitContainerMain.Panel2.SuspendLayout()
-        Me.SplitContainerMain.SuspendLayout()
-        CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerDetails.Panel1.SuspendLayout()
-        Me.SplitContainerDetails.Panel2.SuspendLayout()
-        Me.SplitContainerDetails.SuspendLayout()
-        Me.StatusStrip2.SuspendLayout()
-        Me.ToolStrip2.SuspendLayout()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl1.SuspendLayout()
-        Me.XtraTabPage1.SuspendLayout()
-        CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ToolStrip1.SuspendLayout()
-        CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStrip1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstat_lbl})
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'tsstat_lbl
-        '
-        Me.tsstat_lbl.Name = "tsstat_lbl"
-        resources.ApplyResources(Me.tsstat_lbl, "tsstat_lbl")
-        '
-        'DD_DMSDataSet
-        '
-        Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
-        Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'VWPMO_CONTROL_SCREENBindingSource
-        '
-        Me.VWPMO_CONTROL_SCREENBindingSource.DataMember = "VWPMO_CONTROL_SCREEN"
-        Me.VWPMO_CONTROL_SCREENBindingSource.DataSource = Me.DD_DMSDataSet
-        '
-        'VWPMO_CONTROL_SCREENTableAdapter
-        '
-        Me.VWPMO_CONTROL_SCREENTableAdapter.ClearBeforeFill = True
-        '
-        'TableAdapterManager
-        '
-        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
-        Me.TableAdapterManager.Connection = Nothing
-        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
-        '
-        'VWPMO_CONTROL_SCREENBindingNavigator
-        '
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.AddNewItem = Nothing
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.BindingSource = Me.BindingSourceDGV
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItem = Me.BindingNavigatorCountItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItemFormat = "von {0} Datensätzen"
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.DeleteItem = Nothing
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnrefresh, Me.ToolStripDropDownButton1})
-        resources.ApplyResources(Me.VWPMO_CONTROL_SCREENBindingNavigator, "VWPMO_CONTROL_SCREENBindingNavigator")
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.Name = "VWPMO_CONTROL_SCREENBindingNavigator"
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        '
-        'BindingSourceDGV
-        '
-        Me.BindingSourceDGV.AllowNew = False
-        '
-        'BindingNavigatorCountItem
-        '
-        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
-        resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
-        '
-        'BindingNavigatorMoveFirstItem
-        '
-        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
-        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
-        '
-        'BindingNavigatorMovePreviousItem
-        '
-        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
-        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
-        '
-        'BindingNavigatorPositionItem
-        '
-        resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem")
-        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
-        '
-        'BindingNavigatorMoveNextItem
-        '
-        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
-        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
-        '
-        'BindingNavigatorMoveLastItem
-        '
-        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
-        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
-        '
-        'tsbtnrefresh
-        '
-        Me.tsbtnrefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
-        resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
-        Me.tsbtnrefresh.Name = "tsbtnrefresh"
-        '
-        'ToolStripDropDownButton1
-        '
-        Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripDropDownButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-        Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LäscheAlleFilterEtcToolStripMenuItem})
-        resources.ApplyResources(Me.ToolStripDropDownButton1, "ToolStripDropDownButton1")
-        Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
-        '
-        'LäscheAlleFilterEtcToolStripMenuItem
-        '
-        Me.LäscheAlleFilterEtcToolStripMenuItem.Name = "LäscheAlleFilterEtcToolStripMenuItem"
-        resources.ApplyResources(Me.LäscheAlleFilterEtcToolStripMenuItem, "LäscheAlleFilterEtcToolStripMenuItem")
-        '
-        'SplitContainerMain
-        '
-        resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
-        Me.SplitContainerMain.Name = "SplitContainerMain"
-        '
-        'SplitContainerMain.Panel1
-        '
-        Me.SplitContainerMain.Panel1.Controls.Add(Me.dgvInput)
-        '
-        'SplitContainerMain.Panel2
-        '
-        Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerDetails)
-        Me.SplitContainerMain.TabStop = False
-        '
-        'dgvInput
-        '
-        Me.dgvInput.DataSource = Me.BindingSourceDGV
-        resources.ApplyResources(Me.dgvInput, "dgvInput")
-        Me.dgvInput.MainView = Me.gvMainView
-        Me.dgvInput.Name = "dgvInput"
-        Me.dgvInput.TabStop = False
-        Me.dgvInput.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvMainView})
-        '
-        'gvMainView
-        '
-        Me.gvMainView.Appearance.OddRow.BackColor = CType(resources.GetObject("gvMainView.Appearance.OddRow.BackColor"), System.Drawing.Color)
-        Me.gvMainView.Appearance.OddRow.Options.UseBackColor = True
-        Me.gvMainView.GridControl = Me.dgvInput
-        Me.gvMainView.Name = "gvMainView"
-        Me.gvMainView.OptionsBehavior.Editable = False
-        Me.gvMainView.OptionsLayout.Columns.StoreAppearance = True
-        Me.gvMainView.OptionsPrint.EnableAppearanceOddRow = True
-        Me.gvMainView.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.gvMainView.OptionsView.EnableAppearanceEvenRow = True
-        Me.gvMainView.OptionsView.EnableAppearanceOddRow = True
-        '
-        'SplitContainerDetails
-        '
-        Me.SplitContainerDetails.AllowDrop = True
-        resources.ApplyResources(Me.SplitContainerDetails, "SplitContainerDetails")
-        Me.SplitContainerDetails.Name = "SplitContainerDetails"
-        '
-        'SplitContainerDetails.Panel1
-        '
-        Me.SplitContainerDetails.Panel1.Controls.Add(Me.pnlView)
-        Me.SplitContainerDetails.Panel1.Controls.Add(Me.StatusStrip2)
-        Me.SplitContainerDetails.Panel1.Controls.Add(Me.ToolStrip2)
-        '
-        'SplitContainerDetails.Panel2
-        '
-        Me.SplitContainerDetails.Panel2.Controls.Add(Me.XtraTabControl1)
-        Me.SplitContainerDetails.TabStop = False
-        '
-        'pnlView
-        '
-        resources.ApplyResources(Me.pnlView, "pnlView")
-        Me.pnlView.BackColor = System.Drawing.SystemColors.Control
-        Me.pnlView.Name = "pnlView"
-        '
-        'StatusStrip2
-        '
-        Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Detail})
-        resources.ApplyResources(Me.StatusStrip2, "StatusStrip2")
-        Me.StatusStrip2.Name = "StatusStrip2"
-        '
-        'tserstellt_Detail
-        '
-        Me.tserstellt_Detail.Name = "tserstellt_Detail"
-        resources.ApplyResources(Me.tserstellt_Detail, "tserstellt_Detail")
-        '
-        'ToolStrip2
-        '
-        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonDelete, Me.tsButtonSave})
-        resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
-        Me.ToolStrip2.Name = "ToolStrip2"
-        '
-        'tsButtonAdd
-        '
-        Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG
-        resources.ApplyResources(Me.tsButtonAdd, "tsButtonAdd")
-        Me.tsButtonAdd.Name = "tsButtonAdd"
-        '
-        'tsButtonDelete
-        '
-        Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG
-        resources.ApplyResources(Me.tsButtonDelete, "tsButtonDelete")
-        Me.tsButtonDelete.Name = "tsButtonDelete"
-        '
-        'tsButtonSave
-        '
-        Me.tsButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
-        resources.ApplyResources(Me.tsButtonSave, "tsButtonSave")
-        Me.tsButtonSave.Name = "tsButtonSave"
-        '
-        'XtraTabControl1
-        '
-        resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1")
-        Me.XtraTabControl1.Name = "XtraTabControl1"
-        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1})
-        '
-        'XtraTabPage1
-        '
-        Me.XtraTabPage1.Controls.Add(Me.AxObjectListControl)
-        Me.XtraTabPage1.Controls.Add(Me.ToolStrip1)
-        Me.XtraTabPage1.Name = "XtraTabPage1"
-        resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1")
-        '
-        'AxObjectListControl
-        '
-        resources.ApplyResources(Me.AxObjectListControl, "AxObjectListControl")
-        Me.AxObjectListControl.Name = "AxObjectListControl"
-        Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
-        '
-        'ToolStrip1
-        '
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAnzahl_Dokumente})
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
-        Me.ToolStrip1.Name = "ToolStrip1"
-        '
-        'tslblAnzahl_Dokumente
-        '
-        Me.tslblAnzahl_Dokumente.Name = "tslblAnzahl_Dokumente"
-        resources.ApplyResources(Me.tslblAnzahl_Dokumente, "tslblAnzahl_Dokumente")
-        '
-        'TBPMO_RECORDBindingSource
-        '
-        Me.TBPMO_RECORDBindingSource.DataMember = "TBPMO_RECORD"
-        Me.TBPMO_RECORDBindingSource.DataSource = Me.DD_DMSDataSet
-        '
-        'TBPMO_RECORDTableAdapter
-        '
-        Me.TBPMO_RECORDTableAdapter.ClearBeforeFill = True
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammdatenEditierenToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
-        '
-        'StammdatenEditierenToolStripMenuItem
-        '
-        Me.StammdatenEditierenToolStripMenuItem.Name = "StammdatenEditierenToolStripMenuItem"
-        resources.ApplyResources(Me.StammdatenEditierenToolStripMenuItem, "StammdatenEditierenToolStripMenuItem")
-        '
-        'frmFormInput
-        '
-        Me.AllowDrop = True
-        resources.ApplyResources(Me, "$this")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.SplitContainerMain)
-        Me.Controls.Add(Me.VWPMO_CONTROL_SCREENBindingNavigator)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.KeyPreview = True
-        Me.Name = "frmFormInput"
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.ResumeLayout(False)
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.PerformLayout()
-        CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.Panel1.ResumeLayout(False)
-        Me.SplitContainerMain.Panel2.ResumeLayout(False)
-        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.ResumeLayout(False)
-        CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerDetails.Panel1.ResumeLayout(False)
-        Me.SplitContainerDetails.Panel1.PerformLayout()
-        Me.SplitContainerDetails.Panel2.ResumeLayout(False)
-        CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerDetails.ResumeLayout(False)
-        Me.StatusStrip2.ResumeLayout(False)
-        Me.StatusStrip2.PerformLayout()
-        Me.ToolStrip2.ResumeLayout(False)
-        Me.ToolStrip2.PerformLayout()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl1.ResumeLayout(False)
-        Me.XtraTabPage1.ResumeLayout(False)
-        Me.XtraTabPage1.PerformLayout()
-        CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
-        CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStrip1.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet
-    Friend WithEvents VWPMO_CONTROL_SCREENBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents VWPMO_CONTROL_SCREENTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter
-    Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager
-    Friend WithEvents VWPMO_CONTROL_SCREENBindingNavigator As System.Windows.Forms.BindingNavigator
-    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer
-    Friend WithEvents BindingSourceDGV As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPMO_RECORDBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPMO_RECORDTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter
-    Friend WithEvents tsstat_lbl As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton
-    Friend WithEvents dgvInput As DevExpress.XtraGrid.GridControl
-    Friend WithEvents gvMainView As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents SplitContainerDetails As System.Windows.Forms.SplitContainer
-    Friend WithEvents TooltipControl As System.Windows.Forms.ToolTip
-    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
-    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents AxObjectListControl As AxOBJECTLISTCONTROLLib.AxObjectListControl
-    Friend WithEvents tslblAnzahl_Dokumente As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
-    Friend WithEvents pnlView As System.Windows.Forms.Panel
-    Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip
-    Friend WithEvents tsButtonAdd As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tsButtonDelete As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tsButtonSave As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tserstellt_Detail As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ttTooltip As System.Windows.Forms.ToolTip
-    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents StammdatenEditierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton
-    Friend WithEvents LäscheAlleFilterEtcToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-End Class

app/DD-Record-Organiser/frmForm_Input.resx

@@ -1,948 +0,0 @@
-<?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>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="tsstat_lbl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>53, 17</value>
-  </data>
-  <data name="tsstat_lbl.Text" xml:space="preserve">
-    <value>tsstat_lbl</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="tsstat_lbl.Visible" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 646</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="StatusStrip1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>1, 0, 16, 0</value>
-  </data>
-  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 22</value>
-  </data>
-  <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="StatusStrip1.Text" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>134, 17</value>
-  </metadata>
-  <metadata name="VWPMO_CONTROL_SCREENBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>277, 17</value>
-  </metadata>
-  <metadata name="VWPMO_CONTROL_SCREENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>563, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>843, 17</value>
-  </metadata>
-  <metadata name="VWPMO_CONTROL_SCREENBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1016, 17</value>
-  </metadata>
-  <metadata name="BindingSourceDGV.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1318, 17</value>
-  </metadata>
-  <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>111, 22</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Text" xml:space="preserve">
-    <value>von {0} Datensätzen</value>
-  </data>
-  <data name="BindingNavigatorCountItem.ToolTipText" xml:space="preserve">
-    <value>Die Gesamtanzahl der Elemente.</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Text" xml:space="preserve">
-    <value>Erste verschieben</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Text" xml:space="preserve">
-    <value>Vorherige verschieben</value>
-  </data>
-  <data name="BindingNavigatorSeparator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AccessibleName" xml:space="preserve">
-    <value>Position</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>58, 23</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Text" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.ToolTipText" xml:space="preserve">
-    <value>Aktuelle Position</value>
-  </data>
-  <data name="BindingNavigatorSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Text" xml:space="preserve">
-    <value>Nächste verschieben</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Text" xml:space="preserve">
-    <value>Letzte verschieben</value>
-  </data>
-  <data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="tsbtnrefresh.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsbtnrefresh.Size" type="System.Drawing.Size, System.Drawing">
-    <value>146, 22</value>
-  </data>
-  <data name="tsbtnrefresh.Text" xml:space="preserve">
-    <value>Übersicht aktualisieren</value>
-  </data>
-  <data name="LäscheAlleFilterEtcToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>180, 22</value>
-  </data>
-  <data name="LäscheAlleFilterEtcToolStripMenuItem.Text" xml:space="preserve">
-    <value>Lösche alle Filter etc</value>
-  </data>
-  <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
-        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
-        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
-        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
-        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
-        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
-        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
-        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
-        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
-        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="ToolStripDropDownButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="ToolStripDropDownButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>65, 22</value>
-  </data>
-  <data name="ToolStripDropDownButton1.Text" xml:space="preserve">
-    <value>Datagrid</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 25</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.Text" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.Name" xml:space="preserve">
-    <value>VWPMO_CONTROL_SCREENBindingNavigator</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="SplitContainerMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="SplitContainerMain.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="SplitContainerMain.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="SplitContainerMain.Orientation" type="System.Windows.Forms.Orientation, System.Windows.Forms">
-    <value>Horizontal</value>
-  </data>
-  <data name="dgvInput.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="dgvInput.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="gvMainView.Appearance.OddRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>128, 255, 255</value>
-  </data>
-  <data name="dgvInput.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 248</value>
-  </data>
-  <data name="dgvInput.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.Name" xml:space="preserve">
-    <value>dgvInput</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.Parent" xml:space="preserve">
-    <value>SplitContainerMain.Panel1</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.Name" xml:space="preserve">
-    <value>SplitContainerMain.Panel1</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.Parent" xml:space="preserve">
-    <value>SplitContainerMain</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="SplitContainerDetails.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="SplitContainerDetails.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="SplitContainerDetails.Orientation" type="System.Windows.Forms.Orientation, System.Windows.Forms">
-    <value>Horizontal</value>
-  </data>
-  <data name="pnlView.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="pnlView.AutoSizeMode" type="System.Windows.Forms.AutoSizeMode, System.Windows.Forms">
-    <value>GrowAndShrink</value>
-  </data>
-  <data name="pnlView.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="pnlView.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="pnlView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 53</value>
-  </data>
-  <data name="pnlView.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;pnlView.Name" xml:space="preserve">
-    <value>pnlView</value>
-  </data>
-  <data name="&gt;&gt;pnlView.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;pnlView.Parent" xml:space="preserve">
-    <value>SplitContainerDetails.Panel1</value>
-  </data>
-  <data name="&gt;&gt;pnlView.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>802, 56</value>
-  </metadata>
-  <data name="tserstellt_Detail.Size" type="System.Drawing.Size, System.Drawing">
-    <value>121, 17</value>
-  </data>
-  <data name="tserstellt_Detail.Text" xml:space="preserve">
-    <value>ToolStripStatusLabel1</value>
-  </data>
-  <data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 78</value>
-  </data>
-  <data name="StatusStrip2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 22</value>
-  </data>
-  <data name="StatusStrip2.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="StatusStrip2.Text" xml:space="preserve">
-    <value>StatusStrip2</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.Name" xml:space="preserve">
-    <value>StatusStrip2</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.Parent" xml:space="preserve">
-    <value>SplitContainerDetails.Panel1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>695, 56</value>
-  </metadata>
-  <data name="tsButtonAdd.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
-    <value>89, 22</value>
-  </data>
-  <data name="tsButtonAdd.Text" xml:space="preserve">
-    <value>Hinzufügen</value>
-  </data>
-  <data name="tsButtonDelete.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsButtonDelete.Size" type="System.Drawing.Size, System.Drawing">
-    <value>71, 22</value>
-  </data>
-  <data name="tsButtonDelete.Text" xml:space="preserve">
-    <value>Löschen</value>
-  </data>
-  <data name="tsButtonSave.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsButtonSave.Size" type="System.Drawing.Size, System.Drawing">
-    <value>79, 22</value>
-  </data>
-  <data name="tsButtonSave.Text" xml:space="preserve">
-    <value>Speichern</value>
-  </data>
-  <data name="ToolStrip2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="ToolStrip2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 25</value>
-  </data>
-  <data name="ToolStrip2.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="ToolStrip2.Text" xml:space="preserve">
-    <value>ToolStrip2</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.Name" xml:space="preserve">
-    <value>ToolStrip2</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.Parent" xml:space="preserve">
-    <value>SplitContainerDetails.Panel1</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel1.Name" xml:space="preserve">
-    <value>SplitContainerDetails.Panel1</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel1.Parent" xml:space="preserve">
-    <value>SplitContainerDetails</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="XtraTabControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="XtraTabControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="AxObjectListControl.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="AxObjectListControl.Enabled" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="AxObjectListControl.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
-        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
-        ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
-        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAXF4AAM8VAAAAAAAACw==
-</value>
-  </data>
-  <data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>913, 211</value>
-  </data>
-  <data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;AxObjectListControl.Name" xml:space="preserve">
-    <value>AxObjectListControl</value>
-  </data>
-  <data name="&gt;&gt;AxObjectListControl.Type" xml:space="preserve">
-    <value>AxOBJECTLISTCONTROLLib.AxObjectListControl, AxInterop.OBJECTLISTCONTROLLib, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;AxObjectListControl.Parent" xml:space="preserve">
-    <value>XtraTabPage1</value>
-  </data>
-  <data name="&gt;&gt;AxObjectListControl.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>588, 56</value>
-  </metadata>
-  <data name="tslblAnzahl_Dokumente.Size" type="System.Drawing.Size, System.Drawing">
-    <value>89, 22</value>
-  </data>
-  <data name="tslblAnzahl_Dokumente.Text" xml:space="preserve">
-    <value>ToolStripLabel1</value>
-  </data>
-  <data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>913, 25</value>
-  </data>
-  <data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="ToolStrip1.Text" xml:space="preserve">
-    <value>ToolStrip1</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
-    <value>ToolStrip1</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.Parent" xml:space="preserve">
-    <value>XtraTabPage1</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>913, 236</value>
-  </data>
-  <data name="XtraTabPage1.Text" xml:space="preserve">
-    <value>Windream-Suche</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.Name" xml:space="preserve">
-    <value>XtraTabPage1</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.Type" xml:space="preserve">
-    <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.Parent" xml:space="preserve">
-    <value>XtraTabControl1</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 264</value>
-  </data>
-  <data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.Name" xml:space="preserve">
-    <value>XtraTabControl1</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.Parent" xml:space="preserve">
-    <value>SplitContainerDetails.Panel2</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel2.Name" xml:space="preserve">
-    <value>SplitContainerDetails.Panel2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel2.Parent" xml:space="preserve">
-    <value>SplitContainerDetails</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Panel2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 368</value>
-  </data>
-  <data name="SplitContainerDetails.SplitterDistance" type="System.Int32, mscorlib">
-    <value>100</value>
-  </data>
-  <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Name" xml:space="preserve">
-    <value>SplitContainerDetails</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.Parent" xml:space="preserve">
-    <value>SplitContainerMain.Panel2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerDetails.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.Name" xml:space="preserve">
-    <value>SplitContainerMain.Panel2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.Parent" xml:space="preserve">
-    <value>SplitContainerMain</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 621</value>
-  </data>
-  <data name="SplitContainerMain.SplitterDistance" type="System.Int32, mscorlib">
-    <value>248</value>
-  </data>
-  <data name="SplitContainerMain.SplitterWidth" type="System.Int32, mscorlib">
-    <value>5</value>
-  </data>
-  <data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Name" xml:space="preserve">
-    <value>SplitContainerMain</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <metadata name="TBPMO_RECORDBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>148, 56</value>
-  </metadata>
-  <metadata name="TBPMO_RECORDTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>371, 56</value>
-  </metadata>
-  <metadata name="TooltipControl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
-  <metadata name="ttTooltip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>919, 56</value>
-  </metadata>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1005, 57</value>
-  </metadata>
-  <data name="StammdatenEditierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>191, 22</value>
-  </data>
-  <data name="StammdatenEditierenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Stammdaten editieren</value>
-  </data>
-  <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>192, 26</value>
-  </data>
-  <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
-    <value>ContextMenuStrip1</value>
-  </data>
-  <data name="&gt;&gt;ContextMenuStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</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>7, 17</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>919, 668</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt</value>
-  </data>
-  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>frmForm_Input</value>
-  </data>
-  <data name="&gt;&gt;tsstat_lbl.Name" xml:space="preserve">
-    <value>tsstat_lbl</value>
-  </data>
-  <data name="&gt;&gt;tsstat_lbl.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
-    <value>DD_DMSDataSet</value>
-  </data>
-  <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingSource.Name" xml:space="preserve">
-    <value>VWPMO_CONTROL_SCREENBindingSource</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingSource.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENTableAdapter.Name" xml:space="preserve">
-    <value>VWPMO_CONTROL_SCREENTableAdapter</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENTableAdapter.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
-    <value>TableAdapterManager</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;BindingSourceDGV.Name" xml:space="preserve">
-    <value>BindingSourceDGV</value>
-  </data>
-  <data name="&gt;&gt;BindingSourceDGV.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
-    <value>BindingNavigatorCountItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveFirstItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMovePreviousItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Name" xml:space="preserve">
-    <value>BindingNavigatorPositionItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveNextItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveLastItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator2</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsbtnrefresh.Name" xml:space="preserve">
-    <value>tsbtnrefresh</value>
-  </data>
-  <data name="&gt;&gt;tsbtnrefresh.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ToolStripDropDownButton1.Name" xml:space="preserve">
-    <value>ToolStripDropDownButton1</value>
-  </data>
-  <data name="&gt;&gt;ToolStripDropDownButton1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripDropDownButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;LäscheAlleFilterEtcToolStripMenuItem.Name" xml:space="preserve">
-    <value>LäscheAlleFilterEtcToolStripMenuItem</value>
-  </data>
-  <data name="&gt;&gt;LäscheAlleFilterEtcToolStripMenuItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;gvMainView.Name" xml:space="preserve">
-    <value>gvMainView</value>
-  </data>
-  <data name="&gt;&gt;gvMainView.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;tserstellt_Detail.Name" xml:space="preserve">
-    <value>tserstellt_Detail</value>
-  </data>
-  <data name="&gt;&gt;tserstellt_Detail.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsButtonAdd.Name" xml:space="preserve">
-    <value>tsButtonAdd</value>
-  </data>
-  <data name="&gt;&gt;tsButtonAdd.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsButtonDelete.Name" xml:space="preserve">
-    <value>tsButtonDelete</value>
-  </data>
-  <data name="&gt;&gt;tsButtonDelete.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsButtonSave.Name" xml:space="preserve">
-    <value>tsButtonSave</value>
-  </data>
-  <data name="&gt;&gt;tsButtonSave.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tslblAnzahl_Dokumente.Name" xml:space="preserve">
-    <value>tslblAnzahl_Dokumente</value>
-  </data>
-  <data name="&gt;&gt;tslblAnzahl_Dokumente.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDBindingSource.Name" xml:space="preserve">
-    <value>TBPMO_RECORDBindingSource</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDBindingSource.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDTableAdapter.Name" xml:space="preserve">
-    <value>TBPMO_RECORDTableAdapter</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDTableAdapter.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TooltipControl.Name" xml:space="preserve">
-    <value>TooltipControl</value>
-  </data>
-  <data name="&gt;&gt;TooltipControl.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ttTooltip.Name" xml:space="preserve">
-    <value>ttTooltip</value>
-  </data>
-  <data name="&gt;&gt;ttTooltip.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StammdatenEditierenToolStripMenuItem.Name" xml:space="preserve">
-    <value>StammdatenEditierenToolStripMenuItem</value>
-  </data>
-  <data name="&gt;&gt;StammdatenEditierenToolStripMenuItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmFormInput</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-</root>

app/DD-Record-Organiser/frmForm_Input.vb

@@ -1,557 +0,0 @@
-Imports DevExpress.XtraScheduler
-Imports System.IO
-Imports WINDREAMLib
-
-Public Class frmFormInput
-
-
-
-#Region "+++++ Konstanten +++++"
-    'Private akt_ctrl As Control
-    Private thisformid As Integer = Nothing
-    Private SelectedRecordID As Integer = 0
-    Private SelectedFormID As Integer = Nothing
-    Private m_Moving As Boolean = False
-    Private insert = False
-    Private DocView As Boolean = False
-    Private _windream As New ClassWindream
-    'Private Shared _Instance As frmFormInput = Nothing
-    'Public Shared Function Instance() As frmFormInput
-    '    If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
-    '        _Instance = New frmFormInput
-    '    End If
-    '    _Instance.BringToFront()
-    '    Return _Instance
-    'End Function
-
-#End Region
-
-
-    Public Sub SetFormTitles(title As String)
-        Me.Text = title
-        '   BindingNavigatorCountItem.Text = BindingNavigatorCountItem.Text.Replace("Datensätzen", title)
-    End Sub
-
-#Region "+++++ Form Events +++++"
-    Public Sub LoadOverview_Grid()
-        Try
-            'Load Input Grid
-            Dim _sqlGrid As String = "SELECT SQL_COMMAND FROM TBPMO_FORM_SQL WHERE FORM_ID = " & thisformid
-            Dim _sql = ClassDatabase.Execute_Scalar(_sqlGrid)
-            If (Not IsDBNull(_sql)) Then
-                Dim dt As DataTable = ClassDatabase.Return_Datatable(_sql)
-                If dt Is Nothing = False Then
-                    'BindingSource for Navigator
-                    Me.BindingSourceDGV.DataSource = dt
-                    'bind Datatable to bindingsource
-                    Me.dgvInput.DataSource = Me.BindingSourceDGV
-                    'Me.dgvOverview.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
-                End If
-            Else
-                MsgBox("No entries for actual Form. Pleas insert the first values.", MsgBoxStyle.Exclamation)
-            End If
-
-
-        Catch ex As Exception
-            MsgBox("Error in Load Overview Grid:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-    Private Sub frmLevel_Designer_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Try
-            Me.VWPMO_CONTROL_SCREENTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPMO_RECORDTableAdapter.Connection.ConnectionString = MyConnectionString
-
-            thisformid = CURRENT_FORM_ID
-            Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, thisformid)
-
-            CtrlBuilder = New ClassControlBuilder(pnlView)
-            CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
-                                                       ContextMenuStrip1,
-                                                       AddressOf NewEditAppointment,
-                                                       AddressOf OpenFormData)
-            If ClassDatabase.Init = True Then
-                LoadOverview_Grid()
-                LoadFormProperties()
-                CtrlCommandUI.LoadControls(CURRENT_FORM_ID)
-                ' FocusedRow_Change ruft bereits LoadControlValues auf
-                FocusedRow_Change()
-            End If
-
-            ClassWindowLocation.LoadFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID)
-
-        Catch ex As System.Exception
-            System.Windows.Forms.MessageBox.Show(ex.Message)
-        End Try
-
-    End Sub
-
-    Private Sub HandleToolTip(sender As Object, e As EventArgs)
-        Console.WriteLine("show tooltip")
-    End Sub
-#End Region
-
-#Region "+++++ Layout +++++"
-    Private Sub frmFormInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        LoadLayout()
-    End Sub
-
-    Private Sub frmLevel_Designer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            SaveLayout()
-            ClassWindowLocation.SaveFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID)
-            My.Settings.Save()
-
-            'frmForm_Overview.Instance.Show()
-            'frmTool_ControlProperties.Instance.Close()
-            'frmTool_ControlDesigner.Instance.Close()
-        Catch ex As Exception
-
-        End Try
-    End Sub
-
-    Public Sub LoadLayout()
-
-        Try
-            'DataGridView Layout laden
-            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml")
-            dgvInput.MainView.RestoreLayoutFromXml(XMLPath)
-
-
-            'Splitter Layout laden
-            Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml")
-
-            Dim layout As ClassLayout = New ClassLayout(LayoutPath)
-            Dim settings As System.Collections.Generic.List(Of ClassSetting)
-            settings = layout.Load()
-
-            If settings.Count = 0 Then
-                settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance))
-                settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterDistance))
-                layout.Save(settings)
-            End If
-
-            For Each s As ClassSetting In settings
-                Select Case s._name
-                    Case "SplitContainerMain"
-                        SplitContainerMain.SplitterDistance = Integer.Parse(s._value)
-                    Case "SplitContainerDetails"
-                        SplitContainerDetails.SplitterDistance = Integer.Parse(s._value)
-                End Select
-            Next
-        Catch notFoundEx As System.IO.FileNotFoundException
-            ClassLogger.Add("Layout added for Screen " & CURRENT_SCREEN_ID & ", Form " & thisformid)
-        Catch ex As Exception
-            MsgBox("Error while loading Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-
-    Public Sub SaveLayout()
-        Try
-            'DataGridView Layout speichern
-            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml")
-            dgvInput.MainView.SaveLayoutToXml(XMLPath)
-
-            'Splitter Layout speichern
-            Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml")
-
-            Dim layout As ClassLayout = New ClassLayout(LayoutPath)
-            Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)
-            settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance))
-            settings.Add(New ClassSetting("SplitContainerDetails", SplitContainerDetails.SplitterDistance))
-            layout.Save(settings)
-        Catch ex As Exception
-            MsgBox("Error while saving Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-
-#End Region
-
-#Region "+++++ Load Funktionen +++++"
-    Public Sub LoadFormProperties()
-        'Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID
-        Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid
-        'Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)
-        Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL)
-
-        DocView = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid)
-        If DocView = True Then
-            If _windream.Init = True Then
-                Me.SplitContainerDetails.Panel2Collapsed = False
-            End If
-
-        Else
-            Me.SplitContainerDetails.Panel2Collapsed = True
-        End If
-        'SetFormName(name)
-        SetFormTitles(title)
-    End Sub
-
-    Private Sub Load_Value(recID As Integer, CONTROLID As Integer, control As Control)
-        Try
-            Dim sq = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_ID = " & CONTROLID
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sq)
-            Dim result = DT.Rows(0).Item("VALUE")
-            Select Case DT.Rows(0).Item("CONTROL_TYPE_ID")
-                Case 2 ' TextBox
-                    Dim textbox As TextBox = DirectCast(control, TextBox)
-                    textbox.Text = result
-                Case 10 ' CheckBox
-                    Dim checkbox As CheckBox = DirectCast(control, CheckBox)
-                    checkbox.Checked = CBool(result)
-                Case 3 ' ComboBox
-                    Dim combobox As ComboBox = DirectCast(control, ComboBox)
-                    combobox.SelectedIndex = combobox.FindStringExact(result)
-                Case 4 'DateTimePicker
-                    Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
-                    datepicker.DateTime = Date.Parse(result)
-                Case Else
-                    ' MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID"))
-            End Select
-        Catch ex As Exception
-            MsgBox("Error in Load_Value:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Function Return_SearchPAttern(ByVal content As String)
-        Select Case content
-            Case "Form-ID (Entity)"
-                Return thisformid
-            Case "Record-ID"
-                Return SelectedRecordID
-
-        End Select
-    End Function
-    Private Sub load_Documents()
-        Try
-            If DocView Then
-                Dim SQL = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid & " and SCREEN_ID = " & CURRENT_SCREEN_ID
-                Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
-                If DT.Rows.Count = 1 Then
-                    If Not IsDBNull(DT.Rows(0).Item(0)) Then
-                        Dim WD_Suche = DT.Rows(0).Item(0)
-                        Dim SP1 = DT.Rows(0).Item(1)
-                        Dim SP2 = DT.Rows(0).Item(2)
-                        Dim SP3 = DT.Rows(0).Item(3)
-                        Dim SP4 = DT.Rows(0).Item(4)
-                        Dim SP5 = DT.Rows(0).Item(5)
-
-
-                        'Eine tempfile generieren
-                        Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
-                        'Nur den Filenamen ohne Erweiterung
-                        Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
-                        'tempfile lsöchen
-                        If My.Computer.FileSystem.FileExists(tempFilename1) Then
-                            My.Computer.FileSystem.DeleteFile(tempFilename1)
-                        End If
-                        Try
-                            Dim temppath = Path.GetTempPath
-
-                            Dim fileContents As String
-                            fileContents = My.Computer.FileSystem.ReadAllText(WD_Suche)
-                            fileContents.Replace("Í", "Ö")
-                            If SP1.ToString <> String.Empty Then
-                                SP1 = Return_SearchPAttern(SP1.ToString)
-                                fileContents = fileContents.Replace("%pattern1%", SP1)
-                                fileContents = fileContents.Replace("471101", SP1)
-                            End If
-                            If SP2.ToString <> String.Empty Then
-                                SP2 = Return_SearchPAttern(SP2.ToString)
-                                fileContents = fileContents.Replace("%pattern2%", SP2)
-                                fileContents = fileContents.Replace("471101", SP2)
-                            End If
-                            If SP3.ToString <> String.Empty Then
-                                SP3 = Return_SearchPAttern(SP3.ToString)
-                                fileContents = fileContents.Replace("%pattern3%", SP3)
-                                fileContents = fileContents.Replace("471102", SP3)
-                            End If
-                            If SP4.ToString <> String.Empty Then
-                                SP4 = Return_SearchPAttern(SP4.ToString)
-                                fileContents = fileContents.Replace("%pattern4%", SP4)
-                                fileContents = fileContents.Replace("471103", SP4)
-                            End If
-                            If SP5.ToString <> String.Empty Then
-                                SP5 = Return_SearchPAttern(SP5.ToString)
-                                fileContents = fileContents.Replace("%pattern5%", SP5)
-                                fileContents = fileContents.Replace("471105", SP5)
-                            End If
-
-
-
-
-
-                            'Die windream File zusammensetzen
-                            Dim newfilename = temppath & tempName & ".wdf"
-                            My.Computer.FileSystem.WriteAllText(newfilename, fileContents, False)
-                            ' XML-Datei initialisieren
-                            Dim xml As New System.Xml.XmlDocument()
-                            ' XML-Datei öffnen und laden
-                            xml.Load(newfilename)
-                            xml.Save(newfilename)
-                            TEMP_FILES.Add(newfilename)
-                            Dim windreamSucheErgebnisse As WMObjects = Me._windream.GetSearchDocuments(newfilename)
-                            If Not IsNothing(windreamSucheErgebnisse) AndAlso windreamSucheErgebnisse.Count > 0 Then
-                                AxObjectListControl.SetIconMode(True)
-                                AxObjectListControl.RemoveAllColumnHeader()
-
-                                Me.tslblAnzahl_Dokumente.Text = windreamSucheErgebnisse.Count & " gefundene Dateien"
-                                Dim param As New List(Of String)
-                                'The file name
-                                param.Add("szLongName")
-                                'The size
-                                param.Add("dwCreationDate")
-                                param.Add("dwCreation_Time")
-
-                                Me.AxObjectListControl.SetSession(_windream.oSession, "foo", "bar")
-                                'Change the satus icon
-                                'ICON STATES:
-                                Me.AxObjectListControl.SetStatusIcon(0)
-
-                                'Change the icon
-                                Me.AxObjectListControl.SetStatusIcon(2)
-                                'Add all search params
-                                For Each spar As String In param
-                                    'You need to use the column name here
-                                    'Please note that some attributes or indices will not be displayed
-                                    'Try not to add the same header twice, it will throw cause problems if you do that
-                                    Me.AxObjectListControl.AddColumnHeader(spar, 200)
-                                Next
-                                'Execute the search
-                                Dim results As WMObjects = windreamSucheErgebnisse
-                                'Set the contents without displaying them
-                                AxObjectListControl.SetContentsEx(results)
-                                'Change the icon
-                                AxObjectListControl.SetStatusIcon(5)
-                                'Display the results...
-                                'The Previous Object Count
-                                Dim poc As Integer = 0
-                                'Display new objects, as long as the objectcount changes after displaying the objects
-
-                                Do Until (poc <> AxObjectListControl.GetObjectCount)
-                                    poc = AxObjectListControl.GetObjectCount
-                                    'If you want, you can display more items at a time
-                                    'But do not display to many at a time or the user interface could freeze
-                                    'Maybe try 50
-                                    AxObjectListControl.DisplayResults(5)
-
-                                Loop
-                                AxObjectListControl.SetStatusIcon(3)
-
-
-                            End If
-                            If My.Computer.FileSystem.FileExists(newfilename) Then
-                                My.Computer.FileSystem.DeleteFile(newfilename)
-                            End If
-
-                        Catch ex As Exception
-                            MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        End Try
-
-                    End If
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox("Error in load_Documents:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-
-    End Sub
-
-#End Region
-
-#Region "+++++ Mouse/Key Events +++++"
-    Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
-
-    End Sub
-    Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
-
-    End Sub
-    Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-
-    End Sub
-
-
-#End Region
-
-    Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
-        Dim ctrl As Control = sender
-        Cursor = Cursors.WaitCursor
-        ClassFunctionCommandsUI.OpenFormData(ctrl.Name, thisformid)
-        Cursor = Cursors.Default
-    End Sub
-
-    Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
-        Dim ctrl As Control = sender
-        ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, thisformid, SelectedRecordID, pnlView.Controls)
-    End Sub
-
-    Private Sub FocusedRow_Change()
-        Try
-            If gvMainView.Columns.Count = 0 Then
-                Exit Sub
-            End If
-            Dim RecordID
-            If gvMainView.RowCount > 0 Then
-                RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName)
-                If RecordID Is Nothing Then
-                    Exit Sub
-                End If
-            End If
-
-            Dim CONTROL_ID As Integer
-            If RecordID Is Nothing = False Then
-                If (Not IsDBNull(RecordID)) Then
-                    ' TODO: AUCH IN CONTSTRUCTOR
-                    ' TODO: Doppelte einträge bei INSERT und UPDATE fixen
-                    ' TODO: FormID wird falsch oder nicht gesetzt
-                    SelectedRecordID = RecordID
-                    ' SelectedFormID = RowView.Item(1)
-                    RefreshRecordByID(SelectedRecordID)
-
-                    ClassControlValues.LoadControlValuesList(thisformid, pnlView.Controls)
-                    ClassControlValues.LoadControlValuesListWithPlaceholders(thisformid, SelectedRecordID, CURRENT_PARENT_RECORD_ID, pnlView.Controls, 99)
-                    ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_RECORD_ID, thisformid, pnlView.Controls, 99)
-                End If
-                load_Documents()
-            End If
-
-        Catch ex As Exception
-            MsgBox("Error in FocusedRow_Change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub ToolStrip_Notice(text As String)
-        If text.Length > 0 Then
-            tsstat_lbl.Text = text
-            tsstat_lbl.Visible = True
-        Else
-            tsstat_lbl.Visible = False
-        End If
-    End Sub
-    Private Sub RefreshRecordByID(RECORD_ID As Integer)
-        Try
-            Me.TBPMO_RECORDTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD, CType(RECORD_ID, Integer))
-        Catch ex As System.Exception
-            System.Windows.Forms.MessageBox.Show(ex.Message)
-        End Try
-    End Sub
-
-    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
-        Dim result As MsgBoxResult
-        result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result = MsgBoxResult.Yes Then
-            Dim sql As String = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & SelectedRecordID
-            If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record
-                sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & SelectedRecordID
-                If ClassDatabase.Execute_non_Query(sql) = True Then
-                    LoadOverview_Grid()
-                    ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now)
-                End If
-            End If
-
-        End If
-    End Sub
-
-    Private Sub tsbtnrefresh_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
-        LoadOverview_Grid()
-    End Sub
-
-    Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
-        'CtrlCommandUI.LoadControls(thisformid)
-        ClassControlValues.ClearControlValues(pnlView.Controls)
-        ClassControlValues.UnloadControlValuesList(SelectedRecordID, thisformid, pnlView.Controls)
-        ClassControlValues.LoadControlValuesList(thisformid, pnlView.Controls)
-        ClassControlValues.LoadDefaultValues(thisformid, SelectedRecordID, pnlView.Controls, 99, 99)
-
-        'Das Flag INSERT nach LoadControls setzen
-        CtrlCommandUI.IsInsert = True
-    End Sub
-
-    Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
-        SelectedRecordID = 0
-        If gvMainView.Columns.Count > 0 Then
-            Dim RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("Record-ID").FieldName)
-            If RecordID Is Nothing And gvMainView.RowCount > 0 Then
-                Exit Sub
-            Else
-                If Not RecordID = Nothing Then
-                    SelectedRecordID = RecordID
-                End If
-            End If
-        End If
-
-
-        Dim ResultMessage = CtrlCommandUI.SaveRecord(SelectedRecordID, thisformid)
-
-        LoadOverview_Grid()
-        If SelectedRecordID > 0 Then
-            Refresh_CreatedChangedRecordByID(SelectedRecordID)
-
-        End If
-
-
-        'Refresh_CreatedChangedRecordByID(thisrecordID)
-        ToolStrip_Notice(ResultMessage)
-        'tsstatus_Detail_show(True, ResultMessage)
-    End Sub
-
-    Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click
-        Dim result As MsgBoxResult
-        result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result = MsgBoxResult.Yes Then
-            If CtrlCommandUI.DeleteRecord(SelectedRecordID) = True Then
-                LoadOverview_Grid()
-                ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now)
-            End If
-        End If
-    End Sub
-
-    Sub tserstellt_Detail_show(vis As Boolean, txt As String)
-        Me.tserstellt_Detail.Text = txt
-        tserstellt_Detail.Visible = vis
-    End Sub
-
-    Public Sub Refresh_CreatedChangedRecordByID(RECORD_ID As Integer)
-        Try
-            Dim result = ClassDatabase.Execute_Scalar("select 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID)
-            If IsDBNull(result) Or IsNothing(result) Then
-                'Me.tserstellt_Details.Text = ""
-                tserstellt_Detail_show(False, "")
-            Else
-                'Me.tserstellt_Details.Text = result.ToString
-                tserstellt_Detail_show(True, result.ToString)
-            End If
-
-        Catch ex As System.Exception
-            MsgBox("Error in Refresh_CreatedChangedRecordByID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Sub gvMainView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gvMainView.FocusedRowChanged
-        FocusedRow_Change()
-    End Sub
-
-    Private Sub StammdatenEditierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenEditierenToolStripMenuItem.Click
-        Dim MenuItem = DirectCast(sender, ToolStripMenuItem)
-        Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
-        Dim SourceControl As Control = ContextMenu.SourceControl
-        Dim MasterDataId As Integer = DirectCast(SourceControl.Tag, ClassControlMetadata).Id
-
-        frmQuickInput.ShowDialog()
-    End Sub
-
-    Private Sub LäscheAlleFilterEtcToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LäscheAlleFilterEtcToolStripMenuItem.Click
-        gvMainView.ClearColumnsFilter()
-        gvMainView.ClearGrouping()
-        gvMainView.ClearSelection()
-    End Sub
-
-    Private Sub dgvInput_Click(sender As Object, e As EventArgs) Handles dgvInput.Click
-
-    End Sub
-End Class
-

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

@@ -48,8 +48,6 @@ Partial Class frmMain
         Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
@@ -59,11 +57,14 @@ Partial Class frmMain
         Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
         Me.LabelLanguage = New DevExpress.XtraBars.BarStaticItem()
         Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItemSAPConnect = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItemStructureNOdes = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
         Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -73,13 +74,13 @@ Partial Class frmMain
         Me.RibbonPageGroupProgram = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupTask = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupMenue = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroupWindream = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components)
         Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
         Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
         Me.cmsSystray.SuspendLayout()
         CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -90,26 +91,26 @@ Partial Class frmMain
         'NotifyIcon
         '
         Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
-        resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
         Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
+        resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
         '
         'cmsSystray
         '
-        resources.ApplyResources(Me.cmsSystray, "cmsSystray")
         Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
         Me.cmsSystray.Name = "cmsSystray"
+        resources.ApplyResources(Me.cmsSystray, "cmsSystray")
         '
         'ADDIBeendenToolStripMenuItem
         '
-        resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
         Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
         Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem"
+        resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
         '
         'CockpitAnzeigenToolStripMenuItem
         '
-        resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
         Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.WebUserControl_ascx__11270_16x
         Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem"
+        resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
         '
         'TimerTasks
         '
@@ -172,12 +173,12 @@ Partial Class frmMain
         '
         'ribbonMain
         '
-        resources.ApplyResources(Me.ribbonMain, "ribbonMain")
         Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
         Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
         Me.ribbonMain.ExpandCollapseItem.Id = 0
-        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes})
+        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8})
-        Me.ribbonMain.MaxItemId = 38
+        resources.ApplyResources(Me.ribbonMain, "ribbonMain")
+        Me.ribbonMain.MaxItemId = 45
         Me.ribbonMain.Name = "ribbonMain"
         Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
         Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
@@ -189,10 +190,6 @@ Partial Class frmMain
         Me.MainMenu.ItemLinks.Add(Me.itemInfo)
         Me.MainMenu.ItemLinks.Add(Me.itemSettings)
         Me.MainMenu.ItemLinks.Add(Me.itemExit)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
         Me.MainMenu.Name = "MainMenu"
         Me.MainMenu.Ribbon = Me.ribbonMain
         '
@@ -296,22 +293,6 @@ Partial Class frmMain
         Me.BarButtonItem7.Name = "BarButtonItem7"
         Me.BarButtonItem7.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
-        'BarButtonItem8
-        '
-        resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
-        Me.BarButtonItem8.Glyph = CType(resources.GetObject("BarButtonItem8.Glyph"), System.Drawing.Image)
-        Me.BarButtonItem8.Id = 18
-        Me.BarButtonItem8.Name = "BarButtonItem8"
-        Me.BarButtonItem8.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
-        '
-        'BarButtonItem9
-        '
-        resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9")
-        Me.BarButtonItem9.Glyph = CType(resources.GetObject("BarButtonItem9.Glyph"), System.Drawing.Image)
-        Me.BarButtonItem9.Id = 19
-        Me.BarButtonItem9.Name = "BarButtonItem9"
-        Me.BarButtonItem9.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
-        '
         'BarButtonItem2
         '
         resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
@@ -383,14 +364,6 @@ Partial Class frmMain
         Me.BarButtonItem18.Name = "BarButtonItem18"
         Me.BarButtonItem18.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
-        'BarButtonItem19
-        '
-        resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
-        Me.BarButtonItem19.Glyph = CType(resources.GetObject("BarButtonItem19.Glyph"), System.Drawing.Image)
-        Me.BarButtonItem19.Id = 32
-        Me.BarButtonItem19.Name = "BarButtonItem19"
-        Me.BarButtonItem19.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
-        '
         'LabelLanguage
         '
         resources.ApplyResources(Me.LabelLanguage, "LabelLanguage")
@@ -423,6 +396,35 @@ Partial Class frmMain
         Me.BarButtonItemStructureNOdes.Name = "BarButtonItemStructureNOdes"
         Me.BarButtonItemStructureNOdes.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
+        'BarSubItem1
+        '
+        resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
+        Me.BarSubItem1.Id = 38
+        Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8)})
+        Me.BarSubItem1.Name = "BarSubItem1"
+        Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
+        '
+        'BarButtonItem14
+        '
+        resources.ApplyResources(Me.BarButtonItem14, "BarButtonItem14")
+        Me.BarButtonItem14.Glyph = CType(resources.GetObject("BarButtonItem14.Glyph"), System.Drawing.Image)
+        Me.BarButtonItem14.Id = 39
+        Me.BarButtonItem14.Name = "BarButtonItem14"
+        '
+        'BarButtonItem21
+        '
+        resources.ApplyResources(Me.BarButtonItem21, "BarButtonItem21")
+        Me.BarButtonItem21.Glyph = CType(resources.GetObject("BarButtonItem21.Glyph"), System.Drawing.Image)
+        Me.BarButtonItem21.Id = 40
+        Me.BarButtonItem21.Name = "BarButtonItem21"
+        '
+        'BarButtonItem22
+        '
+        resources.ApplyResources(Me.BarButtonItem22, "BarButtonItem22")
+        Me.BarButtonItem22.Glyph = CType(resources.GetObject("BarButtonItem22.Glyph"), System.Drawing.Image)
+        Me.BarButtonItem22.Id = 41
+        Me.BarButtonItem22.Name = "BarButtonItem22"
+        '
         'pageHome
         '
         Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm})
@@ -446,10 +448,6 @@ Partial Class frmMain
         'pageForms
         '
         Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
-        Me.pageForms.Appearance.FontSizeDelta = CType(resources.GetObject("pageForms.Appearance.FontSizeDelta"), Integer)
-        Me.pageForms.Appearance.FontStyleDelta = CType(resources.GetObject("pageForms.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.pageForms.Appearance.GradientMode = CType(resources.GetObject("pageForms.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image)
         Me.pageForms.Appearance.Options.UseBackColor = True
         Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
         Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form
@@ -463,7 +461,7 @@ Partial Class frmMain
         '
         'pageAdmin
         '
-        Me.pageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupProgram, Me.RibbonPageGroupTask, Me.RibbonPageGroupMenue, Me.RibbonPageGroupWindream, Me.RibbonPageGroup1})
+        Me.pageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupProgram, Me.RibbonPageGroupTask, Me.RibbonPageGroupMenue, Me.RibbonPageGroup1})
         Me.pageAdmin.Image = Global.DD_Record_Organiser.My.Resources.Resources.Property_501
         Me.pageAdmin.Name = "pageAdmin"
         resources.ApplyResources(Me.pageAdmin, "pageAdmin")
@@ -488,6 +486,7 @@ Partial Class frmMain
         Me.RibbonPageGroupTask.ItemLinks.Add(Me.BarButtonItem4)
         Me.RibbonPageGroupTask.ItemLinks.Add(Me.BarButtonItem12)
         Me.RibbonPageGroupTask.ItemLinks.Add(Me.BarButtonItem17)
+        Me.RibbonPageGroupTask.ItemLinks.Add(Me.BarSubItem1)
         Me.RibbonPageGroupTask.Name = "RibbonPageGroupTask"
         resources.ApplyResources(Me.RibbonPageGroupTask, "RibbonPageGroupTask")
         '
@@ -499,15 +498,6 @@ Partial Class frmMain
         Me.RibbonPageGroupMenue.Name = "RibbonPageGroupMenue"
         resources.ApplyResources(Me.RibbonPageGroupMenue, "RibbonPageGroupMenue")
         '
-        'RibbonPageGroupWindream
-        '
-        Me.RibbonPageGroupWindream.AllowTextClipping = False
-        Me.RibbonPageGroupWindream.ItemLinks.Add(Me.BarButtonItem8)
-        Me.RibbonPageGroupWindream.ItemLinks.Add(Me.BarButtonItem9)
-        Me.RibbonPageGroupWindream.ItemLinks.Add(Me.BarButtonItem19)
-        Me.RibbonPageGroupWindream.Name = "RibbonPageGroupWindream"
-        resources.ApplyResources(Me.RibbonPageGroupWindream, "RibbonPageGroupWindream")
-        '
         'RibbonPageGroup1
         '
         Me.RibbonPageGroup1.AllowTextClipping = False
@@ -518,12 +508,12 @@ Partial Class frmMain
         '
         'RibbonStatusBar1
         '
-        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
         '
@@ -548,16 +538,19 @@ Partial Class frmMain
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
         resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
         '
+        'BarButtonItem8
+        '
+        resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
+        Me.BarButtonItem8.Glyph = CType(resources.GetObject("BarButtonItem8.Glyph"), System.Drawing.Image)
+        Me.BarButtonItem8.Id = 44
+        Me.BarButtonItem8.Name = "BarButtonItem8"
+        '
         'frmMain
         '
-        resources.ApplyResources(Me, "$this")
         Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
-        Me.Appearance.FontSizeDelta = CType(resources.GetObject("frmMain.Appearance.FontSizeDelta"), Integer)
-        Me.Appearance.FontStyleDelta = CType(resources.GetObject("frmMain.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.Appearance.GradientMode = CType(resources.GetObject("frmMain.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.Appearance.Image = CType(resources.GetObject("frmMain.Appearance.Image"), System.Drawing.Image)
         Me.Appearance.Options.UseBackColor = True
         Me.Appearance.Options.UseFont = True
+        resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.ribbonMain)
@@ -594,14 +587,11 @@ Partial Class frmMain
     Friend WithEvents itemExit As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents RibbonPageGroupWindream As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroupProgram As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonPageGroupMenue As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents itemSettings As DevExpress.XtraBars.BarButtonItem
@@ -624,7 +614,6 @@ Partial Class frmMain
     Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents groupQuickAccessForm2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents cmsSystray As System.Windows.Forms.ContextMenuStrip
     Friend WithEvents ADDIBeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents CockpitAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -632,5 +621,10 @@ Partial Class frmMain
     Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItemSAPConnect As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItemStructureNOdes As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem22 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
 
 End Class

app/DD-Record-Organiser/frmMain.vb

@@ -13,7 +13,7 @@ Public Class frmMain
 
     Public Shared Sub RUN_TIMER()
         Try
-            If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" Then
+            If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
                 If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
                     ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
                     Exit Sub
@@ -22,7 +22,7 @@ Public Class frmMain
                 TIMER_SCAN.Enabled = True
                 AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
             Else
-                If TIMER_SCAN.Enabled = True And CURRENT_SCAN_FOLDERWATCH <> "" Then
+                If TIMER_SCAN.Enabled = True And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
                     TIMER_SCAN.Enabled = False
                     RUN_TIMER()
                 Else
@@ -357,15 +357,6 @@ Public Class frmMain
 
     End Sub
 
-
-    Private Sub BarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
-        Dim formId As Integer = Integer.Parse(e.Item.Tag)
-
-        Cursor = Cursors.WaitCursor
-        OpenFormInputFor(formId, 1)
-        Cursor = Cursors.Default
-    End Sub
-
     Private Sub ToolbarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
         Dim formId As Integer = Integer.Parse(e.Item.Tag)
 
@@ -382,14 +373,14 @@ Public Class frmMain
         Cursor = Cursors.Default
     End Sub
 
-    Private Sub MenuItemClick(sender As Object, e As EventArgs)
+    'Private Sub MenuItemClick(sender As Object, e As EventArgs)
-        Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
+    '    Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
-        Dim formId As Integer = Integer.Parse(item.Tag)
+    '    Dim formId As Integer = Integer.Parse(item.Tag)
 
-        Cursor = Cursors.WaitCursor
+    '    Cursor = Cursors.WaitCursor
-        OpenFormInputFor(formId, 1)
+    '    OpenFormInputFor(formId, 1)
-        Cursor = Cursors.Default
+    '    Cursor = Cursors.Default
-    End Sub
+    'End Sub
     Private Sub MenuItem2Click(sender As Object, e As EventArgs)
         Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
         Dim formId As Integer = Integer.Parse(item.Tag)
@@ -637,17 +628,6 @@ Public Class frmMain
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem7.ItemClick
         OpenImageManager()
     End Sub
-
-    Private Sub BarButtonItem8_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem8.ItemClick
-        Close_Maximized_Forms()
-        OpenDokumentartt()
-    End Sub
-
-    Private Sub BarButtonItem9_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem9.ItemClick
-        Close_Maximized_Forms()
-        OpenObjecttypeConfig()
-    End Sub
-
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem2.ItemClick
         frmConfiguration_Basic.ShowDialog()
     End Sub
@@ -715,15 +695,18 @@ Public Class frmMain
     Public Sub New()
         Dim splash As New frmSplash()
         splash.ShowDialog()
-        Dim cultureInfo As System.Globalization.CultureInfo
+        If ERROR_INIT <> "INVALID USER" Then
-        cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
+            Dim cultureInfo As System.Globalization.CultureInfo
+            cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
 
-        cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
+            cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
 
-        Thread.CurrentThread.CurrentCulture = cultureInfo
+            Thread.CurrentThread.CurrentCulture = cultureInfo
-        Thread.CurrentThread.CurrentUICulture = cultureInfo
+            Thread.CurrentThread.CurrentUICulture = cultureInfo
-        cultureInfo.DefaultThreadCurrentCulture = cultureInfo
+            cultureInfo.DefaultThreadCurrentCulture = cultureInfo
-        cultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+            cultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+        End If
+      
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -734,12 +717,6 @@ Public Class frmMain
     Private Sub NotifyIcon_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon.BalloonTipClicked
         OpenFormCockpit()
     End Sub
-
-    Private Sub BarButtonItem19_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem19.ItemClick
-        Close_Maximized_Forms()
-        OpenWindream_Files()
-    End Sub
-
     Private Sub CockpitAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CockpitAnzeigenToolStripMenuItem.Click
         OpenFormCockpit()
     End Sub
@@ -768,4 +745,24 @@ Public Class frmMain
         frm.MdiParent = MAIN_FORM
         frm.Show()
     End Sub
+
+    Private Sub BarButtonItem14_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem14.ItemClick
+        Close_Maximized_Forms()
+        OpenDokumentartt()
+    End Sub
+
+    Private Sub BarButtonItem21_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem21.ItemClick
+        Close_Maximized_Forms()
+        OpenObjecttypeConfig()
+    End Sub
+
+    Private Sub BarButtonItem22_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem22.ItemClick
+        Close_Maximized_Forms()
+        OpenWindream_Files()
+    End Sub
+
+    Private Sub BarButtonItem8_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem8.ItemClick
+        Close_Maximized_Forms()
+        OpenRightsmanager()
+    End Sub
 End Class

app/DD-Record-Organiser/frmQuickEdit.Designer.vb

@@ -1,385 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmQuickEdit
-    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmQuickEdit))
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tsstat_lbl = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
-        Me.VWPMO_CONTROL_SCREENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.VWPMO_CONTROL_SCREENTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter()
-        Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
-        Me.VWPMO_CONTROL_SCREENBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.BindingSourceDGV = New System.Windows.Forms.BindingSource(Me.components)
-        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
-        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton()
-        Me.SplitContainerMain = New System.Windows.Forms.SplitContainer()
-        Me.dgvInput = New DevExpress.XtraGrid.GridControl()
-        Me.gvMainView = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.pnlView = New System.Windows.Forms.Panel()
-        Me.StatusStrip2 = New System.Windows.Forms.StatusStrip()
-        Me.tserstellt_Detail = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
-        Me.tslblDetail_Eingabe = New System.Windows.Forms.ToolStripLabel()
-        Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton()
-        Me.tsButtonDelete = New System.Windows.Forms.ToolStripButton()
-        Me.tsButtonSave = New System.Windows.Forms.ToolStripButton()
-        Me.TBPMO_RECORDBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPMO_RECORDTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter()
-        Me.TooltipControl = New System.Windows.Forms.ToolTip(Me.components)
-        Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components)
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.StammdatenEditierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.StatusStrip1.SuspendLayout()
-        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.SuspendLayout()
-        CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerMain.Panel1.SuspendLayout()
-        Me.SplitContainerMain.Panel2.SuspendLayout()
-        Me.SplitContainerMain.SuspendLayout()
-        CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.StatusStrip2.SuspendLayout()
-        Me.ToolStrip2.SuspendLayout()
-        CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStrip1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstat_lbl})
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'tsstat_lbl
-        '
-        Me.tsstat_lbl.Image = Global.DD_Record_Organiser.My.Resources.Resources.flag_green
-        Me.tsstat_lbl.Name = "tsstat_lbl"
-        resources.ApplyResources(Me.tsstat_lbl, "tsstat_lbl")
-        '
-        'DD_DMSDataSet
-        '
-        Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
-        Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'VWPMO_CONTROL_SCREENBindingSource
-        '
-        Me.VWPMO_CONTROL_SCREENBindingSource.DataMember = "VWPMO_CONTROL_SCREEN"
-        Me.VWPMO_CONTROL_SCREENBindingSource.DataSource = Me.DD_DMSDataSet
-        '
-        'VWPMO_CONTROL_SCREENTableAdapter
-        '
-        Me.VWPMO_CONTROL_SCREENTableAdapter.ClearBeforeFill = True
-        '
-        'TableAdapterManager
-        '
-        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
-        Me.TableAdapterManager.Connection = Nothing
-        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
-        '
-        'VWPMO_CONTROL_SCREENBindingNavigator
-        '
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.AddNewItem = Nothing
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.BindingSource = Me.BindingSourceDGV
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItem = Me.BindingNavigatorCountItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.CountItemFormat = "von {0} Datensätzen"
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.DeleteItem = Nothing
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnrefresh})
-        resources.ApplyResources(Me.VWPMO_CONTROL_SCREENBindingNavigator, "VWPMO_CONTROL_SCREENBindingNavigator")
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.Name = "VWPMO_CONTROL_SCREENBindingNavigator"
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        '
-        'BindingSourceDGV
-        '
-        Me.BindingSourceDGV.AllowNew = False
-        '
-        'BindingNavigatorCountItem
-        '
-        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
-        resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
-        '
-        'BindingNavigatorMoveFirstItem
-        '
-        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
-        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
-        '
-        'BindingNavigatorMovePreviousItem
-        '
-        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
-        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
-        '
-        'BindingNavigatorPositionItem
-        '
-        resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem")
-        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
-        '
-        'BindingNavigatorMoveNextItem
-        '
-        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
-        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
-        '
-        'BindingNavigatorMoveLastItem
-        '
-        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
-        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
-        '
-        'tsbtnrefresh
-        '
-        Me.tsbtnrefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
-        resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
-        Me.tsbtnrefresh.Name = "tsbtnrefresh"
-        '
-        'SplitContainerMain
-        '
-        resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
-        Me.SplitContainerMain.Name = "SplitContainerMain"
-        '
-        'SplitContainerMain.Panel1
-        '
-        Me.SplitContainerMain.Panel1.Controls.Add(Me.dgvInput)
-        '
-        'SplitContainerMain.Panel2
-        '
-        Me.SplitContainerMain.Panel2.Controls.Add(Me.pnlView)
-        Me.SplitContainerMain.Panel2.Controls.Add(Me.StatusStrip2)
-        Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStrip2)
-        Me.SplitContainerMain.TabStop = False
-        '
-        'dgvInput
-        '
-        Me.dgvInput.DataSource = Me.BindingSourceDGV
-        resources.ApplyResources(Me.dgvInput, "dgvInput")
-        Me.dgvInput.MainView = Me.gvMainView
-        Me.dgvInput.Name = "dgvInput"
-        Me.dgvInput.TabStop = False
-        Me.dgvInput.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvMainView})
-        '
-        'gvMainView
-        '
-        Me.gvMainView.Appearance.OddRow.BackColor = CType(resources.GetObject("gvMainView.Appearance.OddRow.BackColor"), System.Drawing.Color)
-        Me.gvMainView.Appearance.OddRow.Options.UseBackColor = True
-        Me.gvMainView.GridControl = Me.dgvInput
-        Me.gvMainView.Name = "gvMainView"
-        Me.gvMainView.OptionsBehavior.Editable = False
-        Me.gvMainView.OptionsLayout.Columns.StoreAppearance = True
-        Me.gvMainView.OptionsPrint.EnableAppearanceOddRow = True
-        Me.gvMainView.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.gvMainView.OptionsView.EnableAppearanceEvenRow = True
-        Me.gvMainView.OptionsView.EnableAppearanceOddRow = True
-        '
-        'pnlView
-        '
-        resources.ApplyResources(Me.pnlView, "pnlView")
-        Me.pnlView.Name = "pnlView"
-        '
-        'StatusStrip2
-        '
-        Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Detail})
-        resources.ApplyResources(Me.StatusStrip2, "StatusStrip2")
-        Me.StatusStrip2.Name = "StatusStrip2"
-        '
-        'tserstellt_Detail
-        '
-        Me.tserstellt_Detail.Name = "tserstellt_Detail"
-        resources.ApplyResources(Me.tserstellt_Detail, "tserstellt_Detail")
-        '
-        'ToolStrip2
-        '
-        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDetail_Eingabe, Me.tsButtonAdd, Me.tsButtonDelete, Me.tsButtonSave})
-        resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
-        Me.ToolStrip2.Name = "ToolStrip2"
-        '
-        'tslblDetail_Eingabe
-        '
-        Me.tslblDetail_Eingabe.Name = "tslblDetail_Eingabe"
-        resources.ApplyResources(Me.tslblDetail_Eingabe, "tslblDetail_Eingabe")
-        '
-        'tsButtonAdd
-        '
-        Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.add
-        resources.ApplyResources(Me.tsButtonAdd, "tsButtonAdd")
-        Me.tsButtonAdd.Name = "tsButtonAdd"
-        '
-        'tsButtonDelete
-        '
-        resources.ApplyResources(Me.tsButtonDelete, "tsButtonDelete")
-        Me.tsButtonDelete.Name = "tsButtonDelete"
-        '
-        'tsButtonSave
-        '
-        Me.tsButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
-        resources.ApplyResources(Me.tsButtonSave, "tsButtonSave")
-        Me.tsButtonSave.Name = "tsButtonSave"
-        '
-        'TBPMO_RECORDBindingSource
-        '
-        Me.TBPMO_RECORDBindingSource.DataMember = "TBPMO_RECORD"
-        Me.TBPMO_RECORDBindingSource.DataSource = Me.DD_DMSDataSet
-        '
-        'TBPMO_RECORDTableAdapter
-        '
-        Me.TBPMO_RECORDTableAdapter.ClearBeforeFill = True
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammdatenEditierenToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
-        '
-        'StammdatenEditierenToolStripMenuItem
-        '
-        Me.StammdatenEditierenToolStripMenuItem.Name = "StammdatenEditierenToolStripMenuItem"
-        resources.ApplyResources(Me.StammdatenEditierenToolStripMenuItem, "StammdatenEditierenToolStripMenuItem")
-        '
-        'frmQuickEdit
-        '
-        Me.AllowDrop = True
-        resources.ApplyResources(Me, "$this")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.SplitContainerMain)
-        Me.Controls.Add(Me.VWPMO_CONTROL_SCREENBindingNavigator)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.KeyPreview = True
-        Me.Name = "frmQuickEdit"
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWPMO_CONTROL_SCREENBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.ResumeLayout(False)
-        Me.VWPMO_CONTROL_SCREENBindingNavigator.PerformLayout()
-        CType(Me.BindingSourceDGV, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.Panel1.ResumeLayout(False)
-        Me.SplitContainerMain.Panel2.ResumeLayout(False)
-        Me.SplitContainerMain.Panel2.PerformLayout()
-        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerMain.ResumeLayout(False)
-        CType(Me.dgvInput, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.gvMainView, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip2.ResumeLayout(False)
-        Me.StatusStrip2.PerformLayout()
-        Me.ToolStrip2.ResumeLayout(False)
-        Me.ToolStrip2.PerformLayout()
-        CType(Me.TBPMO_RECORDBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStrip1.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet
-    Friend WithEvents VWPMO_CONTROL_SCREENBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents VWPMO_CONTROL_SCREENTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter
-    Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager
-    Friend WithEvents VWPMO_CONTROL_SCREENBindingNavigator As System.Windows.Forms.BindingNavigator
-    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer
-    Friend WithEvents BindingSourceDGV As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPMO_RECORDBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPMO_RECORDTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter
-    Friend WithEvents tsstat_lbl As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton
-    Friend WithEvents dgvInput As DevExpress.XtraGrid.GridControl
-    Friend WithEvents gvMainView As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents TooltipControl As System.Windows.Forms.ToolTip
-    Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
-    Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip
-    Friend WithEvents tslblDetail_Eingabe As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents tsButtonAdd As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tsButtonDelete As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tsButtonSave As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tserstellt_Detail As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ttTooltip As System.Windows.Forms.ToolTip
-    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents StammdatenEditierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents pnlView As System.Windows.Forms.Panel
-End Class

app/DD-Record-Organiser/frmQuickEdit.resx

@@ -1,742 +0,0 @@
-<?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>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="tsstat_lbl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>69, 17</value>
-  </data>
-  <data name="tsstat_lbl.Text" xml:space="preserve">
-    <value>tsstat_lbl</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="tsstat_lbl.Visible" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 482</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="StatusStrip1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>1, 0, 16, 0</value>
-  </data>
-  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 22</value>
-  </data>
-  <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="StatusStrip1.Text" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>134, 17</value>
-  </metadata>
-  <metadata name="VWPMO_CONTROL_SCREENBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>277, 17</value>
-  </metadata>
-  <metadata name="VWPMO_CONTROL_SCREENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>563, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>843, 17</value>
-  </metadata>
-  <metadata name="VWPMO_CONTROL_SCREENBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1016, 17</value>
-  </metadata>
-  <metadata name="BindingSourceDGV.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1318, 17</value>
-  </metadata>
-  <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>111, 22</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Text" xml:space="preserve">
-    <value>von {0} Datensätzen</value>
-  </data>
-  <data name="BindingNavigatorCountItem.ToolTipText" xml:space="preserve">
-    <value>Die Gesamtanzahl der Elemente.</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Text" xml:space="preserve">
-    <value>Erste verschieben</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Text" xml:space="preserve">
-    <value>Vorherige verschieben</value>
-  </data>
-  <data name="BindingNavigatorSeparator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AccessibleName" xml:space="preserve">
-    <value>Position</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>58, 23</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Text" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.ToolTipText" xml:space="preserve">
-    <value>Aktuelle Position</value>
-  </data>
-  <data name="BindingNavigatorSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Text" xml:space="preserve">
-    <value>Nächste verschieben</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Text" xml:space="preserve">
-    <value>Letzte verschieben</value>
-  </data>
-  <data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="tsbtnrefresh.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsbtnrefresh.Size" type="System.Drawing.Size, System.Drawing">
-    <value>146, 22</value>
-  </data>
-  <data name="tsbtnrefresh.Text" xml:space="preserve">
-    <value>Übersicht aktualisieren</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 25</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="VWPMO_CONTROL_SCREENBindingNavigator.Text" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.Name" xml:space="preserve">
-    <value>VWPMO_CONTROL_SCREENBindingNavigator</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingNavigator.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="SplitContainerMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="SplitContainerMain.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="SplitContainerMain.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="SplitContainerMain.Orientation" type="System.Windows.Forms.Orientation, System.Windows.Forms">
-    <value>Horizontal</value>
-  </data>
-  <data name="dgvInput.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="dgvInput.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="gvMainView.Appearance.OddRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>128, 255, 255</value>
-  </data>
-  <data name="dgvInput.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 195</value>
-  </data>
-  <data name="dgvInput.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.Name" xml:space="preserve">
-    <value>dgvInput</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.Parent" xml:space="preserve">
-    <value>SplitContainerMain.Panel1</value>
-  </data>
-  <data name="&gt;&gt;dgvInput.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.Name" xml:space="preserve">
-    <value>SplitContainerMain.Panel1</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.Parent" xml:space="preserve">
-    <value>SplitContainerMain</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="pnlView.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="pnlView.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="pnlView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 210</value>
-  </data>
-  <data name="pnlView.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;pnlView.Name" xml:space="preserve">
-    <value>pnlView</value>
-  </data>
-  <data name="&gt;&gt;pnlView.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;pnlView.Parent" xml:space="preserve">
-    <value>SplitContainerMain.Panel2</value>
-  </data>
-  <data name="&gt;&gt;pnlView.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>802, 56</value>
-  </metadata>
-  <data name="tserstellt_Detail.Size" type="System.Drawing.Size, System.Drawing">
-    <value>121, 17</value>
-  </data>
-  <data name="tserstellt_Detail.Text" xml:space="preserve">
-    <value>ToolStripStatusLabel1</value>
-  </data>
-  <data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 235</value>
-  </data>
-  <data name="StatusStrip2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 22</value>
-  </data>
-  <data name="StatusStrip2.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="StatusStrip2.Text" xml:space="preserve">
-    <value>StatusStrip2</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.Name" xml:space="preserve">
-    <value>StatusStrip2</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.Parent" xml:space="preserve">
-    <value>SplitContainerMain.Panel2</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>695, 56</value>
-  </metadata>
-  <data name="tslblDetail_Eingabe.Size" type="System.Drawing.Size, System.Drawing">
-    <value>89, 22</value>
-  </data>
-  <data name="tslblDetail_Eingabe.Text" xml:space="preserve">
-    <value>ToolStripLabel1</value>
-  </data>
-  <data name="tsButtonAdd.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
-    <value>89, 22</value>
-  </data>
-  <data name="tsButtonAdd.Text" xml:space="preserve">
-    <value>Hinzufügen</value>
-  </data>
-  <data name="tsButtonDelete.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsButtonDelete.Size" type="System.Drawing.Size, System.Drawing">
-    <value>55, 22</value>
-  </data>
-  <data name="tsButtonDelete.Text" xml:space="preserve">
-    <value>Löschen</value>
-  </data>
-  <data name="tsButtonSave.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsButtonSave.Size" type="System.Drawing.Size, System.Drawing">
-    <value>79, 22</value>
-  </data>
-  <data name="tsButtonSave.Text" xml:space="preserve">
-    <value>Speichern</value>
-  </data>
-  <data name="ToolStrip2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="ToolStrip2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 25</value>
-  </data>
-  <data name="ToolStrip2.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="ToolStrip2.Text" xml:space="preserve">
-    <value>ToolStrip2</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.Name" xml:space="preserve">
-    <value>ToolStrip2</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.Parent" xml:space="preserve">
-    <value>SplitContainerMain.Panel2</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip2.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.Name" xml:space="preserve">
-    <value>SplitContainerMain.Panel2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.Parent" xml:space="preserve">
-    <value>SplitContainerMain</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Panel2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>919, 457</value>
-  </data>
-  <data name="SplitContainerMain.SplitterDistance" type="System.Int32, mscorlib">
-    <value>195</value>
-  </data>
-  <data name="SplitContainerMain.SplitterWidth" type="System.Int32, mscorlib">
-    <value>5</value>
-  </data>
-  <data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Name" xml:space="preserve">
-    <value>SplitContainerMain</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve">
-    <value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <metadata name="TBPMO_RECORDBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>148, 56</value>
-  </metadata>
-  <metadata name="TBPMO_RECORDTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>371, 56</value>
-  </metadata>
-  <metadata name="TooltipControl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
-  <metadata name="ttTooltip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>919, 56</value>
-  </metadata>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1005, 57</value>
-  </metadata>
-  <data name="StammdatenEditierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>191, 22</value>
-  </data>
-  <data name="StammdatenEditierenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Stammdaten editieren</value>
-  </data>
-  <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>192, 26</value>
-  </data>
-  <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
-    <value>ContextMenuStrip1</value>
-  </data>
-  <data name="&gt;&gt;ContextMenuStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</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>7, 17</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>919, 504</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt</value>
-  </data>
-  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>frmForm_Input</value>
-  </data>
-  <data name="&gt;&gt;tsstat_lbl.Name" xml:space="preserve">
-    <value>tsstat_lbl</value>
-  </data>
-  <data name="&gt;&gt;tsstat_lbl.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
-    <value>DD_DMSDataSet</value>
-  </data>
-  <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingSource.Name" xml:space="preserve">
-    <value>VWPMO_CONTROL_SCREENBindingSource</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENBindingSource.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENTableAdapter.Name" xml:space="preserve">
-    <value>VWPMO_CONTROL_SCREENTableAdapter</value>
-  </data>
-  <data name="&gt;&gt;VWPMO_CONTROL_SCREENTableAdapter.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_CONTROL_SCREENTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
-    <value>TableAdapterManager</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;BindingSourceDGV.Name" xml:space="preserve">
-    <value>BindingSourceDGV</value>
-  </data>
-  <data name="&gt;&gt;BindingSourceDGV.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
-    <value>BindingNavigatorCountItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveFirstItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMovePreviousItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Name" xml:space="preserve">
-    <value>BindingNavigatorPositionItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveNextItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveLastItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator2</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsbtnrefresh.Name" xml:space="preserve">
-    <value>tsbtnrefresh</value>
-  </data>
-  <data name="&gt;&gt;tsbtnrefresh.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;gvMainView.Name" xml:space="preserve">
-    <value>gvMainView</value>
-  </data>
-  <data name="&gt;&gt;gvMainView.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;tserstellt_Detail.Name" xml:space="preserve">
-    <value>tserstellt_Detail</value>
-  </data>
-  <data name="&gt;&gt;tserstellt_Detail.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tslblDetail_Eingabe.Name" xml:space="preserve">
-    <value>tslblDetail_Eingabe</value>
-  </data>
-  <data name="&gt;&gt;tslblDetail_Eingabe.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsButtonAdd.Name" xml:space="preserve">
-    <value>tsButtonAdd</value>
-  </data>
-  <data name="&gt;&gt;tsButtonAdd.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsButtonDelete.Name" xml:space="preserve">
-    <value>tsButtonDelete</value>
-  </data>
-  <data name="&gt;&gt;tsButtonDelete.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsButtonSave.Name" xml:space="preserve">
-    <value>tsButtonSave</value>
-  </data>
-  <data name="&gt;&gt;tsButtonSave.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDBindingSource.Name" xml:space="preserve">
-    <value>TBPMO_RECORDBindingSource</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDBindingSource.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDTableAdapter.Name" xml:space="preserve">
-    <value>TBPMO_RECORDTableAdapter</value>
-  </data>
-  <data name="&gt;&gt;TBPMO_RECORDTableAdapter.Type" xml:space="preserve">
-    <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORDTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TooltipControl.Name" xml:space="preserve">
-    <value>TooltipControl</value>
-  </data>
-  <data name="&gt;&gt;TooltipControl.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ttTooltip.Name" xml:space="preserve">
-    <value>ttTooltip</value>
-  </data>
-  <data name="&gt;&gt;ttTooltip.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StammdatenEditierenToolStripMenuItem.Name" xml:space="preserve">
-    <value>StammdatenEditierenToolStripMenuItem</value>
-  </data>
-  <data name="&gt;&gt;StammdatenEditierenToolStripMenuItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmQuickEdit</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-</root>

app/DD-Record-Organiser/frmQuickEdit.vb

@@ -1,564 +0,0 @@
-Imports DevExpress.XtraScheduler
-Imports System.IO
-Imports WINDREAMLib
-
-Public Class frmQuickEdit
-
-
-
-#Region "+++++ Konstanten +++++"
-    'Private akt_ctrl As Control
-    Private thisformid As Integer = Nothing
-    Private SelectedRecordID As Integer = 0
-    Private SelectedFormID As Integer = Nothing
-    Private m_Moving As Boolean = False
-    Private insert = False
-    'Private Shared _Instance As frmFormInput = Nothing
-    'Public Shared Function Instance() As frmFormInput
-    '    If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
-    '        _Instance = New frmFormInput
-    '    End If
-    '    _Instance.BringToFront()
-    '    Return _Instance
-    'End Function
-
-#End Region
-
-
-    Public Sub SetFormTitles(title As String)
-        Me.Text = title
-        '   BindingNavigatorCountItem.Text = BindingNavigatorCountItem.Text.Replace("Datensätzen", title)
-    End Sub
-
-#Region "+++++ Form Events +++++"
-    Public Sub LoadOverview_Grid()
-        Try
-            'Load Input Grid
-            Dim _sqlGrid As String = "SELECT * FROM VWTEMP_PMO_FORM" & thisformid ' "SELECT SQL_COMMAND FROM TBPMO_FORM_SQL WHERE FORM_ID = " & thisformid
-            Dim dt As DataTable = ClassDatabase.Return_Datatable(_sqlGrid)
-            If dt Is Nothing = False Then
-                If dt.Rows.Count > 0 Then
-                    'BindingSource for Navigator
-                    Me.BindingSourceDGV.DataSource = dt
-                    'bind Datatable to bindingsource
-                    Me.dgvInput.DataSource = Me.BindingSourceDGV
-                    'Me.dgvOverview.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
-                Else
-                    MsgBox("No entries for actual Form. Pleas insert the first values.", MsgBoxStyle.Exclamation)
-                End If
-            End If
-
-
-        Catch ex As Exception
-            MsgBox("Error in Load Overview Grid:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-    Private Sub frmLevel_Designer_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Try
-
-
-            Me.VWPMO_CONTROL_SCREENTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPMO_RECORDTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, CURRENT_FORM_ID)
-
-
-            CtrlBuilder = New ClassControlBuilder(pnlView,
-                                     AddressOf Control_MouseDown,
-                                     AddressOf Control_MouseUp,
-                                     AddressOf Control_MouseMove,
-                                     AddressOf Control_Click,
-                                     AddressOf Groupbox_DragDrop)
-
-            CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
-                                                       ContextMenuStrip1,
-                                                       AddressOf NewEditAppointment,
-                                                       AddressOf OpenFormData)
-
-            If ClassDatabase.Init = True Then
-                LoadOverview_Grid()
-                LoadFormProperties()
-                'LoadControls()
-                CtrlCommandUI.LoadControls(CURRENT_FORM_ID)
-                LoadInitialValues()
-                FocusedRow_Change()
-            End If
-
-            ClassWindowLocation.LoadFormLocationSize(Me, CURRENT_FORM_ID, CURRENT_SCREEN_ID)
-
-        Catch ex As System.Exception
-            System.Windows.Forms.MessageBox.Show(ex.Message)
-        End Try
-
-
-
-    End Sub
-
-    Private Sub HandleToolTip(sender As Object, e As EventArgs)
-        Console.WriteLine("show tooltip")
-    End Sub
-#End Region
-
-#Region "+++++ Layout +++++"
-    Private Sub frmFormInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        LoadLayout()
-    End Sub
-
-    Private Sub frmLevel_Designer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            SaveLayout()
-            ClassWindowLocation.SaveFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID)
-            My.Settings.Save()
-
-            'frmForm_Overview.Instance.Show()
-            'frmTool_ControlProperties.Instance.Close()
-            'frmTool_ControlDesigner.Instance.Close()
-        Catch ex As Exception
-
-        End Try
-    End Sub
-
-    Public Sub LoadLayout()
-
-        Try
-            'DataGridView Layout laden
-            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml")
-            dgvInput.MainView.RestoreLayoutFromXml(XMLPath)
-
-
-            'Splitter Layout laden
-            Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml")
-
-            Dim layout As ClassLayout = New ClassLayout(LayoutPath)
-            Dim settings As System.Collections.Generic.List(Of ClassSetting)
-            settings = layout.Load()
-
-            If settings.Count = 0 Then
-                settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance))
-                layout.Save(settings)
-            End If
-
-            For Each s As ClassSetting In settings
-                Select Case s._name
-                    Case "SplitContainerMain"
-                        SplitContainerMain.SplitterDistance = Integer.Parse(s._value)
-                End Select
-            Next
-        Catch notFoundEx As System.IO.FileNotFoundException
-            ClassLogger.Add("Layout added for Screen " & CURRENT_SCREEN_ID & ", Form " & thisformid)
-        Catch ex As Exception
-            MsgBox("Error while loading Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-
-    Public Sub SaveLayout()
-        Try
-            'DataGridView Layout speichern
-            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-UserLayout.xml")
-            dgvInput.MainView.SaveLayoutToXml(XMLPath)
-
-            'Splitter Layout speichern
-            Dim LayoutPath = Path.Combine(Application.UserAppDataPath(), "SCREEN" & CURRENT_SCREEN_ID & "-FORM" & thisformid & "-SplitterLayout.xml")
-
-            Dim layout As ClassLayout = New ClassLayout(LayoutPath)
-            Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)
-            settings.Add(New ClassSetting("SplitContainerMain", SplitContainerMain.SplitterDistance))
-            layout.Save(settings)
-        Catch ex As Exception
-            MsgBox("Error while saving Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-
-#End Region
-
-#Region "+++++ Load Funktionen +++++"
-    Public Sub LoadFormProperties()
-        'Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID
-        Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid
-        'Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)
-        Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL)
-
-        'SetFormName(name)
-        SetFormTitles("Schnelleingabe - " & title)
-    End Sub
-
-    Sub LoadInitialValues()
-        Dim controls As System.Windows.Forms.Control.ControlCollection = pnlView.Controls
-
-        For Each control As Control In controls
-            Dim CONTROL_ID As Integer = GetControlID_for_RecordID(control.Name, 1)
-
-            If (CONTROL_ID <> -1) Then
-                Load_Value(1, CONTROL_ID, control)
-            End If
-        Next
-    End Sub
-
-    'Private Function GetControlID(recID As Integer, control As Control) As Integer
-    '    Try
-    '        Dim ID As Integer = ClassDatabase.Execute_Scalar("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & control.Name & "'")
-    '        If ID > 0 Then
-    '            Return ID
-    '        Else
-    '            Return -1
-    '        End If
-    '    Catch ex As Exception
-    '        MsgBox("Error in GetControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-    '    End Try
-    'End Function
-
-    Private Sub Load_Value(recID As Integer, CONTROLID As Integer, control As Control)
-        Try
-            Dim sq = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_ID = " & CONTROLID
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sq)
-            Dim result = DT.Rows(0).Item("VALUE")
-            Select Case DT.Rows(0).Item("CONTROL_TYPE_ID")
-                Case 2 ' TextBox
-                    Dim textbox As TextBox = DirectCast(control, TextBox)
-                    textbox.Text = result
-                Case 10 ' CheckBox
-                    Dim checkbox As CheckBox = DirectCast(control, CheckBox)
-                    checkbox.Checked = CBool(result)
-                Case 3 ' ComboBox
-                    Dim combobox As ComboBox = DirectCast(control, ComboBox)
-                    combobox.SelectedIndex = combobox.FindStringExact(result)
-                Case 4 'DateTimePicker
-                    Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
-                    datepicker.DateTime = Date.Parse(result)
-                Case Else
-                    ' MsgBox(DT.Rows(0).Item("CONTROL_TYPE_ID"))
-            End Select
-        Catch ex As Exception
-            MsgBox("Error in Load_Value:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Function Return_SearchPAttern(ByVal content As String)
-        Select Case content
-            Case "Form-ID (Entity)"
-                Return thisformid
-            Case "Record-ID"
-                Return SelectedRecordID
-
-        End Select
-    End Function
-#End Region
-
-#Region "+++++ Mouse/Key Events +++++"
-    Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
-
-    End Sub
-    Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
-
-    End Sub
-    Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-
-    End Sub
-
-    Private Sub Control_Click(sender As Object, e As EventArgs)
-        ' TODO: CLICK CONTROL
-    End Sub
-
-    Private Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs)
-        ' TODO: DRAG DROP GROUPBOX
-    End Sub
-
-#End Region
-
-    Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
-        Dim ctrl As Control = sender
-        Cursor = Cursors.WaitCursor
-        ClassFunctionCommandsUI.OpenFormData(ctrl.Name, thisformid)
-        Cursor = Cursors.Default
-    End Sub
-
-    Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
-        Dim ctrl As Control = sender
-        ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, thisformid, SelectedRecordID, pnlView.Controls)
-    End Sub
-
-    Private Sub FocusedRow_Change()
-        Try
-            If gvMainView.Columns.Count = 0 Then
-                Exit Sub
-            End If
-            Dim RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0))
-            If RecordID Is Nothing Then
-                Exit Sub
-            End If
-            Dim CONTROL_ID As Integer
-            If RecordID Is Nothing = False Then
-                If (Not IsDBNull(RecordID)) Then
-                    ' TODO: AUCH IN CONTSTRUCTOR
-                    ' TODO: Doppelte einträge bei INSERT und UPDATE fixen
-                    ' TODO: FormID wird falsch oder nicht gesetzt
-                    SelectedRecordID = RecordID
-                    ' SelectedFormID = RowView.Item(1)
-                    RefreshRecordByID(SelectedRecordID)
-
-                    For Each control As Control In pnlView.Controls
-                        'CONTROL_ID = GetControlID(thisrecordID, control)
-                        CONTROL_ID = GetControlID_for_RecordID(control.Name, SelectedRecordID)
-                        If TypeOf control Is TextBox Then
-                            control.Text = String.Empty
-                        ElseIf TypeOf control Is CheckBox Then
-                            DirectCast(control, CheckBox).Checked = False
-                        End If
-
-                        If (CONTROL_ID <> -1) Then
-                            Load_Value(SelectedRecordID, CONTROL_ID, control)
-                            Refresh_CreatedChangedRecordByID(SelectedRecordID)
-                        End If
-                    Next
-                End If
-            End If
-
-        Catch ex As Exception
-            MsgBox("Error in FocusedRow_Change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-
-    'Private Sub VWPMO_CONTROL_SCREENBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
-    '    Try
-
-    '        Dim SQL As String
-    '        Dim RECORD_ID As Integer
-    '        Dim ADDED_WHO As String = Environment.UserName
-    '        Dim CHANGED_WHO As String = Environment.UserName
-
-
-    '        If insert = True Then
-    '            ' Create the record first
-    '            SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO) VALUES ('" & ADDED_WHO & "')"
-    '            If ClassDatabase.Execute_non_Query(SQL) = False Then
-    '                Exit Sub
-    '            End If
-
-    '            ' Get last RecordID 
-    '            SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & ADDED_WHO & "'"
-    '            RECORD_ID = ClassDatabase.Execute_Scalar(SQL)
-    '            SelectedRecordID = RECORD_ID
-    '            'MsgBox(formid)
-
-    '            'Save Each Value from Controls into CONTROL_VALUE
-    '            For Each ctrl As Control In pnlView.Controls
-    '                Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, SelectedRecordID)
-
-    '                If CONTROL_ID <> -1 And TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
-
-    '                    Dim VALUE = ctrl.Text
-
-    '                    'If TypeOf ctrl Is ComboBox Then
-    '                    '    Dim cmb = DirectCast(ctrl, ComboBox)
-    '                    '    If cmb.DataSource Is Nothing = False Then
-    '                    '        Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource)
-    '                    '        Dim dt As DataTable = DirectCast(bs.DataSource, DataTable)
-    '                    '        BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text)
-    '                    '        '   MsgBox(dt.TableName.ToString & vbNewLine & cmb.DisplayMember.ToString)
-    '                    '    End If
-    '                    'End If
-
-    '                    SQL = "INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RECORD_ID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
-    '                    ClassDatabase.Execute_non_Query(SQL)
-
-    '                End If
-    '            Next
-
-    '            ' Reset insert after INSERT
-    '            insert = False
-    '            ToolStrip_Notice("Neuer Datensatz eingefügt - " & Now)
-    '            RefreshRecordByID(RECORD_ID)
-    '        Else
-    '            For Each ctrl As Control In pnlView.Controls
-    '                'Dim CONTROL_ID = GetControlID(thisrecordID, ctrl)
-    '                Dim CONTROL_ID = GetControlID_for_RecordID(ctrl.Name, SelectedRecordID)
-
-    '                Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & SelectedRecordID)
-    '                Console.WriteLine(CONTROL_ID.ToString & " - " & ctrl.Name)
-
-    '                If CONTROL_ID = -1 And (TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox) Then
-    '                    ' Trying to save a value for a new value
-    '                    Dim VALUE = ctrl.Text
-    '                    CONTROL_ID = GetControlID_for_Name(ctrl.Name, SelectedFormID)
-    '                    SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & SelectedRecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
-    '                    If ClassDatabase.Execute_non_Query(SQL) = False Then
-    '                        Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!")
-    '                    End If
-
-    '                ElseIf TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
-
-    '                    Dim VALUE = ctrl.Text
-    '                    If value_akt <> VALUE Then
-    '                        'If TypeOf ctrl Is ComboBox Then
-    '                        '    Dim cmb = DirectCast(ctrl, ComboBox)
-    '                        '    If cmb.DataSource Is Nothing = False Then
-    '                        '        Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource)
-    '                        '        BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text)
-    '                        '    End If
-    '                        'End If
-
-    '                        SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & SelectedRecordID
-    '                        If ClassDatabase.Execute_non_Query(SQL) = False Then
-    '                            Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!")
-    '                        End If
-    '                    End If
-
-    '                ElseIf CONTROL_ID = -1 And (TypeOf ctrl Is DevExpress.XtraEditors.DateEdit) Then
-    '                    Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit)
-    '                    Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd")
-    '                    CONTROL_ID = GetControlID_for_Name(date_ctrl.Name, SelectedFormID)
-
-    '                    SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & SelectedRecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
-    '                    If ClassDatabase.Execute_non_Query(SQL) = False Then
-    '                        Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!")
-    '                    End If
-    '                ElseIf TypeOf ctrl Is DevExpress.XtraEditors.DateEdit Then
-    '                    Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit)
-    '                    Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd")
-    '                    If value_akt <> VALUE Then
-    '                        SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & SelectedRecordID
-    '                        If ClassDatabase.Execute_non_Query(SQL) = False Then
-    '                            Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!")
-    '                        End If
-    '                    End If
-    '                    ss()
-    '                End If
-
-    '            Next
-    '            RefreshRecordByID(SelectedRecordID)
-    '            ToolStrip_Notice("Datensatz aktualisiert - " & Now)
-    '        End If
-
-    '        LoadOverview_Grid()
-
-    '    Catch ex As Exception
-    '        MsgBox("Error in VWPMO_CONTROL_SCREENBindingNavigatorSaveItem_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-    '    End Try
-    'End Sub
-    'Sub BindingSource_Check_Content_Insert(bs As BindingSource, column As String, value As String)
-    '    Try
-    '        If bs.Contains(value) = False Then
-    '            Dim dt As DataTable = DirectCast(bs.DataSource, DataTable)
-    '            MsgBox(dt.TableName)
-    '        End If
-
-
-
-    '    Catch ex As Exception
-
-    '    End Try
-    'End Sub
-    Private Sub ToolStrip_Notice(text As String)
-        If text.Length > 0 Then
-            tsstat_lbl.Text = text
-            tsstat_lbl.Visible = True
-        Else
-            tsstat_lbl.Visible = False
-        End If
-    End Sub
-    Private Sub RefreshRecordByID(RECORD_ID As Integer)
-        Try
-            Me.TBPMO_RECORDTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD, CType(RECORD_ID, Integer))
-        Catch ex As System.Exception
-            System.Windows.Forms.MessageBox.Show(ex.Message)
-        End Try
-    End Sub
-
-    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
-        Dim result As MsgBoxResult
-        result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result = MsgBoxResult.Yes Then
-            Dim sql As String = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & SelectedRecordID
-            If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record
-                sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & SelectedRecordID
-                If ClassDatabase.Execute_non_Query(sql) = True Then
-                    LoadOverview_Grid()
-                    ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now)
-                End If
-            End If
-
-        End If
-    End Sub
-
-    Private Sub tsbtnrefresh_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
-        LoadOverview_Grid()
-    End Sub
-
-    Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
-        CtrlCommandUI.LoadControls(thisformid)
-        'Das Flag INSERT nach LoadControls setzen
-        CtrlCommandUI.IsInsert = True
-    End Sub
-
-    Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
-        Dim RecordID = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("Record-ID"))
-        If RecordID Is Nothing And gvMainView.RowCount > 0 Then
-            Exit Sub
-        Else
-            If Not RecordID = Nothing Then
-                SelectedRecordID = RecordID
-            End If
-        End If
-        Dim ResultMessage = CtrlCommandUI.SaveRecord(SelectedRecordID, thisformid)
-
-        LoadOverview_Grid()
-        If SelectedRecordID > 0 Then
-            Refresh_CreatedChangedRecordByID(SelectedRecordID)
-
-        End If
-
-
-        'Refresh_CreatedChangedRecordByID(thisrecordID)
-        ToolStrip_Notice(ResultMessage)
-        'tsstatus_Detail_show(True, ResultMessage)
-    End Sub
-
-    Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click
-        Dim result As MsgBoxResult
-        result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result = MsgBoxResult.Yes Then
-            If CtrlCommandUI.DeleteRecord(SelectedRecordID) = True Then
-                LoadOverview_Grid()
-                ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now)
-            End If
-        End If
-    End Sub
-
-    Sub tserstellt_Detail_show(vis As Boolean, txt As String)
-        Me.tserstellt_Detail.Text = txt
-        tserstellt_Detail.Visible = vis
-    End Sub
-
-    Public Sub Refresh_CreatedChangedRecordByID(RECORD_ID As Integer)
-        Try
-            Dim result = ClassDatabase.Execute_Scalar("select 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID)
-            If IsDBNull(result) Or IsNothing(result) Then
-                'Me.tserstellt_Details.Text = ""
-                tserstellt_Detail_show(False, "")
-            Else
-                'Me.tserstellt_Details.Text = result.ToString
-                tserstellt_Detail_show(True, result.ToString)
-            End If
-
-        Catch ex As System.Exception
-            MsgBox("Error in Refresh_CreatedChangedRecordByID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Sub gvMainView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gvMainView.FocusedRowChanged
-        FocusedRow_Change()
-    End Sub
-
-    Private Sub StammdatenEditierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenEditierenToolStripMenuItem.Click
-        Dim MenuItem = DirectCast(sender, ToolStripMenuItem)
-        Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
-        Dim SourceControl As Control = ContextMenu.SourceControl
-        Dim MasterDataId As Integer = DirectCast(SourceControl.Tag, ClassControlMetadata).Id
-        frmQuickInput.ShowDialog()
-    End Sub
-End Class
-

app/DD-Record-Organiser/frmQuickInput.Designer.vb

@@ -1,185 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmQuickInput
-    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmQuickInput))
-        Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingSourceQuickInput = New System.Windows.Forms.BindingSource(Me.components)
-        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
-        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbtnsave = New System.Windows.Forms.ToolStripButton()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tsStatus = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.vGridQuickInput = New DevExpress.XtraVerticalGrid.VGridControl()
-        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.BindingNavigator1.SuspendLayout()
-        CType(Me.BindingSourceQuickInput, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.StatusStrip1.SuspendLayout()
-        CType(Me.vGridQuickInput, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'BindingNavigator1
-        '
-        Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem
-        Me.BindingNavigator1.BindingSource = Me.BindingSourceQuickInput
-        Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem
-        Me.BindingNavigator1.DeleteItem = Nothing
-        Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.tsbtnsave})
-        resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
-        Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
-        Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem
-        Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem
-        Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
-        Me.BindingNavigator1.Name = "BindingNavigator1"
-        Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem
-        '
-        'BindingNavigatorAddNewItem
-        '
-        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
-        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
-        '
-        'BindingSourceQuickInput
-        '
-        '
-        'BindingNavigatorCountItem
-        '
-        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
-        resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
-        '
-        'BindingNavigatorMoveFirstItem
-        '
-        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
-        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
-        '
-        'BindingNavigatorMovePreviousItem
-        '
-        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
-        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
-        '
-        'BindingNavigatorPositionItem
-        '
-        resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem")
-        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
-        '
-        'BindingNavigatorMoveNextItem
-        '
-        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
-        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
-        '
-        'BindingNavigatorMoveLastItem
-        '
-        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
-        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
-        '
-        'tsbtnsave
-        '
-        Me.tsbtnsave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnsave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save
-        resources.ApplyResources(Me.tsbtnsave, "tsbtnsave")
-        Me.tsbtnsave.Name = "tsbtnsave"
-        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsStatus})
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'tsStatus
-        '
-        Me.tsStatus.Name = "tsStatus"
-        resources.ApplyResources(Me.tsStatus, "tsStatus")
-        '
-        'vGridQuickInput
-        '
-        Me.vGridQuickInput.Appearance.FocusedRecord.BackColor = CType(resources.GetObject("vGridQuickInput.Appearance.FocusedRecord.BackColor"), System.Drawing.Color)
-        Me.vGridQuickInput.Appearance.FocusedRecord.Options.UseBackColor = True
-        Me.vGridQuickInput.Appearance.FocusedRow.BackColor = CType(resources.GetObject("vGridQuickInput.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
-        Me.vGridQuickInput.Appearance.FocusedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.vGridQuickInput, "vGridQuickInput")
-        Me.vGridQuickInput.Name = "vGridQuickInput"
-        '
-        'frmQuickInput
-        '
-        resources.ApplyResources(Me, "$this")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.vGridQuickInput)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.Controls.Add(Me.BindingNavigator1)
-        Me.Name = "frmQuickInput"
-        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.BindingNavigator1.ResumeLayout(False)
-        Me.BindingNavigator1.PerformLayout()
-        CType(Me.BindingSourceQuickInput, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        CType(Me.vGridQuickInput, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator
-    Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents BindingSourceQuickInput As System.Windows.Forms.BindingSource
-    Friend WithEvents vGridQuickInput As DevExpress.XtraVerticalGrid.VGridControl
-    Friend WithEvents tsbtnsave As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tsStatus As System.Windows.Forms.ToolStripStatusLabel
-End Class

app/DD-Record-Organiser/frmQuickInput.resx

@@ -1,454 +0,0 @@
-<?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="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorAddNewItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorAddNewItem.Text" xml:space="preserve">
-    <value>Neu hinzufügen</value>
-  </data>
-  <metadata name="BindingSourceQuickInput.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>288, 17</value>
-  </metadata>
-  <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>44, 22</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Text" xml:space="preserve">
-    <value>von {0}</value>
-  </data>
-  <data name="BindingNavigatorCountItem.ToolTipText" xml:space="preserve">
-    <value>Die Gesamtanzahl der Elemente.</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Text" xml:space="preserve">
-    <value>Erste verschieben</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Text" xml:space="preserve">
-    <value>Vorherige verschieben</value>
-  </data>
-  <data name="BindingNavigatorSeparator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AccessibleName" xml:space="preserve">
-    <value>Position</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>50, 23</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Text" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.ToolTipText" xml:space="preserve">
-    <value>Aktuelle Position</value>
-  </data>
-  <data name="BindingNavigatorSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Text" xml:space="preserve">
-    <value>Nächste verschieben</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Text" xml:space="preserve">
-    <value>Letzte verschieben</value>
-  </data>
-  <data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="tsbtnsave.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="tsbtnsave.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="tsbtnsave.Text" xml:space="preserve">
-    <value>ToolStripButton1</value>
-  </data>
-  <data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>467, 25</value>
-  </data>
-  <data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigator1.Text" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Name" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>171, 17</value>
-  </metadata>
-  <data name="tsStatus.Size" type="System.Drawing.Size, System.Drawing">
-    <value>39, 17</value>
-  </data>
-  <data name="tsStatus.Text" xml:space="preserve">
-    <value>Status</value>
-  </data>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 412</value>
-  </data>
-  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>467, 22</value>
-  </data>
-  <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="StatusStrip1.Text" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="vGridQuickInput.Appearance.FocusedRecord.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>ActiveCaption</value>
-  </data>
-  <data name="vGridQuickInput.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Cyan</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="vGridQuickInput.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="vGridQuickInput.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="vGridQuickInput.Size" type="System.Drawing.Size, System.Drawing">
-    <value>467, 387</value>
-  </data>
-  <data name="vGridQuickInput.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;vGridQuickInput.Name" xml:space="preserve">
-    <value>vGridQuickInput</value>
-  </data>
-  <data name="&gt;&gt;vGridQuickInput.Type" xml:space="preserve">
-    <value>DevExpress.XtraVerticalGrid.VGridControl, DevExpress.XtraVerticalGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;vGridQuickInput.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;vGridQuickInput.ZOrder" xml:space="preserve">
-    <value>0</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>6, 13</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>467, 434</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Quick-Edit</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorAddNewItem.Name" xml:space="preserve">
-    <value>BindingNavigatorAddNewItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorAddNewItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingSourceQuickInput.Name" xml:space="preserve">
-    <value>BindingSourceQuickInput</value>
-  </data>
-  <data name="&gt;&gt;BindingSourceQuickInput.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
-    <value>BindingNavigatorCountItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveFirstItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMovePreviousItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Name" xml:space="preserve">
-    <value>BindingNavigatorPositionItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveNextItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveLastItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator2</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsbtnsave.Name" xml:space="preserve">
-    <value>tsbtnsave</value>
-  </data>
-  <data name="&gt;&gt;tsbtnsave.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;tsStatus.Name" xml:space="preserve">
-    <value>tsStatus</value>
-  </data>
-  <data name="&gt;&gt;tsStatus.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmQuickInput</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-</root>

app/DD-Record-Organiser/frmQuickInput.vb

@@ -1,94 +0,0 @@
-Imports DevExpress.XtraVerticalGrid.Rows
-
-Public Class frmQuickInput
-    Dim Isinsert As Boolean = False
-
-    Private Sub frmQuickInput_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID
-        Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
-        If DT Is Nothing = False Then
-            'DT.Columns.Remove("Record-ID")
-            DT.Columns.Item("Record-ID").ReadOnly = True
-            DT.Columns.Remove("Form-ID")
-            DT.Columns.Remove("AddedWho")
-            DT.Columns.Remove("AddedWhen")
-            DT.Columns.Remove("ChangedWho")
-            DT.Columns.Remove("ChangedWhen")
-            BindingSourceQuickInput.DataSource = Nothing
-            Me.BindingSourceQuickInput.DataSource = DT
-            vGridQuickInput.DataSource = BindingSourceQuickInput
-        Else
-            BindingSourceQuickInput.DataSource = Nothing
-        End If
-
-        tsStatus.Visible = False
-    End Sub
-
-    Private Sub BindingSource1_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles BindingSourceQuickInput.AddingNew
-        Isinsert = True
-    End Sub
-
-    Private Sub tsbtnsave_Click(sender As Object, e As EventArgs) Handles tsbtnsave.Click
-        Dim RECORD_ID As Integer
-        Dim CONTROL_ID As Integer
-
-        tsStatus.Visible = False
-
-        If Isinsert = True Then
-            ' Create the record first
-            Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_FORM_ID & ")"
-            If ClassDatabase.Execute_non_Query(Sql) = True Then
-                ' Get last RecordID 
-                Sql = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & Environment.UserName & "'"
-                RECORD_ID = ClassDatabase.Execute_Scalar(Sql)
-
-                ' Make sure all values are saved
-                vGridQuickInput.CloseEditor()
-                For Each row As BaseRow In vGridQuickInput.Rows
-                    Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord)
-                    Dim fieldName As String = row.Properties.FieldName
-
-                    CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
-                    If CONTROL_ID <> 0 Then
-                        If ClassFunctionCommands.InsertValue(CONTROL_ID, RECORD_ID, val) Then
-                            tsStatus.Visible = True
-                            tsStatus.Text = "Datensatz erfolgreich eingefügt - " & Date.Now
-                        Else
-                            tsStatus.Visible = True
-                            tsStatus.Text = "Fehler beim Einfügen des Datensatzes - " & Date.Now
-                        End If
-                    End If
-                Next row
-
-                Isinsert = False
-            End If
-
-        Else
-            ' Make sure all values are saved
-            vGridQuickInput.CloseEditor()
-            For Each row As BaseRow In vGridQuickInput.Rows
-                Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord)
-                Dim fieldName As String = row.Properties.FieldName
-
-                If fieldName = "Record-ID" Then
-                    RECORD_ID = val
-                End If
-
-                CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
-                If CONTROL_ID <> 0 Then
-                    If ClassFunctionCommands.UpdateValue(CONTROL_ID, RECORD_ID, val) = True Then
-                        tsStatus.Visible = True
-                        tsStatus.Text = "Änderungen erfolgreich gespeichert - " & Date.Now
-                    Else
-                        tsStatus.Visible = True
-                        tsStatus.Text = "Fehler beim Speichern des Datensatzes - " & Date.Now
-                    End If
-                End If
-            Next row
-        End If
-
-
-    End Sub
-
-
-End Class

app/DD-Record-Organiser/frmRecordView.vb

@@ -73,7 +73,7 @@ Public Class frmRecordView
             Dim sw As New Stopwatch
             sw.Start()
             Dim elapsed As Double
-            Dim DT_RESULT As DataTable = Class_DOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID, "RECORD")
+            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID, "RECORD")
             If IsNothing(DT_RESULT) Then
                 Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
                 tslblWindreamView.Text = msg

app/DD-Record-Organiser/frmUserKonfig.Designer.vb

@@ -429,6 +429,16 @@ Partial Class frmUserKonfig
         resources.ApplyResources(COMMENTLabel2, "COMMENTLabel2")
         COMMENTLabel2.Name = "COMMENTLabel2"
         '
+        'DATE_FORMATLabel
+        '
+        resources.ApplyResources(DATE_FORMATLabel, "DATE_FORMATLabel")
+        DATE_FORMATLabel.Name = "DATE_FORMATLabel"
+        '
+        'LOG_OUT_WHENLabel
+        '
+        resources.ApplyResources(LOG_OUT_WHENLabel, "LOG_OUT_WHENLabel")
+        LOG_OUT_WHENLabel.Name = "LOG_OUT_WHENLabel"
+        '
         'DD_DMSDataSet
         '
         Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
@@ -1586,11 +1596,6 @@ Partial Class frmUserKonfig
         Me.WAN_ENVIRONMENTCheckBox.Name = "WAN_ENVIRONMENTCheckBox"
         Me.WAN_ENVIRONMENTCheckBox.UseVisualStyleBackColor = True
         '
-        'DATE_FORMATLabel
-        '
-        resources.ApplyResources(DATE_FORMATLabel, "DATE_FORMATLabel")
-        DATE_FORMATLabel.Name = "DATE_FORMATLabel"
-        '
         'DATE_FORMATComboBox
         '
         Me.DATE_FORMATComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "DATE_FORMAT", True))
@@ -1599,11 +1604,6 @@ Partial Class frmUserKonfig
         resources.ApplyResources(Me.DATE_FORMATComboBox, "DATE_FORMATComboBox")
         Me.DATE_FORMATComboBox.Name = "DATE_FORMATComboBox"
         '
-        'LOG_OUT_WHENLabel
-        '
-        resources.ApplyResources(LOG_OUT_WHENLabel, "LOG_OUT_WHENLabel")
-        LOG_OUT_WHENLabel.Name = "LOG_OUT_WHENLabel"
-        '
         'LOG_OUT_WHENTextBox
         '
         Me.LOG_OUT_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke

app/DD-Record-Organiser/frmUserKonfig.resx

@@ -1026,6 +1026,72 @@
   <data name="&gt;&gt;COMMENTLabel2.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
+  <metadata name="DATE_FORMATLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <data name="DATE_FORMATLabel.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="DATE_FORMATLabel.Location" type="System.Drawing.Point, System.Drawing">
+    <value>567, 39</value>
+  </data>
+  <data name="DATE_FORMATLabel.Size" type="System.Drawing.Size, System.Drawing">
+    <value>73, 13</value>
+  </data>
+  <data name="DATE_FORMATLabel.TabIndex" type="System.Int32, mscorlib">
+    <value>89</value>
+  </data>
+  <data name="DATE_FORMATLabel.Text" xml:space="preserve">
+    <value>Date Format:</value>
+  </data>
+  <data name="&gt;&gt;DATE_FORMATLabel.Name" xml:space="preserve">
+    <value>DATE_FORMATLabel</value>
+  </data>
+  <data name="&gt;&gt;DATE_FORMATLabel.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;DATE_FORMATLabel.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;DATE_FORMATLabel.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <metadata name="LOG_OUT_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <data name="LOG_OUT_WHENLabel.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="LOG_OUT_WHENLabel.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Italic</value>
+  </data>
+  <data name="LOG_OUT_WHENLabel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="LOG_OUT_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
+    <value>567, 167</value>
+  </data>
+  <data name="LOG_OUT_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
+    <value>72, 13</value>
+  </data>
+  <data name="LOG_OUT_WHENLabel.TabIndex" type="System.Int32, mscorlib">
+    <value>17</value>
+  </data>
+  <data name="LOG_OUT_WHENLabel.Text" xml:space="preserve">
+    <value>LogOut when:</value>
+  </data>
+  <data name="&gt;&gt;LOG_OUT_WHENLabel.Name" xml:space="preserve">
+    <value>LOG_OUT_WHENLabel</value>
+  </data>
+  <data name="&gt;&gt;LOG_OUT_WHENLabel.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;LOG_OUT_WHENLabel.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;LOG_OUT_WHENLabel.ZOrder" xml:space="preserve">
+    <value>29</value>
+  </data>
   <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
@@ -1953,8 +2019,8 @@
     <value>9</value>
   </data>
   <data name="btnaddSelectedUser2Group.Text" xml:space="preserve">
-    <value>Ausgewählte User zu 
+    <value>Gruppe und User 
-Gruppe hinzufügen</value>
+matchen</value>
   </data>
   <data name="btnaddSelectedUser2Group.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleRight</value>
@@ -2059,7 +2125,7 @@ Gruppe hinzufügen</value>
     <value>3, 3, 3, 3</value>
   </data>
   <data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1093, 280</value>
+    <value>1097, 293</value>
   </data>
   <data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -2499,7 +2565,7 @@ Gruppe hinzufügen</value>
     <value>0, 0</value>
   </data>
   <data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1097, 25</value>
+    <value>1105, 25</value>
   </data>
   <data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -2520,7 +2586,7 @@ Gruppe hinzufügen</value>
     <value>15</value>
   </data>
   <data name="TabGruppendefinition.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1097, 303</value>
+    <value>1105, 319</value>
   </data>
   <data name="TabGruppendefinition.Text" xml:space="preserve">
     <value>Gruppendefinition</value>
@@ -3348,7 +3414,7 @@ Mandant hinzufügen</value>
     <value>0, 0</value>
   </data>
   <data name="TabControl3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1097, 303</value>
+    <value>1105, 319</value>
   </data>
   <data name="TabControl3.TabIndex" type="System.Int32, mscorlib">
     <value>38</value>
@@ -3366,7 +3432,7 @@ Mandant hinzufügen</value>
     <value>0</value>
   </data>
   <data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1097, 303</value>
+    <value>1105, 319</value>
   </data>
   <data name="XtraTabPage2.Text" xml:space="preserve">
     <value>Mandantendefinition</value>
@@ -3656,36 +3722,6 @@ Mandant hinzufügen</value>
   <data name="&gt;&gt;WAN_ENVIRONMENTCheckBox.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
-  <metadata name="DATE_FORMATLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="DATE_FORMATLabel.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="DATE_FORMATLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>567, 39</value>
-  </data>
-  <data name="DATE_FORMATLabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>73, 13</value>
-  </data>
-  <data name="DATE_FORMATLabel.TabIndex" type="System.Int32, mscorlib">
-    <value>89</value>
-  </data>
-  <data name="DATE_FORMATLabel.Text" xml:space="preserve">
-    <value>Date Format:</value>
-  </data>
-  <data name="&gt;&gt;DATE_FORMATLabel.Name" xml:space="preserve">
-    <value>DATE_FORMATLabel</value>
-  </data>
-  <data name="&gt;&gt;DATE_FORMATLabel.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;DATE_FORMATLabel.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;DATE_FORMATLabel.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
   <data name="DATE_FORMATComboBox.Items" xml:space="preserve">
     <value>dd.MM.yyyy</value>
   </data>
@@ -3716,42 +3752,6 @@ Mandant hinzufügen</value>
   <data name="&gt;&gt;DATE_FORMATComboBox.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
-  <metadata name="LOG_OUT_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="LOG_OUT_WHENLabel.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="LOG_OUT_WHENLabel.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Italic</value>
-  </data>
-  <data name="LOG_OUT_WHENLabel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="LOG_OUT_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>567, 167</value>
-  </data>
-  <data name="LOG_OUT_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>72, 13</value>
-  </data>
-  <data name="LOG_OUT_WHENLabel.TabIndex" type="System.Int32, mscorlib">
-    <value>17</value>
-  </data>
-  <data name="LOG_OUT_WHENLabel.Text" xml:space="preserve">
-    <value>LogOut when:</value>
-  </data>
-  <data name="&gt;&gt;LOG_OUT_WHENLabel.Name" xml:space="preserve">
-    <value>LOG_OUT_WHENLabel</value>
-  </data>
-  <data name="&gt;&gt;LOG_OUT_WHENLabel.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;LOG_OUT_WHENLabel.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;LOG_OUT_WHENLabel.ZOrder" xml:space="preserve">
-    <value>29</value>
-  </data>
   <data name="LOG_OUT_WHENTextBox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>

app/DD-Record-Organiser/frmUserKonfig.vb

@@ -281,8 +281,7 @@
     Sub Load_Selectable_Users_for_Groups()
         Try
             DD_ECMAdmin.TBAD_Users.Clear()
-
+            Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0})) ORDER BY T.USERNAME", USER_GUID)
-            Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
             For Each userrow As DataRow In DT.Rows
                 Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow

app/DD-Record-Organiser/frmWD_IndexFile.vb

@@ -175,12 +175,16 @@ Public Class frmWD_IndexFile
                                 'Die temporäre Datei löschen
                                 File.Delete(aktFiledropped)
                             End If
-                            Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
+                            ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_FILEIN_WD)
+                            ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
                             sql = String.Format("SELECT DocID FROM  VWPMO_WD_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
                             CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql)
                             If Not IsNothing(CURRENT_DOC_ID) Then
                                 ClassFileResult.DocID = CURRENT_DOC_ID
                                 ClassFileResult.SET_DOCID_INDICES()
+                                If ClassDOC_SEARCH.SET_RECORD_DOCID_LINK(CURRENT_DOC_ID, CURRENT_RECORD_ID) = True Then
+
+                                End If
                             End If
                         Else
                             MsgBox("An unexpected error occured while indexing file. Please check the log!", MsgBoxStyle.Exclamation)
@@ -483,7 +487,7 @@ Public Class frmWD_IndexFile
                                 stg = "All files were transferred via Multiindexing to windream"
                                 stg1 = "Success:"
                             End If
-                            Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
+                            ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
                             MsgBox(stg, MsgBoxStyle.Information, stg1)
                             Me.Close()
                         End If
@@ -1072,23 +1076,27 @@ Public Class frmWD_IndexFile
     End Sub
 
     Private Sub frmWD_Index_Dokart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then
+        Try
-            cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
+            If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then
-        Else
+                cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
-            If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
+            Else
-                cmbDokumentart.SelectedIndex = 0
+                If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
-                CURRENT_DOKARTID = cmbDokumentart.SelectedValue
+                    cmbDokumentart.SelectedIndex = 0
-                CURRENT_DOKARTSTRING = cmbDokumentart.Text
+                    CURRENT_DOKARTID = cmbDokumentart.SelectedValue
-                Refresh_indices()
+                    CURRENT_DOKARTSTRING = cmbDokumentart.Text
+                    Refresh_indices()
+                End If
             End If
-        End If
+            Me.Hide()
-        Me.Hide()
+            Me.Visible = True
-        Me.Visible = True
+            Me.Activate()
-        Me.Activate()
+            Me.BringToFront()
-        Me.BringToFront()
+            If CURRENT_CONTROL_DOCTYPE_MATCH <> "" Then
-        If CURRENT_CONTROL_DOCTYPE_MATCH <> "" Then
+                cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_CONTROL_DOCTYPE_MATCH)
-            cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_CONTROL_DOCTYPE_MATCH)
+            End If
-        End If
+        Catch ex As Exception
+            MsgBox("Error in Form Shown:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
         formloaded = True
     End Sub
 

app/DD-Record-Organiser/frmWD_Link_to_Record.vb

@@ -45,7 +45,7 @@ Public Class frmWD_Link_to_Record
     End Function
 
     Private Sub frmWD_Link_to_Record_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
+        ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
     End Sub
 
     Private Sub frmWD_Link_to_Record_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -84,25 +84,27 @@ Public Class frmWD_Link_to_Record
                 ' Use the Select method to find all rows matching the filter.
                 foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression)
                 Dim i As Integer
+                Dim NODE_CONFIG_ID
                 ' For each row create a Node
                 For i = 0 To foundRowsLevel0.GetUpperBound(0)
                     Dim ID = foundRowsLevel0(i)("GUID")
                     Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
                     Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
-                    Dim nodetext = foundRowsLevel0(i)("ID2")
+                    Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
                     Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
                     Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
+                    NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
                     Dim LEVEL0_NODE As TreeNode
                     LEVEL0_NODE = New TreeNode(nodetext)
                     If Not IsDBNull(RECORD_ID) Then
-                        LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
+                        LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
                     Else
-                        LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID
+                        LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID
                     End If
 
                     Dim index As Integer = 0
                     For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                        If img.Replace("LEVEL#ENTITY", "") = Type_node.ToString & LevelEntity.ToString Then
+                        If img = NODE_CONFIG_ID & "#" & LevelEntity Then
                             Exit For
                         End If
                         index += 1
@@ -112,7 +114,7 @@ Public Class frmWD_Link_to_Record
                     trvwMain.Nodes.Add(LEVEL0_NODE)
                     '### LEVEL 1 laden #######
                     Dim expressionLevel1 As String
-                    expressionLevel1 = "TYPE_NODE = 1 AND PARENT_GUID = " & ID 'Einschränkung auf Type 2 und Parent_Guid
+                    expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND  Einschränkung auf Type 2 und Parent_Guid
                     Dim foundRowsLevel1() As DataRow
                     foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
                     Dim j As Integer
@@ -120,21 +122,22 @@ Public Class frmWD_Link_to_Record
                         Dim ID1 = foundRowsLevel1(j)("GUID")
                         Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
                         Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
-                        Dim nodetext1 = foundRowsLevel1(j)("ID2")
+                        Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
-                        Dim Type_node1 = foundRowsLevel1(i)("TYPE_NODE")
+                        Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
-                        RECORD_ID = foundRowsLevel1(i)("RECORD_ID")
+                        RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
+                        NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID")
                         ' Node erstellen..
                         Dim LEVEL1_NODE As TreeNode
                         LEVEL1_NODE = New TreeNode(nodetext1)
                         If Not IsDBNull(RECORD_ID) Then
-                            LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
+                            LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
                         Else
-                            LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1
+                            LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1
                         End If
 
                         index = 0
                         For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                            If img.Replace("LEVEL#ENTITY", "") = Type_node1 & LevelEntity1.ToString Then
+                            If img = NODE_CONFIG_ID & "#" & LevelEntity1 Then
                                 Exit For
                             End If
                             index += 1
@@ -145,7 +148,7 @@ Public Class frmWD_Link_to_Record
                         LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
                         '### LEVEL 2 laden #######
                         Dim expressionLevel2 As String
-                        expressionLevel2 = "TYPE_NODE = 2 AND PARENT_GUID = " & ID1 'Einschränkung auf Type  und Parent_Guid
+                        expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type  und Parent_Guid
                         Dim foundRowsLevel2() As DataRow
                         foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
                         Dim k As Integer
@@ -153,20 +156,21 @@ Public Class frmWD_Link_to_Record
                             Dim ID2 = foundRowsLevel2(k)("GUID")
                             Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
                             Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
-                            Dim nodetext2 = foundRowsLevel2(k)("ID2")
+                            Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
                             RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
+                            NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID")
                             ' Node erstellen..
                             Dim LEVEL2_NODE As TreeNode
                             LEVEL2_NODE = New TreeNode(nodetext2)
                             If Not IsDBNull(RECORD_ID) Then
-                                LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
+                                LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
                             Else
-                                LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2
+                                LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2
                             End If
 
                             index = 0
                             For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                                If img.Replace("LEVEL#ENTITY", "") = "2" & LevelEntity2.ToString Then
+                                If img = NODE_CONFIG_ID & "#" & LevelEntity2 Then
                                     Exit For
                                 End If
                                 index += 1
@@ -177,7 +181,7 @@ Public Class frmWD_Link_to_Record
                             LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
                             '### LEVEL 3 laden #######
                             Dim expressionLevel3 As String
-                            expressionLevel3 = "TYPE_NODE = 3 AND PARENT_GUID = " & ID2 'Einschränkung auf Type  und Parent_Guid
+                            expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND  Einschränkung auf Type  und Parent_Guid
                             Dim foundRowsLevel3() As DataRow
                             foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
                             Dim l As Integer
@@ -185,20 +189,21 @@ Public Class frmWD_Link_to_Record
                                 Dim ID3 = foundRowsLevel3(l)("GUID")
                                 Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
                                 Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
-                                Dim nodetext3 = foundRowsLevel3(l)("ID2")
+                                Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
                                 RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
+                                NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID")
                                 ' Node erstellen..
                                 Dim LEVEL3_NODE As TreeNode
                                 LEVEL3_NODE = New TreeNode(nodetext3)
                                 If Not IsDBNull(RECORD_ID) Then
-                                    LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
+                                    LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
                                 Else
-                                    LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3
+                                    LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3
                                 End If
 
                                 index = 0
                                 For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                                    If img.Replace("LEVEL#ENTITY", "") = "3" & LevelEntity3.ToString Then
+                                    If img = NODE_CONFIG_ID & "#" & LevelEntity3 Then
                                         Exit For
                                     End If
                                     index += 1
@@ -209,7 +214,7 @@ Public Class frmWD_Link_to_Record
                                 LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
                                 '### LEVEL 4 laden #######
                                 Dim expressionLevel4 As String
-                                expressionLevel4 = "TYPE_NODE = 4 AND PARENT_GUID = " & ID3 'Einschränkung auf Type  und Parent_Guid
+                                expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type  und Parent_Guid
                                 Dim foundRowsLevel4() As DataRow
                                 foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4)
                                 Dim m As Integer
@@ -217,20 +222,21 @@ Public Class frmWD_Link_to_Record
                                     Dim ID5 = foundRowsLevel4(m)("GUID")
                                     Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
                                     Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
-                                    Dim nodetext5 = foundRowsLevel4(m)("ID2")
+                                    Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
                                     RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
+                                    NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID")
                                     ' Node erstellen..
                                     Dim LEVEL4_NODE As TreeNode
                                     LEVEL4_NODE = New TreeNode(nodetext5)
                                     If Not IsDBNull(RECORD_ID) Then
-                                        LEVEL4_NODE.Tag = LevelEntity5 & "CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
+                                        LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
                                     Else
-                                        LEVEL4_NODE.Tag = LevelEntity5 & "CONTROL-ID" & controlID5.ToString & "#" & ID5
+                                        LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5
                                     End If
 
                                     index = 0
                                     For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                                        If img.Replace("LEVEL#ENTITY", "") = "4" & LevelEntity5.ToString Then
+                                        If img = NODE_CONFIG_ID & "#" & LevelEntity5 Then
                                             Exit For
                                         End If
                                         index += 1
@@ -241,7 +247,7 @@ Public Class frmWD_Link_to_Record
                                     LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
                                     '### LEVEL 5 laden #######
                                     Dim expressionLevel5 As String
-                                    expressionLevel5 = "TYPE_NODE = 5 AND PARENT_GUID = " & ID5 'Einschränkung auf Type  und Parent_Guid
+                                    expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND  Einschränkung auf Type  und Parent_Guid
                                     Dim foundRowsLevel5() As DataRow
                                     foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5)
                                     Dim n As Integer
@@ -249,20 +255,21 @@ Public Class frmWD_Link_to_Record
                                         Dim ID6 = foundRowsLevel5(n)("GUID")
                                         Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
                                         Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
-                                        Dim nodetext6 = foundRowsLevel5(n)("ID2")
+                                        Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
                                         RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
+                                        NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID")
                                         ' Node erstellen..
                                         Dim LEVEL5_NODE As TreeNode
                                         LEVEL5_NODE = New TreeNode(nodetext6)
                                         If Not IsDBNull(RECORD_ID) Then
-                                            LEVEL5_NODE.Tag = LevelEntity6 & "CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
+                                            LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
                                         Else
-                                            LEVEL5_NODE.Tag = LevelEntity6 & "CONTROL-ID" & controlID6.ToString & "#" & ID6
+                                            LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6
                                         End If
 
                                         index = 0
                                         For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                                            If img.Replace("LEVEL#ENTITY", "") = "5" & LevelEntity6.ToString Then
+                                            If img = NODE_CONFIG_ID & "#" & LevelEntity6 Then
                                                 Exit For
                                             End If
                                             index += 1
@@ -271,10 +278,9 @@ Public Class frmWD_Link_to_Record
                                         LEVEL5_NODE.SelectedImageIndex = index
                                         ' ..und einfügen
                                         LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
-                                        '#####
                                         '### LEVEL 5 laden #######
                                         Dim expressionLevel6 As String
-                                        expressionLevel6 = "TYPE_NODE = 6 AND PARENT_GUID = " & ID6 'Einschränkung auf Type  und Parent_Guid
+                                        expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND  Einschränkung auf Type  und Parent_Guid
                                         Dim foundRowsLevel6() As DataRow
                                         foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6)
                                         Dim o As Integer
@@ -282,20 +288,21 @@ Public Class frmWD_Link_to_Record
                                             Dim ID7 = foundRowsLevel6(o)("GUID")
                                             Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
                                             Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
-                                            Dim nodetext7 = foundRowsLevel6(o)("ID2")
+                                            Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
                                             RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
+                                            NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID")
                                             ' Node erstellen..
                                             Dim LEVEL6_NODE As TreeNode
                                             LEVEL6_NODE = New TreeNode(nodetext7)
                                             If Not IsDBNull(RECORD_ID) Then
-                                                LEVEL6_NODE.Tag = LevelEntity7 & "CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString
+                                                LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString
                                             Else
-                                                LEVEL6_NODE.Tag = LevelEntity7 & "CONTROL-ID" & controlID7.ToString & "#" & ID7
+                                                LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7
                                             End If
 
                                             index = 0
                                             For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
-                                                If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity7.ToString Then
+                                                If img = NODE_CONFIG_ID & "#" & LevelEntity7 Then
                                                     Exit For
                                                 End If
                                                 index += 1
@@ -304,8 +311,76 @@ Public Class frmWD_Link_to_Record
                                             LEVEL6_NODE.SelectedImageIndex = index
                                             ' ..und einfügen
                                             LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
-                                            '#####
+                                            '### LEVEL 7 laden #######
-                                        Next
+                                            Dim expressionLevel7 As String
+                                            expressionLevel7 = "PARENT_GUID = " & ID7 'TYPE_NODE = 7 AND Einschränkung auf Type  und Parent_Guid
+                                            Dim foundRowsLevel7() As DataRow
+                                            foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7)
+                                            Dim p As Integer
+                                            For p = 0 To foundRowsLevel7.GetUpperBound(0)
+                                                Dim ID8 = foundRowsLevel7(p)("GUID")
+                                                Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
+                                                Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
+                                                Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
+                                                RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
+                                                NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID")
+                                                ' Node erstellen..
+                                                Dim LEVEL7_NODE As TreeNode
+                                                LEVEL7_NODE = New TreeNode(nodetext8)
+                                                If Not IsDBNull(RECORD_ID) Then
+                                                    LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString
+                                                Else
+                                                    LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8
+                                                End If
+
+                                                index = 0
+                                                For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
+                                                    If img = NODE_CONFIG_ID & "#" & LevelEntity8 Then
+                                                        Exit For
+                                                    End If
+                                                    index += 1
+                                                Next
+                                                LEVEL7_NODE.ImageIndex = index
+                                                LEVEL7_NODE.SelectedImageIndex = index
+                                                ' ..und einfügen
+                                                LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
+                                                '### LEVEL 7 laden #######
+                                                Dim expressionLevel8 As String
+                                                expressionLevel8 = "PARENT_GUID = " & ID8 'TYPE_NODE = 7 AND  Einschränkung auf Type  und Parent_Guid
+                                                Dim foundRowsLevel8() As DataRow
+                                                foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8)
+                                                Dim q As Integer
+                                                For q = 0 To foundRowsLevel8.GetUpperBound(0)
+                                                    Dim ID9 = foundRowsLevel8(q)("GUID")
+                                                    Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID")
+                                                    Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
+                                                    Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
+                                                    RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
+                                                    NODE_CONFIG_ID = foundRowsLevel8(q)("NODE_CONFIG_ID")
+                                                    ' Node erstellen..
+                                                    Dim LEVEL8_NODE As TreeNode
+                                                    LEVEL8_NODE = New TreeNode(nodetext9)
+                                                    If Not IsDBNull(RECORD_ID) Then
+                                                        LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString
+                                                    Else
+                                                        LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9
+                                                    End If
+
+                                                    index = 0
+                                                    For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
+                                                        If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then
+                                                            Exit For
+                                                        End If
+                                                        index += 1
+                                                    Next
+                                                    LEVEL8_NODE.ImageIndex = index
+                                                    LEVEL8_NODE.SelectedImageIndex = index
+                                                    ' ..und einfügen
+                                                    LEVEL7_NODE.Nodes.Add(LEVEL8_NODE)
+                                                    '### LEVEL 8 laden #######
+                                                Next ' Level 7 Ende
+                                            Next ' Level 7 Ende
+                                        Next ' Level 6 Ende
                                     Next ' Level 5 Ende
                                 Next 'Level 4 Ende
                             Next 'Level 3 Ende
@@ -414,12 +489,12 @@ Public Class frmWD_Link_to_Record
 
             DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL)
 
-            SQL = String.Format("select * from TBPMO_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})", 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})", CONSTRUCTOR_ID)
                 DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(Sql)
 
                 Try
@@ -428,7 +503,7 @@ Public Class frmWD_Link_to_Record
                         Dim bimage() As Byte = row.Item("NODE_IMAGE")
                         If Not IsDBNull(bimage) Then
                             Dim Node_image = ByteArrayToBitmap(bimage)
-                            TREEVIEW_IMAGELIST.Images.Add("LEVEL#ENTITY" & row.Item("TYPE_NODE").ToString & row.Item("ENTITY_ID"), Node_image)
+                            TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image)
                         End If
                     Next
                     trvwMain.ImageList = TREEVIEW_IMAGELIST
@@ -632,6 +707,10 @@ Public Class frmWD_Link_to_Record
             RecordId = Integer.Parse(txtRecordId.Text)
             FileName = txtFilename.Text
             Try
+                Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", RecordId, CURRENT_DOC_ID, "MANUAL RECORD-LINK", Environment.UserName)
+                If ClassDatabase.Execute_non_Query(ins) = False Then
+                    MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
+                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)
                 If DT_OBJTYPE.Rows.Count = 1 Then

app/RecordOrganizer_RightManager/App.config

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="RecordOrganizer_RightManager.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
+    </startup>
+    <userSettings>
+        <RecordOrganizer_RightManager.My.MySettings>
+            <setting name="MyConnectionString" serializeAs="String">
+                <value />
+            </setting>
+        </RecordOrganizer_RightManager.My.MySettings>
+    </userSettings>
+</configuration>

app/RecordOrganizer_RightManager/ApplicationEvents.vb

@@ -0,0 +1,34 @@
+Namespace My
+
+    ' Für MyApplication sind folgende Ereignisse verfügbar:
+    ' 
+    ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
+    ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung nicht normal beendet wird.
+    ' UnhandledException: Wird ausgelöst, wenn in der Anwendung ein Ausnahmefehler auftritt.
+    ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn diese bereits aktiv ist. 
+    ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
+    Partial Friend Class MyApplication
+
+        Private Sub MyApplication_Startup(sender As Object, e As ApplicationServices.StartupEventArgs) Handles Me.Startup
+            Try
+                Dim args() As String = Environment.GetCommandLineArgs()
+                If args.Length <> 2 Then
+                    MsgBox("No application parameters!", MsgBoxStyle.Critical)
+                    ''    Exit Sub
+                End If
+                For Each Str As String In args
+                    If Str.Contains("Server") Then
+                        My.Settings.MyConnectionString = Str
+                        My.Settings.Save()
+                    End If
+                Next
+            Catch ex As Exception
+                MsgBox("Error in ParseArgs:" & vbNewLine & ex.Message)
+                Exit Sub
+            End Try
+        End Sub
+    End Class
+
+
+End Namespace
+

app/RecordOrganizer_RightManager/ModuleMySettings.vb

@@ -0,0 +1,9 @@
+Module ModuleMySettings
+    Public USER_IS_ADMIN = False
+    Public USERS_LOGGED_IN = 0
+    Public USER_GUID = 0
+    Public USERID_FK_INT_ECM = 0
+    Public USER_LANGUAGE As String = "de-DE"
+    Public USER_DATE_FORMAT As String
+    Public USER_WAN As Boolean = False
+End Module

app/RecordOrganizer_RightManager/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.34209
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
+    ' or if you encounter build errors in this file, go to the Project Designer
+    ' (go to Project Properties or double-click the My Project node in
+    ' Solution Explorer), and make changes on the Application tab.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.RecordOrganizer_RightManager.frmStart
+        End Sub
+    End Class
+End Namespace

app/RecordOrganizer_RightManager/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-16"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmStart</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

app/RecordOrganizer_RightManager/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("RecordOrganizer_RightManager")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("RecordOrganizer_RightManager")> 
+<Assembly: AssemblyCopyright("Copyright ©  2016")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("82da1d4f-b7ab-4a41-9eb8-6d0d2c384cc9")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

app/RecordOrganizer_RightManager/My Project/Resources.Designer.vb

@@ -0,0 +1,93 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34209
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("RecordOrganizer_RightManager.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property cancel() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property cancel1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cancel1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property folder_Closed_16xSM() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("folder_Closed_16xSM", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

app/RecordOrganizer_RightManager/My Project/Resources.resx

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

app/RecordOrganizer_RightManager/My Project/Settings.Designer.vb

@@ -0,0 +1,86 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34209
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property MyConnectionString() As String
+            Get
+                Return CType(Me("MyConnectionString"),String)
+            End Get
+            Set
+                Me("MyConnectionString") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.RecordOrganizer_RightManager.My.MySettings
+            Get
+                Return Global.RecordOrganizer_RightManager.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

app/RecordOrganizer_RightManager/My Project/Settings.settings

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="MyConnectionString" Roaming="true" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+  </Settings>
+</SettingsFile>

app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj

@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>RecordOrganizer_RightManager.My.MyApplication</StartupObject>
+    <RootNamespace>RecordOrganizer_RightManager</RootNamespace>
+    <AssemblyName>RecordOrganizer_RightManager</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>RecordOrganizer_RightManager.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>RecordOrganizer_RightManager.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>navigate_right2.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DD_Rights, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DD_Libraries\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="frmCheckRightsEntity.Designer.vb">
+      <DependentUpon>frmCheckRightsEntity.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmCheckRightsEntity.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmStart.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmStart.Designer.vb">
+      <DependentUpon>frmStart.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmCheckRightsEntity.resx">
+      <DependentUpon>frmCheckRightsEntity.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmStart.resx">
+      <DependentUpon>frmStart.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\cancel.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\cancel1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\folder_Closed_16xSM.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="navigate_right2.ico" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

app/RecordOrganizer_RightManager/frmCheckRightsEntity.Designer.vb

@@ -0,0 +1,125 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmCheckRightsEntity
+    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.Label1 = New System.Windows.Forms.Label()
+        Me.cmbentity = New System.Windows.Forms.ComboBox()
+        Me.btnCheckRights = New System.Windows.Forms.Button()
+        Me.BW_RightsEntity = New System.ComponentModel.BackgroundWorker()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.btncancel = New System.Windows.Forms.Button()
+        Me.chklogging = New System.Windows.Forms.CheckBox()
+        Me.SuspendLayout
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = true
+        Me.Label1.Location = New System.Drawing.Point(25, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(147, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Please choose an entity:"
+        '
+        'cmbentity
+        '
+        Me.cmbentity.FormattingEnabled = true
+        Me.cmbentity.Location = New System.Drawing.Point(28, 29)
+        Me.cmbentity.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.cmbentity.Name = "cmbentity"
+        Me.cmbentity.Size = New System.Drawing.Size(335, 24)
+        Me.cmbentity.TabIndex = 1
+        '
+        'btnCheckRights
+        '
+        Me.btnCheckRights.Location = New System.Drawing.Point(28, 60)
+        Me.btnCheckRights.Name = "btnCheckRights"
+        Me.btnCheckRights.Size = New System.Drawing.Size(335, 39)
+        Me.btnCheckRights.TabIndex = 2
+        Me.btnCheckRights.Text = "Check rights for all documents in this entity"
+        Me.btnCheckRights.UseVisualStyleBackColor = true
+        '
+        'BW_RightsEntity
+        '
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(28, 108)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(335, 31)
+        Me.ProgressBar1.TabIndex = 3
+        Me.ProgressBar1.Visible = false
+        '
+        'btncancel
+        '
+        Me.btncancel.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.cancel1
+        Me.btncancel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btncancel.Location = New System.Drawing.Point(369, 108)
+        Me.btncancel.Name = "btncancel"
+        Me.btncancel.Size = New System.Drawing.Size(75, 31)
+        Me.btncancel.TabIndex = 4
+        Me.btncancel.Text = "Cancel"
+        Me.btncancel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btncancel.UseVisualStyleBackColor = true
+        Me.btncancel.Visible = false
+        '
+        'chklogging
+        '
+        Me.chklogging.AutoSize = true
+        Me.chklogging.Checked = true
+        Me.chklogging.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chklogging.Location = New System.Drawing.Point(379, 31)
+        Me.chklogging.Name = "chklogging"
+        Me.chklogging.Size = New System.Drawing.Size(113, 20)
+        Me.chklogging.TabIndex = 5
+        Me.chklogging.Text = "Log errors only"
+        Me.chklogging.UseVisualStyleBackColor = true
+        '
+        'frmCheckRightsEntity
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7!, 16!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(755, 321)
+        Me.Controls.Add(Me.chklogging)
+        Me.Controls.Add(Me.btncancel)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.btnCheckRights)
+        Me.Controls.Add(Me.cmbentity)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "frmCheckRightsEntity"
+        Me.ShowInTaskbar = false
+        Me.Text = "Check Rights for Entity"
+        Me.ResumeLayout(false)
+        Me.PerformLayout
+
+End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents cmbentity As System.Windows.Forms.ComboBox
+    Friend WithEvents btnCheckRights As System.Windows.Forms.Button
+    Friend WithEvents BW_RightsEntity As System.ComponentModel.BackgroundWorker
+    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+    Friend WithEvents btncancel As System.Windows.Forms.Button
+    Friend WithEvents chklogging As System.Windows.Forms.CheckBox
+End Class

app/RecordOrganizer_RightManager/frmCheckRightsEntity.resx

@@ -0,0 +1,123 @@
+<?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="BW_RightsEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb

@@ -0,0 +1,92 @@
+Imports DD_Rights
+Imports System.ComponentModel
+
+Public Class frmCheckRightsEntity
+    Private DT_FILES As DataTable
+    Private _error As Boolean = False
+    Private Sub frmCheckRightsEntity_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Dim sql = String.Format("SELECT T.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.[FORM_VIEW_ID]), 1) AS FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS T WHERE DOCUMENT_VIEW = 1", USER_LANGUAGE)
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            cmbentity.DataSource = DT
+            cmbentity.ValueMember = DT.Columns(0).ColumnName
+            cmbentity.DisplayMember = DT.Columns(1).ColumnName
+        Catch ex As Exception
+            MsgBox("Unexpected error in load form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btnCheckRights_Click(sender As Object, e As EventArgs) Handles btnCheckRights.Click
+        If cmbentity.SelectedIndex <> -1 Then
+            Try
+                Me.ProgressBar1.Visible = True
+                'BackgroundWorker erstellen ...
+                BW_RightsEntity = New BackgroundWorker
+                BW_RightsEntity.WorkerReportsProgress = True
+                DT_FILES = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH where ENTITY_ID = {0}", cmbentity.SelectedValue))
+                If DD_Rights.ClassRights.Init(cmbentity.SelectedValue, chklogging.Checked, DT_FILES.Rows.Count) = False Then
+                    MsgBox("Could not init rights management. " & vbNewLine & "Check logfile", MsgBoxStyle.Critical)
+                    Exit Sub
+                End If
+                ProgressBar1.Maximum = DT_FILES.Rows.Count
+                AddHandler BW_RightsEntity.DoWork, AddressOf bw_DoWork
+                '.. und starten
+                BW_RightsEntity.RunWorkerAsync()
+            Catch ex As Exception
+                MsgBox("Unexpected error in starting backgroundworker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                Me.ProgressBar1.Visible = False
+            End Try
+        End If
+    End Sub
+
+    Private Sub BW_RightsEntity_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BW_RightsEntity.ProgressChanged
+        Me.ProgressBar1.Value = e.ProgressPercentage
+    End Sub
+    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
+        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
+        _error = False
+        Dim i As Integer = 1
+        For Each row As DataRow In DT_FILES.Rows
+            If BW_RightsEntity.CancellationPending = True Then
+                e.Cancel = True
+                Exit For
+            Else
+                If DD_Rights.ClassRights.Collect_Users(row.Item("RECORD_ID")) = True Then
+                    If DD_Rights.ClassRights.File_DeleteAndSetRight(row.Item("FULL_FILENAME"), True) Then
+                        If DD_Rights.ClassRights.MSG_RESULT <> "" Then
+                            MsgBox("Unexpected Errors in setting rights: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Exclamation)
+                            _error = True
+                        Else
+
+                        End If
+                    Else
+                        _error = True
+                    End If
+                Else
+                    _error = True
+                End If
+                BW_RightsEntity.ReportProgress(i)
+            i += 1
+            End If
+        Next
+    End Sub
+
+    Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+        ' Cancel the asynchronous operation.
+        Me.BW_RightsEntity.CancelAsync()
+    End Sub
+
+    Private Sub BW_RightsEntity_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BW_RightsEntity.RunWorkerCompleted
+        Try
+            btncancel.Visible = False
+            ProgressBar1.Visible = False
+            If _error = False Then
+                MsgBox("All rights of files belonging to entity were checked and refreshed successfully!", MsgBoxStyle.Information)
+            Else
+                MsgBox("Some errors occured while checking and setting the rights...please check the log!", MsgBoxStyle.Exclamation)
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+End Class

app/RecordOrganizer_RightManager/frmStart.Designer.vb

@@ -0,0 +1,69 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmStart
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.Location = New System.Drawing.Point(12, 12)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(194, 45)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Check Rights for Entity"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(706, 23)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(111, 23)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Open Log Path"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'frmStart
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(829, 402)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmStart"
+        Me.Text = "Rights Manager"
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+
+End Class

app/RecordOrganizer_RightManager/frmStart.resx

@@ -0,0 +1,570 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
+        IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw
+        AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
+        /wDxigAA9sN/AJxcPgC1lHYA96o7AMRjDQDSgjcAm0IRALaAUwDmqVwA0557ANCPXgDWeRUAs3A9APq7
+        XwDumCkAnU4pALFTDQDHcCYA13AAAK+AZwCqYTAA9ZcWANCISwDjfgAAwIpjAPGrTwClTBoA03wlAKhG
+        CADLbhUAsX1EAMGHTAC4XBYA3Io6AMhjAQC2dEsAuI9rALaFXwDRcgwAxG8xAOekUgDDZRgAnlY1AMJo
+        IgDQdRwAnUkfAM9qAQDsiAgAuoVoAMNuGwDddwAAqlspAOqEAADIkGIAvF0OAMCDVAC9lHIA8pIQAMuF
+        UQDNfTsAp0kTANh1BgC0cEUAvoVeALmOcwC3dToA0XETALl6TQC8l3gAzHIgALdVDQDTfisAxnMtAO+b
+        LgCtUBAAwmoWAM1wGwDPeigA0H8zAPKuUwDHaBcAsXRGANNtAAC7jGkAu31QAKpKCQD3qDcA1ncRANCK
+        TwDGaxwA+bpjAOaAAACdRBMAnkoiAOuHBQC5hF4AtnQ9ANhzAADRj1sAvZV2ANlzBAC3eU8A+MN9AOyG
+        AACxgGUAznMcANF8IwDUeyMAnEohANGITwDlfwAA24s6ANKeewDjfQAA1nAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAFZjAAAAACFXAAAAAAAAADskK2gAACILcjMAAAAAAABOA11uFgAvaRBTAAAA
+        AAAAAEhSBjkABVAcWUkAAAAAAABmT0wYWAAobRE8PwAAAAAAAEJFMgJfAFQOYTdgAAAAAAAAQTE3am8A
+        FxVqGi0AAAAAACYldF4wADZVcWQEAAAAABsHQDUJAA8gZ3USAAAAAAAsSlofAAoUHikdAAAAAABcWwgT
+        ACdLGVFNAAAAAAA0DA0uawBsc2UjAAAAAAAARz49RgAAOHAqQwAAAAAAAABWRAAAAAA6YgAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD//wAAzz8AAIYfAACCHwAAwg8AAMEHAADggwAA8EEAAPBBAADggwAA4QcAAMIP
+        AACCHwAAhh8AAM8/AAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANBaAGW7VQCmhAAAAgAAAAAAAAAA/wAAAbVfAJvHVACKAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANpjAFneizn856RS/8BOAIsAAAAAAAAAANFqAJDmqVz/3Y07/sxKAGcAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADHYwTi9sN///m6Y//WfCT+sj8AaOtoABnUdRj1+MN9//q7X//JaRb7wUQASAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA22QANs9xHPXyrlP/96o7/75dDfuWLwBIx14AUtF7KP3xq0//96g3/7lR
+        BfG7PQAuAAAAAAAAAAAAAAAAAAAAAAAAAADcYQBTz3Eb/e+bLv/1lxb/rEYA8YkhAC/AVQB0030k/u6Y
+        Kf/ykhD/qD4A4rk3ABoAAAAAAAAAAAAAAAAAAAAAAAAAANFVAHbTchT+7IgI//GKAP+dOADijSMAG7RO
+        AJnWeRX/64cF/+qEAP+bMgDNoSoADAAAAAAAAAAAAAAAAAAAAAAAAAAAuUgAms9qAf/qhAD/7IYA/5o0
+        AM6WNgANqkQAuddwAP/shgD/434A/5kxALEAAAAAAAAAAAAAAAAAAAAAAAAAAL1KAJHIYwH/430A/+aA
+        AP+bNADRpDkAEatDAMLTbQD/5X8A/9hzAP+UMACkAAAAAAAAAAAAAAAAAAAAANdaAG/GZA7+2HUG/913
+        AP+bNwDlkCoAHrZPAKbLbhX/2XME/9ZwAP+aMgDCniQABwAAAAAAAAAAAAAAAN9lAE/FZRf8034r/9Z3
+        Ef+pQgDzjicAMsBYAIXHcCb/03wl/9FyDP+lPADZrSsAEwAAAAAAAAAAAAAAANVhADXJaRf00IpP/9KC
+        N/+zUwz7ly0ATMlfAGPIdC7+0IhL/9B/M/+vSQPqt0EAJAAAAAAAAAAAAAAAAAAAAADJZQTb0557/9CP
+        Xv/EaSP+tkIAa+R1ABLRcxn40p57/9GPW/+6WhH2yEkAOwAAAAAAAAAAAAAAAAAAAAAAAAAA22YAUNB+
+        O/vLhVH/xFIAjgAAAAAAAAAA6moAcNOKUP7GcDH90FIAVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADSWwBlvVoAqoUAAAIAAAAAAAAAAAAAAADSXACEx1QAdgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD//wAAzz8AAIYfAACCHwAAwg8AAMEHAADggwAA8EEAAPBBAADggwAA4QcAAMIPAACCHwAAhh8AAM8/
+        AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A8owAALmV
+        eACZSCMA/MR0AM1+OwD1qEAAw18CAKNlRgCoQgAAzY1bAL5nJQDhhyAA661kANp0AADflUQAs4JiAPOd
+        KACnWy4A0ZlyAM9zGACzUQsArnJVAOWiVgD3tlkA0HopAPKTEQCzWx0AvntEAKZIEwDffg0A4pA0AMBw
+        MgDCaRYA5oAAAOeKEgDNg0gAvI9sAJxTLwDplCgA130cAPCrVgDTcQsAvF0NANiLPwCgWzkA2ocvAPO7
+        cgCxSgEA65oyALKJbQDtpUgA6o8cALlUAgDgm08AwXU7AO2gPwCwXioArGhKAJ9JGwDDZA0Ay2wOAMlu
+        HgCpWSUAz4lPAPGyXwDMfTIArU0RAMJtKgC9YhUA1G4DAKhgNAC4WhMArksIAMBpHgC9WwYA5qZcAKNj
+        PwC4j3IAu4pnAM6DQAC5VgkA4XsAAOiDBgDSdRIAn1gzALldGQDbjDkAvGMgAKQ9AACkYTkAz4tVAM91
+        HgC0TwMA0XojAOOZRgDvrlsArF4vAMt4LwCiWC4AvJNxAJ9fPgDCYAkArVohAO6IAADqhAAArm5RAJtH
+        HgC9VwAAsl4lANR5HgDYhCsAp0MFAJpLJwCjSRcAwmwlAKtGAACmWSkA1XUOAMBiEQD1vXYAz49fANB/
+        MADOdicAtVQOAL2WdgDQgjwAsVwhAMx/QADeeAAAwl0GALdRAADniRYAqlopAK5aJQDBbS4A9rNXANCX
+        bwCvTQIAvlgEAN2SRQDQbwwA0Zt1APerQADXcgAApmVEAOqVKwDNgkMAsk0BAKJZMwDCaSQAupFwALdR
+        AwCxUA0A1G4AAKJfPgDOiVMA2Ys7ANF6JgDNejAAzXktAKZAAADwigAA6IIAAOR+AADtmjAA3HYAANJu
+        BQDOjl0A0IxXANlxAQC8WggAuVsRANVyDADNdB0Az3srAPrDdAC7lXcA0Jl0AKlEAACvSQEAuoppALBL
+        BwD1nigA7aFBAPOTDwCzgWAAtFEJAOyPGwDEXwQAwmIIANJ0EAC7ZSAAzoE8AM90GgCrRAAA76VIALRP
+        AQC5VAQAwl8GAL1ZAwDOilYAz4I/AKlDAQCqRQAAsEoCAPGLAADviQAAtlAAAOmDAAC4VAMA6YMFAOWA
+        AQDlfgEA430AAOJ8AAChXDkAtFQNAN13AADZcwAAvVwNANR0DgDNezEA0HonAPGyXgCkPgAApkEAAKhE
+        AADxjAAAz4xXAOiBAADOilMAzYNHAMNjDQDOgkMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIQAAAAAAAAAAlwAAAAAAAAAA
+        AAAAAACse4AAAAAAAADdLZoAAAAAAAAAAAAAAMgOBbCHAAAAAGdNsRBEAAAAAAAAAAAAPTcw4Rk/hgAA
+        fJ55QokvHgAAAAAAAAAAAIMYKsWQeBMAAEaNYTQHb3MAAAAAAAAAAACMYDmmuFKWAACtWLkyEj48AAAA
+        AAAAAACy0yAovbqV2QAA2nCTNRsIbAAAAAAAAAAAmJkNJNSjdWYAABYphVTlbQQAAAAAAAAAALaLH9ak
+        0OOSAABKd9XnAtFyAAAAAAAAAAAR5NvYpGkKawAAcZulI8+EJwAAAAAAAAC75NyCpdLiFwAzzJuC12q0
+        CQAAAAAAAFAxK5Gn2Fo7AE/OjqsPUwqcAAAAAAAAJsZdwEfcopIAA16vVagPxC4AAAAAAABlNt/gFa7N
+        TgAAx2Maw961VgAAAAAAAH7JlMKhX7dbAABMgVGgn7xkAAAAAAAAAL7K6Ot/fUgAAL+d5unLSXYAAAAA
+        AAAAIkGKC1xXYgAAQwazqapZQAAAAAAAAAAAAOp6FAw6AAAAAEslj4hoAAAAAAAAAAAAAAAsRW4AAAAA
+        AADBdBwAAAAAAAAAAAAAAAAAOAAAAAAAAAAAHQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////APf7/wDj8f8AweD/AIDAfwDAYD8A4DAfAOAY
+        DwDwDAcA+AYDAPwDAQD8AgEA+AQDAPAIBwDgGA8AwDAfAMBgPwCAwH8AweD/AOPx/wD3+/8A////AP//
+        /wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA2GQAOMpZALXITgAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2mIALclYAMrVWAAyAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiZgBBv1cA8tB/MP+zSQDPw1AAEgAA
+        AAAAAAAAAAAAAAAAAADjaAA1v1YA7NiLP/+zSgDrxlYALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANVpAEzEXQD2661k//zEdP/Peyv/r0QAybtUAA4AAAAAAAAAAOdxAD/FXQDx5qZc//rD
+        dP/flUT/rkMA5slMACYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMdfAOvgm0//87ty//Gy
+        Xv/3tln/yW4e/6pBAMO6MQALAAAAANhnAMbZizv/9b12//GyX//2s1f/2ocv/6c9AOLFRgAhAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAANhmAEDFWwD15aJW//CrVv/vpUj/96tA/8BiEf+mPgC7p0IACNBr
+        AB/BWADg3ZJF/++uW//tpUj/9ahA/9R5Hv+jOwDduz0AHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADgagBIwFcA+OOZRv/toD//7Zow//WeKP+5Vgn/nzcAtHAhAAbJYgAlu1MA5tuMOf/toUH/65oy//Od
+        KP/LbA7/njcA17NAABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2WEAUbpTAPrikDT/6ZQo/+yP
+        G//zkw//sk0B/5s1AKxyAAAExmUAK7dOAOvYhCv/6pUr/+qPHP/ykxH/w18C/5kzANKoLAATAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAANFdAFu4UQL84Ycg/+eKEv/pgwX/8IoA/6tGAP+YNACkdAAAAsRb
+        ADO1TADv130c/+eJFv/ogwb/8YwA/71XAP+VLwDMsTsADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADOVQBlsU0C/d9+Df/lfgH/6IIA/++JAP+mQQD/ojcAmwAAAAHOVAA6sEcA8tV1Dv/lgAH/6IEA//KM
+        AP+2UAD/li8AxaAsAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAukoAcKpFAf7ddwD/4nwA/+iC
+        AP/uiAD/qEIA/644AIkAAAAAu08AQqhBAPfUbgD/5H4A/+aAAP/xiwD/t1EA/5cyALoAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAvEwAcqpFAP7ZcwD/3ngA/+R+AP/pgwD/pj8A/rA6AIIAAAAAukwAYKpD
+        AP3UbgD/3ngA/+N9AP/qhAD/qUQA/501AJkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADOVgBps0oB/dNx
+        C//XcgD/3HYA/+J8AP+kPQD/rDYAkgAAAADNVQBYskoB+9BvDP/ZcQH/2nQA/+F7AP+oQgD/nTUApFIA
+        AAMAAAAAAAAAAAAAAAAAAAAAAAAAANRdAGG2TwH9z3Ue/9J0EP/UbgP/2XMA/6ZAAP+iNwCbAAAAAdNe
+        AFC2TgD6zXQd/9J1Ev/SbgX/2nQA/6tEAP+aMwCsjwAABAAAAAAAAAAAAAAAAAAAAAAAAAAA2GEAWrtU
+        AfvNezH/0Hon/89zGP/Vcgz/qkUA/545AKNzAAAC1GMASbtTAPjLeC//0Hop/890Gv/UdA7/r0kB/5s1
+        ALSOMAAGAAAAAAAAAAAAAAAAAAAAAAAAAADeZwBSv1kA+s2CQ//OgTz/zXkt/9F6I/+wSwf/oTwAq3AA
+        AATMZwBDv1kA9sx/QP/Og0D/zXow/9F6Jv+0UQn/oDoAu7ggAAgAAAAAAAAAAAAAAAAAAAAAAAAAANpm
+        AEvHXgD4zopW/86KU//OgkP/0II8/7VUDv+mQACznzMABdNtADzFXwDzzolT/8+MV//Ng0f/z4I//7ha
+        E/+lQADCuzMACwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMdgAN7PiU//0Jdv/82NW//Pi1X/uV0Z/61C
+        ALq3SAAIAAAAANpqALbNfjv/0Jl0/86OXf/QjFf/vGMg/6pDAMi7PAAOAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANdoADLGXgDsz49f/9GZcv++ZyX/skYAwbpPAAsAAAAAAAAAAOZrABbGXADSzYNI/9Gb
+        df/BbS7/r0gAzr1EABEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADcZwAwv1gA68Jt
+        Kv+1SgDIulMADgAAAAAAAAAAAAAAAAAAAADdZgAUv1YA0MJsJf+2SwDUw1IAFQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3WUAL8tZAKnSVwARAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA4FgAFMpbAJvWUgAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA////AP///wD3+/8A4/H/AMHg/wCAwH8AwGA/AOAwHwDgGA8A8AwHAPgGAwD8AwEA/AIBAPgE
+        AwDwCAcA4BgPAMAwHwDAYD8AgMB/AMHg/wDj8f8A9/v/AP///wD///8AKAAAACAAAABAAAAAAQAIAAAA
+        AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A840AAP/LfQCXMwcAs3xhAOyhRQC+Zh8A0p9/AJtS
+        MgDOgUAAtU4AANZwAQD5oCAArW5BAPCzaQDPj2AA13wdALiQdADkjysArE4ZAPu1UgDCXwcA5okVAL94
+        NACsXSgAo0IAAJhGIQCbZEUA+aczAN6RPgDkfgAAzG0TAO6qVwDBhksA+JgQALl3UQC1ajIA0HwuAPu9
+        ZADbeQ0A+a5CAOqaNwC9iWMA9sB4ANCXbgC7XBUAz4lMAMx1JADulyUAsIdyAOahVAC3dj8A2oUrAKVS
+        IwC9gVkAomtNANFlAgDHeT0AuVUIAOuIBwDGkmYAsHFVAO+REwCgXj0A5ZlDANF1FwDFcS4AnzgDAOOL
+        HwCtRgIA0nAJAM2KVgCvTg8Aw28jAMdlDwDynzMA3XcAAMmCTwDwsF8A0Zp2ALGBagC2c0gAxWgXAO6o
+        TwCeTCUA65guALZvOQDzkAsA8qdDAL6NawDpjxwArmo5APS5bQDMfDgA0XklAPaZHADMg0cA1IQxAKRM
+        GwC9WAIAyGQEAOWDCgC2XhoAwWETALBjNADsnz4AvYREAPrFegD0wX4A8q9TAJoyAADJdzAAtnpaAOiR
+        JQDllDgA64QAAKFWLwC+XA4A2XUFAOKEEQD1t2QAz5JmAOSeTADyunUAtVIQAL6UdACfWjgA+aMtALBk
+        LwDEXgIAw4BIAM15KgC0TwYAnVAsALlUAQDTcw8Ao1UpAOikVwDKjlsA0HcdAM+QVwDJh1IA1ncUALl4
+        SgDTbwUAt4BjAL17UwCmPgEAw2kgAMFkDwDbjTsA13ULAM57MgDuiQEAtVYMAL9aCADJlGUAxWMKAL6G
+        WwC0ckMAr0oAAPCuWQCiTCAA76ZJAOJ9AwDtnjkA0XITAMx1GQC8eD8Ay4BCANp0AADEdjoAz4A6ALRP
+        CwDlgQYA6IkQALl+WwDolCgAs3M+AMiASgDQhUMAlzYLAPaQAACpTh0AqEwXAM2SawCsTBIAu1gLAM5o
+        AADTeh4AoWI/AOmHCwDwmCEAsm47AMiFSACaNAUA87doANKdewDnixkAtIRrAOylTAC8jGYA0ItUANKD
+        PADvsWIA+q0+ALxUBADuqVIAzZBiAOyXKgDMhUsAmjUIAKtFAQCwSwMAvlcGAOeCAQDnoE4Avl4QAOqZ
+        NADpjx8AzYhQAMtuFgCgOwQAuFEBAK9OEwDBWwIAwWAKAMViDgDmhhAAymoQALFmMgDgkjsA038sANB6
+        KQD/yXoAqEABANGZcwC3UwgA4XsAAO+fNQDNjFoA6ZYuALFqNwDPdiEA0H4yAMpiAgDPdBoAzX88APGo
+        RgDHYwgAz49dAO6QFgDBXQ4A0XENAM2CRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAACUAAAAAAAAAAAAAAJ8lAAAAAAAAAAAAAAAAAAAAAAAul30AAAAAAAAAAACO3mLnAAAAAAAA
+        AAAAAAAAAAAA2jMD2eEAAAAAAAAAIiBs6zBcAAAAAAAAAAAAAAAAAOSKLMUn6BQAAAAAAGuoLF15J1MO
+        AAAAAAAAAAAAAABKHm0PT6IVNbgAAAAA9nx8zaJuFdpSAAAAAAAAAAAAAADkMw8hVPkpvjYAAACdZQ9P
+        0KRZzjskAAAAAAAAAAAAAACceyEGavAdIIkAAACL+qJUBqZMgNZxAAAAAAAAAAAAAADXQQYqVjENnnUA
+        AACO+slq29LBYNUFAAAAAAAAAAAAAADPc9uy3PwjZH8AAACDnmrycls/WJRRAAAAAAAAAAAAAH7gE3LH
+        sDy3C0AAAAA04/LcF8CamkQyAAAAAAAAAAAAAFoLRRdm2HS3oRwAAADz41vlr9iamsQAAAAAAAAAAAAA
+        ACsLeK8fH3S3GjgAAACBFuWlH9iadMQAAAAAAAAAAAAAADcLpe8fH3QClD4AAAAZgh/vH9iaH9QAAAAA
+        AAAAAAAAAGng7+8fH5q3bwAAAADfDO/vH9i3vRsAAAAAAAAAAAASRgxNTe8fmqG/AAAAGeJNTU3vdE22
+        AAAAAAAAAAAAANaIdwyrTdihfwAAAIGcKAwMq++rBAAAAAAAAAAAAACF949HDAzvCwkAAAAldhGIkQyr
+        qwQAAAAAAAAAAAAA7jBfQv6Rq+CGAAAAV3bpjKdHDAxEAAAAAAAAAAAAALxw9V/3p5iHVQAAAKnazCb0
+        94hHRDIAAAAAAAAAAAB2XrWZhPS+nKMAAADDli/4mYT0QuzIAAAAAAAAAAAAaKrL//iZJmhjAAAA3Uv7
+        0wpemerVkgAAAAAAAAAAAFPTekjTqgqVuQAAAI3mLfvdYQqt1rEAAAAAAAAAAAAYcAh68d3dQ7sAAAAA
+        ObrtEEjdL4WTAAAAAAAAAAAAAABLtFDREDpJAAAAAACdgrot0fubkAAAAAAAAAAAAAAAAAD9tMZOrgAA
+        AAAAAAA94rpQLqAAAAAAAAAAAAAAAAAAAAB2rO4AAAAAAAAAAAA9ZAfCAAAAAAAAAAAAAAAAAAAAAABn
+        AAAAAAAAAAAAAADKswAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////+/+f//H/D//g/gf/wHwD/4A8
+        Af/AHAD/4A4Af/AHAD/4A4Af+AHAD/wA4A/+AHAH/wA4A/+APAH/ADgD/wBwB/4A4A/8AcAf+AOAH/AH
+        AD/gDgB/wBwA/4A8Af/AfAP/4P4H//H/D//7/5////////////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANBe
+        AB65TwC3ylwALgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADRXAB6uFAAtMVU
+        AAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADlZAAkvlIA39uNO/+3SgDn0VwAJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4WMAh81v
+        F/7UhDH/tEoAtsoqAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA6WsAKsJVAOXmolT//8t9/+egTv+xQwDi0VMAIAAAAAAAAAAAAAAAAAAAAAAAAAAA/wAAAdFp
+        AJHObhX++sV6///Jev/MdCL/sEoAq+tLAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANptADHIXADp6KRX//XAdv/zt2j/+rxk/+CSO/+tPwDaxVAAGgAAAAAAAAAAAAAAAMlo
+        AAPJagCbznYa/vbAef/0uW3/9bdk//y+Y//EaRf/rkgAoJEAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAymEAy96RPv/0wX7/8LRq//CwXv/xrlb/+rRT/9qFK/+qPADUxUoAFAAA
+        AAAAAAAA+noANMxiAPzxunX/8rl0/++xYv/wrln/8q9T//u2Uf++Xw//vksAlQAAAAEAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADcagAtyFwA6+WgU//ws2j/7apX/++oTv/xqEb/+a5C/9N6
+        H/+lPADLzTkADwAAAAAAAAAA7W8AbcplBf7vs2r/769g/+6pUv/vpkn/8qdD//qtPv+7Vgn+xEgAiQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADscgA1w1cA8eSeTP/uqlf/7KJH/+2g
+        Pv/vnzX/+acz/8ttEv+hOgDDwjQACwAAAAAAAAAA6m0AeslkCP7urVv/7adP/+yhQ//tnjn/8p8z//mj
+        Lf+0TQT+vkQAfAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADpaQA/wVUA9eWZ
+        Q//soUb/6po3/+uYLv/ulyX/+aAg/8VjCv+dNwC6vx8ACAAAAAAAAAAA42gAiMhjCf7spUz/658+/+qZ
+        M//slyr/8Jgh//aZHP+tRgL+vD8AcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADiZQBKvlMA+eWUOP/qmDX/6JQo/+qQH//ukBb/+JgQ/7xYAv+bNACvtz8ABQAAAAAAAAAA02EAlsVj
+        Cv/rnT7/6JYu/+mRJP/qjxv/75ET//OQC/+nPQD9tjwAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADfYwBVu1EA++SPK//nkCX/54sZ/+iJEP/riAf/9pEA/7VPAP+ZNACmjwAAAgAA
+        AACIAAACvlcAosFhCv/pli3/6I4e/+eJFf/phwv/7okD//CKAP+gNwD8sjoAWQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADaWwBiuU4B/eOLH//liRX/5YMK/+eCAv/rhAD/9pAA/65J
+        AP+QNACa/wAAAQAAAADpSgAEtEwArsFfCv/ojh3/5YUQ/+WCBv/nggD/7ogA/+2HAP+bMgD5sjYATwAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADRWABvt04B/uKEEf/kgAb/5H4A/+aA
+        AP/shgD/9Y8A/6VDAP6bNwCOAAAAAAAAAADbVgAHsEgAucJfB//mhg//4n0C/+V/AP/ngQD/74kA/+mD
+        AP+ZMAD2sjcARQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADOUwB9tk4B/uF9
+        A//ifAD/430A/+aAAP/shgD/840A/6hAAP61OQCCAAAAAAAAAADhUgALrEMAw8NeA//kfQH/4XsA/+R+
+        AP/ngQD/74kA/+V/AP+aMADzpzIAOwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AACzRACyuFIA/+F7AP/hewD/430A/+aAAP/uiAD/9pAA/5wzAP6+QwA3AAAAAAAAAAC3SwAhoTkA+dVv
+        AP/gegD/4XsA/+R+AP/oggD/9Y8A/85oAP+VLwDOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAzFQAVq9GAPvWcQL/3HYA/913AP/gegD/5X8A//CKAP+vSgD/nDgAopIAAAIAAAAA1EIADa1H
+        AMXAWwP/3XcA/913AP/eeAD/4XsA/+mDAP/ddwD/ly8A76w3ADMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANhXAEuySgD403MP/9l1Bf/YcgD/2nQA/954AP/oggD/sEoA/5cyAKyOAAAEAAAAAMc+
+        AAmySwC9vlsH/9t5Df/WcQH/2HIA/9t1AP/ifAD/2nUA/5ctAPO2PAA8AAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADaXgBDtUwA9s50Gv/WdxT/03EI/9VvAP/XcQD/4nwA/7ROAP+VLgC2zS8ABgAA
+        AADHaAAGuk0AtL5bDP/XfB3/03QP/9RwBf/WcAD/23UA/9lzAP+YMAD3szcARQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA3WMAOrpPAPLMdSX/0nok/9F0F//RcQ3/0m4E/9p0AP+3UQD/mDEAv7Q9
+        AAoAAAAAxmcAA7xRAKu+XA3/038s/9B3Hf/RcxP/0nAK/9ZwAv/UbgD/njUA+bY4AE4AAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAN1lADO9UwDvyncw/9B+Mv/QeCX/z3Qc/9FxE//XdQv/uVQB/5sz
+        AMi7KgANAAAAAIsAAALGWwCiv14P/9KDPP/Oey7/z3Yi/89zGf/SchD/0W8I/6Q5APu6QABYAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADmZQAswVYA6st7Of/QhUP/zXw0/815K//OdSL/0nkd/75a
+        Cf+gNwDQuUMAEgAAAAAAAAAB22kAlsFkD//QiUz/zYA9/817Mf/NeCj/0HYg/9F1F/+pQAH9vUEAYwAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA724AJMVaAObKgEP/0ItU/82CRP/Nfjv/znsy/9F8
+        Lf/BYRT/pDsA17lAABcAAAAAAAAAAOlrAIzIZg/+0I9d/82GTP/NgUH/zH03/897Mf/Qein/rEUB/sJE
+        AG8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxuAB/JXgDfzIRL/8+SZf/NiVX/zIVK/8yA
+        Qf/Pgj//w2kg/6k+AN28SQAdAAAAAAAAAADwcwCAzGsR/tCXbf/Pjl3/zYdR/8yDR//NgUD/z4A6/7FL
+        BP7HSgB6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyGIAs8h2MP/Sn3//zpFn/82M
+        Wv/Mh1H/z4hP/8VxLv+tQgDkyE0AIwAAAAAAAAAA/30AINNlAPzNkmz/0Zlz/86PYP/Nilf/zYhR/86I
+        TP+2UAf+zE4AhgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADdawAty14A6ciA
+        Sf/QmXb/zZBj/9CPYP/HeT3/sEYA6ctNACoAAAAAAAAAAAAAAAAAAAAA8HIAasdeAP3MkWr/z5Zu/82Q
+        Yf/Oj17/t1cN/sRSAJIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADxcAAuxFcA6sd/S//SnXv/yYJP/7ZKAO7UVQAxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA6m0AbMNb
+        AP3Ok2v/0Zt2/7tbFP+5TQCdkQAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADnbAAtwVUA6cR2Ov+6UADy1VkAOQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA52kAasBZAv2+Zh//tk4AqMtqAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADRYgAuuVEA2c5aAEIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA0F0AardUAKTqMgAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////////////v/n//x/w//4P4H/8B8
+        A/+APAH/wBwA/+AOAH/wBwA/+AOAH/gBwA/8AOAP/gBwB/8AOAP/gDwB/wA4A/8AcAf+AOAP/AHAH/gD
+        gB/wBwA/4A4Af8AcAP+APAH/wHwD/+D+B//x/w//+/+f////////////KAAAADAAAABgAAAAAQAIAAAA
+        AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A8owAAP/LfQCXNAUArnxhAOugRQC7ZiMA0p9/AJ5U
+        MQDNgEAAtE0AANVwAQD5oCAArW5BAO+0awDOjmAA13wdALaQdADjjSkArVcbAPi0UwDDXwcA5YgWAL93
+        NQCsXikAo0IAAJhGIQCfZUYA9qc5AN6RPgDkfgAAzG4TAO2qWAC/iEsA+JgQALZ5UQC2bjEAznsuAPu9
+        ZADefAsA961CAOmaOQC6h2MA9790ANCWbwC6XhYAzohNAM13JQDulyUAr4hyAOahVAC4dkAA2oUrAKhW
+        IgC9gVkAnmpPANFlAgDGeT4AuFUGAOuICADBlGkAsHFVAPCSEwCgXjwA5ZlDANJ1FgDBby8AnTgAAOKJ
+        IQCtRwEA0W8JAM2KVgCsUA8Aw24lAMdlDwDyoDIA3XgBAMeCUwDwsF0A0Zx4AKt+aQCveUoAxGoZAO6o
+        TwCeTCUA7JkuALdwNwDwjwwA8aZBAL6TbADskh0Armo5APS6bgDNfTcA0HkkAPSZHADMg0cA1IQxAKRM
+        GwC+VwAAyGQEAOOCCwC1XhwAvmYXALBjNADsnz4Av4FFAPrFegD0wX4A865SAJgzAQDMeS4AsntXAOeQ
+        JADllDgA6oUAAKFXLgC+XA4A2HUGAOCCFAD1t2MAz5JmAOSeTADyuXMAslYRALyXdQChWzYA9aArAK9j
+        LQDFXgEAwX5LAM14KwC0UAUAnVAsALtUAADTcw8AolQpAOikVwDIh10Az3UdAM+QVwDJh1IA1ncUALd5
+        SQDSbgQAt4BjAL17UwCjPgEAwmsgAMFkDwDbjTsA13ULAMx7MgDuiQIAtVYMAL1cCADJlGUAxGQMAMKJ
+        VwC0ckMAsEoAAPCtWQCiTCAA8KdJAOF9BQDtnTkA0HITAMx1GQC9ez0Ayn5CANl0AADDcjgAz383ALRP
+        CwDlgQYA6osQALl+WwDpkykAtXQ8AMh/SwDQhEIAlzcMAPaQAACtVx0AqEwXAM+UagCpSw0Au1gLAM9p
+        AgDTeh4AomNCAOqICwDvlh8Asm47AMiFSACaNAUA9LdoANKdewDmixoAs4lsAOylTQC5imUAzopTANKD
+        PADvsWMA+q0+ALxVAgDuqlMAzY9jAO2XKQDNhUsAmjcGAKtFAQCxSwMAvVgGAOeCAQDnoE4AvmARAOqY
+        NADojx8AzYdQAMltGACgOwMAuFEAAK9OEwDBWgEAwF8KAMViDgDmhg8AymoQALFoMADgkjsA038sANB6
+        KQD/yXoAqEIBANCYcwC3UgYA4XsBAPCfNgDOi1oA55QwALFrNADPdiEAz30zAMljAADPdBoAzX88APOp
+        RgDHYwgAzo5dAO2QFwDBXQ4A0HAOAM2CRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAccoAAAAAAAAAAAAAAAAA
+        AAAAABIHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACz4uArAAAAAAAAAAAAAAAAAAAAys+CLgAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAACXi+RcLKwAAAAAAAAAAAAAAAACfhxMV9mcAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAASoJULF141soAAAAAAAAAAAAAAIPi8ix8FYJnAAAAAAAAAAAAAAAAAAAAAAAAAACV9m5dXcV5
+        eKHIAAAAAAAAAAAAqYLbfF3FeSniFAAAAAAAAAAAAAAAAAAAAAAAAFO9onxdxXlPFShGyAAAAAAAAAAY
+        9mp8XQ95T08d4rgAAAAAAAAAAAAAAAAAAAAAQ71UfA8PzU9ubm4o1TIAAAAAAH72eHwPD81Pom5ugGQ2
+        AAAAAAAAAAAAAAAAAAAAAJ6RzQ/NTyHQpPlZd+wyAAAAAAAighN8zU+i0FSk+YCHNgAAAAAAAAAAAAAA
+        AAAAAACekU9PIdDJpFlqTHeUMgAAAAAAIoITDyHQVKRZavDB4DYAAAAAAAAAAAAAAAAAAAAA45EhIckG
+        amrwTIAM3wAAAAAAAGviEyHJyQZqpvBMYAs2AAAAAAAAAAAAAAAAAAAAAJxHyckGaipW0jFgkd8AAAAA
+        AACpZBNUBmqm21bSMT+hiQAAAAAAAAAAAAAAAAAAAADXkQZqKttWMcHBP73fAAAAAAAANGRFBirbVtIx
+        W/xYoYkAAAAAAAAAAAAAAAAAAAAAO0cq2/Kyclv8P1i91AAAAAAAADSHRSrysnLc/PxYmtV1AAAAAAAA
+        AAAAAAAAAAAAAO5H8hNy3MewwDwCvQQAAAAAAABXh0XyctzHF7A8mprsdQAAAAAAAAAAAAAAAAAAAACF
+        RxNFxxflPHR0Ava2AAAAAAAAV+B4ckUX5cDYdJqalAkAAAAAAAAAAAAAAAAAAAAS1pFFF+Vmr9h0dAKC
+        tgAAAAAAAPPgeMd4Zq/Y2HSadJR/AAAAAAAAAAAAAAAAAAAAEtZHF2avH9jYdHQCgrYAAAAAAADnCyh4
+        ZqUf2Nh0mnSUfwAAAAAAAAAAAAAAAAAAABJGvWal7x8f2HR0AuK2AAAAAAAAgQsope8fH9jYdJp0lH8A
+        AAAAAAAAAAAAAAAAAAAy1b3v7+8fH9h0dALitgAAAAAAABkLTe/v7x/Y2HSadN9AAAAAAAAAAAAAAAAA
+        AAAAyOy9TU3vHx/YdHQC4rYAAAAAAAAZC01N7+8f2Nh0mnSUHAAAAAAAAAAAAAAAAAAAALviTU1N7x8f
+        2HSaDAQAAAAAAAAZoU1NTe/vH9jYdB9EOAAAAAAAAAAAAAAAAAAAu2Srq6tNTe8fH3S9BDIAAAAAABkL
+        DKurTU3v7x/Y728cAAAAAAAAAAAAAAAAAABJZHcMq6urTU3v2L1vMgAAAAAAgQuRdwyrq01N7x9NRL8A
+        AAAAAAAAAAAAAAAAAH1kiIiRDAyrq03vvW8yAAAAAACBC0eIRwwMq6tN76tEvwAAAAAAAAAAAAAAAAAA
+        fYdCQv5HDAwMq032b1EAAAAAAOcL/kKIR5EMDKurDES/AAAAAAAAAAAAAAAAAAB9h4z0QohHkQwMq/Zv
+        UQAAAAAAJeAgX/en/pGRDAwMREAAAAAAAAAAAAAAAAAAAC6HMOr096f+R5EM9m9RAAAAAAAl4N4mX4xC
+        p0eRDL2UfwAAAAAAAAAAAAAAAAAALoeE9YQwjPen/pGCRAUAAAAAAFfgla0mhPT3p/5HvZR/AAAAAAAA
+        AAAAAAAAAAAuh5n4XiaE9Pf3p4LfBQAAAAAAV4eVtV6ZhDD096e97H8AAAAAAAAAAAAAAAAAAGiHOtMK
+        XpmEMPT3FpQFAAAAAAAYZEov//hemYQw9ObsfwAAAAAAAAAAAAAAAAAAU4eqy9P/+F6ZhIQWlHEAAAAA
+        AKlkQ/HTYQr4mXCE5tV1AAAAAAAAAAAAAAAAAABTh7T7SN1hqvhemePscQAAAAAAqeJDekjd0/8KXl5T
+        1RkAAAAAAAAAAAAAAAAAAFNkTnr7SN3TYQr42uxxAAAAAACp4kMt0fFI3WH/CkpGGQAAAAAAAAAAAAAA
+        AAAAa4KD7brR+0jd09Pa1SQAAAAAAAD2LlAtehDxSN3TSqEZAAAAAAAAAAAAAAAAAAAAAFPj0S260fFI
+        SC5GJAAAAAAAAAA9gkPtunoQ8UhDoRkAAAAAAAAAAAAAAAAAAAAAAAAH4tEtetEQZ6GQAAAAAAAAAAAA
+        WoKV7brR0ayhGQAAAAAAAAAAAAAAAAAAAAAAAAAAlWSLLS0HoVIAAAAAAAAAAAAAAH7iB+0tOqEZAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAeHiwcLkAAAAAAAAAAAAAAAAAB+1weQC2cAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAH4OA0AAAAAAAAAAAAAAAAAAAAANfgZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZAA
+        AAAAAAAAAAAAAAAAAAAAAABXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP//
+        /////wAA////////AAD///////8AAP5//8///wAA/D//h///AAD4H/8D//8AAPAP/gH//wAA4Af8AP//
+        AADAA/gAf/8AAIAB8AA//wAAwAD4AB//AADgAHwAD/8AAPAAfgAH/wAA+AA/AAP/AAD8AB+AAf8AAP4A
+        D8AA/wAA/wAH4AB/AAD/gAPwAD8AAP+AAfgAHwAA/8AA/AAPAAD/4AB+AAcAAP/wAD8AAwAA//gAH4AB
+        AAD//AAfgAEAAP/4AB8AAwAA//AAPgAHAAD/4AB8AA8AAP/AAPgAHwAA/4AB8AA/AAD/AAPgAH8AAP4A
+        B8AA/wAA/AAPgAH/AAD4AB8AA/8AAPAAPgAH/wAA4AB8AA//AADAAPgAH/8AAIAB+AA//wAAwAP4AH//
+        AADgB/wA//8AAPAP/gH//wAA+B//A///AAD8P//H//8AAP5//+///wAA////////AAD///////8AAP//
+        /////wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA/4wAArhSAIXDVwBsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADJWgBZulMAycdXACIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADJTgAHu1YAp8BZAP+7UgD9ylYAcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANVhAG29VQD8x2AA/7dPAODIUQAfAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAANReAAzAWwC4wloA//OpR//liBb/tk0A/chVAG0AAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB12UAgL5WAP7lkCr/+bZV/8lh
+        AP+1TQDdwlgAHQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4WgAE8NcAMfHXgD/8atO//e+c//4v27/4oMT/7NL
+        AP3FVABoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP+TAALMYACTw1oA/uiU
+        MP/2v3T/9r1y//ixTf/FXwD/sksA2sBQABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADWawAdxl8A1MpjAP/xrFT/9Ltx//O6
+        bP/0uGf/+Llh/+CAD/+xSAD8wlEAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuV0ABsZf
+        AKbEXAD/6Zc2//S7c//0uW3/9bdp//W5Zv/3rUL/w1sA/69IANfESwAaAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANdoACfJYQDfzmgA/++t
+        Wf/xuXH/8bdt//K1Z//ztGH/87Nc//e0V//efAv/rkUA/MFMAF8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADqZwALy2IAt8liAP/pmz//8rly//K3bf/xtWn/8rRj//OyXf/1s1z/9qc5/8BZAP+uRwDUxUkAFwAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMlk
+        AL/MZQD/7KZP/++4c//vtm3/8LNp//CyYv/xsFz/8q5W//SuUv/2r0v/3HkJ/6tEAPu6SgBbAAAAAAAA
+        AAAAAAAAAAAAAAAAAADgbgBQymMA/t2BGP/wuXf/8LVu/++1av/wsmP/8LBd//GuWP/yrVL/9K5Q//Wi
+        MP++VgD/rEQA0b1CABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANlmADLIYQDt0W0E/+6vY//vtGz/7rBj/++uXf/vrFf/8KpR//GpS//zqUf/9apA/9p3
+        Bv+pQQD6uUYAVwAAAAAAAAAAAAAAAAAAAAAAAAAA0m0Aj8ZgAP7giyf/77Vy/++wZv/url//76xZ/++r
+        U//wqU3/8ahJ//OpRf/1nij/u1MA/6hCAM+yOQATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADcaQA2xV8A7tBtBP/trV3/7a1g/+2qWP/tqFL/7qdM/++l
+        Rv/wpEH/8qM8//SkNP/YdAX/pT4A+bdHAFMAAAAAAAAAAAAAAAAAAAAA/wAAAchrAJTFXQD+4Ysp/+6w
+        Z//srFr/7alU/+2nTv/upUj/76RC//CiPf/yozn/85of/7dQAP+mQQDMsEYAEAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA22YAOsJbAPDRbQX/7KlW/+yo
+        Vv/spU//7KNI/+2hQf/uoDz/7542//GeMv/1nyn/1XED/6M7APi2QwBPAAAAAAAAAAAAAAAAAAAAAIQA
+        AALJYwCZwloA/+GLJ//sq1z/66VQ/+yjSf/soUP/7aA9/+6eOP/vnTL/8Z4v//OWGP+0TQD/oz0Ayb43
+        AA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANZl
+        AD3AWQDy0G0I/+ulTf/rokr/6p9D/+udPf/snDf/7Zsx/+6ZK//vmSf/9Jsg/9NuAv+hOQD3sD8ASwAA
+        AAAAAAAAAAAAAAAAAAC7XgADxVsAncBYAP/giif/66VR/+qhRf/qnj//65w5/+ybM//tmS3/7pgo//CZ
+        JP/xkhH/sksA/6A6AMW2PAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADVYABAvlYA9NBsB//qnkX/6J1A/+maOf/qmDL/65ct/+yVJ//tlCH/7pQd//OV
+        Ff/RawL/njcA9rA/AEcAAAAAAAAAAAAAAAAAAAAAu14AA8FYAKK+VgD/4Igk/+qfRf/omjv/6Zg0/+qX
+        Lv/rlSj/7JQj/+2THf/wlBn/8I4K/69IAP+fOADBrSkADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0F8ARLtTAPXPbQj/6Zo6/+iXNv/olC7/6ZMo/+qR
+        Iv/rkBz/7I8X/+2PEv/ykQv/z2gA/5szAPatOwBDAAAAAAAAAAAAAAAAAAAAALtfAAO9VgCnvFQA/+GI
+        Iv/nmjr/55Yw/+iTKv/pkST/6pAe/+uPGP/sjhP/748O/++LBP+rRQD/nTcAvrUyAAsAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANBeAEi5UAD2z20J/+aV
+        Mv/nkiz/5o8k/+eOHv/ojBj/6osS/+uKDP/siQf/8YwB/8xlAP+YMgD0rDgAQAAAAAAAAAAAAAAAAAAA
+        AADWQwAEvFQAq7pUAP/ghh7/5pMw/+aPJv/njiD/6Iwa/+mLFP/qig7/64kI/+2JA//uiAD/qEIA/5o1
+        ALqbHAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADNWABMtk4A989sCP/lkCj/5I0i/+WKGv/miBT/54cO/+mGCP/qhQL/64UA//GLAP/JYwD/ly8A8aY4
+        AD0AAAAAAAAAAAAAAAAAAAAAu2AABrlQAK+5UgD/34MZ/+WOJf/lih7/5YkW/+eHEP/ohQr/6YQE/+qE
+        AP/thwD/7YcA/6U/AP+ZMgC3oCYABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAx1YAUbNLAPnPawf/5Iof/+OGF//khRD/5YMK/+aCBP/oggD/6YMA/+uF
+        AP/yjAD/xmAA/5cvAPClNAA6AAAAAAAAAAAAAAAAAAAAAMpQAAe0TwCzt1EA/9+BFf/jiRr/44UT/+SD
+        DP/lggb/5oEA/+iCAP/qhAD/7YcA/+yGAP+jPQD/mDMAs6AmAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMhTAFWxSQD6z2wH/+OGFv/jgQ3/44AH/+R+
+        Af/mgAD/54EA/+mDAP/rhQD/840A/8NdAP+WLgDvqDMANgAAAAAAAAAAAAAAAAAAAADWRQAIs0wAt7ZP
+        AP/efg//4oMR/+KACf/jfgL/5H8A/+aAAP/oggD/6oQA/+6IAP/rhQD/ojwA/5ozAK+KLgAGAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADFUgBZrkgA+85q
+        Bf/hgQz/4HwE/+J8AP/kfgD/5X8A/+eBAP/pgwD/64UA//ONAP/CXAD/li8A7ao5ADIAAAAAAAAAAAAA
+        AAAAAAAAvDwACbBJALu1TwD/330K/+F+CP/hewH/430A/+R+AP/mgAD/6IIA/+qEAP/uiAD/6oQA/6I8
+        AP+aMgCrqzkABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAwE0AXqxGAPvPagL/4HsC/+B6AP/ifAD/430A/+V/AP/ngQD/6YMA/+uFAP/yjAD/wFoA/5Uv
+        AOyoNAAvAAAAAAAAAAAAAAAAAAAAAMZVAAqtRgC/s00A/915A//gegD/4HoA/+J8AP/kfgD/5oAA/+iC
+        AP/qhAD/7YcA/+mDAP+hOwD/mTMAp4MAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAALVKAGKpQQD8z2kA/995AP/feQD/4XsA/+N9AP/lfwD/54EA/+mD
+        AP/shgD/8owA/8BbAP+YMQDqqTYAJQAAAAAAAAAAAAAAAAAAAAC1QgAMqUQAwrJMAP/eeAD/3ngA/+B6
+        AP/ifAD/5H4A/+aAAP/oggD/6YMA/+2HAP/pgwD/oz0A/5k0AJgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALVFAC6oQgDvwlwA/913AP/ddwD/33kA/+F7
+        AP/jfQD/5X8A/+eBAP/qhAD/7ogA/9RuAP+YMgD5qDgAPQAAAAAAAAAAAAAAAAAAAACrNwAOq0UAw7FL
+        AP/cdgD/3HYA/954AP/gegD/4nwA/+R+AP/mgAD/54EA/+uFAP/lfwD/njoA/pIzAIsAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwE0ALKxGAOm+WAD/23UA/9p0
+        AP/bdQD/3XcA/995AP/hewD/430A/+V/AP/pgwD/0GoA/5cwAPqnNwBWAAAAAAAAAAAAAAAAAAAAAMQ/
+        AA2uSADBskwA/9dyAf/YdAD/2nQA/9x2AP/eeAD/4HoA/+J8AP/kfgD/54EA/+F7AP+dNwD+lTYAmP8A
+        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEUAAqrkgA6L1X
+        AP/YdQf/1nEC/9hyAP/ZcwD/23UA/913AP/feQD/4XsA/+aAAP/OaAD/ly8A+6o5AFoAAAAAAAAAAAAA
+        AAAAAAAAvEUADLBKAL60TgD/1HEF/9dzBv/WcQD/2HIA/9p0AP/cdgD/3ngA/+B6AP/kfgD/3XcA/503
+        AP+eNwCbigAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMZU
+        ACixSwDmvFYA/9R1Dv/Vcgz/1HAE/9ZwAP/XcQD/2XMA/9t1AP/ddwD/4nwA/8xmAP+XMAD7qjUAXQAA
+        AAAAAAAAAAAAAAAAAACzTAALs0wAvLVOAP/RcAr/1HQP/9RxB//VbwH/1nAA/9hyAP/adAD/3HYA/+B6
+        AP/bdQD/nTgA/5o1AJ9WAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAyVkAJrNNAOW8VQD/0nUU/9N1Ff/Scg3/03AH/9RuAf/VbwD/13EA/9lzAP/eeAD/y2UA/5cw
+        APypNQBhAAAAAAAAAAAAAAAAAAAAAMZVAAq1TwC6tk8A/85uDv/Tdxn/0nMR/9JxCv/TbwP/1G4A/9Zw
+        AP/YcgD/23UA/9dxAP+dOAD/mjYAo8AAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADNVQAkt08A5LxUAP/Qdhz/0Xcg/9F0F//RchD/0nAK/9JuBP/TbQD/1W8A/9lz
+        AP/KZAD/mDIA/ac3AGUAAAAAAAAAAAAAAAAAAAAA1kQACLdSALi3UAD/zG4T/9F5I//QdRr/0XMU/9Fx
+        Df/Sbgf/0m0B/9RuAP/XcQD/1W8A/6A6AP+bNgCnigAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMdbACK5UgDju1QA/853Jf/Qein/z3ch/9B0Gv/QchT/0HAO/9Fu
+        CP/SbQL/1W8A/8hiAP+cNQD9qjgAaQAAAAAAAAAAAAAAAAAAAADKTwAHu1UAtbhRAP/JbRj/0Hwu/895
+        JP/PdR7/0HMX/9BxEf/Qbwv/0W0F/9NuAP/SbAD/ojwA/502AKuKAAAEAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1WIAIL1WAOG7VQD/y3cr/899M//OeSz/znck/851
+        Hv/Pcxj/z3ES/9BvDP/Tbwb/xmAA/544AP2tOwBtAAAAAAAAAAAAAAAAAAAAAMpPAAfAVwCyuVIA/8dt
+        Hf/Pfzf/znou/854KP/OdiH/znQb/89xFf/PcA//0W8L/89pAv+lPwD/nTcAr6o5AAUAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADSWgAfv1cA37tUAP/KejP/z4E9/819
+        Nf/Nei7/zXgo/851Iv/Ocxz/znMY/9FyEf/FYAP/ojoA/a89AHIAAAAAAAAAAAAAAAAAAAAA714ABr5a
+        ALC8VAD/xGwh/9CEQv/Nfjj/zXsy/815K//NdiX/znQf/850Gv/QcxX/zWoH/6dBAP+fOgCyvy0ABgAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANdgAB3CXADdu1UA/8l7
+        O//OhUn/zYA//81+Of/NezL/zXkt/812J//NdiL/z3Qd/8NfBf+kPQD9sEAAdgAAAAAAAAAAAAAAAAAA
+        AADkdAAFwlwArb1VAP/DbSf/zohN/82CQv/Nfzz/zXw2/816MP/NeCr/zXck/852If/LaQ3/qEIA/6I8
+        ALSxHwAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1GYAHMRc
+        ANu8VQD/yHxC/86KU//Nhkn/zYJD/8x/Pf/MfDf/zHox/8x5K//OeCj/wl8I/6U/AP61QgB6AAAAAAAA
+        AAAAAAAAAAAAAOQzAAXEYACqv1cA/8JtK//QjFn/zYZN/82DRv/MgED/zH46/8x7NP/MeS7/znkr/8hq
+        Ev+rRAD/pD8AuL4+AAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADabgAayGAA2bxVAP/If0v/z45d/82JVP/Nhk7/zINI/8yAQf/Mfjz/zH03/858M//AXgv/qUIA/rdE
+        AH4AAAAAAAAAAAAAAAAAAAAA1EIABMdkAKjBWgD/wG0w/9CSZP/PjFf/zYhR/8yFS//MgkX/zH8//8x9
+        Of/NfTb/x2sa/6xFAP+nQAC7tDEACwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANZlABjJYQDYvlYA/8eCU//QlGn/zo5e/82LWP/NiFL/zIVM/8yCRv/NgUL/zX89/79f
+        D/+rQwD+u0kAggAAAAAAAAAAAAAAAAAAAAC7XgADzGYApcJbAP+/bzT/0Zdv/86RY//NjFz/zYlV/8yG
+        T//MhEn/zIFE/82BQf/GbSD/rkcA/6lCAL+0TQALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMpkAJzFXgD/wnpM/9GZcv/PlGr/zpBj/82NXf/NiVf/zIdR/82F
+        TP/NhUn/vWAS/61GAP69SwCHAAAAAAAAAAAAAAAAAAAAAAAAAADgcAAuy2MA/bxfGf/RnHj/0JVu/86R
+        Zv/OjmD/zYta/82IVP/Mhk7/zYVN/8RvJ/+vSAD/rEYAw71GAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANRqABzJYQDYwV8J/8uOZf/Qlm//zpJp/82P
+        Yv/NjFz/zIpX/82JVf+8Xxf/r0gA/r9MAIsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA32wAZsdf
+        APzBbS3/z5h0/9CUa//OkGX/zY1f/82KWf/Ni1j/w3Aw/7BKAP+vRwDGtDoADgAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkZAAZxV8A1b9a
+        BP/KimH/z5Zw/86RaP/NjmL/zo5h/7thHP+wSgD+tFEAjwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAANtpAGHFXAD7v2gn/9CYc//PlGv/zZFk/8+QYv/Dcjj/sUoA/7BKAMi9TAAPAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAA3mEAF8RcANC8VwL/yIdd/9CXb//PlW3/u2Ih/7NMAP6wUgCT/wAAAQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADbZwBbwlsA+bxkIf/PmHP/0JZv/8N2Qf+ySwD/s00Ay8NF
+        ABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAANllABHCWgDIulQA/8iHXf+5ZCj/tU4A/7tVAJeGAAACAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1WMAUMBYAPe7Yh//wXhK/7NM
+        AP+2UADOzk0AEgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQXgAPvlcAxbhQAP+3UQD/vlkAm4cA
+        AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANRi
+        AEu+VgD2t1AA/7lRANHGVAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0VIADbpW
+        ALe+WACYgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADJWABGulUAr8VWABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP///////wAA////////
+        AAD+f//P//8AAPw//4f//wAA+B//A///AADwD/4B//8AAOAH/AD//wAAwAP4AH//AACAAfAAP/8AAMAA
+        +AAf/wAA4AB8AA//AADwAH4AB/8AAPgAPwAD/wAA/AAfgAH/AAD+AA/AAP8AAP8AB+AAfwAA/4AD8AA/
+        AAD/gAH4AB8AAP/AAPwADwAA/+AAfgAHAAD/8AA/AAMAAP/4AB+AAQAA//wAH4ABAAD/+AAfAAMAAP/w
+        AD4ABwAA/+AAfAAPAAD/wAD4AB8AAP+AAfAAPwAA/wAD4AB/AAD+AAfAAP8AAPwAD4AB/wAA+AAfAAP/
+        AADwAD4AB/8AAOAAfAAP/wAAwAD4AB//AACAAfgAP/8AAMAD+AB//wAA4Af8AP//AADwD/4B//8AAPgf
+        /wP//wAA/D//x///AAD+f//v//8AAP///////wAA////////AAD///////8AAP///////wAA
+</value>
+  </data>
+</root>

app/RecordOrganizer_RightManager/frmStart.vb

@@ -0,0 +1,82 @@
+Imports DD_Rights
+Public Class frmStart
+
+    Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Try
+                DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
+                If DD_Rights.ClassDatabase.Init(My.Settings.MyConnectionString) = False Then
+                    MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
+                    Me.Close()
+                End If
+                Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
+                ClassLogger.Add(">> Login at: " & Now.ToString, False)
+                ClassLogger.Add(">> Username: " & Environment.UserName, False)
+                Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql)
+                If USER_DT.Rows.Count = 0 Then
+                    ClassLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", False)
+                    'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                    'Me.Close()
+                    Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
+                    MsgBox(msg, MsgBoxStyle.Exclamation)
+                    Me.Close()
+                Else
+                    USER_GUID = USER_DT.Rows(0).Item("GUID")
+                    USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
+                    USER_WAN = USER_DT.Rows(0).Item("WAN_ENVIRONMENT") 'ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
+                    USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
+                    USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
+
+                    'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
+                    Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
+                    'Dim i As Integer = 0
+                    'For Each row As DataRow In DT_CLIENT_USER.Rows
+                    '    If i = 0 Then
+                    '        USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString
+                    '    Else
+                    '        USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString
+                    '    End If
+                    '    i += 1
+
+                    'Next
+
+                    Dim Right_RO As Boolean = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
+                    If Right_RO = False Then
+                        ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
+                        'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                        Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+
+                        If USER_LANGUAGE <> "de-DE" Then
+                            msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
+                        End If
+                        MsgBox(msg, MsgBoxStyle.Exclamation)
+                        Me.Close()
+                    Else
+                        sql = String.Format("SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
+                        USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql)
+                        If USER_IS_ADMIN = False Then
+                            Dim msg = String.Format("Sorry You are not an ADDI-Admin!")
+                            MsgBox(msg, MsgBoxStyle.Exclamation)
+                            Me.Close()
+                        End If
+                    End If
+                End If
+            Catch ex As Exception
+                ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
+                MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Visible = False
+        frmCheckRightsEntity.ShowDialog()
+        Me.Visible = True
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Process.Start(ClassLogger.DateiSpeicherort)
+    End Sub
+End Class