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

Laufzettel fix

Browse Source
This commit is contained in:
d.breimaier
2026-04-27 09:04:29 +02:00
parent 553847cb63
commit 2e9b3b0f6b
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Aviso/frmLaufzettel.vb
View File

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