From 1c08c7b23ec872b42fa464857cfa87bace7e81b3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 20 Sep 2024 13:24:40 +0200 Subject: [PATCH] aviso --- Aviso/Anhänge/frmSendungAnhangImport.vb | 3 ++- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmHauptfenster.vb | 2 +- Aviso/frmSendungsdetailsNEU.vb | 6 ++---- 4 files changed, 7 insertions(+), 8 deletions(-) diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index 3e3e20e..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)) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index b5649b2..e585f7e 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 2311a59..34cb941 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() 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)