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

exg fix

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-19 07:57:11 +02:00
parent e7023fdb0f
commit 9d285f9e24
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
View File

@@ -819,7 +819,7 @@ Public Class usrCntlATLAS_EXGestellung
Dim imagePdf As PdfiumViewer.PdfDocument = Nothing Dim imagePdf As PdfiumViewer.PdfDocument = Nothing
Try Try
Console.WriteLine("Seiten: " & textPdf.NumberOfPages) 'Console.WriteLine("Seiten: " & textPdf.NumberOfPages)
For pageIndex As Integer = 0 To textPdf.NumberOfPages - 1 For pageIndex As Integer = 0 To textPdf.NumberOfPages - 1
Dim found As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase) Dim found As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
@@ -838,7 +838,7 @@ Public Class usrCntlATLAS_EXGestellung
found.Add(mrn) found.Add(mrn)
Next Next
Catch ex As Exception Catch ex As Exception
Console.WriteLine($"TEXT-FEHLER | Seite={pageIndex + 1} | {ex.Message}") ' Console.WriteLine($"TEXT-FEHLER | Seite={pageIndex + 1} | {ex.Message}")
End Try End Try
' 2. Nur wenn keine MRN im Text gefunden wurde ' 2. Nur wenn keine MRN im Text gefunden wurde
@@ -850,7 +850,7 @@ Public Class usrCntlATLAS_EXGestellung
found.Add(mrn) found.Add(mrn)
Next Next
Catch ex As Exception Catch ex As Exception
Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | {ex.Message}") ' Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | {ex.Message}")
End Try End Try
End If End If
@@ -862,7 +862,7 @@ Public Class usrCntlATLAS_EXGestellung
}) })
Next Next
Console.WriteLine($"SEITE {pageIndex + 1} ENDE | MRNs={found.Count}") ' Console.WriteLine($"SEITE {pageIndex + 1} ENDE | MRNs={found.Count}")
' Fortschritt nach abgeschlossener Seite aktualisieren ' Fortschritt nach abgeschlossener Seite aktualisieren
If lblProgress IsNot Nothing Then If lblProgress IsNot Nothing Then
@@ -876,11 +876,11 @@ Public Class usrCntlATLAS_EXGestellung
End Using End Using
Catch ex As Exception Catch ex As Exception
Console.WriteLine("PDF FEHLER: " & ex.ToString()) ' Console.WriteLine("PDF FEHLER: " & ex.ToString())
End Try End Try
Next Next
Console.WriteLine("FERTIG | MRNs gesamt: " & results.Count) ' Console.WriteLine("FERTIG | MRNs gesamt: " & results.Count)
If lblProgress IsNot Nothing Then If lblProgress IsNot Nothing Then
lblProgress.Text = $"Fertig: {results.Count} MRNs" lblProgress.Text = $"Fertig: {results.Count} MRNs"
@@ -895,7 +895,7 @@ Public Class usrCntlATLAS_EXGestellung
Dim results As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase) Dim results As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
Dim pageText = pdf.GetPage(pageIndex + 1).Text Dim pageText = pdf.GetPage(pageIndex + 1).Text
Console.WriteLine($"TEXT | Seite={pageIndex + 1} | Zeichen={pageText.Length}") ' Console.WriteLine($"TEXT | Seite={pageIndex + 1} | Zeichen={pageText.Length}")
Dim matches = System.Text.RegularExpressions.Regex.Matches( Dim matches = System.Text.RegularExpressions.Regex.Matches(
pageText.ToUpperInvariant(), pageText.ToUpperInvariant(),
@@ -903,7 +903,7 @@ Public Class usrCntlATLAS_EXGestellung
For Each match As System.Text.RegularExpressions.Match In matches For Each match As System.Text.RegularExpressions.Match In matches
If results.Add(match.Value) Then If results.Add(match.Value) Then
Console.WriteLine($"TEXT-MRN | Seite={pageIndex + 1} | {match.Value}") ' Console.WriteLine($"TEXT-MRN | Seite={pageIndex + 1} | {match.Value}")
End If End If
Next Next
@@ -927,7 +927,7 @@ Public Class usrCntlATLAS_EXGestellung
} }
} }
Console.WriteLine($"BILD | Seite={pageIndex + 1} | Barcode-Erkennung gestartet") ' Console.WriteLine($"BILD | Seite={pageIndex + 1} | Barcode-Erkennung gestartet")
For Each dpi As Integer In {200, 300} For Each dpi As Integer In {200, 300}
Try Try
@@ -935,7 +935,7 @@ Public Class usrCntlATLAS_EXGestellung
Dim width = CInt(Math.Ceiling(pageSize.Width * dpi / 72.0)) Dim width = CInt(Math.Ceiling(pageSize.Width * dpi / 72.0))
Dim height = CInt(Math.Ceiling(pageSize.Height * dpi / 72.0)) Dim height = CInt(Math.Ceiling(pageSize.Height * dpi / 72.0))
Console.WriteLine($"Rendering | Seite={pageIndex + 1} | DPI={dpi} | {width}x{height}") ' Console.WriteLine($"Rendering | Seite={pageIndex + 1} | DPI={dpi} | {width}x{height}")
Using img As System.Drawing.Image = pdf.Render(pageIndex, width, height, dpi, dpi, PdfiumViewer.PdfRenderFlags.Annotations) Using img As System.Drawing.Image = pdf.Render(pageIndex, width, height, dpi, dpi, PdfiumViewer.PdfRenderFlags.Annotations)
Using bmp As New Bitmap(img) Using bmp As New Bitmap(img)
@@ -968,12 +968,12 @@ Public Class usrCntlATLAS_EXGestellung
If decoded IsNot Nothing Then If decoded IsNot Nothing Then
For Each barcode In decoded For Each barcode In decoded
Console.WriteLine($"BARCODE | Seite={pageIndex + 1} | Typ={barcode.BarcodeFormat} | Inhalt={barcode.Text}") ' Console.WriteLine($"BARCODE | Seite={pageIndex + 1} | Typ={barcode.BarcodeFormat} | Inhalt={barcode.Text}")
Dim mrn = GetMRNFromBarcode(barcode.Text) Dim mrn = GetMRNFromBarcode(barcode.Text)
If mrn IsNot Nothing Then If mrn IsNot Nothing Then
results.Add(mrn) results.Add(mrn)
Console.WriteLine("MRN ERKANNT: " & mrn) ' Console.WriteLine("MRN ERKANNT: " & mrn)
End If End If
Next Next
End If End If
@@ -988,7 +988,7 @@ Public Class usrCntlATLAS_EXGestellung
End Using End Using
Catch ex As Exception Catch ex As Exception
Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | DPI={dpi} | {ex.Message}") ' Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | DPI={dpi} | {ex.Message}")
End Try End Try
If results.Count > 0 Then Exit For If results.Count > 0 Then Exit For