JJ_12_11

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -789,33 +789,35 @@ Public Class ClassControlBuilder
             End If
 
             'SQL-Command vorhanden also Ausführen des SQL
-            If sqlcommand.Length > 1 Then
-                Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
-                If DT_Combobox Is Nothing = False Then
-                    If DT_Combobox.Rows.Count > 0 Then
-                        control.DataSource = DT_Combobox
-                        control.DisplayMember = DT_Combobox.Columns(1).ColumnName
-                        control.ValueMember = DT_Combobox.Columns(0).ColumnName
-                        control.AutoCompleteMode = AutoCompleteMode.SuggestAppend
-                        control.AutoCompleteSource = AutoCompleteSource.ListItems
-                    End If
-                    Dim iWidestWidth As Integer = 300
-                    For Each row As DataRow In DT_Combobox.Rows
-                        'Die BReite der DropDown-Lsit anpassen
-                        Using g As Graphics = control.CreateGraphics
-                            If g.MeasureString(row.Item(1).ToString, control.Font).Width + 30 > iWidestWidth Then
-                                iWidestWidth = g.MeasureString(row.Item(1).ToString, control.Font).Width + 30
-                            End If
-                            g.Dispose()
-                        End Using
-                        '    control.Items.Add(row.Item(0).ToString)
-                    Next
-                    If iWidestWidth > 300 Then
-                        control.DropDownWidth = Math.Max(iWidestWidth, control.Width)
-                    End If
 
-                End If
+            ' TODO: ERST LADEN WENN EDIT MODE ENABLEDs
-            End If
+            'If sqlcommand.Length > 1 Then
+            '    Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
+            '    If DT_Combobox Is Nothing = False Then
+            '        If DT_Combobox.Rows.Count > 0 Then
+            '            control.DataSource = DT_Combobox
+            '            control.DisplayMember = DT_Combobox.Columns(1).ColumnName
+            '            control.ValueMember = DT_Combobox.Columns(0).ColumnName
+            '            control.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            '            control.AutoCompleteSource = AutoCompleteSource.ListItems
+            '        End If
+            '        Dim iWidestWidth As Integer = 300
+            '        For Each row As DataRow In DT_Combobox.Rows
+            '            'Die BReite der DropDown-Lsit anpassen
+            '            Using g As Graphics = control.CreateGraphics
+            '                If g.MeasureString(row.Item(1).ToString, control.Font).Width + 30 > iWidestWidth Then
+            '                    iWidestWidth = g.MeasureString(row.Item(1).ToString, control.Font).Width + 30
+            '                End If
+            '                g.Dispose()
+            '            End Using
+            '            '    control.Items.Add(row.Item(0).ToString)
+            '        Next
+            '        If iWidestWidth > 300 Then
+            '            control.DropDownWidth = Math.Max(iWidestWidth, control.Width)
+            '        End If
+
+            '    End If
+            'End If
 
             ' Wenn statische liste vorhanden, werte splitten und einfügen
             If static_list.Length > 0 Then

app/DD-Record-Organiser/ClassControlValues.vb

@@ -74,7 +74,11 @@ Public Class ClassControlValues
                         radio.Checked = CBool(result)
                     Case 3 ' ComboBox
                         Dim combobox As ComboBox = DirectCast(control, ComboBox)
-                        combobox.SelectedIndex = combobox.FindStringExact(result)
+                        If combobox.SelectedIndex = -1 Then
+                            combobox.Text = result
+                        Else
+                            combobox.SelectedIndex = combobox.FindStringExact(result)
+                        End If
                     Case 4 'DateTimePicker
                         Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
 

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

@@ -962,6 +962,7 @@
     <None Include="Resources\brick.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\EditLabel_13239.png" />
     <None Include="Resources\delete_12x12.png" />
     <None Include="Resources\delete1.png" />
     <None Include="Resources\FileSystemEditor_5852.png" />

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

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.0.0")> 
+<Assembly: AssemblyVersion("1.6.1.0")> 
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.6.1.0")> 

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

@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.34014
+'     Laufzeitversion:4.0.30319.34209
 '
 '     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
 '     der Code erneut generiert wird.
@@ -650,6 +650,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property EditLabel_13239() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("EditLabel_13239", 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

@@ -127,23 +127,20 @@
   <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>
   </data>
-  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="flag_green" 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\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="application_form" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\application_form.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="cmb" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cmb.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Einstellungen3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einstellungen3.ico;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="FileSystemEditor_5852" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\FileSystemEditor_5852.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="PropertyGridEditorPart_6041" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\PropertyGridEditorPart_6041.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <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>
@@ -163,14 +160,17 @@
   <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="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="folder_Open_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="user_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="application_form" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Property_501" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\application_form.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Property_501.png;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">
     <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -181,41 +181,35 @@
   <data name="database_table" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Monitor_Screen_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="table_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="WMI_Task_21x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WMI_Task_21x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="action_Cancel_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_Cancel_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <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="lbl" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="database" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <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="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="table_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table_add.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>
   </data>
-  <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="FileSystemEditor_5852" 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>
+    <value>..\Resources\FileSystemEditor_5852.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="arrow_Forward_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -223,12 +217,6 @@
   <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Property_501" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Property_501.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="color_wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\color_wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -241,21 +229,18 @@
   <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Close_16xLG.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="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="UserInterfaceEditor_5845" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\UserInterfaceEditor_5845.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <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="page_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ListBox_686_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ListBox_686_24.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ico6078" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ico6078.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -268,18 +253,21 @@
   <data name="TextBox_708" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <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="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="save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <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="module_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\module_32xSM.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>
+  </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>
@@ -295,8 +283,8 @@
   <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="005_Task_32x42_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\005_Task_32x42_72.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <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>
@@ -307,6 +295,9 @@
   <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>
   </data>
+  <data name="GroupBox_680" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\GroupBox_680.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>
   </data>
@@ -346,8 +337,8 @@
   <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PropertyGridEditorPart_6041" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\PropertyGridEditorPart_6041.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="shield_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\shield_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -355,7 +346,13 @@
   <data name="arrow_Next_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Next_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-   <data name="folder_Open_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Men1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Men1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <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="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="bug_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
@@ -367,8 +364,8 @@
   <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>
   </data>
-  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="1532_Flag_Blue" 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\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -382,21 +379,21 @@
   <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="ImageListControl_683" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="cmb" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ImageListControl_683.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\cmb.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">
-    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <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="userAccounts" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="delete" 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>
+    <value>..\Resources\delete.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="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>
   <data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -412,11 +409,14 @@
   <data name="module_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\module_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="calendar" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\calendar.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="database_gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="grid_Data_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\grid_Data_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="lbl" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -433,8 +433,8 @@
   <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="AddMark_10580" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ImageListControl_683" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AddMark_10580.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\ImageListControl_683.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>
@@ -445,14 +445,14 @@
   <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="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Einstellungen3" 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>
+    <value>..\Resources\Einstellungen3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="CheckBox_669" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CheckBox_669.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="grid_Data_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Monitor_Screen_16xLG" 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>
+    <value>..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Men2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Men2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,20 +460,20 @@
   <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="HomeHS" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Excel_25ixel.jpg;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">
+  <data name="database_error" 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>
+    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="GroupBox_680" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="f2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\GroupBox_680.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\f2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bricks" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -484,17 +484,17 @@
   <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_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="calendar" 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\calendar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="user_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_16xLG.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">
+  <data name="action_add_16xLG" 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>
+    <value>..\Resources\action_add_16xLG.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">
+  <data name="005_Task_32x42_72" 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>
+    <value>..\Resources\005_Task_32x42_72.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>
@@ -502,8 +502,8 @@
   <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="HomeHS" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="FilteredObject_13400_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\FilteredObject_13400_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -511,16 +511,19 @@
   <data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Men1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Men1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ListBox_686_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ListBox_686_24.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="action_Cancel_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddMark_10580" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_Cancel_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\AddMark_10580.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="EditLabel_13239" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\EditLabel_13239.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

app/DD-Record-Organiser/frmForm_Constructor.designer.vb

@@ -23,8 +23,8 @@ Partial Class frmForm_Constructor
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
+        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor))
         Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
         Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
