From 74f3015d22090b44e0aa92ccd2fe43ade82e0186 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 10 Jan 2025 10:38:53 +0100 Subject: [PATCH] vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmMDM_USTVAntrag.vb | 16 ++++++++-------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index ded1e0b1..2ed9f5cd 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 816b24c7..89fb4a2a 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -5,13 +5,13 @@ Imports System.Windows.Documents Imports com.sun.org.apache.xml.internal.resolver Imports com.sun.tools.internal.ws.wsdl.framework Imports DocumentFormat.OpenXml.Office2010.Drawing.Charts -Imports itextsharp.text.pdf -Imports itextsharp.text.pdf.parser +Imports iTextSharp.text.pdf +Imports iTextSharp.text.pdf.parser Imports java.text.Normalizer Imports jdk.nashorn.internal.objects.annotations 'Imports DocumentFormat.OpenXml.Drawing.Charts Imports Microsoft.Office.Interop -Imports org.BouncyCastle.Pqc.Crypto +Imports Org.BouncyCastle.Pqc.Crypto Imports sun.swing Imports VERAG_PROG_ALLGEMEIN @@ -1521,11 +1521,11 @@ Public Class frmMDM_USTVAntrag Try Dim fi As New System.IO.DirectoryInfo(path_src) - Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(path_src) + Dim pdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src) Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension,, True, "IDS-Rechnungen") - Dim srcDoc As New itextsharp.text.Document() - Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New FileStream(TMP_Path_New, System.IO.FileMode.Create)) + Dim srcDoc As New iTextSharp.text.Document() + Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New FileStream(TMP_Path_New, System.IO.FileMode.Create)) PdfCopyProvider.SetFullCompression() srcDoc.Open() PdfReader.unethicalreading = True @@ -1536,7 +1536,7 @@ Public Class frmMDM_USTVAntrag Dim strategy As ITextExtractionStrategy = New SimpleTextExtractionStrategy() Dim currentpagetext As String = PdfTextExtractor.GetTextFromPage(pdfReader, page, strategy) Dim searchtext As String = ReNr - Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing + Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing If (currentpagetext.Contains(searchtext)) Then @@ -1549,7 +1549,7 @@ Public Class frmMDM_USTVAntrag impPage = PdfCopyProvider.GetImportedPage(pdfReader, page) ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite - PdfCopyProvider.SetPageSize(New itextsharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, pdfReader.GetPageRotation(page))) + PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, pdfReader.GetPageRotation(page))) ' ----- PDF Seite in das neue Dokument einfügen If impPage IsNot Nothing Then PdfCopyProvider.AddPage(impPage) Catch ex As Exception