Imports DevExpress.Utils
Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraScheduler
Imports System.Text
Imports System.IO
Imports DevExpress.XtraGrid
Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights

Public Class frmConstructor_Main
  

    Private Const SEE_MASK_INVOKEIDLIST = &HC
    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
    Private Const SEE_MASK_FLAG_NO_UI = &H400
    Public Const SW_SHOW As Short = 5
    Private PARENT_SKIPPED As Boolean = False
    <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
    End Function
    Public Structure SHELLEXECUTEINFO
        Public cbSize As Integer
        Public fMask As Integer
        Public hwnd As IntPtr
        <MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
        <MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
        <MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
        <MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
        Dim nShow As Integer
        Dim hInstApp As IntPtr
        Dim lpIDList As IntPtr
        <MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
        Public hkeyClass As IntPtr
        Public dwHotKey As Integer
        Public hIcon As IntPtr
        Public hProcess As IntPtr
    End Structure
#Region "Laufzeitvariablen & Konstanten"
    Private CONSTRUCTORID As Integer
    Private CONSTRUCTOR_DETAIL_ID As Integer
    Private DT_CONSTRUCT_VIEW As DataTable
    Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
    Private DT_ENTITY_DATA As DataTable
    Private DT_FORM As DataTable
    Private DT_TREEVIEW_PER_CONTROLS As DataTable
    Private DT_TREEVIEW_CONFIGURATION As DataTable
    Private DT_CONTROL_SCREEN As DataTable
    Private TREEVIEW_IMAGELIST As ImageList
    Private NODE_NAVIGATION As Boolean = False
    Private NODE_NAVIGATION_LOADED As Boolean = False


    Private EBENE2_PARENT_ID As Integer
    Private EBENE3_PARENT_ID As Integer
    Private ACT_EBENE As Integer
    Private ACT_EBENE_STRING As String
    Private SELECTED_RECORD_ID As Integer
    Private PARENT_RECORDID As Integer
    Private POS_ENTITY As Integer = 0
    Private POS_SQL As String = ""
    Private POS_RECORD_ID

    Private TreeView_perControl As Boolean = False

    Dim IsTopFirstRow As Boolean = True
    Private RightMouse_Clicked = False

    Private VIEW_ID
    Private VIEW_ID_RUNTIME As Integer = -1

    Public RECORD_ENABLED As Boolean = False
    Private windream_inited = False

    Private ENTITY_RECORD_COUNT As Integer = 0
    Private EBENE1_ENTITY
    Private EBENE2_ENTITY
    Private EBENE3_ENTITY
    Private EBENE1_COLUMNNAME
    Private EBENE2_COLUMNNAME
    Private EBENE3_COLUMNNAME
    Private EBENE1_RECID
    Private EBENE2_RECID
    Private EBENE3_RECID
    Private EBENE1_GRID_RESULT
    Private EBENE2_GRID_RESULT
    Private EBENE3_GRID_RESULT
    Private act_FormViewID
    Private DT_SELECTION As DataTable
    Private EDIT_STATE As EditState = EditState.None
    Private GRID_TYPE As GridType = GridType.Tiles
    Private GRID_TYPE_ID As Integer = 1
    Private FORM_LOADED As Boolean = False
    Private RECORD_CHANGED As Boolean = False
    Private SAVE_ROUTINE_ACTIVE As Boolean = False
    Private SP1 As String
    Private SP2 As String
    Private SP3 As String
    Private SP4 As String
    Private SP5 As String

    Private RIGHT_EDIT_R As Boolean = True
    Private RIGHT_ADD_R As Boolean = True
    Private RIGHT_DELETE_R As Boolean = False
    Private RIGHT_ADD_DOC As Boolean = True
    Private RIGHT_VIEW_DOC As Boolean = True
    Private RIGHT_DELETE_DOC As Boolean = False

    Private RIGHT_ONLY_READ As Boolean = False
    Private RIGHT_WINDREAM_FORBIDDEN As Boolean = False

    Private windream_Docshow As Boolean = False
    Private WD_Suche As String
    Private DocView
    Private DocViewString As String
    Private OpenedFileString As String

    Private _FormClosing As Boolean = False

    Private ENTITY_LOADED As Boolean = False

    Private LinkParentID As Integer

    Private CONTROL_DOCTYPE_MATCH As Integer = 0

    Private FOLLOW_UPisActive As Boolean = False
    Private DT_FU_Record As DataTable
    Private DT_FU_ENTITY As DataTable
    ' Private gridGUID = 2

    Private DT_WINDREAM_RESULTLIST_DEF As DataTable
    Private DT_WINDREAM_RESULTLIST As DataTable
    Private DT_RESULTLIST_OPTIONS As DataTable
    Private DT_WORKFLOWS_MANUAL As DataTable

    Private _MANUAL_WORKFLOW As Boolean = False

    Private USER_RESULTLIST_CONFIG_GUID As Integer = 0
    Private DT_TBPMO_FORM_VIEW As DataTable


    Private FOLL_UP_RECORD_DEFINED As Boolean = False
    Private FOLL_UP_DATE_CTRL_ID As Integer
    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_ENTITYID As Integer
    Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = ""
    Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = ""

    Private FORM_TYPE As Integer
    Private ENTITY_ID As Integer

    Private FORMVIEW_ID As Integer
    Private _ENTITYSQL As String
    Private _VIEWNAME As String
    Private _ENTITYSTRING As String

    Private RESULT_DOC_PATH
    Private RESULT_OBJECTTYPE
    Private RESULT_INWORK
    Private RESULT_DOC_ID
    Private RESULT_DISPLAYNAME

    Private IW_USER As String
    Private IW_COMMENT As String
    Private BACKGROUND_HELPER As ClassBackgroundHelper

    Public Enum EditState
        None
        Insert
        Update
        Delete
    End Enum

    Public Enum GridType
        Grid
        Carousel
        Tiles
    End Enum
