16-08-23

EnvelopeGenerator.Form/Controllers/EnvelopeListController.vb

@@ -1,22 +1,18 @@
-Imports DigitalData.Modules.Base
-Imports DigitalData.Modules.Database
-Imports EnvelopeGenerator.Common
+Imports EnvelopeGenerator.Common
 
 Public Class EnvelopeListController
-    Inherits BaseClass
-    Private ReadOnly Database As MSSQLServer
-    Private ReadOnly State As State
-    Private ReadOnly EnvelopeModel As EnvelopeModel
+    Inherits BaseController
 
     Public Sub New(pState As State)
-        MyBase.New(pState.LogConfig)
-        Database = pState.Database
-        State = pState
-        EnvelopeModel = New EnvelopeModel(pState)
+        MyBase.New(pState)
     End Sub
 
     Public Function ListEnvelopes() As IEnumerable(Of Envelope)
         Return EnvelopeModel.List()
     End Function
 
+    Public Overloads Function DeleteEnvelope(pEnvelope As Envelope) As Boolean
+        Return MyBase.DeleteEnvelope(pEnvelope)
+    End Function
+
 End Class