MS

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -7,14 +7,16 @@ Imports DevExpress.XtraGrid.Columns
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Tile
 Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+Imports DevExpress.XtraGrid
 Imports DevExpress.XtraScheduler
 Imports System.Text
 Imports System.IO
-Imports DevExpress.XtraGrid
+
 Imports WINDREAMLib
 Imports System.Runtime.InteropServices
 Imports DD_Rights
-Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+
 
 Public Class frmConstructor_Main
 
@@ -168,7 +170,7 @@ Public Class frmConstructor_Main
     Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = ""
     Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = ""
     Private DOC_SEARCH_TAB1 As Boolean = False
-
+    Private ACTIVATE_DOC_SEARCH_ON_EDIT As Boolean = False
     Private FORM_TYPE As Integer
     Private ENTITY_ID As Integer
     Private REDUNDANT_FORM As Integer
@@ -229,6 +231,9 @@ Public Class frmConstructor_Main
         ' Check_Record_Changed()
         CloseWDDocview()
         Save_Grid_Layout()
+        If DOC_SEARCH_TAB1 = True Then
+            Save_DocGrid_Layout()
+        End If
         Save_Splitter_Layout()
         ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
 
@@ -279,7 +284,7 @@ Public Class frmConstructor_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)
+            VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_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)
 
@@ -756,10 +761,15 @@ Public Class frmConstructor_Main
                     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
+                        result = result.ToUpper.Replace("@RECORDID", RECORD_ID)
+                        result = result.ToUpper.Replace("@USER_ID", USER_GUID)
                         _ENTITYSQL = _ENTITYSQL & " " & result.ToString
-                        _ENTITYSQL = _ENTITYSQL.ToUpper.Replace("@RECORDID", RECORD_ID)
-                        _ENTITYSQL = _ENTITYSQL.ToUpper.Replace("@USER_ID", USER_GUID)
+                        CURRENT_ENTITYSQL_WHERE = result
+                    Else
+                        CURRENT_ENTITYSQL_WHERE = ""
                     End If
+                Else
+                    CURRENT_ENTITYSQL_WHERE = ""
                 End If
             Catch ex As Exception
                 ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
@@ -867,7 +877,7 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
-        Me.Cursor = Cursors.WaitCursor
+        Cursor = Cursors.WaitCursor
         Column_Row_Handler()
         Me.Cursor = Cursors.Default
     End Sub
@@ -882,15 +892,6 @@ Public Class frmConstructor_Main
         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
@@ -1029,7 +1030,7 @@ Public Class frmConstructor_Main
             TabFollowUp.PageEnabled = True
             TabPos.PageEnabled = True
             TabWindream.PageEnabled = True
-            DocSearchRefresh.Enabled = True
+            tsbtnDoc_Refresh.Enabled = True
             EntitätssucheStartenToolStripMenuItem.Enabled = True
             docCM_Open.Enabled = True
             docCM_InWork.Enabled = True
@@ -1044,8 +1045,8 @@ Public Class frmConstructor_Main
                     tempsql = tempsql.Replace("@USER_ID", USER_GUID)
                     tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
                     tempsql = tempsql.Replace("@ENTITY_ID", ENTITY_ID)
-                    tempsql = tempsql.Replace("@USERNAME", Environment.UserName)
-                    tempsql = tempsql.Replace("@USER_NAME", Environment.UserName)
+                    tempsql = tempsql.Replace("@USERNAME", USER_USERNAME)
+                    tempsql = tempsql.Replace("@USER_NAME", USER_USERNAME)
                     ''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
                     'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
                     '' einen Regulären Ausdruck laden
@@ -1131,7 +1132,7 @@ Public Class frmConstructor_Main
                         ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
                         tslblFileslocked.Visible = True
                         'TabWindream.PageEnabled = False
-                        DocSearchRefresh.Enabled = False
+                        tsbtnDoc_Refresh.Enabled = False
                         EntitätssucheStartenToolStripMenuItem.Enabled = False
                         docCM_Open.Enabled = False
                         docCM_InWork.Enabled = False
