feat(pdfburner): Berechnung für Anmerkungsindex innerhalb der Signaturgruppe hinzufügen

This commit is contained in:
tekh 2025-09-05 11:26:09 +02:00
parent dbf42e13d9
commit fa8d2f5f62

View File

@ -73,12 +73,14 @@ Namespace Jobs.FinalizeDocument
Dim annotCountPerSign = 5 Dim annotCountPerSign = 5
Dim annotIndex = 1 Dim annotIndex = 1
Dim calcSignIndex = Function() CInt(Math.Ceiling(CDbl(annotIndex) / CDbl(annotCountPerSign))) Dim calcSignIndex = Function() CInt(Math.Ceiling(CDbl(annotIndex) / CDbl(annotCountPerSign)))
Dim calcAnnotIndexInSign = Function() (annotIndex - 1) Mod annotCountPerSign + 1
Dim formFieldIndex = 0 Dim formFieldIndex = 0
For Each oAnnotation In oAnnotationData.annotations For Each oAnnotation In oAnnotationData.annotations
Logger.Debug("Adding AnnotationID: " + oAnnotation.id) Logger.Debug("Adding AnnotationID: " + oAnnotation.id)
Dim signIndex = calcSignIndex() Dim signIndex = calcSignIndex()
Dim annotIndexInSign = calcAnnotIndexInSign()
Select Case oAnnotation.type Select Case oAnnotation.type
Case ANNOTATION_TYPE_IMAGE Case ANNOTATION_TYPE_IMAGE