MDM, Essensbestellungen, MIC, MSE-API

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1014,18 +1014,17 @@ Public Class cMSEAPI
 
                     If r("url") <> "" AndAlso r("name") <> "" AndAlso r("name").contains("VAT") Then 'only VAT-Invoices
                         Dim inv As New cMSEInvoices(r("name"), r("invoice_id"))
-                        If Not inv.imported Then 'verhindert unnötige Downloads
+                        If IsDBNull(inv.daId) Then 'verhindert unnötige Downloads
                             Dim filepath = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURLStream(r("url"), r("name"), PDFRECHNUNGENPFAD, False)
                             If filepath <> "" AndAlso uploadToDs Then
                                 Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "MSE", Now.Year, Now.ToString("yyyyMMdd"), r("name"))
                                 DS.uploadDataToDATENSERVER(filepath & "\" & r("name"),,,,,, True)
-                                SQL.doSQL("Update [tblMSEInvoices] SET [daId]='" & DS.da_id & "', imported = 1 where [name] = '" & r("name") & "'", "FMZOLL")
+                                SQL.doSQL("Update [tblMSEInvoices] SET [daId]='" & DS.da_id & "' where [name] = '" & r("name") & "'", "FMZOLL")
                             End If
 
                         End If
                     End If
 
-
                 Next
 
                 dt = dt.DefaultView.ToTable()
@@ -1038,7 +1037,6 @@ Public Class cMSEAPI
     End Function
 
 
-
     Public Sub saveTransactions(num As Integer, dt As DataTable, transactions As Chilkat.JsonArray, receiver As Integer, Optional ignorePurchaseDate As Boolean = False, Optional onlyBilledTransactions As Boolean = True)
 
         Dim j As Integer = 0