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

MS SQL Command IDB

Browse Source
This commit is contained in:
SchreiberM
2022-05-17 10:13:15 +02:00
parent c1ffeb01e7
commit 11c7b4e5e9
14 changed files with 225 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
GUIs.ZooFlow/ClassInit.vb
View File

@@ -266,10 +266,21 @@ Public Class ClassInit
My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSql, EDMI.API.Constants.DatabaseType.IDB)
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
Dim oBaseSQL = oRow.Item("SQL_COMMAND").ToString
oBaseSQL = oBaseSQL.Replace("@USER_ID", My.Application.User.UserId)
oBaseSQL = oBaseSQL.Replace("@USERID", My.Application.User.UserId)
oBaseSQL = oBaseSQL.Replace("@USRID", My.Application.User.UserId)
oBaseSQL = oBaseSQL.Replace("@USRNAME", My.Application.User.UserName)
oBaseSQL = oBaseSQL.Replace("@UserName", My.Application.User.UserName)
oBaseSQL = oBaseSQL.Replace("@LANG_CODE", My.Application.User.Language)
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)
SQL_DocResultBase = oBaseSQL
ElseIf oRow.Item("TITLE") = SQLCMD_AHW_LAYOUT_SELECT Then
SQL_AHW_LAYOUT_SELECT = oBaseSQL
ElseIf oRow.Item("TITLE") = SQLCMD_AHW_USR_SELECT Then
SQL_AHW_USR_SELECT = oBaseSQL
ElseIf oRow.Item("TITLE") = SQLCMD_RECENT_FILES_USER Then
SQL_RECENT_FILES_USER = oBaseSQL
End If
Next
@@ -299,7 +310,7 @@ Public Class ClassInit
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSql, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'")
If DocResultBaseSearch = "" Then
If SQL_DocResultBase = "" Then
Logger.Warn($"ATTENTION: NO DocResultBaseSearch - Check if entry {SQLCMD_FLOW_SEARCH_BASE} exists in TBIDB_COMMON_SQL")
End If