16-08-23

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -137,7 +137,12 @@ Public Class ReceiverModel
 
     Public Function ListReceivers(pExistingReceivers As IEnumerable(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
         Try
+            If pExistingReceivers.Count = 0 Then
+                Return New List(Of EnvelopeReceiver)
+            End If
+
             Dim oAddresses = pExistingReceivers.Select(Function(r) $"'{r.Email}'").JoinToString(",")
+
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_RECEIVER] WHERE EMAIL_ADDRESS IN ({oAddresses})"
             Dim oTable = Database.GetDatatable(oSql)
 
@@ -151,10 +156,10 @@ Public Class ReceiverModel
         End Try
     End Function
 
-    Public Function Delete(pReceiverId As Integer, pDocumentId As Integer) As Boolean
+    Public Function Delete(pReceiverId As Integer, pEnvelopeId As Integer, pTransaction As SqlTransaction) As Boolean
         Try
-            Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}"
-            Return Database.ExecuteNonQuery(oSql)
+            Dim oSql = $"DELETE FROM TBSIG_ENVELOPE_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND ENVELOPE_ID = {pEnvelopeId}"
+            Return Database.ExecuteNonQuery(oSql, pTransaction)
 
         Catch ex As Exception
             Logger.Error(ex)