MS_20.01

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -294,7 +294,7 @@ Public Class ClassControlCommandsUI
 
                 ' Die eben erstellte RecordID holen
                 RECORD_ID = GetLastRecord()
-
+                CURRENT_RECORD_ID = RECORD_ID
                 ' Wenn gegeben, foreignrecordID mit Record verknüpfen
                 If foreignRecordID > 0 Then
                     If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID:  " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
@@ -308,7 +308,7 @@ Public Class ClassControlCommandsUI
                 IsInsert = False
 
                 NEW_RECORD_ID = RECORD_ID
-                CURRENT_RECORD_ID = RECORD_ID
+
                 Return "Neuer Datensatz eingefügt - " & Now
             ElseIf IsInsert = False Then
                 If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False)
@@ -571,9 +571,14 @@ Public Class ClassControlCommandsUI
                             checked_result_string = String.Join(";", checked_result)
                             Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
                             If ClassDatabase.Execute_Scalar(SQL) = 0 Then
-                                If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
+                                If CURRENT_RECORD_ID = 0 Then
-                                    If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record  '" & rid.ToString & "' was linked successfully.", False)
+                                    MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
+                                Else
+                                    If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
+                                        If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record  '" & rid.ToString & "' was linked successfully.", False)
+                                    End If
                                 End If
+                               
                             End If
                         End If
                     Catch ex As Exception

app/DD-Record-Organiser/ClassControlValues.vb

@@ -319,7 +319,7 @@ Public Class ClassControlValues
                             vorgabe = autoValue.Replace("@FORM_ID", CURRENT_FORM_ID)
                             vorgabe = vorgabe.Replace("@RECORD_ID", CURRENT_RECORD_ID)
                             vorgabe = vorgabe.Replace("@RECORDID", CURRENT_RECORD_ID)
-                            vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENTID)
+                            vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENT_ID)
                             autoValue = ClassDatabase.Execute_Scalar(vorgabe.ToString, True)
                             If IsNothing(vorgabe) Then
                                 textbox.Text = ""

app/DD-Record-Organiser/ClassDragDrop.vb

@@ -148,20 +148,20 @@ Public Class ClassDragDrop
             If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                 e.Effect = DragDropEffects.All
                 If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False)
-                frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
+                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
             ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
                 e.Effect = DragDropEffects.Copy
-                frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
+                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
-                If LogErrorsOnly = True Then frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook")
+                If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Attachment from Outlook", False)
             ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
                 'handle a message dragged from Outlook
                 e.Effect = DragDropEffects.Copy
-                frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
+                'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
                 If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False)
             Else
                 'otherwise, do not handle
                 e.Effect = DragDropEffects.Copy
-                frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
+                'frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
                 If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
             End If
         Catch ex As Exception

app/DD-Record-Organiser/ClassImport_Windream.vb

@@ -65,7 +65,7 @@ Public Class ClassImport_Windream
                                         Return False
                                     End If
                                     indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
-                                    idxvalue = CURRENT_PARENTID
+                                    idxvalue = CURRENT_PARENT_ID
                                     If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
                                     indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
                                     If indexierung_erfolgreich = False Then

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

@@ -327,24 +327,12 @@
     <Compile Include="frmDD_EMAIL_ACCOUNT.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmForm_Constructor.designer.vb">
-      <DependentUpon>frmForm_Constructor.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmForm_Constructor.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmForm_Constructor_Main_2.Designer.vb">
       <DependentUpon>frmForm_Constructor_Main_2.vb</DependentUpon>
     </Compile>
     <Compile Include="frmForm_Constructor_Main_2.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmForm_Constructor_Main.Designer.vb">
-      <DependentUpon>frmForm_Constructor_Main.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmForm_Constructor_Main.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmLicense.designer.vb">
       <DependentUpon>frmLicense.vb</DependentUpon>
     </Compile>
@@ -579,12 +567,6 @@
       <DependentUpon>Settings.Settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
-    <Compile Include="XtraForm2.Designer.vb">
-      <DependentUpon>XtraForm2.vb</DependentUpon>
-    </Compile>
-    <Compile Include="XtraForm2.vb">
-      <SubType>Form</SubType>
-    </Compile>
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="frmAbout.resx">
@@ -605,15 +587,9 @@
     <EmbeddedResource Include="frmDD_EMAIL_ACCOUNT.resx">
       <DependentUpon>frmDD_EMAIL_ACCOUNT.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmForm_Constructor.resx">
-      <DependentUpon>frmForm_Constructor.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmForm_Constructor_Main_2.resx">
       <DependentUpon>frmForm_Constructor_Main_2.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmForm_Constructor_Main.resx">
-      <DependentUpon>frmForm_Constructor_Main.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmLicense.resx">
       <DependentUpon>frmLicense.vb</DependentUpon>
     </EmbeddedResource>
@@ -725,9 +701,6 @@
       <SubType>Designer</SubType>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
     </EmbeddedResource>
-    <EmbeddedResource Include="XtraForm2.resx">
-      <DependentUpon>XtraForm2.vb</DependentUpon>
-    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="DD_DMSDataSet.xsc">

app/DD-Record-Organiser/ModuleRuntimeVariables.vb

@@ -7,9 +7,8 @@
     ' Diese Werte müssen später zur Laufzeit geladen werden
     Public CURRENT_FORM_ID As Integer
     Public CURRENT_FORM_TYPE As Integer
-    Public CURRENT_PARENTID As Integer
+    Public CURRENT_PARENT_ID As Integer
-    Public IS_SINGLE_RECORD As Boolean
+
-    Public LOAD_DIRECT As Boolean
 
     Public CURRENT_ENTITYSTRING As String = ""
     Public CURRENT_ENTITYSQL As String
@@ -30,7 +29,7 @@
     Public CURRENT_NEWFILENAME As String
 
     Public CURRENT_FORMVIEW_ID As Integer
-    Public CURRENT_MASTER_FORM_ID As Integer
+    'Public CURRENT_MASTER_FORM_ID As Integer
     Public CURRENT_FILEIN_WD As String
 
     Public NEW_RECORD_ID As Integer

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

