MS_ViewConstructors

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

@@ -962,6 +962,7 @@
     <None Include="Resources\brick.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\view_16xLG.png" />
     <None Include="Resources\EditLabel_13239.png" />
     <None Include="Resources\delete_12x12.png" />
     <None Include="Resources\delete1.png" />
@@ -1009,6 +1010,10 @@
     <Content Include="DD_Icons_ICO_ADDI_1.ico" />
     <None Include="Resources\cancel.png" />
     <None Include="Resources\cancel1.png" />
+    <None Include="Resources\Carousel_16x16.png" />
+    <None Include="Resources\application_view_tile.png" />
+    <None Include="Resources\application_view_detail.png" />
+    <None Include="Resources\checkbox_16xLG.png" />
     <Content Include="Resources\cube.ico" />
     <Content Include="Resources\138_PushPin_32x42_72.png" />
     <None Include="Resources\PropertyGridEditorPart_6041.png" />

app/DD-Record-Organiser/ModuleRuntimeVariables.vb

@@ -20,6 +20,7 @@
 
 
     Public CURRENT_CONSTRUCTOR_ID As Integer = 1
+    Public CURRENT_CONSTRUCTOR_DETAIL_ID As Integer
     Public CURRENT_FILEID As Integer
     Public CURRENT_FILENAME As String
     Public CURRENT_NEWFILENAME As String

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

@@ -210,6 +210,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property application_view_detail() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("application_view_detail", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property application_view_tile() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("application_view_tile", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -380,6 +400,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Carousel_16x16() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Carousel_16x16", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -390,6 +420,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property checkbox_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("checkbox_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1400,6 +1440,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property view_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("view_16xLG", 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,21 +127,18 @@
   <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="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="1532_Flag_Blue" 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\1532_Flag_Blue.ico;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="delete" 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\delete.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="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="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>
   </data>
@@ -160,17 +157,14 @@
   <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="Property_501" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="application_form" 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>
+    <value>..\Resources\application_form.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,27 +175,33 @@
   <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="application_view_detail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="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>
@@ -217,6 +217,12 @@
   <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>
@@ -229,17 +235,23 @@
   <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">
+  <data name="Carousel_16x16" 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\Carousel_16x16.png;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>
@@ -253,8 +265,8 @@
   <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">
+  <data name="calendar" 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\calendar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -262,12 +274,15 @@
   <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="view_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\view_16xLG.png;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>
@@ -283,8 +298,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="database_gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="005_Task_32x42_72" 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\005_Task_32x42_72.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>
@@ -295,9 +310,6 @@
   <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>
@@ -310,8 +322,8 @@
   <data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="application_view_tile" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\application_view_tile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="f1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -337,8 +349,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="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="PropertyGridEditorPart_6041" 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>
+    <value>..\Resources\PropertyGridEditorPart_6041.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>
@@ -364,8 +376,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="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="DateOrTimePicker_675" 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\DateOrTimePicker_675.png;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>
@@ -379,20 +391,23 @@
   <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="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>
   <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="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="delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="userAccounts" 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\userAccounts.bmp;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">
+  <data name="action_Cancel_16xLG" 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>
+    <value>..\Resources\action_Cancel_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">
-    <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>
@@ -409,14 +424,11 @@
   <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="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="folder_go" 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>
+    <value>..\Resources\folder_go.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="database_gear" 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\database_gear.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>
@@ -424,6 +436,9 @@
   <data name="f5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="database_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -433,8 +448,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="ImageListControl_683" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddMark_10580" 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\AddMark_10580.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 +460,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="Einstellungen3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="flag_green" 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>
+    <value>..\Resources\flag_green.png;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="Monitor_Screen_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="grid_Data_16xMD" 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>
+    <value>..\Resources\grid_Data_16xMD.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 +475,23 @@
   <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">
+  <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="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_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_edit.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="f2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="GroupBox_680" 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>
+    <value>..\Resources\GroupBox_680.png;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,26 +502,26 @@
   <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="calendar" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_save" 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\database_save.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="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="dtp1" 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>
+    <value>..\Resources\dtp1.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="ComboBox_672" 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\ComboBox_672.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>
   </data>
-  <data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ImageListControl_683" 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>
+    <value>..\Resources\ImageListControl_683.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">
+  <data name="HomeHS" 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>
+    <value>..\Resources\HomeHS.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,19 +529,16 @@
   <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="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="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="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ListBox_686_24" 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>
+    <value>..\Resources\ListBox_686_24.bmp;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="action_Cancel_16xLG1" 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\action_Cancel_16xLG1.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">
+  <data name="checkbox_16xLG" 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>
+    <value>..\Resources\checkbox_16xLG.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
-        GridLevelNode3.LevelTemplate = Me.grvwCarousel
+        GridLevelNode1.LevelTemplate = Me.grvwCarousel
-        GridLevelNode3.RelationName = "Level1"
+        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
+        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
         Me.GridControlSelection.Location = New System.Drawing.Point(298, 0)
         Me.GridControlSelection.MainView = Me.grvwSelection
         Me.GridControlSelection.Name = "GridControlSelection"
@@ -230,9 +230,9 @@ 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)
-        GridLevelNode1.LevelTemplate = Me.LayoutView1
+        GridLevelNode2.LevelTemplate = Me.LayoutView1
-        GridLevelNode1.RelationName = "Level1"
+        GridLevelNode2.RelationName = "Level1"
-        Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
         Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3)
         Me.GridControlParentEntity.MainView = Me.GridViewParentEntity
         Me.GridControlParentEntity.Name = "GridControlParentEntity"
@@ -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(1125, 340)
+        Me.TCDetails.Size = New System.Drawing.Size(764, 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(758, 309)
+        Me.TabPageDetails.Size = New System.Drawing.Size(762, 312)
         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(758, 309)
+        Me.pnlDetails.Size = New System.Drawing.Size(762, 312)
         Me.pnlDetails.TabIndex = 0
         '
         'TabPageWD_Files
@@ -426,7 +426,7 @@ Partial Class frmForm_Constructor
         Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente)
         Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
         Me.TabPageWD_Files.Name = "TabPageWD_Files"
-        Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 309)
+        Me.TabPageWD_Files.Size = New System.Drawing.Size(762, 312)
         Me.TabPageWD_Files.Text = "windream-Dateien"
         Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an")
         '
