zoll land

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -122,6 +122,20 @@ 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
+            If (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = 0 Then
+                art = 1
+            End If
+        End If
+        If art = 4 Then '> Freigabe Export
+            If (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = 0 Then
+                art = 2
+            End If
+        End If
+
+
         'In diesen Strings werden die Mailadressen übergeben:
         Emails = ""
         Emails_CC = ""