DocSearchModul

app/DD_PM_WINDREAM/frmMain.vb

@@ -62,7 +62,7 @@ Public Class frmMain
     End Sub
 
     Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        LOGGER.Debug(" >> Initializing MainForm....", False)
+        LOGGER.Debug("Initializing MainForm....", False)
         Try
             UserLookAndFeel.Default.SetSkinStyle("VS2010")
         Catch ex As Exception
@@ -89,7 +89,7 @@ Public Class frmMain
         If Refresh_ConnectionString() = True Then
             Try
                 tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
-                LOGGER.Debug(" >> Initializing MainForm....", False)
+                LOGGER.Debug("Initializing MainForm....", False)
                 If ERROR_STATE = "NO USER" Then
                     MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                     Me.Close()
@@ -162,7 +162,7 @@ Public Class frmMain
                 MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
             End Try
 
-            LOGGER.Debug(" >> MainForm initialized!", False)
+            LOGGER.Debug("MainForm initialized!", False)
         End If
 
     End Sub
@@ -850,12 +850,13 @@ Public Class frmMain
     End Sub
 
     Sub Load_Profil_from_Grid(ID As Integer)
-        Try
-            Me.Visible = False
+        'Try
+        Me.Visible = False
             CURRENT_ProfilGUID = ID
             CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
             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))
+            CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
+            CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
             My.Settings.Save()
 
             If TimerRefresh.Enabled Then
@@ -863,10 +864,10 @@ Public Class frmMain
             End If
 
             frmValidator.ShowDialog()
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
-        End Try
+        'Catch ex As Exception
+        '    LOGGER.Error(ex)
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
+        'End Try
         Me.Visible = True
         Decide_Load()
 
@@ -899,8 +900,8 @@ Public Class frmMain
         Item_Scope()
     End Sub
     Private Sub Item_Scope()
-        Try
-            CURRENT_JUMP_DOC_GUID = 0
+        'Try
+        CURRENT_JUMP_DOC_GUID = 0
             Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
             Dim groupRowText
             Dim PROFIL_ID
@@ -973,10 +974,10 @@ Public Class frmMain
 
 
             End If
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
+        'Catch ex As Exception
+        '    LOGGER.Error(ex)
+        '    MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
+        'End Try
     End Sub
     Private Function Init_windream()
         Try
@@ -987,7 +988,7 @@ Public Class frmMain
             WINDREAM = New ClassPMWindream()
             WINDREAM.Create_Session()
 
-            LOGGER.Debug(" >> windream initialized", False)
+            LOGGER.Debug("windream initialized", False)
             Return True
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -1187,7 +1188,7 @@ Public Class frmMain
                     Dim oindex As Integer = 0
                     If Not IsNothing(DTGRID_GROUPS) Then
                         For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
-                            LOGGER.Debug($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
+                            LOGGER.Debug($"Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
                             GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
                             oindex += 1
                         Next
@@ -1201,7 +1202,7 @@ Public Class frmMain
                     GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
                     For index = 0 To GridView_Docs.GroupCount - 1
                         Dim v = GridView_Docs.GroupedColumns(index).ToString
-                        LOGGER.Debug($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
+                        LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
                         GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
                     Next