Mailbenachrichtigungen

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -1,6 +1,7 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports com.sun.xml.internal.rngom.digested
 
 Public Class cEmailBenachrichtigungList
     Property eb_KundenNr As Object = Nothing
@@ -122,22 +123,24 @@ Public Class cEmailBenachrichtigung
         Dim Firmen As New cFirmenDAL
         Dim Firma As New cFirma
 
-
         'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist:
-        If art = 3 Then '> Ankunft Export
-            Dim AnkungMail = IIf((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = "False", "0", (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0"))
-            If AnkungMail = 0 Then
-                art = 1
-            End If
-        End If
 
-        If art = 4 Then '> Freigabe Export
-            Dim FreigabeMail = IIf((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = "False", "0", (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0"))
-            If FreigabeMail = 0 Then
-                art = 2
-            End If
-        End If
+        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
+            End If
+
+        End If
 
         'In diesen Strings werden die Mailadressen übergeben:
         Emails = ""