Digicust Bugfix

Aviso/frmDigicust.vb

@@ -1,10 +1,4 @@
-Imports DAKOSY_Worker.DEERRE
-Imports DAKOSY_Worker.eZollTypes
-Imports DocumentFormat.OpenXml.Vml.Presentation
-Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
-Imports GrapeCity.ActiveReports.ReportsCore.Tools
-Imports Newtonsoft.Json.Linq
-Imports SDL
+
 Imports VERAG_PROG_ALLGEMEIN
 
 
@@ -117,9 +111,7 @@ Public Class frmDigicust
                 .licencePlate = txtLKWId.Text
                 .lkwCountryId = txtLWKLand.Text
                 .customsOfficeNr = sbBestimmungsZollstelle._value
-
                 '.SAVE()
-
             End With
 
 
@@ -148,10 +140,15 @@ Public Class frmDigicust
         End If
 
         If api.uploadingCase(dig, settings, dgvAnhaenge, withAvisoData, cbxAbsender.Checked, cbxEmpfänger.Checked) Then
+            If dig.digicustId Is Nothing Then
+                MsgBox("Anfrage wurde erfolgreich gesendet, aber vom Digicust-Server keine Antwort erhalten." & vbNewLine & "Bitte nochmal versuchen!")
+            Else
                 dig.SAVE()
                 Me.Close()
             End If
 
+        End If
+
         'If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
 
         'If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten, kein Anhang ausgewählt!" & vbNewLine & "Vorgang abgebrochen!")