From 0366bc55a2e6cd5388df34ee1358cad723fac329 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 13 Sep 2024 08:29:34 +0200 Subject: [PATCH] Spire --- Aviso/Anhänge/frmSendungAnhangImport.vb | 2 +- Aviso/frmHauptfenster.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index d1dff9d..3e3e20e 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -1153,7 +1153,7 @@ Public Class frmSendungAnhangImport Me.Height = Screen.PrimaryScreen.WorkingArea.Height Me.Top = 0 - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Try DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 030812a..2311a59 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -4692,7 +4692,7 @@ Public Class frmHauptfenster Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim pdf As New Spire.Pdf.PdfDocument() @@ -4710,7 +4710,7 @@ Public Class frmHauptfenster Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0)) - If finder.Find("Evaluation").Count > 0 Then + If finder.Find("Evaluation Warning").Count > 0 Then MsgBox("PDF License wurde nicht geladen!") Process.Start("test.pdf") Else