.Net 4.8, Spire PDF, PDF Kopmrimieren

2024-08-30 22:41:48 +02:00
parent 59873ed3e0
commit 2d6ad53ddd
17 changed files with 310 additions and 130 deletions
--- a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
@@ -22,12 +22,9 @@ Partial Class frmSendungAnhangImport
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
        Me.lbl = New System.Windows.Forms.Label()
        Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
-        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
-        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
        Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
        Me.lblSendungen = New System.Windows.Forms.Label()
        Me.lblImport = New System.Windows.Forms.Label()
@@ -49,7 +46,7 @@ Partial Class frmSendungAnhangImport
        Me.lblSeiten = New System.Windows.Forms.Label()
        Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
        Me.btnAdd = New System.Windows.Forms.Button()
-        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AusZwischenablageeinfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -57,7 +54,6 @@ Partial Class frmSendungAnhangImport
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
-        Me.WebBrowser = New System.Windows.Forms.WebBrowser()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.btnSndDel = New System.Windows.Forms.Button()
        Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
@@ -72,6 +68,9 @@ Partial Class frmSendungAnhangImport
        Me.Button17 = New System.Windows.Forms.Button()
        Me.lblRgPreis = New System.Windows.Forms.Label()
        Me.pnlSendung = New System.Windows.Forms.Panel()
+        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
+        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
+        Me.WebBrowser = New System.Windows.Forms.WebBrowser()
        Me.flpnlAviso.SuspendLayout()
        Me.pnlAnfuegen.SuspendLayout()
        Me.cntxt.SuspendLayout()
@@ -103,36 +102,6 @@ Partial Class frmSendungAnhangImport
        Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
        Me.flpnlAviso.TabIndex = 7
        '
-        'UsrCntlSendungAnhangElement1
-        '
-        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
-        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
-        '
-        'UsrCntlSendungAnhangElement2
-        '
-        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
-        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
-        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
-        '
        'flpnlSendungen
        '
        Me.flpnlSendungen.AllowDrop = True
@@ -504,15 +473,6 @@ Partial Class frmSendungAnhangImport
        Me.PdfViewer.Threshold = 60
        Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer))
        '
-        'WebBrowser
-        '
-        Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
-        Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser.Name = "WebBrowser"
-        Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
-        Me.WebBrowser.TabIndex = 1
-        '
        'Button3
        '
        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -671,6 +631,45 @@ Partial Class frmSendungAnhangImport
        Me.pnlSendung.Size = New System.Drawing.Size(243, 860)
        Me.pnlSendung.TabIndex = 0
        '
+        'UsrCntlSendungAnhangElement1
+        '
+        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
+        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
+        '
+        'UsrCntlSendungAnhangElement2
+        '
+        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
+        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
+        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
+        '
+        'WebBrowser
+        '
+        Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
+        Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser.Name = "WebBrowser"
+        Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
+        Me.WebBrowser.TabIndex = 1
+        '
        'frmSendungAnhangImport
        '
        Me.AllowDrop = True
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -3,6 +3,9 @@
 'Imports iTextSharp.text
 Imports System.IO
 Imports Spire.Pdf
+Imports Spire.Pdf.Conversion
+Imports Spire.Pdf.Conversion.Compression
+Imports Spire.Pdf.Exporting
 Imports VERAG_PROG_ALLGEMEIN
 'Imports GrapeCity.Documents.Pdf

@@ -115,6 +118,11 @@ Public Class frmSendungAnhangImport
                                          initFlpANH_LIST()
                                      End Sub

+        AddHandler USRCNTL.ME_COMPRESS, Sub(docId, anhId)
+                                            compressElement(docId, anhId)
+                                            initFlpANH_LIST()
+                                        End Sub
+
        AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs)
                                        If ev.KeyCode = Keys.Delete Then
                                            deleteActiveElement(getAcitvePnl())
@@ -645,11 +653,11 @@ Public Class frmSendungAnhangImport

    Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean 'ITEXTSHARP
        Try
-            Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing
-            Dim Reader As New itextsharp.text.pdf.PdfReader(SourceFile)
+            Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
+            Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
            If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
-            Dim srcDoc As New itextsharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
-            Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
+            Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
+            Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
            PdfCopyProvider.SetFullCompression()
            srcDoc.Open()
            For Each p In pagesToExtract