@@ -185,9 +185,9 @@ Partial Class frmForm_Constructor
         '
         Me.GridControlSelection.AllowDrop = True
         Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode1.LevelTemplate = Me.grvwCarousel
+        GridLevelNode3.LevelTemplate = Me.grvwCarousel
-        GridLevelNode1.RelationName = "Level1"
+        GridLevelNode3.RelationName = "Level1"
-        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
         Me.GridControlSelection.Location = New System.Drawing.Point(298, 0)
         Me.GridControlSelection.MainView = Me.grvwSelection
         Me.GridControlSelection.Name = "GridControlSelection"
@@ -230,13 +230,13 @@ Partial Class frmForm_Constructor
         Me.GridControlParentEntity.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        GridLevelNode2.LevelTemplate = Me.LayoutView1
+        GridLevelNode1.LevelTemplate = Me.LayoutView1
-        GridLevelNode2.RelationName = "Level1"
+        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
         Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3)
         Me.GridControlParentEntity.MainView = Me.GridViewParentEntity
         Me.GridControlParentEntity.Name = "GridControlParentEntity"
-        Me.GridControlParentEntity.Size = New System.Drawing.Size(295, 297)
+        Me.GridControlParentEntity.Size = New System.Drawing.Size(0, 297)
         Me.GridControlParentEntity.TabIndex = 14
         Me.GridControlParentEntity.TabStop = False
         Me.GridControlParentEntity.UseEmbeddedNavigator = True
@@ -399,7 +399,7 @@ Partial Class frmForm_Constructor
         Me.TCDetails.Name = "TCDetails"
         Me.TCDetails.SelectedTabPage = Me.TabPageDetails
         Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False]
-        Me.TCDetails.Size = New System.Drawing.Size(764, 340)
+        Me.TCDetails.Size = New System.Drawing.Size(1125, 340)
         Me.TCDetails.TabIndex = 19
         Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp})
         '
@@ -408,7 +408,7 @@ Partial Class frmForm_Constructor
         Me.TabPageDetails.Controls.Add(Me.pnlDetails)
         Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
         Me.TabPageDetails.Name = "TabPageDetails"
-        Me.TabPageDetails.Size = New System.Drawing.Size(762, 312)
+        Me.TabPageDetails.Size = New System.Drawing.Size(758, 309)
         Me.TabPageDetails.Text = "Detailansicht:"
         '
         'pnlDetails
@@ -417,7 +417,7 @@ Partial Class frmForm_Constructor
         Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
         Me.pnlDetails.Name = "pnlDetails"
-        Me.pnlDetails.Size = New System.Drawing.Size(762, 312)
+        Me.pnlDetails.Size = New System.Drawing.Size(758, 309)
         Me.pnlDetails.TabIndex = 0
         '
         'TabPageWD_Files
@@ -481,7 +481,7 @@ Partial Class frmForm_Constructor
         Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp)
         Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
         Me.TabPageFollowUp.Name = "TabPageFollowUp"
-        Me.TabPageFollowUp.Size = New System.Drawing.Size(758, 309)
+        Me.TabPageFollowUp.Size = New System.Drawing.Size(1119, 309)
         Me.TabPageFollowUp.Text = "Wiedervorlage"
         '
         'grpbxFU_Profile
@@ -694,7 +694,7 @@ Partial Class frmForm_Constructor
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity
-        Me.XtraTabControl1.Size = New System.Drawing.Size(525, 340)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(171, 340)
         Me.XtraTabControl1.TabIndex = 0
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity})
         '
@@ -708,7 +708,7 @@ Partial Class frmForm_Constructor
         Me.TabPageParentEntity.Controls.Add(Me.Label4)
         Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity)
         Me.TabPageParentEntity.Name = "TabPageParentEntity"
-        Me.TabPageParentEntity.Size = New System.Drawing.Size(523, 315)
+        Me.TabPageParentEntity.Size = New System.Drawing.Size(165, 312)
         Me.TabPageParentEntity.Text = "Parent-Entity"
         '
         'Button1
@@ -716,7 +716,7 @@ Partial Class frmForm_Constructor
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(393, 273)
+        Me.Button1.Location = New System.Drawing.Point(32, 273)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(98, 27)
         Me.Button1.TabIndex = 18
@@ -734,7 +734,7 @@ Partial Class frmForm_Constructor
         Me.btnRefreshPEntity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 305)
         Me.btnRefreshPEntity.Name = "btnRefreshPEntity"
-        Me.btnRefreshPEntity.Size = New System.Drawing.Size(488, 31)
+        Me.btnRefreshPEntity.Size = New System.Drawing.Size(127, 31)
         Me.btnRefreshPEntity.TabIndex = 17
         Me.btnRefreshPEntity.Text = "Parent-Datensatz aktualisieren"
         Me.btnRefreshPEntity.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -746,7 +746,7 @@ Partial Class frmForm_Constructor
         Me.lblParentID.AutoSize = True
         Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.lblParentID.Location = New System.Drawing.Point(304, 38)
+        Me.lblParentID.Location = New System.Drawing.Point(-57, 38)
         Me.lblParentID.Name = "lblParentID"
         Me.lblParentID.Size = New System.Drawing.Size(168, 16)
         Me.lblParentID.TabIndex = 16
@@ -757,7 +757,7 @@ Partial Class frmForm_Constructor
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(304, 12)
+        Me.Label4.Location = New System.Drawing.Point(-57, 12)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(160, 16)
         Me.Label4.TabIndex = 15

app/DD-Record-Organiser/frmForm_Constructor.resx

@@ -140,15 +140,6 @@
   <metadata name="CMSEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1123, 56</value>
   </metadata>
-  <data name="DateiimportEntitätToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N
-        zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
-        3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
-        CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
-</value>
-  </data>
   <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1013, 56</value>
   </metadata>
@@ -157,7 +148,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
-        CQAAAk1TRnQBSQFMAgEBAgEAAYgBCQGIAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAZgBCQGYAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -202,6 +193,21 @@
   <metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>811, 17</value>
   </metadata>
+  <metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>646, 17</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>912, 17</value>
+  </metadata>
+  <data name="DateiimportEntitätToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N
+        zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
+        3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
+        CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
+</value>
+  </data>
   <data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
@@ -246,12 +252,23 @@
   <metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>299, 56</value>
   </metadata>
+  <metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>299, 56</value>
+  </metadata>
   <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1349, 17</value>
   </metadata>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>912, 17</value>
+    <value>1349, 17</value>
   </metadata>
+  <data name="TSDropDownButtonRecordFunctions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok
+        pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ
+        1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC
+</value>
+  </data>
   <data name="WindreamSucheNeuLadenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
@@ -310,14 +327,6 @@
         vFXvHu0qboy1gTO+AGdTgXVqwDg0YOcIUPqXoPpuY1F5o2Tqeer/0Fh7XNqDvQYVubvlJwzK+qvjj+tG
         Jp/UcSZF3Q+L4vrOTOu1/Pv7VxY0d2rl2luXLh70HGrwLzoy+eeC7DdDjRpyPiqHagAAAABJRU5ErkJg
         gg==
-</value>
-  </data>
-  <data name="TSDropDownButtonRecordFunctions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok
-        pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ
-        1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="tsbtnshowTaskoverview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -429,6 +438,16 @@
         kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
         WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw
+        MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU
+        rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U
+        gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq
+        htNmAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="ClearAllFiltersToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -452,16 +471,6 @@
         ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt
         5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf
         uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z
-</value>
-  </data>
-  <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw
-        MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU
-        rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U
-        gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq
-        htNmAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="BindingSourceForm2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

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

@@ -52,9 +52,45 @@ Partial Class frmForm_Constructor_Main
         Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
         Me.TreeViewMain = New System.Windows.Forms.TreeView()
         Me.SplitContainerBottom = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.TCDetails = New DevExpress.XtraTab.XtraTabControl()
