22 lines
589 B
VB.net
22 lines
589 B
VB.net
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
|