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

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -19,6 +19,7 @@
     Public CURRENT_SQL_CON As Integer
     Public CURRENT_SQL_COMAMND As String
     Public CURRENT_DT_SQL_CONFIG_TABLE As DataTable
+    Public CURRENT_DT_CONFIG As DataTable
 
     Public CURRENT_CONTROL_ID As Integer
 

app/DD_PM_WINDREAM/frmSplash.vb

@@ -90,6 +90,7 @@ Public NotInheritable Class frmSplash
         If Init.InitDatabase() = True Then
             System.Threading.Thread.Sleep(600)
             bw.ReportProgress(CalcProgress(4), "Initialize UserConfiguration")
+            Init.InitBasics()
             Init.InitUserLogin()
 
             System.Threading.Thread.Sleep(600)