AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Switch License Module, Move SnapToDesktopBorder to Window Module

Browse Source
This commit is contained in:
Jonathan Jenne
2021-09-23 11:23:01 +02:00
parent 7e28e072df
commit 59d6d26dce
7 changed files with 30 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/ClassLicence.vb
View File

@@ -1,15 +1,17 @@
Imports System.Globalization
Imports DLLLicenseManager
Imports DigitalData.Modules.License
Public Class ClassLicence
Public Shared License_Date As Date
Private Shared _lizenzManager As ClassLicenseManager
Public Shared LicenseDate As Date
Public Shared LicenseManager As LicenseManagerLegacy
Public Shared Sub Refresh_Licence()
Try
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
LicenseManager = New LicenseManagerLegacy(LOGCONFIG, "#DigitalData35452!#", "")
Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
Dim licEncoded As String = DATABASE_ECM.GetScalarValue(sql)
Dim licString As String = _lizenzManager.DecodeLicenseKey(licEncoded)
Dim licString As String = LicenseManager.DecodeLicenseKey(licEncoded)
Dim licArray() As String = licString.ToString.Split("#")
If licEncoded <> "" Then
@@ -20,10 +22,10 @@ Public Class ClassLicence
LOGGER.Debug("License Date is {0}", licArray(1))
License_Date = Date.ParseExact(licArray(1), "dd.MM.yyyy", CultureInfo.InvariantCulture)
LicenseDate = Date.ParseExact(licArray(1), "dd.MM.yyyy", CultureInfo.InvariantCulture)
'License_Date = CDate(split(1))
If License_Date < Now Then
If LicenseDate < Now Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & licArray(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
Else
@@ -51,9 +53,9 @@ Public Class ClassLicence
Public Shared Function license_is_Valid()
If LICENSE_EXPIRED Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & License_Date & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & LicenseDate & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
Else
MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & License_Date & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & LicenseDate & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
End If
Return False