MS BaseControler

This commit is contained in:
SchreiberM 2024-03-13 15:03:16 +01:00
parent 47f924ad7e
commit 21baf0bad0

View File

@ -128,9 +128,14 @@ Public MustInherit Class BaseController
End Function
Public Function DeleteDocumentsFromDisk(pEnvelope As Envelope) As Boolean
Return pEnvelope.Documents.
Select(Function(d) DeleteDocumentFromDisk(d)).
All(Function(r) r = True)
If Not IsNothing(pEnvelope.Documents) Then
Return pEnvelope.Documents.
Select(Function(d) DeleteDocumentFromDisk(d)).
All(Function(r) r = True)
Else
Return True
End If
End Function
Public Function DeleteDocumentFromDisk(pDocument As EnvelopeDocument) As Boolean