fix Mailbenachrichtigungen

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -123,20 +123,19 @@ Public Class cEmailBenachrichtigung
         Dim Firmen As New cFirmenDAL
         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:
-
         Dim kdn_er As New cKundenErweitert(Kdnr)
-
-        If art = 3 Then '> Ankunft Export
-            If kdn_er Is Nothing OrElse Not kdn_er.EmailAnkunft_Export Then
-                art = 1
+            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
-        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:
@@ -144,7 +143,7 @@ Public Class cEmailBenachrichtigung
         Emails_CC = ""
         Emails_BCC = ""
 
-        If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
+
         '  Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
         '  Dim Fraechter As New cKunde(hFrächter_kdnr)
         Dim Kdnr_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(Kdnr, art)