@@ -1,575 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmConstructor_Main
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        If disposing AndAlso components IsNot Nothing Then
-            components.Dispose()
-        End If
-        MyBase.Dispose(disposing)
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
-        Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
-        Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
-        Me.ContextMenu_GridControlSelection = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.FunktionenDatagridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.AlleFilterEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
-        Me.TileViewColumn1 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.TileViewColumn2 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.TileViewColumn3 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.LayoutViewCard1 = New DevExpress.XtraGrid.Views.Layout.LayoutViewCard()
-        Me.colAktenzeichen = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.TileViewColumn5 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.colTagderEintragungimRegister = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.colAktenzustand = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
-        Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
-        Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
-        Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
-        Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
-        Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip()
-        Me.tssStatus = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tssRecord = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
-        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
-        Me.VWTEMPQUICKVIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
-        Me.TileView2 = New DevExpress.XtraGrid.Views.Tile.TileView()
-        Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.SplitContainer_Bottom = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.VWTEMPQUICKVIEWTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWTEMPQUICKVIEWTableAdapter()
-        Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
-        CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenu_GridControlSelection.SuspendLayout()
-        CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.StatusStrip_Main.SuspendLayout()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl1.SuspendLayout()
-        Me.XtraTabPage3.SuspendLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPage2.SuspendLayout()
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TileView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainer_Main.SuspendLayout()
-        CType(Me.SplitContainer_Top, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainer_Top.SuspendLayout()
-        CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainer_Bottom.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'grvwCarousel
-        '
-        Me.grvwCarousel.GridControl = Me.GridControlSelection
-        Me.grvwCarousel.Name = "grvwCarousel"
-        Me.grvwCarousel.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.grvwCarousel.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.grvwCarousel.OptionsBehavior.Editable = False
-        Me.grvwCarousel.OptionsBehavior.ReadOnly = True
-        Me.grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Row
-        Me.grvwCarousel.TemplateCard = Me.LayoutViewCard1
-        '
-        'GridControlSelection
-        '
-        Me.GridControlSelection.ContextMenuStrip = Me.ContextMenu_GridControlSelection
-        Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode1.LevelTemplate = Me.grvwCarousel
-        GridLevelNode1.RelationName = "Level1"
-        GridLevelNode2.LevelTemplate = Me.grvwTiles
-        GridLevelNode2.RelationName = "Level2"
-        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
-        Me.GridControlSelection.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlSelection.MainView = Me.grvwGrid
-        Me.GridControlSelection.Name = "GridControlSelection"
-        Me.GridControlSelection.Size = New System.Drawing.Size(1150, 272)
-        Me.GridControlSelection.TabIndex = 2
-        Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwTiles, Me.grvwGrid, Me.grvwCarousel})
-        '
-        'ContextMenu_GridControlSelection
-        '
-        Me.ContextMenu_GridControlSelection.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDatagridToolStripMenuItem, Me.ToolStripSeparator1, Me.AlleFilterEntfernenToolStripMenuItem, Me.ExportNachExcelToolStripMenuItem, Me.AnsichtUmschaltenToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
-        Me.ContextMenu_GridControlSelection.Name = "ContextMenu_GridControlSelection"
-        Me.ContextMenu_GridControlSelection.Size = New System.Drawing.Size(191, 120)
-        '
-        'FunktionenDatagridToolStripMenuItem
-        '
-        Me.FunktionenDatagridToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.FunktionenDatagridToolStripMenuItem.Name = "FunktionenDatagridToolStripMenuItem"
-        Me.FunktionenDatagridToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.FunktionenDatagridToolStripMenuItem.Text = "Funktionen DataGrid"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(187, 6)
-        '
-        'AlleFilterEntfernenToolStripMenuItem
-        '
-        Me.AlleFilterEntfernenToolStripMenuItem.Name = "AlleFilterEntfernenToolStripMenuItem"
-        Me.AlleFilterEntfernenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.AlleFilterEntfernenToolStripMenuItem.Text = "Alle Filter entfernen"
-        '
-        'ExportNachExcelToolStripMenuItem
-        '
-        Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem"
-        Me.ExportNachExcelToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.ExportNachExcelToolStripMenuItem.Text = "Export nach Excel"
-        '
-        'AnsichtUmschaltenToolStripMenuItem
-        '
-        Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem"
-        Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten"
-        '
-        'AnsichtZurücksetzenToolStripMenuItem
-        '
-        Me.AnsichtZurücksetzenToolStripMenuItem.Name = "AnsichtZurücksetzenToolStripMenuItem"
-        Me.AnsichtZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.AnsichtZurücksetzenToolStripMenuItem.Text = "Ansicht zurücksetzen"
-        '
-        'grvwTiles
-        '
-        Me.grvwTiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.TileViewColumn1, Me.TileViewColumn2, Me.TileViewColumn3})
-        Me.grvwTiles.GridControl = Me.GridControlSelection
-        Me.grvwTiles.Name = "grvwTiles"
-        TileViewItemElement1.Column = Me.TileViewColumn1
-        TileViewItemElement1.Text = "element1"
-        TileViewItemElement2.Column = Me.TileViewColumn2
-        TileViewItemElement2.Text = "element2"
-        TileViewItemElement3.Column = Me.TileViewColumn3
-        TileViewItemElement3.Text = "element3"
-        Me.grvwTiles.TileTemplate.Add(TileViewItemElement1)
-        Me.grvwTiles.TileTemplate.Add(TileViewItemElement2)
-        Me.grvwTiles.TileTemplate.Add(TileViewItemElement3)
-        '
-        'TileViewColumn1
-        '
-        Me.TileViewColumn1.Caption = "TileViewColumn1"
-        Me.TileViewColumn1.Name = "TileViewColumn1"
-        Me.TileViewColumn1.Visible = True
-        Me.TileViewColumn1.VisibleIndex = 0
-        '
-        'TileViewColumn2
-        '
-        Me.TileViewColumn2.Caption = "TileViewColumn2"
-        Me.TileViewColumn2.Name = "TileViewColumn2"
-        Me.TileViewColumn2.Visible = True
-        Me.TileViewColumn2.VisibleIndex = 1
-        '
-        'TileViewColumn3
-        '
-        Me.TileViewColumn3.Caption = "TileViewColumn3"
-        Me.TileViewColumn3.Name = "TileViewColumn3"
-        Me.TileViewColumn3.Visible = True
-        Me.TileViewColumn3.VisibleIndex = 2
-        '
-        'grvwGrid
-        '
-        Me.grvwGrid.GridControl = Me.GridControlSelection
-        Me.grvwGrid.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _
-    "ssen"
-        Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
-        Me.grvwGrid.Name = "grvwGrid"
-        Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.grvwGrid.OptionsBehavior.Editable = False
-        Me.grvwGrid.OptionsBehavior.ReadOnly = True
-        '
-        'LayoutViewCard1
-        '
-        Me.LayoutViewCard1.HeaderButtonsLocation = DevExpress.Utils.GroupElementLocation.AfterText
-        Me.LayoutViewCard1.Name = "LayoutViewCard1"
-        '
-        'colAktenzeichen
-        '
-        Me.colAktenzeichen.FieldName = "Aktenzeichen"
-        Me.colAktenzeichen.Name = "colAktenzeichen"
-        Me.colAktenzeichen.Visible = True
-        Me.colAktenzeichen.VisibleIndex = 1
-        '
-        'TileViewColumn5
-        '
-        Me.TileViewColumn5.FieldName = "Wiedergabe der Marke (Bild)"
-        Me.TileViewColumn5.Name = "TileViewColumn5"
-        Me.TileViewColumn5.Visible = True
-        Me.TileViewColumn5.VisibleIndex = 2
-        '
-        'colTagderEintragungimRegister
-        '
-        Me.colTagderEintragungimRegister.FieldName = "Tag der Eintragung im Register"
-        Me.colTagderEintragungimRegister.Name = "colTagderEintragungimRegister"
-        Me.colTagderEintragungimRegister.Visible = True
-        Me.colTagderEintragungimRegister.VisibleIndex = 3
-        '
-        'colAktenzustand
-        '
-        Me.colAktenzustand.FieldName = "Aktenzustand"
-        Me.colAktenzustand.Name = "colAktenzustand"
-        Me.colAktenzustand.Visible = True
-        Me.colAktenzustand.VisibleIndex = 4
-        '
-        'navPane
-        '
-        Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
-        Me.navPane.Buttons.Add(Me.btn_home)
-        Me.navPane.Buttons.Add(Me.btn_Refresh)
-        '
-        'TileNavCategory1
-        '
-        Me.navPane.DefaultCategory.Name = "TileNavCategory1"
-        Me.navPane.DefaultCategory.OptionsDropDown.BackColor = System.Drawing.Color.Empty
-        Me.navPane.DefaultCategory.OwnerCollection = Nothing
-        '
-        '
-        '
-        Me.navPane.DefaultCategory.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
-        Me.navPane.DefaultCategory.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
-        Me.navPane.Dock = System.Windows.Forms.DockStyle.Top
-        Me.navPane.Location = New System.Drawing.Point(0, 0)
-        Me.navPane.Name = "navPane"
-        Me.navPane.OptionsPrimaryDropDown.BackColor = System.Drawing.Color.Empty
-        Me.navPane.OptionsSecondaryDropDown.BackColor = System.Drawing.Color.Empty
-        Me.navPane.Size = New System.Drawing.Size(1460, 40)
-        Me.navPane.TabIndex = 0
-        Me.navPane.Text = "TileNavPane1"
-        '
-        'btn_home
-        '
-        Me.btn_home.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
-        Me.btn_home.Caption = ""
-        Me.btn_home.Glyph = CType(resources.GetObject("btn_home.Glyph"), System.Drawing.Image)
-        Me.btn_home.IsMain = True
-        Me.btn_home.Name = "btn_home"
-        '
-        'btn_Refresh
-        '
-        Me.btn_Refresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
-        Me.btn_Refresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
-        Me.btn_Refresh.Caption = ""
-        Me.btn_Refresh.Glyph = CType(resources.GetObject("btn_Refresh.Glyph"), System.Drawing.Image)
-        Me.btn_Refresh.Name = "btn_Refresh"
-        '
-        'TreeViewLevelSelect
-        '
-        Me.TreeViewLevelSelect.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TreeViewLevelSelect.Location = New System.Drawing.Point(0, 0)
-        Me.TreeViewLevelSelect.Name = "TreeViewLevelSelect"
-        Me.TreeViewLevelSelect.Size = New System.Drawing.Size(298, 272)
-        Me.TreeViewLevelSelect.TabIndex = 1
-        '
-        'StatusStrip_Main
-        '
-        Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord})
-        Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 637)
-        Me.StatusStrip_Main.Name = "StatusStrip_Main"
-        Me.StatusStrip_Main.Size = New System.Drawing.Size(1460, 22)
-        Me.StatusStrip_Main.TabIndex = 3
-        Me.StatusStrip_Main.Text = "StatusStrip1"
-        '
-        'tssStatus
-        '
-        Me.tssStatus.Name = "tssStatus"
-        Me.tssStatus.Size = New System.Drawing.Size(121, 17)
-        Me.tssStatus.Text = "ToolStripStatusLabel1"
-        '
-        'tssRecord
-        '
-        Me.tssRecord.Name = "tssRecord"
-        Me.tssRecord.Size = New System.Drawing.Size(121, 17)
-        Me.tssRecord.Text = "ToolStripStatusLabel1"
-        '
-        'XtraTabControl1
-        '
-        Me.XtraTabControl1.Appearance.BackColor = System.Drawing.SystemColors.ControlDark
-        Me.XtraTabControl1.Appearance.Options.UseBackColor = True
-        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
-        Me.XtraTabControl1.Name = "XtraTabControl1"
-        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage3
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1050, 313)
-        Me.XtraTabControl1.TabIndex = 0
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage2})
-        '
-        'XtraTabPage3
-        '
-        Me.XtraTabPage3.Appearance.PageClient.BackColor = System.Drawing.SystemColors.Control
-        Me.XtraTabPage3.Appearance.PageClient.Options.UseBackColor = True
-        Me.XtraTabPage3.Controls.Add(Me.GridControl1)
-        Me.XtraTabPage3.Name = "XtraTabPage3"
-        Me.XtraTabPage3.Size = New System.Drawing.Size(1048, 288)
-        Me.XtraTabPage3.Text = "XtraTabPage3"
-        '
-        'GridControl1
-        '
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl1.MainView = Me.TileView1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(1048, 288)
-        Me.GridControl1.TabIndex = 0
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
-        '
-        'TileView1
-        '
-        Me.TileView1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
-        Me.TileView1.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TileView1.GridControl = Me.GridControl1
-        Me.TileView1.Name = "TileView1"
-        Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.TileView1.OptionsFind.AlwaysVisible = True
-        Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(372, 180)
-        Me.TileView1.OptionsTiles.RowCount = 2
-        Me.TileView1.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollButtons
-        '
-        'XtraTabPage2
-        '
-        Me.XtraTabPage2.Controls.Add(Me.GridControl2)
-        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(1044, 292)
-        Me.XtraTabPage2.Text = "XtraTabPage2"
-        '
-        'GridControl2
-        '
-        Me.GridControl2.DataSource = Me.VWTEMPQUICKVIEWBindingSource
-        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl2.MainView = Me.TileView2
-        Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(1044, 292)
-        Me.GridControl2.TabIndex = 0
-        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView2})
-        '
-        'VWTEMPQUICKVIEWBindingSource
-        '
-        Me.VWTEMPQUICKVIEWBindingSource.DataMember = "VWTEMPQUICKVIEW"
-        Me.VWTEMPQUICKVIEWBindingSource.DataSource = Me.DD_ECMAdmin
-        '
-        'DD_ECMAdmin
-        '
-        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
-        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'TileView2
-        '
-        Me.TileView2.AppearanceItem.Normal.Font = New System.Drawing.Font("Segoe UI Semibold", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TileView2.AppearanceItem.Normal.Options.UseFont = True
-        Me.TileView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.TileViewColumn4, Me.colAktenzeichen, Me.TileViewColumn5, Me.colTagderEintragungimRegister, Me.colAktenzustand})
-        Me.TileView2.ColumnSet.GroupColumn = Me.colAktenzustand
-        Me.TileView2.GridControl = Me.GridControl2
-        Me.TileView2.Name = "TileView2"
-        Me.TileView2.OptionsFind.AlwaysVisible = True
-        Me.TileView2.OptionsLayout.Columns.AddNewColumns = False
-        Me.TileView2.OptionsTiles.ItemSize = New System.Drawing.Size(280, 160)
-        Me.TileView2.OptionsTiles.RowCount = 2
-        Me.TileView2.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colAktenzustand, DevExpress.Data.ColumnSortOrder.Ascending)})
-        TileViewItemElement4.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        TileViewItemElement4.Appearance.Normal.ForeColor = System.Drawing.Color.DodgerBlue
-        TileViewItemElement4.Appearance.Normal.Options.UseFont = True
-        TileViewItemElement4.Appearance.Normal.Options.UseForeColor = True
-        TileViewItemElement4.Column = Me.colAktenzeichen
-        TileViewItemElement4.Text = "colAktenzeichen"
-        TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileViewItemElement4.TextLocation = New System.Drawing.Point(120, 0)
-        TileViewItemElement5.Column = Me.TileViewColumn5
-        TileViewItemElement5.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
-        TileViewItemElement5.ImageBorder = DevExpress.XtraEditors.TileItemElementImageBorderMode.None
-        TileViewItemElement5.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
-        TileViewItemElement5.Text = "TileViewColumn5"
-        TileViewItemElement6.Column = Me.colTagderEintragungimRegister
-        TileViewItemElement6.Text = "colTagderEintragungimRegister"
-        TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileViewItemElement6.TextLocation = New System.Drawing.Point(120, 20)
-        TileViewItemElement7.Column = Me.colAktenzustand
-        TileViewItemElement7.Text = "colAktenzustand"
-        Me.TileView2.TileTemplate.Add(TileViewItemElement4)
-        Me.TileView2.TileTemplate.Add(TileViewItemElement5)
-        Me.TileView2.TileTemplate.Add(TileViewItemElement6)
-        Me.TileView2.TileTemplate.Add(TileViewItemElement7)
-        Me.TileView2.ViewCaption = "dfsdfsdf"
-        '
-        'TileViewColumn4
-        '
-        Me.TileViewColumn4.FieldName = "Record-ID"
-        Me.TileViewColumn4.Name = "TileViewColumn4"
-        Me.TileViewColumn4.Visible = True
-        Me.TileViewColumn4.VisibleIndex = 0
-        '
-        'SplitContainer_Main
-        '
-        Me.SplitContainer_Main.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainer_Main.Horizontal = False
-        Me.SplitContainer_Main.Location = New System.Drawing.Point(0, 40)
-        Me.SplitContainer_Main.Name = "SplitContainer_Main"
-        Me.SplitContainer_Main.Panel1.Controls.Add(Me.SplitContainer_Top)
-        Me.SplitContainer_Main.Panel1.Text = "Panel1"
-        Me.SplitContainer_Main.Panel2.Controls.Add(Me.SplitContainer_Bottom)
-        Me.SplitContainer_Main.Panel2.Text = "Panel2"
-        Me.SplitContainer_Main.Size = New System.Drawing.Size(1460, 597)
-        Me.SplitContainer_Main.SplitterPosition = 272
-        Me.SplitContainer_Main.TabIndex = 4
-        Me.SplitContainer_Main.Text = "SplitContainerControl1"
-        '
-        'SplitContainer_Top
-        '
-        Me.SplitContainer_Top.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainer_Top.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainer_Top.Name = "SplitContainer_Top"
-        Me.SplitContainer_Top.Panel1.Controls.Add(Me.TreeViewLevelSelect)
-        Me.SplitContainer_Top.Panel1.Text = "Panel1"
-        Me.SplitContainer_Top.Panel2.Controls.Add(Me.GridControlSelection)
-        Me.SplitContainer_Top.Panel2.Text = "Panel2"
-        Me.SplitContainer_Top.Size = New System.Drawing.Size(1460, 272)
-        Me.SplitContainer_Top.SplitterPosition = 298
-        Me.SplitContainer_Top.TabIndex = 0
-        Me.SplitContainer_Top.Text = "SplitContainerControl1"
-        '
-        'SplitContainer_Bottom
-        '
-        Me.SplitContainer_Bottom.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
-        Me.SplitContainer_Bottom.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainer_Bottom.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainer_Bottom.Name = "SplitContainer_Bottom"
-        Me.SplitContainer_Bottom.Panel1.Controls.Add(Me.XtraTabControl1)
-        Me.SplitContainer_Bottom.Panel1.Text = "Panel1"
-        Me.SplitContainer_Bottom.Panel2.Text = "Panel2"
-        Me.SplitContainer_Bottom.Size = New System.Drawing.Size(1460, 313)
-        Me.SplitContainer_Bottom.SplitterPosition = 1050
-        Me.SplitContainer_Bottom.TabIndex = 0
-        Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
-        '
-        'VWTEMPQUICKVIEWTableAdapter
-        '
-        Me.VWTEMPQUICKVIEWTableAdapter.ClearBeforeFill = True
-        '
-        'TableAdapterManager
-        '
-        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
-        Me.TableAdapterManager.Connection = Nothing
-        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
-        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
-        '
-        'frmConstructor_Main
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1460, 659)
-        Me.Controls.Add(Me.SplitContainer_Main)
-        Me.Controls.Add(Me.StatusStrip_Main)
-        Me.Controls.Add(Me.navPane)
-        Me.Name = "frmConstructor_Main"
-        Me.Text = "XtraForm2"
-        CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenu_GridControlSelection.ResumeLayout(False)
-        CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip_Main.ResumeLayout(False)
-        Me.StatusStrip_Main.PerformLayout()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl1.ResumeLayout(False)
-        Me.XtraTabPage3.ResumeLayout(False)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPage2.ResumeLayout(False)
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TileView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainer_Main.ResumeLayout(False)
-        CType(Me.SplitContainer_Top, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainer_Top.ResumeLayout(False)
-        CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainer_Bottom.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents navPane As DevExpress.XtraBars.Navigation.TileNavPane
-    Friend WithEvents btn_home As DevExpress.XtraBars.Navigation.NavButton
-    Friend WithEvents btn_Refresh As DevExpress.XtraBars.Navigation.NavButton
-    Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView
-    Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl
-    Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents BindingSource_Entity As System.Windows.Forms.BindingSource
-    Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
-    Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tssRecord As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ContextMenu_GridControlSelection As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents FunktionenDatagridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents AlleFilterEntfernenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents ExportNachExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents SplitContainer_Main As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents SplitContainer_Top As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents SplitContainer_Bottom As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView
-    Friend WithEvents LayoutViewCard1 As DevExpress.XtraGrid.Views.Layout.LayoutViewCard
-    Friend WithEvents grvwTiles As DevExpress.XtraGrid.Views.Tile.TileView
-    Friend WithEvents TileViewColumn1 As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents TileViewColumn2 As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents TileViewColumn3 As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
-    Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents TileView2 As DevExpress.XtraGrid.Views.Tile.TileView
-    Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
-    Friend WithEvents VWTEMPQUICKVIEWBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents VWTEMPQUICKVIEWTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.VWTEMPQUICKVIEWTableAdapter
-    Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager
-    Friend WithEvents TileViewColumn4 As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents colAktenzeichen As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents TileViewColumn5 As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents colTagderEintragungimRegister As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents colAktenzustand As DevExpress.XtraGrid.Columns.TileViewColumn
-    Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage
-End Class

app/DD-Record-Organiser/XtraForm2.resx

@@ -1,169 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="ContextMenu_GridControlSelection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>321, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btn_home.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
-        lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
-        s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
-        925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
-        tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
-        BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
-        uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
-        oP8AAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="btn_Refresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
-        UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
-        6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
-        mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
-        YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
-        JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
-        bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
-        xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
-        uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>178, 17</value>
-  </metadata>
-  <metadata name="VWTEMPQUICKVIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>700, 17</value>
-  </metadata>
-  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>565, 17</value>
-  </metadata>
-  <metadata name="VWTEMPQUICKVIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>945, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1184, 17</value>
-  </metadata>
-</root>

app/DD-Record-Organiser/frmForm_Constructor_Main.resx

@@ -1,234 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>477, 15</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
-        lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
-        s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
-        925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
-        tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
-        BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
-        uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
-        oP8AAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="NavButtonRefresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
-        UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
-        6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
-        mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
-        YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
-        JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
-        bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
-        xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
-        uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <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="CMSEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 93</value>
-  </metadata>
-  <data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
-        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
-        ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
-        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAjm0AAKodAAAAAAAACw==
-</value>
-  </data>
-  <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>
-  <metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>773, 15</value>
-  </metadata>
-  <metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>162, 11</value>
-  </metadata>
-  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>342, 15</value>
-  </metadata>
-  <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>626, 15</value>
-  </metadata>
-  <assembly alias="DevExpress.Utils.v15.1" name="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.1" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu
-        Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
-        ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
-</value>
-  </data>
-  <metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>894, 15</value>
-  </metadata>
-  <metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>995, 15</value>
-  </metadata>
-  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1322, 15</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>17, 54</value>
-  </metadata>
-  <metadata name="VWPMO_WF_USER_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>295, 54</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>567, 54</value>
-  </metadata>
-  <metadata name="TBPMO_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1460, 54</value>
-  </metadata>
-  <metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>740, 54</value>
-  </metadata>
-  <metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>984, 54</value>
-  </metadata>
-  <metadata name="TBPMO_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1222, 54</value>
-  </metadata>
-  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>164</value>
-  </metadata>
-</root>

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

@@ -213,7 +213,7 @@ Partial Class frmForm_Constructor_Main_2
         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(795, 270)
+        Me.GridControlMain.Size = New System.Drawing.Size(788, 270)
         Me.GridControlMain.TabIndex = 0
         Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
         '
@@ -468,7 +468,7 @@ Partial Class frmForm_Constructor_Main_2
         Me.SplitContainerBottom.Panel1.Text = "Panel1"
         Me.SplitContainerBottom.Panel2.Controls.Add(Me.Panel2)
         Me.SplitContainerBottom.Panel2.Text = "Panel2"
-        Me.SplitContainerBottom.Size = New System.Drawing.Size(1083, 372)
+        Me.SplitContainerBottom.Size = New System.Drawing.Size(1083, 365)
         Me.SplitContainerBottom.SplitterPosition = 576
         Me.SplitContainerBottom.TabIndex = 0
         Me.SplitContainerBottom.Text = "SplitContainerControl1"
@@ -484,7 +484,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1078, 347)
+        Me.TCDetails.Size = New System.Drawing.Size(1071, 340)
         Me.TCDetails.TabIndex = 1
         Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos})
         '