@@ -660,7 +668,7 @@ Public Class frmSendungAnhangImport
                End If
                impPage = PdfCopyProvider.GetImportedPage(Reader, p)
                ' ----- 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, Reader.GetPageRotation(p)))
+                PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, Reader.GetPageRotation(p)))
                ' ----- PDF Seite in das neue Dokument einfügen
                PdfCopyProvider.AddPage(impPage)

@@ -896,7 +904,7 @@ Public Class frmSendungAnhangImport

        Try
            PagesLeft = 0
-            Dim r As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(sourceFile)
+            Dim r As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sourceFile)
            Dim pagesToKeep As New List(Of Integer)
            For p = 1 To r.NumberOfPages
                Dim del = False
@@ -918,9 +926,9 @@ Public Class frmSendungAnhangImport

                    Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)

-                        Using doc As itextsharp.text.Document = New itextsharp.text.Document()
+                        Using doc As iTextSharp.text.Document = New iTextSharp.text.Document()

-                            Dim w As itextsharp.text.pdf.PdfWriter = itextsharp.text.pdf.PdfWriter.GetInstance(doc, fs)
+                            Dim w As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fs)
                            doc.Open()
                            For Each page As Integer In pagesToKeep
                                doc.NewPage()
@@ -1046,6 +1054,100 @@ Public Class frmSendungAnhangImport
        Return False
    End Function

+    Shared Function compressElement(FILE_DOCID, FILE_ANHID, Optional showMessage = True) As Boolean
+
+        If Not showMessage OrElse vbYes = MsgBox("Möchten Sie das Element komprimieren? Durch Minderung der Datenqualität gehen Informationen eventuell verloren.", vbYesNoCancel) Then
+            Try
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
+
+                'Load a PDF document while initializing the PdfCompressor object 
+                Dim compressor As Spire.Pdf.Conversion.Compression.PdfCompressor = New Spire.Pdf.Conversion.Compression.PdfCompressor(DS.GET_TOP1_PATH)
+                'Get text compression options 
+                Dim textCompression As TextCompressionOptions = compressor.Options.TextCompressionOptions
+                'Compress fonts 
+                textCompression.CompressFonts = True
+                'Unembed fonts 
+                textCompression.UnembedFonts = True
+                'Get image compression options 
+                Dim imageCompression As ImageCompressionOptions = compressor.Options.ImageCompressionOptions
+                'Set the compressed image quality 
+                imageCompression.ImageQuality = ImageQuality.High
+
+                'Resize images 
+                imageCompression.ResizeImages = True
+                'Compress images 
+                imageCompression.CompressImage = True
+                'Save the compressed document to file 
+                compressor.CompressToFile(DS.GET_TOP1_PATH)
+
+                'Load the pdf document
+                Dim doc As New PdfDocument()
+
+                doc.LoadFromFile(DS.GET_TOP1_PATH)
+                'Compress the content in document
+                CompressContent(doc)
+
+                'Compress the images in document
+                CompressImage(doc)
+
+                'Save the document
+                doc.SaveToFile(DS.GET_TOP1_PATH)
+
+                'View the pdf document
+                PDFDocumentViewer(DS.GET_TOP1_PATH)
+
+                'Dim Convert = New PdfGrayConverter("C:\Users\DEVELOPER1\Desktop\CompressDocument_result2.pdf")
+                'Convert.ToGrayPdf("C:\Users\DEVELOPER1\Desktop\CompressDocument_result3.pdf")
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
+            End Try
+        End If
+        Return False
+    End Function
+    Private Shared Sub CompressContent(ByVal doc As PdfDocument)
+        'Disable the incremental update
+        doc.FileInfo.IncrementalUpdate = False
+
+        'Set the compression level to best
+        doc.CompressionLevel = PdfCompressionLevel.Best
+    End Sub
+
+    Private Shared Sub CompressImage(ByVal doc As PdfDocument)
+        Try
+            'Disable the incremental update
+            doc.FileInfo.IncrementalUpdate = False
+
+            'Traverse all pages
+            For Each page As PdfPageBase In doc.Pages
+                If page IsNot Nothing Then
+
+
+
+
+
+                    If page.ImagesInfo IsNot Nothing Then
+                        For Each info As PdfImageInfo In page.ImagesInfo
+                            page.TryCompressImage(info.Index)
+                        Next info
+                    End If
+                End If
+            Next page
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
+        End Try
+    End Sub
+    Private Shared Sub PDFDocumentViewer(ByVal fileName As String)
+        Try
+            Process.Start(fileName)
+        Catch
+        End Try
+    End Sub
+
+
+
    Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load

        Me.Height = Screen.PrimaryScreen.WorkingArea.Height
