fix

SDL/Fakturierung/frmFaktEmail.vb

@@ -379,6 +379,8 @@ Public Class frmFaktEmail
 
                         Dim KUNDE_ERW As New cKundenErweitert(KdNr)
 
+                        If Not SR Then
+
                             If RECHNUNG.FilialenNr = 4817 And Firma_ID = 19 AndAlso RECHNUNG.ErfassungsNr IsNot Nothing Then
                                 Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr)
                                 If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then
@@ -406,7 +408,7 @@ Public Class frmFaktEmail
 
                                 End If
                             End If
-
+                        End If
 
                     End If
                     End If