jj

ZooFlow/ClassInit.vb

@@ -34,6 +34,7 @@ Public Class ClassInit
             ' === Init Schritte definieren
             oInit.AddStep("Checking connectivity..", AddressOf CheckConnectivity, True)
             oInit.AddStep("Initializing User..", AddressOf InitializeUser, True)
+            oInit.AddStep("Loading 3rd-party licenses", AddressOf Initialize3rdParty, False)
             ' === Init Schritte definieren
 
             AddHandler oInit.ProgressChanged, AddressOf ProgressChanged
@@ -43,6 +44,8 @@ Public Class ClassInit
         End If
     End Sub
 
+
+
     Private Function SetupDatabase() As Boolean
         If My.SystemConfig.ConnectionString = String.Empty Then
             Dim oResult = frmConfigDatabase.ShowDialog()
@@ -90,6 +93,20 @@ Public Class ClassInit
         End If
     End Sub
 
+    Private Sub Initialize3rdParty(obj As Object)
+        Try
+            Dim oSql = "SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION"
+            Dim oDatatable As DataTable = My.Database.GetDatatable(oSql)
+
+            If oDatatable.Rows.Count = 0 Then
+                Throw New InitException("Konfiguration konnte nicht geladen werden!")
+            End If
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Throw New InitException("Fehler beim Laden der Konfiguration!")
+        End Try
+    End Sub
+
     Private Sub InitializeUser(MyApplication As My.MyApplication)
         Try
             Dim oSql As String = My.Queries.Common.FNDD_MODULE_INIT(Environment.UserName)