MS_23.11

app/DD-Record-Organiser/frmMain.vb

@@ -349,6 +349,39 @@ Public Class frmMain
             OpenFormConstructor(Sett_ConstructorStart)
             Cursor = Cursors.Default
         End If
+        'Lizenz abgellaufen, überprüfen ob User Admin ist
+        If LICENSE_COUNT < USERS_LOGGED_IN Then
+            If USER_IS_ADMIN = True Then
+                ClassLogger.Add(">> User is Admin - Timer will be started", False)
+                'If USER_LANGUAGE = "de-DE" Then
+                MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
+                'Else
+                '    MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
+                'End If
+
+                'Timer starten
+                If TimerClose3Minutes.Enabled = False Then
+                    TimerClose3Minutes.Start()
+                End If
+            End If
+        End If
+        'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
+        '    If CURRENT_USER_IS_ADMIN = True Then
+        '        ClassLogger.Add(">> User is Admin - Timer will be started", False)
+        '        If USER_LANGUAGE = "de-DE" Then
+        '            MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
+        '        Else
+        '            MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
+        '        End If
+
+        '        'Timer starten
+        '        If TimerClose3Minutes.Enabled = False Then
+        '            TimerClose3Minutes.Start()
+        '        End If
+        '    End If
+        'End If
+
+
     End Sub
 
     Private Sub Workflow_Taskmanagement_Click(sender As Object, e As EventArgs) Handles NotifyIcon1.Click
@@ -467,4 +500,28 @@ Public Class frmMain
     Private Sub BarButtonItem17_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem17.ItemClick
         OpenTemplatemanagement()
     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 USER_LANGUAGE = "de-DE" Then
+            '    MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
+            'Else
+            MsgBox("Global Indexer will now be closed, cause no new license was updated!", MsgBoxStyle.Information)
+            'End If
+            Me.Close()
+        Else
+            TimerClose3Minutes.Stop()
+        End If
+    End Sub
+
+    Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
+        Select Case e.KeyCode
+            Case Keys.F12
+                Try
+                    frmLicense.ShowDialog()
+                Catch ex As Exception
+
+                End Try
+        End Select
+    End Sub
 End Class