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

Fakt, Sammelrechung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-08-05 11:13:30 +02:00
parent 0f98cbcc8b
commit df19ba3c22
3 changed files with 106 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -389,7 +389,7 @@ Public Class frmFaktEmail
If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr)
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Or RECHNUNG.VermittlerKundenNr.ToString.Substring(0, 2) = 18 Then
replaceKZ("nichtRMC", TextHTML)
TextHTML = TextHTML.ToString.Replace("%RMC:", "") : TextHTML = TextHTML.ToString.Replace("RMC%", "")
@@ -1129,7 +1129,7 @@ Public Class frmFaktEmail
list3megered = FormularManagerNEU.MergePdfFiles(myListPOSLIST, zielPfadZusammenfassung_POSListe)
End If
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Or RECHNUNG.VermittlerKundenNr.ToString.Substring(0, 2) = 18 Then
'bei RMC und Durmaz doch wieder alles in einem Anhang und ohne LIEFERANTENRECHNUNGEN !!!!!!!!
'For Each a In myListLiefereranten