diff --git a/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb b/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb index ef2b690d..b84681ba 100644 --- a/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb +++ b/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb @@ -61,7 +61,7 @@ Namespace Jobs.FinalizeDocument For Each annot In element.Annotations If annot.Type = AnnotationType.FormField Then - AddFormFieldValue(x, y, 100, 180, element.Page, annot.Value) + AddFormFieldValue(annot.Name, x, y, 100, 180, element.Page, annot.Value) End If Next Next @@ -165,10 +165,18 @@ Namespace Jobs.FinalizeDocument Next End Sub - Private Sub AddFormFieldValue(x As Double, y As Double, width As Double, height As Double, page As Integer, value As String) + Private Sub AddFormFieldValue(name As String, x As Double, y As Double, width As Double, height As Double, page As Integer, value As String) + + Dim yOffset As New Dictionary(Of String, Integer) From { + {"position", 1}, + {"date", 2}, + {"city", 3}, + } + Manager.SelectPage(page + 1) + Dim posY = y + _pdfBurnerParams.YOffset * yOffset(name) ' Add the text annotation - Dim ant = Manager.AddTextAnnot(x, y, width, height, value) + Dim ant = Manager.AddTextAnnot(x, posY, width, height, value) ' Set the font properties ant.FontName = _pdfBurnerParams.FontName