@@ -438,7 +438,7 @@ Partial Class frmForm_Constructor
         Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
         Me.AxObjectListControl.Name = "AxObjectListControl"
         Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
-        Me.AxObjectListControl.Size = New System.Drawing.Size(758, 284)
+        Me.AxObjectListControl.Size = New System.Drawing.Size(762, 287)
         Me.AxObjectListControl.TabIndex = 5
         Me.AxObjectListControl.TabStop = False
         '
@@ -447,7 +447,7 @@ Partial Class frmForm_Constructor
         Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
         Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
         Me.ToolStripDokumente.Name = "ToolStripDokumente"
-        Me.ToolStripDokumente.Size = New System.Drawing.Size(758, 25)
+        Me.ToolStripDokumente.Size = New System.Drawing.Size(762, 25)
         Me.ToolStripDokumente.TabIndex = 1
         Me.ToolStripDokumente.Text = "ToolStrip2"
         '
@@ -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(1119, 309)
+        Me.TabPageFollowUp.Size = New System.Drawing.Size(762, 312)
         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(171, 340)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(525, 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(165, 312)
+        Me.TabPageParentEntity.Size = New System.Drawing.Size(523, 315)
         Me.TabPageParentEntity.Text = "Parent-Entity"
         '
         'Button1

app/DD-Record-Organiser/frmForm_Constructor.resx

@@ -140,6 +140,15 @@
   <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>
@@ -148,7 +157,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
-        CQAAAk1TRnQBSQFMAgEBAgEAAZgBCQGYAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAaABCQGgAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -193,27 +202,12 @@
   <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
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
-        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAV04AAFodAAAAAAAACw==
+        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAwU4AAKodAAAAAAAACw==
 </value>
   </data>
   <metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -252,23 +246,12 @@
   <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="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1349, 17</value>
+    <value>912, 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
@@ -327,6 +310,14 @@
         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">
@@ -438,16 +429,6 @@
         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">
@@ -471,6 +452,16 @@
         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

@@ -91,6 +91,11 @@ Partial Class frmForm_Constructor_Main
         Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
         Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
         Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
+        Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl()
         CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuGrid.SuspendLayout()
@@ -106,6 +111,7 @@ Partial Class frmForm_Constructor_Main
         CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TCDetails.SuspendLayout()
         Me.TabDetails.SuspendLayout()
+        Me.TabWindream.SuspendLayout()
         Me.TabFollowUp.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
         Me.GroupBox4.SuspendLayout()
@@ -113,10 +119,14 @@ Partial Class frmForm_Constructor_Main
         CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStripDokumente.SuspendLayout()
+        CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'grvwGrid
         '
+        Me.grvwGrid.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
         Me.grvwGrid.GridControl = Me.GridControlMain
         Me.grvwGrid.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _
     "ssen"
@@ -124,9 +134,9 @@ Partial Class frmForm_Constructor_Main
         Me.grvwGrid.Name = "grvwGrid"
         Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.grvwGrid.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
         Me.grvwGrid.OptionsBehavior.Editable = False
         Me.grvwGrid.OptionsBehavior.ReadOnly = True
-        Me.grvwGrid.OptionsView.ColumnAutoWidth = False
         Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
         Me.grvwGrid.OptionsView.EnableAppearanceOddRow = True
         Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
@@ -136,6 +146,7 @@ Partial Class frmForm_Constructor_Main
         Me.GridControlMain.AllowDrop = True
         Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
         Me.GridControlMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlMain.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         GridLevelNode3.LevelTemplate = Me.grvwGrid
         GridLevelNode3.RelationName = "Level1"
         GridLevelNode4.LevelTemplate = Me.grvwCarousel
@@ -144,7 +155,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(791, 270)
+        Me.GridControlMain.Size = New System.Drawing.Size(779, 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})
@@ -170,30 +181,35 @@ Partial Class frmForm_Constructor_Main
         'AnsichtUmschaltenToolStripMenuItem
         '
         Me.AnsichtUmschaltenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ButtonQuickViewCarousel, Me.ButtonQuickViewTiles, Me.ButtonDetailView})
+        Me.AnsichtUmschaltenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.view_16xLG
         Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem"
         Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
         Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten"
         '
         'ButtonQuickViewCarousel
         '
+        Me.ButtonQuickViewCarousel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Carousel_16x16
         Me.ButtonQuickViewCarousel.Name = "ButtonQuickViewCarousel"
         Me.ButtonQuickViewCarousel.Size = New System.Drawing.Size(182, 22)
         Me.ButtonQuickViewCarousel.Text = "Quick View Carousel"
         '
         'ButtonQuickViewTiles
         '
+        Me.ButtonQuickViewTiles.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_view_tile
         Me.ButtonQuickViewTiles.Name = "ButtonQuickViewTiles"
         Me.ButtonQuickViewTiles.Size = New System.Drawing.Size(182, 22)
         Me.ButtonQuickViewTiles.Text = "Quick View Tiles"
         '
         'ButtonDetailView
         '
+        Me.ButtonDetailView.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_view_detail
         Me.ButtonDetailView.Name = "ButtonDetailView"
         Me.ButtonDetailView.Size = New System.Drawing.Size(182, 22)
         Me.ButtonDetailView.Text = "Detail View"
         '
         'ButtonSetViewAsDefault
         '
+        Me.ButtonSetViewAsDefault.Image = Global.DD_Record_Organiser.My.Resources.Resources.checkbox_16xLG
         Me.ButtonSetViewAsDefault.Name = "ButtonSetViewAsDefault"
         Me.ButtonSetViewAsDefault.Size = New System.Drawing.Size(232, 22)
         Me.ButtonSetViewAsDefault.Text = "Ansicht als Standard festlegen"
@@ -217,6 +233,7 @@ Partial Class frmForm_Constructor_Main
         '
         'ButtonExportToExcel
         '
