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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-20 14:39:31 +02:00
parent 051186bcde f6a2c65b89
commit 7b57b75b8e
3 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
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))
@@ -1153,7 +1154,7 @@ Public Class frmSendungAnhangImport
Me.Height = Screen.PrimaryScreen.WorkingArea.Height Me.Height = Screen.PrimaryScreen.WorkingArea.Height
Me.Top = 0 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 Try
DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False

2
Aviso/frmHauptfenster.vb
View File

@@ -4710,7 +4710,7 @@ Public Class frmHauptfenster
Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0)) 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!") MsgBox("PDF License wurde nicht geladen!")
Process.Start("test.pdf") Process.Start("test.pdf")
Else Else

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)