29-11-2023

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -23,6 +23,12 @@ Public Class ReceiverModel
         }
     End Function
 
+    Private Function ToReceiver(pTable As DataTable) As EnvelopeReceiver
+        Return pTable?.Rows.Cast(Of DataRow).
+            Select(AddressOf ToReceiver).
+            Single()
+    End Function
+
     Public Function TestReceiverExists(pReceiver As EnvelopeReceiver) As Boolean
         Try
             Dim oGuid = Database.GetScalarValue($"SELECT COALESCE(GUID, 0) FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pReceiver.Email}'")
@@ -140,13 +146,13 @@ Public Class ReceiverModel
         End Try
     End Function
 
-    Public Function ListReceivers(pExistingReceivers As IEnumerable(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
+    Public Function ListReceivers(pReceiversFromGrid As List(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
         Try
-            If pExistingReceivers.Count = 0 Then
+            If pReceiversFromGrid.Count = 0 Then
                 Return New List(Of EnvelopeReceiver)
             End If
 
-            Dim oAddresses = pExistingReceivers.Select(Function(r) $"'{r.Email}'").JoinToString(",")
+            Dim oAddresses = pReceiversFromGrid.Select(Function(r) $"'{r.Email}'").JoinToString(",")
 
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_RECEIVER] WHERE EMAIL_ADDRESS IN ({oAddresses})"
             Dim oTable = Database.GetDatatable(oSql)
@@ -173,6 +179,19 @@ Public Class ReceiverModel
         End Try
     End Function
 
+    Public Function GetById(pReceiverId As Integer) As EnvelopeReceiver
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[VWSIG_ENVELOPE_RECEIVERS] WHERE GUID = {pReceiverId}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return ToReceiver(oTable)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
     Public Function GetReceiverIdBySignature(pSignature As String) As Integer
         Try
             Return Database.GetScalarValue($"SELECT GUID FROM TBSIG_RECEIVER WHERE SIGNATURE = '{pSignature}'")