AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Modules.Jobs: Version 1.1.0.0

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-10 11:43:55 +01:00
parent 3e795a1a6d
commit 204151b78c
3 changed files with 47 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Modules.Jobs/EDMI/ZUGFeRD/PDFAttachments.vb
View File

@@ -5,11 +5,13 @@ Imports GdPicture14
Public Class PDFAttachments
Private Logger As Logger
Private Filesystem As Filesystem.File
Private Const ZUGFERD_XML_FILENAME = "ZUGFeRD-invoice.xml"
Public Sub New(LogConfig As LogConfig, GdPictureKey As String)
Logger = LogConfig.GetLogger
Filesystem = New Filesystem.File(LogConfig)
End Sub
Public Function Extract(FileName As String, AllowedExtensions As List(Of String)) As List(Of FileInfo)
@@ -36,7 +38,8 @@ Public Class PDFAttachments
Dim status As GdPictureStatus = oGDPicturePDF.ExtractEmbeddedFile(index, FileData)
If status = GdPictureStatus.OK Then
Dim oTempName As String = Path.Combine(Path.GetTempPath(), oFileName)
Dim oVersionedName = Filesystem.GetVersionedFilename(oFileName)
Dim oTempName As String = Path.Combine(Path.GetTempPath(), oVersionedName)
Using oFileStream As New FileStream(oTempName, FileMode.OpenOrCreate)
oFileStream.Write(FileData, 0, FileData.Length)
End Using