From 53108d870bdcf5a98d2349f01367e80ac0bbd69e Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Wed, 20 Mar 2024 21:59:18 +0100
Subject: [PATCH] Chat Problem behoben (Timer/Variable)

---
 Aviso/My Project/AssemblyInfo.vb | 4 ++--
 Aviso/frmHauptfenster.vb         | 7 +++++--
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 6990eb4..023f0de 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.9.7.9")>
-<Assembly: AssemblyFileVersion("3.9.7.9")>
+<Assembly: AssemblyVersion("3.9.8.1")>
+<Assembly: AssemblyFileVersion("3.9.8.1")>
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 91fc88d..a9cb6c8 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -4087,10 +4087,13 @@ Public Class frmHauptfenster
                 ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
 
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
+                    VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN
                     Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
-                    Label20.Text = newMsg
+                    Label20.Text = newMsg.ToString
                     Label20.Visible = (newMsg > 0)
-                    If newMsg Then
+                    VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN
+
+                    If newMsg > 0 Then
                         Me.Icon = My.Resources.avisoNewMsg
 
                         Dim isshown = False