MS EnvelopeGenerator.Common v1.6 Reason for Aborting

XX.Form v1.7 Reason Aborting
This commit is contained in:
2024-05-29 12:58:15 +02:00
parent 81220ac9b4
commit 48db26931c
12 changed files with 332 additions and 22 deletions

View File

@@ -42,7 +42,7 @@ Public MustInherit Class BaseController
ChartModel = New ChartModel(pState)
End Sub
Public Function DeleteEnvelope(pEnvelope As Envelope) As Boolean
Public Function DeleteEnvelope(pEnvelope As Envelope, pReason As String) As Boolean
If pEnvelope Is Nothing Then
Return True
End If
@@ -52,7 +52,7 @@ Public MustInherit Class BaseController
Return False
End If
Return ActionService.DeleteEnvelope(pEnvelope)
Return ActionService.DeleteEnvelope(pEnvelope, pReason)
Else
Return DeleteEnvelopeFromDisk(pEnvelope)
End If