59 lines
2.0 KiB
VB.net
59 lines
2.0 KiB
VB.net
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 |