From 6b3c25bb5b6cbc8f009607bc7c041b3c6e4b9c91 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 1 Sep 2023 12:37:56 +0200
Subject: [PATCH] Fehlerhandling beim ATEZ_NCTS

---
 Aviso/My Project/AssemblyInfo.vb | 4 ++--
 Aviso/frmATEZ_NCTS.vb            | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 6c20a04..2521695 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.9.1.0")>
-<Assembly: AssemblyFileVersion("3.9.1.0")>
+<Assembly: AssemblyVersion("3.9.1.3")>
+<Assembly: AssemblyFileVersion("3.9.1.3")>
diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb
index 041fbd9..d1b0858 100644
--- a/Aviso/frmATEZ_NCTS.vb
+++ b/Aviso/frmATEZ_NCTS.vb
@@ -190,12 +190,13 @@ Public Class frmATEZ_NCTS
 
         If failreDesc <> "" Then
             If atezData.status = "Draft" Then
-                MsgBox("Fehler beim Senden")
+                MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
                 Exit Sub
             End If
-            Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & "Soll NCTS wird als Entwurf gespeichert werden?", vbYesNoCancel)
+            Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS wird als Entwurf gespeichert werden?", vbYesNoCancel)
             If result = vbYes Then
                 atezData.status = "Draft"
+                atezData.fehlerbeschreibung = failreDesc
                 atezData.SAVE()
             End If
             lblInfo.Text = "Fehler in der API"