@@ -1225,13 +1226,18 @@ Public Class frmConstructor_Main
                 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
+                        Doc_Controls_EditMode(True)
                         Column_Row_Handler(Record, True)
                         LocateRecordById(RECORD_ID)
+                        If DOC_SEARCH_TAB1 = True Then
+                            Doc_Controls_EditMode(True)
+                        End If
                     End If
                 Else
                     pnlDetails.Enabled = False
+                    If DOC_SEARCH_TAB1 = True Then
+                        Doc_Controls_EditMode(False)
+                    End If
                     ToolStripEdit.Enabled = False
 
                 End If
@@ -1241,12 +1247,25 @@ Public Class frmConstructor_Main
         End If
 
     End Sub
-
+    Sub Doc_Controls_EditMode(state As Boolean)
+        If state = False Then
+            GridControlDocSearch.ContextMenuStrip = Nothing
+            tslblDocViewLocked.Visible = True
+        Else
+            GridControlDocSearch.ContextMenuStrip = ContextMenuStripResultFiles
+            tslblDocViewLocked.Visible = False
+        End If
+        tsTextboxFulltext.Enabled = state
+        tsdrdowbtnDocSearch.Enabled = state
+    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
+            If DOC_SEARCH_TAB1 = True Then
+                Save_DocGrid_Layout()
+            End If
         Else
             If Not IsNothing(TreeViewMain.SelectedNode) Then
                 TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
@@ -1972,7 +1991,7 @@ Public Class frmConstructor_Main
                 EDIT_STATE = EditState.None
                 CURRENT_RECORD_ENABLED = False
                 ' Update_Record_Label(SELECTED_RECORD_ID)
-                ClassHelper.InsertEssential_Log(SELECTED_RECORD_ID, "RECORD-ID", "RECORD WAS DELETED MANUALLY by USER: " & Environment.UserName)
+                ClassHelper.InsertEssential_Log(SELECTED_RECORD_ID, "RECORD-ID", "RECORD WAS DELETED MANUALLY by USER: " & USER_USERNAME)
                 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
@@ -2022,14 +2041,11 @@ Public Class frmConstructor_Main
         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
+        If Not IsNothing(EditingUser) And EditingUser <> USER_USERNAME Then
 
             tslblLocked.Visible = True
             If USER_LANGUAGE = "de-DE" Then
@@ -2049,11 +2065,11 @@ Public Class frmConstructor_Main
         DeactivateTabs()
 
         CURRENT_CHANGE_STEP += 1
-        Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", Environment.UserName.ToUpper)
+        Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
         ClassDatabase.Execute_non_Query(del)
         Lock_RecordControls(False)
         tsmi_RecordDelete.Enabled = True
-        tsbtnDeleteRecord.Enabled = True
+        RecordDeleteToolStripMenuItem.Enabled = True
         MassenänderungToolStripMenuItem.Enabled = True
         Me.tsButtonAdd.Enabled = False
         Me.tsButtonSave.Enabled = True
@@ -2079,6 +2095,9 @@ Public Class frmConstructor_Main
 
         RECORD_ENABLED = True
         CURRENT_RECORD_ENABLED = True
+        If DOC_SEARCH_TAB1 = True Then
+            Doc_Controls_EditMode(True)
+        End If
         pnlDetails.Focus()
         'If RECORD_ENABLED = False Then
         '    ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
@@ -2118,7 +2137,12 @@ Public Class frmConstructor_Main
                 CtrlCommandUI.IsEdit = False
             End If
         End If
-
+        If ACTIVATE_DOC_SEARCH_ON_EDIT = False Then
+            If DOC_SEARCH_TAB1 = True Then
+                Doc_Controls_EditMode(False)
+            End If
+        End If
+        
     End Sub
 
 #End Region
@@ -2206,7 +2230,7 @@ Public Class frmConstructor_Main
             tsButtonEdit.Visible = True
             tsButtonDelete.Visible = True
             tsmi_RecordDelete.Enabled = True
-            tsbtnDeleteRecord.Enabled = True
+            RecordDeleteToolStripMenuItem.Enabled = True
             MassenänderungToolStripMenuItem.Enabled = True
 
             If RIGHT_ADD_R = False Then
@@ -2222,7 +2246,7 @@ Public Class frmConstructor_Main
             If RIGHT_DELETE_R = False Then
                 tsButtonDelete.Visible = False
                 tsmi_RecordDelete.Enabled = False
-                tsbtnDeleteRecord.Enabled = False
+                RecordDeleteToolStripMenuItem.Enabled = False
             End If
         Catch ex As Exception
             MsgBox("Error in GetSet_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -2250,7 +2274,14 @@ Public Class frmConstructor_Main
             SQL_RIGHT_READ_AND_VIEW_ONLY = result.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
             SQL_RIGHT_WINDREAM_FORBIDDEN = result.Item("SQL_RIGHT_WINDREAM_VIEW")
             DOC_SEARCH_TAB1 = result.Item("DOC_SEARCH_TAB1")
-
+            If DOC_SEARCH_TAB1 = True Then
+                tslblDocIDMain.Visible = False
+                tslblDocIDTab1.Visible = True
+            Else
+                tslblDocIDMain.Visible = True
+                tslblDocIDTab1.Visible = False
+            End If
+            ACTIVATE_DOC_SEARCH_ON_EDIT = result.Item("ACTIVATE_DOC_SEARCH_ON_EDIT")
             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 T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
@@ -2458,7 +2489,7 @@ Public Class frmConstructor_Main
                         Clear_Windream_ResultList()
                         GridControlDocSearch.Visible = True
                         'RUN_WD_SEARCH("", "ENTITY")
-                        RUN_WDSEARCH_GRID("ENTITY")
+                        ' RUN_WDSEARCH_GRID("ENTITY")
                     End If
                 End If
             End If
@@ -2614,15 +2645,31 @@ Public Class frmConstructor_Main
                 If DOC_SEARCH_TAB1 = True Then
                     SplitContainerDetails.Collapsed = False
                     SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Both
-                    SplitContainerDetails.Panel2.Controls.Add(ToolStripDokumente)
-                    SplitContainerDetails.Panel2.Controls.Add(GridControlDocSearch)
+                    'ToolStripDokumente.Dock = DockStyle.None
+                    pnlDocToolStrip.Controls.Add(ToolStripDokumente)
+                    pnlDocFill.Controls.Add(GridControlDocSearch)
+                    'ToolStripDokumente.Dock = DockStyle.Top
+                    'GridControlDocSearch.Dock = DockStyle.None
+                    'GridControlDocSearch.Dock = DockStyle.Top
                     TabWindream.PageVisible = False
+                    If ACTIVATE_DOC_SEARCH_ON_EDIT = False Then
+                        Doc_Controls_EditMode(False)
+                    Else
+                        Doc_Controls_EditMode(True)
+                    End If
+
+                    Load_DocGrid_Layout()
                 Else
                     SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Panel1
                     SplitContainerDetails.Collapsed = True
+                    'ToolStripDokumente.Dock = DockStyle.None
                     TabWindream.Controls.Add(ToolStripDokumente)
+                    'ToolStripDokumente.Dock = DockStyle.Top
+                    'GridControlDocSearch.Dock = DockStyle.None
                     TabWindream.Controls.Add(GridControlDocSearch)
+                    'GridControlDocSearch.Dock = DockStyle.Top
                     TabWindream.PageVisible = True
+                    Doc_Controls_EditMode(True)
                 End If
             End If
 
@@ -2701,8 +2748,6 @@ Public Class frmConstructor_Main
 
             ' Datatable laden
             GridControlMain.DataSource = DT
-            BindingSource_Entity.DataSource = DT
-
 
             grvwTiles.TileTemplate.Clear()
 
@@ -3007,33 +3052,29 @@ Public Class frmConstructor_Main
             Else
                 'Grid leeren
                 Clear_Grid_View()
-                'Databinding Neu
+
+                'Vorbereiten der Arrays
                 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
+                Dim DT_RESULT As DataTable = ClassHelper.Format_GridColumns(DT_SELECTION, _ENTITYSQL, listcheck, listdate)
+                GridControlMain.DataSource = DT_RESULT
 
                 ' Alle Date Spalten durchgehen 
                 For Each col As String In listdate
                     Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit
                     Dim date_column As GridColumn = grvwGrid.Columns(col)
-
                     date_column.DisplayFormat.FormatType = FormatType.DateTime
                     date_column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
-
-                    date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Default
-                    date_column.OptionsFilter.AutoFilterCondition = AutoFilterCondition.Contains
+                    date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
+                    date_column.ColumnEdit = date_edit
+                    date_column.FilterMode = ColumnFilterMode.Value ' was DisplayText
 
                     date_edit.DisplayFormat.FormatType = FormatType.DateTime
                     date_edit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
-
                     date_edit.Mask.MaskType = Mask.MaskType.DateTime
                     date_edit.Mask.EditMask = CURRENT_DATE_FORMAT
                     date_edit.Mask.UseMaskAsDisplayFormat = True
 
-                    date_column.ColumnEdit = date_edit
-                    date_column.FilterMode = ColumnFilterMode.DisplayText
                 Next
                 Try
                     grvwGrid.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
@@ -3555,7 +3596,7 @@ Public Class frmConstructor_Main
             If CBool(wdsearch) = False Then
                 windream_Docshow = False
                 TabWindream.PageVisible = False
-                DocSearchRefresh.Enabled = False
+                tsbtnDoc_Refresh.Enabled = False
                 EntitätssucheStartenToolStripMenuItem.Enabled = False
                 Exit Sub
             Else
@@ -3565,7 +3606,7 @@ Public Class frmConstructor_Main
                 '    DocSearchRefresh.Visible = False
                 '    Exit Function
                 'End If
-                DocSearchRefresh.Enabled = True
+                tsbtnDoc_Refresh.Enabled = True
                 EntitätssucheStartenToolStripMenuItem.Enabled = True
                 windream_Docshow = True
                 If windream_inited = False Then
@@ -3798,7 +3839,7 @@ Public Class frmConstructor_Main
             End If
             Dim configId As Integer = item.ConfigID
             Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
-            Dim user As String = Environment.UserName
+            Dim user As String = USER_USERNAME
 
             Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
             ClassDatabase.Execute_non_Query(Sql)
@@ -3825,7 +3866,7 @@ Public Class frmConstructor_Main
             Dim configid = detailRow.Item("CONFIG_ID")
 
             Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
-            Dim user As String = Environment.UserName
+            Dim user As String = USER_USERNAME
 
             Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
 
@@ -3853,7 +3894,7 @@ Public Class frmConstructor_Main
             Dim configid = detailRow.Item("CONFIG_ID")
 
             Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
-            Dim user As String = Environment.UserName
+            Dim user As String = USER_USERNAME
 
             Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
             ClassDatabase.Execute_non_Query(Sql)
@@ -3875,7 +3916,7 @@ Public Class frmConstructor_Main
             Dim configid = detailRow.Item("CONFIG_ID")
 
             Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
-            Dim user As String = Environment.UserName
+            Dim user As String = USER_USERNAME
 
             Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
             ClassDatabase.Execute_non_Query(Sql)
@@ -4259,9 +4300,7 @@ Public Class frmConstructor_Main
             'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
             If NEW_FILES_ADDED = True Then
                 Me.Cursor = Cursors.WaitCursor
-                If ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
-                    RUN_WDSEARCH_GRID("RECORD")
-                End If
+                RUN_WDSEARCH_GRID("RECORD")
             Else
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
             End If
@@ -4294,7 +4333,7 @@ Public Class frmConstructor_Main
                     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)
