diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
index 38be5ef8..c4245f40 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)
+                                    Dim oMD5DT As DataTable = _firebird.GetDatatable(oCheckCommand, Firebird.TransactionMode.ExternalTransaction, oTransaction)
                                     If Not IsNothing(oMD5DT) Then
                                         If oMD5DT.Rows.Count = 1 Then
                                             Dim oRejected As Boolean
@@ -275,7 +275,7 @@ Public Class ImportZUGFeRDFiles
 
                                 oStep = "Firebird TBEDMI_ITEM_VALUE Delete messageID Items"
                                 Try
-                                    _firebird.ExecuteNonQueryWithConnection(oDelSQL, oConnection, Firebird.TransactionMode.WithTransaction)
+                                    _firebird.ExecuteNonQueryWithConnection(oDelSQL, oConnection, Firebird.TransactionMode.ExternalTransaction, oTransaction)
                                 Catch ex As Exception
                                     _logger.Error(ex)
                                     _logger.Warn("Step [{0}] with SQL [{1}] was not successful.", oStep, oDelSQL)