diff --git a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb index c348f8b2..15f092ce 100644 --- a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb +++ b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb @@ -15,6 +15,7 @@ Namespace Jobs.FinalizeDocument Private Const ANNOTATION_TYPE_IMAGE = "pspdfkit/image" Private Const ANNOTATION_TYPE_INK = "pspdfkit/ink" + Private Const ANNOTATION_TYPE_FORM = "pspdfkit/form-field-value" Public Sub New(pLogConfig As LogConfig, pGDPictureLicenseKey As String) MyBase.New(pLogConfig) @@ -77,6 +78,9 @@ Namespace Jobs.FinalizeDocument Case ANNOTATION_TYPE_INK AddInkAnnotation(oAnnotation) + Case ANNOTATION_TYPE_FORM + AddFormAnnotation(oAnnotation) + End Select Next @@ -137,6 +141,10 @@ Namespace Jobs.FinalizeDocument End Function + Private Function AddFormAnnotation(pAnnotation As Annotation) As Boolean + Throw New Exception("Fooo") + End Function + Private Function ToPointF(pPoints As List(Of Single)) As PointF Dim oPoints = pPoints.Select(AddressOf ToInches).ToList() Return New PointF(oPoints.Item(0), oPoints.Item(1)) @@ -153,6 +161,7 @@ Namespace Jobs.FinalizeDocument Friend Class AnnotationData Public Property annotations As List(Of Annotation) Public Property attachments As Dictionary(Of String, Attachment) + Public Property formFieldValues As List(Of FormFieldValue) End Class Friend Class Annotation @@ -174,5 +183,9 @@ Namespace Jobs.FinalizeDocument Public Property binary As String Public Property contentType As String End Class + + Friend Class FormFieldValue + Public Property value As String + End Class End Class End Namespace