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

Fakt MDM

Browse Source
This commit is contained in:
d.breimaier
2025-01-28 18:27:54 +01:00
parent 34198d99ad
commit 70134c898a
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1017,21 +1017,27 @@ Public Class usrcntlFakturierung
Dim pathPDF = listPDFs(0).ToString Dim pathPDF = listPDFs(0).ToString
If listPDFs.Count > 1 Then If listPDFs.Count > 1 Then
Dim pathPDFMerge = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MDM_Sammelrechnung.pdf", ".pdf", False, False) Dim pathPDFMerge = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MDM_Sammelrechnung.pdf", ".pdf", False, False)
If Not FormularManagerNEU.MergePdfFiles(listPDFs, pathPDFMerge) Then If Not FormularManagerNEU.MergePdfFiles(listPDFs, pathPDFMerge) Then
Exit Sub Exit Sub
MsgBox("Fehler beim Zusammenführen der PDFs.") MsgBox("Fehler beim Zusammenführen der PDFs.")
End If Else
Process.Start(pathPDFMerge)
End If End If
Else
Process.Start(pathPDF)
End If
pbPloseAnh_Proz.Value = 100 pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dtSelectedSammelrechnungen.Rows.Count & " / " & dtSelectedSammelrechnungen.Rows.Count txtPloseAnh_Einarbeitung.Text = dtSelectedSammelrechnungen.Rows.Count & " / " & dtSelectedSammelrechnungen.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %" lblPloseAnh_Proz.Text = "100.00 %"
Process.Start(pathPDF)
Else
Else
MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!") MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!")
End If End If