+                        TBPMO_FILES_USERTableAdapter.cmdInsert(CURRENT_WORKFILE, USER_USERNAME, DropType)
                     End If
                 End If
 
@@ -4313,7 +4352,7 @@ Public Class frmConstructor_Main
                 End If
             End If
 
-            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 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", USER_USERNAME)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1)
             If Not IsNothing(DT) Then
                 If DT.Rows.Count > 0 Then
@@ -4892,30 +4931,31 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
+        If e.RowHandle = -1 Then
+            Exit Sub
+        End If
         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
+
+                '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
@@ -4970,7 +5010,7 @@ Public Class frmConstructor_Main
     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 & "')"
+                Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & RECORD_ID & ", '" & USER_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)
@@ -5119,9 +5159,12 @@ Public Class frmConstructor_Main
     End Sub
     Sub Refresh_DocID()
         If ClassWindreamDocGrid.SELECTED_DOC_ID <> 0 Then
-            tsstlblDocID.Text = "Doc-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString
+            Dim msg = "Doc-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString
+            tslblDocIDMain.Text = msg
+            tslblDocIDTab1.Text = msg
         Else
-            tsstlblDocID.Text = ""
+            tslblDocIDMain.Text = ""
+            tslblDocIDTab1.Text = ""
         End If
     End Sub
 
