From a80fe4714d7d0f716138bb081ea2bcc94eb83620 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 9 Jul 2021 13:42:13 +0200 Subject: [PATCH] ZUGFeRDService: improve rejected sql --- 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 68579ecc..195bbada 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 DATEDIFF(DAY,CHANGED_WHEN,GETDATE()) <= 5 order by guid desc" + 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 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" + Dim oUpdate = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET REJECTED = True WHERE MESSAGE_ID = '{oROW.Item(0)}'" _firebird.ExecuteNonQuery(oUpdate) Next End If