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

comm

Browse Source
This commit is contained in:
d.breimaier
2025-01-17 16:57:20 +01:00
parent d02b7f1dea
commit 22ac0b1bcd
2 changed files with 101 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -141,6 +141,8 @@ Partial Class usrCntlMDMAuswertungen
Me.Button18 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button()
Me.Label44 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label()
Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.GroupBox13 = New System.Windows.Forms.GroupBox()
Me.Label71 = New System.Windows.Forms.Label()
Me.Label70 = New System.Windows.Forms.Label()
Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label67 = New System.Windows.Forms.Label() Me.Label67 = New System.Windows.Forms.Label()
Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker() Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker()
@@ -197,8 +199,7 @@ Partial Class usrCntlMDMAuswertungen
Me.btnContractdaten = New System.Windows.Forms.Button() Me.btnContractdaten = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Label70 = New System.Windows.Forms.Label() Me.Button19 = New System.Windows.Forms.Button()
Me.Label71 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1484,7 +1485,7 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox19.Controls.Add(Me.Button18) Me.GroupBox19.Controls.Add(Me.Button18)
Me.GroupBox19.Location = New System.Drawing.Point(18, 146) Me.GroupBox19.Location = New System.Drawing.Point(18, 146)
Me.GroupBox19.Name = "GroupBox19" Me.GroupBox19.Name = "GroupBox19"
Me.GroupBox19.Size = New System.Drawing.Size(697, 107) Me.GroupBox19.Size = New System.Drawing.Size(697, 84)
Me.GroupBox19.TabIndex = 12 Me.GroupBox19.TabIndex = 12
Me.GroupBox19.TabStop = False Me.GroupBox19.TabStop = False
' '
@@ -1494,7 +1495,7 @@ Partial Class usrCntlMDMAuswertungen
Me.cbxDateMautbericht._allowFreiText = False Me.cbxDateMautbericht._allowFreiText = False
Me.cbxDateMautbericht._value = "" Me.cbxDateMautbericht._value = ""
Me.cbxDateMautbericht.FormattingEnabled = True Me.cbxDateMautbericht.FormattingEnabled = True
Me.cbxDateMautbericht.Location = New System.Drawing.Point(312, 12) Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
Me.cbxDateMautbericht.Name = "cbxDateMautbericht" Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21) Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
Me.cbxDateMautbericht.TabIndex = 32 Me.cbxDateMautbericht.TabIndex = 32
@@ -1514,15 +1515,16 @@ Partial Class usrCntlMDMAuswertungen
Me.Label68.Name = "Label68" Me.Label68.Name = "Label68"
Me.Label68.Size = New System.Drawing.Size(541, 20) Me.Label68.Size = New System.Drawing.Size(541, 20)
Me.Label68.TabIndex = 30 Me.Label68.TabIndex = 30
Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnung an." Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnungen an."
' '
'cbxMautbericht 'cbxMautbericht
' '
Me.cbxMautbericht._allowedValuesFreiText = Nothing Me.cbxMautbericht._allowedValuesFreiText = Nothing
Me.cbxMautbericht._allowFreiText = False Me.cbxMautbericht._allowFreiText = False
Me.cbxMautbericht._value = "" Me.cbxMautbericht._value = ""
Me.cbxMautbericht.DropDownWidth = 200
Me.cbxMautbericht.FormattingEnabled = True Me.cbxMautbericht.FormattingEnabled = True
Me.cbxMautbericht.Location = New System.Drawing.Point(312, 33) Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
Me.cbxMautbericht.Name = "cbxMautbericht" Me.cbxMautbericht.Name = "cbxMautbericht"
Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21) Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
Me.cbxMautbericht.TabIndex = 30 Me.cbxMautbericht.TabIndex = 30
@@ -1532,9 +1534,9 @@ Partial Class usrCntlMDMAuswertungen
Me.Label62.AutoSize = True Me.Label62.AutoSize = True
Me.Label62.Location = New System.Drawing.Point(142, 36) Me.Label62.Location = New System.Drawing.Point(142, 36)
Me.Label62.Name = "Label62" Me.Label62.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(144, 13) Me.Label62.Size = New System.Drawing.Size(102, 13)
Me.Label62.TabIndex = 5 Me.Label62.TabIndex = 5
Me.Label62.Text = "Mautsummenbericht erstellen" Me.Label62.Text = "Mautsummenbericht"
' '
'Button18 'Button18
' '
@@ -1560,6 +1562,7 @@ Partial Class usrCntlMDMAuswertungen
' '
'GroupBox13 'GroupBox13
' '
Me.GroupBox13.Controls.Add(Me.Button19)
Me.GroupBox13.Controls.Add(Me.Label71) Me.GroupBox13.Controls.Add(Me.Label71)
Me.GroupBox13.Controls.Add(Me.Label70) Me.GroupBox13.Controls.Add(Me.Label70)
Me.GroupBox13.Controls.Add(Me.cboSachbearbeiter) Me.GroupBox13.Controls.Add(Me.cboSachbearbeiter)
@@ -1577,13 +1580,29 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox13.TabIndex = 10 Me.GroupBox13.TabIndex = 10
Me.GroupBox13.TabStop = False Me.GroupBox13.TabStop = False
' '
'Label71
'
Me.Label71.Location = New System.Drawing.Point(144, 143)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(541, 17)
Me.Label71.TabIndex = 31
Me.Label71.Text = "6. Druckt Rechnungen"
'
'Label70
'
Me.Label70.Location = New System.Drawing.Point(144, 126)
Me.Label70.Name = "Label70"
Me.Label70.Size = New System.Drawing.Size(541, 17)
Me.Label70.TabIndex = 30
Me.Label70.Text = "5. Hängt Mautgesamtbericht an Sammenrechnungen an."
'
'cboSachbearbeiter 'cboSachbearbeiter
' '
Me.cboSachbearbeiter._allowedValuesFreiText = Nothing Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
Me.cboSachbearbeiter._allowFreiText = False Me.cboSachbearbeiter._allowFreiText = False
Me.cboSachbearbeiter._value = "" Me.cboSachbearbeiter._value = ""
Me.cboSachbearbeiter.FormattingEnabled = True Me.cboSachbearbeiter.FormattingEnabled = True
Me.cboSachbearbeiter.Location = New System.Drawing.Point(385, 18) Me.cboSachbearbeiter.Location = New System.Drawing.Point(243, 36)
Me.cboSachbearbeiter.Name = "cboSachbearbeiter" Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21) Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
Me.cboSachbearbeiter.TabIndex = 29 Me.cboSachbearbeiter.TabIndex = 29
@@ -1591,7 +1610,7 @@ Partial Class usrCntlMDMAuswertungen
'Label67 'Label67
' '
Me.Label67.AutoSize = True Me.Label67.AutoSize = True
Me.Label67.Location = New System.Drawing.Point(297, 26) Me.Label67.Location = New System.Drawing.Point(148, 36)
Me.Label67.Name = "Label67" Me.Label67.Name = "Label67"
Me.Label67.Size = New System.Drawing.Size(82, 13) Me.Label67.Size = New System.Drawing.Size(82, 13)
Me.Label67.TabIndex = 28 Me.Label67.TabIndex = 28
@@ -1600,7 +1619,7 @@ Partial Class usrCntlMDMAuswertungen
'dtRechnungsdatum 'dtRechnungsdatum
' '
Me.dtRechnungsdatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtRechnungsdatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtRechnungsdatum.Location = New System.Drawing.Point(147, 19) Me.dtRechnungsdatum.Location = New System.Drawing.Point(292, 10)
Me.dtRechnungsdatum.Name = "dtRechnungsdatum" Me.dtRechnungsdatum.Name = "dtRechnungsdatum"
Me.dtRechnungsdatum.Size = New System.Drawing.Size(103, 20) Me.dtRechnungsdatum.Size = New System.Drawing.Size(103, 20)
Me.dtRechnungsdatum.TabIndex = 26 Me.dtRechnungsdatum.TabIndex = 26
@@ -1608,7 +1627,7 @@ Partial Class usrCntlMDMAuswertungen
'Label66 'Label66
' '
Me.Label66.AutoSize = True Me.Label66.AutoSize = True
Me.Label66.Location = New System.Drawing.Point(6, 25) Me.Label66.Location = New System.Drawing.Point(148, 16)
Me.Label66.Name = "Label66" Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(94, 13) Me.Label66.Size = New System.Drawing.Size(94, 13)
Me.Label66.TabIndex = 27 Me.Label66.TabIndex = 27
@@ -1616,7 +1635,7 @@ Partial Class usrCntlMDMAuswertungen
' '
'Label65 'Label65
' '
Me.Label65.Location = New System.Drawing.Point(144, 94) Me.Label65.Location = New System.Drawing.Point(144, 109)
Me.Label65.Name = "Label65" Me.Label65.Name = "Label65"
Me.Label65.Size = New System.Drawing.Size(541, 17) Me.Label65.Size = New System.Drawing.Size(541, 17)
Me.Label65.TabIndex = 8 Me.Label65.TabIndex = 8
@@ -1624,7 +1643,7 @@ Partial Class usrCntlMDMAuswertungen
' '
'Label64 'Label64
' '
Me.Label64.Location = New System.Drawing.Point(144, 77) Me.Label64.Location = New System.Drawing.Point(144, 92)
Me.Label64.Name = "Label64" Me.Label64.Name = "Label64"
Me.Label64.Size = New System.Drawing.Size(541, 17) Me.Label64.Size = New System.Drawing.Size(541, 17)
Me.Label64.TabIndex = 7 Me.Label64.TabIndex = 7
@@ -1632,7 +1651,7 @@ Partial Class usrCntlMDMAuswertungen
' '
'Label63 'Label63
' '
Me.Label63.Location = New System.Drawing.Point(144, 62) Me.Label63.Location = New System.Drawing.Point(144, 77)
Me.Label63.Name = "Label63" Me.Label63.Name = "Label63"
Me.Label63.Size = New System.Drawing.Size(541, 17) Me.Label63.Size = New System.Drawing.Size(541, 17)
Me.Label63.TabIndex = 6 Me.Label63.TabIndex = 6
@@ -1641,7 +1660,7 @@ Partial Class usrCntlMDMAuswertungen
' '
'Label45 'Label45
' '
Me.Label45.Location = New System.Drawing.Point(144, 45) Me.Label45.Location = New System.Drawing.Point(144, 60)
Me.Label45.Name = "Label45" Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(541, 17) Me.Label45.Size = New System.Drawing.Size(541, 17)
Me.Label45.TabIndex = 5 Me.Label45.TabIndex = 5
@@ -1652,7 +1671,7 @@ Partial Class usrCntlMDMAuswertungen
' '
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.Location = New System.Drawing.Point(9, 60) Me.Button14.Location = New System.Drawing.Point(10, 21)
Me.Button14.Name = "Button14" Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(121, 49) Me.Button14.Size = New System.Drawing.Size(121, 49)
Me.Button14.TabIndex = 4 Me.Button14.TabIndex = 4
@@ -2153,21 +2172,16 @@ Partial Class usrCntlMDMAuswertungen
Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.Size = New System.Drawing.Size(1057, 54)
Me.pnl.TabIndex = 26 Me.pnl.TabIndex = 26
' '
'Label70 'Button19
' '
Me.Label70.Location = New System.Drawing.Point(144, 111) Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Label70.Name = "Label70" Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label70.Size = New System.Drawing.Size(541, 17) Me.Button19.Location = New System.Drawing.Point(6, 91)
Me.Label70.TabIndex = 30 Me.Button19.Name = "Button19"
Me.Label70.Text = "5. Hängt Mautgesamtbericht an Sammenrechnungen an." Me.Button19.Size = New System.Drawing.Size(121, 49)
' Me.Button19.TabIndex = 32
'Label71 Me.Button19.Text = "Vorschau"
' Me.Button19.UseVisualStyleBackColor = True
Me.Label71.Location = New System.Drawing.Point(144, 128)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(541, 17)
Me.Label71.TabIndex = 31
Me.Label71.Text = "6. Druckt Rechnungen"
' '
'usrCntlMDMAuswertungen 'usrCntlMDMAuswertungen
' '
@@ -2417,4 +2431,5 @@ Partial Class usrCntlMDMAuswertungen
Friend WithEvents cbxDateMautbericht As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxDateMautbericht As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label70 As Label Friend WithEvents Label70 As Label
Friend WithEvents Label71 As Label Friend WithEvents Label71 As Label
Friend WithEvents Button19 As Button
End Class End Class

