MS

app/DD-Record-Organizer/frmMain.vb

@@ -217,6 +217,7 @@ Public Class frmMain
             Dim oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
             Dim anzahl = ClassDatabase.Execute_Scalar(oSQL, False)
             USERS_LOGGED_IN = CInt(anzahl)
+
         Catch ex As Exception
 
         End Try
@@ -225,6 +226,7 @@ Public Class frmMain
             msg = "#User logged in: " & USERS_LOGGED_IN.ToString()
         End If
         LabelLoggedIn.Caption = msg
+        LOGGER.Info(msg + "(+1)")
     End Sub
     Sub Display_ConString()
         Try
@@ -572,7 +574,7 @@ Public Class frmMain
                 End If
 
                 'Lizenz abgellaufen, überprüfen ob User Admin ist
-                If LICENSE_COUNT < USERS_LOGGED_IN Then
+                If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
                     If USER_IS_ADMIN = True Then
                         LOGGER.Info("User is Admin - Timer will be started", False)
                         'If USER_LANGUAGE = "de-DE" Then
@@ -836,7 +838,7 @@ Public Class frmMain
     End Sub
 
     Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
-        If LICENSE_EXPIRED = True Or LICENSE_COUNT < USERS_LOGGED_IN Then
+        If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
             'If USER_LANGUAGE = "de-DE" Then
             '    MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
             'Else