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)