@@ -493,7 +493,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1072, 316)
+        Me.TabDetails.Size = New System.Drawing.Size(1069, 312)
         Me.TabDetails.Text = "Detailansicht"
         '
         'pnlDetails
@@ -502,7 +502,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1072, 316)
+        Me.pnlDetails.Size = New System.Drawing.Size(1069, 312)
         Me.pnlDetails.TabIndex = 0
         '
         'TabWindream
@@ -511,7 +511,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1072, 316)
+        Me.TabWindream.Size = New System.Drawing.Size(1069, 312)
         Me.TabWindream.Text = "windream-Dateien"
         '
         'AxObjectListControl
@@ -522,7 +522,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1072, 291)
+        Me.AxObjectListControl.Size = New System.Drawing.Size(1069, 287)
         Me.AxObjectListControl.TabIndex = 6
         Me.AxObjectListControl.TabStop = False
         '
@@ -532,7 +532,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1072, 25)
+        Me.ToolStripDokumente.Size = New System.Drawing.Size(1069, 25)
         Me.ToolStripDokumente.TabIndex = 2
         Me.ToolStripDokumente.Text = "ToolStrip2"
         '
@@ -566,7 +566,7 @@ Partial Class frmForm_Constructor_Main_2
         Me.TabFollowUp.Controls.Add(Me.Label5)
         Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
         Me.TabFollowUp.Name = "TabFollowUp"
