From 1c7755c100a3692d2c8bd2591ac1ea1cbd77e352 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 9 Jul 2021 14:24:01 +0200 Subject: [PATCH] ms threadrunnder --- Services.ZUGFeRDService/ThreadRunner.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Services.ZUGFeRDService/ThreadRunner.vb b/Services.ZUGFeRDService/ThreadRunner.vb index 195bbada..68579ecc 100644 --- a/Services.ZUGFeRDService/ThreadRunner.vb +++ b/Services.ZUGFeRDService/ThreadRunner.vb @@ -133,11 +133,11 @@ Public Class ThreadRunner Private Sub DoWork(sender As Object, e As DoWorkEventArgs) Handles _workerThread.DoWork Try Try - Dim oSQL = "SELECT [EMAIL_MSGID] FROM TBEMLP_HISTORY WHERE STATUS = 'REJECTED' and REJECTED = false and DATEDIFF(DAY,CHANGED_WHEN,GETDATE()) <= 5 order by guid desc" + 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)}'" + 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