uta

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -128,15 +128,15 @@ Public Class cEmailBenachrichtigung
 
         '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
-                End If
-            ElseIf art = 4 Then '> Freigabe Export
-                If kdn_er Is Nothing OrElse Not kdn_er.EmailFreigabe_Export 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: