Mahnlauf, Mahnungen, Kundenblatt, CMR, Datenverarbeitung

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -2,6 +2,7 @@
 Imports System.EnterpriseServices
 Imports System.Net
 Imports System.Reflection
+Imports DocumentFormat.OpenXml.InkML
 
 Public Class cMSEAPI
 
@@ -207,7 +208,7 @@ Public Class cMSEAPI
 
             Debug.WriteLine(responseJson)
 
-            'Newest Settlements werden nicht benötigt, erst beim Abrufen der RECHNUNG sollen die dazugehörigen Settlements abgerufen werden, allerdings müssen diese initial 1x per API abgerufen werden (mittels getNewSettlements , ansonsten können Sie nicht gefunden werden)!
+            'Newest Settlements werden nicht benötigt, erst beim Abrufen der RECHNUNG sollen die dazugehörigen Settlements abgerufen werden, allerdings müssen diese initial 1x per API abgerufen werden (mittels getNewSettlements) ansonsten können Sie nicht gefunden werden!
 
             'sollten sie dennoch gespeichert werden, dann fogenden Return-Statement auskommentieren (damit nachfolgender Code ausgeführt werden kann):
 
@@ -1329,7 +1330,8 @@ Public Class cMSEAPI
             cust.alternative_vat_number = checkNullStr(R("alternative_vat_number"))
             cust.coc_number = checkNullStr(R("coc_number"))
             cust.partner_fleet_card_number = checkNullStr(R("partner_fleet_card_number"))
-            cust.SAVE()
+            cust.tstmp = Now()
+            If cust.customer_id <> "12065 " Then cust.SAVE() 'diesed Kunde soll nicht gespeichert werden!!
 
             j = j + 1
         End While
@@ -1787,6 +1789,7 @@ Public Class cMSECustomers
     Property alternative_vat_number As Object = Nothing
     Property coc_number As Object = Nothing
     Property partner_fleet_card_number As Object = Nothing
+    Property tstmp As Object = Nothing
 
     Public hasEntry = False
 
@@ -1809,6 +1812,7 @@ Public Class cMSECustomers
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("alternative_vat_number", alternative_vat_number))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("coc_number", coc_number))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("partner_fleet_card_number", partner_fleet_card_number))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tstmp", tstmp))
 
         Return list
     End Function