Bugfix Emailversand, kurli. Schriftart aus Email/Anhang entfernen, Prüfung für dopp. Positionen

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -709,4 +709,5 @@ Public Class frmAbrechnungsMaske
         srcTAG = srcTAG.AddDays(1)
         initBtns("Tag")
     End Sub
+
 End Class

SDL/Fakturierung/frmFaktEmail.vb

@@ -557,7 +557,7 @@ Public Class frmFaktEmail
         Try
 
             Dim additionalLine = ""
-            If RECHNUNG.FakturierungsGruppe <> "" Then
+            If RECHNUNG.FakturierungsGruppe IsNot Nothing AndAlso RECHNUNG.FakturierungsGruppe <> "" Then
                 additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus")
             End If
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -2804,12 +2804,11 @@ Public Class usrCntlFaktAbrechnung
             End If
         End If
 
-
         getValues()
         Dim errMsg = ""
         setError(errMsg)
 
-        If RECHNUNG.CHECK_Validation(errMsg) Then
+        If RECHNUNG.CHECK_Validation(errMsg, dgvRechnungenPositionen) Then
             If RECHNUNG.SAVE(True) Then
                 RECHNUNG.setSPEDBUCH_FAKTURIERT() 'Fakturiert wird in SpedBuch geschrieben