@@ -1226,6 +1328,7 @@ Public Class frmSendungAnhangImport
        If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.AddRange(ListToAdd_flpnlSendungen.ToArray)
        If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.AddRange(ListToAdd_flpnlAviso.ToArray)

+
        'If act  Is Nothing Then initLocationViewer("", "PDF")
    End Sub

@@ -1239,6 +1342,7 @@ Public Class frmSendungAnhangImport

        USRCNTL.FILE_NAME = a.anh_Name
        USRCNTL.FILE_TYPE = a.anh_Typ
+        USRCNTL.FILE_SIZE = a.anh_size.ToString("N0") & " KB"

        USRCNTL.FILE_ANHID = a.anh_id
        USRCNTL.FILE_DOCID = a.anh_docId
@@ -1326,7 +1430,7 @@ Public Class frmSendungAnhangImport
        End Try
    End Sub

-    Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "")
+    Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "", Optional Size = "")
        Dim USRCNTL As New usrCntlSendungAnhangElement

        Dim fi As New FileInfo(TMP_Path)
@@ -1339,6 +1443,7 @@ Public Class frmSendungAnhangImport
        USRCNTL.FILE_ANHID = anhId

        USRCNTL.FILE_TYPE = Typ
+        USRCNTL.FILE_SIZE = Size

        initElement(USRCNTL)
        flpnlAviso.Controls.Add(USRCNTL)
--- a/Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb
+++ b/Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb
@@ -27,9 +27,11 @@ Partial Class usrCntlSendungAnhangElement
        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.lbl = New System.Windows.Forms.Label()
        Me.AnhängeVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.PDFsZusammenführenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KomprimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.lblSize = New System.Windows.Forms.Label()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.cntxt.SuspendLayout()
        Me.SuspendLayout()
@@ -49,39 +51,27 @@ Partial Class usrCntlSendungAnhangElement
        '
        'cntxt
        '
-        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem})
+        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem, Me.KomprimierenToolStripMenuItem})
        Me.cntxt.Name = "cntxt"
        Me.cntxt.Size = New System.Drawing.Size(206, 114)
        '
        'UmbenennenToolStripMenuItem
        '
        Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
-        Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
        Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
        '
        'LöschenToolStripMenuItem
        '
        Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
-        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
        Me.LöschenToolStripMenuItem.Text = "Löschen"
        '
-        'lbl
-        '
-        Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lbl.ContextMenuStrip = Me.cntxt
-        Me.lbl.Location = New System.Drawing.Point(36, 0)
-        Me.lbl.Name = "lbl"
-        Me.lbl.Size = New System.Drawing.Size(140, 27)
-        Me.lbl.TabIndex = 1
-        Me.lbl.Text = "NAME"
-        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
        'AnhängeVerschiebenToolStripMenuItem
        '
        Me.AnhängeVerschiebenToolStripMenuItem.Name = "AnhängeVerschiebenToolStripMenuItem"
-        Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
        Me.AnhängeVerschiebenToolStripMenuItem.Text = "Anhänge verschieben..."
        '
        'PDFsZusammenführenToolStripMenuItem
@@ -91,12 +81,44 @@ Partial Class usrCntlSendungAnhangElement
        Me.PDFsZusammenführenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
        Me.PDFsZusammenführenToolStripMenuItem.Text = "PDFs zusammenführen..."
        '
