2023-09-25

EnvelopeGenerator.Common/Models/ElementModel.vb

@@ -44,6 +44,26 @@ Public Class ElementModel
         End Try
     End Function
 
+    Public Function OneElementPerReceiverExist(pEnvelopeId As Integer) As Boolean
+        Try
+            Dim oSql = "SELECT COUNT(*) FROM ("
+            oSql += "       SELECT DISTINCT RECEIVER_ID FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T"
+            oSql += "       JOIN TBSIG_ENVELOPE_DOCUMENT T2 ON T.DOCUMENT_ID = T2.GUID"
+            oSql += $"       WHERE T2.ENVELOPE_ID = {pEnvelopeId}"
+            oSql += " ) TMAX"
+            Dim oElementReceiverCount As Integer = Database.GetScalarValue(oSql)
+
+            Dim oSql2 = $"SELECT COUNT(*) FROM TBSIG_ENVELOPE_RECEIVER WHERE ENVELOPE_ID = {pEnvelopeId}"
+            Dim oEnvelopeReceiverCount As Integer = Database.GetScalarValue(oSql2)
+
+            Return oElementReceiverCount = oEnvelopeReceiverCount
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
     Public Function ElementsExist(pEnvelopeId As Integer) As Boolean
         Try
             Dim oSql = $"SELECT COUNT(*) FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T