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

MS Rückruf

Browse Source
This commit is contained in:
SchreiberM
2024-05-29 13:43:55 +02:00
parent 297ecfab7b
commit 5ca4c04669
3 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
EnvelopeGenerator.Form/frmMain.vb
View File

@@ -152,19 +152,21 @@ Public Class frmMain
End Sub
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
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
Try
Dim oSelectedRows = ViewEnvelopes.GetSelectedRows()
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
DeleteEnvelope(oSelectedRows.First, frmRueckruf.Reject_reason)
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing