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

fakt, Kundenblatt, ustv, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-07-28 09:04:52 +02:00
parent f206b96009
commit c6050c5783
7 changed files with 742 additions and 696 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -1097,12 +1097,30 @@ Public Class frmFaktEmail
list3megered = FormularManagerNEU.MergePdfFiles(myListPOSLIST, zielPfadZusammenfassung_POSListe)
End If
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
'bei RMC und Durmaz doch wieder alles in einem Anhang !!!!!!!!!!!!!!!!!!!!!!!!!!!!
For Each a In myListLiefereranten
myList.Add(a)
Next
For Each a In myListPOSLIST
myList.Add(a)
Next
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
End If
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
If myListLiefereranten.Count > 0 AndAlso list2megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
If myListPOSLIST.Count > 0 AndAlso list3megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
Else
'Ansonsten extra!!!!
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
If myListLiefereranten.Count > 0 AndAlso list2megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
If myListPOSLIST.Count > 0 AndAlso list3megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
End If
End If