16-08-23

EnvelopeGenerator.Common/Models/DocumentModel.vb

@@ -64,6 +64,19 @@ Public Class DocumentModel
         End Try
     End Function
 
+    Public Function Delete(pDocumentId As Integer, pTransaction As SqlTransaction) As Boolean
+        Try
+            Dim oSql = "DELETE FROM [dbo].[TBSIG_ENVELOPE_DOCUMENT] WHERE GUID = @GUID"
+            Dim oCommand As New SqlCommand(oSql)
+            oCommand.Parameters.Add("GUID", SqlDbType.Int).Value = pDocumentId
+
+            Return Database.ExecuteNonQuery(oCommand, pTransaction)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
     Private Function GetDocumentId(pFilename As String, pEnvelope As Envelope, pTransaction As SqlTransaction) As Integer
         Try
             Return Database.GetScalarValue($"SELECT MAX(GUID) FROM TBSIG_ENVELOPE_DOCUMENT WHERE FILENAME = '{pFilename}' AND ENVELOPE_ID = {pEnvelope.Id}", pTransaction)

EnvelopeGenerator.Common/Models/ElementModel.vb

@@ -150,4 +150,24 @@ Public Class ElementModel
             Return False
         End Try
     End Function
+
+    Public Function DeleteElements(pReceiverId As Integer, pDocumentId As Integer, pTransaction As SqlTransaction) As Boolean
+        Try
+            Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}"
+            Return Database.ExecuteNonQuery(oSql, pTransaction)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function DeleteElements(pDocumentId As Integer, pTransaction As SqlTransaction) As Boolean
+        Try
+            Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE DOCUMENT_ID = {pDocumentId}"
+            Return Database.ExecuteNonQuery(oSql, pTransaction)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
 End Class

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -80,10 +80,10 @@ Public Class EnvelopeModel
         End Try
     End Function
 
-    Public Function Delete(pEnvelope As Envelope) As Boolean
+    Public Function Delete(pEnvelope As Envelope, pTransaction As SqlTransaction) As Boolean
         Try
             Dim oSql = $"DELETE FROM [dbo].[TBSIG_ENVELOPE] WHERE GUID = {pEnvelope.Id}"
-            Return Database.ExecuteNonQuery(oSql)
+            Return Database.ExecuteNonQuery(oSql, pTransaction)
 
         Catch ex As Exception
             Return False

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -137,7 +137,12 @@ Public Class ReceiverModel
 
     Public Function ListReceivers(pExistingReceivers As IEnumerable(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
         Try
+            If pExistingReceivers.Count = 0 Then
+                Return New List(Of EnvelopeReceiver)
+            End If
+
             Dim oAddresses = pExistingReceivers.Select(Function(r) $"'{r.Email}'").JoinToString(",")
+
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_RECEIVER] WHERE EMAIL_ADDRESS IN ({oAddresses})"
             Dim oTable = Database.GetDatatable(oSql)
 
@@ -151,10 +156,10 @@ Public Class ReceiverModel
         End Try
     End Function
 
-    Public Function Delete(pReceiverId As Integer, pDocumentId As Integer) As Boolean
+    Public Function Delete(pReceiverId As Integer, pEnvelopeId As Integer, pTransaction As SqlTransaction) As Boolean
         Try
-            Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}"
-            Return Database.ExecuteNonQuery(oSql)
+            Dim oSql = $"DELETE FROM TBSIG_ENVELOPE_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND ENVELOPE_ID = {pEnvelopeId}"
+            Return Database.ExecuteNonQuery(oSql, pTransaction)
 
         Catch ex As Exception
             Logger.Error(ex)