+        Me.ButtonExportToExcel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel
         Me.ButtonExportToExcel.Name = "ButtonExportToExcel"
         Me.ButtonExportToExcel.Size = New System.Drawing.Size(232, 22)
         Me.ButtonExportToExcel.Text = "Export nach Excel"
@@ -328,7 +345,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 = 278
+        Me.SplitContainerTop.SplitterPosition = 283
         Me.SplitContainerTop.TabIndex = 0
         Me.SplitContainerTop.Text = "SplitContainerControl1"
         '
@@ -342,7 +359,7 @@ 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(278, 270)
+        Me.TreeViewMain.Size = New System.Drawing.Size(283, 270)
         Me.TreeViewMain.TabIndex = 0
         '
         'SplitContainerBottom
@@ -356,7 +373,7 @@ Partial Class frmForm_Constructor_Main
         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, 372)
+        Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 365)
         Me.SplitContainerBottom.SplitterPosition = 448
         Me.SplitContainerBottom.TabIndex = 0
         Me.SplitContainerBottom.Text = "SplitContainerControl1"
@@ -367,7 +384,7 @@ Partial Class frmForm_Constructor_Main
         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.Size = New System.Drawing.Size(1062, 340)
         Me.TCDetails.TabIndex = 1
         Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp})
         '
@@ -376,7 +393,7 @@ Partial Class frmForm_Constructor_Main
         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.Size = New System.Drawing.Size(1060, 312)
         Me.TabDetails.Text = "Detailansicht"
         '
         'pnlDetails
@@ -384,14 +401,16 @@ Partial Class frmForm_Constructor_Main
         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.Size = New System.Drawing.Size(1060, 312)
         Me.pnlDetails.TabIndex = 0
         '
         'TabWindream
         '
+        Me.TabWindream.Controls.Add(Me.AxObjectListControl)
+        Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
         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.Size = New System.Drawing.Size(1060, 312)
         Me.TabWindream.Text = "windream-Dateien"
         '
         'TabFollowUp
@@ -401,7 +420,7 @@ Partial Class frmForm_Constructor_Main
         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.Size = New System.Drawing.Size(1060, 312)
         Me.TabFollowUp.Text = "Wiedervorlage"
         '
         'GroupBox3
@@ -571,12 +590,13 @@ Partial Class frmForm_Constructor_Main
         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.Size = New System.Drawing.Size(1062, 25)
         Me.ToolStripEdit.TabIndex = 0
         Me.ToolStripEdit.Text = "ToolStrip1"
         '
         'tsButtonAdd
         '
+        Me.tsButtonAdd.Enabled = False
         Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG
         Me.tsButtonAdd.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsButtonAdd.Name = "tsButtonAdd"
@@ -585,6 +605,7 @@ Partial Class frmForm_Constructor_Main
         '
         'tsButtonSave
         '
+        Me.tsButtonSave.Enabled = False
         Me.tsButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
         Me.tsButtonSave.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsButtonSave.Name = "tsButtonSave"
@@ -593,6 +614,7 @@ Partial Class frmForm_Constructor_Main
         '
         'tsButtonDelete
         '
+        Me.tsButtonDelete.Enabled = False
         Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG
         Me.tsButtonDelete.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsButtonDelete.Name = "tsButtonDelete"
@@ -681,6 +703,50 @@ Partial Class frmForm_Constructor_Main
         Me.ContextMenuDetails.Name = "ContextMenuDetails"
         Me.ContextMenuDetails.Size = New System.Drawing.Size(61, 4)
         '
+        'ToolStripDokumente
+        '
+        Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
+        Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStripDokumente.Name = "ToolStripDokumente"
+        Me.ToolStripDokumente.Size = New System.Drawing.Size(1060, 25)
+        Me.ToolStripDokumente.TabIndex = 2
+        Me.ToolStripDokumente.Text = "ToolStrip2"
+        '
+        'tslblWindreamView
+        '
+        Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.tslblWindreamView.Name = "tslblWindreamView"
+        Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22)
+        Me.tslblWindreamView.Text = "Windream-Dokumente"
+        '
+        'ToolStripDropDownButton2
+        '
+        Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem})
+        Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image)
+        Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2"
+        Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22)
+        Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht"
+        '
+        'KonfigurationToolStripMenuItem
+        '
+        Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
+        Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User"
+        '
+        'AxObjectListControl
+        '
+        Me.AxObjectListControl.AllowDrop = True
+        Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.AxObjectListControl.Enabled = True
+        Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
+        Me.AxObjectListControl.Name = "AxObjectListControl"
+        Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
+        Me.AxObjectListControl.Size = New System.Drawing.Size(1060, 287)
+        Me.AxObjectListControl.TabIndex = 6
+        Me.AxObjectListControl.TabStop = False
+        '
         'frmForm_Constructor_Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -707,6 +773,8 @@ Partial Class frmForm_Constructor_Main
         CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TCDetails.ResumeLayout(False)
         Me.TabDetails.ResumeLayout(False)
+        Me.TabWindream.ResumeLayout(False)
+        Me.TabWindream.PerformLayout()
         Me.TabFollowUp.ResumeLayout(False)
         Me.TabFollowUp.PerformLayout()
         Me.GroupBox3.ResumeLayout(False)
@@ -718,6 +786,9 @@ Partial Class frmForm_Constructor_Main
         CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStripDokumente.ResumeLayout(False)
+        Me.ToolStripDokumente.PerformLayout()
+        CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -787,4 +858,9 @@ Partial Class frmForm_Constructor_Main
     Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
     Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip
     Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip
+    Friend WithEvents tslblWindreamView As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents ToolStripDropDownButton2 As System.Windows.Forms.ToolStripDropDownButton
+    Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents AxObjectListControl As AxOBJECTLISTCONTROLLib.AxObjectListControl
 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="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1157, 15</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>
@@ -177,4 +180,28 @@
   <metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>995, 15</value>
   </metadata>