-        Me.TabFollowUp.Size = New System.Drawing.Size(1072, 316)
+        Me.TabFollowUp.Size = New System.Drawing.Size(1069, 312)
         Me.TabFollowUp.Text = "Wiedervorlage"
         '
         'ListViewFollowUps
@@ -745,7 +745,7 @@ Partial Class frmForm_Constructor_Main_2
         Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
         Me.TabPos.Name = "TabPos"
         Me.TabPos.PageVisible = False
-        Me.TabPos.Size = New System.Drawing.Size(1072, 316)
+        Me.TabPos.Size = New System.Drawing.Size(1069, 312)
         Me.TabPos.Text = "Positionen"
         '
         'Panel1
@@ -754,7 +754,7 @@ Partial Class frmForm_Constructor_Main_2
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 25)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1072, 291)
+        Me.Panel1.Size = New System.Drawing.Size(1069, 287)
         Me.Panel1.TabIndex = 2
         '
         'GridControlPos
@@ -763,7 +763,7 @@ Partial Class frmForm_Constructor_Main_2
         Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
         Me.GridControlPos.MainView = Me.grvwGridPos
         Me.GridControlPos.Name = "GridControlPos"
-        Me.GridControlPos.Size = New System.Drawing.Size(1072, 291)
+        Me.GridControlPos.Size = New System.Drawing.Size(1069, 287)
         Me.GridControlPos.TabIndex = 0
         Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
         '
@@ -790,7 +790,7 @@ Partial Class frmForm_Constructor_Main_2
         Me.BindingNavigatorPOS.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
         Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS"
         Me.BindingNavigatorPOS.PositionItem = Me.BindingNavigatorPositionItem
