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

MS anpassungen

Browse Source
This commit is contained in:
SchreiberM
2022-02-15 17:28:32 +01:00
parent c2b81af556
commit 5f69002668
20 changed files with 707 additions and 484 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
GUIs.ZooFlow/ClassInit.vb
View File

@@ -211,10 +211,19 @@ Public Class ClassInit
Try
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 + "'")
oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}")
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}'")
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
DocResultBaseSearch = oRow.Item("SQL_COMMAND")
DocResultBaseSearch = DocResultBaseSearch.Replace("@USER_ID", My.Application.User.UserId)
DocResultBaseSearch = DocResultBaseSearch.Replace("@LANG_CODE", My.Application.User.Language)
End If
Next
' 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)