+SDL-Leistung_MED PASS; Anpassung Fakturierung

VERAG_PROG_ALLGEMEIN/Classes/cSession.vb

@@ -125,9 +125,11 @@ Public Class cSession
 
 
 
-    Public Shared Function IS_ONLINE(sess_maId) As Boolean
+    Public Shared Function IS_ONLINE(sess_maId, Optional andIsRealUser = False) As Boolean
         Try
             Dim SQL As New SQL
+            Dim where = ""
+            If andIsRealUser Then where = " AND  mit_pseudoUser=0 "
             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