From b6c7d17658b47dcb57cfc781530417a2a1d281d9 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 24 Nov 2023 15:35:59 +0100
Subject: [PATCH] Digicust Bugfix

---
 Aviso/frmDigicust.vb | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/Aviso/frmDigicust.vb b/Aviso/frmDigicust.vb
index 56cffbd..d7cecb2 100644
--- a/Aviso/frmDigicust.vb
+++ b/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,8 +140,13 @@ Public Class frmDigicust
         End If
 
         If api.uploadingCase(dig, settings, dgvAnhaenge, withAvisoData, cbxAbsender.Checked, cbxEmpfänger.Checked) Then
-            dig.SAVE()
-            Me.Close()
+            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!")