From b5d4205d9cd6c981ba09f8d062705334a7384817 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 12 Jan 2021 12:17:24 +0100 Subject: [PATCH] Jobs/ZUGFeRD: Fix select being executed with transaction --- Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index c4245f40..e9d9f6a6 100644 --- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -229,7 +229,7 @@ Public Class ImportZUGFeRDFiles oMD5CheckSum = CreateMD5(oFile.FullName) If oMD5CheckSum <> String.Empty Then Dim oCheckCommand = $"SELECT * FROM TBEDM_ZUGFERD_HISTORY_IN WHERE GUID = (SELECT MAX(GUID) FROM TBEDM_ZUGFERD_HISTORY_IN WHERE UPPER(MD5HASH) = UPPER('{oMD5CheckSum}'))" - Dim oMD5DT As DataTable = _firebird.GetDatatable(oCheckCommand, Firebird.TransactionMode.ExternalTransaction, oTransaction) + Dim oMD5DT As DataTable = _firebird.GetDatatable(oCheckCommand, Firebird.TransactionMode.NoTransaction) If Not IsNothing(oMD5DT) Then If oMD5DT.Rows.Count = 1 Then Dim oRejected As Boolean