ms

2020-08-10 17:26:48 +02:00 · 2020-08-10 17:26:48 +02:00 · f5292bdfce
commit f5292bdfce
parent 2579e3f183
4 changed files with 70 additions and 30 deletions
--- 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)
--- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss
+++ b/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" />
--- 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
--- 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