-        Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1072, 25)
+        Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1069, 25)
         Me.BindingNavigatorPOS.TabIndex = 1
         Me.BindingNavigatorPOS.Text = "BindingNavigator1"
         '
@@ -885,7 +885,7 @@ Partial Class frmForm_Constructor_Main_2
         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(1078, 25)
+        Me.ToolStripEdit.Size = New System.Drawing.Size(1071, 25)
         Me.ToolStripEdit.TabIndex = 0
         Me.ToolStripEdit.Text = "ToolStrip1"
         '

app/DD-Record-Organiser/frmForm_Constructor_Main_2.vb

@@ -85,6 +85,14 @@ Public Class frmForm_Constructor_Main_2
     Private FOLL_UP_DONE_CTRL_ID As Integer
     Private FOLL_UP_ID As Integer
 
+    Private LOAD_DIRECT As Boolean = False
+    Private IS_SINGLE_RECORD As Boolean = False
+    Private RECORD_ID As Integer
+    Private PARENT_ID As Integer
+
+    Private FORMVIEW_ID As Integer
+
+
 
 
     Public Enum EditState
@@ -604,7 +612,7 @@ Public Class frmForm_Constructor_Main_2
             If Grid_RecordID = 0 Then
                 Console.WriteLine("Grid_RecordID = 0")
             Else
-                If Grid_RecordID = CURRENT_RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
+                If Grid_RecordID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
                     Exit Sub
                 End If
                 If LogErrorsOnly = False Then ClassLogger.Add(">> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False)
@@ -651,7 +659,7 @@ Public Class frmForm_Constructor_Main_2
                     Load_POSGrid_Layout()
                 End If
 
-                If CURRENT_RECORD_ID > 0 Then
+                If RECORD_ID > 0 Then
                     tsButtonEditMode.Enabled = True
                     Get_RecordCounts_Nodes()
                 End If
@@ -769,7 +777,7 @@ Public Class frmForm_Constructor_Main_2
 
 
             Next
-           
+
 
             TreeViewMain.ExpandAll()
             TreeViewMain.Nodes(0).EnsureVisible()
@@ -1004,6 +1012,7 @@ Public Class frmForm_Constructor_Main_2
             If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
                 Lock_RecordControls(False)
                 tsButtonShowWorkflowTasks.Enabled = True
+                CURRENT_PARENT_ID = PARENT_ID
                 ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
                 ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
                 tsButtonSave.Enabled = True
@@ -1040,14 +1049,19 @@ Public Class frmForm_Constructor_Main_2
             Update_Status_Label(True, ResultMessage, EDIT_STATE)
 
             If EDIT_STATE = EditState.Update Then
-                recid = CURRENT_RECORD_ID
+                recid = RECORD_ID
             Else
                 recid = NEW_RECORD_ID
             End If
 
             SELECTED_RECORD_ID = recid
-            CURRENT_RECORD_ID = recid
+            RECORD_ID = recid
-
+            CURRENT_RECORD_ID = RECORD_ID
+            If RECORD_ID = 0 Then
+                MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
             If EDIT_STATE = EditState.Insert Then
                 Select Case ACT_EBENE
                     Case 1
@@ -1066,7 +1080,7 @@ Public Class frmForm_Constructor_Main_2
                         Next
                         If EBENE1_RECID = 0 Then
                             'Bis jetzt konnte noch keine Parent-ID angelegt werden!
-                            MsgBox("Achtung es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation)
+                            MsgBox("Achtung: Es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation)
                             'Show_Verknuepfungen()
                         End If
                 End Select
@@ -1116,10 +1130,10 @@ Public Class frmForm_Constructor_Main_2
                     Else
                         'Die Daten neu laden
                         Load_Entity_Data_Only()
-                        'Get_Grid_Row_Handle(CURRENT_RECORD_ID)
+                        'Get_Grid_Row_Handle(RECORD_ID)
-                        LocateRecordById(CURRENT_RECORD_ID)
+                        LocateRecordById(RECORD_ID)
                         'Die Daten auf dem Panel laden
-                        'ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                        'ClassControlValues.LoadControlValues(RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
                         ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
                         RECORD_CHANGED = False
                     End If
@@ -1179,7 +1193,7 @@ Public Class frmForm_Constructor_Main_2
         Me.tsButtonEditMode.Text = "Bearbeiten beenden"
 
         ' Abhängige Listen laden
-        ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_FORM_ID, SELECTED_RECORD_ID, CURRENT_PARENTID, CtrlBuilder.AllControls)
+        ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_FORM_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls)
 
         RECORD_ENABLED = True
         pnlDetails.Focus()
@@ -1199,7 +1213,7 @@ Public Class frmForm_Constructor_Main_2
         'Funktion nur zum load der Inhalte
 
         If RECORD_ENABLED = True Then
-            ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, CURRENT_RECORD_ID, CtrlBuilder.AllControls)
+            ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, RECORD_ID, CtrlBuilder.AllControls)
         End If
 
     End Sub
@@ -1210,7 +1224,7 @@ Public Class frmForm_Constructor_Main_2
     Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
         Try
             Dim ctrl As Control = sender
-            ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, CURRENT_RECORD_ID, pnlDetails.Controls)
+            ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, RECORD_ID, pnlDetails.Controls)
         Catch ex As Exception
             MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -1241,7 +1255,7 @@ Public Class frmForm_Constructor_Main_2
         Try
             Me.Cursor = Cursors.WaitCursor
             RECORD_CHANGED = False
-            CURRENT_RECORD_ID = 0
+            RECORD_ID = 0
             VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
             'VerknüpfungenToolStripMenuItem.Enabled = False
             CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
@@ -1297,7 +1311,7 @@ Public Class frmForm_Constructor_Main_2
                     EBENE3_RECID = 0
 
                     PARENT_RECORDID = 0
-                    CURRENT_PARENTID = 0
+                    PARENT_ID = 0
                     EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
                     ACT_EBENE_STRING = EBENE1_ENTITY
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False)
@@ -1327,9 +1341,9 @@ Public Class frmForm_Constructor_Main_2
                     'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
                     If EBENE1_RECID > 0 Then
                         PARENT_RECORDID = EBENE1_RECID
-                        CURRENT_PARENTID = EBENE1_RECID
+                        PARENT_ID = 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
+                            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 = " & PARENT_ID
                         Else
                             CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
                             CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@@ -1349,7 +1363,7 @@ Public Class frmForm_Constructor_Main_2
                     'Select Case CURRENT_FORM_TYPE
                     '    Case 5
                     '        If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
-                    '            EBENE2_RECID = CURRENT_RECORD_ID
+                    '            EBENE2_RECID = RECORD_ID
                     '        End If
                     'End Select
 
@@ -1368,10 +1382,10 @@ Public Class frmForm_Constructor_Main_2
                     If EBENE2_RECID > 0 Then
                         'Parent-ID setzen
                         PARENT_RECORDID = EBENE2_RECID
-                        CURRENT_PARENTID = EBENE2_RECID
+                        PARENT_ID = EBENE2_RECID
                         Try
                             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
+                                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 = " & PARENT_ID
                             Else
                                 CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
                                 CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@@ -1393,7 +1407,7 @@ Public Class frmForm_Constructor_Main_2
                     'Select Case CURRENT_FORM_TYPE
                     '    Case 5
                     '        If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
-                    '            EBENE3_RECID = CURRENT_RECORD_ID
+                    '            EBENE3_RECID = RECORD_ID
                     '        End If
                     'End Select
                     EBENE3_GRID_RESULT = Nothing
@@ -1401,7 +1415,7 @@ Public Class frmForm_Constructor_Main_2
 
 
             CURRENT_ENTITYSTRING = ACT_EBENE_STRING
-            CURRENT_PARENTID = PARENT_RECORDID
+            PARENT_ID = PARENT_RECORDID
             act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & CURRENT_FORM_ID)
 
             If EDIT_STATE = EditState.None Then
@@ -1410,9 +1424,6 @@ Public Class frmForm_Constructor_Main_2
                 tsButtonAdd.Enabled = True
                 'set_pnlsize()
             End If
-
-            CURRENT_FORMVIEW_ID = act_FormViewID
-
             'Überprüfen ob windream Dos angezeigt werden sollen?
             Check_windream_Show(act_FormViewID)
 
@@ -1430,7 +1441,7 @@ Public Class frmForm_Constructor_Main_2
                     ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
 
                     If IS_SINGLE_RECORD Then
-                        Show_Selected_Record_Data(CURRENT_RECORD_ID, True)
+                        Show_Selected_Record_Data(RECORD_ID, True)
                     Else
                         Refresh_Navpane()
                         Update_Record_Label(SELECTED_RECORD_ID)
