AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Globi Integration und Suche Abhängig

Browse Source
This commit is contained in:
SchreiberM
2020-11-25 17:44:40 +01:00
parent 0dd9788d8f
commit 1638fdc173
24 changed files with 1545 additions and 3796 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
GUIs.ZooFlow/ClassInit.vb
View File

@@ -112,7 +112,7 @@ Public Class ClassInit
Private Sub Initialize3rdParty(MyApplication As My.MyApplication)
Try
Dim oSql = "SELECT * FROM TBCW_CONFIGURATION"
Dim oSql = "Select LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
Dim oDatatable As DataTable = My.Database.GetDatatable(oSql)
If oDatatable.Rows.Count = 0 Then
@@ -121,10 +121,11 @@ Public Class ClassInit
Dim oRow As DataRow = oDatatable.Rows.Item(0)
MyApplication.Settings.GdPictureKey = NotNull(oRow.Item("GDPICTURE_LICENSE"), String.Empty)
MyApplication.Settings.GdPictureKey = NotNull(oRow.Item("LICENSE"), String.Empty)
My.Application.Settings.GdPictureKey = NotNull(oRow.Item("LICENSE"), String.Empty)
Catch ex As Exception
_Logger.Error(ex)
Throw New InitException("Fehler beim Laden der Konfiguration!")
Throw New InitException("Error initializing3rdParty!")
End Try
End Sub
Private Sub InitBasicData(MyApplication As My.MyApplication)