MS Bodytext, Bugfixing deleting

EnvelopeGenerator.Common/Models/UserModel.vb

@@ -70,9 +70,9 @@ Public Class UserModel
         End Try
     End Function
 
-    Public Function SelectUserId() As Integer
+    Public Function SelectUserId(oUserName As String) As Integer
         Try
-            Dim oUserId As Integer = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{Environment.UserName}'")
+            Dim oUserId As Integer = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{oUserName}'")
             Return oUserId
 
         Catch ex As Exception