From 345277cae755bedce089cab6fa98d3daac4b521e Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 9 Jul 2021 14:22:41 +0200 Subject: [PATCH] Jobs: Open new connection for history entries --- Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 890a70ac..ab72eb04 100644 --- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -661,11 +661,12 @@ Public Class ImportZUGFeRDFiles Private Function Create_HistoryEntry(MessageId As String, MD5Checksum As String, Message As String, Transaction As FbTransaction) As Boolean Try + Dim oConnection = _firebird.GetConnection() Dim oSQL = $"INSERT INTO TBEDM_ZUGFERD_HISTORY_IN (COMMENT, MD5HASH, MESSAGE_ID) VALUES ('{Message}', '{MD5Checksum}', '{MessageId}')" ' 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) + _firebird.ExecuteNonQueryWithConnection(oSQL, oConnection, Firebird.TransactionMode.WithTransaction) Return True Catch ex As Exception @@ -678,8 +679,9 @@ Public Class ImportZUGFeRDFiles Private Function Update_HistoryEntry(MessageId As String, MD5Checksum As String, Message As String, Transaction As FbTransaction) As Boolean Try + Dim oConnection = _firebird.GetConnection() Dim oSQL = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET COMMENT = '{Message}' WHERE MD5HASH = '{MD5Checksum}' AND MESSAGE_ID = '{MessageId}'" - _firebird.ExecuteNonQueryWithConnection(oSQL, Transaction.Connection, Firebird.TransactionMode.ExternalTransaction, Transaction) + _firebird.ExecuteNonQueryWithConnection(oSQL, oConnection, Firebird.TransactionMode.WithTransaction) Return True Catch ex As Exception