+        'KomprimierenToolStripMenuItem
+        '
+        Me.KomprimierenToolStripMenuItem.Name = "KomprimierenToolStripMenuItem"
+        Me.KomprimierenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
+        Me.KomprimierenToolStripMenuItem.Text = "Komprimieren"
+        '
+        'lbl
+        '
+        Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lbl.ContextMenuStrip = Me.cntxt
+        Me.lbl.Location = New System.Drawing.Point(36, 0)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(140, 24)
+        Me.lbl.TabIndex = 1
+        Me.lbl.Text = "NAME asd asdasd" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "asdasdasd"
+        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lblSize
+        '
+        Me.lblSize.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblSize.ContextMenuStrip = Me.cntxt
+        Me.lblSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.5!)
+        Me.lblSize.Location = New System.Drawing.Point(136, 18)
+        Me.lblSize.Name = "lblSize"
+        Me.lblSize.Size = New System.Drawing.Size(44, 10)
+        Me.lblSize.TabIndex = 2
+        Me.lblSize.Text = "1.500 KB"
+        Me.lblSize.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
        'usrCntlSendungAnhangElement
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ContextMenuStrip = Me.cntxt
+        Me.Controls.Add(Me.lblSize)
        Me.Controls.Add(Me.lbl)
        Me.Controls.Add(Me.pic)
        Me.Name = "usrCntlSendungAnhangElement"
@@ -114,4 +136,6 @@ Partial Class usrCntlSendungAnhangElement
    Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents AnhängeVerschiebenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents PDFsZusammenführenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents KomprimierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblSize As Label
 End Class
--- a/Aviso/Anhänge/usrCntlSendungAnhangElement.vb
+++ b/Aviso/Anhänge/usrCntlSendungAnhangElement.vb
@@ -16,6 +16,7 @@ Public Class usrCntlSendungAnhangElement

    Public Event ME_CLICK(STRG_PRESSED)
    Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
+    Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID)


    'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
@@ -24,6 +25,7 @@ Public Class usrCntlSendungAnhangElement
    '    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    'End Sub

+
    Private ACTIVE_Value As Boolean = False
    Public Property ACTIVE As Boolean
        Get
@@ -87,6 +89,23 @@ Public Class usrCntlSendungAnhangElement
        End Set

    End Property
+
+
+    Private FILE_SIZE_Value As String = False
+    Public Property FILE_SIZE As String
+        Get
+            Return Me.FILE_SIZE_Value
+        End Get
+
+        Set(ByVal value As String)
+            If Not (value = FILE_SIZE) Then
+                Me.FILE_SIZE_Value = value
+                Me.lblSize.Text = value
+                ' NotifyPropertyChanged("FILE_NAME")
+            End If
+        End Set
+    End Property
+
    'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
    '    RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown)
    'End Sub
@@ -165,4 +184,14 @@ Public Class usrCntlSendungAnhangElement
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub
+
+    Private Sub usrCntlSendungAnhangElement_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+            KomprimierenToolStripMenuItem.Visible = True
+        End If
+    End Sub
+
+    Private Sub KomprimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KomprimierenToolStripMenuItem.Click
+        RaiseEvent ME_COMPRESS(FILE_DOCID, FILE_ANHID)
+    End Sub
 End Class
--- a/Aviso/App.config
+++ b/Aviso/App.config
@@ -1,15 +1,15 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
    <configSections>
        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+            <section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
        </sectionGroup>
    </configSections>
    <connectionStrings>
-        <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
+        <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient"/>
    </connectionStrings>
    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
    </startup>
     
    <userSettings>
@@ -21,55 +21,55 @@
                <value>200, 200</value>
            </setting>
            <setting name="s" serializeAs="String">
-                <value />
+                <value/>
            </setting>
        </AVISO.My.MySettings>
    </userSettings>
  <system.serviceModel>
    <bindings>
      <basicHttpBinding>
-        <binding name="BasicHttpBinding_IRKSVWcf" />
+        <binding name="BasicHttpBinding_IRKSVWcf"/>
      </basicHttpBinding>
    </bindings>
    <client>
-      <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
+      <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf"/>
    </client>
  </system.serviceModel>
  <runtime>
    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
      <dependentAssembly>
-        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0" />
+        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
+        <assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
+        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0" />
-        <publisherPolicy apply="no" />
+        <assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0"/>
+        <publisherPolicy apply="no"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0" />
-        <publisherPolicy apply="no" />
+        <assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0"/>
+        <publisherPolicy apply="no"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-1.8.2.0" newVersion="1.8.2.0" />
+        <assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-1.8.2.0" newVersion="1.8.2.0"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0" />
+        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0"/>
      </dependentAssembly>
      <dependentAssembly>
-        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
+        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
      </dependentAssembly>
    </assemblyBinding>
  </runtime>
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -17,7 +17,7 @@
    <AssemblyName>AVISO</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
    <TargetFrameworkProfile>
    </TargetFrameworkProfile>
    <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -282,17 +282,12 @@
    <Reference Include="NumericBox">
      <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
    </Reference>
-    <Reference Include="Spire.License, Version=1.4.0.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\Spire.PDF\2023\Spire.License.dll</HintPath>
+    <Reference Include="Spire.Pdf">
+      <HintPath>..\..\..\dll\Spire.PDF\2024\Spire.Pdf.dll</HintPath>
    </Reference>
-    <Reference Include="Spire.Pdf, Version=8.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+    <Reference Include="Spire.PdfViewer.Forms, Version=7.10.3.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\Spire.PDF\2023\Spire.Pdf.dll</HintPath>
-    </Reference>
-    <Reference Include="Spire.PdfViewer.Forms, Version=7.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\Spire.PDF\2023\Spire.PdfViewer.Forms.dll</HintPath>
+      <HintPath>..\..\..\dll\Spire.PDF\2024\Spire.PdfViewer.Forms.dll</HintPath>
    </Reference>
    <Reference Include="System" />
    <Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -1621,6 +1616,7 @@
    <None Include="Resources\memories3.png" />
    <None Include="Resources\memories4.png" />
    <None Include="Resources\memories5.png" />
+    <None Include="Resources\license.elic.xml" />
    <Content Include="Resources\WLAN\RunNHide.exe">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </Content>
@@ -1636,7 +1632,6 @@
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </None>
    <None Include="Resources\docAllgemein.png" />
-    <None Include="Resources\license.elic.xml" />
    <None Include="Resources\scanner.png" />
    <None Include="Resources\parkplatz.jpg" />
    <None Include="Resources\igl.png" />
--- a/Project/Application.Designer.vb
+++ b/Project/Application.Designer.vb
@@ -34,5 +34,11 @@ Namespace My
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Global.AVISO.frmLogin
        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
+            Me.MinimumSplashScreenDisplayTime = 0
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
    End Class
 End Namespace
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -958,6 +958,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot; standalone=&quot;yes&quot;?&gt;
+        '''&lt;License Key=&quot;PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apM [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
+        '''</summary>
+        Public ReadOnly Property license_elic() As String
+            Get
+                Return ResourceManager.GetString("license_elic", resourceCulture)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -691,4 +691,7 @@
  <data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="license_elic" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\license.elic.xml;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
+  </data>
 </root>
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
    
    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"),  _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase
