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

MS .0.8

Browse Source
This commit is contained in:
SchreiberM
2020-03-05 10:27:23 +01:00
parent f636abc2fc
commit 61a3e9b6d3
34 changed files with 6056 additions and 2576 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -101,7 +101,7 @@ Public Class ClassInit
Sub Refresh_Licence()
Try
Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim lic As String = CURRENT_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
Dim lic As String = BASEDATA_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("#")
@@ -255,10 +255,10 @@ Public Class ClassInit
Public Shared Sub InitBasics()
Try
Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
Settings_LoadBasicConfig()
oSql = "select * from TBDD_CONNECTION"
CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1"
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
@@ -269,7 +269,14 @@ Public Class ClassInit
End If
Next
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
CURRENT_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
oSql = "SELECT * FROM TBPM_CHART"
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True)
@@ -277,6 +284,17 @@ Public Class ClassInit
End Try
End Sub
<STAThread()>
Public Shared Sub InitBasics2()
Try
Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in InitBasics2: " & ex.Message, True)
ERROR_STATE = "Basics2 not initialized"
End Try
End Sub
<STAThread()>
Private Shared Function Settings_LoadBasicConfig()
Try
Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"