+        Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
+        Me.pnlDetails = New System.Windows.Forms.Panel()
+        Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
+        Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button()
+        Me.btnAddUser_FollowUp = New System.Windows.Forms.Button()
+        Me.cmbFollowUpUser = New System.Windows.Forms.ComboBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.ListBoxUser2Profile = New System.Windows.Forms.ListBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.lblFollowUp_save = New System.Windows.Forms.Label()
+        Me.chkFollowUp = New System.Windows.Forms.CheckBox()
+        Me.dtpFollowUp = New System.Windows.Forms.DateTimePicker()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.ListViewFollowUp = New System.Windows.Forms.ListView()
+        Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ToolStripEdit = New System.Windows.Forms.ToolStrip()
+        Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton()
+        Me.tsButtonSave = New System.Windows.Forms.ToolStripButton()
+        Me.tsButtonDelete = New System.Windows.Forms.ToolStripButton()
+        Me.tsButtonEditMode = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.WindreamsucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.WorkflowTasksNeuErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ZeigeRecordLogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OfficeVorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VerknüpfungenAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsButtonShowTaskOverview = New System.Windows.Forms.ToolStripButton()
+        Me.tsButtonShowWorkflowTasks = New System.Windows.Forms.ToolStripButton()
         Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
         Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
         Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
+        Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
+        Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
         CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuGrid.SuspendLayout()
@@ -67,6 +103,13 @@ Partial Class frmForm_Constructor_Main
         Me.SplitContainerTop.SuspendLayout()
         CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerBottom.SuspendLayout()
+        CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TCDetails.SuspendLayout()
+        Me.TabDetails.SuspendLayout()
+        Me.TabFollowUp.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.ToolStripEdit.SuspendLayout()
         CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -101,7 +144,7 @@ Partial Class frmForm_Constructor_Main
         Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
         Me.GridControlMain.MainView = Me.grvwTiles
         Me.GridControlMain.Name = "GridControlMain"
-        Me.GridControlMain.Size = New System.Drawing.Size(813, 270)
+        Me.GridControlMain.Size = New System.Drawing.Size(791, 270)
         Me.GridControlMain.TabIndex = 0
         Me.GridControlMain.UseEmbeddedNavigator = True
         Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
@@ -241,7 +284,7 @@ Partial Class frmForm_Constructor_Main
         'StatusStrip_Main
         '
         Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord})
-        Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 611)
+        Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 687)
         Me.StatusStrip_Main.Name = "StatusStrip_Main"
         Me.StatusStrip_Main.Size = New System.Drawing.Size(1074, 22)
         Me.StatusStrip_Main.TabIndex = 1
@@ -269,7 +312,7 @@ Partial Class frmForm_Constructor_Main
         Me.SplitContainerMain.Panel1.Text = "Panel1"
         Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerBottom)
         Me.SplitContainerMain.Panel2.Text = "Panel2"
-        Me.SplitContainerMain.Size = New System.Drawing.Size(1074, 571)
+        Me.SplitContainerMain.Size = New System.Drawing.Size(1074, 647)
         Me.SplitContainerMain.SplitterPosition = 270
         Me.SplitContainerMain.TabIndex = 2
         Me.SplitContainerMain.Text = "SplitContainerControl1"
@@ -285,7 +328,7 @@ Partial Class frmForm_Constructor_Main
         Me.SplitContainerTop.Panel2.Controls.Add(Me.GridControlMain)
         Me.SplitContainerTop.Panel2.Text = "Panel2"
         Me.SplitContainerTop.Size = New System.Drawing.Size(1074, 270)
-        Me.SplitContainerTop.SplitterPosition = 256
+        Me.SplitContainerTop.SplitterPosition = 278
         Me.SplitContainerTop.TabIndex = 0
         Me.SplitContainerTop.Text = "SplitContainerControl1"
         '
@@ -299,22 +342,331 @@ Partial Class frmForm_Constructor_Main
         Me.TreeViewMain.Location = New System.Drawing.Point(0, 0)
         Me.TreeViewMain.Name = "TreeViewMain"
         Me.TreeViewMain.ShowLines = False
-        Me.TreeViewMain.Size = New System.Drawing.Size(256, 270)
+        Me.TreeViewMain.Size = New System.Drawing.Size(278, 270)
         Me.TreeViewMain.TabIndex = 0
         '
         'SplitContainerBottom
         '
+        Me.SplitContainerBottom.Collapsed = True
         Me.SplitContainerBottom.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         Me.SplitContainerBottom.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SplitContainerBottom.Location = New System.Drawing.Point(0, 0)
         Me.SplitContainerBottom.Name = "SplitContainerBottom"
+        Me.SplitContainerBottom.Panel1.Controls.Add(Me.TCDetails)
+        Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit)
         Me.SplitContainerBottom.Panel1.Text = "Panel1"
         Me.SplitContainerBottom.Panel2.Text = "Panel2"
-        Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 296)
+        Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 372)
         Me.SplitContainerBottom.SplitterPosition = 448
         Me.SplitContainerBottom.TabIndex = 0
         Me.SplitContainerBottom.Text = "SplitContainerControl1"
         '