#End Region

    Private Sub frmConstructor_Main_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop

    End Sub

    Private Sub frmForm_Constructor_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        'If RECORD_CHANGED = True Then
        '    Dim ResultMessage As String
        '    Try
        '        ResultMessage = Update_Record_OnChange()
        '    Catch ex As Exception
        '        MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
        '        Me.Cursor = Cursors.Default
        '        ' Verhindert den Zeilenwechsel
        '        e.Cancel = True
        '        Exit Sub
        '    End Try
        'End If
        If TrySave_Automatic() = False Then
            e.Cancel = True
        End If

        _FormClosing = True
        ' Check_Record_Changed()
        CloseWDDocview()
        Save_Grid_Layout()
        Save_Splitter_Layout()
        ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")

        ' Verhindert, das noch geöffnete Records für immer gelockt sind
        ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
        If Not IsNothing(CURRENT_DOCVIEW) Then
            Try
                CURRENT_DOCVIEW.CloseView(CURRENT_DOCVIEW_PATH, 0)
            Catch ex As Exception

            End Try

        End If
    End Sub


    Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim sw As New Stopwatch
        Try
            sw.Start()
            tsslblRecord.Text = ""
            tsslblStatus.Text = ""
            _FormClosing = False
            CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
            Me.Cursor = Cursors.WaitCursor

            Init_Grid_Control()
        Catch ex As Exception
            MsgBox("Error while Loading Form part 1" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

        ' Hintergrund Bild initialisieren
        BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein)


        ' Bestimme Dinge ausblenden wenn kein admin
        If USER_IS_ADMIN = True Then
            FormDesignerToolStripMenuItem.Visible = True
        Else
            FormDesignerToolStripMenuItem.Visible = False
        End If

        Try
            ''SplitCont_Details.Collapsed = True
            'CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
            ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
            VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
            Dim SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
                        "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND  CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)

            DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL)
            SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
            Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
            If DT.Rows.Count > 1 Then
                TreeView_perControl = True
                DT_TREEVIEW_PER_CONTROLS = DT
                SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
                DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)

                Try
                    TREEVIEW_IMAGELIST = New ImageList
                    For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
                        Try
                            Dim bimage = row.Item("NODE_IMAGE")
                            If Not IsDBNull(bimage) Then
                                Dim Node_image = ByteArrayToBitmap(bimage)
                                TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image)
                            End If
                        Catch ex As Exception

                        End Try

                    Next
                    TreeViewMain.ImageList = TREEVIEW_IMAGELIST
                Catch ex As Exception
                    MsgBox("Error in Adding NodeConfigurations to TreeView: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try


                Me.SplitContainerTop.Panel1.Controls.Remove(Me.TreeViewMain)
                Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewMain)
                SplitContainer1.Collapsed = False
                SplitContainer1.PanelVisibility = SplitPanelVisibility.Both
                SplitContainerTop.Collapsed = True
                SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2
                SplitContainerMain.Collapsed = True
                NODE_NAVIGATION = True
            End If
            DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
            Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND  CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
            DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1)
            DT_CONTROL_SCREEN = ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0")
            If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
                'Load Input Grid
                Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
                'Die Standards ein/ausblenden
            End If

            Dim sql_ResultList = "select T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP " & _
                        "FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " & _
                        "WHERE T.GUID = T1.WF_ID " & _
                        "GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
            DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
            Load_Tree_View(CONSTRUCTORID)

            FORM_LOADED = True
            Dim elapsed As Double
            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            sw.Reset()
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False)
        Catch ex As System.Exception
            MsgBox("Error in Loading Form part 2" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
        Me.Cursor = Cursors.Default
    End Sub

#Region "Layout"
    Sub Save_POSGrid_Layout()
        Try
            Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
            Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING & "_POS", "")
            Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGridPos.Name, EntityName, CONSTRUCTORID)
            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
            grvwGridPos.SaveLayoutToXml(XMLPath)
        Catch ex As Exception
            MsgBox("Error in Save_POSGrid_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub
    Sub Load_POSGrid_Layout()
        Try
            Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
            Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING & "_POS", "")
            Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGridPos.Name, EntityName, CONSTRUCTORID)
            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
            If File.Exists(XMLPath) Then
                grvwGridPos.RestoreLayoutFromXml(XMLPath)
                grvwGridPos.GuessAutoFilterRowValuesFromFilter()
                'grvwGrid.ClearGrouping()
                ' grvwGridPos.ClearSelection()
                ' grvwGridPos.OptionsView.ShowPreview = False

            End If
        Catch ex As Exception
            MsgBox("Error in Load_POSGrid_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub
    Sub Save_Grid_Layout()
        Try
            If ACT_EBENE_STRING Is Nothing Then
                Exit Sub
            End If

            Dim XMLPath = Get_Grid_Layout_Filename()
            grvwGrid.SaveLayoutToXml(XMLPath)
            ' Update_Status_Label(True, "Grid Layout Loaded")
        Catch ex As Exception
            MsgBox("Error in Save_Grid_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub
    Sub Save_DocGrid_Layout()
        Try
            If ACT_EBENE_STRING Is Nothing Then
                Exit Sub
            End If
            
            Dim XMLPath = Get_DocGRid_Layout_Filename()
            GridViewDoc_Search.SaveLayoutToXml(XMLPath)
            ' Update_Status_Label(True, "Grid Layout Loaded")
        Catch ex As Exception
            MsgBox("Error in Save_DocGrid_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub
    Sub Load_DocGrid_Layout()
        Try
            If ACT_EBENE_STRING Is Nothing Then
                Exit Sub
            End If
            Dim XMLPath = Get_DocGRid_Layout_Filename()
            If File.Exists(XMLPath) Then
                GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
                GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
            End If

        Catch ex As Exception
            MsgBox("Error in Load_DocGrid_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub
    Sub Load_Grid_Layout()
        Try
            Dim XMLPath = Get_Grid_Layout_Filename()
            If File.Exists(XMLPath) And GRID_TYPE = GridType.Grid Then
                grvwGrid.RestoreLayoutFromXml(XMLPath)
                grvwGrid.GuessAutoFilterRowValuesFromFilter()
            End If
        Catch ex As Exception
            MsgBox("Error in Load_Grid_Layout: " & vbNewLine & ex.Message)
        End Try
    End Sub

    Sub Load_Splitter_Layout()
        Try
            Dim XMLPath As String = Get_Splitter_Layout_Filename()
            Dim layout As New ClassLayout(XMLPath)
            Dim settings As System.Collections.Generic.List(Of ClassSetting)
            settings = layout.Load()

            If settings.Count = 0 Then
                settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
                layout.Save(settings)
            End If

            For Each setting As ClassSetting In settings
                Select Case setting._name
                    Case "SplitViewTopSplitterPosition"
                        SplitContainerTop.SplitterPosition = Integer.Parse(setting._value)
                    Case "SplitViewMainSplitterPosition"
                        If NODE_NAVIGATION = False Then
                            SplitContainerMain.SplitterPosition = Integer.Parse(setting._value)
                        Else
                            SplitContainer1.SplitterPosition = Integer.Parse(setting._value)
                        End If

                End Select
            Next
        Catch ex As Exception
            MsgBox("Fehler in Load_Splitter_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub

    Sub Save_Splitter_Layout()
        Try
            Dim XMLPath = Get_Splitter_Layout_Filename()
            Dim layout As New ClassLayout(XMLPath)
            Dim settings As New System.Collections.Generic.List(Of ClassSetting)
            If NODE_NAVIGATION = False Then
                settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
            Else
                settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainer1.SplitterPosition))
            End If
           
            layout.Save(settings)
        Catch ex As Exception
            MsgBox("Error in Save_Splitter_Layout:" & vbNewLine & ex.Message)
        End Try
    End Sub

    Function GetSafeFilename(filename As String)
        Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars()))
    End Function

    Private Function Get_Splitter_Layout_Filename()
        Dim Filename As String = String.Format("{0}-SplitterLayout.xml", CONSTRUCTORID)
        Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
    End Function

    Private Function Get_POSGrid_Layout_Filename()
        Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
        Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
        Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
        Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
    End Function
    Private Function Get_Grid_Layout_Filename()
        Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
        If NODE_NAVIGATION = True Then
            ACT_EBENE_STRING = "NODE_NAVIGATION"
        End If
        Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
        Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
        Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
    End Function
    Private Function Get_DocGRid_Layout_Filename()
        Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
        Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
        Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", GridViewDoc_Search.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
        Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
    End Function
#End Region

#Region "NavPane"
    Sub Refresh_Navpane()
        'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren
        Select Case ACT_EBENE
            Case 1
                If Not EBENE1_COLUMNNAME Is Nothing Then
                    EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
                    Dim cat As TileNavCategory = LoadLevel1Nav()
                    NavPane.Categories.Clear()
                    NavPane.Categories.Add(cat)
                End If
            Case 2
                If Not EBENE2_COLUMNNAME Is Nothing Then
                    EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
                    Dim cat As TileNavCategory = LoadLevel1Nav()
                    NavPane.Categories.Clear()
                    NavPane.Categories.Add(cat)

                    Dim item As TileNavItem = LoadLevel2Nav()
                    cat.Items.Add(item)
                End If
            Case 3
                EBENE3_RECID = SELECTED_RECORD_ID
                If Not EBENE3_COLUMNNAME Is Nothing Then
                    EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
                    Dim cat As TileNavCategory = LoadLevel1Nav()
                    NavPane.Categories.Clear()
                    NavPane.Categories.Add(cat)

                    Dim item As TileNavItem = LoadLevel2Nav()
                    cat.Items.Add(item)

                    Dim subitem As TileNavSubItem = LoadLevel3Nav()
                    item.SubItems.Add(subitem)

                End If
        End Select
    End Sub
    Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
        Dim tnFound As TreeNode
        For Each tnCurr As TreeNode In tncoll
            If tnCurr.Text.StartsWith(strText) Then
                Return tnCurr
            End If
            tnFound = FindNode(tnCurr.Nodes, strText)
            If tnFound IsNot Nothing Then
                Return tnFound
            End If
        Next
        Return Nothing
    End Function

    Private Sub NavPane_MouseUp(sender As Object, e As MouseEventArgs) Handles NavPane.MouseUp
        Dim pane As TileNavPane = TryCast(sender, TileNavPane)
        Dim hitInfo As TileNavPaneHitInfo = pane.ViewInfo.CalcHitInfo(e.Location)
        If hitInfo.InButton Then
            Dim element = hitInfo.ButtonInfo.Element
            NavPane.HideDropDownWindow()

            Save_Grid_Layout()

            If TypeOf element Is NavButton Then
                Dim btn As NavButton = TryCast(element, NavButton)

                If btn.IsMain Then
                    ResetNav()
                ElseIf btn.Name = "NavButtonRefresh" Then
                    If TrySave_Automatic() = True Then
                        ' Setzt die RECORD_ID auf Null
                        ' damit beim Refresh keine alten Werte
                        ' in die Datenbank geschrieben werden
                        SELECTED_RECORD_ID = 0
                        RECORD_ID = 0
                        CURRENT_RECORD_ID = 0
                        Load_Datafor_Entity()
                    End If
                End If

            Else
                Dim Entity As String = element.Tag
                Dim Node = FindNode(TreeViewMain.Nodes, Entity)

                If Node IsNot Nothing Then
                    TreeViewMain.SelectedNode = Node
                    Load_Datafor_Entity()
                End If
            End If

        End If
    End Sub

    Private Function LoadLevel1Nav()
        Dim cat As New TileNavCategory()
        cat.Caption = EBENE1_GRID_RESULT
        cat.Name = EBENE1_GRID_RESULT
        cat.TileText = EBENE1_GRID_RESULT
        cat.Tag = EBENE1_ENTITY

        NavPane.SelectedElement = cat

        Return cat
    End Function

    Private Function LoadLevel2Nav()
        Dim item As New TileNavItem()
        item.Caption = EBENE2_GRID_RESULT
        item.Name = EBENE2_GRID_RESULT
        item.TileText = EBENE2_GRID_RESULT
        item.Tag = EBENE2_ENTITY

        NavPane.SelectedElement = item

        Return item
    End Function

    Private Function LoadLevel3Nav()
        Dim subitem As New TileNavSubItem()
        subitem.Caption = EBENE3_GRID_RESULT
        subitem.Name = EBENE3_GRID_RESULT
        subitem.TileText = EBENE3_GRID_RESULT
        subitem.Tag = EBENE3_ENTITY

        NavPane.SelectedElement = subitem

        Return subitem
    End Function

    Private Sub ResetNav()
        'Grid zurücksetzen
        Clear_Grid_View()
        ACT_EBENE = 0
        CURRENT_ACT_LEVEL = 0
        ACT_EBENE_STRING = ""
        EBENE1_ENTITY = ""
        EBENE1_RECID = 0
        EBENE2_ENTITY = ""
        EBENE2_RECID = 0
        EBENE3_ENTITY = ""
        EBENE3_RECID = 0
        'Navigation zurücksetzen
        NavPane.Categories.Clear()
        'TreeView zurücksetzen
        'Load_Tree_View(CONSTRUCTORID)
        TreeViewMain.SelectedNode = Nothing
        SetSelectedNodeStyle(TreeViewMain.Nodes)

        Load_Tree_View(CONSTRUCTORID)
    End Sub
#End Region

#Region "GridControl"


    Public Sub Init_Grid_Control()
        GRID_TYPE = GridType.Tiles
        GRID_TYPE_ID = 1
        GridControlMain.MainView = grvwTiles
    End Sub

    'Public Sub Hide_Grid_Columns()
    '    Try
    '        Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR", "COLOR"}
    '        Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}

    '        If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
    '            DefaultHiddenColumns.AddRange(QuickHiddenColumns)
    '        End If

    '        For Each colname As String In DefaultHiddenColumns
    '            Dim col = grvwTiles.Columns.Item(colname)
    '            If col IsNot Nothing Then
    '                col.Visible = False
    '            End If
    '        Next
    '    Catch ex As Exception
    '        ClassLogger.Add("Unexpected Error in Hide_Grid_Columns: " & ex.Message, True)
    '    End Try

    'End Sub

    Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
        Try
            If GRID_TYPE = GridType.Grid Then
                If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
                _VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString
                _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
            Else 'Tiles und Carousel bekommen Quick View
                ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
                Dim query = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                            Select form
                            Where form.Item("FORM_ID") = FormId

                _ENTITYSQL = query.Single().Item("SQL_QUICK_VIEW")

                If _ENTITYSQL = String.Empty Then
                    _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
                    If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then

                    Else
                        GRID_TYPE = GridType.Grid
                        GridControlMain.MainView = grvwGrid
                        VIEW_ID = 3
                    End If
                    ' GridControlMain.MainView = grvwGrid
                Else
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
                End If
            End If

            Try
                Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
                Dim exists = ClassDatabase.Execute_Scalar(sql)
                If exists = 1 Then
                    sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
                    Dim result = ClassDatabase.Execute_Scalar(sql)
                    If Not IsNothing(result) Then
                        _ENTITYSQL = _ENTITYSQL & " " & result.ToString
                        _ENTITYSQL = _ENTITYSQL.ToUpper.Replace("@RECORDID", RECORD_ID)
                        _ENTITYSQL = _ENTITYSQL.ToUpper.Replace("@USER_ID", USER_GUID)
                    End If
                End If
            Catch ex As Exception
                ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
                MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
            End Try
            CURRENT_ENTITYSQL = _ENTITYSQL
        Catch ex As Exception
            ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
            MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
        End Try
    End Function

    Public Function Get_Pos_SQL(FormId As Integer)
        POS_SQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @PARENT_ID"
    End Function
    Public Sub Clear_Grid_View()
        GridControlMain.DataSource = Nothing

        If GRID_TYPE = GridType.Grid Then
            If grvwGrid.Columns.Count > 0 Then
                grvwGrid.Columns.Clear()
            End If

        ElseIf GRID_TYPE = GridType.Tiles Then
            grvwTiles.Columns.Clear()
        Else
            grvwCarousel.Columns.Clear()
        End If
    End Sub
    Public Sub Clear_GridPos_View()
        BindingNavigatorPOS.BindingSource = Nothing
        GridControlPos.DataSource = Nothing
        grvwGridPos.Columns.Clear()
        POS_RECORD_ID = 0
    End Sub
    Public Function Get_Grid_Row_Count() As Integer
        If GRID_TYPE = GridType.Grid Then
            Return grvwGrid.RowCount
        ElseIf GRID_TYPE = GridType.Tiles Then
            Return grvwTiles.RowCount
        Else
            Return grvwCarousel.RowCount
        End If
    End Function

    'Public Function Get_Grid_Row_Handle(value As String)
    '    Try
    '        Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value))
    '        If rowHandle > 0 Then
    '            If GRID_TYPE = GridType.Grid Then
    '                grvwGrid.FocusedRowHandle = rowHandle
    '            ElseIf GRID_TYPE = GridType.Tiles Then
    '                grvwTiles.FocusedRowHandle = rowHandle
    '            Else
    '                grvwCarousel.FocusedRowHandle = rowHandle
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False)
    '    End Try
    'End Function
    Public Function Get_Grid_Column_Count() As Integer
        If GRID_TYPE = GridType.Grid Then
            Return grvwGrid.Columns.Count
        ElseIf GRID_TYPE = GridType.Tiles Then
            Return grvwTiles.Columns.Count
        Else
            Return grvwCarousel.Columns.Count
        End If
    End Function

    Public Function Get_Focused_Row_Cell_Value(columnName As String)
        If GRID_TYPE = GridType.Grid Then
            Return grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
        ElseIf GRID_TYPE = GridType.Tiles Then
            Return grvwTiles.GetFocusedRowCellValue(grvwTiles.Columns(columnName))
        Else
            Return grvwCarousel.GetFocusedRowCellValue(grvwCarousel.Columns(columnName))
        End If
    End Function
    Public Function Get_Focused_Row_Cell_Value_pos(columnName As String)
        Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
    End Function

    Private Sub grvwGrid_BeforeLeaveRow(sender As Object, e As RowAllowEventArgs) Handles grvwGrid.BeforeLeaveRow
        'If RECORD_CHANGED = True Then
        '    Dim ResultMessage As String
        '    Try
        '        ResultMessage = Update_Record_OnChange()
        '    Catch ex As Exception
        '        MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
        '        Me.Cursor = Cursors.Default
        '        ' Verhindert den Zeilenwechsel
        '        e.Allow = False
        '    End Try
        'End If
        If TrySave_Automatic() = False Then
            e.Allow = False
        End If
    End Sub

    Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
        Me.Cursor = Cursors.WaitCursor
        Column_Row_Handler()
        Me.Cursor = Cursors.Default
    End Sub
    Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
        Dim sw As New Stopwatch
        sw.Start()
        Dim elapsed As Double
        Me.Cursor = Cursors.WaitCursor
        Column_Row_Handler()
        Me.Cursor = Cursors.Default
        elapsed = sw.Elapsed.TotalSeconds
        sw.Stop()
        sw.Reset()
        If LogErrorsOnly = False Then ClassLogger.Add(" >>>> GridView_FocusedRowChanged took " & Format(elapsed, "0.000000000") & " seconds", False)
        'If dataloaded = True Then
        '    If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
        '    Dim selRecID = GetSelected_RecordID()
        '    If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then
        '        Focused_Row_Column_Changed()
        '    Else
        '        'Console.WriteLine("SelRecordID identisch")
        '    End If
        'End If
    End Sub
    Private Sub gridView1_CustomDrawRowIndicator(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs)
        If IsTopFirstRow Then
            e.Info.ImageIndex = -1
        End If
    End Sub
    Sub Column_Row_Handler(Optional RECID As Integer = 0, Optional _navload As Boolean = False, Optional _refresh As Boolean = False)

        Dim sw As New Stopwatch
        sw.Start()
        Dim elapsed As Double
        If RECID = 0 Then
            If _FormClosing = True Then 'Or SaveRoutine_Active = True
                Exit Sub
            End If
            'Aussteigen, wenng erade die Entität gewechselt wird
            If ENTITY_LOADED = False Then
                Exit Sub
            End If
            If RightMouse_Clicked Then
                Exit Sub
            End If
            Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
            If IsNothing(Grid_RecordID) Then
                Console.WriteLine("No Record ID selectable")
            Else
                If Grid_RecordID = 0 Then
                    Console.WriteLine("Grid_RecordID = 0")
                Else
                    RECID = Grid_RecordID
                End If
            End If
        End If
        If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False Then
            Exit Sub
        End If
        If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
        'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
        If GRID_TYPE = GridType.Grid Then
            If IsTopFirstRow Then
                IsTopFirstRow = False
                'grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
                'grvwGrid.OptionsBehavior.Editable = Not IsTopFirstRow
                'grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = Not IsTopFirstRow
                'grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = Not IsTopFirstRow
                'grvwGrid.OptionsSelection.EnableAppearanceHideSelection = Not IsTopFirstRow
            End If
        ElseIf GRID_TYPE = GridType.Carousel Then
            If IsTopFirstRow Then
                IsTopFirstRow = False
                grvwCarousel.OptionsBehavior.Editable = Not IsTopFirstRow
            End If
        ElseIf GRID_TYPE = GridType.Tiles Then
            If IsTopFirstRow Then
                IsTopFirstRow = False
                grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
            End If
        End If

        'Wird jetzt bei BeforeRowChange überprüft
        'Check_Record_Changed()

        DisableEditMode()
        VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
        elapsed = sw.Elapsed.TotalSeconds
        sw.Stop()
        sw.Reset()
        If LogErrorsOnly = False Then ClassLogger.Add(" >> Precheck Row took " & Format(elapsed, "0.000000000") & " seconds", False)
        sw.Start()
        ' muss vor show selected record data kommen,
        ' sodass die datasource für die angehakten werte existiert (checked list box)
        CtrlBuilder.WatchRecordChanges = False
        ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
        CtrlBuilder.WatchRecordChanges = True
        Show_Selected_Record_Data(RECID, False)
        Dim sw1 As New Stopwatch
        sw1.Start()
        Check_Rights()
        elapsed = sw1.Elapsed.TotalSeconds
        sw1.Stop()

        If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Rights took " & Format(elapsed, "0.000000000") & " seconds", False)
        If TCDetails.SelectedTabPage Is Nothing Then
            Exit Sub
        End If
        If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
            Clear_GridPos_View()
            Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
            Load_Pos_Data()
            Load_POSGrid_Layout()
        End If

        If RECORD_ID > 0 Then
            If RIGHT_ONLY_READ = False Then
                tsButtonEdit.Enabled = True
            End If
            If NODE_NAVIGATION = False Then
                Get_RecordCounts_Nodes()
            End If

        End If
        'Liste der geänderten Control Values leeren
        CtrlBuilder.ControlsChanged.Clear()

        elapsed = sw.Elapsed.TotalSeconds
        sw.Stop()
        Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds)
        sw.Reset()
        If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False)
        If NODE_NAVIGATION = True And _navload = False Then
            SearchNode(TreeViewMain.Nodes, RECORD_ID)
        End If
    End Sub

    Sub Check_Rights()
        Try
            RIGHT_ONLY_READ = False
            RIGHT_WINDREAM_FORBIDDEN = False
            tsmi_RecordDelete.Enabled = True
            MassenänderungToolStripMenuItem.Enabled = True
            DeleteToolStripMenuItem.Enabled = True
            UmbenennenToolStripMenuItem.Enabled = True
            TSMI_linkRecord.Enabled = True
            TSMI_inWork.Enabled = True
            CopyToolStripMenuItem.Enabled = True
            RecordKopierenToolStripMenuItem.Enabled = True
            PropertiesToolStripMenuItem.Enabled = True
            tslblLocked.Visible = False
            tslblFileslocked.Visible = False
            TabFollowUp.PageEnabled = True
            TabPos.PageEnabled = True
            TabWindream.PageEnabled = True
            WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
            EntitätssucheStartenToolStripMenuItem.Enabled = True

            VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
            Dim tempsql
            If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then
                Try
                    tempsql = SQL_RIGHT_READ_AND_VIEW_ONLY
                    tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
                    tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
                    tempsql = tempsql.Replace("@USER_ID", USER_GUID)
                    tempsql = tempsql.Replace("@USER_GUID", USER_GUID)

                    ''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
                    'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
                    '' einen Regulären Ausdruck laden
                    'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
                    '' die Vorkommen im SQL-String auslesen
                    'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
                    '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
                    ''#####
                    '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
                    'For Each element As System.Text.RegularExpressions.Match In elemente
                    '    Dim elementohneSZ = element.Value.Replace("[%", "")
                    '    elementohneSZ = elementohneSZ.Replace("]", "")
                    '    ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
                    '    tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
                    'Next

                    Try
                        If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ SQL: (When true then disable) '" & tempsql & "'", False)
                        RIGHT_ONLY_READ = CBool(ClassDatabase.Execute_Scalar(tempsql))
                    Catch ex As Exception
                        RIGHT_ONLY_READ = False
                    End Try
                    If RIGHT_ONLY_READ = True Then
                        ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
                        tsButtonAdd.Enabled = True
                        tsButtonEdit.Enabled = False
                        tsButtonSave.Enabled = False
                        tsButtonDelete.Enabled = False
                        tsmi_RecordDelete.Enabled = False
                        MassenänderungToolStripMenuItem.Enabled = False
                        UmbenennenToolStripMenuItem.Enabled = False
                        TSMI_linkRecord.Enabled = False
                        TSMI_inWork.Enabled = False
                        PropertiesToolStripMenuItem.Enabled = False
                        CopyToolStripMenuItem.Enabled = False
                        DeleteToolStripMenuItem.Enabled = False
                        tslblLocked.Visible = True
                        RecordKopierenToolStripMenuItem.Enabled = False
                        TabFollowUp.PageEnabled = False
                        TabPos.PageEnabled = False
                        ' tsButtonShowTaskOverview.Enabled = False
                        CreateWorkflowTasksToolStripMenuItem.Enabled = False
                        CreateWorkflowTasksToolStripMenuItem.Enabled = False
                        VerknüpfungenAnzeigenToolStripMenuItem.Enabled = False
                    End If

                Catch ex As Exception
                    MsgBox("unexpected Error in Check Read-Limitations:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    ClassLogger.Add("Unexpected Error in Check Read-Limitations: " & ex.Message)
                    ClassLogger.Add("TempSQL so far: " & tempsql)
                End Try
            End If
            If SQL_RIGHT_WINDREAM_FORBIDDEN <> "" Then
                Try
                    tempsql = SQL_RIGHT_WINDREAM_FORBIDDEN
                    tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
                    tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
                    tempsql = tempsql.Replace("@USER_ID", USER_GUID)
                    tempsql = tempsql.Replace("@USER_GUID", USER_GUID)

                    ''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
                    'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
                    '' einen Regulären Ausdruck laden
                    'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
                    '' die Vorkommen im SQL-String auslesen
                    'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
                    '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
                    ''#####
                    '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
                    'For Each element As System.Text.RegularExpressions.Match In elemente
                    '    Dim elementohneSZ = element.Value.Replace("[%", "")
                    '    elementohneSZ = elementohneSZ.Replace("]", "")
                    '    ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
                    '    tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
                    'Next

                    Try
                        RIGHT_WINDREAM_FORBIDDEN = CBool(ClassDatabase.Execute_Scalar(tempsql))
                    Catch ex As Exception
                        RIGHT_WINDREAM_FORBIDDEN = False
                    End Try
                    If RIGHT_WINDREAM_FORBIDDEN = True Then
                        ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
                        tslblFileslocked.Visible = True
                        TabWindream.PageEnabled = False
                        WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
                        EntitätssucheStartenToolStripMenuItem.Enabled = False
                    End If

                Catch ex As Exception
                    MsgBox("unexpected Error in Check Read-Limitations WINDREAM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    ClassLogger.Add("Unexpected Error in Check Read-Limitations WINDREAM: " & ex.Message)
                    ClassLogger.Add("TempSQL so far: " & tempsql)
                End Try
            End If
        Catch ex As Exception
            MsgBox("unexpected Error in Check_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
#End Region

#Region "TreeView"

    Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
        For Each node As TreeNode In tncoll

            If node.IsSelected Then
                node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
                node.Text = node.Text
            Else
                node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
            End If

            If node.Nodes.Count > 0 Then
                SetSelectedNodeStyle(node.Nodes)
            End If

        Next
        TreeViewMain.Refresh()
    End Sub
    Private Sub NodeRecursive(ByVal n As TreeNode, searchRecord As Integer)
        Dim aNode As TreeNode
        For Each aNode In n.Nodes
            If Not IsNothing(aNode.Tag) Then
                If aNode.Tag.ToString.Contains("RECORD-ID") Then
                    Dim Record = Return_RECORD_forTag(aNode.Tag)
                    If IsNumeric(Record) And Record <> 0 And searchRecord = Record Then
                        TreeViewMain.SelectedNode = aNode
                        Exit Sub
                    End If

                End If
            End If
            NodeRecursive(aNode, searchRecord)
        Next
    End Sub
    Public Sub SearchNode(tncoll As TreeNodeCollection, searchRecord As Integer)
        Try
            Dim n As TreeNode
            For Each n In TreeViewMain.Nodes
                NodeRecursive(n, searchRecord)
            Next
        Catch ex As Exception
            ClassLogger.Add("Error in SearchNode: " & ex.Message, True)
        End Try
    End Sub
    Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
        DisableEditMode()
        If NODE_NAVIGATION = False Then
            SetSelectedNodeStyle(TreeViewMain.Nodes)
        Else
            ACT_EBENE_STRING = "NODE_NAVIGATION"
            Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
            If SelectedNode IsNot Nothing Then
                SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
                SelectedNode.Text = SelectedNode.Text
            End If
        End If

        Load_Datafor_Entity()
        If NODE_NAVIGATION = True Then
            Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
            If SelectedNode IsNot Nothing Then
                Update_Status_Label(True, SelectedNode.Tag)
                If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
                    Dim Record = Return_RECORD_forTag(SelectedNode.Tag)
                    If Record <> 0 Then
                        pnlDetails.Enabled = True
                        ToolStripEdit.Enabled = True
                        Column_Row_Handler(Record, True)
                        LocateRecordById(RECORD_ID)
                    End If
                Else
                    pnlDetails.Enabled = False
                    ToolStripEdit.Enabled = False

                End If

            End If

        End If

    End Sub

    Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
        If NODE_NAVIGATION = False Then
            If grvwGrid.Columns.Count > 0 Then
                Save_Grid_Layout()
            End If
        Else
            If Not IsNothing(TreeViewMain.SelectedNode) Then
                TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
            End If

        End If
    End Sub

    Sub Load_Tree_View(ConstructorId As Integer)
        Try
            Dim sw As New SW("Load_Tree_View")

            TreeViewMain.Nodes.Clear()
            If NODE_NAVIGATION = True Then
                ' Rootnode erstellen und taggen
                If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then
                    ' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
                    Dim expression As String
                    expression = "TYPE_NODE = 0"
                    Dim foundRowsLevel0() As DataRow
                    ' Use the Select method to find all rows matching the filter.
                    foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression)
                    Dim i As Integer
                    Dim NODE_CONFIG_ID
                    ' For each row create a Node
                    For i = 0 To foundRowsLevel0.GetUpperBound(0)
                        Dim ID = foundRowsLevel0(i)("GUID")
                        Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
                        Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
                        Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
                        Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
                        Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
                        NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
                        Dim LEVEL0_NODE As TreeNode
                        LEVEL0_NODE = New TreeNode(nodetext)
                        If Not IsDBNull(RECORD_ID) Then
                            LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
                        Else
                            LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID
                        End If

                        Dim index As Integer = 0
                        For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                            If img = NODE_CONFIG_ID & "#" & LevelEntity Then
                                Exit For
                            End If
                            index += 1
                        Next
                        LEVEL0_NODE.ImageIndex = index
                        LEVEL0_NODE.SelectedImageIndex = index
                        TreeViewMain.Nodes.Add(LEVEL0_NODE)
                        '### LEVEL 1 laden #######
                        Dim expressionLevel1 As String
                        expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND  Einschränkung auf Type 2 und Parent_Guid
                        Dim foundRowsLevel1() As DataRow
                        foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
                        Dim j As Integer
                        For j = 0 To foundRowsLevel1.GetUpperBound(0)
                            Dim ID1 = foundRowsLevel1(j)("GUID")
                            Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
                            Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
                            Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
                            Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
                            RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
                            NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID")
                            ' Node erstellen..
                            Dim LEVEL1_NODE As TreeNode
                            LEVEL1_NODE = New TreeNode(nodetext1)
                            If Not IsDBNull(RECORD_ID) Then
                                LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
                            Else
                                LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1
                            End If

                            index = 0
                            For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                If img = NODE_CONFIG_ID & "#" & LevelEntity1 Then
                                    Exit For
                                End If
                                index += 1
                            Next
                            LEVEL1_NODE.ImageIndex = index
                            LEVEL1_NODE.SelectedImageIndex = index
                            ' ..und einfügen
                            LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
                            '### LEVEL 2 laden #######
                            Dim expressionLevel2 As String
                            expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type  und Parent_Guid
                            Dim foundRowsLevel2() As DataRow
                            foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
                            Dim k As Integer
                            For k = 0 To foundRowsLevel2.GetUpperBound(0)
                                Dim ID2 = foundRowsLevel2(k)("GUID")
                                Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
                                Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
                                Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
                                RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
                                NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID")
                                ' Node erstellen..
                                Dim LEVEL2_NODE As TreeNode
                                LEVEL2_NODE = New TreeNode(nodetext2)
                                If Not IsDBNull(RECORD_ID) Then
                                    LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
                                Else
                                    LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2
                                End If

                                index = 0
                                For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                    If img = NODE_CONFIG_ID & "#" & LevelEntity2 Then
                                        Exit For
                                    End If
                                    index += 1
                                Next
                                LEVEL2_NODE.ImageIndex = index
                                LEVEL2_NODE.SelectedImageIndex = index
                                ' ..und einfügen
                                LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
                                '### LEVEL 3 laden #######
                                Dim expressionLevel3 As String
                                expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND  Einschränkung auf Type  und Parent_Guid
                                Dim foundRowsLevel3() As DataRow
                                foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
                                Dim l As Integer
                                For l = 0 To foundRowsLevel3.GetUpperBound(0)
                                    Dim ID3 = foundRowsLevel3(l)("GUID")
                                    Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
                                    Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
                                    Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
                                    RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
                                    NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID")
                                    ' Node erstellen..
                                    Dim LEVEL3_NODE As TreeNode
                                    LEVEL3_NODE = New TreeNode(nodetext3)
                                    If Not IsDBNull(RECORD_ID) Then
                                        LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
                                    Else
                                        LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3
                                    End If

                                    index = 0
                                    For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                        If img = NODE_CONFIG_ID & "#" & LevelEntity3 Then
                                            Exit For
                                        End If
                                        index += 1
                                    Next
                                    LEVEL3_NODE.ImageIndex = index
                                    LEVEL3_NODE.SelectedImageIndex = index
                                    ' ..und einfügen
                                    LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
                                    '### LEVEL 4 laden #######
                                    Dim expressionLevel4 As String
                                    expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type  und Parent_Guid
                                    Dim foundRowsLevel4() As DataRow
                                    foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4)
                                    Dim m As Integer
                                    For m = 0 To foundRowsLevel4.GetUpperBound(0)
                                        Dim ID5 = foundRowsLevel4(m)("GUID")
                                        Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
                                        Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
                                        Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
                                        RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
                                        NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID")
                                        ' Node erstellen..
                                        Dim LEVEL4_NODE As TreeNode
                                        LEVEL4_NODE = New TreeNode(nodetext5)
                                        If Not IsDBNull(RECORD_ID) Then
                                            LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
                                        Else
                                            LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5
                                        End If

                                        index = 0
                                        For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                            If img = NODE_CONFIG_ID & "#" & LevelEntity5 Then
                                                Exit For
                                            End If
                                            index += 1
                                        Next
                                        LEVEL4_NODE.ImageIndex = index
                                        LEVEL4_NODE.SelectedImageIndex = index
                                        ' ..und einfügen
                                        LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
                                        '### LEVEL 5 laden #######
                                        Dim expressionLevel5 As String
                                        expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND  Einschränkung auf Type  und Parent_Guid
                                        Dim foundRowsLevel5() As DataRow
                                        foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5)
                                        Dim n As Integer
                                        For n = 0 To foundRowsLevel5.GetUpperBound(0)
                                            Dim ID6 = foundRowsLevel5(n)("GUID")
                                            Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
                                            Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
                                            Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
                                            RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
                                            NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID")
                                            ' Node erstellen..
                                            Dim LEVEL5_NODE As TreeNode
                                            LEVEL5_NODE = New TreeNode(nodetext6)
                                            If Not IsDBNull(RECORD_ID) Then
                                                LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
                                            Else
                                                LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6
                                            End If

                                            index = 0
                                            For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                                If img = NODE_CONFIG_ID & "#" & LevelEntity6 Then
                                                    Exit For
                                                End If
                                                index += 1
                                            Next
                                            LEVEL5_NODE.ImageIndex = index
                                            LEVEL5_NODE.SelectedImageIndex = index
                                            ' ..und einfügen
                                            LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
                                            '### LEVEL 5 laden #######
                                            Dim expressionLevel6 As String
                                            expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND  Einschränkung auf Type  und Parent_Guid
                                            Dim foundRowsLevel6() As DataRow
                                            foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6)
                                            Dim o As Integer
                                            For o = 0 To foundRowsLevel6.GetUpperBound(0)
                                                Dim ID7 = foundRowsLevel6(o)("GUID")
                                                Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
                                                Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
                                                Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
                                                RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
                                                NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID")
                                                ' Node erstellen..
                                                Dim LEVEL6_NODE As TreeNode
                                                LEVEL6_NODE = New TreeNode(nodetext7)
                                                If Not IsDBNull(RECORD_ID) Then
                                                    LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString
                                                Else
                                                    LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7
                                                End If

                                                index = 0
                                                For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                                    If img = NODE_CONFIG_ID & "#" & LevelEntity7 Then
                                                        Exit For
                                                    End If
                                                    index += 1
                                                Next
                                                LEVEL6_NODE.ImageIndex = index
                                                LEVEL6_NODE.SelectedImageIndex = index
                                                ' ..und einfügen
                                                LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
                                                '### LEVEL 7 laden #######
                                                Dim expressionLevel7 As String
                                                expressionLevel7 = "PARENT_GUID = " & ID7 'TYPE_NODE = 7 AND Einschränkung auf Type  und Parent_Guid
                                                Dim foundRowsLevel7() As DataRow
                                                foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7)
                                                Dim p As Integer
                                                For p = 0 To foundRowsLevel7.GetUpperBound(0)
                                                    Dim ID8 = foundRowsLevel7(p)("GUID")
                                                    Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
                                                    Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
                                                    Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
                                                    RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
                                                    NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID")
                                                    ' Node erstellen..
                                                    Dim LEVEL7_NODE As TreeNode
                                                    LEVEL7_NODE = New TreeNode(nodetext8)
                                                    If Not IsDBNull(RECORD_ID) Then
                                                        LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString
                                                    Else
                                                        LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8
                                                    End If

                                                    index = 0
                                                    For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                                        If img = NODE_CONFIG_ID & "#" & LevelEntity8 Then
                                                            Exit For
                                                        End If
                                                        index += 1
                                                    Next
                                                    LEVEL7_NODE.ImageIndex = index
                                                    LEVEL7_NODE.SelectedImageIndex = index
                                                    ' ..und einfügen
                                                    LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
                                                    '### LEVEL 7 laden #######
                                                    Dim expressionLevel8 As String
                                                    expressionLevel8 = "PARENT_GUID = " & ID8 'TYPE_NODE = 7 AND  Einschränkung auf Type  und Parent_Guid
                                                    Dim foundRowsLevel8() As DataRow
                                                    foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8)
                                                    Dim q As Integer
                                                    For q = 0 To foundRowsLevel8.GetUpperBound(0)
                                                        Dim ID9 = foundRowsLevel8(q)("GUID")
                                                        Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID")
                                                        Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
                                                        Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
                                                        RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
                                                        NODE_CONFIG_ID = foundRowsLevel8(q)("NODE_CONFIG_ID")
                                                        ' Node erstellen..
                                                        Dim LEVEL8_NODE As TreeNode
                                                        LEVEL8_NODE = New TreeNode(nodetext9)
                                                        If Not IsDBNull(RECORD_ID) Then
                                                            LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString
                                                        Else
                                                            LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9
                                                        End If

                                                        index = 0
                                                        For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
                                                            If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then
                                                                Exit For
                                                            End If
                                                            index += 1
                                                        Next
                                                        LEVEL8_NODE.ImageIndex = index
                                                        LEVEL8_NODE.SelectedImageIndex = index
                                                        ' ..und einfügen
                                                        LEVEL7_NODE.Nodes.Add(LEVEL8_NODE)
                                                        '### LEVEL 8 laden #######
                                                    Next ' Level 7 Ende
                                                Next ' Level 7 Ende
                                            Next ' Level 6 Ende
                                        Next ' Level 5 Ende
                                    Next 'Level 4 Ende
                                Next 'Level 3 Ende
                            Next ' Level 2 Ende
                        Next 'Level 1 Ende
                    Next


                Else
                    MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
                    Me.Close()
                End If
            Else
                ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
                Dim query1 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                            Select form
                            Order By form.Item("SEQUENCE")
                            Where form.Item("PARENT_ID") = 0

                Dim Rows1 = query1.ToList()

                For Each LEVEL1ROW In Rows1
                    Dim LEVEL0_NODE As TreeNode

                    Dim LEVEL2_NODE As TreeNode

                    '################## LEVEL 1 wird geladen ###########################
                    Dim LEVEL1_TITLE = LEVEL1ROW.Item("CAPTION").ToString
                    Dim NODE1_ENTITY_ID = LEVEL1ROW.Item("FORM_ID").ToString
                    Dim ENTITY_ID = LEVEL1ROW.Item("FORM_ID")

                    ' Rootnode erstellen und taggen
                    LEVEL0_NODE = New TreeNode(LEVEL1_TITLE)
                    LEVEL0_NODE.Tag = NODE1_ENTITY_ID
                    ' TreeView Rootnode einfügen
                    TreeViewMain.Nodes.Add(LEVEL0_NODE)

                    '################## LEVEL 2 wird geladen #########
                    Dim LEVEL1_NODE As TreeNode

                    Dim query2 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                                Select form
                                Order By form.Item("SEQUENCE")
                                Where form.Item("PARENT_ID") = NODE1_ENTITY_ID

                    Dim Rows2 = query2.ToList()
                    For Each Row2 In Rows2

                        Dim LEVEL2_TITLE As String = Row2.Item("CAPTION").ToString
                        Dim LEVEL2_ID As Integer = Row2.Item("FORM_ID")
                        Dim LEVEL2_PARENT_ID As Integer = Row2.Item("PARENT_ID")

                        ' Node erstellen..
                        LEVEL1_NODE = New TreeNode(LEVEL2_TITLE)
                        LEVEL1_NODE.Tag = LEVEL2_ID
                        ' ..und einfügen
                        LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
                        '##### LEVEL 3 wird geladen #########
                        Dim query3 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                                Select form
                                Order By form.Item("SEQUENCE")
                                Where form.Item("PARENT_ID") = LEVEL2_ID

                        Dim Rows3 = query3.ToList()

                        For Each Row3 In Rows3

                            Dim LEVEL3_TITLE As String = Row3.Item("CAPTION")
                            Dim LEVEL3_ID As Integer = Row3.Item("FORM_ID")

                            ' Node erstellen..
                            LEVEL2_NODE = New TreeNode(LEVEL3_TITLE)
                            LEVEL2_NODE.Tag = LEVEL3_ID
                            ' ..und einfügen
                            LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)

                        Next
                    Next
                Next
            End If
            If NODE_NAVIGATION = False Then
                TreeViewMain.ExpandAll()
            End If
            TreeViewMain.Nodes(0).EnsureVisible()

            sw.Done()
        Catch ex As Exception
            MsgBox("Unexpected Error in Load TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
        
    End Sub

    Sub Create_variable_node()

    End Sub
    Private Function Return_ENTITY_FOR_TAG(NodeString As String)
        If IsNumeric(NodeString) Then
            Return NodeString
        Else
            If NodeString.Contains("CONTROL-ID") Then
                Try
                    Dim _index = NodeString.IndexOf("C")
                    Dim Entity = NodeString.Substring(0, _index)
                    Entity = Entity.Replace("-", "")
                    Entity = Entity.Replace("#", "")
                    Return Entity
                Catch ex As Exception
                    ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
                    Return 0
                End Try
            End If
        End If
    End Function
    Private Function Return_RECORD_forTag(NodeString As String)
        If IsNumeric(NodeString) Then
            Return NodeString
        Else
            Dim staticListItems = NodeString.Split("#")
            If staticListItems(2).Contains("RECORD-ID") Then
                Try
                    Dim _RECORD = staticListItems(2).ToString.Replace("RECORD-ID", "")
                    If IsNumeric(_RECORD) Then
                        Return _RECORD
                    Else
                        Return 0
                    End If
                Catch ex As Exception
                    ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
                    Return 0
                End Try
            Else
                Return 0
            End If

        End If
    End Function
    Sub Load_Datafor_Entity()
        Try
            If NODE_NAVIGATION = True Then
                If NODE_NAVIGATION_LOADED = True Then
                    Exit Sub
                Else
                    NODE_NAVIGATION_LOADED = True
                End If
            End If

            Dim sw As New Stopwatch
            sw.Start()
            Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)

            If SelectedNode IsNot Nothing Then
                ENTITY_LOADED = False
                ENTITY_ID = Return_ENTITY_FOR_TAG(SelectedNode.Tag)
                CURRENT_FORM_ID = ENTITY_ID

                Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                                 Select form
                                 Where form.Item("FORM_ID") = ENTITY_ID).Single()
                CONSTRUCTOR_DETAIL_ID = result.Item("GUID")

                If NODE_NAVIGATION = True Then
                    If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
                        Console.WriteLine("Record beinhaltet")
                    End If
                    Console.WriteLine("CONTROL Navigacion")
                Else
                    Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)

                    ACT_EBENE = 2
                    CURRENT_ACT_LEVEL = 2
                    If parentNode IsNot Nothing Then
                        Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
                        If grandParentNode IsNot Nothing Then
                            ACT_EBENE = 3
                            CURRENT_ACT_LEVEL = 3
                        End If
                    Else
                        ACT_EBENE = 1
                        CURRENT_ACT_LEVEL = 1
                    End If

                End If

                ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
                Dim query2 = From form In DT_WORKFLOWS_MANUAL.AsEnumerable()
                            Select form Where form.Item("ENTITY_ID") = ENTITY_ID
                Dim Rows = query2.ToList()
                _MANUAL_WORKFLOW = False
                For Each _row In Rows
                    _MANUAL_WORKFLOW = _row.Item("MANUALLY")
                Next


                Dim elapsed As Double
                elapsed = sw.Elapsed.TotalSeconds
                If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity1 took " & Format(elapsed, "0.000000000") & " seconds", False)
                If NODE_NAVIGATION = True Then
                    If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
                        Console.WriteLine("Record beinhaltet")
                    End If
                    Console.WriteLine("CONTROL Navigacion")
                Else
                    Get_RecordCounts_Nodes()
                End If
                Load_Entity_Data(ACT_EBENE)

                sw.Stop()
                sw.Reset()
                elapsed = elapsed - sw.Elapsed.TotalSeconds
                If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity2 took " & Format(elapsed, "0.000000000") & " seconds", False)
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_Datafor_Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try

    End Sub

    Sub Get_RecordCounts_Nodes()
        Try
            If NODE_NAVIGATION = True Then
                Exit Sub
            End If
            Dim selnode As TreeNode = TreeViewMain.SelectedNode
            Dim a As Integer = 0
            For Each childNodeLevel1 As TreeNode In selnode.Nodes
                Dim PARENT_ID1 As Integer
                Dim TYPE_ID1 As Integer
                If a = 0 Then
                    Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Return_ENTITY_FOR_TAG(childNodeLevel1.Tag) & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
                    Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ShowNodeAmounts")
                    PARENT_ID1 = DT.Rows(0).Item(0)
                    TYPE_ID1 = DT.Rows(0).Item(1)
                End If
                If TYPE_ID1 <> 5 Then
                    If childNodeLevel1.Text = "Allgemein" Then
                        Console.WriteLine("Allgemein-Reiter")
                    End If
                    Dim result As Integer = ReturnAmountofRecords(Return_ENTITY_FOR_TAG(childNodeLevel1.Tag))
                    If result <> 99999999 Then
                        Dim origtext As String = childNodeLevel1.Text
                        If origtext.Contains(" (") Then
                            Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
                            childNodeLevel1.Text = existingstring & " (" & result.ToString & ")"
                        Else
                            childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")"
                        End If
                    End If

                    For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes
                        Dim origtext As String = childNodeLevel2.Text
                        If origtext.Contains(" (") Then
                            Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
                            childNodeLevel2.Text = existingstring
                        End If
                        For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes
                            Dim origtext1 As String = childNodeLevel3.Text
                            If origtext1.Contains(" (") Then
                                Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1)
                                childNodeLevel1.Text = existingstring
                            End If
                        Next
                    Next
                    a += 1
                End If

            Next
        Catch ex As Exception
            MsgBox("Error in Get_RecordCounts_Nodes:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub
    Function ReturnAmountofRecords(EntityID As Integer)
        ' Statt eine Table zurückzugeben, können wir die anzahl der Zeilen auch in der Datenbank berechnen,
        ' dadurch wird die Abfrage um einiges schneller
        Dim SQL As String = "SELECT COUNT(*) FROM ( SELECT T.* FROM VWTEMP_PMO_FORM" & EntityID & " AS T,TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID ) x"

        'Abhängig von der Entität dieAnzahl der Datensätze laden
        Select Case ACT_EBENE
            Case 1
                If EBENE1_RECID = 0 Then
                    Return 99999999
                End If

                '_sql = _sql.Replace("@RecordID", EBENE1_RECID)
                SQL = SQL.Replace("@RecordID", EBENE1_RECID)
            Case 2
                If EBENE2_RECID = 0 Then
                    Return 99999999
                End If
                If EBENE1_RECID = 0 Then

                End If
                '_sql = _sql.Replace("@RecordID", EBENE2_RECID)
                SQL = SQL.Replace("@RecordID", EBENE2_RECID)
            Case 3
                If EBENE3_RECID = 0 Then
                    Return 99999999
                End If
                '_sql = _sql.Replace("@RecordID", EBENE2_RECID)
                SQL = SQL.Replace("@RecordID", EBENE2_RECID)

        End Select

        'Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1")
        Dim count As Integer = ClassDatabase.Execute_Scalar(SQL, True)

        Return count
    End Function

#End Region

#Region "Status Bar"

    Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None)
        tsslblStatus.Text = text
        tsslblStatus.Visible = visible

        Select Case state
            Case EditState.Insert
                tsslblStatus.BackColor = Color.Yellow
            Case EditState.Update
                tsslblStatus.BackColor = Color.LightBlue
            Case Else
                tsslblStatus.BackColor = Color.LightGray
        End Select
    End Sub

    Public Sub Update_Record_Label(RecordId As Integer)
        Dim SQL As String = "SELECT 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RecordId
        Dim result = ClassDatabase.Execute_Scalar(SQL)

        If IsDBNull(result) Or IsNothing(result) Then
            tsslblRecord.Visible = False
        Else
            If FORM_TYPE = 5 Then
                tsslblRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString)
            Else
                If IS_SINGLE_RECORD = True Then
                    tsslblRecord.Text = String.Format("Single-Record ({0}) - {1}", RecordId, result.ToString)
                Else
                    tsslblRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString)
                End If

            End If
            tsslblRecord.Text = tsslblRecord.Text.Replace(", Changed by  when ", "")
            tsslblRecord.Visible = True
        End If
    End Sub

