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

fix Mailbenachrichtigungen

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

7
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -123,10 +123,10 @@ Public Class cEmailBenachrichtigung
Dim Firmen As New cFirmenDAL Dim Firmen As New cFirmenDAL
Dim Firma As New cFirma Dim Firma As New cFirma
If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
'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 art = 3 Then '> Ankunft Export If art = 3 Then '> Ankunft Export
If kdn_er Is Nothing OrElse Not kdn_er.EmailAnkunft_Export Then If kdn_er Is Nothing OrElse Not kdn_er.EmailAnkunft_Export Then
art = 1 art = 1
@@ -138,13 +138,12 @@ Public Class cEmailBenachrichtigung
End If End If
'In diesen Strings werden die Mailadressen übergeben: 'In diesen Strings werden die Mailadressen übergeben:
Emails = "" Emails = ""
Emails_CC = "" Emails_CC = ""
Emails_BCC = "" Emails_BCC = ""
If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
' Dim Avisierer As New cKunde(hAuftraggeber_kdnr) ' Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
' Dim Fraechter As New cKunde(hFrächter_kdnr) ' Dim Fraechter As New cKunde(hFrächter_kdnr)
Dim Kdnr_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(Kdnr, art) Dim Kdnr_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(Kdnr, art)