From 36bf2d9a82e191f5f60af21d490f4eff858531de Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 9 Jul 2021 12:07:20 +0200 Subject: [PATCH] Jobs: Create Zugferd Service history entry outside of transaction so that it can be found in any case --- Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index ebd81d6d..890a70ac 100644 --- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -662,7 +662,10 @@ Public Class ImportZUGFeRDFiles Private Function Create_HistoryEntry(MessageId As String, MD5Checksum As String, Message As String, Transaction As FbTransaction) As Boolean Try Dim oSQL = $"INSERT INTO TBEDM_ZUGFERD_HISTORY_IN (COMMENT, MD5HASH, MESSAGE_ID) VALUES ('{Message}', '{MD5Checksum}', '{MessageId}')" - _firebird.ExecuteNonQueryWithConnection(oSQL, Transaction.Connection, Firebird.TransactionMode.ExternalTransaction, Transaction) + + ' 09.07.2021: This can't be in the transaction since the history + ' entry needs to be accessed by MoveAndRenameEmailToRejected shortly after + _firebird.ExecuteNonQueryWithConnection(oSQL, Transaction.Connection, Firebird.TransactionMode.NoTransaction) Return True Catch ex As Exception