+        'TCDetails
+        '
+        Me.TCDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TCDetails.Location = New System.Drawing.Point(0, 25)
+        Me.TCDetails.Name = "TCDetails"
+        Me.TCDetails.SelectedTabPage = Me.TabDetails
+        Me.TCDetails.Size = New System.Drawing.Size(1069, 347)
+        Me.TCDetails.TabIndex = 1
+        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp})
+        '
+        'TabDetails
+        '
+        Me.TabDetails.Controls.Add(Me.pnlDetails)
+        Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
+        Me.TabDetails.Name = "TabDetails"
+        Me.TabDetails.Size = New System.Drawing.Size(1063, 316)
+        Me.TabDetails.Text = "Detailansicht"
+        '
+        'pnlDetails
+        '
+        Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
+        Me.pnlDetails.Name = "pnlDetails"
+        Me.pnlDetails.Size = New System.Drawing.Size(1063, 316)
+        Me.pnlDetails.TabIndex = 0
+        '
+        'TabWindream
+        '
+        Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
+        Me.TabWindream.Name = "TabWindream"
+        Me.TabWindream.Size = New System.Drawing.Size(1063, 316)
+        Me.TabWindream.Text = "windream-Dateien"
+        '
+        'TabFollowUp
+        '
+        Me.TabFollowUp.Controls.Add(Me.GroupBox3)
+        Me.TabFollowUp.Controls.Add(Me.Label5)
+        Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
+        Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
+        Me.TabFollowUp.Name = "TabFollowUp"
+        Me.TabFollowUp.Size = New System.Drawing.Size(1063, 316)
+        Me.TabFollowUp.Text = "Wiedervorlage"
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.GroupBox3.Controls.Add(Me.GroupBox4)
+        Me.GroupBox3.Controls.Add(Me.lblFollowUp_save)
+        Me.GroupBox3.Controls.Add(Me.chkFollowUp)
+        Me.GroupBox3.Controls.Add(Me.dtpFollowUp)
+        Me.GroupBox3.Controls.Add(Me.Label9)
+        Me.GroupBox3.Location = New System.Drawing.Point(283, 28)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(777, 285)
+        Me.GroupBox3.TabIndex = 4
+        Me.GroupBox3.TabStop = False
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.GroupBox4.Controls.Add(Me.btnRemoveUser_FollowUp)
+        Me.GroupBox4.Controls.Add(Me.btnAddUser_FollowUp)
+        Me.GroupBox4.Controls.Add(Me.cmbFollowUpUser)
+        Me.GroupBox4.Controls.Add(Me.Label6)
+        Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile)
+        Me.GroupBox4.Controls.Add(Me.Label7)
+        Me.GroupBox4.Location = New System.Drawing.Point(177, 20)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(594, 259)
+        Me.GroupBox4.TabIndex = 4
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Individuelle Empfänger für diesen Datensatz:"
+        '
+        'btnRemoveUser_FollowUp
+        '
+        Me.btnRemoveUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
+        Me.btnRemoveUser_FollowUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRemoveUser_FollowUp.Location = New System.Drawing.Point(248, 124)
+        Me.btnRemoveUser_FollowUp.Name = "btnRemoveUser_FollowUp"
+        Me.btnRemoveUser_FollowUp.Size = New System.Drawing.Size(340, 23)
+        Me.btnRemoveUser_FollowUp.TabIndex = 5
+        Me.btnRemoveUser_FollowUp.Text = "User aus Wiedervorlage löschen"
+        Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = True
+        '
+        'btnAddUser_FollowUp
+        '
+        Me.btnAddUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580
+        Me.btnAddUser_FollowUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAddUser_FollowUp.Location = New System.Drawing.Point(248, 95)
+        Me.btnAddUser_FollowUp.Name = "btnAddUser_FollowUp"
+        Me.btnAddUser_FollowUp.Size = New System.Drawing.Size(340, 23)
+        Me.btnAddUser_FollowUp.TabIndex = 4
+        Me.btnAddUser_FollowUp.Text = "User zu Wiedervorlage hinzufügen"
+        Me.btnAddUser_FollowUp.UseVisualStyleBackColor = True
+        '
+        'cmbFollowUpUser
+        '
+        Me.cmbFollowUpUser.FormattingEnabled = True
+        Me.cmbFollowUpUser.Location = New System.Drawing.Point(248, 68)
+        Me.cmbFollowUpUser.Name = "cmbFollowUpUser"
+        Me.cmbFollowUpUser.Size = New System.Drawing.Size(340, 21)
+        Me.cmbFollowUpUser.TabIndex = 3
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(245, 50)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(61, 13)
+        Me.Label6.TabIndex = 2
+        Me.Label6.Text = "Email-User:"
+        '
+        'ListBoxUser2Profile
+        '
+        Me.ListBoxUser2Profile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.ListBoxUser2Profile.FormattingEnabled = True
+        Me.ListBoxUser2Profile.Location = New System.Drawing.Point(9, 50)
+        Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
+        Me.ListBoxUser2Profile.Size = New System.Drawing.Size(230, 199)
+        Me.ListBoxUser2Profile.TabIndex = 1
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(6, 17)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(349, 13)
+        Me.Label7.TabIndex = 0
+        Me.Label7.Text = "Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste!"
+        '
+        'lblFollowUp_save
+        '
+        Me.lblFollowUp_save.AutoSize = True
+        Me.lblFollowUp_save.BackColor = System.Drawing.Color.Lime
+        Me.lblFollowUp_save.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblFollowUp_save.Location = New System.Drawing.Point(6, 90)
+        Me.lblFollowUp_save.Name = "lblFollowUp_save"
+        Me.lblFollowUp_save.Size = New System.Drawing.Size(146, 15)
+        Me.lblFollowUp_save.TabIndex = 3
+        Me.lblFollowUp_save.Text = "Wiedervorlage gespeichert"
+        '
+        'chkFollowUp
+        '
+        Me.chkFollowUp.AutoSize = True
+        Me.chkFollowUp.Location = New System.Drawing.Point(9, 70)
+        Me.chkFollowUp.Name = "chkFollowUp"
+        Me.chkFollowUp.Size = New System.Drawing.Size(101, 17)
+        Me.chkFollowUp.TabIndex = 2
+        Me.chkFollowUp.Text = "Undo Checkbox"
+        Me.chkFollowUp.UseVisualStyleBackColor = True
+        '
+        'dtpFollowUp
+        '
+        Me.dtpFollowUp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpFollowUp.Location = New System.Drawing.Point(9, 33)
+        Me.dtpFollowUp.Name = "dtpFollowUp"
+        Me.dtpFollowUp.Size = New System.Drawing.Size(102, 21)
+        Me.dtpFollowUp.TabIndex = 1
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(6, 17)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(38, 13)
+        Me.Label9.TabIndex = 0
+        Me.Label9.Text = "Label9"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(11, 12)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(139, 13)
+        Me.Label5.TabIndex = 3
+        Me.Label5.Text = "Hinterlegte Wiedervorlagen"
+        '
+        'ListViewFollowUp
+        '
+        Me.ListViewFollowUp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.ListViewFollowUp.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
+        Me.ListViewFollowUp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ListViewFollowUp.FullRowSelect = True
+        Me.ListViewFollowUp.Location = New System.Drawing.Point(11, 28)
+        Me.ListViewFollowUp.Name = "ListViewFollowUp"
+        Me.ListViewFollowUp.Size = New System.Drawing.Size(266, 285)
+        Me.ListViewFollowUp.TabIndex = 2
+        Me.ListViewFollowUp.UseCompatibleStateImageBehavior = False
+        '
+        'ColumnHeader1
+        '
+        Me.ColumnHeader1.Text = "ID"
+        Me.ColumnHeader1.Width = 40
+        '
+        'ColumnHeader2
+        '
+        Me.ColumnHeader2.Text = "Wiedervorlagentitel"
+        Me.ColumnHeader2.Width = 280
+        '
+        'ToolStripEdit
+        '
+        Me.ToolStripEdit.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks})
+        Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStripEdit.Name = "ToolStripEdit"
+        Me.ToolStripEdit.Size = New System.Drawing.Size(1069, 25)
+        Me.ToolStripEdit.TabIndex = 0
+        Me.ToolStripEdit.Text = "ToolStrip1"
+        '
+        'tsButtonAdd
+        '
+        Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG
+        Me.tsButtonAdd.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsButtonAdd.Name = "tsButtonAdd"
+        Me.tsButtonAdd.Size = New System.Drawing.Size(89, 22)
+        Me.tsButtonAdd.Text = "Hinzufügen"
+        '
+        'tsButtonSave
+        '
+        Me.tsButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
+        Me.tsButtonSave.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsButtonSave.Name = "tsButtonSave"
+        Me.tsButtonSave.Size = New System.Drawing.Size(79, 22)
+        Me.tsButtonSave.Text = "Speichern"
+        '
+        'tsButtonDelete
+        '
+        Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG
+        Me.tsButtonDelete.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsButtonDelete.Name = "tsButtonDelete"
+        Me.tsButtonDelete.Size = New System.Drawing.Size(71, 22)
+        Me.tsButtonDelete.Text = "Löschen"
+        '
+        'tsButtonEditMode
+        '
+        Me.tsButtonEditMode.Image = Global.DD_Record_Organiser.My.Resources.Resources.EditLabel_13239
+        Me.tsButtonEditMode.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsButtonEditMode.Name = "tsButtonEditMode"
+        Me.tsButtonEditMode.Size = New System.Drawing.Size(83, 22)
+        Me.tsButtonEditMode.Text = "Bearbeiten"
+        '
+        'ToolStripDropDownButton1
+        '
+        Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamsucheNeuLadenToolStripMenuItem, Me.WorkflowTasksNeuErstellenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.OfficeVorlagenToolStripMenuItem, Me.VerknüpfungenAnzeigenToolStripMenuItem})
+        Me.ToolStripDropDownButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
+        Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
+        Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(138, 22)
+        Me.ToolStripDropDownButton1.Text = "Record-Funktionen"
+        '
+        'WindreamsucheNeuLadenToolStripMenuItem
+        '
+        Me.WindreamsucheNeuLadenToolStripMenuItem.Name = "WindreamsucheNeuLadenToolStripMenuItem"
+        Me.WindreamsucheNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
+        Me.WindreamsucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden"
+        '
+        'WorkflowTasksNeuErstellenToolStripMenuItem
+        '
+        Me.WorkflowTasksNeuErstellenToolStripMenuItem.Name = "WorkflowTasksNeuErstellenToolStripMenuItem"
+        Me.WorkflowTasksNeuErstellenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
+        Me.WorkflowTasksNeuErstellenToolStripMenuItem.Text = "Workflow Tasks neu erzeugen"
+        '
+        'ZeigeRecordLogsToolStripMenuItem
+        '
+        Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem"
+        Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
+        Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record Logs"
+        '
+        'OfficeVorlagenToolStripMenuItem
+        '
+        Me.OfficeVorlagenToolStripMenuItem.Name = "OfficeVorlagenToolStripMenuItem"
+        Me.OfficeVorlagenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
+        Me.OfficeVorlagenToolStripMenuItem.Text = "Office Vorlagen"
+        '
+        'VerknüpfungenAnzeigenToolStripMenuItem
+        '
+        Me.VerknüpfungenAnzeigenToolStripMenuItem.Name = "VerknüpfungenAnzeigenToolStripMenuItem"
+        Me.VerknüpfungenAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
+        Me.VerknüpfungenAnzeigenToolStripMenuItem.Text = "Verknüpfungen anzeigen"
+        '
+        'tsButtonShowTaskOverview
+        '
+        Me.tsButtonShowTaskOverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.tsButtonShowTaskOverview.Enabled = False
+        Me.tsButtonShowTaskOverview.Image = Global.DD_Record_Organiser.My.Resources.Resources.brick
+        Me.tsButtonShowTaskOverview.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsButtonShowTaskOverview.Name = "tsButtonShowTaskOverview"
+        Me.tsButtonShowTaskOverview.Size = New System.Drawing.Size(100, 22)
+        Me.tsButtonShowTaskOverview.Text = "Taskübersicht"
+        '
+        'tsButtonShowWorkflowTasks
+        '
+        Me.tsButtonShowWorkflowTasks.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.tsButtonShowWorkflowTasks.Enabled = False
+        Me.tsButtonShowWorkflowTasks.Image = Global.DD_Record_Organiser.My.Resources.Resources.bricks
+        Me.tsButtonShowWorkflowTasks.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsButtonShowWorkflowTasks.Name = "tsButtonShowWorkflowTasks"
+        Me.tsButtonShowWorkflowTasks.Size = New System.Drawing.Size(122, 22)
+        Me.tsButtonShowWorkflowTasks.Text = "Taskmanagement"
+        '
         'DD_ECMAdmin
         '
         Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
