neu

SDL/frmMain.vb

@@ -23,6 +23,7 @@ Public Class frmMain
     Dim FUNC As New cProgramFunctions
 
     Public BERECHTIGUNEN As List(Of cBerechtigungen) = cBerechtignungenFunctions.loadBerechtigungen(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
 
 
     Private Sub UpdateSession_Tick(sender As Object, e As EventArgs) Handles UpdateSession.Tick
@@ -52,7 +53,7 @@ Public Class frmMain
     End Sub
 
 
-    Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+    Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
         If e.KeyCode = Keys.Escape Then
             KdSearchBox1.Text = ""
             KdSearchBox1.Focus()
@@ -64,10 +65,11 @@ Public Class frmMain
         End If '
     End Sub
 
-    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size
         Me.WindowState = FormWindowState.Maximized
 
+        Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs)
 
         UpdateSession.Interval = 60000
         UpdateSession.Enabled = True
@@ -86,6 +88,10 @@ Public Class frmMain
             mnueZoll.Enabled = False
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "SDL") Then
+            picAVISOMessenger.Visible = True
+        End If
+
 
         lblVersion.Text = "V " & My.Resources.Version
         lblMs.Text = ""
@@ -108,7 +114,7 @@ Public Class frmMain
             mnueBuchhaltung.Enabled = False
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me)  Then
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
             mnueAdministration.Visible = True
         End If
 
@@ -161,10 +167,10 @@ Public Class frmMain
     End Sub
 
     Private Sub btnKunden_Click(sender As Object, e As EventArgs)
-            clrPnlMain()
-            Dim usrCntl As New usrCntlKunden
-            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
-            pnlMain.Controls.Add(usrCntl)
+        clrPnlMain()
+        Dim usrCntl As New usrCntlKunden
+        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+        pnlMain.Controls.Add(usrCntl)
 
         '   setInfo("err", "Kundendaten sind noch nicht freigegeben!", 3)
 
@@ -285,7 +291,7 @@ Public Class frmMain
         '  End If
     End Sub
 
-    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         KdSearchBox1.Focus()
         UpdateUpdater.Interval = 5000
         UpdateUpdater.Enabled = True
@@ -566,7 +572,7 @@ Public Class frmMain
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or
          VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_Login", "SDL") Or
          VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_Saldo_Anzeige", "SDL") Then
-              Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
+            Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
             frmSecureLoginKassenbuch.openKB = True
             frmSecureLoginKassenbuch.ShowDialog(Me)
         End If
@@ -794,6 +800,88 @@ Public Class frmMain
         Dim f As New Parkzeit.frmMain
         f.Show()
     End Sub
+
+    Dim Timer_REFRESH_firstTime = True
+    Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
+        If Timer_REFRESH_firstTime Then
+            Timer_REFRESH_firstTime = False
+            Exit Sub
+        End If
+        Try
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
+                Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
+                ' MsgBox(newMsg)
+                Label20.Text = newMsg
+                Label20.Visible = (newMsg > 0)
+                If newMsg Then
+                    ' Me.Icon = My.Resources.avisoNewMsg
+
+                    Dim isshown = False
+                    For Each openForm In Application.OpenForms()
+                        If TypeOf (openForm) Is frmNotify Then
+                            isshown = True
+                        End If
+                    Next
+
+                    Dim isInFront = False
+                    For Each openForm In Application.OpenForms()
+                        If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
+                            '  If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
+                            If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
+                                isInFront = True
+                            End If
+                        End If
+                    Next
+                    If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
+                Else
+                    '  Me.Icon = My.Resources.Aviso
+                End If
+                If Label20.Visible Then Label20.BringToFront()
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
+
+        For Each openForm In Application.OpenForms()
+            If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
+                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
+                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
+                Exit Sub
+            End If
+        Next
+
+        Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
+        f.Location = Cursor.Position
+        f.Show(Me)
+    End Sub
+
+
+    Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
+        '   Exit Sub 'NICHT AKTIV
+        Dim formTmp = Me.ActiveForm
+        Dim frmNotify As New frmNotify(art, title, text, id)
+        frmNotify.TimerInterval = 1200000 ' 20min
+
+
+        Dim tmpY As Integer = Me.Height
+        If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
+
+        For Each ft As Form In Application.OpenForms
+            ' MsgBox(ft.GetType.ToString)
+            If ft.GetType.ToString = "frmNotify" Then
+                If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
+            End If
+        Next
+        frmNotify.Y = tmpY - frmNotify.Height - 10
+        frmNotify.Show()
+
+        If formTmp IsNot Nothing Then formTmp.Focus()
+    End Sub
+
 End Class
 
 Public Class MyRenderer