finalize

EnvelopeGenerator.Common/Models/HistoryModel.vb

@@ -26,6 +26,19 @@ Public Class HistoryModel
             ToList()
     End Function
 
+    Public Function HasReceiverSigned(pEnvelopeId As Integer, pReceiverId As Integer) As Boolean
+        Dim oEnvelopeSigned As Integer = Constants.EnvelopeStatus.DocumentSigned
+        Dim oSql = $"SELECT COUNT(T.GUID) 
+            FROM TBSIG_ENVELOPE_HISTORY T 
+            JOIN TBSIG_RECEIVER T2 ON T.USER_REFERENCE = T2.EMAIL_ADDRESS 
+            WHERE T.STATUS = {oEnvelopeSigned} AND 
+                T.ENVELOPE_ID = {pEnvelopeId} AND 
+                T2.GUID = {pReceiverId}"
+        Dim oRowCount As Integer = Database.GetScalarValue(oSql)
+
+        Return oRowCount > 0
+    End Function
+
     Public Function Insert(pHistory As EnvelopeHistoryEntry) As Boolean
         Try
             Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY] "