@@ -1485,7 +1496,7 @@ Public Class frmForm_Constructor_Main_2
                     '    sql1.Replace("T.*", "TOP 1 [Record-ID]")
                     '    Dim id = ClassDatabase.Execute_Scalar(sql1, True)
                     '    If Not id Is Nothing Then
-                    '        If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & CURRENT_RECORD_ID, False)
+                    '        If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & RECORD_ID, False)
                     '        Load_Record_Data()
                     '    End If
                     'End If
@@ -1511,7 +1522,7 @@ Public Class frmForm_Constructor_Main_2
                 'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0)
                 'If Not IsNothing(firstRow) Then
                 '    Dim firstRecordId As Integer = firstRow.Row.Item("Record-ID")
-                '    ClassControlValues.LoadControlValuesList(firstRecordId, CURRENT_PARENTID, CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
+                '    ClassControlValues.LoadControlValuesList(firstRecordId, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
                 'End If
                 ' Hinfällig, da hier die Record-ID nicht gebraucht wird
                 ClassControlValues.LoadControlValuesList(CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
@@ -1525,10 +1536,10 @@ Public Class frmForm_Constructor_Main_2
         Catch ex As Exception
             MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         Finally
-
+            Me.Cursor = Cursors.Default
             ENTITY_LOADED = True
         End Try
-        Me.Cursor = Cursors.Default
+
 
     End Sub
     Sub Load_Record_Direct()
@@ -1539,12 +1550,12 @@ Public Class frmForm_Constructor_Main_2
                 Select Case ACT_EBENE
                     Case 1
                         PARENT_RECORDID = Grid_RecordID
-                        CURRENT_PARENTID = PARENT_RECORDID
+                        PARENT_ID = PARENT_RECORDID
                         SELECTED_RECORD_ID = Grid_RecordID
-                        CURRENT_RECORD_ID = Grid_RecordID
+                        RECORD_ID = Grid_RecordID
                         'Daten zu Record in jedem Fall laden
                         'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
-                        ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_PARENTID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                        ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
                         ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
                         RECORD_CHANGED = False
                         Update_Record_Label(Grid_RecordID)
@@ -1775,9 +1786,9 @@ Public Class frmForm_Constructor_Main_2
                 GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
                 If Not IsNothing(GRP_SINGLE_REC) Then
                     'Die neue Record-ID setzen
-                    CURRENT_RECORD_ID = GRP_SINGLE_REC
+                    RECORD_ID = GRP_SINGLE_REC
-                    SELECTED_RECORD_ID = CURRENT_RECORD_ID
+                    SELECTED_RECORD_ID = RECORD_ID
-                    If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, CURRENT_RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & CURRENT_FORM_ID.ToString) = False Then
+                    If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & CURRENT_FORM_ID.ToString) = False Then
                         MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
                         Return False
                     End If
@@ -1789,8 +1800,8 @@ Public Class frmForm_Constructor_Main_2
             End If
         Else
             Try
-                CURRENT_RECORD_ID = CInt(GRP_SINGLE_REC)
+                RECORD_ID = CInt(GRP_SINGLE_REC)
-                SELECTED_RECORD_ID = CURRENT_RECORD_ID
+                SELECTED_RECORD_ID = RECORD_ID
             Catch ex As Exception
                 MsgBox("Error while getting CURRENT_RECORDID FOR PARENT_ID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                 Return False
@@ -1799,11 +1810,11 @@ Public Class frmForm_Constructor_Main_2
 
         Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
             Case 1
-                EBENE1_RECID = CURRENT_RECORD_ID
+                EBENE1_RECID = RECORD_ID
             Case 2
-                EBENE2_RECID = CURRENT_RECORD_ID
+                EBENE2_RECID = RECORD_ID
             Case 3
-                EBENE3_RECID = CURRENT_RECORD_ID
+                EBENE3_RECID = RECORD_ID
         End Select
         Return True
     End Function
@@ -1989,34 +2000,34 @@ Public Class frmForm_Constructor_Main_2
 
                             EBENE2_RECID = PARENT_RECORD1
                             PARENT_RECORDID = PARENT_RECORD1
-                            CURRENT_PARENTID = PARENT_RECORD1
+                            PARENT_ID = PARENT_RECORD1
                         End If
                     Case 2
                         linkedRecord = linkedRecord(RECORD_ID, CURRENT_FORM_ID)
                         If linkedRecord > 0 Then
                             EBENE1_RECID = RECORD_ID
                             PARENT_RECORDID = RECORD_ID
-                            CURRENT_PARENTID = RECORD_ID
+                            PARENT_ID = RECORD_ID
                         End If
                     Case 1
                         PARENT_RECORDID = RECORD_ID
                         EBENE1_RECID = PARENT_RECORDID
-                        CURRENT_PARENTID = PARENT_RECORDID
+                        PARENT_ID = PARENT_RECORDID
                 End Select
-                CURRENT_RECORD_ID = CInt(linkedRecord)
+                RECORD_ID = CInt(linkedRecord)
-                SELECTED_RECORD_ID = CURRENT_RECORD_ID
+                SELECTED_RECORD_ID = RECORD_ID
                 '#### Den Group or Single_Record holen/anlegen
                 ' GET_GROUP_OR_SINGLE_RECORD(pID, False)
             Else '#### Datensatz wird normal geladen ####
                 SELECTED_RECORD_ID = RECORD_ID
-                CURRENT_RECORD_ID = SELECTED_RECORD_ID
+                RECORD_ID = SELECTED_RECORD_ID
                 'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
                 Select Case ACT_EBENE
                     Case 1
-                        CURRENT_RECORD_ID = SELECTED_RECORD_ID
+                        RECORD_ID = SELECTED_RECORD_ID
-                        PARENT_RECORDID = CURRENT_RECORD_ID
+                        PARENT_RECORDID = RECORD_ID
                         EBENE1_RECID = SELECTED_RECORD_ID
-                        CURRENT_PARENTID = EBENE1_RECID
+                        PARENT_ID = EBENE1_RECID
                         If Not EBENE1_COLUMNNAME Is Nothing Then
                             EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
                         End If
@@ -2027,9 +2038,9 @@ Public Class frmForm_Constructor_Main_2
                         End If
                         If EBENE1_RECID > 0 Then
                             PARENT_RECORDID = EBENE1_RECID
-                            CURRENT_PARENTID = EBENE1_RECID
+                            PARENT_ID = EBENE1_RECID
                         Else
-                            CURRENT_PARENTID = EBENE2_RECID
+                            PARENT_ID = EBENE2_RECID
                         End If
                     Case 3
                         EBENE3_RECID = SELECTED_RECORD_ID
@@ -2038,14 +2049,14 @@ Public Class frmForm_Constructor_Main_2
                         End If
                         If EBENE2_RECID > 0 Then
                             PARENT_RECORDID = EBENE2_RECID
-                            CURRENT_PARENTID = EBENE2_RECID
+                            PARENT_ID = EBENE2_RECID
                         End If
                 End Select
             End If
 
 
             If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
-                If CURRENT_RECORD_ID = 0 Then
+                If RECORD_ID = 0 Then
                     RUN_WD_SEARCH(WD_Suche, "ENTITY")
                 Else
                     RUN_WD_SEARCH(WD_Suche, "RECORD")
@@ -2054,7 +2065,7 @@ Public Class frmForm_Constructor_Main_2
             If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
                 'Daten zu Record in jedem Fall laden
                 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
-                ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_PARENTID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
             End If
             If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
                 tsButtonEditMode.Enabled = False
@@ -2067,7 +2078,7 @@ Public Class frmForm_Constructor_Main_2
             ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
             RECORD_CHANGED = False
 
-            Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & CURRENT_RECORD_ID
+            Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & RECORD_ID
             Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
             If Not RC Is Nothing Then
                 If RC > 0 Then
@@ -2268,7 +2279,7 @@ Public Class frmForm_Constructor_Main_2
 
     Private Sub Refresh_FollowUp_TabHeader()
         Try
-            DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & CURRENT_RECORD_ID, "Refresh FollowUp TabHeader")
+            DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader")
             If IsNothing(DT_FU_Record) Then
                 TabFollowUp.Text = "Wiedervorlage (Nicht Abrufbar)"
                 Exit Sub
@@ -2301,7 +2312,7 @@ Public Class frmForm_Constructor_Main_2
                 For Each row As DataRow In DT.Rows
                     Dim prsql As String = row.Item("EXECUTE_COMMAND")
                     prsql = prsql.ToUpper.Replace("@FORM_ID", CURRENT_FORM_ID)
