diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 3ad7027..5cc085c 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/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 diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index 2a8fef6..e8aec4e 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/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 diff --git a/app/DD_PM_WINDREAM/frmSplash.vb b/app/DD_PM_WINDREAM/frmSplash.vb index 91d3a18..7bda013 100644 --- a/app/DD_PM_WINDREAM/frmSplash.vb +++ b/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)