@@ -324,11 +676,16 @@ Partial Class frmForm_Constructor_Main
         '
         Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
         '
+        'ContextMenuDetails
+        '
+        Me.ContextMenuDetails.Name = "ContextMenuDetails"
+        Me.ContextMenuDetails.Size = New System.Drawing.Size(61, 4)
+        '
         'frmForm_Constructor_Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1074, 633)
+        Me.ClientSize = New System.Drawing.Size(1074, 709)
         Me.Controls.Add(Me.SplitContainerMain)
         Me.Controls.Add(Me.StatusStrip_Main)
         Me.Controls.Add(Me.NavPane)
@@ -347,6 +704,17 @@ Partial Class frmForm_Constructor_Main
         Me.SplitContainerTop.ResumeLayout(False)
         CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerBottom.ResumeLayout(False)
+        CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TCDetails.ResumeLayout(False)
+        Me.TabDetails.ResumeLayout(False)
+        Me.TabFollowUp.ResumeLayout(False)
+        Me.TabFollowUp.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.ToolStripEdit.ResumeLayout(False)
+        Me.ToolStripEdit.PerformLayout()
         CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -383,4 +751,40 @@ Partial Class frmForm_Constructor_Main
     Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView
     Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
+    Friend WithEvents ToolStripEdit As System.Windows.Forms.ToolStrip
+    Friend WithEvents tsButtonAdd As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsButtonSave As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsButtonDelete As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsButtonEditMode As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton
+    Friend WithEvents tsButtonShowTaskOverview As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsButtonShowWorkflowTasks As System.Windows.Forms.ToolStripButton
+    Friend WithEvents WindreamsucheNeuLadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents WorkflowTasksNeuErstellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ZeigeRecordLogsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents OfficeVorlagenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents VerknüpfungenAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents TCDetails As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents TabDetails As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents TabWindream As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents TabFollowUp As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents pnlDetails As System.Windows.Forms.Panel
+    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+    Friend WithEvents btnRemoveUser_FollowUp As System.Windows.Forms.Button
+    Friend WithEvents btnAddUser_FollowUp As System.Windows.Forms.Button
+    Friend WithEvents cmbFollowUpUser As System.Windows.Forms.ComboBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents ListBoxUser2Profile As System.Windows.Forms.ListBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents lblFollowUp_save As System.Windows.Forms.Label
+    Friend WithEvents chkFollowUp As System.Windows.Forms.CheckBox
+    Friend WithEvents dtpFollowUp As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents ListViewFollowUp As System.Windows.Forms.ListView
+    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
+    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
+    Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip
+    Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip
 End Class

app/DD-Record-Organiser/frmForm_Constructor_Main.resx

@@ -151,6 +151,9 @@
   <metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>773, 15</value>
+  </metadata>
   <metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>162, 11</value>
   </metadata>
@@ -168,4 +171,10 @@
         ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
 </value>
   </data>
+  <metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>894, 15</value>
+  </metadata>
+  <metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>995, 15</value>
+  </metadata>
 </root>

app/DD-Record-Organiser/frmForm_Constructor_Main.vb

@@ -4,17 +4,20 @@ Imports DevExpress.XtraEditors
 Imports DevExpress.XtraEditors.Repository
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Tile
+Imports DevExpress.XtraScheduler
 
 Public Class frmForm_Constructor_Main
 
+#Region "Laufzeitvariablen & Konstanten"
     Public CONSTRUCTORID As Integer
     Public DT_CONSTRUCT_VIEW As DataTable
     Public EBENE2_PARENT_ID As Integer
     Public EBENE3_PARENT_ID As Integer
     Public ACT_EBENE As Integer
     Public ACT_EBENE_STRING
-    Public SelectedRecordID As Integer
+    Public SELECTED_RECORD_ID As Integer
     Public PARENT_RECORDID As Integer
+    Public thisFORMVIEW_ID As Integer
 
     Public EBENE1_ENTITY
     Public EBENE2_ENTITY
@@ -29,15 +32,20 @@ Public Class frmForm_Constructor_Main
     Public EBENE2_GRID_RESULT
     Public EBENE3_GRID_RESULT
     Public act_FormViewID
-    Public DT_SELECTION
+    Public DT_SELECTION As DataTable
     Public EBENE_SQLRESULT
     Public EDIT_STATE As EditState = EditState.None
     Public GRID_TYPE As GridType = GridType.Tiles
+    Public FORM_LOADED As Boolean = False
+    Public RECORD_CHANGED As Boolean = False
+    Public SAVE_ROUTINE_ACTIVE As Boolean = False
+
 
     Public Enum EditState
         None
         Insert
         Update
+        Delete
     End Enum
 
     Public Enum GridType
@@ -45,6 +53,8 @@ Public Class frmForm_Constructor_Main
         Carousel
         Tiles
     End Enum
+#End Region
+
 
     Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
         'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin.VWTEMPQUICKVIEW". Sie können sie bei Bedarf verschieben oder entfernen.
@@ -59,6 +69,7 @@ Public Class frmForm_Constructor_Main
 
         'Load_Tree_View()
         Load_Tree_View(CONSTRUCTORID)
+        FORM_LOADED = True
     End Sub
 
 #Region "Layout"
@@ -213,13 +224,26 @@ Public Class frmForm_Constructor_Main
         End If
     End Function
 
-    Public Function Get_Grid_Column_Count() As Integer
+    Public Function Get_Grid_Row_Handle(value As String)
-        If GRID_TYPE = GridType.Grid Then
+        Try
-            Return grvwGrid.Columns.Count
+            Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value))
-        Else
+            If rowHandle > 0 Then
-            Return grvwTiles.Columns.Count
-        End If
 
+                If GRID_TYPE = GridType.Grid Then
+                    grvwGrid.FocusedRowHandle = rowHandle
+                ElseIf GRID_TYPE = GridType.Tiles Then
+                    grvwTiles.FocusedRowHandle = rowHandle
+                Else
+                    grvwCarousel.FocusedRowHandle = rowHandle
+                End If
+
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False)
+        End Try
+    End Function
+
+    Public Function Get_Grid_Column_Count() As Integer
         If GRID_TYPE = GridType.Grid Then
             Return grvwGrid.Columns.Count
         ElseIf GRID_TYPE = GridType.Tiles Then
@@ -230,12 +254,6 @@ Public Class frmForm_Constructor_Main
     End Function
 
     Public Function Get_Focused_Row_Cell_Value(columnName As String)
-        If GRID_TYPE = GridType.Grid Then
-            Return grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
-        Else
-            Return grvwTiles.GetFocusedRowCellValue(grvwTiles.Columns(columnName))
-        End If
-
         If GRID_TYPE = GridType.Grid Then
             Return grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
         ElseIf GRID_TYPE = GridType.Tiles Then
@@ -424,12 +442,231 @@ Public Class frmForm_Constructor_Main
             Else
                 tssRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString)
             End If
