Smmelrechnung Splitting Abf.Art, Benachrichtigung Vorauskasse, Session Online

VERAG_PROG_ALLGEMEIN/Classes/cSession.vb

@@ -125,6 +125,21 @@ Public Class cSession
 
 
 
+    Public Shared Function IS_ONLINE(sess_maId) As Boolean
+        Try
+            Dim SQL As New SQL
+            Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_Id FROM   tblSessions   where sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_maId='" & sess_maId & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1)
+            If sess_IdOnline > 0 Then
+                Return True
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+
+    End Function
+
+
     Public Shared Function GET_IP_FROM_MAID(sess_maId) As String
         Dim SQL As New SQL
         Return SQL.getValueTxtBySql(" SELECT TOP 1 isnull(sess_ipaddress,'') as sess_ipaddress FROM [tblSessions] where sess_lastRm > DATEADD(SECOND,-70, GETDATE()) AND sess_maId=" & sess_maId, "ADMIN")