09-08-2023

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -42,7 +42,7 @@ Public Class ReceiverModel
             oCommand.Parameters.Add("EMAIL", SqlDbType.NVarChar).Value = pReceiver.Email
             oCommand.Parameters.Add("SIGNATURE", SqlDbType.NVarChar).Value = pReceiver.Signature
 
-            Dim oResult = Database.ExecuteNonQuery(oCommand, pTransaction)
+            Dim oResult = Database.ExecuteNonQuery(oCommand)
             If oResult = True Then
                 pReceiver.Id = GetReceiverId(pReceiver.Email, pTransaction)
             Else
@@ -120,7 +120,7 @@ Public Class ReceiverModel
         Return Database.ExecuteNonQuery(oCommand, pTransaction)
     End Function
 
-    Public Function List(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeReceiver)
+    Public Function ListEnvelopeReceivers(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeReceiver)
         Try
             Dim oSql = $"SELECT * FROM [dbo].[VWSIG_ENVELOPE_RECEIVERS] WHERE ENVELOPE_ID = {pEnvelopeId}"
             Dim oTable = Database.GetDatatable(oSql)
@@ -135,6 +135,22 @@ Public Class ReceiverModel
         End Try
     End Function
 
+    Public Function ListReceivers(pExistingReceivers As IEnumerable(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
+        Try
+            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)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToReceiver).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
     Public Function Delete(pReceiverId As Integer, pDocumentId As Integer) As Boolean
         Try
             Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}"