AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS ChangesLicenseDate

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-21 11:24:28 +01:00
parent 33c867325c
commit 93a36a5cc2
2 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -1,4 +1,5 @@
Imports System.ComponentModel
Imports System.Globalization
Imports DLLLicenseManager
Public Class ClassInit
@@ -64,8 +65,16 @@ Public Class ClassInit
Else
LICENSE_COUNT = 0
End If
If CDate(split(1)) <= CDate(Now.ToShortDateString) Then
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Die Lizenzanzahl wird auf 0 gesetzt" & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
Dim oLicDateString As String = split(1)
Dim cultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo("de-DE")
cultureInfo.DateTimeFormat.ShortDatePattern = "dd.MM.yyyy"
Dim oLicDate As Date = Convert.ToDateTime(oLicDateString, cultureInfo)
Dim oMyDate As Date = Convert.ToDateTime(Now.ToShortDateString, cultureInfo)
If oLicDate <= oMyDate Then
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Your sysadmin", MsgBoxStyle.Exclamation)
LICENSE_EXPIRED = True
LICENSE_COUNT = 0
End If