MS

app/DD-Record-Organiser/ClassLicence.vb

@@ -1,13 +1,19 @@
 Imports DLLLicenseManager
 Public Class ClassLicence
-    Public Shared License_Date As Date
+
     Private Shared _lizenzManager As ClassLicenseManager
-    Public Shared Sub Refresh_Licence()
+    Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
         Try
             _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
-            Dim sql As String = "SELECT LICENSE FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')"
+            Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
 
             Dim lic As String = ClassDatabase.Execute_Scalar(sql, True)
+            If lic = "" Then
+                LICENSE_COUNT = 0
+                LICENSE_DATE = "1900-01-01"
+                LICENSE_DOSSIER_COUNT = 0
+                Exit Sub
+            End If
             Dim licString = _lizenzManager.DecodeLicenseKey(lic)
             Dim split() = licString.ToString.Split("#")
 
@@ -16,7 +22,7 @@ Public Class ClassLicence
             Else
                 LICENSE_COUNT = 0
             End If
-            License_Date = CDate(split(1))
+            LICENSE_DATE = CDate(split(1))
             If CDate(split(1)) < CDate(Now.ToShortDateString) Then
                 MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
                 LICENSE_EXPIRED = True