Bugfix, Auswerung, APIO

SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb

@@ -1,6 +1,4 @@
-Imports System.IO
+Public Class usrCntlAuswertungenEV_Veranlagungen
-
-Public Class usrCntlAuswertungenEV_Veranlagungen
 
 
 
@@ -156,10 +154,13 @@ Public Class usrCntlAuswertungenEV_Veranlagungen
                                     End If
 
                                     'Handelsrechnungen
+
                                     Dim dtRg = SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And  ANM.OperatorID=DOC.OperatorID And  ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", EZOLL_SQLSRV, "DRef")
                                         For Each rg In dtRg
                                             handelsrechnungen &= semi & rg : semi = ","
                                         Next
+
+
                             End Select
 
 

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
+                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