MS Development Zooflow 1.0

GUIs.ZooFlow/ClassInit.vb

@@ -193,10 +193,10 @@ Public Class ClassInit
     Private Sub Initialize3rdParty(MyApplication As My.MyApplication)
         Try
             Dim oSql = "Select LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
-            Dim oDatatable As DataTable = My.Database.GetDatatableECM(oSql)
+            Dim oDatatable As DataTable = My.Database.GetDatatable("TBDD_3RD_PARTY_MODULES", oSql, EDMI.API.Constants.DatabaseType.ECM, "NAME = 'GDPICTURE'")
 
             If oDatatable.Rows.Count = 0 Then
-                Throw New InitException("Konfiguration konnte nicht geladen werden!")
+                Throw New InitException("Konfiguration 3RD_PARTY_MODULES konnte nicht geladen werden!")
             End If
 
             Dim oRow As DataRow = oDatatable.Rows.Item(0)
@@ -224,7 +224,10 @@ Public Class ClassInit
                     DocResultBaseSearch = DocResultBaseSearch.Replace("@LANG_CODE", My.Application.User.Language)
                 End If
             Next
-            ' My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatableIDB("SELECT * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '" + MyApplication.User.Language + "'")
+            If DocResultBaseSearch = "" Then
+                Logger.Warn($"ATTENTION: NO DocResultBaseSearch - Check if entry {SQLCMD_FLOW_SEARCH_BASE} exists in TBIDB_COMMON_SQL")
+            End If
+
         Catch ex As Exception
             Logger.Error(ex)
             Throw New InitException("Error in InitBasicData", ex)