This commit is contained in:
Digital Data - Marlon Schreiber 2019-06-13 13:02:18 +02:00
parent 1b0729c2e3
commit 2b56e298c4

View File

@ -722,8 +722,8 @@ Public Class frmMain
Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
sql = sql.Replace("@USER_ID", USER_ID) sql = sql.Replace("@USER_ID", USER_ID)
sql = sql.Replace("@USERNAME", Environment.UserName) sql = sql.Replace("@USERNAME", Environment.UserName) '{#INT#USERNAME}
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) '{#INT#machineName}
sql = sql.Replace("@DATE", Now.ToShortDateString) sql = sql.Replace("@DATE", Now.ToShortDateString)
sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)