diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index d1dff9d..3711af0 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -653,7 +653,8 @@ 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 impPage As itextsharp.text.pdf.PdfImportedPage = Nothing + If SourceFile.Contains(" ") Then SourceFile = SourceFile 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)) @@ -1153,7 +1154,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..34cb941 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -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 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index c49a5c7..eda58ed 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -2420,7 +2420,7 @@ Public Class frmSendungsdetailsNEU End Select - VALIDATE_ME(False) + If Not isFailureShown Then VALIDATE_ME(False) ' initOfferteDGV() End Sub @@ -7094,9 +7094,7 @@ Public Class frmSendungsdetailsNEU Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick Try - - VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife! - + If Not isFailureShown Then VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife! Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)