@@ -5206,6 +5249,9 @@ Public Class frmConstructor_Main
 
     End Sub
     Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
+        If IsNothing(GridControlDocSearch.ContextMenuStrip) Then
+            Exit Sub
+        End If
         Me.Cursor = Cursors.WaitCursor
         Dim allow_Open As Boolean = False
         ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
@@ -5458,7 +5504,7 @@ Public Class frmConstructor_Main
         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)
+            '                               " 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, USER_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
@@ -5678,16 +5724,21 @@ Public Class frmConstructor_Main
                     ContextMenu_Write()
             End Select
         End If
-        If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
-            If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
-                docCM_RenameDisplay.Visible = True
-                Set_Displayname()
+        If Not IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
+            If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
+                If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
+                    docCM_RenameDisplay.Visible = True
+                    Set_Displayname()
+                Else
+                    docCM_RenameDisplay.Visible = False
+                End If
             Else
                 docCM_RenameDisplay.Visible = False
             End If
         Else
-            docCM_RenameDisplay.Visible = False
+            e.Cancel = True
         End If
+        
 
 
     End Sub
@@ -5712,7 +5763,7 @@ Public Class frmConstructor_Main
             Dim displ As String
 
             If CBool(ClassWindreamDocGrid.SELECTED_INWORK) = True Then
-                If IW_USER.ToUpper = Environment.UserName.ToUpper Then
+                If IW_USER.ToUpper = USER_USERNAME.ToUpper Then
                     displ = "Datei wieder freigeben"
                     If USER_LANGUAGE <> "de-DE" Then
                         displ = "Set file free"
@@ -5743,7 +5794,7 @@ Public Class frmConstructor_Main
         ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
         If ClassWindreamDocGrid.SELECTED_INWORK = True Then ' Datei ist in Bearbeitung
             Dim displ As String
-            If IW_USER.ToUpper = Environment.UserName.ToUpper Then
+            If IW_USER.ToUpper = USER_USERNAME.ToUpper Then
                 If ClassFileResult.Set_InWork(0, "") = True Then
                     RUN_WDSEARCH_GRID("RECORD")
                 End If
@@ -5866,7 +5917,7 @@ Public Class frmConstructor_Main
         ' Alle Tab Pages außer Detailansicht deaktivieren
         ' Zur Detailansicht springen
         For Each tab As DevExpress.XtraTab.XtraTabPage In TCDetails.TabPages
-            If (tab.Name <> "TabDetails") Then
+            If (tab.Name <> "TabDetails") And tab.Name <> "TabWindream" Then
                 tab.PageEnabled = False
             Else
                 TCDetails.SelectedTabPage = tab
@@ -5994,7 +6045,7 @@ Public Class frmConstructor_Main
                         For Each _RECORD As String In e.Data.GetData(GetType(String()))
                             Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
                             If ClassDatabase.Execute_non_Query(upd) = True Then
