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

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.1.0")> <Assembly: AssemblyVersion("3.9.1.3")>
<Assembly: AssemblyFileVersion("3.9.1.0")> <Assembly: AssemblyFileVersion("3.9.1.3")>

5
Aviso/frmATEZ_NCTS.vb
View File

@@ -190,12 +190,13 @@ Public Class frmATEZ_NCTS
If failreDesc <> "" Then If failreDesc <> "" Then
If atezData.status = "Draft" Then If atezData.status = "Draft" Then
MsgBox("Fehler beim Senden") MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
Exit Sub Exit Sub
End If 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 If result = vbYes Then
atezData.status = "Draft" atezData.status = "Draft"
atezData.fehlerbeschreibung = failreDesc
atezData.SAVE() atezData.SAVE()
End If End If
lblInfo.Text = "Fehler in der API" lblInfo.Text = "Fehler in der API"