einfach alles

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -8,14 +8,17 @@ Public Class EnvelopeModel
 
     Private ReadOnly UserModel As UserModel
     Private ReadOnly ReceiverModel As ReceiverModel
+    Private ReadOnly HistoryModel As HistoryModel
     Private ReadOnly DocumentModel As DocumentModel
 
+
     Public Sub New(pState As State)
         MyBase.New(pState)
 
         UserModel = New UserModel(pState)
         ReceiverModel = New ReceiverModel(pState)
         DocumentModel = New DocumentModel(pState)
+        HistoryModel = New HistoryModel(pState)
     End Sub
 
     Private Function ToEnvelope(pRow As DataRow) As Envelope
@@ -35,6 +38,7 @@ Public Class EnvelopeModel
         oEnvelope.User = UserModel.SelectUser(oEnvelope.UserId)
         oEnvelope.Receivers = ReceiverModel.ListEnvelopeReceivers(oEnvelope.Id)
         oEnvelope.Documents = DocumentModel.List(oEnvelope.Id)
+        oEnvelope.History = HistoryModel.List(oEnvelope.Id)
 
         Return oEnvelope
     End Function