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

Fix Benachrichtigung

Browse Source
This commit is contained in:
d.breimaier
2025-06-25 13:40:47 +02:00
parent fe17b29564
commit 884fd87a3e
1 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -126,22 +126,19 @@ Public Class cEmailBenachrichtigung
'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist: 'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist:
Dim kdn_er As New cKundenErweitert(Kdnr) Dim kdn_er As New cKundenErweitert(Kdnr)
If kdn_er IsNot Nothing Then
If art = 3 Then '> Ankunft Export If art = 3 Then '> Ankunft Export
Dim AnkunftMail = CBool((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("EmailAnkunft_Export", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", False)) If kdn_er Is Nothing OrElse Not kdn_er.EmailAnkunft_Export Then
If AnkunftMail Then art = 1
art = 1 End If
End If ElseIf art = 4 Then '> Freigabe Export
ElseIf art = 4 Then '> Freigabe Export If kdn_er Is Nothing OrElse Not kdn_er.EmailFreigabe_Export Then
Dim FreigabeMail = CBool((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("EmailFreigabe_Export", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", False)) art = 2
If FreigabeMail Then
art = 2
End If
End If End If
End If End If
'In diesen Strings werden die Mailadressen übergeben: 'In diesen Strings werden die Mailadressen übergeben:
Emails = "" Emails = ""
Emails_CC = "" Emails_CC = ""