Get GDPicture Key from Database

Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -330,13 +330,26 @@ Public Class ImportZUGFeRDFiles
     Public Sub Start(Arguments As Object) Implements IJob.Start
         Dim oArgs As WorkerArgs = Arguments
         Dim oPropertyExtractor = New PropertyValues(_logConfig)
-        Dim oAttachmentExtractor = New PDFAttachments(_logConfig, oArgs.GDPictureKey)
+        Dim oAttachmentExtractor = New PDFAttachments(_logConfig)
 
         _logger.Debug("Starting Job {0}", [GetType].Name)
 
         _logger.Debug("Registering GDPicture License")
-        Dim oLicenseManager As New LicenseManager
-        oLicenseManager.RegisterKEY(oArgs.GDPictureKey)
+        If _mssql IsNot Nothing Then
+            Try
+                Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
+                Dim oLicenseKey As String = _mssql.GetScalarValue(oSQL)
+                Dim oLicenseManager As New LicenseManager
+                oLicenseManager.RegisterKEY(oLicenseKey)
+            Catch ex As Exception
+                _logger.Error(ex)
+                _logger.Warn("GDPicture License could not be retrieved! Query failed! Exiting job.")
+                Exit Sub
+            End Try
+        Else
+            _logger.Warn("GDPicture License could not be retrieved! MSSQL is not enabled! Exiting job.")
+            Exit Sub
+        End If
 
         Try
             For Each oPath As String In oArgs.WatchDirectories