29-11-2023

EnvelopeGenerator.Form/Controllers/BaseController.vb

@@ -14,6 +14,8 @@ Public MustInherit Class BaseController
     Public UserModel As UserModel
     Public EmailModel As EmailModel
 
+    Public ActionService As ActionService
+
     Public ReadOnly Property Database As MSSQLServer
     Public ReadOnly Property State As State
 
@@ -22,6 +24,7 @@ Public MustInherit Class BaseController
         State = pState
         Database = pState.Database
         InitializeModels(pState)
+        ActionService = New ActionService(pState)
     End Sub
 
     Private Sub InitializeModels(pState As State)
@@ -39,6 +42,15 @@ Public MustInherit Class BaseController
             Return True
         End If
 
+        Return ActionService.DeleteEnvelope(pEnvelope)
+
+    End Function
+
+    Public Function DeleteEnvelope_Old(pEnvelope As Envelope) As Boolean
+        If pEnvelope Is Nothing Then
+            Return True
+        End If
+
         Dim oConnection As SqlConnection = Database.GetConnection()
         Dim oTransaction As SqlTransaction = oConnection.BeginTransaction()