fix first call of EDMIService

This commit is contained in:
Jonathan Jenne
2020-12-17 16:26:14 +01:00
parent 73679224f8
commit 448410fb29
6 changed files with 32 additions and 10 deletions

View File

@@ -68,6 +68,11 @@ Public Class ctrlApplicationAssignment
Dim oWindowTitle As String = GetSQLFriendlyString(oForm.WindowTitle)
Dim oProcessName As String = oForm.ProcessName
If oForm.IgnoreProcess = True Then
oProcessName = "_CATCHALL_"
End If
If oProcessName <> "" Then
Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName)
If Database.ExecuteNonQuery(oSQL) = False Then