MS EnvelopeGenerator.Common v1.6 Reason for Aborting

XX.Form v1.7 Reason Aborting

EnvelopeGenerator.Form/frmRueckruf.vb

@@ -0,0 +1,39 @@
+Imports EnvelopeGenerator.Common.My
+
+Public Class frmRueckruf
+
+    Public Continue_Reject As Boolean = False
+    Public Reject_reason As String = ""
+    Public Abort As Boolean = False
+    Public Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnWeiter.Click
+        If txtReason.Text <> "" Then
+            If MsgBox(Resources.Envelope.Do_you_really_want_to_delete_this_envelope, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
+                Abort = True
+                Me.Close()
+            End If
+            tsstatus.Text = ""
+            Continue_Reject = True
+            Reject_reason = txtReason.Text
+        Else
+            tsstatus.Text = "Please add a reason for aborting - " & Now
+        End If
+    End Sub
+
+    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
+        Abort = True
+        Me.Close()
+    End Sub
+
+    Private Sub frmRueckruf_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtReason.Text = ""
+        tsstatus.Text = ""
+    End Sub
+End Class