From fe17b29564b0115b7dc4f2efa34b953723d72f13 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 25 Jun 2025 13:25:34 +0200
Subject: [PATCH] Mailbenachrichtigungen

---
 .../Classes/cEmailBenachrichtigung.vb         | 29 ++++++++++---------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
index f36ebdff..36f90bf6 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
+++ b/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 = ""