ms

app/DD_PM_WINDREAM/ClassInit.vb

@@ -297,6 +297,11 @@ Public Class ClassInit
             Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
             Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
             BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql, "InitBasics2_1")
+            If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then
+                LOGGER.Warn($"no profiles for user: '{USER_USERNAME}' configured - Check SQL [{oSql}]!", False)
+            End If
+
+
             oStopWatch.Done()
         Catch ex As Exception
             LOGGER.Error(ex)

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss

@@ -11,7 +11,7 @@
     <Shape ID="DesignTable:TBDD_USER" ZOrder="16" X="608" Y="444" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
     <Shape ID="DesignTable:TBPM_TYPE" ZOrder="17" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
     <Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="19" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
-    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="10" X="408" Y="113" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
+    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="10" X="408" Y="-78" Height="379" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="273" />
     <Shape ID="DesignTable:TBPROFILE_USER" ZOrder="13" X="509" Y="-80" Height="267" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
     <Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="11" X="1391" Y="-70" Height="229" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
     <Shape ID="DesignTable:TBPM_PROFILE" ZOrder="2" X="303" Y="315" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />

app/DD_PM_WINDREAM/frmMain.vb

@@ -408,11 +408,19 @@ Public Class frmMain
                 GridView_Docs.Columns.Item("ICON").MinWidth = 24
                 GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
                 GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
+                Try
                     GridView_Docs.Columns.Item("CONV_YN").Visible = False
+                Catch ex As Exception
+                    LOGGER.Warn("Check wether Column CONV_YN is part of select/view")
+                End Try
+                Try
                     GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
                     GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
-                'GridView_Docs.Columns.Item("CONVERSATION").AppearanceCell.BackColor = Color.White
                     GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
+                Catch ex As Exception
+                    LOGGER.Warn("Check wether Column CONVERSATION is part of select/view")
+                End Try
+
                 Try
                     GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
                     GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
@@ -647,11 +655,16 @@ Public Class frmMain
                 End Select
             Next
             For Each oRow As DataRow In CURR_DT_OVERVIEW.Rows
+                Try
                     Dim oCONVYN As Boolean = oRow.Item("CONV_YN")
                     Select Case oCONVYN
                         Case True
                             oRow.Item("CONVERSATION") = My.Resources.conversation
                     End Select
+                Catch ex As Exception
+                    LOGGER.Warn($"Please check Your select/view Config - Column CONV_YN is missing [{ex.Message}]")
+                End Try
+
             Next
             bindsourcegrid.DataSource = CURR_DT_OVERVIEW
             GridControl_Docs.DataSource = bindsourcegrid
@@ -669,12 +682,19 @@ Public Class frmMain
             GridView_Docs.Columns.Item("ICON").MinWidth = 24
             GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
             GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
-
+            Try
                 GridView_Docs.Columns.Item("CONV_YN").Visible = False
+            Catch ex As Exception
+                LOGGER.Warn("Check wether Column CONV_YN is part of select/view")
+            End Try
+            Try
                 GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
                 GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
-            'GridView_Docs.Columns.Item("CONVERSATION").AppearanceCell.BackColor = Color.White
                 GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
+            Catch ex As Exception
+                LOGGER.Warn("Check wether Column CONVERSATION is part of select/view")
+            End Try
+
             ' GridView_Docs.OptionsView.ShowIndicator = False
             Try
                 GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
@@ -939,7 +959,7 @@ Public Class frmMain
                 NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
             End If
         Catch ex As Exception
-            LOGGER.Warn($"Error TimerReminder:  {ex.Message}")
+            LOGGER.Warn($"Unexpected errin in TimerReminder:  {ex.Message}")
         End Try
 
     End Sub
@@ -1137,6 +1157,7 @@ Public Class frmMain
                     CURRENT_JUMP_DOC_GUID = 0
                     CURRENT_DOC_GUID = 0
                     CURRENT_ProfilGUID = oHitProfilID
+                    LOGGER.Debug($"Item_Scope: hitInfo.InGroupRow...oHitProfilID [{oHitProfilID}]")
 
 
                     Load_Profil_from_Grid(oHitProfilID)
@@ -1451,12 +1472,17 @@ Public Class frmMain
                     CURR_DT_OVERVIEW.Columns.Add(columnConvIcon)
                 End If
                 For Each oRow As DataRow In CURR_DT_OVERVIEW.Rows
+                    Try
                         Dim oCONVYN As Boolean = oRow.Item("CONV_YN")
                         Select Case oCONVYN
                             Case True
                                 '        RedDocuments += 1
                                 oRow.Item("CONVERSATION") = My.Resources.conversation
                         End Select
+                    Catch ex As Exception
+                        LOGGER.Warn("Check wether Column CONVERSATION is part of select/view")
+                    End Try
+
                 Next
 
                 bindsourcegrid.DataSource = CURR_DT_OVERVIEW
@@ -1520,11 +1546,19 @@ Public Class frmMain
                     GridView_Docs.Columns.Item("ICON").MinWidth = 24
                     GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
                     GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
+                    Try
                         GridView_Docs.Columns.Item("CONV_YN").Visible = False
+                    Catch ex As Exception
+                        LOGGER.Warn("LoadGridOverview - Check wether Column CONV_YN is part of select/view")
+                    End Try
+                    Try
                         GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
                         GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
-                    'GridView_Docs.Columns.Item("CONVERSATION").AppearanceCell.BackColor = Color.White
                         GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
+                    Catch ex As Exception
+                        LOGGER.Warn("LoadGridOverview - Check wether Column CONVERSATION is part of select/view")
+                    End Try
+
                     'GridView_Docs.OptionsView.ShowIndicator = False
                     LOGGER.Debug(" GridView_Docs.Columns loaded...")
                     Try

app/DD_PM_WINDREAM/frmValidator.vb

@@ -520,11 +520,11 @@ Public Class frmValidator
                         _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
                     End If
                 Else
-                    LOGGER.Info("Not loading AdditionalSearches...!")
+                    LOGGER.Info("Not loading AdditionalSearches 1...!")
                     bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                 End If
             Else
-                LOGGER.Info("Not loading AdditionalSearches...!")
+                LOGGER.Info("Not loading AdditionalSearches 2...!")
                 bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
         Catch ex As Exception
@@ -2526,6 +2526,7 @@ Public Class frmValidator
             LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'")
             If CURRENT_JUMP_DOC_GUID = 0 Then
                 CURRENT_DOC_GUID = Get_Next_GUID()
+                LOGGER.Debug($"CURRENT_JUMP_DOC_GUID = 0 ## NEW CURRENT_DOC_GUID: {CURRENT_DOC_GUID}'")
             ElseIf first = False Then
                 CURRENT_DOC_GUID = 0
             End If