+  <metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1157, 15</value>
+  </metadata>
+  <data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR
+        BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4
+        4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh
+        4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3
+        9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT
+        QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf
+        D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY
+        DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
+        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
+        ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
+        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAjm0AAKodAAAAAAAACw==
+</value>
+  </data>
 </root>

app/DD-Record-Organiser/frmForm_Constructor_Main.vb

@@ -5,6 +5,9 @@ Imports DevExpress.XtraEditors.Repository
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Tile
 Imports DevExpress.XtraScheduler
+Imports System.Text
+Imports WINDREAMLib
+Imports System.IO
 
 Public Class frmForm_Constructor_Main
 
@@ -19,6 +22,8 @@ Public Class frmForm_Constructor_Main
     Public PARENT_RECORDID As Integer
     Public thisFORMVIEW_ID As Integer
 
+    Public RECORD_ENABLED As Boolean = False
+
     Public EBENE1_ENTITY
     Public EBENE2_ENTITY
     Public EBENE3_ENTITY
@@ -33,12 +38,26 @@ Public Class frmForm_Constructor_Main
     Public EBENE3_GRID_RESULT
     Public act_FormViewID
     Public DT_SELECTION As DataTable
-    Public EBENE_SQLRESULT
     Public EDIT_STATE As EditState = EditState.None
     Public GRID_TYPE As GridType = GridType.Tiles
+    Public GRID_TYPE_ID As Integer = 1
     Public FORM_LOADED As Boolean = False
     Public RECORD_CHANGED As Boolean = False
     Public SAVE_ROUTINE_ACTIVE As Boolean = False
+    Private SP1 As String
+    Private SP2 As String
+    Private SP3 As String
+    Private SP4 As String
+    Private SP5 As String
+
+    Private windream_Docshow As Boolean = False
+    Private _windream As New ClassWindream
+    Private WD_Suche As String
+    Private DocView
+    Private DocViewString As String
+    Private OpenedFileString As String
+
+    Private _FormClosing As Boolean = False
 
 
     Public Enum EditState
@@ -55,12 +74,20 @@ Public Class frmForm_Constructor_Main
     End Enum
 #End Region
 
+    Private Sub frmForm_Constructor_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        _FormClosing = True
+        ' Check_Record_Changed()
+        SaveLayout()
+        CloseWDDocview()
+        ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR")
+    End Sub
+
 
     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.
         'VWTEMPQUICKVIEWTableAdapter.Connection.ConnectionString = MyConnectionString
         'VWTEMPQUICKVIEWTableAdapter.Fill(Me.DD_ECMAdmin.VWTEMPQUICKVIEW)
-
+        _FormClosing = False
         CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
         DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
 
@@ -196,9 +223,15 @@ Public Class frmForm_Constructor_Main
 
     Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)
         If GRID_TYPE = GridType.Grid Then
-            Return String.Format("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
+            CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
         Else 'Tiles und Carousel bekommen Quick View
-            Return String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
+            CURRENT_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
+            CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True)
+            If CURRENT_ENTITYSQL = String.Empty Then
+                CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
+                GRID_TYPE = GridType.Grid
+                GridControlMain.MainView = grvwGrid
+            End If
         End If
     End Function
 
@@ -262,19 +295,19 @@ Public Class frmForm_Constructor_Main
             Return grvwCarousel.GetFocusedRowCellValue(grvwCarousel.Columns(columnName))
         End If
     End Function
-
+    Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
+        Load_Record_Data()
+    End Sub
 
     Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
-        'If vFormClosing = True Or SaveRoutine_Active = True Then
+        If _FormClosing = True Then 'Or SaveRoutine_Active = True
-        '    Exit Sub
+            Exit Sub
-        'End If
+        End If
 
         'Check_Record_Changed()
 
-
-
         Load_Record_Data()
-        'Hide_Grid_Columns()
+        Hide_Grid_Columns()
 
         'If dataloaded = True Then
         '    If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
@@ -408,8 +441,8 @@ Public Class frmForm_Constructor_Main
             Else
                 ACT_EBENE = 1
             End If
-
+            CURRENT_FORM_ID = FormId
-            Load_Entity_Data(FormId, ACT_EBENE)
+            Load_Entity_Data(ACT_EBENE)
         End If
     End Sub
 #End Region
@@ -631,7 +664,19 @@ Public Class frmForm_Constructor_Main
     End Sub
 
     Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click
-
+        If RECORD_ENABLED = False Then
+            RECORD_ENABLED = True
+            Me.tsButtonDelete.Enabled = True
+            Me.tsButtonAdd.Enabled = True
+            Me.tsButtonSave.Enabled = True
+            'Funktion zum Vollständigen load der Inhalte
+        Else
+            RECORD_ENABLED = False
+            Me.tsButtonDelete.Enabled = False
+            Me.tsButtonAdd.Enabled = False
+            Me.tsButtonSave.Enabled = False
+            'Funktion nur zum load der Inhalte
+        End If
     End Sub
 
 #End Region
@@ -667,19 +712,35 @@ Public Class frmForm_Constructor_Main
     End Function
 #End Region
 
-    Sub Load_Entity_Data(FormId As Integer, CurrentLevel As Integer)
+    Sub Load_Entity_Data(CurrentLevel As Integer)
         Try
             Me.Cursor = Cursors.WaitCursor
 
             Dim IS_SINGLE_RECORD As Boolean
             Dim LOAD_DIRECT As Boolean
             'VerknüpfungenToolStripMenuItem.Enabled = False
-            CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FormId)
+            CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
-            IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FormId)
+            IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
-            LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
+            LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
+            CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
+            Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID), True)
+            If IsNothing(VIEW_ID) Then
+                ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & CURRENT_FORM_ID & ")", True)
+                VIEW_ID = 1
+            End If
+            GRID_TYPE_ID = VIEW_ID
+            ' Den GridType setzen: 1=TileView,2=Carousel,3=GridView
+            Select Case VIEW_ID
+                Case 1
+                    GRID_TYPE = GridType.Tiles
+                Case 2
+                    GRID_TYPE = GridType.Carousel
+                Case 3
+                    GRID_TYPE = GridType.Grid
+            End Select
             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 sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID
             Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
             If PARENT_ID Is Nothing Then
                 MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