-                    prsql = prsql.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
+                    prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
                     ClassDatabase.Execute_non_Query(prsql, True)
                 Next
             End If
@@ -2366,7 +2377,7 @@ Public Class frmForm_Constructor_Main_2
                         Clear_Windream_ResultList()
                         Exit Sub
                     End If
-                    tslblWindreamView.Text = "Windream-Dokumente für Record: " & CURRENT_RECORD_ID
+                    tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID
                 Else
                     Clear_Windream_ResultList()
                     Exit Sub
@@ -2599,7 +2610,7 @@ Public Class frmForm_Constructor_Main_2
                     Loop
                     AxObjectListControl.SetStatusIcon(3)
                 Else
-                    tslblWindreamView.Text = "Windream-Dokumente für Record: " & CURRENT_RECORD_ID & " - Keine Dateien gefunden"
+                    tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
                     Clear_Windream_ResultList()
                 End If
 
@@ -2617,7 +2628,7 @@ Public Class frmForm_Constructor_Main_2
     Private Function Return_SearchPattern(ByVal content As String)
         Select Case content.ToUpper
             Case "@Record-ID".ToUpper
-                Return CURRENT_RECORD_ID
+                Return RECORD_ID
             Case "@EntityID".ToUpper
                 Return CURRENT_FORM_ID
             Case "@ParentID".ToUpper
@@ -2742,7 +2753,7 @@ Public Class frmForm_Constructor_Main_2
         End If
         If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
             tsButtonEditMode.Enabled = False
-            If CURRENT_RECORD_ID = 0 Then
+            If RECORD_ID = 0 Then
                 RUN_WD_SEARCH(WD_Suche, "ENTITY")
             Else
                 RUN_WD_SEARCH(WD_Suche, "RECORD")
@@ -2759,11 +2770,11 @@ Public Class frmForm_Constructor_Main_2
         Select Case TCDetails.SelectedTabPageIndex
             Case 0
                 'If RECORD_NEEDS_REFRESH = True Then
-                '    ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
+                '    ClassControlValues.LoadControlValues(RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
                 '    '  UpdRECORD_NEEDS_REFRESH(False)
                 'End If
 
-                'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
+                'Refresh_CreatedChangedRecordByID(RECORD_ID)
                 ' RECORD_CHANGED = False
             Case 1 'windream-Dokumente
 
@@ -2791,7 +2802,7 @@ Public Class frmForm_Constructor_Main_2
     End Sub
     Sub Drag_Drop(e As DragEventArgs)
         If act_FormViewID <> 0 Then
-            Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & CURRENT_FORMVIEW_ID
+            Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
                 MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
                 Exit Sub
@@ -2803,23 +2814,27 @@ Public Class frmForm_Constructor_Main_2
                     Dim split() = Wert.Split(";")
                     If IsNumeric(split(1)) Then
                         CURRENT_FILEID = split(1)
+                        CURRENT_PARENT_ID = PARENT_ID
+                        CURRENT_RECORD_ID = RECORD_ID
+                        CURRENT_FORMVIEW_ID = FORMVIEW_ID
                         frmWD_Index_Dokart.ShowDialog()
+
                         RUN_WD_SEARCH(WD_Suche, "RECORD")
                     End If
                 End If
             Else
+                CURRENT_RECORD_ID = RECORD_ID
                 ClassDragDrop.Drop_File(e)
-                Check_Dropped_Files(act_FormViewID)
+                Check_Dropped_Files()
             End If
         End If
     End Sub
-    Sub Check_Dropped_Files(FORMVIEW_ID As Integer)
+    Sub Check_Dropped_Files()
         Try
-            If CURRENT_RECORD_ID = 0 Then
+            If RECORD_ID = 0 Then
                 MsgBox("Bitte wählen Sie einen Datensatz aus!", MsgBoxStyle.Information)
                 Exit Sub
             End If
-            CURRENT_FORMVIEW_ID = FORMVIEW_ID
             For Each Str As Object In ClassDragDrop.files_dropped
                 If Not IsNothing(Str) Then
                     Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
@@ -2831,7 +2846,7 @@ Public Class frmForm_Constructor_Main_2
                 End If
 
             Next
-            Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & CURRENT_FORMVIEW_ID
+            Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
                 Dim sql1 = String.Format("SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", Environment.UserName)
                 Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1)
@@ -2840,6 +2855,9 @@ Public Class frmForm_Constructor_Main_2
                         For Each Filerow As DataRow In DT.Rows
                             'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
                             CURRENT_FILEID = Filerow.Item(0)
+                            CURRENT_PARENT_ID = PARENT_ID
+                            CURRENT_RECORD_ID = RECORD_ID
+                            CURRENT_FORMVIEW_ID = FORMVIEW_ID
                             frmWD_Index_Dokart.ShowDialog()
                             RUN_WD_SEARCH(WD_Suche, "RECORD")
                         Next
@@ -2881,7 +2899,7 @@ Public Class frmForm_Constructor_Main_2
                 If FOLL_UP_ID = DR.Item("GUID") Then
                     grpbxFU_Profile.Enabled = True
                     FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID")
-                    Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID)
+                    Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), RECORD_ID)
                     If Not IsNothing(datevalue) Then
                         dtpFollowUp.Enabled = True
                         If datevalue = "00:00:00" Then
@@ -2907,7 +2925,7 @@ Public Class frmForm_Constructor_Main_2
                         lblWiedervorlage_Control.Text = "Wiedervorlage:"
                     End If
                     FOLL_UP_DONE_CTRL_ID = DR.Item("DEPENDENT_DONE_CTRL_ID")
-                    Dim checkvalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_RECORD_ID)
+                    Dim checkvalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DONE_CTRL_ID"), RECORD_ID)
                     If Not IsNothing(checkvalue) Then
                         chkFollowUp.Checked = CBool(checkvalue)
                     Else
@@ -2926,7 +2944,7 @@ Public Class frmForm_Constructor_Main_2
     End Sub
     Sub Load_FUUser(ID As Integer)
         Try
-            Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & CURRENT_RECORD_ID & " ORDER BY T1.USERNAME"
+            Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & RECORD_ID & " ORDER BY T1.USERNAME"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_FollowUpUser")
             ListBoxUser2Profile.DataSource = DT
             ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
@@ -2939,7 +2957,7 @@ Public Class frmForm_Constructor_Main_2
         If ENTITY_LOADED = False = False Then
             Exit Sub
         End If
-        If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, CURRENT_RECORD_ID, dtpFollowUp.Value) = True Then
+        If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value) = True Then
             lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString
             lblFollowUp_save.Visible = True
             'UpdRECORD_NEEDS_REFRESH(True)
@@ -2953,7 +2971,7 @@ Public Class frmForm_Constructor_Main_2
         If ENTITY_LOADED = False Then
             Exit Sub
         End If
-        If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, CURRENT_RECORD_ID, chkFollowUp.Checked.ToString) = True Then
+        If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString) = True Then
             lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString
             lblFollowUp_save.Visible = True
             ' UpdRECORD_NEEDS_REFRESH(True)
@@ -2999,7 +3017,7 @@ Public Class frmForm_Constructor_Main_2
 #End Region
 #Region "Tasks"
     Private Sub tsButtonShowWorkflowTasks_Click(sender As Object, e As EventArgs) Handles tsButtonShowWorkflowTasks.Click
-        If CURRENT_RECORD_ID > 0 Then
+        If RECORD_ID > 0 Then
             frmWF_TaskEditor.ShowDialog()
             Show_act_WFTask()
             Refresh_TaskOverview()
@@ -3024,7 +3042,7 @@ Public Class frmForm_Constructor_Main_2
     End Sub
     Sub Show_act_WFTask()
         Try
-            Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName)
+            Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, RECORD_ID, Environment.UserName)
             tsslblWorkflowstate.BackColor = Color.Black
             If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
                 CURRENT_TASK_ID = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TASK_ID")
@@ -3084,7 +3102,7 @@ Public Class frmForm_Constructor_Main_2
     End Sub
 
     Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click
-        If CURRENT_PARENTID = 0 Then
+        If PARENT_ID = 0 Then
             Exit Sub
         End If
         frmWD_EntityImport.ShowDialog()
@@ -3220,14 +3238,14 @@ Public Class frmForm_Constructor_Main_2
     Private Sub TemplateItem_Click(sender As Object, e As EventArgs)
         Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
         Dim TemplateID As Integer = Integer.Parse(item.Tag)
