refactor(PDFBurner): convert to Sub

This commit is contained in:
tekh 2025-10-06 14:39:55 +02:00
parent 14f2d9b6af
commit b02cc3d7a4

View File

@ -68,7 +68,7 @@ Namespace Jobs.FinalizeDocument
End Using
End Function
Private Function AddInstantJSONAnnotationToPDF(pInstantJSON As String) As Void
Private Sub AddInstantJSONAnnotationToPDF(pInstantJSON As String)
Dim oAnnotationData = JsonConvert.DeserializeObject(Of AnnotationData)(pInstantJSON)
oAnnotationData.annotations.Reverse()
@ -105,7 +105,7 @@ Namespace Jobs.FinalizeDocument
isSeal = False
Next
End Function
End Sub
Private Function AddImageAnnotation(pAnnotation As Annotation, pAttachments As Dictionary(Of String, Attachment)) As Void
Dim oAttachment = pAttachments.Where(Function(a) a.Key = pAnnotation.imageAttachmentId).