SQL-Abfragen in Models verschoben

User Model neu

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -1,7 +1,6 @@
 Imports System.Data.SqlClient
-Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
-Imports System.Data
+Imports DigitalData.Modules.Logging
 
 Public Class EnvelopeModel
     Inherits BaseModel
@@ -17,7 +16,8 @@ Public Class EnvelopeModel
             .Subject = pRow.ItemEx("SUBJECT", ""),
             .Message = pRow.ItemEx("MESSAGE", ""),
             .UserId = State.UserId,
-            .Status = ObjectEx.ToEnum(Of Constants.EnvelopeStatus)(pRow.ItemEx("STATUS", "Created"))
+            .Status = ObjectEx.ToEnum(Of Constants.EnvelopeStatus)(pRow.ItemEx("STATUS", "Created")),
+            .User = New User()
         }
 
         Return oEnvelope
@@ -49,6 +49,7 @@ Public Class EnvelopeModel
 
             If Database.ExecuteNonQuery(oCommand) Then
                 pEnvelope.Id = GetEnvelopeId(pEnvelope)
+                SetEnvelopeDate(pEnvelope)  'TODO JJ fragen
                 Return True
             Else
                 Return False
@@ -99,4 +100,14 @@ Public Class EnvelopeModel
             Return Nothing
         End Try
     End Function
+
+    Private Sub SetEnvelopeDate(pEnvelope As Envelope)
+        Try
+            Dim addedWhen As DateTime = Database.GetScalarValue($"SELECT ADDED_WHEN FROM TBSIG_ENVELOPE WHERE GUID = {pEnvelope.Id}")
+            pEnvelope.AddedWhen = addedWhen
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+
 End Class