edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

aviso

Browse Source
This commit is contained in:
d.breimaier
2024-09-20 13:24:40 +02:00
parent 0366bc55a2
commit 1c08c7b23e
4 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -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 Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean 'ITEXTSHARP
Try 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) Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf" If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0)) Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.3.2")> <Assembly: AssemblyVersion("4.0.3.3")>
<Assembly: AssemblyFileVersion("4.0.3.2")> <Assembly: AssemblyFileVersion("4.0.3.3")>

2
Aviso/frmHauptfenster.vb
View File

@@ -4692,7 +4692,7 @@ Public Class frmHauptfenster
Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click 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() Dim pdf As New Spire.Pdf.PdfDocument()

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2420,7 +2420,7 @@ Public Class frmSendungsdetailsNEU
End Select End Select
VALIDATE_ME(False) If Not isFailureShown Then VALIDATE_ME(False)
' initOfferteDGV() ' initOfferteDGV()
End Sub End Sub
@@ -7094,9 +7094,7 @@ Public Class frmSendungsdetailsNEU
Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
Try Try
If Not isFailureShown Then VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife!
VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife!
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)