MS

app/DD-Record-Organiser/ClassInit.vb

@@ -50,7 +50,7 @@ Public Class ClassInit
 
     End Sub
 
-    Public Sub InitUserLogin()
+    Public Shared Function InitUserLogin()
         Dim sql = sql_UserID
         sql = sql.Replace("@user", Environment.UserName)
         ClassLogger.Add(">> Neuanmeldung am System: " & Now.ToString, False)
@@ -58,10 +58,16 @@ Public Class ClassInit
 
         USER_GUID = ClassDatabase.Execute_Scalar(sql)
         If USER_GUID Is Nothing Then
-            ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False)
+            ClassLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", False)
             'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
             'Me.Close()
-            Throw New Exception("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+            Dim msg = String.Format("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
+            End If
+            MsgBox(msg, MsgBoxStyle.Exclamation)
+            Return False
         Else
             USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
             Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
@@ -82,7 +88,13 @@ Public Class ClassInit
             If ClassDatabase.Execute_Scalar(sql) = False Then
                 ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
                 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                Throw New Exception("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+                Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
+                End If
+                MsgBox(msg, MsgBoxStyle.Exclamation)
+                Return False
                 'Me.Close()
             Else
                 'Am System anmelden
@@ -115,13 +127,20 @@ Public Class ClassInit
                 '####
 
                 If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then
-                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.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 (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Record-Organizer!", False)
+                    Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+
+                    If USER_LANGUAGE <> "de-DE" Then
+                        msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine & _
+                                            "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
+                    End If
+                    MsgBox(msg, MsgBoxStyle.Exclamation)
+                    ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
                     If USER_IS_ADMIN = False Then
                         'Anmeldung wieder herausnehmen
                         sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
                         ClassDatabase.Execute_non_Query(sql, True)
-                        ClassLogger.Add(" - Wieder abgemeldet", False)
+                        ClassLogger.Add(" - logged out the user", False)
+                        Return False
                     End If
                 Else
                     Try
@@ -137,6 +156,7 @@ Public Class ClassInit
                         End If
                     Catch ex As Exception
                         ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
+                        Return False
                     End Try
 
                 End If
@@ -145,6 +165,6 @@ Public Class ClassInit
                 'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
             End If
         End If
-    End Sub
+    End Function
 
 End Class