-
Notifications
You must be signed in to change notification settings - Fork 3
/
Module.vb
38 lines (36 loc) · 1.76 KB
/
Module.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Imports System
Imports System.Text
Imports System.Linq
Imports DevExpress.ExpressApp
Imports System.ComponentModel
Imports DevExpress.ExpressApp.DC
Imports System.Collections.Generic
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Updating
Imports DevExpress.ExpressApp.Model.Core
Imports DevExpress.ExpressApp.Model.DomainLogics
Imports DevExpress.ExpressApp.Model.NodeGenerators
Imports DevExpress.ExpressApp.ReportsV2
Imports InstantPrintReportsV2Example.Module.BusinessObjects
Namespace InstantPrintReportsV2Example.Module
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppModuleBasetopic.
Public NotInheritable Partial Class InstantPrintReportsV2ExampleModule
Inherits ModuleBase
Public Sub New()
InitializeComponent()
End Sub
Public Overrides Function GetModuleUpdaters(ByVal objectSpace As IObjectSpace, ByVal versionFromDB As Version) As IEnumerable(Of ModuleUpdater)
Dim predefinedReportsUpdater As New PredefinedReportsUpdater(Application, objectSpace, versionFromDB)
predefinedReportsUpdater.AddPredefinedReport(Of ContactsReport)("Contacts Report", GetType(Contact))
Dim updater As ModuleUpdater = New DatabaseUpdate.Updater(objectSpace, versionFromDB)
Return New ModuleUpdater() { updater, predefinedReportsUpdater }
End Function
Public Overrides Sub Setup(ByVal application As XafApplication)
MyBase.Setup(application)
' Manage various aspects of the application UI and behavior at the module level.
End Sub
End Class
End Namespace