-        If CURRENT_RECORD_ID > 0 Then
+        If RECORD_ID > 0 Then
             Dim SOLLENTITY_ID = ClassDatabase.Execute_Scalar("SELECT ENTITY_ID FROM  VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & TemplateID)
-            Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & CURRENT_RECORD_ID)
+            Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID)
 
             If Not IsNothing(SOLLENTITY_ID) Then
                 If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then
                     Cursor = Cursors.WaitCursor
-                    If ClassOfficeTemplate.Open_Word_Template(TemplateID, CURRENT_RECORD_ID) = True Then
+                    If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then
                         RUN_WD_SEARCH(WD_Suche, "RECORD")
                         Update_Status_Label(True, "Vorlagen-Datei erfolgreich nach windream importiert!", EditState.Insert)
                     End If
@@ -3281,7 +3299,7 @@ Public Class frmForm_Constructor_Main_2
                         If Not IsNothing(recid) Then
                             'Die neue Record-ID setzen
                             POS_RECORD_ID = recid
-                            ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
+                            ClassControlCommandsUI.ConnectRecord(PARENT_ID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
                         Else
                             MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
                         End If
@@ -3313,7 +3331,7 @@ Public Class frmForm_Constructor_Main_2
                 If Not IsNothing(Grid_RecordID) Then
                     POS_RECORD_ID = Grid_RecordID
                     'SELECTED_RECORD_ID = POS_RECORD_ID
-                    'CURRENT_RECORD_ID = POS_RECORD_ID
+                    'RECORD_ID = POS_RECORD_ID
                     'Update_Record_Label(SELECTED_RECORD_ID)
                 End If
             End If
@@ -3359,7 +3377,7 @@ Public Class frmForm_Constructor_Main_2
     Private Sub btnAddUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnAddUser_FollowUp.Click
         If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then
             Try
-                Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & CURRENT_RECORD_ID & ", '" & Environment.UserName & "')"
+                Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & RECORD_ID & ", '" & Environment.UserName & "')"
                 If ClassDatabase.Execute_non_Query(ins, True) = True Then
                     Load_FUUser(FOLL_UP_ID)
                     Update_Status_Label(True, "User added to Follow Up", EditState.Insert)
@@ -3452,19 +3470,19 @@ Public Class frmForm_Constructor_Main_2
     End Sub
 
     Private Sub btnRelinkParentID_Click(sender As Object, e As EventArgs) Handles btnRelinkParentID.Click
-        If CURRENT_PARENTID > 0 Then
+        If PARENT_ID > 0 Then
             Dim result As MsgBoxResult
             result = MessageBox.Show("Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result <> MsgBoxResult.Yes Then
                 Exit Sub
             Else
-                If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & CURRENT_RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID & ")", True) = False Then
+                If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID & ")", True) = False Then
                     Exit Sub
                 End If
             End If
 
         End If
-        If ClassControlCommandsUI.ConnectRecord(LinkParentID, CURRENT_RECORD_ID, "ReLInk ENTITY " & CURRENT_FORM_ID.ToString) = True Then
+        If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & CURRENT_FORM_ID.ToString) = True Then
             'Save_GridViewParentEntityLayout()
             MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information)
             Check_Record_Changed()
@@ -3479,10 +3497,10 @@ Public Class frmForm_Constructor_Main_2
     Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
         Dim result As MsgBoxResult
         result = MessageBox.Show("Möchten Sie den Datensatz wirklich kopieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result <> MsgBoxResult.Yes Then
+        If result = MsgBoxResult.Yes Then
-            Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", CURRENT_RECORD_ID, Environment.UserName)
+            Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName)
             If ClassDatabase.Execute_non_Query(SQL, True) = True Then
-                LoadGrid_Selection()
+                Load_Entity_Data(ACT_EBENE)
             End If
         End If
     End Sub

app/DD-Record-Organiser/frmForm_Input.vb

@@ -409,7 +409,7 @@ Public Class frmFormInput
                     ' SelectedFormID = RowView.Item(1)
                     RefreshRecordByID(SelectedRecordID)
 
-                    ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENTID, thisformid, pnlView.Controls)
+                    ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_ID, thisformid, pnlView.Controls)
                 End If
                 load_Documents()
             End If
@@ -531,7 +531,7 @@ Public Class frmFormInput
         Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
         Dim SourceControl As Control = ContextMenu.SourceControl
         Dim MasterDataId As Integer = SourceControl.Tag
-        CURRENT_MASTER_FORM_ID = MasterDataId
+
         frmQuickInput.ShowDialog()
     End Sub
 

app/DD-Record-Organiser/frmQuickEdit.vb

@@ -61,9 +61,7 @@ Public Class frmQuickEdit
 
             Me.VWPMO_CONTROL_SCREENTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_RECORDTableAdapter.Connection.ConnectionString = MyConnectionString
-
+            Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, CURRENT_FORM_ID)
-            thisformid = CURRENT_MASTER_FORM_ID
-            Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, thisformid)
 
 
             CtrlBuilder = New ClassControlBuilder(pnlView,
@@ -88,7 +86,7 @@ Public Class frmQuickEdit
                 FocusedRow_Change()
             End If
 
-            ClassWindowLocation.LoadFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID)
+            ClassWindowLocation.LoadFormLocationSize(Me, CURRENT_FORM_ID, CURRENT_SCREEN_ID)
 
         Catch ex As System.Exception
             System.Windows.Forms.MessageBox.Show(ex.Message)
@@ -557,7 +555,6 @@ Public Class frmQuickEdit
         Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
         Dim SourceControl As Control = ContextMenu.SourceControl
         Dim MasterDataId As Integer = SourceControl.Tag
-        CURRENT_MASTER_FORM_ID = MasterDataId
         frmQuickInput.ShowDialog()
     End Sub
 End Class

app/DD-Record-Organiser/frmQuickInput.vb

@@ -4,7 +4,7 @@ Public Class frmQuickInput
     Dim Isinsert As Boolean = False
 
     Private Sub frmQuickInput_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_MASTER_FORM_ID.ToString
+        Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID
         Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
         If DT Is Nothing = False Then
             'DT.Columns.Remove("Record-ID")
@@ -36,7 +36,7 @@ Public Class frmQuickInput
 
         If Isinsert = True Then
             ' Create the record first
-            Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_MASTER_FORM_ID & ")"
+            Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_FORM_ID & ")"
             If ClassDatabase.Execute_non_Query(Sql) = True Then
                 ' Get last RecordID 
                 Sql = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & Environment.UserName & "'"
@@ -48,7 +48,7 @@ Public Class frmQuickInput
                     Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord)
                     Dim fieldName As String = row.Properties.FieldName
 
-                    CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName)
+                    CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
                     If CONTROL_ID <> 0 Then
                         If ClassFunctionCommands.InsertValue(CONTROL_ID, RECORD_ID, val) Then
                             tsStatus.Visible = True
@@ -74,7 +74,7 @@ Public Class frmQuickInput
                     RECORD_ID = val
                 End If
 
-                CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName)
+                CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
                 If CONTROL_ID <> 0 Then
                     If ClassFunctionCommands.UpdateValue(CONTROL_ID, RECORD_ID, val) = True Then
                         tsStatus.Visible = True

app/DD-Record-Organiser/frmWD_EntityImport.vb

@@ -158,7 +158,7 @@ Public Class frmWD_EntityImport
                                     MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
                                 End If
                                 indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
-                                idxvalue = CURRENT_PARENTID
+                        idxvalue = CURRENT_PARENT_ID
                                 If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
                         indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
                                 If indexierung_erfolgreich = False Then
@@ -253,7 +253,7 @@ Public Class frmWD_EntityImport
                 ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_ENTITYID").ToString)
                 ListView1.Items(count).SubItems.Add(CURRENT_FORM_ID)
                 ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_PARENTID").ToString)
-                ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENTID)
+                ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENT_ID)
             End If
         End If
     End Sub

app/DD-Record-Organiser/frmWD_Index_Dokart.vb

@@ -69,7 +69,7 @@ Public Class frmWD_Index_Dokart
                                     Return False
                                 End If
                                 indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
-                                idxvalue = CURRENT_PARENTID
+                                idxvalue = CURRENT_PARENT_ID
                                 If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
                                 indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
                                 If indexierung_erfolgreich = False Then
@@ -82,7 +82,7 @@ Public Class frmWD_Index_Dokart
                         If indexierung_erfolgreich = True Then
                             If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung")
                             ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID)
-                            frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen")
+                            'frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen")
                             'Die Originaldatei löschen
                             If droptype = "dragdrop file" And indexierung_erfolgreich = True Then
                                 If chkdelete_origin.Checked = True Then