-                                msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, Environment.UserName)
+                                msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, USER_USERNAME)
                                 ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg)
                                 sql = "SELECT T.* FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK T1  WHERE T.DocID = T1.DOC_ID AND T1.RECORD_ID = " & _RECORD
                                 Dim DT_DOCS As DataTable = ClassDatabase.Return_Datatable(sql)
@@ -6007,7 +6058,7 @@ Public Class frmConstructor_Main
                                     "AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
                                 Dim DT_CHANGE_CTR As DataTable = ClassDatabase.Return_Datatable(sql)
                                 For Each row As DataRow In DT_CHANGE_CTR.Rows
-                                    upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET CONTROL_ID = {0}, CHANGED_WHO = '{3}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", row.Item("LINKED_CTRL_ID"), row.Item("ORIGIN_CTRL_ID"), _RECORD, Environment.UserName)
+                                    upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET CONTROL_ID = {0}, CHANGED_WHO = '{3}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", row.Item("LINKED_CTRL_ID"), row.Item("ORIGIN_CTRL_ID"), _RECORD, USER_USERNAME)
                                     ClassDatabase.Execute_non_Query(upd)
                                 Next
                             End If
@@ -6063,11 +6114,6 @@ Public Class frmConstructor_Main
         End Try
 
     End Sub
-
-    Private Sub tsbtnEntitySearch_Click(sender As Object, e As EventArgs) Handles tsbtnEntitySearch.Click
-        RUN_WDSEARCH_GRID("ENTITY")
-    End Sub
-
     Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
         Dim result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
         If Not IsNothing(result) Then
@@ -6099,7 +6145,7 @@ Public Class frmConstructor_Main
                 CURRENT_FORM_ID = ENTITY_ID
                 Dim sql = "EXEC	PRPMO_CREATE_WF_TASKS " & CURRENT_FORM_ID & ", " & RECORD_ID
                 If ClassDatabase.Execute_non_Query(sql) = True Then
-                    VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
+                    VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
                     Show_act_WFTask()
                     If USER_LANGUAGE = "de-DE" Then
                         stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
@@ -6139,7 +6185,7 @@ Public Class frmConstructor_Main
         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)
+            Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME)
             If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
                 Load_Entity_Data(ACT_EBENE)
             End If
@@ -6150,12 +6196,6 @@ Public Class frmConstructor_Main
         CURRENT_RECORD_ID = RECORD_ID
         frmRecord_Changes.ShowDialog()
     End Sub
-
-    Private Sub DocSearchRefresh_Click(sender As Object, e As EventArgs) Handles DocSearchRefresh.Click
-        ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
-        RUN_WDSEARCH_GRID("RECORD")
-    End Sub
-
     Private Sub AnwendungscacheResettsbtn_Click(sender As Object, e As EventArgs) Handles AnwendungscacheResettsmi.Click
         Dim result As MsgBoxResult
         Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
@@ -6194,11 +6234,18 @@ Public Class frmConstructor_Main
         End If
     End Sub
 
-    Private Sub tsbtnDeleteRecord_Click(sender As Object, e As EventArgs) Handles tsbtnDeleteRecord.Click
-        Delete_Record()
-    End Sub
-
     Private Sub tsbtnRefresh_Entity_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh_Entity.Click
         Refresh_Entity_Data()
     End Sub
+
+    Private Sub RecordDeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordDeleteToolStripMenuItem.Click
+        Delete_Record()
+    End Sub
+    Private Sub docCMEntityWideSearch_Click(sender As Object, e As EventArgs) Handles docCMEntityWideSearch.Click
+        RUN_WDSEARCH_GRID("ENTITY")
+    End Sub
+
+    Private Sub tsbtnDoc_Refresh_Click(sender As Object, e As EventArgs) Handles tsbtnDoc_Refresh.Click
+        RUN_WDSEARCH_GRID("RECORD")
+    End Sub
 End Class