Get GDPicture Key from Database

DDZUGFeRDService/ThreadRunner.vb

@@ -37,7 +37,6 @@ Public Class ThreadRunner
         Dim args As New WorkerArgs()
         args = LoadFolderConfig(args)
         args = LoadPropertyMapFor(args, "DEFAULT")
-        args.GDPictureKey = GDPictureKey
 
         ' Use MSSQL Server if available
         If Not IsNothing(_mssql) Then
@@ -114,25 +113,6 @@ Public Class ThreadRunner
             Dim args As WorkerArgs = e.Argument
 
             _logger.Debug("Background worker running..")
-            ' Use MSSQL Server if available
-            If Not IsNothing(_mssql) Then
-                'Checking if documents have bee´n rejected
-                Dim oSQL As String = "Select * from TBEDMI_DOC_REJECTED WHERE MD5_UPDATE = 0"
-                'Dim oDT As DataTable = _mssql.GetDatatable(oSQL)
-                'If Not IsNothing(oDT) Then
-                '    For Each oRow As DataRow In oDT.Rows
-                '        oSQL = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET REJECTED = TRUE WHERE MESSAGE_ID = '{oRow.Item("MESSAGE_ID")}'"
-                '        If _firebird.ExecuteNonQuery(oSQL) = True Then
-                '            oSQL = $"UPDATE TBEDMI_DOC_REJECTED SET MD5_UPDATE = 1 WHERE GUID = '{oRow.Item("GUID")}'"
-                '            If _mssql.ExecuteNonQuery(oSQL) = True Then
-                '                _logger.Debug($"Refreshed the Rejected Info for messageid [{oRow.Item("MESSAGE_ID")}]")
-                '            End If
-                '        End If
-                '    Next
-                'Else
-                '    _logger.Warn("oDTTBEDMI_DOC_REJECTED is nothing...")
-                'End If
-            End If
             Dim job As New ImportZUGFeRDFiles(_logConfig, _firebird, _mssql)
             job.Start(args)
         Catch ex As Exception