Stuff

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1007,7 +1007,7 @@ Public Class cMSEAPI
 
                         End If
 
-                        inv.SAVE()
+                        If Not inv.archiv Then inv.SAVE() 'bereits archiverte REchnungen nicht überschreiben!!!!
                     End If
 
                     j = j + 1
@@ -1422,11 +1422,14 @@ Public Class cMSEInvoices
     Property total_vat_amount_euro As Object = Nothing
     Property msts_vat_number As Object = Nothing
     Property invoice_id As Object = Nothing
+    Property invoice_nr As Object = Nothing
     Property invoice_date As Object = Nothing
     Property customer_number As Object = Nothing
     Property country As Object = Nothing
     Property imported As Boolean = False
     Property daId As Object = Nothing
+    Property archiv As Boolean = False
+    Property archiviertDatum As Object = Nothing
 
     Public hasEntry = False
 
@@ -1453,6 +1456,9 @@ Public Class cMSEInvoices
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("country", country))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("imported", imported))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("daId", daId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_nr", invoice_nr))
 
         Return list
     End Function