+            tssRecord.Text = tssRecord.Text.Replace(", Changed by  when ", "")
             tssRecord.Visible = True
         End If
     End Sub
 
 #End Region
 
+#Region "Controls"
+    Sub Load_Controls(FORM_VIEW_ID As Integer)
+        thisFORMVIEW_ID = FORM_VIEW_ID
+        CURRENT_FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID)
+        CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip)
+        'LoadControls(thisFormId)
+        CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
+                                                   ContextMenuDetails,
+                                                   AddressOf NewEditAppointment,
+                                                   AddressOf OpenFormData)
+        CtrlCommandUI.LoadControls(CURRENT_FORM_ID)
+        AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
+
+    End Sub
+
+    Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
+        RECORD_CHANGED = True
+    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 = GetControlID_for_Name(ControlName, CURRENT_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"
+
+    Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
+        If CtrlCommandUI.IsInsert Then
+            Exit Sub
+        End If
+
+        RECORD_CHANGED = True
+        pnlDetails.Enabled = True
+        tsButtonShowWorkflowTasks.Enabled = True
+
+        ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
+        CtrlCommandUI.IsInsert = True
+    End Sub
+
+    Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
+        Try
+
+            SAVE_ROUTINE_ACTIVE = True
+
+            If CtrlCommandUI.IsInsert Then
+                EDIT_STATE = EditState.Insert
+            Else
+                EDIT_STATE = EditState.Update
+                NEW_RECORD_ID = 0
+                If Not RECORD_CHANGED Then
+                    Update_Status_Label(True, "KEINE Änderungen an Datensatz.")
+                    Exit Sub
+                End If
+            End If
+
+            Dim ResultMessage = Update_Record_OnChange()
+            Dim recid As Integer
+            Update_Status_Label(True, ResultMessage, EDIT_STATE)
+
+            If EDIT_STATE = EditState.Update Then
+                recid = CURRENT_RECORD_ID
+            Else
+                recid = NEW_RECORD_ID
+            End If
+
+            SELECTED_RECORD_ID = recid
+            CURRENT_RECORD_ID = recid
+
+            If EDIT_STATE = EditState.Insert Then
+                Select Case ACT_EBENE
+                    Case 1
+                        EBENE1_RECID = recid
+                        For Each row As DataRow In DT_SELECTION.Rows
+                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
+                                EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
+                            End If
+                        Next
+                    Case 2
+                        EBENE2_RECID = recid
+                        For Each row As DataRow In DT_SELECTION.Rows
+                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
+                                EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
+                            End If
+                        Next
+                        If EBENE1_RECID = 0 Then
+                            'Bis jetzt konnte noch keine Parent-ID angelegt werden!
+                            MsgBox("Achtung es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation)
+                            'Show_Verknuepfungen()
+                        End If
+                End Select
+            ElseIf EDIT_STATE = EditState.Update Then
+                'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden
+                Select Case ACT_EBENE
+                    Case 1
+                        EBENE1_RECID = recid
+                        For Each row As DataRow In DT_SELECTION.Rows
+                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
+                                EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
+                            End If
+                        Next
+                    Case 2
+                        EBENE2_RECID = recid
+                        For Each row As DataRow In DT_SELECTION.Rows
+                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
+                                EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
+                            End If
+                        Next
+                End Select
+            End If
+
+            'Jetzt den Record nochmal laden
+            Show_Selected_Record_Data("Record-ID", SELECTED_RECORD_ID)
+            Update_Status_Label(True, "Record gespeichert - " & Now)
+            Update_Record_Label(SELECTED_RECORD_ID)
+
+
+            If EDIT_STATE = EditState.Insert Then
+                'Die Daten neu laden
+                Load_Entity_Data_Only()
+                Get_Grid_Row_Handle(NEW_RECORD_ID)
+            Else
+                'Die Daten neu laden
+                Load_Entity_Data_Only()
+                Get_Grid_Row_Handle(CURRENT_RECORD_ID)
+                'Die Daten auf dem Panel laden
+                ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                pnlDetails.Enabled = True
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+
+        EDIT_STATE = EditState.None
+        RECORD_CHANGED = False
+        SAVE_ROUTINE_ACTIVE = False
+    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
+            EDIT_STATE = EditState.Delete
+            If CtrlCommandUI.DeleteRecord(SELECTED_RECORD_ID) = True Then
+                Update_Status_Label(True, "Der Datensatz " & SELECTED_RECORD_ID & " wurde erfolgreich gelöscht - " & Now)
+                Update_Record_Label(SELECTED_RECORD_ID)
+                Load_Tree_View_Data()
+            End If
+        End If
+        EDIT_STATE = EditState.None
+    End Sub
+
+    Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click
+
+    End Sub
+
+#End Region
+
+#Region "Appointments"
+    Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+        Try
+            Dim ctrl As Control = sender
+            ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, CURRENT_RECORD_ID, pnlDetails.Controls)
+        Catch ex As Exception
+            MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Sub EditAppointment(ByVal sender As Control, FormID As Integer)
+        Try
+            ' Load All appointments first
+            frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
+            frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)
+
+            Dim apt As Appointment = frmCalendar.SchedulerStorage1.Appointments.Items.Find(AddressOf FindAppointment)
+            If apt IsNot Nothing Then
+                frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt)
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in EditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Function FindAppointment(ByVal apt As Appointment) As Boolean
+        Return Convert.ToInt32(apt.CustomFields("RecordID")) = SELECTED_RECORD_ID
+    End Function
+#End Region
+
     Sub Load_Entity_Data(FormId As Integer, CurrentLevel As Integer)
         Try
             Me.Cursor = Cursors.WaitCursor
@@ -440,7 +677,7 @@ Public Class frmForm_Constructor_Main
             CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FormId)
             IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FormId)
             LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
-            SelectedRecordID = 0
+            SELECTED_RECORD_ID = 0
             Dim DT As DataTable
             Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId
             Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
@@ -481,14 +718,21 @@ Public Class frmForm_Constructor_Main
                     ACT_EBENE_STRING = EBENE2_ENTITY
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 2 in TreeView selektiert", False)
                     EBENE3_ENTITY = ""
+                    _sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
                     'Parent-ID setzen
                     If EBENE1_RECID > 0 Then
                         PARENT_RECORDID = EBENE1_RECID
                         CURRENT_PARENTID = EBENE1_RECID
-                        _sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
+
-                        _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                        If GRID_TYPE = GridType.Grid Then
-                        _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+
-                        _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                            _sql = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & CURRENT_PARENTID
+
+                        Else
+                            _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                            _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                            _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                        End If
                     End If
                     'tslblEntity3.Visible = False
                     Select Case CURRENT_FORM_TYPE
@@ -505,10 +749,14 @@ Public Class frmForm_Constructor_Main
                     If EBENE1_RECID > 0 Then
                         '_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
                         _sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
-                        _sql = _sql.Replace("@RecordID", EBENE1_RECID)
+                        If GRID_TYPE = GridType.Grid Then
-                        _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                            _sql = "SELECT T.[Record-ID] FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & CURRENT_PARENTID
-                        _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                        Else
-                        _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                            _sql = _sql.Replace("@RecordID", EBENE2_RECID)
+                            _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                            _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                            _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                        End If
                     Else
                         _sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
                     End If
@@ -543,10 +791,15 @@ Public Class frmForm_Constructor_Main
                     If EBENE2_RECID > 0 Then
                         Try
                             _sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
-                            _sql = _sql.Replace("@RecordID", EBENE2_RECID)
+                            If GRID_TYPE = GridType.Grid Then
-                            _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                                _sql = "SELECT T.[Record-ID] FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & CURRENT_PARENTID
-                            _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                            Else
-                            _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                                _sql = _sql.Replace("@RecordID", EBENE2_RECID)
+                                _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                                _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                                _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                            End If
+                           
 
 
                         Catch ex As Exception
@@ -567,11 +820,13 @@ Public Class frmForm_Constructor_Main
             CURRENT_ENTITYSTRING = ACT_EBENE_STRING
             CURRENT_PARENTID = PARENT_RECORDID
             act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FormId)
