refactor(PDFBurner): fix merging errors

This commit is contained in:
tekh 2025-11-20 12:34:30 +01:00
parent 5c232e61f2
commit c7c78f96a6

View File

@ -160,6 +160,17 @@ Namespace Jobs.FinalizeDocument
#End Region #End Region
#Region "Add Value" #Region "Add Value"
Private Sub AddInstantJSONAnnotationToPDF(pInstantJSON As String)
Dim oAnnotationData = JsonConvert.DeserializeObject(Of AnnotationData)(pInstantJSON)
oAnnotationData.annotations.Reverse()
For Each oAnnotation In oAnnotationData.annotations
Logger.Debug("Adding AnnotationID: " + oAnnotation.id)
Select Case oAnnotation.type
Case AnnotationType.Image
AddImageAnnotation(oAnnotation, oAnnotationData.attachments)
Exit Select Exit Select
Case AnnotationType.Ink Case AnnotationType.Ink
AddInkAnnotation(oAnnotation) AddInkAnnotation(oAnnotation)