Attila Importassistent

Aviso/frmATEZ_NCTS.vb

@@ -92,7 +92,7 @@ Public Class frmATEZ_NCTS
                 Exit Sub
                 End If
 
-                If atez_data.status = "Sent" Then
+            If atez_data.status = "Sent" Then
                 Exit Sub
             End If
 
@@ -193,9 +193,19 @@ Public Class frmATEZ_NCTS
         End If
 
 
-        If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+        If Not atez.setJson(atezData) Then
+            MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+            atezData.status = "Failure"
+            atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
+            Return atezData.SAVE
+        End If
 
-        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten, kein Anhang ausgewählt!" & vbNewLine & "Vorgang abgebrochen!")
+        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+            atezData.status = "Failure"
+            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+            Return atezData.SAVE
+        End If
 
         Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
 
@@ -226,7 +236,7 @@ Public Class frmATEZ_NCTS
             atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
             Return atezData.SAVE()
 
-            End If
+        End If
 
     End Function