Modules.Jobs: Manchmal geht die DB-Connection verloren. Dann darf aber die Datei auch nicht verschoben werden, die gerade bearbeitet wurde.

Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -370,6 +370,10 @@ Public Class ImportZUGFeRDFiles
                     _logger.Warn("Unknown Error occurred: {0}", ex.Message)
                     _logger.Error(ex)
 
+                    oMoveDirectory = DIRECTORY_DONT_MOVE
+                    oExpectedError = False
+
+                    If oSQLConnection IsNot Nothing And oSQLTransaction IsNot Nothing Then
                         ' Send Email to Digital Data
                         Dim oBody = _email.CreateBodyForUnhandledException(oMessageId, ex)
                         Dim oEmailData As New EmailData With {
@@ -380,10 +384,7 @@ Public Class ImportZUGFeRDFiles
 
                         ' Rollback Transaction
                         oSQLTransaction.Rollback()
-
+                    End If
-                    oMoveDirectory = DIRECTORY_DONT_MOVE
-
-                    oExpectedError = False
 
                 Finally
                     Try
@@ -414,16 +415,20 @@ Public Class ImportZUGFeRDFiles
                         ' finally commit all changes To the Database
                         ' ==================================================================
                         If oIsSuccess Or oExpectedError Then
+                            If oSQLTransaction IsNot Nothing Then
                                 ' Commit Transaction
                                 oSQLTransaction.Commit()
                             End If
+                        End If
                     Catch ex As Exception
                         _logger.Error(ex)
                         _logger.Warn("Database Transactions were not committed successfully.")
                     End Try
 
                     Try
+                        If oSQLConnection IsNot Nothing Then
                             oSQLConnection.Close()
+                        End If
                     Catch ex As Exception
                         _logger.Error(ex)
                         _logger.Warn("Database Connections were not closed successfully.")