finalize

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -60,9 +60,9 @@ Public Class EnvelopeModel
         End Try
     End Function
 
-    Public Function GetById(pEnvelopeId As String) As Envelope
+    Public Function GetById(pEnvelopeId As Integer) As Envelope
         Try
-            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE GUID = '{pEnvelopeId}'"
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE GUID = {pEnvelopeId}"
             Dim oTable = Database.GetDatatable(oSql)
 
             Return ToEnvelope(oTable)

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] "