MS Notifications

app/DD_PM_WINDREAM/ClassParamRefresh.vb

@@ -34,13 +34,14 @@ Public Class ClassParamRefresh
             End Try
             Try
                 ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
+
                 If ADDITIONAL_TITLE = String.Empty Then
                     ADDITIONAL_TITLE = My.Application.Info.ProductName
                 End If
             Catch ex As Exception
                 ADDITIONAL_TITLE = My.Application.Info.ProductName
             End Try
-
+            TITLE_NOTIFICATIONS = ADDITIONAL_TITLE
             Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
 
             ' Use For Each loop over words and display them.
@@ -177,6 +178,13 @@ Public Class ClassParamRefresh
                     Catch ex As Exception
                         TL_ICON = False
                     End Try
+                ElseIf oMode.StartsWith("PM.TITLE_NOTIFICATIONS") Then
+                    Dim oParam = oMode.Replace("PM.TITLE_NOTIFICATIONS=", "")
+                    Try
+                        TITLE_NOTIFICATIONS = oParam
+                    Catch ex As Exception
+                        TITLE_NOTIFICATIONS = ""
+                    End Try
                 ElseIf oMode.StartsWith("PM.START_CW") Then
                     Dim oAfterReplace = oMode.Replace("PM.START_CW=", "")
                     Try