NAV OnlineInvoices

Nuvolar.Win.Lite/WinApplication_DB.vb

@@ -3,6 +3,9 @@ Imports DevExpress.ExpressApp
 Imports DevExpress.ExpressApp.Security
 Imports Nuvolar.Module
 Imports Nuvolar.Module.Win
+Imports Nuvolar.Module.StaticClass
+Imports DevExpress.ExpressApp.Xpo
+
 Partial Public Class NuvolarWindowsFormsApplication
     Inherits WinApplication
     Implements IApplicationFactory
@@ -108,6 +111,10 @@ Partial Public Class NuvolarWindowsFormsApplication
         GLOBAL_WINFormCaption = String.Format("Nuvolar Framework version: {0} [{1}]", Application.ProductVersion, anm.Version)
         GLOBAL_WINFormCaption += String.Format(", ({0}) Server: {1}, Database: {2}", _plattform, UCase(_ChangeLogon.SQLServer), UCase(_ChangeLogon.DBConnection))
         GLOBAL_ApplicationStartupPath = Application.StartupPath & "\"
+
+        Dim _ocur As IObjectSpace = CreateObjectSpace()
+        RestAPI.Init(TryCast(_ocur, XPObjectSpace))
+
     End Sub
     Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean
         If WinChangeDatabaseHelper.SkipLogonDialog Then