-            'If EDIT_STATE = "none" Then
+
-            '    'Die Controls der Entität laden
+            If EDIT_STATE = EditState.None Then
-            '    Load_Controls(act_FormViewID)
+                'Die Controls der Entität laden
-            '    set_pnlsize()
+                Load_Controls(act_FormViewID)
-            'End If
+                'set_pnlsize()
+            End If
+
             CURRENT_FORMVIEW_ID = act_FormViewID
 
             'Überprüfen ob windream Dos angezeigt werden sollen?
@@ -606,10 +861,10 @@ Public Class frmForm_Constructor_Main
                     'tsbtnRecorddelete.Visible = True
                     'tsbtnRecordSave.Visible = True
                     'TabPageDetails.PageVisible = True
-                    Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID)
+                    ' Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID)
                     'TabPageDetails.Text = "Detaileingabe zu " & Beschreibung
                     'Den Spaltennamen für die Selektion laden
-                    sql = "SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId
+                    'sql = "SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId
                     'Jetzt die Datensätze zur Entität laden
                     CURRENT_ENTITYSQL = _sql
                     Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity")
@@ -649,6 +904,19 @@ Public Class frmForm_Constructor_Main
         End Try
     End Sub
 
+    Sub Load_Entity_Data_Only()
+        Try
+            Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "Load_Entity_Data_Only")
+            Dim primaryKey(1) As DataColumn
+            primaryKey(0) = DTEntity.Columns("Record-ID")
+            DTEntity.PrimaryKey = primaryKey
+
+            LoadGrid_Selection(CURRENT_ENTITYSQL, DTEntity)
+        Catch ex As Exception
+            MsgBox("Error in Load_Entity_Data_Only:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+        End Try
+    End Sub
+
     Sub CreateTile()
         Dim ImageIndex As Integer = -1
         Dim i As Integer = 0
@@ -761,7 +1029,7 @@ Public Class frmForm_Constructor_Main
                 Return False
             End Try
         End If
-        'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
+        Update_Record_Label(CURRENT_RECORD_ID)
         Return True
     End Function
 
@@ -853,7 +1121,7 @@ Public Class frmForm_Constructor_Main
                 If Get_Grid_Row_Count() > 0 Then
                     Dim Grid_RecordID = Get_Focused_Row_Cell_Value(GridColumn_String)
                     If Grid_RecordID Is Nothing = False Then
-                        SelectedRecordID = Grid_RecordID
+                        SELECTED_RECORD_ID = Grid_RecordID
                         CURRENT_RECORD_ID = Grid_RecordID
                     Else
                         'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
@@ -864,7 +1132,7 @@ Public Class frmForm_Constructor_Main
 
             Else 'Record wird direkt geladen
                 If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird DIREKT geladen", False)
-                SelectedRecordID = DirectRecID
+                SELECTED_RECORD_ID = DirectRecID
                 CURRENT_RECORD_ID = DirectRecID
             End If
 
@@ -879,19 +1147,19 @@ Public Class frmForm_Constructor_Main
             Select Case ACT_EBENE
                 Case 1
                     PARENT_RECORDID = 0
-                    EBENE1_RECID = SelectedRecordID
+                    EBENE1_RECID = SELECTED_RECORD_ID
                     CURRENT_PARENTID = EBENE1_RECID
                     If Not EBENE1_COLUMNNAME Is Nothing Then
                         EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
 
 
                         Dim cat As TileNavCategory = LoadLevel1Nav()
-                        navPane.Categories.Clear()
+                        NavPane.Categories.Clear()
-                        navPane.Categories.Add(cat)
+                        NavPane.Categories.Add(cat)
 
                     End If
                 Case 2
-                    EBENE2_RECID = SelectedRecordID
+                    EBENE2_RECID = SELECTED_RECORD_ID
                     If Not EBENE2_COLUMNNAME Is Nothing Then
                         EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
                         'Dim sql As String = "select @p " & EBENE_SQLRESULT & " where [Record-ID] = " & SelectedRecordID
@@ -900,8 +1168,8 @@ Public Class frmForm_Constructor_Main
                         'EBENE2_GRID_RESULT = result 'grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE2_COLUMNNAME))
 
                         Dim cat As TileNavCategory = LoadLevel1Nav()
-                        navPane.Categories.Clear()
+                        NavPane.Categories.Clear()
-                        navPane.Categories.Add(cat)
+                        NavPane.Categories.Add(cat)
 
                         Dim item As TileNavItem = LoadLevel2Nav()
                         cat.Items.Add(item)
@@ -915,14 +1183,14 @@ Public Class frmForm_Constructor_Main
                         CURRENT_PARENTID = EBENE2_RECID
                     End If
                 Case 3
-                    EBENE3_RECID = SelectedRecordID
+                    EBENE3_RECID = SELECTED_RECORD_ID
                     If Not EBENE3_COLUMNNAME Is Nothing Then
                         EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
                         'EBENE3_GRID_RESULT = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE3_COLUMNNAME))
 
                         Dim cat As TileNavCategory = LoadLevel1Nav()
-                        navPane.Categories.Clear()
+                        NavPane.Categories.Clear()
-                        navPane.Categories.Add(cat)
+                        NavPane.Categories.Add(cat)
 
                         Dim item As TileNavItem = LoadLevel2Nav()
                         cat.Items.Add(item)
@@ -992,31 +1260,35 @@ Public Class frmForm_Constructor_Main
                 'Ganz normalerDatensatzwechsel Wechsel
                 Show_Selected_Record_Data("Record-ID")
                 'Refresh_Treeview_SelectedData()
+
+                Update_Status_Label(False)
                 'tslblStatusMain_show(False, "")
             Case EditState.Insert
                 'Refresh_Treeview_SelectedData()
             Case EditState.Update
                 ' Refresh_Treeview_SelectedData()
         End Select
-        'Select Case TCDetails.SelectedTabPageIndex
+        Select Case TCDetails.SelectedTabPageIndex
-        '    Case 0
+            Case 0
-        '        'Die Values in die Controls laden
+                'Die Values in die Controls laden
-        '        If EDIT_STATE = "none" Then
+                If EDIT_STATE = EditState.None Then
-        '            'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
+                    'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
-        '            'Die Daten auf dem Panel laden
+                    'Die Daten auf dem Panel laden
-        '            ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                    ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
-        '            'Load_Control_Values(CtrlBuilder.AllControls)
+                    'Load_Control_Values(CtrlBuilder.AllControls)
-        '            'Refresh_Treeview_SelectedData()
+                    'Refresh_Treeview_SelectedData()
-        '            RECORD_CHANGED = False
+                    RECORD_CHANGED = False
-        '        End If
+                End If
-        '    Case 1
+            Case 1
-        '        RUN_WD_SEARCH(WD_Suche, "RECORD")
+                'RUN_WD_SEARCH(WD_Suche, "RECORD")
-        '    Case 2
+            Case 2
-        '        If FOLLOW_UPisActive = True Then Refresh_FollowUps()
+                'If FOLLOW_UPisActive = True Then Refresh_FollowUps()
-        'End Select
+        End Select
         'DT_FU_Record = Nothing
         'VerknüpfungenToolStripMenuItem.Enabled = True
 
+        Update_Record_Label(SELECTED_RECORD_ID)
+
         'If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader()
         'Refresh_CreatedChangedRecordByID(SelectedRecordID)
         'Anzeige_Selected_Entity()
@@ -1027,6 +1299,30 @@ Public Class frmForm_Constructor_Main
     End Sub
 
 
+    Private Function Update_Record_OnChange() As String
+        ' Record Speichern
+        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, CURRENT_FORM_ID, PARENT_RECORDID)
+        'Jetzt die für die Entität notwendigen Prroceduren ausführen
+        Customer_Run_Procedures()
+
+        Return ResultMessage
+    End Function
+
+    Private Sub Customer_Run_Procedures()
+        Try
+            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & CURRENT_FORM_ID)
+            If Not DT Is Nothing Then
+                For Each row As DataRow In DT.Rows
+                    Dim prsql As String = row.Item("EXECUTE_COMMAND")
+                    prsql = prsql.ToUpper.Replace("@FORM_ID", CURRENT_FORM_ID)
+                    prsql = prsql.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
+                    ClassDatabase.Execute_non_Query(prsql, True)
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Customer_Run_Procedures:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
 
     Private Sub NavButtonRefresh_ElementClick(sender As Object, e As NavElementEventArgs) Handles NavButtonRefresh.ElementClick
         Load_Tree_View_Data()
