Fix Benachrichtigung

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

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