ATEZ

Aviso/frmATEZ_NCTS.vb

@@ -135,8 +135,11 @@ Public Class frmATEZ_NCTS
 
             If sendAtezData(atez_data, atez) Then
                 Me.Close()
+            Else
+                Me.Close()
             End If
 
+
             Me.Cursor = Cursors.Default
 
         Catch ex As Exception
@@ -186,10 +189,15 @@ Public Class frmATEZ_NCTS
             lblInfo.Text = "Fehler in der API "
 
         Else
+            If azetId = -1 Then
+                atezData.fehlerbeschreibung = "Request has been sent, but not header received!"
+            End If
+
             atezData.status = "Sent"
-            atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
-            Return atezData.SAVE()
-        End If
+                atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+                Return atezData.SAVE()
+
+            End If
 
     End Function