MS Update logit

app/DD-Record-Organizer/ClassHelper.vb

@@ -2,6 +2,21 @@
 Imports System.Globalization
 Imports DD_LIB_Standards
 Public Class ClassHelper
+    Public Shared Function FORMAT_WM_PATH(WMpath As String)
+        Try
+            If WMpath.StartsWith("W:") Then
+                WMpath = WMpath.Replace("W:", "\\windream\Objects")
+            ElseIf WMpath.StartsWith("\") Then
+                If WMpath.StartsWith("\\windream\Objects") = False Then
+                    WMpath = "\\windream\Objects" & WMpath
+                End If
+            End If
+            Return WMpath
+        Catch ex As Exception
+            Return WMpath
+        End Try
+
+    End Function
     Public Shared Function Format_Currency(value As String, language As String)
         Try
             If IsNothing(value) Then
@@ -138,6 +153,8 @@ Public Class ClassHelper
     End Function
     Public Shared Sub File_open(RESULT_DOC_PATH As Object, DocID As String)
         Try
+            RESULT_DOC_PATH = FORMAT_WM_PATH(RESULT_DOC_PATH)
+
             If RESULT_DOC_PATH <> Nothing Then
                 If USER_GENERAL_VIEWER = "NONE" Then
                     Dim EXT = Path.GetExtension(RESULT_DOC_PATH)