Ms Inactivity, ApplServerConnections

app/DD_PM_WINDREAM/frmValidator.vb

@@ -35,7 +35,7 @@ Public Class frmValidator
 
     Public Shared WMDocPathWindows As String
     Public WMDocFileString As String
-
+    Private DocPathWindows As String
     Dim OLD_Document_Path As String = ""
     Dim ValueDTP As Date
     Dim AnzDoks As Integer
@@ -264,7 +264,7 @@ Public Class frmValidator
             RibbonPageConversations.Visible = False
             If IDB_ACTIVE Then
                 Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
-                DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG")
+                DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ, "FNIDB_OBJECT_DYNAMIC_CONFIG")
                 RibbonPageGroupConv1.Enabled = False
                 Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS)
                 Debug.WriteLine(oView.Count, "oView before")
@@ -2377,13 +2377,6 @@ Public Class frmValidator
         'process not found, return false
         Return False
     End Function
-
-
-    Function ReplaceWindreamDriveLetter(Filepath As String) As String
-        Return Filepath.
-            Replace("W:", "\\windream\objects").
-            Replace("K:", "\\windream\objects")
-    End Function
     Function Get_Next_GUID() As Integer
         Try
             LOGGER.Debug("Get_Next_GUID...")
@@ -2466,20 +2459,23 @@ Public Class frmValidator
             LOGGER.Debug($"Checking file 0 [{oResult}] exists?...")
             WMDocPathWindows = String.Empty
             If File.Exists(oResult) = False Then
-                LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
+                DocPathWindows = oResult
+                LOGGER.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...")
                 oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)"
-                    oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2")
-                    LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
-                    If File.Exists(oResult) = False Then
-                        LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!")
-                        Return False
-                    End If
+                oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2")
+                LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
+                If File.Exists(oResult) = False Then
+                    LOGGER.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!")
+                    DocPathWindows = oResult
+                    LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!")
+                    Return False
+                End If
 
             End If
             WMDocPathWindows = oResult
             OLD_Document_Path = WMDocPathWindows
             CURRENT_DOC_PATH = WMDocPathWindows
-            LOGGER.Debug($"CURRENT_DOC_PATH: {CURRENT_DOC_PATH}")
+            LOGGER.Info($"GetWMDocPathWindows CURRENT_DOC_PATH: {CURRENT_DOC_PATH}")
             Return True
         Catch ex As Exception
             WMDocPathWindows = ""
@@ -2549,7 +2545,8 @@ Public Class frmValidator
             LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
             If CURRENT_DOC_GUID > 0 Then
                 If GetDocPathWindows(0) = False Then
-                    MsgBox("The file can not be diplayed!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
+                    SetStatusLabel($"File not accessable: {DocPathWindows}", "DarkOrange")
+                    MsgBox("The file can not be diplayed or is not accessable!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
                 End If
                 If IDB_ACTIVE = False Then
                     If CreateWMObject() = False Then
@@ -3606,7 +3603,7 @@ Public Class frmValidator
                 If IDB_ACTIVE = True Then
                     Try
                         Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut"
-                        Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
+                        Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ)
                         If Not IsNothing(oDTINFO) Then
                             Dim oColor As System.Drawing.Color
                             If oDTINFO.Rows.Count > 0 Then
@@ -5458,7 +5455,7 @@ Public Class frmValidator
                     result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
                     If result = MsgBoxResult.Yes Then
                         Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
-                        If ClassDatabase.Execute_non_Query_ConStr(oSQL, CONNECTION_STRING_IDB, "EXEC PRIDB_END_CONVERSATION") = True Then
+                        If ClassDatabase.Execute_non_Query_ConStr(oSQL, CONNECTION_STRING_IDB_WRITE, "EXEC PRIDB_END_CONVERSATION") = True Then
                             btnitemConversationEnd.Enabled = False
                             SplitContainer2_DV_Chat.Collapsed = True
                             btnitemConversationEnd.Enabled = True