- 3.0.4.0 2026-05-20 Actualización tsPDF

TSPdfUtils/Firmas.vb

@@ -278,19 +278,24 @@ Public Class Firmas
                 reader.SetUnethicalReading(ObviarSeguridad)
             End If
 
-
-
-            Dim pdfSign As New PdfSigner(reader, pdfDestino, sp)
+            Dim pdfSign As PdfSigner = Nothing
 
 
             ' EN CASO DE QUE SEA PDFA COMPRUEBA QUE TENGA LA ANOTACIÓN F
-            If Utilidades.TieneMarcaPdfA(pdfLectura) Then
-                Dim pdfDoc1 As PdfDocument = pdfSign.GetDocument()
-                Utilidades.RepararAnotacionesSinF(pdfDoc1)
+
+            If PDFAObligatorio AndAlso ConvertirPDFA Then
+                If Utilidades.TieneMarcaPdfA(pdfLectura) Then
+                    Dim pdfDoc1 As PdfDocument = pdfSign.GetDocument()
+                    Utilidades.RepararAnotacionesSinF(pdfDoc1)
+                End If
+                pdfSign = New PdfSigner(reader, pdfDestino, sp)
+
+            Else
+                pdfSign = New PdfSigner(reader, pdfDestino, sp, ConvertirPDFA:=False)
             End If
 
 
-            If NombreCampoFirma <> "" Then
+                If NombreCampoFirma <> "" Then
                 pdfSign.SetFieldName(NombreCampoFirma)
             Else
                 pdfSign.SetFieldName(pdfSign.GetNewSigFieldName())
@@ -336,7 +341,7 @@ Public Class Firmas
             reader.Close()
 
         Catch ex As Exception
-            Throw New Exception(ex.Message, ex)
+            Throw New Exception("Error en FirmaPDF ConvertirPDFA= " & ConvertirPDFA.ToString & " PDFAObligatorio=" & PDFAObligatorio.ToString & " " & ex.Message, ex)
         End Try
     End Sub