MS ZF Init Change TBDDCONNMessaging Limilab

GUIs.ZooFlow/ClassInit.vb

@@ -71,10 +71,11 @@ Public Class ClassInit
             Throw New InitException("Could not initialize ECM-Database!")
 
         Else
-            Dim oSQl = "SELECT * FROM TBDD_CONNECTION WHERE BEZEICHNUNG = 'IDB'"
+            Dim oSQl = "SELECT * FROM TBDD_CONNECTION WHERE BEZEICHNUNG = 'IDB' AND AKTIV = 1"
             Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQl)
 
             If IsNothing(oDatatable) OrElse oDatatable.Rows.Count = 0 Then
+                MsgBox("No IDB connection entries in TBDD_CONNECTION found!", MsgBoxStyle.Exclamation)
                 Logger.Warn("No IDB connection entries in TBDD_CONNECTION found!")
                 Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!")
             End If