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

Fix Wix Path finally :D, Translate frmIndex to en

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-01 12:33:41 +01:00
parent 6042b7321d
commit d831fbc50d
23 changed files with 1723 additions and 1091 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Global_Indexer/ClassLicence.vb
View File

@@ -1,4 +1,5 @@
Imports DLLLicenseManager
Imports System.Globalization
Imports DLLLicenseManager
Public Class ClassLicence
Public Shared License_Date As Date
Private Shared _lizenzManager As ClassLicenseManager
@@ -7,21 +8,26 @@ Public Class ClassLicence
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
Dim lic As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
Dim licString = _lizenzManager.DecodeLicenseKey(lic)
Dim split() = licString.ToString.Split("#")
Dim licEncoded As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
Dim licString As String = _lizenzManager.DecodeLicenseKey(licEncoded)
Dim licArray() As String = licString.ToString.Split("#")
If lic <> "" Then
LICENSE_COUNT = split(0)
If licEncoded <> "" Then
LICENSE_COUNT = licArray(0)
Else
LICENSE_COUNT = 0
End If
License_Date = CDate(split(1))
If CDate(split(1)) < CDate(Now.ToShortDateString) Then
LOGGER.Debug("License Date is {0}", licArray(1))
License_Date = Date.ParseExact(licArray(1), "dd.MM.yyyy", CultureInfo.InvariantCulture)
'License_Date = CDate(split(1))
If License_Date < Now Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & licArray(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
Else
MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & split(1) & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & licArray(1) & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
End If
START_INCOMPLETE = True
LICENSE_EXPIRED = True
@@ -29,13 +35,14 @@ Public Class ClassLicence
End If
'tslblLicenses.Text = "Anzahl Lizenzen: " & licenseanzahl
LICENSE_DOCTYPE_COUNT = split(2)
LICENSE_DOCTYPE_COUNT = licArray(2)
Try
LicenseHotKey = split(3)
LicenseHotKey = licArray(3)
Catch ex As Exception
LicenseHotKey = 0
End Try
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Unexpected error in Licensemanager:")
START_INCOMPLETE = True
End Try