31-10-2023

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -6,12 +6,14 @@ Imports DigitalData.Modules.Logging
 Public Class EnvelopeModel
     Inherits BaseModel
 
-    Private UserModel As UserModel
+    Private ReadOnly UserModel As UserModel
+    Private ReadOnly ReceiverModel As ReceiverModel
 
     Public Sub New(pState As State)
         MyBase.New(pState)
 
         UserModel = New UserModel(pState)
+        ReceiverModel = New ReceiverModel(pState)
     End Sub
 
     Private Function ToEnvelope(pRow As DataRow) As Envelope
@@ -29,6 +31,7 @@ Public Class EnvelopeModel
         }
 
         oEnvelope.User = UserModel.SelectUser(oEnvelope.UserId)
+        oEnvelope.Receivers = ReceiverModel.ListEnvelopeReceivers(oEnvelope.Id)
 
         Return oEnvelope
     End Function