@@ -687,7 +748,9 @@ Public Class frmForm_Constructor_Main
             End If
             'dataloaded = False
             'Abhängig von der Entität die Selektierungs-Daten laden
-            Dim _sql As String
+            Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID)
+
+
             Select Case CurrentLevel
                 Case 1
                     PARENT_RECORDID = 0
@@ -699,16 +762,16 @@ Public Class frmForm_Constructor_Main
                     EBENE3_ENTITY = ""
                     'tslblEntity2.Visible = False
                     'tslblEntity3.Visible = False
-                    _sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
+
-                    EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
+                    EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
                     EBENE2_COLUMNNAME = ""
                     EBENE3_COLUMNNAME = ""
                     EBENE2_GRID_RESULT = Nothing
                     EBENE3_GRID_RESULT = Nothing
-                    '_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
+                    '_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
 
                 Case 2
-                    'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
+                    'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
                     'If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
                     '    MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
                     '    TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
@@ -718,108 +781,80 @@ 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))
+                    'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
-                    'Parent-ID setzen
                     If EBENE1_RECID > 0 Then
                         PARENT_RECORDID = EBENE1_RECID
                         CURRENT_PARENTID = EBENE1_RECID
-
                         If GRID_TYPE = GridType.Grid Then
-
+                            CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & CURRENT_PARENTID
-                            _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")
+                            CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
-                            _sql = _sql & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                            CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
-                            _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                            CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
+                            CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
                         End If
                     End If
                     'tslblEntity3.Visible = False
                     Select Case CURRENT_FORM_TYPE
                         Case 5
-                            If GET_GROUP_RECORD(FormId) = True Then
+                            If GET_GROUP_RECORD(CURRENT_FORM_ID) = True Then
                                 EBENE2_RECID = CURRENT_RECORD_ID
                             End If
                     End Select
 
-                    EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
+                    EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
-
                     EBENE3_COLUMNNAME = ""
-                    'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
-                    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))
-                        If GRID_TYPE = GridType.Grid Then
-                            _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
-                        Else
-                            _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
                     EBENE2_GRID_RESULT = Nothing
                     EBENE3_GRID_RESULT = Nothing
 
                 Case 3
                     Select Case CURRENT_FORM_TYPE
                         Case 5
-                            If GET_GROUP_RECORD(FormId) = True Then
+                            If GET_GROUP_RECORD(CURRENT_FORM_ID) = True Then
                                 EBENE3_RECID = CURRENT_RECORD_ID
                             End If
                     End Select
 
-                    If EBENE2_RECID = 0 Then
-                        MsgBox("Entität '" & TreeViewMain.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
-                        TreeViewMain.SelectedNode = TreeViewMain.SelectedNode.Parent
-                        Exit Sub
-                    End If
-
                     EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
                     ACT_EBENE_STRING = EBENE3_ENTITY
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False)
-                    'Parent-ID setzen
-                    If EBENE2_RECID > 0 Then
-                        PARENT_RECORDID = EBENE2_RECID
-                        CURRENT_PARENTID = EBENE2_RECID
-                    End If
 
-                    EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
+
+
+                    EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
                     'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
                     If EBENE2_RECID > 0 Then
+                        'Parent-ID setzen
+                        PARENT_RECORDID = EBENE2_RECID
+                        CURRENT_PARENTID = EBENE2_RECID
+
                         Try
-                            _sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
                             If GRID_TYPE = GridType.Grid Then
-                                _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
+                                CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & CURRENT_PARENTID
                             Else
-                                _sql = _sql.Replace("@RecordID", EBENE2_RECID)
+                                CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
-                                _sql = _sql.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
+                                CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.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"
+                                CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
-                                _sql = _sql.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
+                                CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
                             End If
-
-
-
                         Catch ex As Exception
 
                         End Try
 
-                    Else
+                        'Else
-                        MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
+                        '    MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
-                        'Grid leeren
+                        '    'Grid leeren
-                        Clear_Grid_View()
+                        '    Clear_Grid_View()
-                        Me.Cursor = Cursors.Default
+                        '    Me.Cursor = Cursors.Default
-                        Exit Sub
+                        '    Exit Sub
                     End If
                     EBENE3_GRID_RESULT = Nothing
             End Select
 
-            CURRENT_FORM_ID = FormId
+
             CURRENT_ENTITYSTRING = ACT_EBENE_STRING
             CURRENT_PARENTID = PARENT_RECORDID
-            act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FormId)
+            act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & CURRENT_FORM_ID)
 
             If EDIT_STATE = EditState.None Then
                 'Die Controls der Entität laden
@@ -830,16 +865,16 @@ Public Class frmForm_Constructor_Main
             CURRENT_FORMVIEW_ID = act_FormViewID
 
             'Überprüfen ob windream Dos angezeigt werden sollen?
-            'Check_windream_Show(act_FormViewID)
+            Check_windream_Show(act_FormViewID)
 
 
 
-            'If windream_Docshow = True Then
+            If windream_Docshow = True Then
-            '    Clear_Windream_ResultList()
+                Clear_Windream_ResultList()
-            '    If WD_ShowEnitityDocs = True Then
+                If WD_ShowEnitityDocs = True Then
-            '        RUN_WD_SEARCH("", "ENTITY")
+                    RUN_WD_SEARCH("", "ENTITY")
-            '    End If
+                End If
-            'End If
+            End If
 
             ' Me.pnlDetails.Enabled = False
             'Me.tsbtnshowWorkflowtasks.Enabled = False
@@ -864,14 +899,15 @@ Public Class frmForm_Constructor_Main
                     ' 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 = " & CURRENT_FORM_ID
                     'Jetzt die Datensätze zur Entität laden
-                    CURRENT_ENTITYSQL = _sql
+
                     Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity")
                     Dim primaryKey(1) As DataColumn
                     primaryKey(0) = DTEntity.Columns("Record-ID")
                     DTEntity.PrimaryKey = primaryKey
