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

Ms Dev suche

Browse Source
This commit is contained in:
SchreiberM
2022-02-14 17:53:03 +01:00
parent dcf7bc7810
commit 2b00f22a38
9 changed files with 662 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/ClassInit.vb
View File

@@ -10,6 +10,7 @@ Imports DigitalData.GUIs.ZooFlow.ClassConstants
Imports DigitalData.GUIs.ZooFlow.ClassInitLoader
Imports DigitalData.Controls.SQLConfig
Imports System.Data.SqlClient
Imports DigitalData.Modules
Public Class ClassInit
Inherits Base.BaseClass
@@ -208,10 +209,13 @@ Public Class ClassInit
End Sub
Private Sub InitBasicConfig(MyApplication As My.MyApplication)
Try
My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatableIDB("SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1")
Dim oSQL = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSQL, EDMI.API.Constants.DatabaseType.IDB)
oSQL = "Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '" + MyApplication.User.Language + "'"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSQL, EDMI.API.Constants.DatabaseType.IDB, "LANG_CODE = '" + MyApplication.User.Language + "'")
' My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatableIDB("SELECT * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '" + MyApplication.User.Language + "'")
Catch ex As Exception
Logger.Error(ex)
Throw New InitException("Error in InitBasicData", ex)