This commit is contained in:
SchreiberM
2016-03-07 09:13:55 +01:00
parent 45e67aea4e
commit 3266da1baa
17 changed files with 8363 additions and 8828 deletions

View File

@@ -700,7 +700,7 @@ Public Class ClassControlCommandsUI
Public Shared Function CreateRecord(FormID)
Dim ADDED_WHO As String = Environment.UserName
Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ")"
Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID,RECORD_ENTITY_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ",4711)"
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function