TimasAPI, Ueberstundenprotokollierung, etc.

This commit is contained in:
2024-02-23 16:03:34 +01:00
parent 4c5885c7da
commit 5f16eb1c31
7 changed files with 177 additions and 9 deletions

View File

@@ -1409,7 +1409,10 @@ Public Class cFormularManager
Using webClient As New Net.WebClient()
Dim data() As Byte = webClient.DownloadData(URL)
Using stream As New MemoryStream(data)
Dim doc As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument(stream)
Dim doc As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument
doc.LoadFromStream(stream)
If doc IsNot Nothing Then
doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
doc.SaveToFile(targetPath)
@@ -1422,7 +1425,7 @@ Public Class cFormularManager
Return targetPath
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function