20-09-2023

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -44,7 +44,7 @@ Public Class ReceiverModel
 
             Dim oResult = Database.ExecuteNonQuery(oCommand)
             If oResult = True Then
-                pReceiver.Id = GetReceiverId(pReceiver.Email, pTransaction)
+                pReceiver.Id = GetReceiverIdByEmail(pReceiver.Email, pTransaction)
             Else
                 Return False
             End If
@@ -168,7 +168,16 @@ Public Class ReceiverModel
         End Try
     End Function
 
-    Private Function GetReceiverId(pEmailAddress As String, pTransaction As SqlTransaction) As Integer
+    Public Function GetReceiverIdBySignature(pSignature As String) As Integer
+        Try
+            Return Database.GetScalarValue($"SELECT GUID FROM TBSIG_RECEIVER WHERE SIGNATURE = '{pSignature}'")
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Private Function GetReceiverIdByEmail(pEmailAddress As String, pTransaction As SqlTransaction) As Integer
         Try
             Return Database.GetScalarValue($"SELECT GUID FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pEmailAddress}'", pTransaction)
 
@@ -177,4 +186,6 @@ Public Class ReceiverModel
             Return Nothing
         End Try
     End Function
+
+
 End Class