Bugfix, Auswerung, APIO

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -691,7 +691,10 @@ Public Class SQL
 
         If dt IsNot Nothing Then
             For Each r As DataRow In dt.Rows
-                list.Add(r(srchFieldClearName))
+                If Not IsDBNull(r(srchFieldClearName)) Then
+                    list.Add(r(srchFieldClearName))
+                End If
+
             Next
         End If
         Return list

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -81,7 +81,6 @@ Public Class cMDMFunctionsAllgemein
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
-
             Return False
 
         End Try

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -105,7 +105,7 @@ Public Class cMSEAPI
 
             rest.AddHeader("X-API-Key", jwt)
 
-            rest.IdleTimeoutMs = 1000000
+            rest.IdleTimeoutMs = 30000
 
             Dim responseJson As String = rest.FullRequestNoBody("GET", "/v1/transactions/new")
             If (rest.LastMethodSuccess <> True) Then