@@ -1071,6 +1367,7 @@ Public Class frmForm_Constructor_Main
         ' TODO: Ansicht zurücksetzen
     End Sub
 #End Region
-    
+
+
 
 End Class

app/SetupWiX/Product.wxs

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
      xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
-  <Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="1.6.0.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
+  <Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="1.6.1.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
     <Package Id="*" Keywords="Installer" Description="Digital Data Record Organizer Setup" Comments="Record Organizer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/>
     
     <!-- Nicht entfernen! -->
@@ -96,33 +96,33 @@
             
             <!-- DEVEXPRESS Bibliotheken -->
             <Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">
-              <File Id="DevExpress.Data.v14.2" Name="DevExpress.Data.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Data.v14.2.dll" KeyPath="yes" />
+              <File Id="DevExpress.Data.v15.1" Name="DevExpress.Data.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Data.v15.1.dll" KeyPath="yes" />
-              <File Id="DevExpress.Office.v14.2.Core" Name="DevExpress.Office.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Office.v14.2.Core.dll" />
+              <File Id="DevExpress.Office.v15.1.Core" Name="DevExpress.Office.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Office.v15.1.Core.dll" />
-              <File Id="DevExpress.Printing.v14.2.Core" Name="DevExpress.Printing.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Printing.v14.2.Core.dll" />
+              <File Id="DevExpress.Printing.v15.1.Core" Name="DevExpress.Printing.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Printing.v15.1.Core.dll" />
-              <File Id="DevExpress.RichEdit.v14.2.Core" Name="DevExpress.RichEdit.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.RichEdit.v14.2.Core.dll" />
+              <File Id="DevExpress.RichEdit.v15.1.Core" Name="DevExpress.RichEdit.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.RichEdit.v15.1.Core.dll" />
-              <File Id="DevExpress.Utils.v14.2" Name="DevExpress.Utils.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Utils.v14.2.dll" />
+              <File Id="DevExpress.Utils.v15.1" Name="DevExpress.Utils.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.dll" />
-              <File Id="DevExpress.XtraBars.v14.2" Name="DevExpress.XtraBars.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraBars.v14.2.dll" />
+              <File Id="DevExpress.XtraBars.v15.1" Name="DevExpress.XtraBars.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraBars.v15.1.dll" />
-              <File Id="DevExpress.XtraEditors.v14.2" Name="DevExpress.XtraEditors.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraEditors.v14.2.dll" />
+              <File Id="DevExpress.XtraEditors.v15.1" Name="DevExpress.XtraEditors.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraEditors.v15.1.dll" />
-              <File Id="DevExpress.XtraGrid.v14.2" Name="DevExpress.XtraGrid.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraGrid.v14.2.dll" />
+              <File Id="DevExpress.XtraGrid.v15.1" Name="DevExpress.XtraGrid.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraGrid.v15.1.dll" />
-              <File Id="DevExpress.XtraLayout.v14.2" Name="DevExpress.XtraLayout.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraLayout.v14.2.dll" />
+              <File Id="DevExpress.XtraLayout.v15.1" Name="DevExpress.XtraLayout.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraLayout.v15.1.dll" />
-              <File Id="DevExpress.XtraNavBar.v14.2" Name="DevExpress.XtraNavBar.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraNavBar.v14.2.dll" />
+              <File Id="DevExpress.XtraNavBar.v15.1" Name="DevExpress.XtraNavBar.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraNavBar.v15.1.dll" />
-              <File Id="DevExpress.XtraPrinting.v14.2" Name="DevExpress.XtraPrinting.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraPrinting.v14.2.dll" />
+              <File Id="DevExpress.XtraPrinting.v15.1" Name="DevExpress.XtraPrinting.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPrinting.v15.1.dll" />
-              <File Id="DevExpress.XtraRichEdit.v14.2" Name="DevExpress.XtraRichEdit.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v14.2.dll" />
+              <File Id="DevExpress.XtraRichEdit.v15.1" Name="DevExpress.XtraRichEdit.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.1.dll" />
-              <File Id="DevExpress.XtraScheduler.v14.2" Name="DevExpress.XtraScheduler.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraScheduler.v14.2.dll" />
+              <File Id="DevExpress.XtraScheduler.v15.1" Name="DevExpress.XtraScheduler.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraScheduler.v15.1.dll" />
-              <File Id="DevExpress.XtraScheduler.v14.2.Core" Name="DevExpress.XtraScheduler.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraScheduler.v14.2.Core.dll" />
+              <File Id="DevExpress.XtraScheduler.v15.1.Core" Name="DevExpress.XtraScheduler.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraScheduler.v15.1.Core.dll" />
-              <File Id="DevExpress.XtraScheduler.v14.2.Extensions" Name="DevExpress.XtraScheduler.v14.2.Extensions.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraScheduler.v14.2.Extensions.dll" />
+              <File Id="DevExpress.XtraScheduler.v15.1.Extensions" Name="DevExpress.XtraScheduler.v15.1.Extensions.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraScheduler.v15.1.Extensions.dll" />
-              <File Id="DevExpress.XtraTreeList.v14.2" Name="DevExpress.XtraTreeList.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraTreeList.v14.2.dll" />
+              <File Id="DevExpress.XtraTreeList.v15.1" Name="DevExpress.XtraTreeList.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraTreeList.v15.1.dll" />
-              <File Id="DevExpress.XtraVerticalGrid.v14.2" Name="DevExpress.XtraVerticalGrid.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraVerticalGrid.v14.2.dll" />
+              <File Id="DevExpress.XtraVerticalGrid.v15.1" Name="DevExpress.XtraVerticalGrid.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraVerticalGrid.v15.1.dll" />
-              <File Id="DevExpress.XtraWizard.v14.2" Name="DevExpress.XtraWizard.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraWizard.v14.2.dll" />
+              <File Id="DevExpress.XtraWizard.v15.1" Name="DevExpress.XtraWizard.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraWizard.v15.1.dll" />
             </Component>
 
             <!-- Lokalisierung für DEVEXPRESS Bibliotheken-->
             <Directory Id="LOCALE_DE" Name="de">
               <Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
-                <File Id="DevExpress.XtraScheduler.v14.2.Core.resources" Name="DevExpress.XtraScheduler.v14.2.Core.resources.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\de\DevExpress.XtraScheduler.v14.2.Core.resources.dll"></File>
+                <File Id="DevExpress.XtraScheduler.v15.1.Core.resources" Name="DevExpress.XtraScheduler.v15.1.Core.resources.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\de\DevExpress.XtraScheduler.v15.1.Core.resources.dll"></File>
-                <File Id="DevExpress.XtraScheduler.v14.2.Extensions.resources" Name="DevExpress.XtraScheduler.v14.2.Extensions.resources.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\de\DevExpress.XtraScheduler.v14.2.Extensions.resources.dll"></File>
+                <File Id="DevExpress.XtraScheduler.v15.1.Extensions.resources" Name="DevExpress.XtraScheduler.v15.1.Extensions.resources.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\de\DevExpress.XtraScheduler.v15.1.Extensions.resources.dll"></File>
-                <File Id="DevExpress.XtraScheduler.v14.2.resources" Name="DevExpress.XtraScheduler.v14.2.resources.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\de\DevExpress.XtraScheduler.v14.2.resources.dll"></File>
+                <File Id="DevExpress.XtraScheduler.v15.1.resources" Name="DevExpress.XtraScheduler.v15.1.resources.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\de\DevExpress.XtraScheduler.v15.1.resources.dll"></File>
-                <File Id="DevExpress.XtraScheduler.v14.2.Reporting.resources" Name="DevExpress.XtraScheduler.v14.2.Reporting.resources.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\de\DevExpress.XtraScheduler.v14.2.Reporting.resources.dll"></File>
+                <File Id="DevExpress.XtraScheduler.v15.1.Reporting.resources" Name="DevExpress.XtraScheduler.v15.1.Reporting.resources.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\de\DevExpress.XtraScheduler.v15.1.Reporting.resources.dll"></File>
               </Component>
             </Directory>
           </Directory>