#End Region

#Region "Controls"
    Sub Load_Controls(frmview_id As Integer)
        Dim sw As New Stopwatch
        sw.Start()
        Dim elapsed As Double
        FORMVIEW_ID = frmview_id
        ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
        CtrlBuilder = New ClassControlBuilder(pnlDetails)
        'LoadControls(thisFormId)
        CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
                                                   ContextMenuDetails,
                                                   AddressOf NewEditAppointment) ',
        'AddressOf OpenFormData)
        CtrlCommandUI.LoadControls(ENTITY_ID)
        Lock_RecordControls(True)
        ' pnlDetails.Enabled = False

        AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
        AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip
        elapsed = sw.Elapsed.TotalSeconds
        If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Controls took " & Format(elapsed, "0.000000000") & " seconds", False)
        sw.Stop()
        sw.Reset()
    End Sub

    Private Sub HandleToolTip(sender As Object, e As EventArgs)
        Dim control As Control = DirectCast(sender, Control)
        Dim id As Integer = DirectCast(control.Tag, ClassControlMetadata).Id

        Dim hint = ClassControlValueCache.LoadHint(id)
        If Not IsNothing(hint) Then
            'show hint
            Console.WriteLine("Showing hint: " & hint)
            ToolTipController.ShowHint(hint.ToString, ToolTipLocation.RightCenter)
        Else
            ToolTipController.HideHint()
        End If

    End Sub

    Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
        If ENTITY_LOADED Then
            RECORD_CHANGED = True
        End If

    End Sub
#End Region

#Region "DetailView - Toolstrip"

    Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
        ' Vor dem Hinzufügen muss der EditMode auf jeden Fall ausgeschaltet werden!!
        DisableEditMode()

        'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden
        If PARENT_ENTITYID > 0 Then
            If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then
                Dim msg = "Achtung es wurde noch kein Parent-Datensatz ausgewählt! Bitte wählen Sie einen Datensatz aus!"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "Attention: No parent-record was selected! Please choose a parent record!"
                End If
                MsgBox(msg, MsgBoxStyle.Exclamation)
                Try


                    Dim sql
                    sql = "select * from VWTEMP_PMO_FORM" & PARENT_ENTITYID.ToString
                    CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
                    frmChooseParentRecord.ShowDialog()
                    If CURRENT_PARENT_RECORD_ID = 0 Then
                        MsgBox("No Parent-Record selected. Adding will be terminated.", MsgBoxStyle.Exclamation)
                        Exit Sub
                    End If
                    PARENT_RECORDID = CURRENT_PARENT_RECORD_ID
                    Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
                        Case 1
                            EBENE1_RECID = CURRENT_PARENT_RECORD_ID
                        Case 2
                            EBENE1_RECID = CURRENT_PARENT_RECORD_ID
                        Case 3
                            EBENE2_RECID = CURRENT_PARENT_RECORD_ID
                    End Select
                Catch ex As Exception
                    MsgBox("Fehler bei Load_ParentConnections:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
            End If
        End If
        Me.Cursor = Cursors.WaitCursor
        Try
            If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
                SELECTED_RECORD_ID = 0
                Lock_RecordControls(False)
                tsButtonCancel.Visible = True

                CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
                ' Den Record anlegen, damit wir eine RECORD_ID bekommen
                ClassControlCommandsUI.CreateRecord(ENTITY_ID)
                ' Die RECORD_ID auslesen und setzen
                NEW_RECORD_ID = ClassControlCommandsUI.GetLastRecord()
                CURRENT_RECORD_ID = NEW_RECORD_ID
                RECORD_ID = NEW_RECORD_ID
                SELECTED_RECORD_ID = NEW_RECORD_ID
                If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
                    If ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
                        MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical)
                    End If
                End If

                ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID)
                ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
                ' Das StatusLabel aktualisieren
                Update_Record_Label(NEW_RECORD_ID)
                ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
                tsButtonSave.Enabled = True
                ' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
                CURRENT_RECORD_ENABLED = True
                ' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
                EDIT_STATE = EditState.Update
                RECORD_CHANGED = True
                'tsslblRecord.Text = "Adding record ......"
                RIGHT_ONLY_READ = False
                tslblLocked.Visible = False
                tslblFileslocked.Visible = False
                tsButtonAdd.Enabled = False
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in Insert: " & ex.Message)
        Finally
            Me.Cursor = Cursors.Default
            ' IsInsert muss true sein, damit wir wissen ob wir bei
            ' Abbruch den Record Wieder löschen können
            CtrlCommandUI.IsInsert = True
        End Try
    End Sub

    Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
        Save_Record()
    End Sub

    Sub Focus_Control(name As String)
        Dim controls As Control.ControlCollection = pnlDetails.Controls

        For Each c As Control In controls

            Dim tag As Object = c.Tag
            Dim controlName As String = DirectCast(tag, ClassControlMetadata).Name
            If controlName = name Then

                c.Focus()
                Exit Sub

            End If

        Next
    End Sub
    Function Save_Record()
        Try
            Me.Cursor = Cursors.WaitCursor
            SAVE_ROUTINE_ACTIVE = True
            Save_Grid_Layout()
            If CtrlCommandUI.IsInsert Then
                EDIT_STATE = EditState.Insert
            Else
                EDIT_STATE = EditState.Update
                NEW_RECORD_ID = 0
                If Not RECORD_CHANGED Then
                    Update_Status_Label(True, "NO CHANGES in Record.")
                    Me.Cursor = Cursors.Default
                    Return True
                End If

            End If

            If TrySave_User() = False Then
                ' Cursor zurücksetzen
                Me.Cursor = Cursors.Default
                Return False
            End If

            Dim recid As Integer
            'If EDIT_STATE = EditState.Update Then
            '    recid = RECORD_ID
            'Else
            '    recid = NEW_RECORD_ID
            'End If
            recid = CURRENT_RECORD_ID

            SELECTED_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
                Return False
            End If
            If EDIT_STATE = EditState.Insert Then
                Select Case ACT_EBENE
                    Case 1
                        EBENE1_RECID = recid
                        For Each row As DataRow In DT_SELECTION.Rows
                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
                                EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
                            End If
                        Next
                    Case 2
                        EBENE2_RECID = recid
                        For Each row As DataRow In DT_SELECTION.Rows
                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
                                EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
                            End If
                        Next
                        If EBENE1_RECID = 0 Then
                            'Bis jetzt konnte noch keine Parent-ID angelegt werden!
                            MsgBox("Attention: no parent-link was created!", MsgBoxStyle.Exclamation)
                            'Show_Verknuepfungen()
                        End If
                End Select
                'Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
                'ClassDatabase.Execute_non_Query_withConn(exec, 1)
            ElseIf EDIT_STATE = EditState.Update Then
                'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden
                Select Case ACT_EBENE
                    Case 1
                        EBENE1_RECID = recid
                        For Each row As DataRow In DT_SELECTION.Rows
                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
                                If EBENE1_COLUMNNAME = "" Then
                                    EBENE1_GRID_RESULT = "No Column configured"
                                Else
                                    EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
                                    ' EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
                                End If
                            End If
                        Next
                    Case 2
                        EBENE2_RECID = recid
                        For Each row As DataRow In DT_SELECTION.Rows
                            If row.Item("Record-ID") = SELECTED_RECORD_ID Then
                                If EBENE2_COLUMNNAME = "" Then
                                    EBENE2_GRID_RESULT = "No Column configured"
                                Else
                                    EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
                                End If

                            End If
                        Next
                End Select
            End If

            'Jetzt den Record nochmal laden
            ' Show_Selected_Record_Data(SELECTED_RECORD_ID)
            Update_Status_Label(True, "Record saved - " & Now, EditState.Update)
            Update_Record_Label(SELECTED_RECORD_ID)
            DT_FORM = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)

            Dim FORM_TYPE = DT_FORM.Rows(0).Item("FORM_TYPE_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
            Dim IS_SINGLE_RECORD = DT_FORM.Rows(0).Item("SINGLE_RECORD") 'ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)

            CURRENT_DATE_FORMAT = USER_DATE_FORMAT

            If IS_SINGLE_RECORD = False Then
                If FORM_TYPE <> 5 Then
                    If EDIT_STATE = EditState.Insert Then
                        'Die Daten neu laden
                        Load_Entity_Data_Only()
                        LocateRecordById(RECORD_ID)
                        'Get_Grid_Row_Handle(NEW_RECORD_ID)
                    Else
                        'Die Daten neu laden
                        Load_Entity_Data_Only()
                        'Get_Grid_Row_Handle(RECORD_ID)
                        LocateRecordById(RECORD_ID)
                        'Die Daten auf dem Panel laden
                        'ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
                        ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
                        RECORD_CHANGED = False
                    End If

                End If
            End If

        Catch ex As Exception
            MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try

        tsButtonAdd.Enabled = True

        If CtrlCommandUI.IsInsert Then
            tsButtonSave.Enabled = False
            tsButtonCancel.Visible = False
        Else
            ' DisableEditMode()
        End If

        CtrlCommandUI.IsInsert = False
        EDIT_STATE = EditState.None
        RECORD_CHANGED = False
        SAVE_ROUTINE_ACTIVE = False
        Me.Cursor = Cursors.Default
        Return True
    End Function
    Sub Delete_Record()
        Dim msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz löschen wollen?"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "Are You sure You want to delete the selected record?"
        End If
        Dim result As MsgBoxResult
        result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.Yes Then
            If ClassHelper.DeleteRecord(SELECTED_RECORD_ID) = True Then
                RECORD_CHANGED = False
                EDIT_STATE = EditState.None
                CURRENT_RECORD_ENABLED = False
                ' Update_Record_Label(SELECTED_RECORD_ID)
                msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now
                End If
                Update_Status_Label(True, msg, EditState.Update)

                WD_DELETE_DOCS()



                SELECTED_RECORD_ID = 0
                RECORD_ID = 0
                CURRENT_RECORD_ID = 0
                RECORD_CHANGED = False
                'Den derzeitigen Record Neuladen
                DisableEditMode()
                Load_Entity_Data(ACT_EBENE)
                RECORD_CHANGED = False
            Else
                msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' konnte nicht gelöscht werden. Überprüfen Sie das log"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "The record '" & SELECTED_RECORD_ID & "' could not be deleted. Check the log"
                End If
                MsgBox(msg, MsgBoxStyle.Exclamation)
            End If
        End If
    End Sub
    Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click
        Delete_Record()
    End Sub

    Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEdit.Click
        ToggleEditMode()
    End Sub

    Sub ToggleEditMode()
        If RECORD_ENABLED = False Then
            EnableEditMode()
        Else
            'If RECORD_CHANGED = True Then
            '    Dim ResultMessage As String
            '    Try
            '        ResultMessage = Update_Record_OnChange()
            '    Catch ex As Exception
            '        MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
            '        Me.Cursor = Cursors.Default
            '        Exit Sub
            '    End Try
            'End If
            If TrySave_Automatic() = True Then
                DisableEditMode()
            End If
        End If
    End Sub



    Sub EnableEditMode()

        Dim EditingUser = ClassRecordState.IsRecordLocked(SELECTED_RECORD_ID)

        ' Überprüfen, ob der Record gerade bearbeitet wird
        If Not IsNothing(EditingUser) And EditingUser <> Environment.UserName Then

            tslblLocked.Visible = True
            If USER_LANGUAGE = "de-DE" Then
                MsgBox(String.Format("Dieser Datensatz wird gerade vom Benutzer '{0}' bearbeitet und kann nur lesend abgerufen werden.", EditingUser), MsgBoxStyle.Exclamation)
            Else
                MsgBox(String.Format("This Record is currently being edited by User '{0}' and only available in Read-Only mode.", EditingUser), MsgBoxStyle.Exclamation)
            End If
            ' Wenn Record bearbeitet wird, EnableEditMode abbrechen!
            Exit Sub

        Else
            'Wenn Record bearbeitet werden kann, IN_WORK auf 1 setzen, um Bearbeitung durch andere zu verhindern!
            ClassRecordState.LockRecord(SELECTED_RECORD_ID)
        End If
        CURRENT_CHANGE_STEP += 1
        Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", Environment.UserName.ToUpper)
        ClassDatabase.Execute_non_Query(del)
        Lock_RecordControls(False)
        tsmi_RecordDelete.Enabled = True
        MassenänderungToolStripMenuItem.Enabled = True
        Me.tsButtonAdd.Enabled = False
        Me.tsButtonSave.Enabled = True
        tsbtnRedo.Visible = True
        Dim stg As String
        If USER_LANGUAGE = "de-DE" Then
            stg = "Bearbeiten beenden"
        Else
            stg = "End Working"
        End If
        Me.tsButtonEdit.Text = stg
        If RIGHT_ONLY_READ = False Then
            tsButtonDelete.Enabled = True
        End If

        CURRENT_RECORD_ID = RECORD_ID

        ' Abhängige Listen laden
        CtrlBuilder.WatchRecordChanges = False
        'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
        ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
        CtrlBuilder.WatchRecordChanges = True

        RECORD_ENABLED = True
        CURRENT_RECORD_ENABLED = True
        pnlDetails.Focus()
        'If RECORD_ENABLED = False Then
        '    ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
        'End If
    End Sub

    Sub DisableEditMode()
        ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
        tsbtnRedo.Visible = False
        Lock_RecordControls(True)
        RECORD_ENABLED = False
        CURRENT_RECORD_ENABLED = False
        '  Me.pnlDetails.Enabled = False
        Me.tsButtonDelete.Enabled = False
        Me.tsButtonAdd.Enabled = True
        Me.tsButtonSave.Enabled = False
        Dim stg As String
        If USER_LANGUAGE = "de-DE" Then
            stg = "Bearbeiten"
        Else
            stg = "Edit record"
        End If
        Me.tsButtonEdit.Text = stg
        Me.tsButtonEdit.Text = stg
        'Funktion nur zum load der Inhalte

        If RECORD_ENABLED = True Then
            ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, RECORD_ID, CtrlBuilder.AllControls)
        End If

    End Sub

#End Region