--- a/Project/license.elic.xml
+++ b/Project/license.elic.xml
@@ -1,24 +1,27 @@
-<?xml version="1.0" encoding="utf-8"?>
-<License xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Key="VnC5RCG4D4FSAQDEbg3Kdj15nhXcvWOrTv8UeDCLZCzJSH+iHRyhOBROr34M8sjY37YZn2WOkOlU7rHuVTImvolW+DrGwG+ozoBGhMVv1gemeCXPlLGbPL6cdC+cgfueF6VzuZ/mdE2bgS/6iAlMyT9PGl0l9fkzNAGkAbQWkfgc3oTWlxzk6mS37yfDkl5qjEHiyj8rcrtXnJYoZkQQvUaNdyegN3HhoZkFI3Wn5fmrwKKWaEvU39fRMF3bRShV4ghjUlnqMwjw0MHjQRQ1Q4q2g5j4FWzThumXAHLviPQja5E0YU6PEBMGTkrmFnjt1WeZbThVp5K47OHXtaoUzvZKsupVIrxGyO5zIghuwghmz9s2doE8wb5FhB3jgYr8cDgwG92u/vXIDXSkcWBpXjrYjLmC6R2bA3KsPW34ilUfad74RrLkt03dW9tnSaDI/5PEodfcqdgq2uULKsotC7iq7vIskCyyB7ZvpugwKtkrlM7Zr+b0Nw+r6L3CQMuUI3LwbYUc7S6mjPsDshBbRmmQ84okHjhBAkdxH5AwXCFSxCAQUMgnEtxwyT8NyoaDuktZQUBiZvfJnEj1Jk0y2raQf0nNP1xIkODCmnedmOqBNYMmN3intWHWhwd3bWq0bhofq3bF8cSSSqr4IKkMaITnv1VwWFc6NAHX/kAtrw/ax6TlziwYgDsv4nSKWpT5Hij23Inmf/6TZ1xw6Fxgc2afOqdxkmdCFEzjT4iDctnmFEUhyuRAOezJmNkmBRqalBMO4RNxntUO61e/rhg/rUcOg3PcT4UHX1AFuBEnVAk5P24MtURYWN4p3DaPbJ+KKY/WhPZeLJwOR9eF7LRrZBH4U9Ur1mke2aD9q0z3uA8hZcTiWVjwJLovshUgIlOf3nPK6+EEpIu9xgy5EXZRBdRzPp2ZDZdAd4/r81YilJs0CXyOC9iCouoC5zrluu3gl9yX2bmAO0rvscYkVpkoO2/Byb5BFzqvs4KO+iSgstQ7vbKtbFvkYiT5Yytf7Ucz4L8Y7a2Y8JP4qL5pDji/+0Q/TbDH03B36MgBFk2xgfgH72DQScvt8OqaA6lx+OPbOOLh/5spYMNTJvElRoAvF7jlBgwYJF+Baz86A8ijMhb8DeFqVvQkqbrHDl6G0JFQuU2YNK6v0bGMa45POCHKF2MLElYFEgecgck/9LrEmeEJ7+kBTwkuTQpzF6pFDy/i5pdjP1Q5+uxzsZVwi/4brVfMdFdsdHFiTB44V/0x4hOHRVK2/TQSWltroZKH2I4Awy4PLLxnL7mpqME3cl1hX+xfCmqSxs+VcuN0YaEaN28UR8LyFd2Xt8ZcQVZDuoxW19uCTZKPr22Ow28JXN9UfQkOTZo9dGIFS3Uc+Bkif9xCfarSARaDDtzvG4CgqMiPHc5OH4wGsop4eCTU1Hqcia5/xxTL5KSPCLm5d/VZhn+4a7D47f4EQ+ur1zssJABKIIn0O+LWIY/OY3y8mPub+DrRr2932Fi1t6vJIClie1HWmOeNzJJdH9E2lJML4OOmqnQC2gesCGe++eOZJs5ObZmRYnmcpU18OAwOjVGlQAsgExMI0LFpSuc1OLBYA6lCf1Gp07rfTvpyZ90ZzwmTFZTjDULKx42kgpno2QlCGkLEtEq6xKjnqLGaWzbd5Mpc1j1B034fjcU5pRlvN9dBEjJGleE9tpoHFDmHj8nPKgEok68uSOX6qHoy/Xnxu/xPvkLTNppjzAPDVAKG2RmSgNNErouNdHd1n1jqy5YZTU8u6Ayqli6KYVYN6CMk9kllJTAIHe7OKqGYZgHDA5vTgbxThfJgCy24" Version="1.3">
+<?xml version="1.0" encoding="utf-8" standalone="yes"?>
+<License Key="PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==" Version="1.3">
+	<SerialNumber>B081D0F5-EF94-42F2-B287-4812D84164CE</SerialNumber>
 	<Type>Runtime</Type>
 	<Username>VERAG Spedition AG</Username>
 	<Email>al@verag.ag</Email>
 	<Organization>VERAG Spedition AG</Organization>
-	<LicensedDate>2022-07-12T00:00:00Z</LicensedDate>
-	<ExpiredDate>2023-07-12T00:00:00Z</ExpiredDate>
+	<LicensedDate>2024-08-31T00:00:00Z</LicensedDate>
+	<ExpiredDate>2025-08-31T00:00:00Z</ExpiredDate>
 	<Products>
 		<Product>
-			<Name>Spire.PDFViewer for Forms</Name>
-			<Version>7.1</Version>
+			<Name>Spire.PDF Pro Edition</Name>
+			<Version>10.7</Version>
 			<Subscription>
+				<Name>Developer Subscription</Name>
 				<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
 				<NumberOfPermittedSite>1</NumberOfPermittedSite>
 			</Subscription>
 		</Product>
 		<Product>
