neu

Aviso/frmHauptfenster.vb

@@ -4100,6 +4100,14 @@ Public Class AvisoStatusFunctions
         If KundenNr Is Nothing OrElse Not IsNumeric(KundenNr) Then Exit Sub
         If KundenNr <= 0 Then Exit Sub
 
+        If art = 2 Then ' Freigabe
+            Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
+            Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
+            If KUNDE.EmailFreigabe And KUNDE_ERW.EmailFreigabe_Art = "BLG" Then
+                Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt.
+            End If
+        End If
+
         Dim Standorte As New cStandorteDAL
         'nur Mail erstellen, falls mindestens ein Empfänger vorhanden