merge

Services.ZUGFeRDService/My Project/AssemblyInfo.vb

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

Services.ZUGFeRDService/ThreadRunner.vb

@@ -109,9 +109,22 @@ Public Class ThreadRunner
 
     Private Sub DoWork(sender As Object, e As DoWorkEventArgs) Handles _workerThread.DoWork
         Try
-            Dim args As WorkerArgs = e.Argument
+            Try
+                Dim oSQL = "SELECT [EMAIL_MSGID] FROM TBEMLP_HISTORY WHERE STATUS = 'REJECTED' and DATEDIFF(DAY,CHANGED_WHEN,GETDATE()) <= 5 order by guid desc"
+                Dim oDT As DataTable = _mssql.GetDatatable(oSQL)
+                If Not IsNothing(oDT) Then
+                    For Each oROW As DataRow In oDT.Rows
+                        Dim oUpdate = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET REJECTED = True WHERE MESSAGE_ID = '{oROW.Item(0)}' and REJECTED = false"
+                        _firebird.ExecuteNonQuery(oUpdate)
+                    Next
+                End If
+            Catch ex As Exception
+                _logger.Warn("Error while Updating REJECTED State: " & ex.Message)
+            End Try
 
+            Dim args As WorkerArgs = e.Argument
             _logger.Debug("Background worker running..")
+
             Dim job As New ImportZUGFeRDFiles(_logConfig, _firebird, My.Settings.MSSQLEmailOutAccountID, _mssql)
             job.Start(args)
         Catch ex As Exception