-			<Name>Spire.PDF Pro Edition</Name>
-			<Version>8.7</Version>
+			<Name>Spire.PDFViewer for Forms</Name>
+			<Version>7.12</Version>
 			<Subscription>
+				<Name>Developer Subscription</Name>
 				<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
 				<NumberOfPermittedSite>1</NumberOfPermittedSite>
 			</Subscription>
@@ -29,4 +32,4 @@
 		<Email>sales@e-iceblue.com</Email>
 		<Url>http://www.e-iceblue.com</Url>
 	</Issuer>
-</License>
+</License>
--- a/Aviso/Resources/license.elic.xml
+++ b/Aviso/Resources/license.elic.xml
@@ -1,24 +1,27 @@
-<?xml version="1.0" encoding="utf-8"?>
-<License xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Key="VnC5RCG4D4FSAQDEbg3Kdj15nhXcvWOrTv8UeDCLZCzJSH+iHRyhOBROr34M8sjY37YZn2WOkOlU7rHuVTImvolW+DrGwG+ozoBGhMVv1gemeCXPlLGbPL6cdC+cgfueF6VzuZ/mdE2bgS/6iAlMyT9PGl0l9fkzNAGkAbQWkfgc3oTWlxzk6mS37yfDkl5qjEHiyj8rcrtXnJYoZkQQvUaNdyegN3HhoZkFI3Wn5fmrwKKWaEvU39fRMF3bRShV4ghjUlnqMwjw0MHjQRQ1Q4q2g5j4FWzThumXAHLviPQja5E0YU6PEBMGTkrmFnjt1WeZbThVp5K47OHXtaoUzvZKsupVIrxGyO5zIghuwghmz9s2doE8wb5FhB3jgYr8cDgwG92u/vXIDXSkcWBpXjrYjLmC6R2bA3KsPW34ilUfad74RrLkt03dW9tnSaDI/5PEodfcqdgq2uULKsotC7iq7vIskCyyB7ZvpugwKtkrlM7Zr+b0Nw+r6L3CQMuUI3LwbYUc7S6mjPsDshBbRmmQ84okHjhBAkdxH5AwXCFSxCAQUMgnEtxwyT8NyoaDuktZQUBiZvfJnEj1Jk0y2raQf0nNP1xIkODCmnedmOqBNYMmN3intWHWhwd3bWq0bhofq3bF8cSSSqr4IKkMaITnv1VwWFc6NAHX/kAtrw/ax6TlziwYgDsv4nSKWpT5Hij23Inmf/6TZ1xw6Fxgc2afOqdxkmdCFEzjT4iDctnmFEUhyuRAOezJmNkmBRqalBMO4RNxntUO61e/rhg/rUcOg3PcT4UHX1AFuBEnVAk5P24MtURYWN4p3DaPbJ+KKY/WhPZeLJwOR9eF7LRrZBH4U9Ur1mke2aD9q0z3uA8hZcTiWVjwJLovshUgIlOf3nPK6+EEpIu9xgy5EXZRBdRzPp2ZDZdAd4/r81YilJs0CXyOC9iCouoC5zrluu3gl9yX2bmAO0rvscYkVpkoO2/Byb5BFzqvs4KO+iSgstQ7vbKtbFvkYiT5Yytf7Ucz4L8Y7a2Y8JP4qL5pDji/+0Q/TbDH03B36MgBFk2xgfgH72DQScvt8OqaA6lx+OPbOOLh/5spYMNTJvElRoAvF7jlBgwYJF+Baz86A8ijMhb8DeFqVvQkqbrHDl6G0JFQuU2YNK6v0bGMa45POCHKF2MLElYFEgecgck/9LrEmeEJ7+kBTwkuTQpzF6pFDy/i5pdjP1Q5+uxzsZVwi/4brVfMdFdsdHFiTB44V/0x4hOHRVK2/TQSWltroZKH2I4Awy4PLLxnL7mpqME3cl1hX+xfCmqSxs+VcuN0YaEaN28UR8LyFd2Xt8ZcQVZDuoxW19uCTZKPr22Ow28JXN9UfQkOTZo9dGIFS3Uc+Bkif9xCfarSARaDDtzvG4CgqMiPHc5OH4wGsop4eCTU1Hqcia5/xxTL5KSPCLm5d/VZhn+4a7D47f4EQ+ur1zssJABKIIn0O+LWIY/OY3y8mPub+DrRr2932Fi1t6vJIClie1HWmOeNzJJdH9E2lJML4OOmqnQC2gesCGe++eOZJs5ObZmRYnmcpU18OAwOjVGlQAsgExMI0LFpSuc1OLBYA6lCf1Gp07rfTvpyZ90ZzwmTFZTjDULKx42kgpno2QlCGkLEtEq6xKjnqLGaWzbd5Mpc1j1B034fjcU5pRlvN9dBEjJGleE9tpoHFDmHj8nPKgEok68uSOX6qHoy/Xnxu/xPvkLTNppjzAPDVAKG2RmSgNNErouNdHd1n1jqy5YZTU8u6Ayqli6KYVYN6CMk9kllJTAIHe7OKqGYZgHDA5vTgbxThfJgCy24" Version="1.3">
+<?xml version="1.0" encoding="utf-8" standalone="yes"?>
+<License Key="PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==" Version="1.3">
+	<SerialNumber>B081D0F5-EF94-42F2-B287-4812D84164CE</SerialNumber>
 	<Type>Runtime</Type>
 	<Username>VERAG Spedition AG</Username>
 	<Email>al@verag.ag</Email>
 	<Organization>VERAG Spedition AG</Organization>
