This commit is contained in:
SchreiberM
2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions

View File

@@ -61,7 +61,7 @@
Try
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim insert = "INSERT INTO TBPMO_USER_GLOBAL_SEARCH (USER_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", '" & Environment.UserName & "')"
Dim insert = "INSERT INTO TBPMO_USER_GLOBAL_SEARCH (USER_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", '" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert, False) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If