jj

DDZUGFeRDService/ZUGFeRDService.vb

@@ -19,6 +19,7 @@ Public Class ZUGFeRDService
         Dim oDatabase As String = My.Settings.DB_DATABASE
         Dim oUser As String = My.Settings.DB_USER
         Dim oPassword As String = My.Settings.DB_PASSWORD
+        Dim oJobInterval As Integer = My.Settings.JOB_INTERVAL
 
         _logger.Debug("Datasource: {0}", oDataSource)
         _logger.Debug("Database: {0}", oDatabase)
@@ -27,7 +28,7 @@ Public Class ZUGFeRDService
 
         Try
             _threadRunner = New ThreadRunner(_logConfig, _firebird)
-            _threadRunner.Start()
+            _threadRunner.Start(oJobInterval)
         Catch ex As Exception
             _logger.Error(ex)
         End Try