AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-02-07 08:57:52 +01:00
parent 9a20a6c03b
commit e093a5a102
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -56,7 +56,7 @@ Public Class ClassInit
Sub Refresh_Licence() Sub Refresh_Licence()
Try Try
Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") 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 licString = Me._lizenzManager.DecodeLicenseKey(lic)
Dim split() = licString.ToString.Split("#") Dim split() = licString.ToString.Split("#")
@ -133,5 +133,13 @@ Public Class ClassInit
End Try End Try
End Sub 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 End Class

1
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

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

1
app/DD_PM_WINDREAM/frmSplash.vb
View File

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