#Region "Appointments"
    Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Try
            Dim ctrl As Control = sender
            ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, ENTITY_ID, RECORD_ID, pnlDetails.Controls)
        Catch ex As Exception
            MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Sub EditAppointment(ByVal sender As Control, FormID As Integer)
        Try
            ' Load All appointments first
            frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
            frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)

            Dim apt As Appointment = frmCalendar.SchedulerStorage1.Appointments.Items.Find(AddressOf FindAppointment)
            If apt IsNot Nothing Then
                frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt)
            End If

        Catch ex As Exception
            MsgBox("Error in EditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Function FindAppointment(ByVal apt As Appointment) As Boolean
        Return Convert.ToInt32(apt.CustomFields("RecordID")) = SELECTED_RECORD_ID
    End Function
#End Region
    Sub GetSet_Rights()
        Try
            Dim sel = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Select Rightsmanagement " & sel, False)
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, "GetSet_Rights")
            If DT.Rows.Count > 0 Then
                For Each row As DataRow In DT.Rows
                    'RIGHT_EDIT_R = True
                    'RIGHT_ADD_R = True
                    'RIGHT_DELETE_R = False
                    'RIGHT_ADD_DOC = True
                    'RIGHT_VIEW_DOC = True
                    'RIGHT_DELETE_DOC = False
                    If RIGHT_EDIT_R = True And CBool(DT.Rows(0).Item(0)) = False Then
                        RIGHT_EDIT_R = False
                    ElseIf RIGHT_EDIT_R = False And CBool(DT.Rows(0).Item(0)) = True Then
                        RIGHT_EDIT_R = True
                    End If

                    If RIGHT_ADD_R = True And CBool(DT.Rows(0).Item(1)) = False Then
                        RIGHT_ADD_R = False
                    ElseIf RIGHT_EDIT_R = False And CBool(DT.Rows(0).Item(1)) = True Then
                        RIGHT_EDIT_R = True
                    End If

                    If RIGHT_DELETE_R = False And CBool(DT.Rows(0).Item(2)) = True Then
                        RIGHT_DELETE_R = True
                    ElseIf RIGHT_DELETE_R = False And CBool(DT.Rows(0).Item(2)) = False Then
                        RIGHT_DELETE_R = False
                    End If
                    If RIGHT_ADD_DOC = True And CBool(DT.Rows(0).Item(3)) = False Then
                        RIGHT_ADD_DOC = False
                    ElseIf RIGHT_ADD_DOC = False And CBool(DT.Rows(0).Item(3)) = True Then
                        RIGHT_ADD_DOC = True
                    End If
                    If RIGHT_VIEW_DOC = True And CBool(DT.Rows(0).Item(4)) = False Then
                        RIGHT_VIEW_DOC = False
                    ElseIf RIGHT_VIEW_DOC = True And CBool(DT.Rows(0).Item(4)) = False Then
                        RIGHT_VIEW_DOC = True
                    End If
                    If RIGHT_DELETE_DOC = False And CBool(DT.Rows(0).Item(5)) = True Then
                        RIGHT_DELETE_DOC = False
                    ElseIf RIGHT_DELETE_DOC = True And CBool(DT.Rows(0).Item(5)) = False Then
                        RIGHT_DELETE_DOC = True
                    End If
                Next

            End If
            tsButtonSave.Visible = True
            tsButtonAdd.Visible = True
            tsButtonEdit.Visible = True
            tsButtonDelete.Visible = True
            tsmi_RecordDelete.Enabled = True
            MassenänderungToolStripMenuItem.Enabled = True

            If RIGHT_ADD_R = False Then
                tsButtonAdd.Visible = False
            End If
            If RIGHT_EDIT_R = False Then
                tsButtonEdit.Visible = False
                MassenänderungToolStripMenuItem.Enabled = False
                If RIGHT_ADD_R = False Then
                    tsButtonSave.Visible = False
                End If
            End If
            If RIGHT_DELETE_R = False Then
                tsButtonDelete.Visible = False
                tsmi_RecordDelete.Enabled = False
            End If
        Catch ex As Exception
            MsgBox("Error in GetSet_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_Entity_Data(ClickedLevel As Integer)
        Try
            Dim sw As New SW("Load_Entity_Data")
            PARENT_SKIPPED = False
            Me.Cursor = Cursors.WaitCursor
            RECORD_CHANGED = False
            RECORD_ID = 0
            VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
            'Setzen von Rechten
            'GetSet_Rights()
            'VerknüpfungenToolStripMenuItem.Enabled = False

            Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                        Select form
                        Where form.Item("FORM_ID") = ENTITY_ID).Single()

            LOAD_DIRECT = result.Item("LOAD_DIRECT")
            CURRENT_CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
            CONTROL_DOCTYPE_MATCH = result.Item("CONTROL_DOCTYPE_MATCH")
            SQL_RIGHT_READ_AND_VIEW_ONLY = result.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
            SQL_RIGHT_WINDREAM_FORBIDDEN = result.Item("SQL_RIGHT_WINDREAM_VIEW")

            Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
            DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
            sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
            DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql_ResultList, "GETVARIABLE CONTROLS")


            Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                      Select form
                      Where form.Item("GUID") = ENTITY_ID).Single()

            FORM_TYPE = ENTITY_ROW.Item("FORM_TYPE_ID")
            IS_SINGLE_RECORD = ENTITY_ROW.Item("SINGLE_RECORD")
            POS_ENTITY = ENTITY_ROW.Item("POS_ENTITY")
            If VIEW_ID_RUNTIME <> -1 Then
                GRID_TYPE_ID = VIEW_ID_RUNTIME
            Else
                Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID), True)
                If IsNothing(VIEW_ID) Then
                    ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & ENTITY_ID & ")", True)
                    VIEW_ID = 1
                End If
                GRID_TYPE_ID = VIEW_ID
            End If

            ' Den GridType setzen: 1=TileView,2=Carousel,3=GridView
            Select Case GRID_TYPE_ID
                Case 1
                    GRID_TYPE = GridType.Tiles
                    GridControlMain.MainView = grvwTiles
                Case 2
                    GRID_TYPE = GridType.Carousel
                    GridControlMain.MainView = grvwCarousel
                Case 3
                    GRID_TYPE = GridType.Grid
                    GridControlMain.MainView = grvwGrid
            End Select
            SELECTED_RECORD_ID = 0
            Dim DT As DataTable

            ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
            Dim result1 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                        Select form
                        Where form.Item("FORM_ID") = ENTITY_ID).Single()
            PARENT_ENTITYID = result1.Item("PARENT_ID")
            CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID

            'Abhängig von der Entität die Selektierungs-Daten laden
            Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)

            'Anzahl der Datensätze
            ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & ENTITY_ID, True)
            Select Case ClickedLevel
                Case 1
                    EBENE1_ENTITY = ""
                    EBENE1_RECID = 0
                    EBENE2_ENTITY = ""
                    EBENE2_RECID = 0
                    EBENE3_ENTITY = ""
                    EBENE3_RECID = 0

                    PARENT_RECORDID = 0
                    EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
                    ACT_EBENE_STRING = EBENE1_ENTITY
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False)


                    'tslblEntity2.Visible = False
                    'tslblEntity3.Visible = False


                    Dim result2 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                                   Select form
                                   Where form.Item("FORM_ID") = ENTITY_ID).Single()

                    EBENE1_COLUMNNAME = result2.Item("COLUMN_NAME1")
                    'EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
                    EBENE2_COLUMNNAME = ""
                    EBENE3_COLUMNNAME = ""
                    EBENE2_GRID_RESULT = Nothing
                    EBENE3_GRID_RESULT = Nothing
                    '_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID)

                Case 2
                    'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND ENTITY_ID = " & ENTITY_ID)
                    'If CBool(Level1Select) = False And FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
                    '    MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
                    '    TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
                    '    Exit Sub
                    'End If
                    EBENE2_ENTITY = TreeViewMain.SelectedNode.Text
                    ACT_EBENE_STRING = EBENE2_ENTITY
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 2 selected in TreeView", False)
                    EBENE3_ENTITY = ""
                    'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
                    If EBENE1_RECID > 0 Then
                        PARENT_RECORDID = EBENE1_RECID
                        If GRID_TYPE = GridType.Grid Then
                            _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
                        Else
                            _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
                            _ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
                            _ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
                            _ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
                        End If
                    Else
                        SELECTED_RECORD_ID = 0
                        PARENT_RECORDID = 0
                        NavPane.Categories.Clear()
                        tsslblRecord.Text = ""
                        Update_Status_Label(True, "Entity 1 skipped - All Records loaded", EditState.Update)
                        PARENT_SKIPPED = True
                    End If

                    Dim result3 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                                Select form
                                Where form.Item("FORM_ID") = ENTITY_ID).Single()
                    EBENE2_COLUMNNAME = result3.Item("COLUMN_NAME1")

                    'EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
                    EBENE3_COLUMNNAME = ""
                    EBENE2_GRID_RESULT = Nothing
                    EBENE3_GRID_RESULT = Nothing

                Case 3
                    EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
                    ACT_EBENE_STRING = EBENE3_ENTITY
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 3 selected in TreeView", False)

                    Dim result4 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                                Select form
                                Where form.Item("FORM_ID") = ENTITY_ID).Single()

                    EBENE3_COLUMNNAME = result4.Item("COLUMN_NAME1")
                    'EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
                    'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
                    If EBENE2_RECID > 0 Then
                        'Parent-ID setzen
                        PARENT_RECORDID = EBENE2_RECID
                        Try
                            If GRID_TYPE = GridType.Grid Then
                                _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
                            Else
                                _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
                                _ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
                                _ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID  AND T2.RECORD1_ID = @T2.RECORD1_ID"
                                _ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
                            End If
                        Catch ex As Exception
                            ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
                        End Try
                    Else

                        SELECTED_RECORD_ID = 0
                        PARENT_RECORDID = 0
                        NavPane.Categories.Clear()
                        Update_Status_Label(True, "Entity 2 skipped - All Records loaded", EditState.Update)
                        tsslblRecord.Text = ""
                        PARENT_SKIPPED = True
                    End If
                    'Select Case FORM_TYPE
                    '    Case 5
                    '        If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
                    '            EBENE3_RECID = RECORD_ID
                    '        End If
                    'End Select
                    EBENE3_GRID_RESULT = Nothing
            End Select


            _ENTITYSTRING = ACT_EBENE_STRING
            CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
            DT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)

            act_FormViewID = DT_TBPMO_FORM_VIEW.Rows(0).Item("GUID") 'ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & ENTITY_ID)

            If EDIT_STATE = EditState.None Then
                'Die Controls der Entität laden
                Load_Controls(act_FormViewID)
                tsButtonAdd.Enabled = True
                'set_pnlsize()
            End If
            'Überprüfen ob windream Dos angezeigt werden sollen?
            Check_windream_Show(act_FormViewID)



            If windream_Docshow = True Then
                If TCDetails.SelectedTabPageIndex = 1 Then
                    Me.GridControlDocSearch.DataSource = Nothing

                    If WD_ShowEnitityDocs = True Then
                        Clear_Windream_ResultList()
                        GridControlDocSearch.Visible = True
                        'RUN_WD_SEARCH("", "ENTITY")
                        RUN_WDSEARCH_GRID("ENTITY")
                    End If
                End If
            End If

            If FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
                If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID, True) = True Then
                    ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!

                    If IS_SINGLE_RECORD Then
                        Show_Selected_Record_Data(RECORD_ID, True)
                    Else
                        Refresh_Navpane()
                        Update_Record_Label(SELECTED_RECORD_ID)
                    End If
                    Get_RecordCounts_Nodes()
                End If

                ' Hide_Grid_Columns()
                If FORM_TYPE = 5 Then
                    TabDetails.PageVisible = False
                Else
                    TabDetails.PageVisible = True
                End If

            Else
                TabDetails.PageVisible = True
                GridControlMain.Visible = True

                Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "LoadEntityData - Get DTEntity")
                DTEntity.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID
                If IsNothing(DTEntity) Then
                    MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical)
                Else
                    Dim SQL_AutoValues = "SELECT GUID AS CONTROL_ID, CONNECTION_ID_1 AS CONNECTION_ID, SQL_COMMAND_1 AS SQL_COMMAND FROM TBPMO_CONTROL WHERE CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID
                    Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, "LoadAutoValues")
                    CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES

                    If USER_WAN = True Then
                        Dim MyDataset As DataSet = New DataSet("MY_DATASET")
                        MyDataset.Tables.Add(DTEntity)
                        Console.WriteLine(DTEntity.TableName)
                        CURRENT_ENTITY_DATATABLE = DTEntity
                        Dim SQL_VALUES As String = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID IN (SELECT [Record-ID] FROM VWTEMP_PMO_FORM" & ENTITY_ID & ")"

                        Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL_VALUES, "LoadControlValues")

                        If Not IsNothing(DT_ControlValues) Then
                            DT_ControlValues.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID & "_VALUES"
                            MyDataset.Tables.Add(DT_ControlValues)
                            CURRENT_ENTITY_VALUES_DT = DT_ControlValues
                        End If

                    End If


                    Dim primaryKey(1) As DataColumn
                    primaryKey(0) = DTEntity.Columns("Record-ID")
                    DTEntity.PrimaryKey = primaryKey
                    DT_SELECTION = DTEntity
                    LoadGrid_Selection()

                    If GRID_TYPE = GridType.Grid Then
                        grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
                        grvwGrid.OptionsBehavior.Editable = False
                        grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
                        grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
                        grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
                    ElseIf GRID_TYPE = GridType.Carousel Then
                        grvwCarousel.OptionsBehavior.Editable = False
                    ElseIf GRID_TYPE = GridType.Tiles Then
                        grvwTiles.FocusedRowHandle = -1
                        grvwTiles.OptionsBehavior.Editable = False
                        grvwTiles.FocusedRowHandle = -1
                        grvwTiles.OptionsTiles.HighlightFocusedTileOnGridLoad = False
                    End If
                    Load_Grid_Layout()
                    HideColumns()
                    Load_Splitter_Layout()
                    '    Dim sql1 = _ENTITYSQL
                    '    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: " & RECORD_ID, False)
                    '        Load_Record_Data()
                    '    End If
                    'End If
                    'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
                    Check_FOLLOWUP_IsConfigured(ENTITY_ID)

                    SET_ROWCOUNT_STRING()
                End If
                If POS_ENTITY > 0 Then
                    If USER_LANGUAGE <> "de-DE" Then
                        TabDetails.Text = "Head-Data"
                    Else
                        TabDetails.Text = "Kopfdaten"
                    End If

                    TabPos.PageVisible = True
                Else
                    If USER_LANGUAGE <> "de-DE" Then
                        TabDetails.Text = "Details"
                    Else
                        TabDetails.Text = "Detailansicht"
                    End If

                    TabPos.PageVisible = False
                End If
                Load_Templates()

                ' Hinfällig, da hier die Record-ID nicht gebraucht wird
                CtrlBuilder.WatchRecordChanges = False
                ClassControlValues.LoadControlValuesList(ENTITY_ID, CtrlBuilder.MasterPanel.Controls)
                CtrlBuilder.WatchRecordChanges = True

                'Zurücksetzen
                ENTITY_LOADED = True
                Dim RecLoaded As Boolean = False
                If LOAD_DIRECT = True Then
                    Load_Record_Direct()
                    RecLoaded = True
                End If
                If ENTITY_RECORD_COUNT = 1 Then
                    If RecLoaded = False Then
                        Load_Record_Direct()
                    End If
                End If
            End If

            sw.Done()

            If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
                Reload_Entity_while_Control_Load()
            End If
        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


    End Sub
    Sub Load_Record_Direct()
        Try
            grvwGrid.FocusedRowHandle = 0
            Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
            If Not IsNothing(Grid_RecordID) Then
                Select Case ACT_EBENE
                    Case 1
                        Column_Row_Handler()
                        'PARENT_RECORDID = Grid_RecordID
                        'CURRENT_RECORD_ID = PARENT_RECORDID
                        'SELECTED_RECORD_ID = Grid_RecordID
                        'RECORD_ID = Grid_RecordID
                        'ENTITY_RELOAD_AFT_CONTROL_LOAD = False
                        ''Daten zu Record in jedem Fall laden
                        ''ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
                        'CtrlBuilder.WatchRecordChanges = False
                        'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
                        'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
                        'CtrlBuilder.WatchRecordChanges = True
                        '' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
                        'RECORD_CHANGED = False
                        'Update_Record_Label(Grid_RecordID)
                        'Check_Rights()
                End Select
            End If
        Catch ex As Exception
            MsgBox("Error in Load_Record_Direct:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub
    Sub Load_Entity_Data_Only()
        Try
            ENTITY_LOADED = False
            Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
            Dim primaryKey(1) As DataColumn
            primaryKey(0) = DTEntity.Columns("Record-ID")
            DTEntity.PrimaryKey = primaryKey
            DT_SELECTION = DTEntity
            LoadGrid_Selection()
            Load_Grid_Layout()
        Catch ex As Exception
            MsgBox("Error in Load_Entity_Data_Only:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
        ENTITY_LOADED = True
    End Sub

    Sub CreateTile()
        Try
            Dim ImageIndex As Integer = -1
            Dim i As Integer = 0
            Dim j As Integer = 0
            Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
            If DT Is Nothing Then
                MsgBox("Daten können nicht geladen werden - Datatable SELECTION is empty", MsgBoxStyle.Critical)
                Exit Sub
            End If
            Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
            Dim SecondaryFont As New Font("Segoe UI", 10)
            Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)

            ' Datatable laden
            GridControlMain.DataSource = DT
            BindingSource_Entity.DataSource = DT


            grvwTiles.TileTemplate.Clear()

            For Each Column As DataColumn In DT.Columns
                Dim index As Integer = DT.Columns.IndexOf(Column)
                Dim RECORDID_Column As TileViewItemElement
                Dim ImageColumn As TileViewItemElement
                Dim HeadlineColumn As TileViewItemElement
                Dim TextColumn As TileViewItemElement
                Dim TextHeaderColumn As TileViewItemElement

                Select Case index
                    'Case 0
                    '    ' RecordId
                    '    RECORDID_Column = New TileViewItemElement()
                    '    With RECORDID_Column
                    '        .Column = grvwTiles.Columns(0)
                    '        .Column.OptionsFilter.AllowFilter = True
                    '        .TextAlignment = TileItemContentAlignment.TopLeft
                    '    End With
                    '    grvwTiles.TileTemplate.Add(RECORDID_Column)
                    Case 1
                        ' Index 1 ist das Bild
                        If Column.DataType.ToString.Contains("Byte") Then
                            ImageColumn = New TileViewItemElement()
                            With ImageColumn
                                .Image = My.Resources.keinbild
                                .Column = grvwTiles.Columns(1)
                                '.ImageSize = New Size(186, 90)
                                .ImageSize = New Size(186, 118)
                                .ImageScaleMode = TileItemImageScaleMode.ZoomInside
                                .ImageAlignment = TileItemContentAlignment.Manual
                                .ImageLocation = New Point(-10, -10)
                            End With
                            grvwTiles.TileTemplate.Add(ImageColumn)
                        End If
                    Case 2
                        ' Index 2 ist die Headline
                        HeadlineColumn = New TileViewItemElement()
                        With HeadlineColumn
                            .Column = grvwTiles.Columns(2)
                            .TextAlignment = TileItemContentAlignment.TopRight
                            .Appearance.Normal.Font = PrimaryFont
                            .Appearance.Normal.ForeColor = Color.DodgerBlue
                            .Column.OptionsFilter.AllowFilter = True
                        End With
                        grvwTiles.TileTemplate.Add(HeadlineColumn)
                    Case 3 To 4
                        ' Indexe 3 und 4 sind normale Textzeilen
                        TextColumn = New TileViewItemElement()
                        TextHeaderColumn = New TileViewItemElement()
                        Dim OffsetIndex = index - 3

                        With TextHeaderColumn
                            .Text = Column.ColumnName
                            .TextAlignment = TileItemContentAlignment.Manual
                            .TextLocation = New Point(120, 20 + (OffsetIndex * 40))
                            .Appearance.Normal.Font = SecondaryFont
                            .Appearance.Normal.ForeColor = Color.DarkGray
                            .Appearance.Normal.BackColor = WhiteBackground
                        End With

                        With TextColumn
                            .Column = grvwTiles.Columns(index)
                            .TextAlignment = TileItemContentAlignment.Manual
                            .TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
                            .Appearance.Normal.Font = SecondaryFont
                            .Appearance.Normal.ForeColor = Color.Black
                            .Appearance.Normal.BackColor = WhiteBackground
                        End With

                        grvwTiles.TileTemplate.Add(TextHeaderColumn)
                        grvwTiles.TileTemplate.Add(TextColumn)
                End Select
            Next
        Catch ex As Exception
            MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try


    End Sub
    Sub Lock_RecordControls(state As Boolean)
        Lock_Record_Controls_Recursive(state, pnlDetails.Controls)
    End Sub

    Sub Lock_Record_Controls_Recursive(state As Boolean, controls As System.Windows.Forms.Control.ControlCollection)
        For Each Control As System.Windows.Forms.Control In controls

            Select Case Control.GetType()
                Case GetType(Windows.Forms.GroupBox)
                    Lock_Record_Controls_Recursive(state, DirectCast(Control, GroupBox).Controls)
                Case GetType(Windows.Forms.TextBox)
                    Dim txt As TextBox = CType(Control, TextBox)
                    txt.ReadOnly = state
                Case Else
                    Control.Enabled = Not state

                    'Case GetType(Windows.Forms.CheckBox)
                    '    Dim chk As CheckBox = CType(Control, CheckBox)
                    '    If state = True Then
                    '        chk.Enabled = False
                    '    Else
                    '        chk.Enabled = True
                    '    End If

                    'Case GetType(Windows.Forms.RadioButton)
                    '    Dim rb As RadioButton = CType(Control, RadioButton)
                    '    If state = True Then
                    '        rb.Enabled = False
                    '    Else
                    '        rb.Enabled = True
                    '    End If

                    'Case GetType(CustomComboBox)
                    '    Dim cbobx As CustomComboBox = CType(Control, CustomComboBox)
                    '    If state = True Then
                    '        cbobx.Enabled = False
                    '    Else
                    '        cbobx.Enabled = True
                    '    End If

                    'Case GetType(DevExpress.XtraEditors.DateEdit)
                    '    Dim dtp As DevExpress.XtraEditors.DateEdit = CType(Control, DevExpress.XtraEditors.DateEdit)
                    '    If state = True Then
                    '        dtp.Enabled = False
                    '    Else
                    '        dtp.Enabled = True
                    '    End If

                    'Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
                    '    Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
                    '    If state = True Then
                    '        chlb.Enabled = False
                    '    Else
                    '        chlb.Enabled = True
                    '    End If

                    'Case GetType(DevExpress.XtraEditors.ListBoxControl)
                    '    Dim lb As DevExpress.XtraEditors.ListBoxControl = CType(Control, DevExpress.XtraEditors.ListBoxControl)
                    '    If state = True Then
                    '        lb.Enabled = False
                    '    Else
                    '        lb.Enabled = True
                    '    End If

                    'Case GetType(Windows.Forms.Button)
                    '    Dim btn As Button = CType(Control, Button)
                    '    If state = True Then
                    '        btn.Enabled = False
                    '    Else
                    '        btn.Enabled = True
                    '    End If
            End Select
        Next
    End Sub

    Private Sub Check_Record_Changed()
        If EDIT_STATE <> EditState.None Then
            Update_Status_Label(False, "")
            EDIT_STATE = EditState.None
        End If

        If RECORD_CHANGED = True Then
            Dim msg = "Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?"
            Dim msg1 = "Ungespeicherte Änderungen"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "There are unsaved changes. Would You like to save?"
                msg1 = "Unsaved changes"
            End If
            Dim result As DialogResult = MessageBox.Show(msg, msg1, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = Windows.Forms.DialogResult.Yes Then
                If CtrlCommandUI.IsInsert = True Then
                    EDIT_STATE = EditState.None
                    Lock_RecordControls(True)
                    'Me.pnlDetails.Enabled = False
                    'CtrlCommandUI.IsInsert = False
                End If
                Try
                    Dim ResultMessage = Update_Record_OnChange()
                    Update_Status_Label(True, ResultMessage)
                Catch ex As Exception
                    MsgBox("Error in Save Record Changes: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
                End Try
            Else
                ' Wenn nicht gespeichert werden soll, den Record wieder löschen
                If CtrlCommandUI.IsInsert = True Then
                    ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
                End If

                tsButtonAdd.Enabled = True

                'Dim ResultMessage
                '' Wenn MussFelder nicht ausgefüllt werden, wird eine exception geworfen und abgefangen
                'Try
                '    ResultMessage = Update_Record_OnChange()
                'Catch ex As Exception
                '    MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
                '    Me.Cursor = Cursors.Default
                '    Exit Sub
                'End Try

            End If
            CtrlCommandUI.IsInsert = False
            RECORD_CHANGED = False
        End If
    End Sub
    Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean)
        'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.ENTITY_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, ENTITY_ID)
        Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, ENTITY_ID)
        Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
        If IsNothing(GRP_SINGLE_REC) Then
            If ClassControlCommandsUI.CreateRecord(ENTITY_ID) = True Then
                GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
                If Not IsNothing(GRP_SINGLE_REC) Then
                    'Die neue Record-ID setzen
                    RECORD_ID = GRP_SINGLE_REC
                    SELECTED_RECORD_ID = RECORD_ID
                    If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & ENTITY_ID.ToString) = False Then
                        MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
                        Return False
                    End If
                Else
                    Return False
                End If
            Else
                Return False
            End If
        Else
            Try
                RECORD_ID = CInt(GRP_SINGLE_REC)
                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
            End Try
        End If

        Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
            Case 1
                EBENE1_RECID = RECORD_ID
            Case 2
                EBENE2_RECID = RECORD_ID
            Case 3
                EBENE3_RECID = RECORD_ID
        End Select
        Return True
    End Function

    Private Function GET_LINKED_RECORD(RECORDID As Integer, ENTITY_ID As Integer)
        Try
            Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                     Select form
                     Where form.Item("GUID") = ENTITY_ID).Single()

            'Je nach der Ebene muss evtl die übergeordnete Entität ausgelesen werden
            Select Case ACT_EBENE
                Case 2
                    Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORDID, ENTITY_ID)
                    Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
                    If IsNothing(PARENT_RECORD1) Then
                        Dim New_Record = ClassControlCommandsUI.GetLastRecord
                        If Not IsNothing(New_Record) Then
                            If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
                            'Die neue Record-ID setzen
                            ClassControlCommandsUI.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
                            Return New_Record
                        Else
                            Return 0
                        End If
                    Else
                        Return PARENT_RECORD1
                    End If
                Case 3
                    Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True)
                    Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " & _
                    "T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID)
                    Dim PARENT_RECORD2 = ClassDatabase.Execute_Scalar(sql, True)
                    If IsNothing(PARENT_RECORD2) Then
                        Dim New_Record = ClassControlCommandsUI.GetLastRecord
                        If Not IsNothing(New_Record) Then
                            If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
                            'Die neue Record-ID setzen
                            ClassControlCommandsUI.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
                            Return New_Record
                        Else
                            Return 0
                        End If
                    Else
                        Return PARENT_RECORD2
                    End If
            End Select
        Catch ex As Exception
            MsgBox("Error in GET_LINKED_RECORD: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return 0
        End Try
    End Function
    Private Function LoadGrid_Selection()
        Try
            If GRID_TYPE = GridType.Tiles Then
                CreateTile()
            Else
                'Grid leeren
                Clear_Grid_View()
                'Databinding Neu
                Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(ENTITY_ID)
                Dim listdate As List(Of String) = ClassHelper.Return_listdate(ENTITY_ID)

                BindingSource_Entity.DataSource = ClassHelper.Format_GridColumns(DT_SELECTION, _ENTITYSQL, listcheck, listdate)
                GridControlMain.DataSource = BindingSource_Entity

                ' Alle Date Spalten durchgehen 
                For Each col As String In listdate
                    Dim colDate = grvwGrid.Columns(col)
                    colDate.DisplayFormat.FormatType = FormatType.DateTime
                    colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
                Next
                Try
                    grvwGrid.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
                    grvwGrid.Columns("AddedWhen").DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
                    grvwGrid.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
                    grvwGrid.Columns("ChangedWhen").DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
                Catch ex As Exception

                End Try
                'Try
                '    grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
                '    grvwGrid.Columns("files?").ColumnEdit = CheckBoxEditorForDisplay
                'Catch ex As Exception
                '    ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
                'End Try
                'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
            End If

            HideColumns()
            If NODE_NAVIGATION = False Then
                Dim selnode As TreeNode = TreeViewMain.SelectedNode
                Dim origtext As String = selnode.Text
                If origtext.Contains(" (") Then
                    Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
                    selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
                Else
                    selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
                End If
            End If
        Catch ex As Exception
            MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try

        Return True
    End Function
    Sub HideColumns()
        Try
            'sdd()
            'Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & ENTITY_ID
            ' Presuming the DataTable has a column named FORM_ID
            Dim expression As String
            expression = "FORM_ID = " & ENTITY_ID
            Dim foundRowsLevel0() As DataRow
            ' Use the Select method to find all rows matching the filter.
            foundRowsLevel0 = DT_CONTROL_SCREEN.Select(expression)
            Dim i As Integer

            ' Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
            If GRID_TYPE = GridType.Grid Then
                Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns

                'If DT.Rows.Count <> 0 Then
                '    ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
                '    For Each row As DataRow In DT.Rows
                '        Dim colname As String = row.Item("CONTROL_COL_NAME")
                '        Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
                '        If Not IsNothing(col) Then
                '            col.Visible = False
                '        End If
                '    Next
                'End If
                ' For each row create a Node
                For i = 0 To foundRowsLevel0.GetUpperBound(0)
                    Dim colname As String = foundRowsLevel0(i)("CONTROL_COL_NAME")
                    Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
                    If Not IsNothing(col) Then
                        col.Visible = False
                    End If
                Next
                ' FormID und RecordID immer ausblenden
                grvwGrid.Columns.Item("Record-ID").Visible = False
                grvwGrid.Columns.Item("Form-ID").Visible = False
                grvwGrid.Columns.Item("ROW_COLOR").Visible = False
            End If
        Catch ex As Exception
            MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub HideColumns_Pos(EntityID As Integer)
        Try
            Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID
            Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
            Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGridPos.Columns

            If DT.Rows.Count <> 0 Then
                ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
                For Each row As DataRow In DT.Rows
                    Dim colname As String = row.Item("CONTROL_COL_NAME")
                    Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGridPos.Columns.Item(colname)

                    If Not IsNothing(col) Then
                        col.Visible = False
                    End If
                Next
            End If

            ' FormID und RecordID immer ausblenden
            grvwGridPos.Columns.Item("Record-ID").Visible = False
            grvwGridPos.Columns.Item("Form-ID").Visible = False
            grvwGridPos.Columns.Item("ROW_COLOR").Visible = False
            Try
                grvwGridPos.Columns.Item("files?").Visible = False
                grvwGridPos.Columns.Item("file count").Visible = False
            Catch ex As Exception

            End Try
        Catch ex As Exception
            MsgBox("Error in HideColumns_Pos:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub Show_Selected_Record_Data(Rec_ID As Integer, EntityLoad As Boolean)
        Try
            Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                   Select form
                   Where form.Item("GUID") = ENTITY_ID).Single()

            Update_Status_Label(False, "")
            If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
            'Me.pnlDetails.Visible = True
            ZeigeRecordLogsToolStripMenuItem.Enabled = False
            If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
                Dim linkedRecord
                ' Dim pID As Integer
                Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
                    Case 3
                        linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
                        If linkedRecord > 0 Then
                            Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID")
                            Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORD_ID, Parent_EntityID)
                            Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)

                            EBENE2_RECID = PARENT_RECORD1
                            PARENT_RECORDID = PARENT_RECORD1
                            CURRENT_PARENT_RECORD_ID = PARENT_RECORDID

                        End If
                    Case 2
                        linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
                        If linkedRecord > 0 Then
                            EBENE1_RECID = Rec_ID
                            PARENT_RECORDID = EBENE1_RECID
                            CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
                        End If
                    Case 1
                        PARENT_RECORDID = Rec_ID
                        EBENE1_RECID = PARENT_RECORDID
                        CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
                End Select
                RECORD_ID = CInt(linkedRecord)
                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 = Rec_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
                        PARENT_RECORDID = RECORD_ID
                        EBENE1_RECID = PARENT_RECORDID
                        CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
                        If Not EBENE1_COLUMNNAME Is Nothing Then
                            EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
                        End If
                    Case 2
                        EBENE2_RECID = SELECTED_RECORD_ID
                        If Not EBENE2_COLUMNNAME Is Nothing Then
                            EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
                        End If
                        If EBENE1_RECID > 0 Then
                            PARENT_RECORDID = EBENE1_RECID
                            CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
                        Else
                            CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
                        End If
                    Case 3
                        EBENE3_RECID = SELECTED_RECORD_ID
                        If Not EBENE3_COLUMNNAME Is Nothing Then
                            EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
                        End If
                        If EBENE2_RECID > 0 Then
                            PARENT_RECORDID = EBENE2_RECID
                            CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
                        End If
                End Select
            End If
            Select Case TCDetails.SelectedTabPageIndex
                Case 0
                    ENTITY_RELOAD_AFT_CONTROL_LOAD = False
                    CtrlBuilder.WatchRecordChanges = False
                    ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
                    CtrlBuilder.WatchRecordChanges = True

                    If windream_Docshow = True Then
                        Dim stg As String = "windream-Dateien"
                        If USER_LANGUAGE <> "de-DE" Then
                            stg = "windream-files"
                        End If
                        TabWindream.Text = stg
                    End If
                Case 1
                    If RECORD_ID = 0 Then
                        'RUN_WD_SEARCH(WD_Suche, "ENTITY")
                        RUN_WDSEARCH_GRID("ENTITY")
                    Else
                        RUN_WDSEARCH_GRID("RECORD")
                        ' RUN_WD_SEARCH(WD_Suche, "RECORD")
                    End If
                Case 2
                    tsButtonEdit.Enabled = False
                    Refresh_FollowUps()
                    dtpFollowUp.Enabled = False
                    lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
                    'ListBoxUser2Profile.Items.Clear()
                    grpbxFU_Profile.Enabled = False
            End Select
            Dim sw As New Stopwatch
            sw.Start()
            ' 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 = " & RECORD_ID
            Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
            If Not RC Is Nothing Then
                If RC > 0 Then
                    ZeigeRecordLogsToolStripMenuItem.Enabled = True
                End If
            End If

            Refresh_Navpane()
            Update_Record_Label(SELECTED_RECORD_ID)
            Show_act_WFTask()

            RECORD_ID = SELECTED_RECORD_ID
            Dim elapsed As Double
            elapsed = sw.Elapsed.TotalSeconds - elapsed
            sw.Stop()
            sw.Reset()
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData 2 took " & Format(elapsed, "0.000000000") & " seconds", False)
            If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
                Reload_Entity_while_Control_Load()
            End If
            'tsstatus_Detail_show(False, "")
        Catch ex As Exception
            MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    Sub Reload_Entity_while_Control_Load()
        Dim result As MsgBoxResult
        Dim stg As String
        If USER_LANGUAGE = "de-DE" Then
            stg = "Es gab ein unerwartetes Problem beim Laden der Control-Values! Wollen Sie versuchen die Daten erneut zu laden?" & vbNewLine & "'Nein' beendet die Sicht für einen manuellen Neustart!"
        Else
            stg = "ADDI encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
        End If
        result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.Yes Then
            Load_Datafor_Entity()
        Else
            Me.Close()
        End If

    End Sub
    Sub Create_Grid_Editor(formId As Integer)
        Try
            Dim SQL As String = "SELECT CONTROL_COL_NAME,CONTROL_SQLCOMMAND_1,CONTROL_STATIC_LIST FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID = 3 AND FORM_ID = " & formId
            Dim ComboColumns As DataTable = ClassDatabase.Return_Datatable(SQL)

            ' Alle Checkboxen für aktuelle Ansicht heraussuchen
            Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & formId
            Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
            Dim listcheck As New List(Of String)

            'Liste von allen Spaltentiteln mit Checkbox erstellen
            If dtcheck.Rows.Count > 0 Then
                For Each row As DataRow In dtcheck.Rows
                    listcheck.Add(row.Item(0))
                Next
            End If
            ' Den Editor Initialisieren und Optionen setzen
            Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
            CheckBoxEditorForDisplay.ValueChecked = 1
            CheckBoxEditorForDisplay.ValueUnchecked = 0
            ' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
            For Each col As String In listcheck
                grvwGridPos.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)

                If Not IsNothing(grvwGridPos.Columns(col)) Then
                    grvwGridPos.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
                End If
            Next


            For Each col As DataRow In ComboColumns.Rows

                Dim colName As String = col.Item(0)

                Dim hasSqlCommand = col.Item(1).ToString() <> ""
                Dim hasStaticList = col.Item(2).ToString() <> ""

                If hasStaticList = True Then
                    Dim comboEdit1 As New RepositoryItemComboBox()
                    Dim comboItems1 As ComboBoxItemCollection = comboEdit1.Items
                    Dim staticListItems = col.Item(2).ToString.Split(";")
                    comboItems1.BeginUpdate()
                    Try
                        For Each item In staticListItems
                            comboItems1.Add(item)
                        Next
                    Finally
                        comboItems1.EndUpdate()
                    End Try
                    GridControlPos.RepositoryItems.Add(comboEdit1)
                    If Not IsNothing(grvwGridPos.Columns(colName)) Then
                        grvwGridPos.Columns(colName).ColumnEdit = comboEdit1
                    End If
                ElseIf hasSqlCommand = True Then
                    SQL = col.Item(1).ToString()
                    Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, "Load_Pos_Data")
                    Dim comboEdit2 As New RepositoryItemComboBox()
                    Dim comboItems2 As ComboBoxItemCollection = comboEdit2.Items
                    For Each row As DataRow In dt.Rows
                        Dim value = row.Item(0)
                        comboItems2.BeginUpdate()
                        Try
                            comboItems2.Add(value)
                        Finally
                            comboItems2.EndUpdate()
                        End Try
                    Next
                    GridControlPos.RepositoryItems.Add(comboEdit2)
                    If Not IsNothing(grvwGridPos.Columns(colName)) Then
                        grvwGridPos.Columns(colName).ColumnEdit = comboEdit2
                    End If
                End If
            Next
        Catch ex As Exception
            MsgBox("Error in Create_Grid_Editor:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Sub Load_Pos_Data()
        Try
            If POS_ENTITY > 0 Then
                Get_Pos_SQL(POS_ENTITY)
                POS_SQL = POS_SQL.Replace("@PARENT_ID", PARENT_RECORDID)
                Dim DT_POS As DataTable = ClassDatabase.Return_Datatable(POS_SQL, "Load POSData")
                Clear_GridPos_View()
                If Not IsNothing(DT_POS) Then
                    GridControlPos.DataSource = DT_POS
                    Dim bs As New BindingSource
                    bs.DataSource = DT_POS
                    BindingNavigatorPOS.BindingSource = bs
                    ' --- Editoren laden für Combobox ---
                    Create_Grid_Editor(POS_ENTITY)
                    HideColumns_Pos(PARENT_RECORDID)
                End If
            End If
        Catch ex As Exception
            MsgBox("Error in Load_Pos_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    Function Get_GridResult(Columnname As String)
        Dim result = Get_Focused_Row_Cell_Value(Columnname)
        Dim str = String.Empty

        If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count >= 3 Then
            str &= System.Text.RegularExpressions.Regex.Replace(ACT_EBENE_STRING, "\s\(\d+\)", "")
            str &= " - "
        End If

        If IsDBNull(result) OrElse result = "" Then
            str &= "No Column configured"
        Else
            str &= result
        End If

        Return str
    End Function

    Function GetSelected_RecordID()
        Try
            If Get_Grid_Column_Count() = 0 Then
                Lock_RecordControls(True)
                '   Me.pnlDetails.Enabled = False
                'Me.tsbtnshowWorkflowtasks.Enabled = False
                'tsstatus_Detail_show(True, "Keine Columns in Grid")
                Return Nothing
            End If
            'Überhaupt Rows in Grid?
            If Get_Grid_Row_Count() > 0 Then
                Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
                If Grid_RecordID Is Nothing = False Then
                    Return Grid_RecordID
                Else
                    'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
                    'ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
                    Return Nothing
                End If
            Else
                Return Nothing
            End If
        Catch ex As Exception

        End Try
    End Function
    'Sub Get_Selected_Record()
    '    Select Case EDIT_STATE
    '        Case EditState.None
    '            'Ganz normalerDatensatzwechsel Wechsel
    '            Show_Selected_Record_Data("Record-ID")
    '            'Refresh_Treeview_SelectedData()

    '            Update_Status_Label(False)
    '            'tslblStatusMain_show(False, "")
    '        Case EditState.Insert
    '            'Refresh_Treeview_SelectedData()
    '        Case EditState.Update
    '            ' Refresh_Treeview_SelectedData()
    '    End Select
    '    Select Case TCDetails.SelectedTabPageIndex
    '        Case 0
    '            'Die Values in die Controls laden
    '            If EDIT_STATE = EditState.None Then
    '                'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
    '                'Die Daten auf dem Panel laden
    '                ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
    '                'Load_Control_Values(CtrlBuilder.AllControls)
    '                'Refresh_Treeview_SelectedData()
    '                RECORD_CHANGED = False
    '            End If
    '        Case 1
    '            RUN_WD_SEARCH(WD_Suche, "RECORD")
    '        Case 2
    '            'If FOLLOW_UPisActive = True Then Refresh_FollowUps()
    '    End Select
    '    'DT_FU_Record = Nothing
    '    'VerknüpfungenToolStripMenuItem.Enabled = True
    '    Update_Record_Label(SELECTED_RECORD_ID)

    '    If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader()

    '    Show_act_WFTask()
    '    Get_RecordCounts_Nodes()
    '    pnlDetails.Enabled = False

    '    Refresh_TaskOverview()
    'End Sub

    Private Sub Refresh_FollowUp_TabHeader()
        Try
            DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader")
            Dim msg As String = "Wiedervorlage (Nicht Abrufbar)"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "Follow Up - (Not accessable)"
            End If
            If IsNothing(DT_FU_Record) Then
                TabFollowUp.Text = msg
                Exit Sub
            End If
            If DT_FU_Record.Rows.Count = 0 Then
                msg = "Wiedervorlage (Nicht aktiviert)"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "Follow Up - (Not activated)"
                End If
                TabFollowUp.Text = msg
            Else
                msg = "Wiedervorlage (Aktive Profile)"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "Follow Up - (active profiles)"
                End If
                TabFollowUp.Text = msg
            End If
        Catch ex As Exception
            MsgBox("Error in Refresh_FollowUp_TabHeader:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Function Update_Record_OnChange() As String
        ' Überprüfen, ob alle "Required Felder ausgefüllt wurden"

        Dim missingControlValues As List(Of String) = ClassControlValues.CheckRequiredControlValues(CtrlBuilder.MasterPanel.Controls)
        If missingControlValues.Count > 0 Then

            Dim nameString As String = String.Join(vbNewLine, missingControlValues)
            Dim msg = String.Format("Die folgenden Steuerelemente müssen ausgefüllt sein: {0}{1}", vbNewLine, nameString)

            If USER_LANGUAGE <> "de-DE" Then
                msg = String.Format("the following controls must be filled with values: {0}{1}", vbNewLine, nameString)
            End If
            Dim errorMessage As String = msg

            ' Das erste fehlende Control in den Fokus nehmen
            Dim firstControlName = missingControlValues.First()
            Focus_Control(firstControlName)

            Throw New Exception(errorMessage)
        End If

        ' Record Speichern
        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
        'Jetzt die für die Entität notwendigen Prroceduren ausführen
        Customer_Run_Procedures()

        RECORD_CHANGED = False

        Return ResultMessage
    End Function

    Private Sub Customer_Run_Procedures()
        Try
            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & ENTITY_ID)
            If Not DT Is Nothing Then
                For Each row As DataRow In DT.Rows
                    Dim prsql As String = row.Item("EXECUTE_COMMAND")
                    prsql = prsql.ToUpper.Replace("@FORM_ID", ENTITY_ID)
                    prsql = prsql.ToUpper.Replace("@ENTITY_ID", ENTITY_ID)
                    prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
                    ClassDatabase.Execute_non_Query(prsql, True)
                Next
            End If
        Catch ex As Exception
            MsgBox("Error in Customer_Run_Procedures:" & vbNewLine & ex.Message)
        End Try
    End Sub

#Region "WindreamSuche"
    Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
        Try
            'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
            'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
            Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH")
            If IsDBNull(wdsearch) Then
                windream_Docshow = False
                TabWindream.PageVisible = False
                WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
                EntitätssucheStartenToolStripMenuItem.Enabled = False
                Exit Sub
            End If
            If wdsearch <> "" Then
                TabWindream.PageVisible = True
                'If IsDBNull(DTWD.Rows(0).Item(0)) Then
                '    windream_Docshow = False
                '    WindreamsucheNeuLadenToolStripMenuItem.Visible = False
                '    Exit Function
                'End If
                WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
                EntitätssucheStartenToolStripMenuItem.Enabled = True
                windream_Docshow = True
                If windream_inited = False Then
                    Dim sw As New Stopwatch
                    sw.Start()
                    Dim elapsed As Double

                    If ClassWindream.Init() = True Then
                        windream_inited = True
                    End If
                    elapsed = sw.Elapsed.TotalSeconds
                    sw.Stop()
                    sw.Reset()
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream init took " & Format(elapsed, "0.000000000") & " seconds", False)
                End If
            Else
                windream_Docshow = False
                TabWindream.PageVisible = False

                WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
                EntitätssucheStartenToolStripMenuItem.Enabled = False
            End If
        Catch ex As Exception
            MsgBox("Error in Check windream show:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            windream_Docshow = False
        End Try

    End Sub
    Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String)
        Dim sw As New Stopwatch
        sw.Start()
        Dim elapsed As Double
        Try
            Dim windream_temp_search
            If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Or TCDetails.SelectedTabPageIndex <> 1 Then
                Exit Sub
            End If
            Cursor = Cursors.WaitCursor
            Dim DTWD As DataTable
            If Type = "ENTITY" Then
                Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
                DTWD = ClassDatabase.Return_Datatable(_sql)
                If DTWD.Rows.Count = 1 Then
                    If IsDBNull(DTWD.Rows(0).Item(0)) Then
                        Clear_Windream_ResultList()
                        Cursor = Cursors.Default
                        Exit Sub
                    End If
                    Dim msg = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "windream-files for entity: " & ACT_EBENE_STRING
                    End If
                    tslblWindreamView.Text = msg
                Else
                    Clear_Windream_ResultList()
                    Cursor = Cursors.Default
                    Exit Sub
                    Exit Sub
                End If
            Else
                Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
                DTWD = ClassDatabase.Return_Datatable(sql)
                If DTWD.Rows.Count = 1 Then
                    If IsDBNull(DTWD.Rows(0).Item(0)) Then
                        Clear_Windream_ResultList()
                        Cursor = Cursors.Default
                        Exit Sub
                        Exit Sub
                    End If
                    Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "windream-files for record: " & RECORD_ID
                    End If
                    tslblWindreamView.Text = msg
                Else
                    Clear_Windream_ResultList()
                    Cursor = Cursors.Default
                    Exit Sub
                    Exit Sub
                End If
            End If
            'Die SearchPatterns durchlaufen und zwischenspeichern
            If IsDBNull(DTWD.Rows(0).Item(0)) Then
                Clear_Windream_ResultList()
                Cursor = Cursors.Default
                Exit Sub
                Exit Sub
            End If
            BaseSearch = DTWD.Rows(0).Item(0)
            SP1 = DTWD.Rows(0).Item(1)
            If IsDBNull(DTWD.Rows(0).Item(2)) Then
                SP2 = ""
            Else
                SP2 = DTWD.Rows(0).Item(2)
            End If
            If IsDBNull(DTWD.Rows(0).Item(3)) Then
                SP3 = ""
            Else
                SP3 = DTWD.Rows(0).Item(3)
            End If
            If IsDBNull(DTWD.Rows(0).Item(4)) Then
                SP4 = ""
            Else
                SP4 = DTWD.Rows(0).Item(4)
            End If
            If IsDBNull(DTWD.Rows(0).Item(5)) Then
                SP5 = ""
            Else
                SP5 = DTWD.Rows(0).Item(5)
            End If

            'Eine tempfile generieren
            Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
            'Nur den Filenamen ohne Erweiterung
            Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
            'tempfile lsöchen
            If My.Computer.FileSystem.FileExists(tempFilename1) Then
                My.Computer.FileSystem.DeleteFile(tempFilename1)
            End If
            Try
                Dim temppath = Path.GetTempPath

                Dim EncodingFormat As Encoding
                Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
                If WDUnicode = True Then
                    EncodingFormat = Encoding.GetEncoding(1252) '1252
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False)
                Else
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False)
                    EncodingFormat = Encoding.GetEncoding(65001)
                End If


                Dim fileContents As String
                If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
                fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
                If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
                fileContents = fileContents.Replace("Í", "Ö")
                Dim _sp1 = SP1
                Dim _sp2 = SP2
                Dim _sp3 = SP3
                Dim _sp4 = SP4
                Dim _sp5 = SP5

                If _sp1.ToString <> String.Empty Then
                    _sp1 = Return_SearchPattern(_sp1.ToString)
                    fileContents = fileContents.Replace("%pattern1%", _sp1)
                    fileContents = fileContents.Replace("471101", _sp1)
                End If
                If _sp2.ToString <> String.Empty Then
                    _sp2 = Return_SearchPattern(_sp2.ToString)
                    If _sp2 = 0 Then
                        _sp2 = ""
                    End If
                    fileContents = fileContents.Replace("%pattern2%", _sp2)
                    fileContents = fileContents.Replace("471102", _sp2)
                End If
                If _sp3.ToString <> String.Empty Then
                    _sp3 = Return_SearchPattern(_sp3.ToString)
                    If _sp3 = 0 Then
                        _sp3 = ""
                    End If
                    fileContents = fileContents.Replace("%pattern3%", _sp3)
                    fileContents = fileContents.Replace("471103", _sp3)
                End If
                If _sp4.ToString <> String.Empty Then
                    _sp4 = Return_SearchPattern(_sp4.ToString)
                    If _sp4 = 0 Then
                        _sp4 = ""
                    End If
                    fileContents = fileContents.Replace("%pattern4%", _sp4)
                    fileContents = fileContents.Replace("471104", _sp4)
                End If
                If _sp5.ToString <> String.Empty Then
                    _sp5 = Return_SearchPattern(_sp5.ToString)
                    If _sp5 = 0 Then
                        _sp5 = ""
                    End If
                    fileContents = fileContents.Replace("%pattern5%", _sp5)
                    fileContents = fileContents.Replace("471105", _sp5)
                End If
                'Die windream File zusammensetzen
                windream_temp_search = temppath & tempName & ".wdf"
                TEMP_FILES.Add(windream_temp_search)
                'Die File schreiben
                My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
                My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
                ' XML-Datei öffnen und laden
                Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
                Dim Reader As New System.Xml.XmlTextReader(Stream)

                ' XML-Datei initialisieren
                Dim xml As New System.Xml.XmlDocument()
                ' XML-Datei öffnen und laden
                xml.Load(Reader)
                Reader.Close()
                xml.Save(windream_temp_search)
                If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False)

                Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects
                Try
                    windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search)
                Catch ex As Exception
                    MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
                elapsed = sw.Elapsed.TotalSeconds
                If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
                If windreamSucheErgebnisse.Count > 0 Then


                    Dim stg As String
                    If USER_LANGUAGE = "de-DE" Then
                        stg = "windream-Dateien"
                    Else
                        stg = "windream-files"
                    End If
                    TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"

                    'AxObjectListControl.SetIconMode(True)
                    'AxObjectListControl.RemoveAllColumnHeader()
                    'Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
                    'Change the status icon
                    'ICON STATES:
                    'Me.AxObjectListControl.SetStatusIcon(0)
                    'Change the icon
                    ' Me.AxObjectListControl.SetStatusIcon(2)

                    Try
                        Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 1"
                        Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET RESULTLIST KONFIG")
                        If Not DT Is Nothing And DT.Rows.Count = 1 Then
                            Dim anzparam As Integer = 1
                            For Each Column As DataColumn In DT.Columns
                                If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then
                                    Dim sql = String.Format("select {0} from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 1", Column.ColumnName)
                                    Dim ColumnName = ClassDatabase.Execute_Scalar(sql, True)
                                    If Not IsDBNull(ColumnName) Then
                                        If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
                                            'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
                                            sql = String.Format("select COLUMN{0}_WIDTH from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 1", anzparam)
                                            Dim Width = ClassDatabase.Execute_Scalar(sql, True)
                                            If IsNothing(Width) Or IsDBNull(Width) Then
                                                Width = 200
                                            End If
                                            'You need to use the column name here
                                            'Please note that some attributes or indices will not be displayed
                                            'Try not to add the same header twice, it will throw cause problems if you do that
                                            ' Me.AxObjectListControl.AddColumnHeader(ColumnName, Width)
                                            anzparam += 1
                                        End If
                                    End If
                                End If
                            Next
                        Else
                            Dim param As New List(Of String)
                            'The file name
                            param.Add("szLongName")
                            'The document-Type
                            param.Add("szText37")
                            'Versionsnummer
                            param.Add("dwVersionNumber")
                            'Datumsangaben
                            param.Add("dwCreationDate")
                            param.Add("dwCreation_Time")

                            'Add all search params
                            For Each spar As String In param
                                Dim width As Integer = 200
                                Select Case spar
                                    Case "szLongName"
                                        'Dateiname
                                        width = 300
                                    Case "szText37"
                                        'Dokumentart
                                        width = 160
                                    Case "dwCreationDate"
                                        'Erstelldatum
                                        width = 90
                                    Case "dwCreation_Time"
                                        'Erstell-Zeit
                                        width = 120
                                End Select
                                'You need to use the column name here
                                'Please note that some attributes or indices will not be displayed
                                'Try not to add the same header twice, it will throw cause problems if you do that
                                ' Me.AxObjectListControl.AddColumnHeader(spar, width)
                            Next

                        End If
                    Catch ex As Exception
                        MsgBox("Unexpected Error in Construct windreamResultList: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    End Try
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> AxObjectListControl loaded ", False)
                    'Execute the search
                    Dim results As WINDREAMLib.WMObjects = windreamSucheErgebnisse
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False)
                    'Set the contents without displaying them
                    'AxObjectListControl.SetContentsEx(results)
                    'Change the icon
                    ' AxObjectListControl.SetStatusIcon(5)
                    'Display the results...
                    'The Previous Object Count
                    Dim poc As Integer = 0
                    'Display new objects, as long as the objectcount changes after displaying the objects

                    'Do Until (poc <> AxObjectListControl.GetObjectCount)
                    '    poc = AxObjectListControl.GetObjectCount
                    '    'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader
                    '    'But do not display to many at a time or the user interface could freeze
                    '    'Maybe try 50
                    '    AxObjectListControl.DisplayResults(WDResultListCount)
                    'Loop
                    'AxObjectListControl.SetStatusIcon(3)
                Else
                    Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "windream-files for record: " & RECORD_ID & " - no files found"
                    End If
                    tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
                    Clear_Windream_ResultList()
                End If

            Catch ex As Exception
                MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try

            Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

        End Try
        elapsed = sw.Elapsed.TotalSeconds
        sw.Stop()
        sw.Reset()
        If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Search took " & Format(elapsed, "0.000000000") & " seconds", False)
        Cursor = Cursors.Default
    End Sub
    Private Sub WD_DELETE_DOCS()
        Dim sw As New Stopwatch
        sw.Start()
        Dim elapsed As Double
        ' Dim Basesearch As String
        Try
            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "RECORD")
            If IsNothing(DT_RESULT) Then
                Exit Sub
            Else
                If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
                    Dim msg As String
                    msg = "Wollen Sie die zugehörigen windream-Dateien (" & DT_RESULT.Rows.Count.ToString & ") ebenfalls löschen?"
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "Do You want to delete the related windream-documents (" & DT_RESULT.Rows.Count.ToString & ")?"
                    End If
                    Dim result1 As MsgBoxResult
                    result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If result1 = MsgBoxResult.Yes Then
                        For Each row As DataRow In DT_RESULT.Rows
                            Dim DOC_ID = row.Item("DocID")
                            Dim path = row.Item("FULLPATH")
                            If Not IsNothing(path) Then
                                If ClassWindream.Delete_WDFile(path) Then
                                    ClassFileResult.Delete_ResultFile(DOC_ID)
                                End If
                            End If
                        Next
                    End If

                End If
            End If

            'Dim windream_temp_search
            'If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Then
            '    Exit Sub
            'End If
            'Cursor = Cursors.WaitCursor
            'Dim DTWD As DataTable
            'Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
            'DTWD = ClassDatabase.Return_Datatable(sql)
            'If DTWD.Rows.Count = 1 Then
            '    If IsDBNull(DTWD.Rows(0).Item(0)) Then
            '        Cursor = Cursors.Default
            '        Exit Sub
            '    End If
            'Else
            '    Cursor = Cursors.Default
            '    Exit Sub
            'End If
            ''Die SearchPatterns durchlaufen und zwischenspeichern
            'If IsDBNull(DTWD.Rows(0).Item(0)) Then
            '    Cursor = Cursors.Default
            '    Exit Sub
            'End If
            'Basesearch = DTWD.Rows(0).Item(0)
            'SP1 = DTWD.Rows(0).Item(1)
            'If IsDBNull(DTWD.Rows(0).Item(2)) Then
            '    SP2 = ""
            'Else
            '    SP2 = DTWD.Rows(0).Item(2)
            'End If
            'If IsDBNull(DTWD.Rows(0).Item(3)) Then
            '    SP3 = ""
            'Else
            '    SP3 = DTWD.Rows(0).Item(3)
            'End If
            'If IsDBNull(DTWD.Rows(0).Item(4)) Then
            '    SP4 = ""
            'Else
            '    SP4 = DTWD.Rows(0).Item(4)
            'End If
            'If IsDBNull(DTWD.Rows(0).Item(5)) Then
            '    SP5 = ""
            'Else
            '    SP5 = DTWD.Rows(0).Item(5)
            'End If

            ''Eine tempfile generieren
            'Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
            ''Nur den Filenamen ohne Erweiterung
            'Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
            ''tempfile lsöchen
            'If My.Computer.FileSystem.FileExists(tempFilename1) Then
            '    My.Computer.FileSystem.DeleteFile(tempFilename1)
            'End If

            'Dim temppath = Path.GetTempPath

            'Dim EncodingFormat As Encoding
            'Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
            'If WDUnicode = True Then
            '    EncodingFormat = Encoding.GetEncoding(1252) '1252
            '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False)
            'Else
            '    If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False)
            '    EncodingFormat = Encoding.GetEncoding(65001)
            'End If
            'Dim fileContents As String
            'If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
            'fileContents = My.Computer.FileSystem.ReadAllText(Basesearch, EncodingFormat) ', System.Text.Encoding.Unicode
            'If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
            'fileContents = fileContents.Replace("Í", "Ö")
            'Dim _sp1 = SP1
            'Dim _sp2 = SP2
            'Dim _sp3 = SP3
            'Dim _sp4 = SP4
            'Dim _sp5 = SP5

            'If _sp1.ToString <> String.Empty Then
            '    _sp1 = Return_SearchPattern(_sp1.ToString)
            '    fileContents = fileContents.Replace("%pattern1%", _sp1)
            '    fileContents = fileContents.Replace("471101", _sp1)
            'End If
            'If _sp2.ToString <> String.Empty Then
            '    _sp2 = Return_SearchPattern(_sp2.ToString)
            '    If _sp2 = 0 Then
            '        _sp2 = ""
            '    End If
            '    fileContents = fileContents.Replace("%pattern2%", _sp2)
            '    fileContents = fileContents.Replace("471102", _sp2)
            'End If
            'If _sp3.ToString <> String.Empty Then
            '    _sp3 = Return_SearchPattern(_sp3.ToString)
            '    If _sp3 = 0 Then
            '        _sp3 = ""
            '    End If
            '    fileContents = fileContents.Replace("%pattern3%", _sp3)
            '    fileContents = fileContents.Replace("471103", _sp3)
            'End If
            'If _sp4.ToString <> String.Empty Then
            '    _sp4 = Return_SearchPattern(_sp4.ToString)
            '    If _sp4 = 0 Then
            '        _sp4 = ""
            '    End If
            '    fileContents = fileContents.Replace("%pattern4%", _sp4)
            '    fileContents = fileContents.Replace("471104", _sp4)
            'End If
            'If _sp5.ToString <> String.Empty Then
            '    _sp5 = Return_SearchPattern(_sp5.ToString)
            '    If _sp5 = 0 Then
            '        _sp5 = ""
            '    End If
            '    fileContents = fileContents.Replace("%pattern5%", _sp5)
            '    fileContents = fileContents.Replace("471105", _sp5)
            'End If
            ''Die windream File zusammensetzen
            'windream_temp_search = temppath & tempName & ".wdf"
            'TEMP_FILES.Add(windream_temp_search)
            ''Die File schreiben
            'My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
            'My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
            '' XML-Datei öffnen und laden
            'Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
            'Dim Reader As New System.Xml.XmlTextReader(Stream)
            '' XML-Datei initialisieren
            'Dim xml As New System.Xml.XmlDocument()
            '' XML-Datei öffnen und laden
            'xml.Load(Reader)
            'Reader.Close()
            'xml.Save(windream_temp_search)
            'If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False)
            'Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects
            'Try
            '    windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search)
            'Catch ex As Exception
            '    MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            'End Try
            'elapsed = sw.Elapsed.TotalSeconds
            'If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
            'If windreamSucheErgebnisse.Count > 0 Then
            '    Dim files_deleted As Integer = 0

            '    For Each dok As WMObject In windreamSucheErgebnisse
            '        Dim filename = "W:" & dok.aPath
            '        Try
            '            File.Delete(filename)
            '            files_deleted = +1
            '        Catch ex As Exception
            '            ClassLogger.Add("Unexpected Error in Delete windream-file '" & filename & "- Error: " & ex.Message)
            '        End Try
            '        Dim msg = "Es wurden (" & files_deleted.ToString & ") Dateien gelöscht!"
            '        If USER_LANGUAGE <> "de-DE" Then
            '            msg = "(" & files_deleted.ToString & ") files were deleted!"
            '        End If
            '        MsgBox(msg, MsgBoxStyle.Information)
            '    Next
            'Else
            '    Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
            '    If USER_LANGUAGE <> "de-DE" Then
            '        msg = "No files found for record!"
            '    End If
            '    MsgBox(msg, MsgBoxStyle.Information)
            'End If


            Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox("Error in WD-Delete Docs:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            ClassLogger.Add("Unexpected Error in Run WD Delete Docs: " & ex.Message)
        End Try
        elapsed = sw.Elapsed.TotalSeconds
        sw.Stop()
        sw.Reset()
        If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Delete Docs took " & Format(elapsed, "0.000000000") & " seconds", False)
        Cursor = Cursors.Default
    End Sub
    Private Sub RUN_WDSEARCH_GRID(Type As String)
        Me.Cursor = Cursors.WaitCursor
        Try
            Dim sw As New Stopwatch
            sw.Start()
            Dim elapsed As Double
            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, Type)
            If IsNothing(DT_RESULT) Then
                Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
                tslblWindreamView.Text = msg
                Me.Cursor = Cursors.Default
                Exit Sub
            End If
            If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse

                Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
                If Type = "ENTITY" Then
                    Dim selnode As TreeNode = TreeViewMain.SelectedNode
                    Dim Entitystring
                    If selnode.Text.Contains(" (") Then
                        Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
                    Else
                        Entitystring = selnode.Text
                    End If
                    msg = "Windream-Dokumente für Entität: " & Entitystring
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "windream-files for entity: " & Entitystring
                    End If
                Else
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "windream-files for record: " & RECORD_ID
                    End If
                End If

                tslblWindreamView.Text = msg

                If DT_RESULT.Rows.Count > 0 Then

                    Dim listcheck As New List(Of String)
                    Dim listdate As New List(Of String)
                    For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
                        ' Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
                        ' If Not IsNothing(Width) And Not IsDBNull(Width) Then
                        'Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
                        'column.Width = Width
                        'Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
                        'Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
                        'End If
                        'Liste von allen Spaltentiteln mit Checkbox erstellen
                        If rw.Item("TYPE_ID") = 2 And CBool(rw.Item("VISIBLE")) = True Then
                            listcheck.Add(rw.Item("HEADER_CAPTION"))
                        End If
                        'Liste von allen Spaltentiteln mit Checkbox erstellen
                        If rw.Item("TYPE_ID") = 3 And CBool(rw.Item("VISIBLE")) = True Then
                            listdate.Add(rw.Item("HEADER_CAPTION"))
                        End If
                    Next

                    Dim tbltemp As DataTable = DT_RESULT.Clone()
                    For Each col1 As String In listcheck
                        Dim collist As DataColumn = tbltemp.Columns(col1)
                        If Not IsNothing(collist) Then
                            collist.DataType = GetType(Boolean)
                        End If
                    Next
                    For Each col1 As String In listdate
                        Dim coldate As DataColumn = tbltemp.Columns(col1)
                        If Not IsNothing(coldate) Then
                            coldate.DataType = GetType(Date)
                        End If
                    Next
                    Try
                        tbltemp.Load(DT_RESULT.CreateDataReader)
                        DT_RESULT = tbltemp
                    Catch ex As Exception
                        ClassLogger.Add(">> Attention: Could not load converted datatable DocSearch: " & ex.Message, False)
                    End Try
                    GridControlDocSearch.DataSource = DT_RESULT
                    ' Alle Date Spalten durchgehen 
                    For Each col As String In listdate
                        Dim colDate = GridViewDoc_Search.Columns(col)
                        colDate.DisplayFormat.FormatType = FormatType.DateTime
                        colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
                    Next
                    'Jetzt die Spaltenbreiten anpassen
                    For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
                        Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
                        If Not IsNothing(Width) And Not IsDBNull(Width) Then
                            Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
                            column.Width = Width
                            'Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
                            'Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
                        End If


                    Next

                    ' Größe der Icon Column anpassen
                    GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
                    GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
                    GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
                    GridViewDoc_Search.Columns.Item("OBJECTTYPE").Visible = False
                    GridViewDoc_Search.Columns.Item("DocID").Visible = False
                    Dim changed = "Geändert"
                    Dim created = "Erstellt"

                    If USER_LANGUAGE <> "de-DE" Then
                        changed = "Changed"
                        created = "Created"
                    End If
                    Try
                        GridViewDoc_Search.Columns(created).DisplayFormat.FormatType = FormatType.DateTime
                        GridViewDoc_Search.Columns(created).DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
                        GridViewDoc_Search.Columns(changed).DisplayFormat.FormatType = FormatType.DateTime
                        GridViewDoc_Search.Columns(changed).DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
                    Catch ex As Exception
                        ClassLogger.Add(">> Attention: Could not change datetime formats Change/Create: " & ex.Message, False)
                    End Try




                    '' Den Editor Initialisieren und Optionen setzen
                    'Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
                    'CheckBoxEditorForDisplay.ValueChecked = "True"
                    'CheckBoxEditorForDisplay.ValueUnchecked = "False"
                    ''Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
                    'For Each col As String In listcheck
                    '    GridViewDoc_Search.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
                    '    If Not IsNothing(GridViewDoc_Search.Columns(col)) Then
                    '        GridViewDoc_Search.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
                    '    End If
                    'Next
                    'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False

                    If TCDetails.SelectedTabPageIndex <> 1 Then

                        TCDetails.SelectedTabPageIndex = 1
                    End If


                End If
            Else
                Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
                If Type = "ENTITY" Then
                    Dim selnode As TreeNode = TreeViewMain.SelectedNode
                    Dim Entitystring
                    If selnode.Text.Contains(" (") Then
                        Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
                    Else
                        Entitystring = selnode.Text
                    End If
                    msg = "Keine Windream-Dokumente für Entität: " & Entitystring & " gefunden"
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "No windream-files foundfor entity: " & Entitystring
                    End If
                Else
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "No windream-files found for record: " & RECORD_ID
                    End If
                End If

                tslblWindreamView.Text = msg
                GridControlDocSearch.DataSource = Nothing
                'Clear_Windream_ResultList()
            End If
            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            sw.Reset()
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
        Catch ex As Exception
            MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
        Cursor = Cursors.Default
    End Sub
    Private Function Return_SearchPattern(ByVal content As String)
        Select Case content.ToUpper
            Case "@Record-ID".ToUpper
                Return RECORD_ID
            Case "@EntityID".ToUpper
                Return ENTITY_ID
            Case "@ParentID".ToUpper
                Return PARENT_RECORDID
            Case Else
                MsgBox("Undefined pattern '" & content & "' in windream-Search Config. Please inform Your system-administrator.", MsgBoxStyle.Exclamation)
                ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
        End Select
    End Function
    'Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
    '    CheckDocView()
    'End Sub

    Sub Clear_Windream_ResultList()
        Try
            Dim sw As New Stopwatch
            sw.Start()

            'AxObjectListControl.RemoveAllColumnHeader()
            'Me.AxObjectListControl.ClearResultList()
            Dim stg As String = "windream-Dateien"
            If USER_LANGUAGE <> "de-DE" Then
                stg = "windream-files"
            End If
            TabWindream.Text = stg
            Dim elapsed As Double
            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            sw.Reset()
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Clear Result List took " & Format(elapsed, "0.000000000") & " seconds", False)
        Catch ex As Exception
            MsgBox("Unexpected Error in Clear Result List:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    Sub CheckDocView()
        'Dim _index = AxObjectListControl.GetFirstSelectedObject
        'Dim path As String = AxObjectListControl.GetObjectPath(_index)
        'path = path.Replace("?", vWLaufwerk)
        'DocViewString = path

        If WD_ShowDocs = True Then
            CloseWDDocview()
            ShowDocView()
        End If
    End Sub
    Sub ShowDocView()
        Try
            CloseWDDocview()
            DocView = Nothing
            DocView = CreateObject("WMPViewXNG.Viewer")
            ' open the viewer
            DocView.ViewFile(DocViewString)
            OpenedFileString = DocViewString
        Catch ex As Exception
            MsgBox("Error in ShowDocView:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try

    End Sub
    Sub CloseWDDocview()
        Try
            If DocView Is Nothing = False Then
                DocView.CloseView(OpenedFileString, 0)
            End If

        Catch ex As Exception
            ClassLogger.Add(" ### Error in CloseDocView")
            ClassLogger.Add("### " & ex.Message & " ###")
        End Try

    End Sub
#End Region

#Region "GridViews"
    Private Sub ButtonQuickViewCarousel_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewCarousel.Click
        GRID_TYPE = GridType.Carousel
        VIEW_ID_RUNTIME = 2
        GRID_TYPE_ID = 2
        grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel
        GridControlMain.MainView = grvwCarousel

        Load_Datafor_Entity()
    End Sub

    Private Sub ButtonQuickViewTiles_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewTiles.Click
        GRID_TYPE = GridType.Tiles
        VIEW_ID_RUNTIME = 1
        GRID_TYPE_ID = 1
        GridControlMain.MainView = grvwTiles

        Load_Datafor_Entity()
    End Sub

    Private Sub ButtonDetailView_Click(sender As Object, e As EventArgs) Handles ButtonDetailView.Click
        GRID_TYPE = GridType.Grid
        VIEW_ID_RUNTIME = 3
        GRID_TYPE_ID = 3
        GridControlMain.MainView = grvwGrid

        Load_Datafor_Entity()
    End Sub

    Private Sub ButtonSetViewAsDefault_Click(sender As Object, e As EventArgs) Handles ButtonSetViewAsDefault.Click
        Dim VIEWTYPE_ID As Integer

        Select Case GRID_TYPE
            Case GridType.Tiles
                VIEWTYPE_ID = 1
            Case GridType.Carousel
                VIEWTYPE_ID = 2
            Case GridType.Grid
                VIEWTYPE_ID = 3

        End Select
        Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID)
        If ClassDatabase.Execute_non_Query(upd, True) = True Then
            ' VIEW_ID Override zurücksetzen!!
            VIEW_ID_RUNTIME = -1
            MsgBox("Stanard-View was saved successfully!", MsgBoxStyle.Information)
        End If
    End Sub
    Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
        ' TODO: Ansicht zurücksetzen
        Try
            Dim XMLPath = Get_Grid_Layout_Filename()
            If File.Exists(XMLPath) Then
                File.Delete(XMLPath)

                Load_Entity_Data(ACT_EBENE)
            End If
        Catch ex As Exception
            MsgBox("Error in Reset Layout Grid: " & vbNewLine & ex.Message)
        End Try
    End Sub
#End Region

    Private Sub TCDetails_DragDrop(sender As Object, e As DragEventArgs) Handles TCDetails.DragDrop
        Drag_Drop(e)
    End Sub

    Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged
        Update_Status_Label(False, "")
        tsButtonEdit.Enabled = True
        If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("pos") Then
            tsButtonEdit.Enabled = False
            Load_Pos_Data()
            Load_POSGrid_Layout()
        End If
        If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
            If RIGHT_WINDREAM_FORBIDDEN = False Then
                tsButtonEdit.Enabled = False
                If RECORD_ID = 0 Then
                    Dim result As MsgBoxResult
                    Dim msg = String.Format("Wollen Sie eine Entitätsweite Suche ausführen?")

                    If USER_LANGUAGE <> "de-DE" Then
                        msg = String.Format("Would You like to run a entity-wide docsearch?")
                    End If
                    result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If result = MsgBoxResult.Yes Then
                        RUN_WDSEARCH_GRID("ENTITY")
                    End If

                Else
                    ' RUN_WD_SEARCH(WD_Suche, "RECORD")
                    RUN_WDSEARCH_GRID("RECORD")
                End If
                Load_DocGrid_Layout()
            End If
        End If
        If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then
            tsButtonEdit.Enabled = False
            Refresh_FollowUps()
            dtpFollowUp.Enabled = False
            lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
            'Check_FOLLOWUP_IsConfigured(ENTITY_ID)
        End If

        Select Case TCDetails.SelectedTabPageIndex
            Case 0
                Column_Row_Handler(0, False, True)
                'If RECORD_NEEDS_REFRESH = True Then
                '    ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
                '    '  UpdRECORD_NEEDS_REFRESH(False)
                'End If

                'Refresh_CreatedChangedRecordByID(RECORD_ID)
                ' RECORD_CHANGED = False
            Case 1 'windream-Dokumente
                BACKGROUND_HELPER.PictureAlignment = ContentAlignment.BottomRight

            Case 2
                'Refresh_FollowUps()
        End Select
    End Sub
    Private Sub Refresh_FollowUps()

        Try
            If DT_FU_ENTITY.Rows.Count > 0 Then
                grpbxFU_Profile.Enabled = True
            End If
        Catch ex As Exception
            MsgBox("Error in Refresh_FollowUps:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
#Region "Dropping Files"
    Sub Drag_Enter(e As DragEventArgs)
        If act_FormViewID <> 0 Then
            ClassDragDrop.Drag_enter(e)
        End If
    End Sub
    Sub Drag_Drop(e As DragEventArgs)
        If act_FormViewID <> 0 And RIGHT_WINDREAM_FORBIDDEN = False Then
            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
            End If
            If RECORD_CHANGED = True Then
                If Save_Record() = False Then
                    Exit Sub
                End If
            End If
            CURRENT_CONTROL_DOCTYPE_MATCH = 0
            If CONTROL_DOCTYPE_MATCH <> 0 Then
                Try
                    CURRENT_CONTROL_DOCTYPE_MATCH = ""
                    CURRENT_CONTROL_DOCTYPE_MATCH = ClassControlValues.GetControlValuesREC_CONTROL(RECORD_ID, CONTROL_DOCTYPE_MATCH)
                Catch ex As Exception
                    CURRENT_CONTROL_DOCTYPE_MATCH = 0
                    CURRENT_CONTROL_DOCTYPE_MATCH = ""
                End Try

            End If

            If e.Data.GetDataPresent(DataFormats.StringFormat) Then
                Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
                Console.WriteLine("DragDrop-Wert: " & Wert)
                If Wert.Contains("SCAN") Then
                    Dim split() = Wert.Split(";")
                    If IsNumeric(split(1)) Then
                        CURRENT_FILEID = split(1)
                        CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
                        CURRENT_RECORD_ID = RECORD_ID
                        CURRENT_FORMVIEW_ID = FORMVIEW_ID
                        frmWD_IndexFile.ShowDialog()
                        'RUN_WD_SEARCH(WD_Suche, "RECORD")
                    End If
                ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
                    CURRENT_RECORD_ID = RECORD_ID
                    If ClassDragDrop.Drop_File(e) = True Then
                        Check_Dropped_Files()
                    End If
                ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
                    CURRENT_RECORD_ID = RECORD_ID
                    If ClassDragDrop.Drop_File(e) = True Then
                        Check_Dropped_Files()
                    End If
                End If
            Else
                CURRENT_RECORD_ID = RECORD_ID
                If ClassDragDrop.Drop_File(e) = True Then
                    Check_Dropped_Files()
                End If

            End If
            'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
            If NEW_FILES_ADDED = True Then
                Me.Cursor = Cursors.WaitCursor
                If ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
                    RUN_WDSEARCH_GRID("RECORD")
                End If
            Else
                If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
            End If
            Me.Cursor = Cursors.Default
        Else
            'If RIGHT_ONLY_READ = True Then
            '    ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False)
            'End If
            If RIGHT_WINDREAM_FORBIDDEN = True Then
                ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
            End If

        End If
    End Sub
    Sub Check_Dropped_Files()
        Try
            NEW_FILES_ADDED = False
            If RECORD_CHANGED = True Then
                If Save_Record() = False Then
                    Exit Sub
                End If
            End If
            If RECORD_ID = 0 Then
                MsgBox("Please choose a record!", MsgBoxStyle.Information)
                Exit Sub
            End If
            For Each Str As Object In ClassDragDrop.files_dropped
                If Not IsNothing(Str) Then
                    Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
                    If DropType.ToString.Contains("SCAN") = False Then
                        ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
                        Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
                        TBPMO_FILES_USERTableAdapter.cmdInsert(CURRENT_WORKFILE, Environment.UserName, DropType)
                    End If
                End If

            Next
            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)
                If Not IsNothing(DT) Then
                    If DT.Rows.Count > 0 Then
                        For Each Filerow As DataRow In DT.Rows
                            'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
                            CURRENT_FILEID = Filerow.Item(0)
                            CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
                            CURRENT_RECORD_ID = RECORD_ID
                            CURRENT_FORM_ID = ENTITY_ID
                            CURRENT_FORMVIEW_ID = FORMVIEW_ID
                            If ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID & " AND WORKED = 0") = 1 Then
                                frmWD_IndexFile.ShowDialog()
                            Else
                                If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
                            End If
                        Next
                        RUN_WDSEARCH_GRID("RECORD")
                        ' RUN_WD_SEARCH(WD_Suche, "RECORD")
                    End If
                End If
            Else
                MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    Private Sub GridControlMain_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlMain.DragEnter
        Drag_Enter(e)
    End Sub
    Private Sub pnlDetails_DragEnter(sender As Object, e As DragEventArgs) Handles pnlDetails.DragEnter
        Drag_Enter(e)
    End Sub
    Private Sub GridControlMain_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlMain.DragDrop
        Drag_Drop(e)
    End Sub
    Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) Handles pnlDetails.DragDrop
        Drag_Drop(e)
    End Sub
    Private Sub TCDetails_DragEnter(sender As Object, e As DragEventArgs) Handles TCDetails.DragEnter
        Drag_Enter(e)
    End Sub
    Private Sub GridControlDocSearch_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragEnter
        Drag_Enter(e)
    End Sub
