MS Button und IDB Logik

app/DD_PM_WINDREAM/ClassInit.vb

@@ -248,12 +248,21 @@ Public Class ClassInit
     <STAThread()>
     Public Shared Sub InitBasics()
         Try
-            Dim sql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
-            CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(sql)
+            Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
+            CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
 
-            sql = "select * from TBDD_CONNECTION"
-            CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(sql)
+            oSql = "select * from TBDD_CONNECTION"
+            CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
             Settings_LoadBasicConfig()
+
+            oSql = "Select * from TBDD_3RD_PARTY_MODULES"
+            Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql)
+            For Each oROW As DataRow In oDT.Rows
+                If oROW.Item("NAME") = "GDPICTURE" Then
+                    GDPICTURE_LICENSE = oROW.Item("LICENSE")
+                End If
+            Next
+
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True)