-	<LicensedDate>2022-07-12T00:00:00Z</LicensedDate>
-	<ExpiredDate>2023-07-12T00:00:00Z</ExpiredDate>
+	<LicensedDate>2024-08-31T00:00:00Z</LicensedDate>
+	<ExpiredDate>2025-08-31T00:00:00Z</ExpiredDate>
 	<Products>
 		<Product>
-			<Name>Spire.PDFViewer for Forms</Name>
-			<Version>7.1</Version>
+			<Name>Spire.PDF Pro Edition</Name>
+			<Version>10.7</Version>
 			<Subscription>
+				<Name>Developer Subscription</Name>
 				<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
 				<NumberOfPermittedSite>1</NumberOfPermittedSite>
 			</Subscription>
 		</Product>
 		<Product>
-			<Name>Spire.PDF Pro Edition</Name>
-			<Version>8.7</Version>
+			<Name>Spire.PDFViewer for Forms</Name>
+			<Version>7.12</Version>
 			<Subscription>
+				<Name>Developer Subscription</Name>
 				<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
 				<NumberOfPermittedSite>1</NumberOfPermittedSite>
 			</Subscription>
@@ -29,4 +32,4 @@
 		<Email>sales@e-iceblue.com</Email>
 		<Url>http://www.e-iceblue.com</Url>
 	</Issuer>
-</License>
+</License>
--- a/Aviso/frmLogin.vb
+++ b/Aviso/frmLogin.vb
@@ -62,6 +62,8 @@ Public Class frmLogin
        lblVersion.ContextMenuStrip = ctxUpdate
        If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA"

+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
+
        Dim pfadDatei As String = Application.StartupPath & "\Standort.txt"
        firma = "VERAG"

--- a/Aviso/packages.config
+++ b/Aviso/packages.config
@@ -7,7 +7,7 @@
  <package id="Common.Logging" version="3.4.1" targetFramework="net47" />
  <package id="Common.Logging.Core" version="3.4.1" targetFramework="net47" />
  <package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net47" />
-  <package id="EAGetMail" version="5.3.5" targetFramework="net47" />
+  <package id="EAGetMail" version="5.3.5" targetFramework="net47" requireReinstallation="true" />
  <package id="esendex-dotnet-sdk" version="3.8.0" targetFramework="net47" />
  <package id="GrapeCity.Documents.Common" version="2.2.0.315" targetFramework="net461" />
  <package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" />
@@ -28,5 +28,5 @@
  <package id="System.Security.Cryptography.Pkcs" version="8.0.0" targetFramework="net47" />
  <package id="System.Text.Encoding.CodePages" version="8.0.0" targetFramework="net47" />
  <package id="System.Threading.Tasks.Extensions" version="4.5.2" targetFramework="net47" />
-  <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" />
+  <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" requireReinstallation="true" />
 </packages>