19.07.2023

EnvelopeGenerator.Form/Controllers/EnvelopeListController.vb

@@ -0,0 +1,21 @@
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Database
+
+Public Class EnvelopeListController
+    Inherits BaseClass
+    Private ReadOnly Database As MSSQLServer
+    Private ReadOnly State As State
+    Private ReadOnly EnvelopeModel As EnvelopeModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState.LogConfig)
+        Database = pState.Database
+        State = pState
+        EnvelopeModel = New EnvelopeModel(pState)
+    End Sub
+
+    Public Function ListEnvelopes() As IEnumerable(Of Envelope)
+        Return EnvelopeModel.List()
+    End Function
+
+End Class