Prepare Rights Management in DocumentResults

This commit is contained in:
Jonathan Jenne
2020-12-18 16:27:18 +01:00
parent fbc9a06764
commit 6ab3bef54d
3 changed files with 19 additions and 9 deletions

View File

@@ -269,6 +269,12 @@ Public Class frmMain
.UserName = USER_USERNAME
}
Dim oService As New State.ServiceState() With {
.Address = ConfigManager.Config.AppServerConfig,
.IsActive = ConfigManager.Config.IsIDB,
.IsOnline = False
}
Dim oSettings As New State.SettingsState() With {
.GdPictureKey = GDPICTURE_LICENSE
}
@@ -277,7 +283,8 @@ Public Class frmMain
.Database = Database,
.Modules = Nothing,
.User = oUser,
.Settings = oSettings
.Settings = oSettings,
.Service = oService
}
Return oEnvironment