AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

GDPicture Update

Browse Source
This commit is contained in:
Developer01
2025-09-18 16:37:05 +02:00
parent e9427b35be
commit e13434ccff
6 changed files with 97 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@@ -47,7 +47,7 @@ Public Class ImportZUGFeRDFiles
'- application/vnd.openxmlformats-officedocument.spreadsheetml.sheet (xlsx)
'- application/vnd.oasis.opendocument.spreadsheet (odt)
'- image/jpeg
'- image/png
'- image/png _gdpictureLicenseKey
'- image/tiff (UBL)
'- text/csv
'- text/xml (UBL)
@@ -101,7 +101,7 @@ Public Class ImportZUGFeRDFiles
_history = New ZUGFeRD.HistoryFunctions(LogConfig, _mssql)
_embeds = New PDFEmbeds(LogConfig)
_hash = New HashFunctions(_logConfig, _mssql)
_xRechnungCreator = New XRechnungViewDocument(_logConfig, _mssql, _gdpictureLicenseKey)
_logger.Debug("Registering GDPicture License")
If _mssql IsNot Nothing Then
_gdpictureLicenseKey = ConfigDbFunct.GetProductLicense("GDPICTURE", "11.2024", _logConfig, _mssql.CurrentConnectionString)
@@ -109,6 +109,7 @@ Public Class ImportZUGFeRDFiles
_logger.Warn("GDPicture License could not be registered! MSSQL is not enabled!")
Throw New ArgumentNullException("MSSQL")
End If
_xRechnungCreator = New XRechnungViewDocument(_logConfig, _mssql, _gdpictureLicenseKey)
End Sub
Public Sub Start(Arguments As Object) Implements IJob.Start

6
Jobs/ZUGFeRD/XRechnungViewDocument.vb
View File

@@ -29,6 +29,8 @@ Public Class XRechnungViewDocument
_logger.Debug("Create_PDFfromXML() Start")
Try
Dim LicenseManager = New LicenseManager()
LicenseManager.RegisterKEY(_gdpictureLicenseKey)
Dim oXRechnungFile = pXmlFile.FullName
Dim oNewFileinfo As FileInfo
Dim oXmlFilePath = pXmlFile.FullName
@@ -48,7 +50,7 @@ Public Class XRechnungViewDocument
'oViewRecieptFilename = oViewRecieptFilename.Replace(".xml", ".pdf")
oViewRecieptFilename = Regex.Replace(oViewRecieptFilename, ".xml", ".pdf", RegexOptions.IgnoreCase)
Using gdpicturePDF As New GdPicturePDF()
Using gdpicturePDF As New GdPicturePDF
' Create a new PDF/A-2a compliant document (blank, no pages yet)
Dim status As GdPictureStatus = gdpicturePDF.NewPDF(PdfConformance.PDF_A_2a)
If status = GdPictureStatus.OK Then
@@ -59,7 +61,7 @@ Public Class XRechnungViewDocument
MsgBox("The NewPDF(PdfConformance.PDF_A_2a) method has failed with the status: " + status.ToString(), "Example: NewPDF")
End If
End Using
Dim MyGDPicturePDF = New GdPicturePDF()
Dim MyGDPicturePDF = New GdPicturePDF
Dim oPDFStatus As GdPictureStatus = MyGDPicturePDF.NewPDF(PdfConformance.PDF_A_2a)