From e9135d3543b8a29f5fc66baa17cce2a1c1538946 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 18 Apr 2019 10:41:51 +0200 Subject: [PATCH] Init UserCount --- Global_Indexer/ClassInit.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb index b4f3c33..6cdfa29 100644 --- a/Global_Indexer/ClassInit.vb +++ b/Global_Indexer/ClassInit.vb @@ -222,6 +222,7 @@ Public Class ClassInit Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False) UserLoggedin = CInt(anzahl) + UserLoggedin += 1 If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)