ms

app/DD_PM_WINDREAM/ClassInit.vb

@@ -56,7 +56,7 @@ Public Class ClassInit
     Sub Refresh_Licence()
         Try
             Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
-            Dim lic As String = ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
+            Dim lic As String = CURRENT_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
             Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
             Dim split() = licString.ToString.Split("#")
 
@@ -133,5 +133,13 @@ Public Class ClassInit
         End Try
 
     End Sub
-
+    Public Sub InitBasics()
+        Try
+            Dim sql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
+            CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(sql)
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in InitBasics: " & ex.Message, True)
+            ERROR_STATE = "Basics not initialized"
+        End Try
+    End Sub
 End Class