MS - Changes Doc2Doc search

app/DD_PM_WINDREAM/frmMain.vb

@@ -155,6 +155,9 @@ Public Class frmMain
             End Try
 
             If LogErrorsOnly = False Then ClassLogger.Add(" >> MainForm initialized!", False)
+
+            MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData))
+
         End If
 
     End Sub
@@ -241,20 +244,22 @@ Public Class frmMain
 
             GridView_Docs.Columns.Clear()
             GridView_Docs.PopulateColumns()
+            If GridView_Docs.Columns.Count > 0 Then
+                GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
+                GridView_Docs.Columns.Item("GUID").Visible = False
+                GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
+                GridView_Docs.Columns.Item("DOC_ID").Visible = False
+                GridView_Docs.Columns.Item("TL_STATE").Visible = False
+                GridView_Docs.Columns.Item("ICON").MaxWidth = 24
+                GridView_Docs.Columns.Item("ICON").MinWidth = 24
+                GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
+                GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
+                GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
+                GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
+                GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+            End If
 
-            GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
-            GridView_Docs.Columns.Item("GUID").Visible = False
-            GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
-            GridView_Docs.Columns.Item("DOC_ID").Visible = False
-            GridView_Docs.Columns.Item("TL_STATE").Visible = False
-            GridView_Docs.Columns.Item("ICON").MaxWidth = 24
-            GridView_Docs.Columns.Item("ICON").MinWidth = 24
-            GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-            GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
-            GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
-            GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-            GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-            GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
         Catch ex As Exception
             ClassLogger.Add("Error while resetting layout: " & ex.Message)
         End Try
@@ -611,6 +616,7 @@ Public Class frmMain
         GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
         GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
         GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+
     End Sub
     Private Function GridView_CheckInvalidColumns() As Boolean
         Dim Columns_Removed = False
@@ -695,6 +701,10 @@ Public Class frmMain
                     Dim Columns_Removed = GridView_CheckInvalidColumns()
                     RestoreLayout()
 
+                    If GridView_Docs.Columns.Count <= 2 Then
+                        ClassLogger.Add("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
+                        Reset_GridLayout()
+                    End If
 
                 Else
                     GridControl_Docs.DataSource = Nothing
@@ -813,8 +823,9 @@ Public Class frmMain
             CURRENT_ProfilGUID = ID
             CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, MyConnectionString)
             CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
-
+            CURRENT_DT_PROFILE_SEARCHES_RT = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_ProfilGUID))
             My.Settings.Save()
+
             If TimerRefresh.Enabled Then
                 TimerRefresh.Stop()
             End If
@@ -1058,9 +1069,8 @@ Public Class frmMain
 
             If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then
                 ClassLogger.Add(" >> no profiles for user: '" & Environment.UserName & "' configured!", False)
-
+                NO_WORKFLOWITEMS = True
                 tslblmessage.Text = "Keine Profile für Ihren User hinterlegt"
-
                 Cursor = Cursors.Default
                 Exit Sub
             End If
@@ -1203,6 +1213,11 @@ Public Class frmMain
 
                 'GridView_Docs.SaveLayoutToXml(GetXML_LayoutName())
                 SaveGridLayout()
+                If GridView_Docs.Columns.Count <= 2 Then
+                    ClassLogger.Add("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
+                    Reset_GridLayout()
+                End If
+
             Else
                 GridControl_Docs.Visible = False
                 pnlNavigator.Visible = False
@@ -1242,6 +1257,10 @@ Public Class frmMain
     End Sub
 
     Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
+        Reset_GridLayout
+
+    End Sub
+    Sub Reset_GridLayout()
         ' Layout zurücksetzen
         ResetLayout()
         SaveGridLayout()
@@ -1252,7 +1271,6 @@ Public Class frmMain
     End Sub
 
 
-
     Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs)
         Try
             Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)