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

Fakt, Email, Nacherfassung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-06-04 09:53:11 +02:00
parent b2c4576821
commit 3e2b9bbc51
4 changed files with 57 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -929,7 +929,7 @@ Public Class frmFaktEmail
For Each a In ATTACHMENTS
If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Then
myListLiefereranten.Add(a.Pfad)
ElseIf a.Pfad.ToString.Contains("POS-LISTE") Then
ElseIf a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then
myListPOSLIST.Add(a.Pfad)
Else
myList.Add(a.Pfad)
@@ -952,10 +952,11 @@ Public Class frmFaktEmail
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) AndAlso list2megered Then
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
If myListLiefereranten.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
If zielPfadZusammenfassung_POSListe.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
End If