Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/frmATEZ_NCTS.vb

@@ -85,14 +85,14 @@ Public Class frmATEZ_NCTS
                 atez.setJsonPDF(atez_data, dgvAnhaenge)
 
                 Dim data As New DataObject()
-                    data.SetData(DataFormats.Text, atez_data.json)
-                    Clipboard.SetDataObject(data)
-                    Me.Cursor = Cursors.Default
+                data.SetData(DataFormats.Text, atez_data.json)
+                Clipboard.SetDataObject(data)
+                Me.Cursor = Cursors.Default
                 MsgBox("JSON-Daten in Zwischenablage gespeichert")
                 Exit Sub
-                End If
+            End If
 
-                If atez_data.status = "Sent" Then
+            If atez_data.status = "Sent" Then
                 Exit Sub
             End If
 
@@ -193,10 +193,22 @@ Public Class frmATEZ_NCTS
             Return False
         End If
 
+        atezData.sessionId = atez.sessionID
 
-        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!")
+        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!" & 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)
 
@@ -222,12 +234,16 @@ Public Class frmATEZ_NCTS
 
         Else
 
-            If azetId = "-1" Then atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+            If azetId = "-1" Then
+                atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+            Else
+                atezData.fehlerbeschreibung = ""
+            End If
             atezData.status = "Sent"
             atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
             Return atezData.SAVE()
 
-            End If
+        End If
 
     End Function