16-08-23

2023-08-16 12:06:10 +02:00
parent 069f5a6f88
commit b312396bb5
15 changed files with 354 additions and 155 deletions
--- a/EnvelopeGenerator.Common/Models/EnvelopeModel.vb
+++ b/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