#End Region

#Region "Follow Up"
    Private Sub ListViewFollowUps_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUps.SelectedIndexChanged
        If Me.ListViewFollowUps.SelectedItems.Count > 0 Then
            dtpFollowUp.Enabled = False
            FOLL_UP_ID = ListViewFollowUps.SelectedItems(0).Text
            lblFollowUp_save.Visible = False
            For Each DR As DataRow In DT_FU_ENTITY.Rows
                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"), RECORD_ID)
                    If Not IsNothing(datevalue) Then
                        dtpFollowUp.Enabled = True
                        If datevalue = "00:00:00" Then
                            dtpFollowUp.Value = ClassHelper.Convert_Date(Now, CURRENT_DATE_FORMAT)
                        End If
                        FOLL_UP_RECORD_DEFINED = True
                        Try
                            dtpFollowUp.Value = ClassHelper.Convert_Date(datevalue, CURRENT_DATE_FORMAT)
                        Catch ex As Exception
                            dtpFollowUp.Value = ClassHelper.Convert_Date(Now, CURRENT_DATE_FORMAT)
                        End Try

                    Else
                        dtpFollowUp.Value = ClassHelper.Convert_Date(Now, CURRENT_DATE_FORMAT)
                        FOLL_UP_RECORD_DEFINED = False
                    End If

                    Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True)
                    If Not IsNothing(caption) Then
                        lblWiedervorlage_Control.Text = CStr(caption)

                    Else
                        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"), RECORD_ID)
                    If Not IsNothing(checkvalue) Then
                        chkFollowUp.Checked = CBool(checkvalue)
                    Else
                        chkFollowUp.Checked = False
                    End If
                    Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_SCREEN_ID)
                    Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
                    If ctrl_screen_id > 0 Then
                        SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{2}'", ctrl_screen_id, USER_LANGUAGE)
                        Dim captionCheck = ClassDatabase.Execute_Scalar(SQL, True)
                        If Not IsNothing(captionCheck) Then
                            chkFollowUp.Text = CStr(captionCheck)
                        End If
                    End If




                    Load_FUUser(FOLL_UP_ID)

                End If
            Next
        End If
    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 = " & 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
            ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
        Catch ex As Exception
            MsgBox("Error in Load Follow Up User:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged
        If ENTITY_LOADED = False = False Then
            Exit Sub
        End If
        If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value) = True Then
            lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString
            lblFollowUp_save.Visible = True
            'UpdRECORD_NEEDS_REFRESH(True)
        Else
            lblFollowUp_save.Visible = False
            'UpdRECORD_NEEDS_REFRESH(False)
        End If
    End Sub

    Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged
        If ENTITY_LOADED = False Then
            Exit Sub
        End If
        If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString) = True Then
            lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString
            lblFollowUp_save.Visible = True
            ' UpdRECORD_NEEDS_REFRESH(True)
        Else
            lblFollowUp_save.Visible = False
            'UpdRECORD_NEEDS_REFRESH(False)
        End If
    End Sub

    Private Function Check_FOLLOWUP_IsConfigured(ENTITY_ID As Integer)
        Try

            Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where  CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")"
            DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql)
            If DT_FU_ENTITY.Rows.Count > 0 Then
                'Die Userauswahl füllen
                Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL AND MODULE_RECORD_ORG = 1 order by USERNAME")
                cmbFollowUpUser.DataSource = DTUser
                cmbFollowUpUser.DisplayMember = DTUser.Columns(1).ColumnName
                cmbFollowUpUser.ValueMember = DTUser.Columns(0).ColumnName
                TabFollowUp.PageVisible = True
                FOLLOW_UPisActive = True

                'Die Wiedervorlageprofile in den Listview laden
                ListViewFollowUps.Items.Clear()
                Dim anz As Integer = 0
                For Each DR As DataRow In DT_FU_ENTITY.Rows
                    Dim name = DR.Item("NAME")
                    ListViewFollowUps.Items.Add(DR.Item("GUID"))
                    ListViewFollowUps.Items(anz).SubItems.Add(name)
                    anz += 1
                Next

            Else
                FOLLOW_UPisActive = False
                TabFollowUp.PageVisible = False
            End If
        Catch ex As Exception
            MsgBox("Error in Check Follow Up:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            windream_Docshow = False
        End Try
    End Function
#End Region
#Region "Tasks"
    'Private Sub tsButtonShowWorkflowTasks_Click(sender As Object, e As EventArgs) Handles tsButtonShowWorkflowTasks.Click
    '    If RECORD_ID > 0 Then
    '        CURRENT_RECORD_ID = RECORD_ID
    '        CURRENT_FORM_ID = ENTITY_ID
    '        frmTask_Editor.ShowDialog()
    '        Show_act_WFTask()
    '        Refresh_TaskOverview()
    '    End If
    'End Sub

    Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click
        ClassJumpRecord.JumpToRecord(2, RECORD_ID)
        JUMP_RECORD_ID = 0
    End Sub


    Sub Refresh_TaskOverview()
        Dim frmCollection As New FormCollection()
        frmCollection = Application.OpenForms()
        If frmTask_Overview.IsHandleCreated Then
            If Sett_TaskOverviewKeepInFront = True Then
                frmTask_Overview.Refresh()
            End If
            'Else
            '    Console.WriteLine("frmTaskOverview NICHT geladen")
        End If
    End Sub
    Sub Show_act_WFTask()
        Try
            Dim query = From table In DD_DMSDataSet.VWPMO_WF_ACTIVE.AsEnumerable()
                         Select table Where table.Item("ENTITY_ID") = ENTITY_ID
            Dim Entity_rows = query.ToList()
            Dim exists As Boolean = False
            For Each _row In Entity_rows
                If _row.Item("RECORD_ID") = RECORD_ID Then
                    CURRENT_TASK_ID = _row.Item("WF_TASK_ID")
                    Dim text = "Task: " & _row.Item("WF_TITLE")
                    text += " - " & _row.Item("STATE_TITLE")
                    text += " - " & _row.Item("DUE_DATE")
                    tsslblWorkflowstate.Text = text
                    tsslblWorkflowstate.Visible = True
                    If _MANUAL_WORKFLOW = True Then
                        CreateWorkflowTasksToolStripMenuItem.Visible = True
                    Else
                        CreateWorkflowTasksToolStripMenuItem.Visible = False
                    End If
                    'Direkten Zugriff auf RecordView Workflow erlauben
                    tsButtonShowTaskOverview.Visible = True
                    tsButtonShowTaskOverview.Enabled = True
                    Dim Colorstring = _row.Item("COLOR")
                    If IsDBNull(Colorstring) Then
                        Exit Sub
                    End If
                    If Colorstring <> "" Then
                        'grvwSelection.Appearance.FocusedRow.BackColor = ColorTranslator.FromWin32(CInt(Colorstring))
                        'grvwSelection.Appearance.FocusedRow.ForeColor = Color.Yellow
                        tsslblWorkflowstate.BackColor = ColorTranslator.FromWin32(CInt(Colorstring))
                        Select Case tsslblWorkflowstate.BackColor
                            Case Color.Red
                                tsslblWorkflowstate.ForeColor = Color.White
                        End Select
                    End If
                    exists = True
                End If
            Next
            tsslblWorkflowstate.BackColor = Color.Black
            If exists = False Then
                'Keine Workflows....also auch keinen Zugriff geben
                tsButtonShowTaskOverview.Visible = False
                If _MANUAL_WORKFLOW = True Then
                    CreateWorkflowTasksToolStripMenuItem.Visible = True
                End If
                tsslblWorkflowstate.Visible = False
            End If

        Catch ex As Exception
            MsgBox("Error in Show act WFTask: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
#End Region

    Private Sub ResetEbenenAuswahlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResetEbenenAuswahlToolStripMenuItem.Click
        ACT_EBENE = 0
        CURRENT_ACT_LEVEL = 0
        ACT_EBENE_STRING = ""
        EBENE1_ENTITY = ""
        EBENE1_RECID = 0
        EBENE2_ENTITY = ""
        EBENE2_RECID = 0
        EBENE3_ENTITY = ""
        EBENE3_RECID = 0
        NavPane.Categories.Clear()
        Load_Tree_View(CONSTRUCTORID)
    End Sub

    Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click
        If PARENT_ENTITYID = 0 Then
            Exit Sub
        End If
        CURRENT_ENTITYSTRING = _ENTITYSTRING
        CURRENT_FORM_ID = ENTITY_ID
        frmWD_EntityImport.ShowDialog()
    End Sub


    Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
        ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
        RUN_WDSEARCH_GRID("RECORD")
        ' RUN_WD_SEARCH(WD_Suche, "RECORD")
    End Sub

    Private Sub WorkflowTasksNeuErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CreateWorkflowTasksToolStripMenuItem.Click
        Dim result As MsgBoxResult
        Dim stg, caption As String
        If USER_LANGUAGE = "de-DE" Then
            stg = "Wollen Sie die Workflowtasks für diesen Datensatz erzeugen? Alte Workflows werden gelöscht!"
            caption = "Bestätigung erforderlich:"
        Else
            stg = "Do You really want to create workflowtasks for this record? Existing workflows will be deleted!"
            caption = "Confirmation needed:"
        End If
        result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.Yes Then
            Try
                CURRENT_FORM_ID = ENTITY_ID
                Dim sql = "EXEC	PRPMO_CREATE_WF_TASKS " & CURRENT_FORM_ID & ", " & RECORD_ID
                If ClassDatabase.Execute_non_Query(sql) Then
                    VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
                    Show_act_WFTask()
                    If USER_LANGUAGE = "de-DE" Then
                        stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
                        caption = "Erfolgreich:"
                    Else
                        stg = "Workflows created! Would You like to show the Workflow-Overview?"
                        caption = "Success:"
                    End If
                    result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If result = MsgBoxResult.Yes Then
                        ClassJumpRecord.JumpToRecord(2, RECORD_ID)
                        JUMP_RECORD_ID = 0
                    End If
                Else
                    If USER_LANGUAGE = "de-DE" Then
                        stg = "Die Workflows konnten nicht erzeugt werden. Bitte prüfen Sie die Log-Datei!"
                    Else
                        stg = "Error in Creating Workflow-Tasks. Please check the logfile!"
                    End If
                    MsgBox(stg, MsgBoxStyle.Exclamation)
                End If
            Catch ex As Exception
                MsgBox("Unexpected Error in Create Workflowtasks Record: " & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If

    End Sub

    Private Sub ZeigeRecordLogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeigeRecordLogsToolStripMenuItem.Click
        CURRENT_RECORD_ID = RECORD_ID
        frmRecord_Changes.ShowDialog()
    End Sub

    Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
        Try
            Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
            If SelectedNode IsNot Nothing Then
                Dim FormId As Integer = Return_ENTITY_FOR_TAG(SelectedNode.Tag)
                If FormId > 0 Then
                    CURRENT_FORM_ID = FormId
                    OpenFormLevelDesigner()
                End If
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub ButtonExportToExcel_Click(sender As Object, e As EventArgs) Handles ButtonExportToExcel.Click
        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = "Excel File|*.xlsx"
        saveFileDialog1.Title = "Export to Excel:"
        saveFileDialog1.ShowDialog()
        If saveFileDialog1.FileName <> "" Then
            Cursor = Cursors.WaitCursor
            GridControlMain.MainView.ExportToXlsx(saveFileDialog1.FileName)
            Dim result As MsgBoxResult
            Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")

            If USER_LANGUAGE <> "de-DE" Then
                msg = String.Format("File was created. Do You want to open excel?")
            End If
            result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = MsgBoxResult.Yes Then
                Process.Start(saveFileDialog1.FileName)
            End If
        End If
        Cursor = Cursors.Default
    End Sub


    Private Sub frmForm_Constructor_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim sw As Stopwatch = Stopwatch.StartNew()
        Dim elapsed As Double
        Me.BringToFront()
        ' LoadLayouts()
        Load_Level1()
        Jump_Record()
        sw.Stop()
        elapsed = sw.Elapsed.TotalSeconds
        If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Form Shown took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
    End Sub
    Sub Jump_Record()
        Try
            Dim sw As Stopwatch = Stopwatch.StartNew()
            Dim elapsed As Double
            If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Now.ToString & " Jump_Record", False)
            If JUMP_RECORD_ID > 0 Then
                Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
                Dim FormID = ClassDatabase.Execute_Scalar(sql, True)
                If FormID > 0 Then
                    Dim n As TreeNode
                    For Each n In TreeViewMain.Nodes
                        CheckNode(n, FormID)
                    Next
                End If
            End If

            ' wurde nicht zurückgesetzt, also 
            ' wurde der record nicht gefunden
            If JUMP_RECORD_ID <> 0 Then
                MsgBox("Fehler in Jump Record: " & vbNewLine & "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden")
            End If


            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Jump_Record took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
        Catch ex As Exception
            MsgBox("Unexpected error in jump-Record: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub CheckNode(ByVal n As TreeNode, FormID As Integer)
        Dim aNode As TreeNode

        If CInt(Return_ENTITY_FOR_TAG(n.Tag)) = FormID Then
            'Gefunden also selektieren
            TreeViewMain.SelectedNode = n
            TreeViewMain.SelectedNode.EnsureVisible()
            TreeViewMain.Select()

            'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
            'für Carousel und Tiles markieren wir den Record
            LocateRecordById(JUMP_RECORD_ID)

            ' Jump Record-ID wieder zurücksetzen
            JUMP_RECORD_ID = 0
            Exit Sub
        End If

        For Each aNode In n.Nodes
            If CInt(Return_ENTITY_FOR_TAG(aNode.Tag)) = FormID Then
                'Gefunden also selektieren
                TreeViewMain.SelectedNode = aNode
                TreeViewMain.SelectedNode.EnsureVisible()
                TreeViewMain.Select()

                'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
                'für Carousel und Tiles markieren wir den Record
                LocateRecordById(JUMP_RECORD_ID)

                ' Jump Record-ID wieder zurücksetzen
                JUMP_RECORD_ID = 0
                Exit For
                Exit Sub
            End If
            CheckNode(aNode, FormID)
        Next
    End Sub

    Public Sub LocateRecordById(RecordId As Integer)
        If GRID_TYPE = GridType.Grid Then
            Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RecordId)
            grvwGrid.FocusedRowHandle = rowHandle
        ElseIf GRID_TYPE = GridType.Carousel Then
            Dim rowHandle = grvwCarousel.LocateByValue(0, grvwCarousel.Columns("Record-ID"), RecordId)
            grvwCarousel.FocusedRowHandle = rowHandle
        ElseIf GRID_TYPE = GridType.Tiles Then
            Dim rowHandle = grvwTiles.LocateByValue(0, grvwTiles.Columns("Record-ID"), RecordId)
            grvwTiles.FocusedRowHandle = rowHandle
        End If
    End Sub


    Sub Load_Templates()
        Try
            Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & ENTITY_ID & " ORDER BY TEMPLATE_NAME"
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
            If Not IsNothing(DT) Then
                If DT.Rows.Count > 0 Then
                    OfficeVorlagenToolStripMenuItem.Enabled = True
                    OfficeVorlagenToolStripMenuItem.DropDownItems.Clear()
                    For Each row As DataRow In DT.Rows
                        Dim item As ToolStripMenuItem = OfficeVorlagenToolStripMenuItem
                        Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(row.Item("TEMPLATE_NAME").ToString, Nothing, AddressOf TemplateItem_Click)
                        newItem.Tag = row.Item("TEMPLATE_ID")
                        item.DropDownItems.Add(newItem) '                        subitem.DropDownItems.Add(newItem)
                    Next
                Else
                    OfficeVorlagenToolStripMenuItem.Enabled = False
                End If
            End If
        Catch ex As Exception
            MsgBox("Error in Load_Templates:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    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 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 = " & 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, RECORD_ID) = True Then
                        RUN_WDSEARCH_GRID("RECORD")
                        ' RUN_WD_SEARCH(WD_Suche, "RECORD")
                        Update_Status_Label(True, "Template file imported to windream", EditState.Insert)
                    End If
                    Cursor = Cursors.Default
                Else
                    Dim msg = "Bitte wählen Sie nochmal einen Datensatz aus."
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "Please choose a record again."
                    End If
                    MsgBox(msg, MsgBoxStyle.Exclamation)
                End If
            End If
        Else
            Dim msg = "Bitte wählen Sie zuerst einen Datensatz aus."
            If USER_LANGUAGE <> "de-DE" Then
                msg = "Please choose a record first."
            End If
            MsgBox(msg, MsgBoxStyle.Exclamation)
        End If


    End Sub

    Sub Load_Level1()
        Try

            Dim sw As Stopwatch = Stopwatch.StartNew()
            Dim elapsed As Double

            ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
            Dim result = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
                         Select form
                         Order By form.Item("SEQUENCE")
                         Where form.Item("PARENT_ID") = 0

            If result.Count >= 1 Then
                Dim tn As TreeNode = TreeViewMain.Nodes(0)
                TreeViewMain.SelectedNode = tn
                TreeViewMain.Select()
            End If

            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load_Level1 took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
        Catch ex As Exception
            MsgBox("Error in Load_Level1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub


    ' Call the procedure using the top nodes of the treeview.
    Private Sub CallRecursive(ByVal aTreeView As TreeView)

    End Sub


    Private Sub grvwGridPos_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
        Try
            Dim column = e.Column.FieldName
            Dim sql = String.Format("select guid from TBPMO_CONTROL where COL_NAME = '{0}' and FORM_ID = {1}", column, POS_ENTITY)
            Dim controlid = ClassDatabase.Execute_Scalar(sql, True)
            If Not IsNothing(controlid) Then
                'Überprüfen ob schon value vorhanden
                sql = String.Format("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND FORM_ID = {1} AND CONTROL_COLUMN = '{2}' AND RECORD_ID = {3}", controlid, POS_ENTITY, column, POS_RECORD_ID)
                Dim cId As Integer = ClassDatabase.Execute_Scalar(sql)
                If IsNothing(POS_RECORD_ID) Or IsDBNull(POS_RECORD_ID) Then
                    If ClassControlCommandsUI.CreateRecord(POS_ENTITY) = True Then
                        Dim recid = ClassControlCommandsUI.GetLastRecord
                        If Not IsNothing(recid) Then
                            'Die neue Record-ID setzen
                            POS_RECORD_ID = recid
                            ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
                        Else
                            MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
                        End If
                    End If
                End If
                ' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination
                If cId = 0 Then
                    ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value)
                    Update_Status_Label(True, "Record was added!", EditState.Insert)
                Else
                    ClassControlCommandsUI.UpdateControlValue(controlid, POS_RECORD_ID, e.Value)
                    Update_Status_Label(True, "Record was updated!", EditState.Update)
                End If
            Else
                Update_Status_Label(False)
            End If
        Catch ex As Exception
            MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try



    End Sub

    Private Sub grvwGridPos_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles grvwGridPos.FocusedRowChanged
        Try
            If TCDetails.SelectedTabPage.Text.StartsWith("Pos") Then
                Dim Grid_RecordID = Get_Focused_Row_Cell_Value_pos("Record-ID")
                If Not IsNothing(Grid_RecordID) Then
                    POS_RECORD_ID = Grid_RecordID
                    'SELECTED_RECORD_ID = POS_RECORD_ID
                    'RECORD_ID = POS_RECORD_ID
                    'Update_Record_Label(SELECTED_RECORD_ID)
                End If
            End If

        Catch ex As Exception
            MsgBox("Error in grvwGridPos_FocusedRowChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub grvwGridPos_RowUpdated(sender As Object, e As RowObjectEventArgs) Handles grvwGridPos.RowUpdated

    End Sub

    Private Sub GridControlPos_Leave(sender As Object, e As EventArgs) Handles GridControlPos.Leave
        Save_POSGrid_Layout()
    End Sub

    Private Sub grvwGridPos_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGridPos.RowStyle
        If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
            e.Appearance.BackColor = Color.Orange 'LemonChiffon
        End If
    End Sub

    Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
        If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
            e.Appearance.BackColor = Color.Orange
        Else
            If GRID_TYPE = GridType.Grid Then
                If e.RowHandle = -1 Then
                    Exit Sub
                End If
                Try
                    Dim rowCellValue = grvwGrid.GetRowCellValue(e.RowHandle, "ROW_COLOR")
                    If rowCellValue <> "" Then
                        Dim ColorRow As Color
                        Try
                            ColorRow = Color.FromName(rowCellValue)
                        Catch ex As Exception
                            ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
                            Exit Sub
                        End Try
                        'Dim c As Color = DirectCast(rowCellValue, Color)
                        e.Appearance.BackColor = ColorRow
                        e.HighPriority = True
                    End If
                Catch ex As Exception
                    ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
                End Try
            End If
        End If
    End Sub
    Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            RightMouse_Clicked = True
        Else
            RightMouse_Clicked = False
        End If
    End Sub

    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 & ", " & 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)
                End If
            Catch ex As Exception
                MsgBox("Error in Add User2FollowUp_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub

    Private Sub btnRemoveUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnRemoveUser_FollowUp.Click
        If ListBoxUser2Profile.SelectedIndex <> -1 Then
            Try
                Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE GUID = " & ListBoxUser2Profile.SelectedValue
                If ClassDatabase.Execute_non_Query(del, True) = True Then
                    Update_Status_Label(True, "User removed from Follow Up", EditState.Update)
                    Load_FUUser(FOLL_UP_ID)
                End If
            Catch ex As Exception
                MsgBox("Error in Delete Userlink FollowUp:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub

    Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
        Show_Verknuepfungen()
    End Sub
    Sub Show_Verknuepfungen()
        Dim result As MsgBoxResult
        Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "Would You like to change the parent-record?"
        End If
        result = MessageBox.Show(msg, "Change parent-record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result <> MsgBoxResult.Yes Then
            Exit Sub
        End If


        Dim sql
        sql = "select * from VWTEMP_PMO_FORM" & PARENT_ENTITYID.ToString
        CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
        frmChooseParentRecord.ShowDialog()



        If CURRENT_PARENT_RECORD_ID = 0 Then
            MsgBox("No Parent-Record selected. Changing Process will be terminated", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        Dim del = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID
        If ClassDatabase.Execute_non_Query(del, True) = False Then
            MsgBox("Error in deleting old Record-Link. Check the logfile", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        If ClassControlCommandsUI.ConnectRecord(CURRENT_PARENT_RECORD_ID, RECORD_ID, "ReLInk ENTITY " & ENTITY_ID.ToString) = True Then
            'Save_GridViewParentEntityLayout()
            msg = "Die Parent-Entität wurde erfolgreich aktualisiert!"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "The Parent-Record was changed successful!"
            End If
            MsgBox(msg, MsgBoxStyle.Information)
            Load_Entity_Data_Only()
        End If
    End Sub
    Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
        Dim result As MsgBoxResult
        Dim msg = "Möchten Sie den Datensatz wirklich kopieren?"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "Would You like to copy the record?"
        End If
        result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.Yes Then
            Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName)
            If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
                Load_Entity_Data(ACT_EBENE)
            End If
        End If
    End Sub

    Private Sub DatenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenNeuLadenToolStripMenuItem.Click
        Load_Datafor_Entity()
    End Sub

    Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click
        Dim result As MsgBoxResult
        Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
        End If
        result = MessageBox.Show(msg, "Clear cache:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.Yes Then
            Try
                Cursor = Cursors.WaitCursor
                CURRENT_FORM_ID = ENTITY_ID
                ClassControlValueCache.ClearCache()
                DisableEditMode()
                Load_Entity_Data(ACT_EBENE)
                RECORD_CHANGED = False
            Catch ex As Exception
                MsgBox("Unexpected Error in Clear Cache:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Finally
                Cursor = Cursors.Default
            End Try
        End If
    End Sub

    Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged
        SET_ROWCOUNT_STRING()
    End Sub
    Sub SET_ROWCOUNT_STRING()
        Dim selnode As TreeNode = TreeViewMain.SelectedNode
        Dim origtext As String = selnode.Text
        If origtext.Contains(" (") Then
            Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
            selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount)
        Else
            selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount)
        End If
    End Sub
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    End Sub

    'Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged
    '    Console.WriteLine("CausesValidationChanged")
    'End Sub

    'Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged
    '    Console.WriteLine("SettingFlagChanged")
    'End Sub

    'Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated
    '    Console.WriteLine("Validated")
    'End Sub

    Private Sub tslblLocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblLocked.VisibleChanged
        If tslblLocked.Visible = True Then
            Dim msg = "Nur lesenden Zugriff"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "Record is read only"
            End If
            tslblLocked.Text = msg
        End If
    End Sub

    Private Sub tsmi_RecordDelete_Click(sender As Object, e As EventArgs) Handles tsmi_RecordDelete.Click
        Delete_Record()
    End Sub

    Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
        If RESULT_DOC_PATH <> Nothing Then
            Try
                Dim selectedfile(0) As String

                selectedfile(0) = RESULT_DOC_PATH

                Dim dataobj As New DataObject

                dataobj.SetData(DataFormats.FileDrop, True, selectedfile)

                Clipboard.Clear()
                Clipboard.SetDataObject(dataobj, True)
            Catch ex As Exception
                MsgBox("Unexpected Error in Copy file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
            Cursor = Cursors.Default
        End If
    End Sub

    Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
        Get_Doc_Items()
    End Sub
    Sub Get_Doc_Items()
        Try
            RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
        Catch ex As Exception
            ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_DOC_PATH: " & ex.Message, False)
            RESULT_DOC_PATH = Nothing
        End Try
        Try
            RESULT_OBJECTTYPE = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("OBJECTTYPE"))
        Catch ex As Exception
            ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_OBJECTTYPE: " & ex.Message, False)
            RESULT_OBJECTTYPE = ""
        End Try
        Try
            RESULT_INWORK = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("in work?"))
        Catch ex As Exception
            ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_INWORK: " & ex.Message, False)
            RESULT_INWORK = ""
        End Try
        Try
            RESULT_DOC_ID = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("DocID"))
        Catch ex As Exception
            ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_DOC_ID: " & ex.Message, False)
            RESULT_DOC_ID = Nothing
        End Try
        Try
            RESULT_DISPLAYNAME = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("Displayname"))
        Catch ex As Exception
            RESULT_DISPLAYNAME = ""
        End Try
    End Sub

    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
        If RESULT_DOC_PATH <> Nothing Then
            Dim msg = "Wollen Sie nur die Verknüpfung der Datei entfernen?" & vbNewLine & "Datei bleibt im DMS/Archiv/Explorer erhalten!"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "Would You like to delete only the references?" & vbNewLine & "File will stay in ECM/Archive/Explorer!"
            End If
            Dim result As MsgBoxResult
            result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = MsgBoxResult.Yes Then
                Try
                    Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & RESULT_OBJECTTYPE & "'")
                    If Not IsNothing(DT_INDICES) Then
                        If DT_INDICES.Rows.Count = 1 Then
                            'Record-Links entfernen
                            If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
                                'ENTITY-Links entfernen
                                If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
                                    Dim del = "DELETE FROM TBPMO_DOC_RECORD_LINK WHERE DocID = " & RESULT_DOC_ID
                                    If ClassDatabase.Execute_non_Query(del) = True Then
                                        del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
                                        If ClassDatabase.Execute_non_Query(del) = True Then
                                            ClassHelper.InsertEssential_Log(RESULT_DOC_ID, "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
                                            RUN_WDSEARCH_GRID("RECORD")
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                Catch ex As Exception
                    MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
            Else
                msg = "Sind Sie sicher, dass Sie die Datei " & vbNewLine & RESULT_DOC_PATH & vbNewLine & "endgültig löschen wollen?"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "Are You sure You want to permanently delete this file?" & vbNewLine & RESULT_DOC_PATH
                End If
                Dim result1 As MsgBoxResult
                result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If result1 = MsgBoxResult.Yes Then
                    Try
                        If Not IsNothing(RESULT_DOC_ID) Then
                            If ClassWindream.Delete_WDFile(RESULT_DOC_PATH) = True Then
                                If ClassFileResult.Delete_ResultFile(RESULT_DOC_ID) = True Then
                                    ClassHelper.InsertEssential_Log(RESULT_DOC_ID, "DOC-ID", "FILE DELETED BY USER")
                                    RUN_WDSEARCH_GRID("RECORD")
                                End If
                            End If
                        End If
                    Catch ex As Exception
                        MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    End Try
                End If
            End If
            
        End If

    End Sub

    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
        If RESULT_DOC_PATH <> Nothing Then
            Cursor = Cursors.WaitCursor
            Dim sei As New SHELLEXECUTEINFO
            sei.cbSize = Marshal.SizeOf(sei)
            sei.lpVerb = "properties"
            sei.lpFile = RESULT_DOC_PATH
            sei.nShow = SW_SHOW
            sei.fMask = SEE_MASK_INVOKEIDLIST
            If Not ShellExecuteEx(sei) Then
                Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
                MsgBox("Unexpected Error in Open file propertys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End If
        End If
        Cursor = Cursors.Default
    End Sub

    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
        ClassHelper.File_open(RESULT_DOC_PATH, RESULT_DOC_ID)
    End Sub
    Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
        Get_Doc_Items()
        ClassHelper.File_open(RESULT_DOC_PATH, RESULT_DOC_ID)
    End Sub

    Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave
        Save_DocGrid_Layout()
    End Sub

    Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
        Drag_Drop(e)
    End Sub

    Private Sub tslblFileslocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblFileslocked.VisibleChanged
        If tslblFileslocked.Visible = True Then
            Dim msg = "Kein Dateizugriff"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "File-access not granted"
            End If
            tslblFileslocked.Text = msg
        End If
    End Sub

    Private Sub tsButtonCancel_Click(sender As Object, e As EventArgs) Handles tsButtonCancel.Click
        If CtrlCommandUI.IsInsert = True Then
            ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
        End If
        tsButtonCancel.Visible = False
        tsButtonAdd.Enabled = True
        CtrlCommandUI.IsInsert = False
        RECORD_CHANGED = False

        ' Den derzeitigen Record Neuladen
        Column_Row_Handler()
    End Sub

    Private Sub tsbtnRedo_Click(sender As Object, e As EventArgs) Handles tsbtnRedo.Click
        Me.Cursor = Cursors.WaitCursor
        Dim proc = String.Format("EXEC PRPMO_REDO_RECORD_CHANGES {0}", RECORD_ID)
        If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
            RECORD_ID = 0
            Column_Row_Handler()
            Me.Cursor = Cursors.Default
        End If

    End Sub

#Region "TrySave Funktionen"
    Public Function TrySave_RequiredControlsFilled() As Boolean
        Dim missingValues As New List(Of String)
        missingValues = ClassControlValues.CheckRequiredControlValues(CtrlBuilder.MasterPanel.Controls)

        If missingValues.Count > 0 Then
            Dim RequiredControlNames = String.Join(vbNewLine, missingValues)

            If (USER_LANGUAGE = "de-DE") Then
                Dim message = String.Format("Die folgenden Steuerelemente müssen ausgefüllt sein: {0}{1}", vbNewLine, RequiredControlNames)
                MessageBox.Show(message, "Muss-Felder ausfüllen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Else
                Dim message = String.Format("The following controls must be filled with values: {0}{1}", vbNewLine, RequiredControlNames)
                MessageBox.Show(message, "Fill Required Controls", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If

            Focus_Control(missingValues.First())

            ' Muss-Felder sind noch nicht ausgefüllt worden
            Return False
        Else
            ' Muss-Felder sind alle ausgefüllt
            Return True
        End If
    End Function

    ''' <summary>
    ''' Überprüft beim manuellen Speichern, ob Datensatz verändert wurde und
    ''' ob alle Muss-Felder ausgefüllt wurden
    ''' </summary>
    ''' <returns>
    ''' Gibt False zurück, wenn nicht alle Muss-Felder gefüllt wurde,
    ''' ansonsten True
    ''' </returns>
    Public Function TrySave_User() As Boolean
        Try
            'EDIT_STATE = EditState.None
            'Update_Status_Label(False)

            If RECORD_CHANGED = False Then
                ' Datensatz wurde nicht verändert
                Return True
            End If

            Dim RequiredControlsFilled As Boolean = TrySave_RequiredControlsFilled()

            If RequiredControlsFilled = True Then
                TrySave_DoSave()

                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            MessageBox.Show("Error in TrySave_User: " & vbNewLine & ex.Message)
            Return False
        End Try
    End Function

    Public Sub TrySave_DoSave()
        ' Record Speichern
        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
        ' Status anzeigen
        Update_Status_Label(True, ResultMessage)
        'Jetzt die für die Entität notwendigen Prroceduren ausführen
        Customer_Run_Procedures()
        ' RECORD_CHANGED zurücksetzen
        RECORD_CHANGED = False
    End Sub

    ''' <summary>
    ''' Fragt den Benutzer beim Datensatzwechsel, ob Änderungen gespeichert werden sollen. Gibt False zurück, wenn Mussfelder ausgefüllt werden müssen, ansonsten True.
    ''' </summary>
    Public Function TrySave_Automatic() As Boolean
        Try
            EDIT_STATE = EditState.None
            'Update_Status_Label(False)

            If RECORD_CHANGED = True Then
                Dim ShouldSave As DialogResult
                If USER_LANGUAGE = "de-DE" Then
                    ShouldSave = MessageBox.Show("Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                Else
                    ShouldSave = MessageBox.Show("There are unsaved changes. Would You like to save?", "Unsaved changes", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                End If

                If ShouldSave = DialogResult.Yes Then
                    If CtrlCommandUI.IsInsert Then
                        EDIT_STATE = EditState.None
                        ' 
                    End If

                    Dim RequiredControlsFilled As Boolean = TrySave_RequiredControlsFilled()

                    If RequiredControlsFilled = True Then
                        ' Änderungen sollen gespeichert werden,
                        ' Muss-Felder sind alle ausgefüllt
                        TrySave_DoSave()
                        ' Hinzufügen Button wieder aktivieren
                        tsButtonAdd.Enabled = True
                        If CtrlCommandUI.IsInsert Then
                            Lock_RecordControls(True)
                        End If
                        Return True
                    Else
                        ' Änderungen sollen gespeichert werden, 
                        ' aber Muss-Felder sind noch nicht ausgefüllt worden
                        Return False
                    End If
                Else
                    ' Angelegten Record löschen
                    If CtrlCommandUI.IsInsert Then
                        ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
                    End If

                    ' Änderungen sollen nicht gespeichert werden
                    RECORD_CHANGED = False
                    tsButtonCancel.Visible = False
                    ' Hinzufügen Button wieder aktivieren
                    tsButtonAdd.Enabled = True

                    Return True
                End If
            Else

                ' Datensatz wurde nicht verändert
                Return True
            End If
        Catch ex As Exception
            MessageBox.Show("Error in TrySave_Automatic: " & vbNewLine & ex.Message)
            Return False
        End Try
    End Function
#End Region


    Private Sub grvwGrid_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGrid.CellValueChanged

    End Sub

    Private Sub SucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem.Click
        grvwGrid.ShowFindPanel()
    End Sub

    Private Sub MassenänderungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassenänderungToolStripMenuItem.Click
        Try
            Dim list As New ArrayList
            Dim collist As New ArrayList
            For i = 0 To grvwGrid.RowCount
                Dim recid = grvwGrid.GetRowCellValue(i, "Record-ID")
                If Not IsNothing(recid) Then
                    list.Add(recid)
                End If
            Next
            For Each col As DevExpress.XtraGrid.Columns.GridColumn In grvwGrid.VisibleColumns
                Dim name = col.Name
                If name.StartsWith("col") Then
                    name = name.Substring(3)
                End If
                collist.Add(name)
            Next
            MASS_COLUMN_LIST = collist
            MASS_RECORD_IDs2CHANGE = list
            Save_Grid_Layout()
            frmMass_Change.ShowDialog()
            If SUCCESSFULL = True Then
                Load_Datafor_Entity()
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in MassChange Collector:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub GridViewDoc_Search_ColumnWidthChanged(sender As Object, e As ColumnEventArgs) Handles GridViewDoc_Search.ColumnWidthChanged
        Try
            'If USER_RESULTLIST_CONFIG_GUID = 0 Then
            '    Dim insert = String.Format("INSERT INTO TBPMO_USER_WINDREAM_RESULTLIST_CONFIG (USER_ID,CONSTRUCTOR_DETAIL_ID,COLUMN1,COLUMN1_WIDTH,COLUMN2,COLUMN2_WIDTH,COLUMN3,COLUMN3_WIDTH,COLUMN4,COLUMN4_WIDTH,COLUMN5,COLUMN5_WIDTH,COLUMN6,COLUMN6_WIDTH,COLUMN7,COLUMN7_WIDTH,ADDED_WHO)" & _
            '                               " SELECT {0},{1},COLUMN1,COLUMN1_WIDTH,COLUMN2,COLUMN2_WIDTH,COLUMN3,COLUMN3_WIDTH,COLUMN4,COLUMN4_WIDTH,COLUMN5,COLUMN5_WIDTH,COLUMN6,COLUMN6_WIDTH,COLUMN7,COLUMN7_WIDTH,'{2}' FROM TBPMO_WINDREAM_RESULTLIST_CONFIG WHERE GUID = {3}", USER_GUID, CONSTRUCTOR_DETAIL_ID, Environment.UserName, gridGUID)
            '    If ClassDatabase.Execute_non_Query(insert) = True Then
            '        USER_RESULTLIST_CONFIG_GUID = ClassDatabase.Execute_Scalar("SELECT MAX GUID FROM TBPMO_USER_WINDREAM_RESULTLIST_CONFIG WHERE USER_ID = " & USER_GUID)
            '    Else
            '        Exit Sub
            '    End If
            'End If
            'Console.WriteLine("Column changed - Column name: " & e.Column.Name)
            'Dim colNameGrid = e.Column.Name.Replace("col", "")
            ''Jetzt über die Column der Configtabelle auf den Inhalt schliessen
            'For Each col As DataColumn In DT_WINDREAM_RESULTLIST.Columns
            '    Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName)
            '    If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then
            '        Continue For
            '    End If
            '    If rowvalue = colNameGrid Then
            '        Dim update = String.Format("UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET {0}_WIDTH = {1} WHERE GUID = {2}", col.ColumnName, e.Column.VisibleWidth, USER_RESULTLIST_CONFIG_GUID)
            '        ClassDatabase.Execute_non_Query(update)
            '        Exit For
            '    End If
            'Next
            'If USER_RESULTLIST_CONFIG_GUID > 0 Then
            '    'DT_WINDREAM_RESULTLIST zu USER NEU LADEN

            '    Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID
            '    Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG")
            '    DT_WINDREAM_RESULTLIST = DT
            'End If
        Catch ex As Exception
            ClassLogger.Add(">> Unexpected Error in ColumnWidth-Change DocResult: " & ex.Message, False)
        End Try

    End Sub

    Private Sub ToolStripTextBox2_KeyUp(sender As Object, e As KeyEventArgs) Handles ToolStripTextBox2.KeyUp
        If e.KeyCode = Keys.Return Then
            Try
                If ToolStripTextBox2.Text <> "" Then
                    Dim OldName, NewName As String
                    OldName = RESULT_DOC_PATH
                    ' Define file names.
                    NewName = ToolStripTextBox2.Text
                    Dim name1 = Path.Combine(Path.GetDirectoryName(RESULT_DOC_PATH), NewName)
                    NewName = NewName & Path.GetExtension(RESULT_DOC_PATH)
                    ' Rename file.
                    My.Computer.FileSystem.RenameFile(OldName, NewName)
                    RUN_WDSEARCH_GRID("RECORD")
                    ContextMenuStripResultFiles.Close()
                End If
            Catch ex As Exception
                MsgBox("Unexpected Error in Renaming files: " & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub
    Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
        Display_Filename()
    End Sub

    Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.MouseHover
        Display_Filename()
    End Sub
    Sub Display_Filename()
        Try
            If RESULT_DOC_PATH <> "" Then
                Dim FileToRename As String
                FileToRename = Path.GetFileNameWithoutExtension(RESULT_DOC_PATH)
                ToolStripTextBox2.Text = FileToRename
                ToolStripTextBox2.Enabled = True
            Else
                ToolStripTextBox2.Enabled = False
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in getting the filename: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click
        Dim fileName As String = RESULT_DOC_PATH
        CURRENT_DOC_ID = RESULT_DOC_ID
        Dim frm As New frmWD_Link_to_Record(fileName, RESULT_OBJECTTYPE)
        frm.Show()
    End Sub
    
    Private Sub DetailAnsichtDatensatzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailAnsichtDatensatzToolStripMenuItem.Click
        ClassJumpRecord.JumpToRecord(0, RECORD_ID)
        JUMP_RECORD_ID = 0
    End Sub

    
    Private Sub EntitätssucheStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntitätssucheStartenToolStripMenuItem.Click
        RUN_WDSEARCH_GRID("ENTITY")
    End Sub

    Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As Views.Grid.RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
        If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
            e.Appearance.BackColor = Color.Orange
        Else
            If e.RowHandle = -1 Then
                Exit Sub
            End If
            Try
                Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?")
                If rowCellValue Is Nothing Then
                    Exit Sub
                End If
                Try

                    Dim inwork = rowCellValue
                    If inwork = True Then
                        e.Appearance.BackColor = Color.Orchid
                        e.HighPriority = True
                    End If
                Catch ex As Exception
                    ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
                End Try

            Catch ex As Exception
                ClassLogger.Add(">> Unexpected Error in RowStyle GridViewDoc_Search: " & ex.Message, False)
            End Try
        End If
    End Sub

    Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
        File_in_Work()
        If RESULT_DISPLAYNAME <> "" Then
            TSMIDisplayname.Visible = True
            Set_Displayname()
        Else
            TSMIDisplayname.Visible = False
        End If
    End Sub
    Sub File_in_Work()
        TSMI_inWork.Enabled = True
        Try
            Dim expression As String
            expression = "DocID = " & RESULT_DOC_ID
            Dim foundRowsLevel0() As DataRow
            ' Use the Select method to find all rows matching the filter.
            foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
            Try
                IW_USER = foundRowsLevel0(0)(13)
                IW_COMMENT = foundRowsLevel0(0)(14)
            Catch ex As Exception
                IW_USER = ""
                IW_COMMENT = ""
            End Try



            Dim displ As String

            If CBool(RESULT_INWORK) = True Then
                If IW_USER.ToUpper = Environment.UserName.ToUpper Then
                    displ = "Datei wieder freigeben"
                    If USER_LANGUAGE <> "de-DE" Then
                        displ = "Set file free"
                    End If
                Else
                    displ = "Datei in Bearbeitung (zeige Info)"
                    If USER_LANGUAGE <> "de-DE" Then
                        displ = "File is in work (show details)"
                    End If
                End If
            Else
                displ = "Datei in Bearbeitung nehmen"
                If USER_LANGUAGE <> "de-DE" Then
                    displ = "Lock file for working"
                End If
            End If
            TSMI_inWork.Text = displ
        Catch ex As Exception
            ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
            TSMI_inWork.Enabled = False
        End Try
    End Sub
    Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles TSMI_inWork.Click
        ClassFileResult.DocID = RESULT_DOC_ID
        If RESULT_INWORK = True Then ' Datei ist in Bearbeitung
            Dim displ As String
            If IW_USER.ToUpper = Environment.UserName.ToUpper Then
                If ClassFileResult.Set_InWork(0, "") = True Then
                    RUN_WDSEARCH_GRID("RECORD")
                End If
            Else
                displ = "In Bearbeitung durch User: " & vbNewLine & IW_USER & vbNewLine & "Kommentar:" & vbNewLine & IW_COMMENT
                If USER_LANGUAGE <> "de-DE" Then
                    displ = "In Work from User: " & vbNewLine & IW_USER & vbNewLine & "Comment:" & vbNewLine & IW_COMMENT
                End If
                MsgBox(displ, MsgBoxStyle.Information)
            End If
        Else
            frmFileInWork.ShowDialog()
            RESULT_INWORK = ClassFileResult.InWork
            RUN_WDSEARCH_GRID("RECORD")
        End If
    End Sub

    Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
        Get_Doc_Items()
    End Sub

    Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtZurücksetzenToolStripMenuItem.Click
        ' TODO: Ansicht zurücksetzen
        Try
            Dim XMLPath = Get_DocGRid_Layout_Filename()
            If File.Exists(XMLPath) Then
                Me.Cursor = Cursors.WaitCursor
                File.Delete(XMLPath)
                RUN_WDSEARCH_GRID("RECORD")

            Else
                MsgBox("Set back of Layout not successfull - File not existing!", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Error in Reset Layout DocGrid: " & vbNewLine & ex.Message)
        End Try
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles TSMIDisplayname.Click
        Set_Displayname()
    End Sub
    Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles TSMIDisplayname.MouseHover
        Set_Displayname()
    End Sub
    Sub Set_Displayname()
        Try
            If RESULT_DISPLAYNAME <> "" Then
                tstbDisplayname.Text = RESULT_DISPLAYNAME
                tstbDisplayname.Enabled = True
            Else
                tstbDisplayname.Enabled = False
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in getting the Displayname: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

   
    Private Sub tstbDisplayname_KeyUp(sender As Object, e As KeyEventArgs) Handles tstbDisplayname.KeyUp
        If e.KeyCode = Keys.Return Then
            Try
                ClassFileResult.DocID = RESULT_DOC_ID
                If tstbDisplayname.Text <> "" Then
                   
                    If ClassFileResult.Set_Displayname(tstbDisplayname.Text) Then
                        RUN_WDSEARCH_GRID("RECORD")
                        ContextMenuStripResultFiles.Close()
                    End If
                End If
            Catch ex As Exception
                MsgBox("Unexpected Error in Setting Displayname Click: " & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub

    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click
        Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
        If ClassDOC_SEARCH.SET_WD_RIGHTS(RESULT_DOC_ID, RESULT_DOC_PATH) = True Then
            If USER_LANGUAGE <> "de-DE" Then
                msg = "The rights were successfully renewed!"
            End If
            MsgBox(msg, MsgBoxStyle.Information)
        Else
            msg = "Unerwarteter Fehler im Rechtemodul. Bitte prüfen Sie die Logdatei!"
            If USER_LANGUAGE <> "de-DE" Then
                msg = "Unexpected error in rights-module. Please check the logfile!"
            End If
            MsgBox(msg, MsgBoxStyle.Exclamation)
        End If
    End Sub
End Class