-                    LoadGrid_Selection(_sql, DTEntity)
+                    DT_SELECTION = DTEntity
+                    LoadGrid_Selection()
 
                     'If LOAD_DIRECT = True Then
                     '    Dim sql1 = CURRENT_ENTITYSQL
@@ -910,8 +946,8 @@ Public Class frmForm_Constructor_Main
             Dim primaryKey(1) As DataColumn
             primaryKey(0) = DTEntity.Columns("Record-ID")
             DTEntity.PrimaryKey = primaryKey
-
+            DT_SELECTION = DTEntity
-            LoadGrid_Selection(CURRENT_ENTITYSQL, DTEntity)
+            LoadGrid_Selection()
         Catch ex As Exception
             MsgBox("Error in Load_Entity_Data_Only:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
@@ -1033,12 +1069,8 @@ Public Class frmForm_Constructor_Main
         Return True
     End Function
 
-    Private Function LoadGrid_Selection(Grid_SQL As String, Datatable_Grid As DataTable)
+    Private Function LoadGrid_Selection()
         Try
-            DT_SELECTION = Datatable_Grid
-            EBENE_SQLRESULT = Grid_SQL
-            Dim i = EBENE_SQLRESULT.ToLower.IndexOf("from")
-            EBENE_SQLRESULT = EBENE_SQLRESULT.ToLower.Substring(i)
             ' Alle Checkboxen für aktuelle Ansicht heraussuchen
             Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID
             Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
@@ -1058,7 +1090,7 @@ Public Class frmForm_Constructor_Main
             Clear_Grid_View()
 
             'Databinding Neu
-            BindingSource_Entity.DataSource = Datatable_Grid
+            BindingSource_Entity.DataSource = DT_SELECTION
             GridControlMain.DataSource = BindingSource_Entity
 
 
@@ -1085,12 +1117,11 @@ Public Class frmForm_Constructor_Main
             'Next
             'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
             'Load_GridSelection_Layout()
-            'HideColumns()
+            HideColumns()
             Dim selnode As TreeNode = TreeViewMain.SelectedNode
             Dim origtext As String = selnode.Text
             If origtext.Contains(" (") Then
                 Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
-
                 selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
             Else
                 selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
@@ -1102,7 +1133,30 @@ Public Class frmForm_Constructor_Main
 
         Return True
     End Function
+    Sub HideColumns()
+        Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID
+        Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
+        If GRID_TYPE = GridType.Grid Then
+            Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
 
+            If DT.Rows.Count <> 0 Then
+                ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
+                For Each row As DataRow In DT.Rows
+                    Dim colname As String = row.Item("CONTROL_COL_NAME")
+                    Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
+
+                    If Not IsNothing(col) Then
+                        col.Visible = False
+                    End If
+                Next
+            End If
+
+            ' FormID und RecordID immer ausblenden
+            grvwGrid.Columns.Item("Record-ID").Visible = False
+            grvwGrid.Columns.Item("Form-ID").Visible = False
+        End If
+
+    End Sub
     Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0)
         Try
             'Me.pnlDetails.Visible = True
@@ -1251,9 +1305,6 @@ Public Class frmForm_Constructor_Main
 
         End Try
     End Function
-
-
-
     Sub Load_Record_Data()
         Select Case EDIT_STATE
             Case EditState.None
@@ -1280,7 +1331,7 @@ Public Class frmForm_Constructor_Main
                     RECORD_CHANGED = False
                 End If
             Case 1
-                'RUN_WD_SEARCH(WD_Suche, "RECORD")
+                RUN_WD_SEARCH(WD_Suche, "RECORD")
             Case 2
                 'If FOLLOW_UPisActive = True Then Refresh_FollowUps()
         End Select
@@ -1331,12 +1382,328 @@ Public Class frmForm_Constructor_Main
     Private Sub NavButtonHome_ElementClick(sender As Object, e As NavElementEventArgs) Handles NavButtonHome.ElementClick
         Load_Tree_View(CURRENT_CONSTRUCTOR_ID)
     End Sub
