ZUGFeRDService: Remove Firebird Database, Fix Worker Busy Error

Services.ZUGFeRDService/ZUGFeRDService.vb

@@ -20,23 +20,19 @@ Public Class ZUGFeRDService
         _logger = _logConfig.GetLogger()
         _logger.Info($"{Constants.SERVICE_NAME} is starting.")
 
-        Dim oDataSource As String = _config.Config.Firebird.DataSource
-        Dim oDatabase As String = _config.Config.Firebird.Database
-        Dim oUser As String = _config.Config.Firebird.User
-        Dim oPassword As String = _config.Config.Firebird.Password
         Dim oJobInterval As Integer = _config.Config.JobInterval
         Dim oMSSQLConnectionString As String = _config.Config.MSSQLConnectionString
-        Dim oMSSQLEnabled As Boolean = _config.Config.MSSQLEnabled
 
-        _firebird = New Firebird(_logConfig, oDataSource, oDatabase, oUser, oPassword)
+        If oMSSQLConnectionString = String.Empty Then
+            _logger.Warn("MSSQL Connectionstring is empty. Exiting.")
+            Throw New ArgumentNullException("ConnectionString is missing!")
+        End If
 
-        If oMSSQLEnabled = True Then
-            _mssql = New MSSQLServer(_logConfig, oMSSQLConnectionString)
+        _mssql = New MSSQLServer(_logConfig, oMSSQLConnectionString)
 
-            If _mssql.DBInitialized = False Then
-                _logger.Warn("MSSQL Connection could not be initialized. Disabling MSSQL.")
-                _mssql = Nothing
-            End If
+        If _mssql.DBInitialized = False Then
+            _logger.Warn("MSSQL Connection failed. Exiting.")
+            Throw New ApplicationException("Connection failed!")
         End If
 
         Try