MS

app/DD-Record-Organizer/ClassLicence.vb

@@ -1,9 +1,13 @@
-Imports DLLLicenseManager
+Imports System.Globalization
+Imports DLLLicenseManager
 Public Class ClassLicence
 
     Private Shared _lizenzManager As ClassLicenseManager
     Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
         Try
+
+            Dim todayDate As Date = New Date(Now.Year, Now.Month, Now.Day)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> todayDate: " & todayDate.ToString, False)
             _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
             Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
 
@@ -22,15 +26,70 @@ Public Class ClassLicence
             Else
                 LICENSE_COUNT = 0
             End If
-            LICENSE_DATE = CDate(split(1))
-            If CDate(split(1)) < CDate(Now.ToShortDateString) Then
+            Dim LicDATEsplit() = split(1).ToString.Split("-")
+            Dim LICENSE_FILE_DATE As Date
+            Try
+                LICENSE_FILE_DATE = New Date(LicDATEsplit(0), LicDATEsplit(1), LicDATEsplit(2))
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString, False)
+                Try
+                    Try
+                        LICENSE_DATE = CDate(LICENSE_FILE_DATE)
+                    Catch ex As Exception
+                        ClassLogger.Add(">> Could not read LICENSE_DATE2: " & ex.Message, False)
+                    End Try
+
+                Catch ex As Exception
+                    ClassLogger.Add(">> Could not read LICENSE_DATE1: " & ex.Message, False)
+                End Try
+            Catch ex As Exception
+                ClassLogger.Add(">> Could not read LICENSE_DATE3: " & ex.Message, False)
+                LICENSE_FILE_DATE = New Date(Now.Year, Now.Month, Now.Day)
+            End Try
+
+
+
+
+            If LICENSE_FILE_DATE < CDate(todayDate) Then
                 MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
                 LICENSE_EXPIRED = True
                 LICENSE_COUNT = 0
             End If
 
-            ''Die Anzahl der Userlizenzen
-            'LICENSE_COUNT = split(1)
+            sql = String.Format("SELECT NAME, VALID_DATE, '' AS State FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer'", CLIENT_ID)
+            DT_LICENSE_ADDONS = ClassDatabase.Return_Datatable(sql)
+            For Each license_Row As DataRow In DT_LICENSE_ADDONS.Rows
+                Dim expired As Boolean = False
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> AddOnName: " & license_Row.Item("NAME"), False)
+                Dim result = ClassHelper.DecryptString(license_Row.Item("VALID_DATE"), license_Row.Item("NAME"))
+                If result <> "" Then
+                    Dim datesplit() = result.ToString.Split("-")
+                    Dim licdate As Date = New Date(datesplit(0), datesplit(1), datesplit(2))
+                    Dim license_date = CDate(result)
+                    If CDate(licdate) < CDate(todayDate) Then
+                        expired = True
+                        license_Row.Item("State") = "Expired"
+                    Else
+                        expired = False
+                        license_Row.Item("State") = "Valid"
+                    End If
+                Else
+                    expired = True
+                End If
+
+                If license_Row.Item("NAME") = "Proxy-Server" Then
+                    If expired = False Then
+                        LICENSE_PROXY = True
+                    End If
+                ElseIf license_Row.Item("NAME") = "Site-AddOn" Then
+                    If expired = False Then
+                        LICENSE_SITE = True
+                    End If
+                ElseIf license_Row.Item("NAME") = "SAP-Connect" Then
+                    If expired = False Then
+                        LICENSE_SAP_Connect = True
+                    End If
+                End If
+            Next
 
             Try
                 LICENSE_DOSSIER_COUNT = split(2)
@@ -38,18 +97,7 @@ Public Class ClassLicence
                 ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False)
                 LICENSE_DOSSIER_COUNT = 0
             End Try
-            Try
-                LICENSE_SAP_Connect = CBool(split(3))
-            Catch ex As Exception
-                ClassLogger.Add(">> Could not read License for LICENSE_SAP_Connect: " & ex.Message, False)
-                LICENSE_SAP_Connect = False
-            End Try
-            Try
-                LICENSE_SITE_PROXY = CBool(split(4))
-            Catch ex As Exception
-                ClassLogger.Add(">> Could not read License for LICENSE_SITE_Proxy: " & ex.Message, False)
-                LICENSE_SITE_PROXY = False
-            End Try
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
         End Try
@@ -57,7 +105,7 @@ Public Class ClassLicence
 
     Public Shared Function license_is_Valid()
         If LICENSE_EXPIRED Then
-            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: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation)
             Return False
         Else : Return True