MS Rückruf!

2024-05-29 14:34:56 +02:00
parent 5ca4c04669
commit df2537bf29
2 changed files with 14 additions and 7 deletions
--- a/EnvelopeGenerator.Form/frmMain.vb
+++ b/EnvelopeGenerator.Form/frmMain.vb
@@ -157,8 +157,7 @@ Public Class frmMain
            If oSelectedRows.Count > 0 Then
                Dim ofrmAbort As New frmRueckruf
                frmRueckruf.ShowDialog()
-                MsgBox("Abort: " & frmRueckruf.Abort & vbNewLine & "Reason: " & frmRueckruf.Reject_reason)
-                If frmRueckruf.Abort = False Then
+                If frmRueckruf.Continue_Reject = True Then
                    DeleteEnvelope(oSelectedRows.First, frmRueckruf.Reject_reason)
                End If