edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fehlerhandling beim ATEZ_NCTS

Browse Source
This commit is contained in:
d.breimaier
2023-09-01 12:37:56 +02:00
parent 8232002d6b
commit 6b3c25bb5b
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/frmATEZ_NCTS.vb
View File

@@ -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"