23-08-23

EnvelopeGenerator.Common/Models/ElementModel.vb

@@ -38,6 +38,21 @@ Public Class ElementModel
         End Try
     End Function
 
+    Public Function ElementsExist(pEnvelopeId As Integer) As Boolean
+        Try
+            Dim oSql = $"SELECT COUNT(*) FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T
+                JOIN TBSIG_ENVELOPE_DOCUMENT T2 ON T.DOCUMENT_ID = T2.GUID
+                WHERE T2.ENVELOPE_ID = {pEnvelopeId}"
+            Dim oElementCount As Integer = Database.GetScalarValue(oSql)
+
+            Return oElementCount > 0
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
     Public Function List(pDocumentId As Integer) As List(Of EnvelopeDocumentElement)
         Try
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] WHERE DOCUMENT_ID = {pDocumentId} ORDER BY PAGE ASC"