From f5292bdfcee398905bf88466131d22485b4a638c Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 10 Aug 2020 17:26:48 +0200 Subject: [PATCH] ms --- app/DD_PM_WINDREAM/ClassInit.vb | 5 ++ app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 2 +- app/DD_PM_WINDREAM/frmMain.vb | 88 ++++++++++++++++-------- app/DD_PM_WINDREAM/frmValidator.vb | 5 +- 4 files changed, 70 insertions(+), 30 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 859970b..7a40881 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/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) diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 4b5cce7..7dc43f9 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -11,7 +11,7 @@ - + diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index bd6390b..895b173 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/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 - GridView_Docs.Columns.Item("CONV_YN").Visible = False - 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 + 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").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 - Dim oCONVYN As Boolean = oRow.Item("CONV_YN") - Select Case oCONVYN - Case True - oRow.Item("CONVERSATION") = My.Resources.conversation - End Select + 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").Fixed = FixedStyle.Left + Catch ex As Exception + LOGGER.Warn("Check wether Column CONVERSATION is part of select/view") + End Try - GridView_Docs.Columns.Item("CONV_YN").Visible = False - 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 ' 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 - Dim oCONVYN As Boolean = oRow.Item("CONV_YN") - Select Case oCONVYN - Case True - ' RedDocuments += 1 - oRow.Item("CONVERSATION") = My.Resources.conversation - End Select + 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 - GridView_Docs.Columns.Item("CONV_YN").Visible = False - 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 + 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").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 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 2c9edfc..fc2b74f 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/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