+#Region "WindreamSuche"
+    Private Function Check_windream_Show(FORM_VIEW_ID As Integer)
+        Try
+            Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
+            Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
+            If DTWD.Rows.Count = 1 Then
+                TabWindream.PageVisible = True
+
+                If IsDBNull(DTWD.Rows(0).Item(0)) Then
+                    windream_Docshow = False
+                    WindreamSucheNeuLadenToolStripMenuItem.Visible = False
+                    Exit Function
+                End If
+                WindreamSucheNeuLadenToolStripMenuItem.Visible = True
+                windream_Docshow = True
+            Else
+                windream_Docshow = False
+                TabWindream.PageVisible = False
+
+                WindreamSucheNeuLadenToolStripMenuItem.Visible = False
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Check windream show:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            windream_Docshow = False
+        End Try
+
+    End Function
+    Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String)
+        Try
+            Dim windream_temp_search
+            If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Or TCDetails.SelectedTabPageIndex <> 1 Then
+                Exit Sub
+            End If
+            Cursor = Cursors.WaitCursor
+            Dim DTWD As DataTable
+            If Type = "ENTITY" Then
+                Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID
+                DTWD = ClassDatabase.Return_Datatable(_sql)
+                If DTWD.Rows.Count = 1 Then
+                    If IsDBNull(DTWD.Rows(0).Item(0)) Then
+                        Clear_Windream_ResultList()
+                        Exit Sub
+                    End If
+                    tslblWindreamView.Text = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING
+                Else
+                    Clear_Windream_ResultList()
+                    Exit Sub
+                End If
+            Else
+                Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID
+                DTWD = ClassDatabase.Return_Datatable(sql)
+                If DTWD.Rows.Count = 1 Then
+                    If IsDBNull(DTWD.Rows(0).Item(0)) Then
+                        Clear_Windream_ResultList()
+                        Exit Sub
+                    End If
+                    tslblWindreamView.Text = "Windream-Dokumente für Record: " & CURRENT_RECORD_ID
+                Else
+                    Clear_Windream_ResultList()
+                    Exit Sub
+                End If
+            End If
+            'Die SearchPatterns durchlaufen und zwischenspeichern
+            If IsDBNull(DTWD.Rows(0).Item(0)) Then
+                Clear_Windream_ResultList()
+                Exit Sub
+            End If
+            BaseSearch = DTWD.Rows(0).Item(0)
+            SP1 = DTWD.Rows(0).Item(1)
+            If IsDBNull(DTWD.Rows(0).Item(2)) Then
+                SP2 = ""
+            Else
+                SP2 = DTWD.Rows(0).Item(2)
+            End If
+            If IsDBNull(DTWD.Rows(0).Item(3)) Then
+                SP3 = ""
+            Else
+                SP3 = DTWD.Rows(0).Item(3)
+            End If
+            If IsDBNull(DTWD.Rows(0).Item(4)) Then
+                SP4 = ""
+            Else
+                SP4 = DTWD.Rows(0).Item(4)
+            End If
+            If IsDBNull(DTWD.Rows(0).Item(5)) Then
+                SP5 = ""
+            Else
+                SP5 = DTWD.Rows(0).Item(5)
+            End If
+
+            'Eine tempfile generieren
+            Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
+            'Nur den Filenamen ohne Erweiterung
+            Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
+            'tempfile lsöchen
+            If My.Computer.FileSystem.FileExists(tempFilename1) Then
+                My.Computer.FileSystem.DeleteFile(tempFilename1)
+            End If
+            Try
+                Dim temppath = Path.GetTempPath
+
+                Dim EncodingFormat As Encoding
+                Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
+                If WDUnicode = True Then
+                    EncodingFormat = Encoding.GetEncoding(1252) '1252
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> Unicode is used (Encoding.GetEncoding(1252))", False)
+                Else
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> UTF8 (Encoding.GetEncoding(65001))", False)
+                    EncodingFormat = Encoding.GetEncoding(65001)
+                End If
+
+
+                Dim fileContents As String
+                If LogErrorsOnly = False Then ClassLogger.Add(">> ReadAlltext: " & windream_temp_search, False)
+                fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
+                If LogErrorsOnly = False Then ClassLogger.Add(">> fileContents geladen", False)
+                fileContents = fileContents.Replace("Í", "Ö")
+                Dim _sp1 = SP1
+                Dim _sp2 = SP2
+                Dim _sp3 = SP3
+                Dim _sp4 = SP4
+                Dim _sp5 = SP5
+
+
+
+                If _sp1.ToString <> String.Empty Then
+                    _sp1 = Return_SearchPattern(_sp1.ToString)
+                    fileContents = fileContents.Replace("%pattern1%", _sp1)
+                    fileContents = fileContents.Replace("471101", _sp1)
+                End If
+                If _sp2.ToString <> String.Empty Then
+                    _sp2 = Return_SearchPattern(_sp2.ToString)
+                    fileContents = fileContents.Replace("%pattern2%", _sp2)
+                    fileContents = fileContents.Replace("471102", _sp2)
+                End If
+                If _sp3.ToString <> String.Empty Then
+                    _sp3 = Return_SearchPattern(_sp3.ToString)
+                    fileContents = fileContents.Replace("%pattern3%", _sp3)
+                    fileContents = fileContents.Replace("471103", _sp3)
+                End If
+                If _sp4.ToString <> String.Empty Then
+                    _sp4 = Return_SearchPattern(_sp4.ToString)
+                    fileContents = fileContents.Replace("%pattern4%", _sp4)
+                    fileContents = fileContents.Replace("471104", _sp4)
+                End If
+                If _sp5.ToString <> String.Empty Then
+                    _sp5 = Return_SearchPattern(_sp5.ToString)
+                    fileContents = fileContents.Replace("%pattern5%", _sp5)
+                    fileContents = fileContents.Replace("471105", _sp5)
+                End If
+                'Die windream File zusammensetzen
+                windream_temp_search = temppath & tempName & ".wdf"
+                TEMP_FILES.Add(windream_temp_search)
+                'Die File schreiben
+                My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
+                My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
+                ' XML-Datei öffnen und laden
+                Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
+                Dim Reader As New System.Xml.XmlTextReader(Stream)
+
+                ' XML-Datei initialisieren
+                Dim xml As New System.Xml.XmlDocument()
+                ' XML-Datei öffnen und laden
+                xml.Load(Reader)
+                Reader.Close()
+                xml.Save(windream_temp_search)
+                If LogErrorsOnly = False Then ClassLogger.Add(">> Xml Generiert: " & windream_temp_search, False)
+
+                Dim windreamSucheErgebnisse As WMObjects
+                Try
+                    windreamSucheErgebnisse = Me._windream.GetSearchDocuments(windream_temp_search)
+                Catch ex As Exception
+                    MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                End Try
+
+                If windreamSucheErgebnisse.Count > 0 Then
+                    TabWindream.Text = "windream-Dateien (" & windreamSucheErgebnisse.Count & ")"
+
+                    AxObjectListControl.SetIconMode(True)
+                    AxObjectListControl.RemoveAllColumnHeader()
+                    Dim param As New List(Of String)
+                    'The file name
+                    param.Add("szLongName")
+                    'The document-Type
+                    param.Add("szText39")
+                    'Versionsnummer
+                    param.Add("dwVersionNumber")
+                    'Datumsangaben
+                    param.Add("dwCreationDate")
+                    param.Add("dwCreation_Time")
+                    Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
+                    'Change the satus icon
+                    'ICON STATES:
+                    Me.AxObjectListControl.SetStatusIcon(0)
+
+                    'Change the icon
+                    Me.AxObjectListControl.SetStatusIcon(2)
+                    'Add all search params
+                    For Each spar As String In param
+                        Dim width As Integer = 200
+                        Select Case spar
+                            Case "szLongName"
+                                'Dateiname
+                                width = 300
+                            Case "szText39"
+                                'Dokumentart
+                                width = 160
+                            Case "dwCreationDate"
+                                'Erstelldatum
+                                width = 90
+                            Case "dwCreation_Time"
+                                'Erstell-Zeit
+                                width = 120
+                        End Select
+                        'You need to use the column name here
+                        'Please note that some attributes or indices will not be displayed
+                        'Try not to add the same header twice, it will throw cause problems if you do that
+                        Me.AxObjectListControl.AddColumnHeader(spar, width)
+                    Next
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> AxObjectListControl geladen ", False)
+                    'Execute the search
+                    Dim results As WMObjects = windreamSucheErgebnisse
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> results geladen ", False)
+                    'Set the contents without displaying them
+                    AxObjectListControl.SetContentsEx(results)
+                    'Change the icon
+                    AxObjectListControl.SetStatusIcon(5)
+                    'Display the results...
+                    'The Previous Object Count
+                    Dim poc As Integer = 0
+                    'Display new objects, as long as the objectcount changes after displaying the objects
+
+                    Do Until (poc <> AxObjectListControl.GetObjectCount)
+                        poc = AxObjectListControl.GetObjectCount
+                        'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader
+                        'But do not display to many at a time or the user interface could freeze
+                        'Maybe try 50
+                        AxObjectListControl.DisplayResults(WDResultListCount)
+                    Loop
+                    AxObjectListControl.SetStatusIcon(3)
+                Else
+                    Clear_Windream_ResultList()
+                End If
+
+            Catch ex As Exception
+                MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+
+            Cursor = Cursors.Default
+        Catch ex As Exception
+            MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Cursor = Cursors.Default
+        End Try
+
+
+    End Sub
+    Private Function Return_SearchPattern(ByVal content As String)
+        Select Case content.ToUpper
+            Case "@Record-ID".ToUpper
+                Return CURRENT_RECORD_ID
+            Case "@EntityID".ToUpper
+                Return CURRENT_FORM_ID
+            Case "@ParentID".ToUpper
+                Return PARENT_RECORDID
+            Case Else
+                MsgBox("Undefinierter Pattern '" & content & "' in der Windream-SuchKonfiguration. Bitte den Administrator verständigen", MsgBoxStyle.Exclamation)
+                ClassLogger.Add(" >> Undefinierter Such-Pattern: " & content, True)
+        End Select
+    End Function
+    Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
+        CheckDocView()
+    End Sub
+
+    Sub Clear_Windream_ResultList()
+        AxObjectListControl.RemoveAllColumnHeader()
+        Me.AxObjectListControl.ClearResultList()
+        TabWindream.Text = "windream-Dateien"
+    End Sub
+    Sub CheckDocView()
+        Dim _index = AxObjectListControl.GetFirstSelectedObject
+        Dim path As String = AxObjectListControl.GetObjectPath(_index)
+        path = path.Replace("?", vWLaufwerk)
+        DocViewString = path
+
+        If WD_ShowDocs = True Then
+            CloseWDDocview()
+            ShowDocView()
+        End If
+    End Sub
+    Sub ShowDocView()
+        Try
+            CloseWDDocview()
+            DocView = Nothing
+            DocView = CreateObject("WMPViewXNG.Viewer")
+            ' open the viewer
+            DocView.ViewFile(DocViewString)
+            OpenedFileString = DocViewString
+        Catch ex As Exception
+            MsgBox("Error in ShowDocView:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+        End Try
+
+    End Sub
+    Sub CloseWDDocview()
+        Try
+            If DocView Is Nothing = False Then
+                DocView.CloseView(OpenedFileString, 0)
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add(" ### Error in CloseDocView")
+            ClassLogger.Add("### " & ex.Message & " ###")
+        End Try
+
+    End Sub
+#End Region
+
 
 
 #Region "GridViews"
     Private Sub ButtonQuickViewCarousel_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewCarousel.Click
         GRID_TYPE = GridType.Carousel
-
+        GRID_TYPE_ID = 2
         grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel
         GridControlMain.MainView = grvwCarousel
 
@@ -1345,7 +1712,7 @@ Public Class frmForm_Constructor_Main
 
     Private Sub ButtonQuickViewTiles_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewTiles.Click
         GRID_TYPE = GridType.Tiles
-
+        GRID_TYPE_ID = 1
         GridControlMain.MainView = grvwTiles
 
         Load_Tree_View_Data()
@@ -1353,13 +1720,30 @@ Public Class frmForm_Constructor_Main
 
     Private Sub ButtonDetailView_Click(sender As Object, e As EventArgs) Handles ButtonDetailView.Click
         GRID_TYPE = GridType.Grid
-
+        GRID_TYPE_ID = 3
         GridControlMain.MainView = grvwGrid
 
         Load_Tree_View_Data()
     End Sub
 
     Private Sub ButtonSetViewAsDefault_Click(sender As Object, e As EventArgs) Handles ButtonSetViewAsDefault.Click
+        Dim VIEWTYPE_ID As Integer
+       
+
+        Select Case GRID_TYPE
+            Case GridType.Tiles
+                VIEWTYPE_ID = 1
+            Case GridType.Carousel
+                VIEWTYPE_ID = 2
+            Case GridType.Grid
+                VIEWTYPE_ID = 3
+
+        End Select
+        Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID)
+        If ClassDatabase.Execute_non_Query(upd, True) = True Then
+            MsgBox("Stanard-View was saved successfully!", MsgBoxStyle.Information)
+        End If
+
         ' TODO: Standard View in Datenbank setzen
     End Sub
 
@@ -1368,6 +1752,22 @@ Public Class frmForm_Constructor_Main
     End Sub
 #End Region
 
+    Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged
+        Select Case TCDetails.SelectedTabPageIndex
+            Case 0
+                'If RECORD_NEEDS_REFRESH = True Then
+                '    ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                '    '  UpdRECORD_NEEDS_REFRESH(False)
+                'End If
+
+                'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
+                ' RECORD_CHANGED = False
+            Case 1 'windream-Dokumente
+                RUN_WD_SEARCH(WD_Suche, "RECORD")
+            Case 2
+                ' Refresh_FollowUps()
+        End Select
+    End Sub
 
 
 End Class