MS

2018-06-13 14:46:50 +02:00
parent 6a02439942
commit 8d9098fe8e
6 changed files with 42 additions and 18 deletions
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -475,6 +475,7 @@ Public Class frmMain
                lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
                Dim sql = foundRows(0)("SQL_VIEW")
                sql = sql.Replace("@USER", Environment.UserName)
+                sql = sql.Replace("@USER_ID", CURRENT_USER_ID)
                sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
                sql = sql.Replace("@DATE", Now.ToShortDateString)
                sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)