Langauge: Version 1.5.2.0

Modules.Language/DataTableEx.vb

@@ -10,6 +10,15 @@ Public Module DataTableEx
         End Try
     End Function
 
+    <Extension()>
+    Public Function ItemEx(Of T)(pRow As DataRow, pFieldIndex As Integer, Optional pDefaultValue As T = Nothing) As T
+        Try
+            Return Utils.NotNull(pRow.Item(pFieldIndex), pDefaultValue)
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+
     <Extension()>
     Public Function First(pTable As DataTable) As DataRow
         Try

Modules.Language/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.5.1.0")>
-<Assembly: AssemblyFileVersion("1.5.1.0")>
+<Assembly: AssemblyVersion("1.5.2.0")>
+<Assembly: AssemblyFileVersion("1.5.2.0")>

Services.ZUGFeRDService/ThreadRunner.vb

@@ -147,6 +147,7 @@ Public Class ThreadRunner
 
             Dim oDifference As TimeSpan = Now - RejectedLastRun
             If oDifference.TotalMinutes < RejectedMaxDifferenceInMinutes Then
+                _logger.Info("Updating rejected files: Waiting for next run.")
                 Exit Sub
             End If