Laufzettel fix

This commit is contained in:
2026-04-27 09:04:29 +02:00
parent 553847cb63
commit 2e9b3b0f6b

View File

@@ -514,9 +514,9 @@ Public Class frmLaufzettel
For Each p In paths For Each p In paths
If p <> "" Then If p <> "" Then
If Not System.IO.Directory.Exists(p) Then Continue For 'If Not System.IO.Directory.Exists(p) Then Continue For
Dim fileInfo As New IO.FileInfo(p) 'Dim fileInfo As New IO.FileInfo(p)
If Not fileInfo.Exists Then Continue For 'If Not fileInfo.Exists Then Continue For
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({p}, cboPrinter.SelectedItem.ToString) VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({p}, cboPrinter.SelectedItem.ToString)
End If End If
@@ -543,11 +543,11 @@ Public Class frmLaufzettel
Else Else
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck) Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck)
If path <> "" Then If path <> "" Then
Dim fileInfo As New IO.FileInfo(path) 'Dim fileInfo As New IO.FileInfo(path)
If fileInfo.Exists Then 'If fileInfo.Exists Then
'Process.Start(path) 'Process.Start(path)
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
End If 'End If
End If End If
End If End If