AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS EnvelopeGenerator.Common v1.6 Reason for Aborting

Browse Source 
XX.Form v1.7 Reason Aborting
This commit is contained in:
SchreiberM
2024-05-29 12:58:15 +02:00
parent 81220ac9b4
commit 48db26931c
12 changed files with 332 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
EnvelopeGenerator.Form/frmMain.vb
View File

@@ -130,14 +130,14 @@ Public Class frmMain
End Try
End Sub
Private Sub DeleteEnvelope(pRowHandle As Integer)
Private Sub DeleteEnvelope(pRowHandle As Integer, pReason As String)
Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(pRowHandle)
If MsgBox(Resources.Envelope.Do_you_really_want_to_delete_this_envelope, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
'If MsgBox(Resources.Envelope.Do_you_really_want_to_delete_this_envelope, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
' Exit Sub
'End If
If Controller.DeleteEnvelope(oEnvelope) Then
If Controller.DeleteEnvelope(oEnvelope, pReason) Then
LoadEnvelopeData()
Else
MsgBox(Resources.Envelope.The_envelope_could_not_be_deleted, MsgBoxStyle.Critical, Text)
@@ -154,7 +154,16 @@ Public Class frmMain
Private Sub btnDeleteEnvelope_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeleteEnvelope.ItemClick
Dim oSelectedRows = ViewEnvelopes.GetSelectedRows()
If oSelectedRows.Count > 0 Then
DeleteEnvelope(oSelectedRows.First)
Dim ofrmAbort As New frmRueckruf
frmRueckruf.ShowDialog()
MsgBox("Abort: " + frmRueckruf.Abort & vbNewLine & "Reason: " + frmRueckruf.Reject_reason)
If frmRueckruf.Abort = False Then
MsgBox(frmRueckruf.Abort & vbNewLine & frmRueckruf.Reject_reason)
DeleteEnvelope(oSelectedRows.First, frmRueckruf.Reject_reason)
Else
End If
End If
End Sub