Fehlerhandling ATEZ bei not receivedResponseHeader verbessert., Digicust API erweitert.

VERAG_PROG_ALLGEMEIN/Schnittstellen/Digicast/cDigicustAPI.vb

@@ -487,7 +487,7 @@ Public Class cDigicustAPI
 
         '       createUserinput(rest, counter, dig)
 
-        rest.PartSelector = "0"
+
 
         rest.AddHeader("Content-Type", "multipart/form-data")
         rest.AddHeader("Authorization", "Bearer " & token)
@@ -499,6 +499,11 @@ Public Class cDigicustAPI
 
         rest.SendReqMultipart("POST", "/upload/api/" & settings.customerId & "/" & settings.projectId & "/new")
 
+        rest.PartSelector = "0"
+        rest.ClearAllHeaders()
+        rest.ClearAllParts()
+        rest.PartSelector = ""
+
         Dim responseStatusCode = rest.ReadResponseHeader()
         If (responseStatusCode < 0) Then
             For i = 0 To 15 'Versuche den Header 16x abzufragen (funktioniert ab und zu nicht).
@@ -619,10 +624,15 @@ Public Class cDigicustAPI
 
     Shared Function createUserinput(ByRef rest As Chilkat.Rest, ByRef counter As Integer, ByVal sendung As cDigicustSendungen)
 
+        'zusätzliche Informationen aus dem AVISO
 
         'beforeNormalization(fallback -> falls Daten nicht gelesen werden können, wird ergänzt)
         'afterNormalization(overwrite -> werden mit mitgeschickten Infos überschrieben).
 
+        Dim jsonArray As New Chilkat.JsonArray()
+
+
+
         Dim json As New Chilkat.JsonObject
         If sendung.licencePlate <> "" Then
             json.UpdateString("truckLicensePlate", sendung.licencePlate)