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
Try
Console.WriteLine("Seiten: " & textPdf.NumberOfPages)
'Console.WriteLine("Seiten: " & textPdf.NumberOfPages)
For pageIndex As Integer = 0 To textPdf.NumberOfPages - 1
Dim found As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
@@ -838,7 +838,7 @@ Public Class usrCntlATLAS_EXGestellung
found.Add(mrn)
Next
Catch ex As Exception
Console.WriteLine($"TEXT-FEHLER | Seite={pageIndex + 1} | {ex.Message}")
' Console.WriteLine($"TEXT-FEHLER | Seite={pageIndex + 1} | {ex.Message}")
End Try
' 2. Nur wenn keine MRN im Text gefunden wurde
@@ -850,7 +850,7 @@ Public Class usrCntlATLAS_EXGestellung
found.Add(mrn)
Next
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 If
@@ -862,7 +862,7 @@ Public Class usrCntlATLAS_EXGestellung
})
Next
Console.WriteLine($"SEITE {pageIndex + 1} ENDE | MRNs={found.Count}")
' Console.WriteLine($"SEITE {pageIndex + 1} ENDE | MRNs={found.Count}")
' Fortschritt nach abgeschlossener Seite aktualisieren
If lblProgress IsNot Nothing Then
@@ -876,11 +876,11 @@ Public Class usrCntlATLAS_EXGestellung
End Using
Catch ex As Exception
Console.WriteLine("PDF FEHLER: " & ex.ToString())
' Console.WriteLine("PDF FEHLER: " & ex.ToString())
End Try
Next
Console.WriteLine("FERTIG | MRNs gesamt: " & results.Count)
' Console.WriteLine("FERTIG | MRNs gesamt: " & results.Count)
If lblProgress IsNot Nothing Then
lblProgress.Text = $"Fertig: {results.Count} MRNs"
@@ -895,7 +895,7 @@ Public Class usrCntlATLAS_EXGestellung
Dim results As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
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(
pageText.ToUpperInvariant(),
@@ -903,7 +903,7 @@ Public Class usrCntlATLAS_EXGestellung
For Each match As System.Text.RegularExpressions.Match In matches
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
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}
Try
@@ -935,7 +935,7 @@ Public Class usrCntlATLAS_EXGestellung
Dim width = CInt(Math.Ceiling(pageSize.Width * 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 bmp As New Bitmap(img)
@@ -968,12 +968,12 @@ Public Class usrCntlATLAS_EXGestellung
If decoded IsNot Nothing Then
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)
If mrn IsNot Nothing Then
results.Add(mrn)
Console.WriteLine("MRN ERKANNT: " & mrn)
' Console.WriteLine("MRN ERKANNT: " & mrn)
End If
Next
End If
@@ -988,7 +988,7 @@ Public Class usrCntlATLAS_EXGestellung
End Using
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
If results.Count > 0 Then Exit For