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