65
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.IO Imports System.IO
Imports java.awt.geom
Imports Microsoft.Office.Interop.Outlook Imports Microsoft.Office.Interop.Outlook
Imports Microsoft.VisualBasic.FileIO Imports Microsoft.VisualBasic.FileIO
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -1096,7 +1097,7 @@ Public Class usrCntlMDMAuswertungen
End If End If
Dim steuersatz As Double = Math.floor(r("Steuersatz %")) Dim steuersatz As Double = Math.Floor(r("Steuersatz %"))
ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "' ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL") WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
@@ -1211,13 +1212,10 @@ Public Class usrCntlMDMAuswertungen
Else Else
intZlr = r("AnzahlPP") - 1 intZlr = r("AnzahlPP") - 1
End If End If
End If End If
If intZlr > 0 Then If intZlr > 0 Then
Dim steuersatz As Double = Math.round(r("Steuersatz %"), 2) Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".") Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
' Die Abfrage liest in der Tabelle Rechnungsausgang, ' Die Abfrage liest in der Tabelle Rechnungsausgang,
@@ -1424,7 +1422,7 @@ Public Class usrCntlMDMAuswertungen
For Each r In dtBB.Rows For Each r In dtBB.Rows
'spSelectReDruSchnSumBS415 'spSelectReDruSchnSumBS415
Dim steuersatz As Double = Math.round(r("Steuersatz %"), 2) Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".") Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
Dim sum As DataTable = (New SQL).loadDgvBySql("SELECT ISNULL(SUM(dbo.RechnungsausgangPositionen.Preis * dbo.RechnungsausgangPositionen.Anzahl),0) AS [Summe von Preis] Dim sum As DataTable = (New SQL).loadDgvBySql("SELECT ISNULL(SUM(dbo.RechnungsausgangPositionen.Preis * dbo.RechnungsausgangPositionen.Anzahl),0) AS [Summe von Preis]
@@ -1528,9 +1526,9 @@ Public Class usrCntlMDMAuswertungen
If sumCurrenRow > 0 Then If sumCurrenRow > 0 Then
preis = Math.floor(sumCurrenRow * rowBS("Bankspesen %") + 0.5) preis = Math.Floor(sumCurrenRow * rowBS("Bankspesen %") + 0.5)
Else Else
preis = Math.floor(0 - sumCurrenRow * rowBS("Bankspesen %") + 0.5) preis = Math.Floor(0 - sumCurrenRow * rowBS("Bankspesen %") + 0.5)
End If End If
Else Else
@@ -1608,7 +1606,7 @@ Public Class usrCntlMDMAuswertungen
End If End If
ElseIf f.Contains("Maut.pdf") Then ElseIf f.Contains("Maut.pdf") Then
Dim FilePDF = New FileInfo(f) Dim FilePDF = New FileInfo(f)
If FilePDF.Name.Length > 10 Then If FilePDF.Name.Length > 10 Then
Dim KundenNr = FilePDF.Name.ToString.Substring(0, 6) Dim KundenNr = FilePDF.Name.ToString.Substring(0, 6)
@@ -1618,8 +1616,7 @@ Public Class usrCntlMDMAuswertungen
AddAttachementToRE(FilePDF.FullName, KundenNr, RECHNUNG, rechnungsdatum) AddAttachementToRE(FilePDF.FullName, KundenNr, RECHNUNG, rechnungsdatum)
End If End If
End If End If
End If End If
Next Next
End If End If
@@ -2392,6 +2389,52 @@ Public Class usrCntlMDMAuswertungen
Return tmpPath Return tmpPath
End Function End Function
Private Sub Button19_Click_1(sender As Object, e As EventArgs) Handles Button19.Click
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
If rechnungsdatum > Today() Then
MsgBox("Rechnungsdatum liegt in der Zukunft, nicht möglich")
Exit Sub
End If
If Sachbearbeiter = "" Then
MsgBox("Sachbearbeiter auswählen!")
Exit Sub
End If
Dim listPDFs As List(Of String)
Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text]
FROM Rechnungsausgang
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
If dtSelectedSammelrechnungen.Rows.Count > 0 Then
For Each rowRE In dtSelectedSammelrechnungen.Rows
Dim path = ""
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("Buchungsjahr"), "", , , 7, path,, , , , , , , )
If path <> "" Then listPDFs.Add(path)
Next
If listPDFs.Count > 1 Then
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MDM_Sammelrechnung.pdf", ".pdf", False, False)
If FormularManagerNEU.MergePdfFiles(listPDFs, pathPDF) Then
Process.Start(pathPDF)
Else
MsgBox("Fehler beim zusammenführen der PDFs.")
End If
End If
Else
MsgBox("Keine Sammelrechnung zum " & rechnungsdatum.ToShortDateString & " von " & Sachbearbeiter & " vorhanden!")
End If
End Sub
End Class End Class