Imports EnvelopeGenerator.Common.My

Public Class frmRueckruf

    Public Continue_Reject As Boolean = False
    Public Reject_reason As String = ""
    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 btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Continue_Reject = False
        Me.Close()
    End Sub

    Private Sub frmRueckruf_Load(sender As Object, e As EventArgs) Handles Me.Load
        txtReason.Text = ""
        tsstatus.Text = ""
        Continue_Reject = False
        lblID.Text = CurrentEnvelopID.ToString
        lblTitle.Text = CurrentEnvelopetitle
    End Sub

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.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
                Me.Close()
            End If
            tsstatus.Text = ""
            Continue_Reject = True
            Dim oReason = txtReason.Text
            'If oReason.Contains(vbCrLf) Then
            '    MsgBox("vbCrLf")
            'ElseIf oReason.Contains(Chr(13)) Then
            '    MsgBox("chr13")
            'ElseIf oReason.Contains(Chr(10)) Then
            '    MsgBox("chr10")
            'End If

            'oReason = oReason.Replace(vbLf, "<br>")
            oReason = oReason.Replace(vbCrLf, "<br>")
            oReason = oReason.Replace(Chr(13), "<br>")
            oReason = oReason.Replace(Chr(10), "<br>")
            Reject_reason = oReason
            Me.Close()
        Else
            tsstatus.Text = "Please add a reason for aborting - " & Now
        End If
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
End Class