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.Form/Controllers/BaseController.vb
+++ b/EnvelopeGenerator.Form/Controllers/BaseController.vb
@@ -0,0 +1,101 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Base
+Imports EnvelopeGenerator.Common
+Imports System.Data.SqlClient
+
+Public MustInherit Class BaseController
+    Inherits BaseClass
+
+    Public EnvelopeModel As EnvelopeModel
+    Public DocumentModel As DocumentModel
+    Public ReceiverModel As ReceiverModel
+    Public ElementModel As ElementModel
+    Public HistoryModel As HistoryModel
+    Public UserModel As UserModel
+
+    Public ReadOnly Property Database As MSSQLServer
+    Public ReadOnly Property State As State
+
+    Public Sub New(pState As State)
+        MyBase.New(pState.LogConfig)
+        State = pState
+        Database = pState.Database
+        InitializeModels(pState)
+    End Sub
+
+    Private Sub InitializeModels(pState As State)
+        EnvelopeModel = New EnvelopeModel(pState)
+        DocumentModel = New DocumentModel(pState)
+        ReceiverModel = New ReceiverModel(pState)
+        ElementModel = New ElementModel(pState)
+        HistoryModel = New HistoryModel(pState)
+        UserModel = New UserModel(pState)
+    End Sub
+
+    Public Function DeleteEnvelope(pEnvelope As Envelope) As Boolean
+        Dim oConnection As SqlConnection = Database.GetConnection()
+        Dim oTransaction As SqlTransaction = oConnection.BeginTransaction()
+
+        Try
+            Dim oResult = pEnvelope.Documents.
+                Select(Function(d) DeleteDocument(d, oTransaction)).
+                All(Function(r) r = True)
+
+            If oResult = False Then
+                Throw New ApplicationException("could not delete documents")
+            End If
+
+            Dim oResult2 = pEnvelope.Receivers.
+                Select(Function(r) ReceiverModel.Delete(r.Id, pEnvelope.Id, oTransaction)).
+                All(Function(r) r = True)
+
+            If oResult2 = False Then
+                Throw New ApplicationException("could not delete receivers")
+            End If
+
+            Dim oResult3 = EnvelopeModel.Delete(pEnvelope, oTransaction)
+
+            If oResult3 = False Then
+                Throw New ApplicationException("could not delete envelope")
+            End If
+
+            oTransaction.Commit()
+            Return True
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            oTransaction.Rollback()
+            Return False
+
+        End Try
+    End Function
+
+    Public Function DeleteDocument(pDocument As EnvelopeDocument, pTransaction As SqlTransaction) As Boolean
+        Try
+
+            If DocumentModel.Delete(pDocument.Id, pTransaction) = True Then
+                Dim oResult = ElementModel.DeleteElements(pDocument.Id, pTransaction)
+
+                If oResult = False Then
+                    Throw New ApplicationException("Could not delete elements!")
+                End If
+            Else
+                Throw New ApplicationException("Could not delete document!")
+            End If
+
+        Catch ex As Exception
+            Logger.Error(ex)
+
+            Return False
+        End Try
+
+        Try
+            IO.File.Delete(pDocument.Filepath)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+
+        Return True
+    End Function
+End Class