From 039145c088813c990bf675257fb1f418a423fbac Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Fri, 9 Oct 2020 13:23:44 +0200
Subject: [PATCH] MS Config Popup

---
 app/DD_PM_WINDREAM/ClassParamRefresh.vb      | 2 ++
 app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 1 +
 app/DD_PM_WINDREAM/frmMain.vb                | 4 ++--
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb
index 1dd799a..f38f4b0 100644
--- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb
+++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb
@@ -65,6 +65,8 @@
                     RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
                 ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then
                     NO_DETAIL_PROFILES = True
+                ElseIf oMode = "PM.NO_POPUP" Then
+                    POPUP_REMINDER_ACTIVE = False
                 ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
                     Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
                     CONV_IDENTIFICATION = oIdent
diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
index 376fd9b..3707f44 100644
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
@@ -71,6 +71,7 @@ Module ModuleRuntimeVariables
     Public RIBBON_COLOR_SCHEME As String = "Blue"
     Public ADDITIONAL_TITLE As String = ""
     Public CONV_IDENTIFICATION As String = "Username"
+    Public POPUP_REMINDER_ACTIVE As Boolean = True
 
     Public LICENSE_COUNT As Integer = 0
     Public LICENSE_EXPIRED As Boolean = False
diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index c0fe190..e9fc57d 100644
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -989,12 +989,12 @@ Public Class frmMain
                 Exit Sub
             End If
 
-            If CURR_DT_OVERVIEW.Rows.Count > 0 Then
+            If CURR_DT_OVERVIEW.Rows.Count > 0 And POPUP_REMINDER_ACTIVE = True Then
                 Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
                 NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
             End If
         Catch ex As Exception
-            LOGGER.Warn($"Unexpected errin in TimerReminder:  {ex.Message}")
+            LOGGER.Warn($"Unexpected errin in TimerReminderTick:  {ex.Message}")
         End Try
 
     End Sub