Fix Sammelrechnung

SDL/Fakturierung/frmFaktEmail.vb

@@ -212,6 +212,7 @@ Public Class frmFaktEmail
         Dim EMAILTMPBCC = ""
 
         'Prüfen, ob Rechnung an Im/Export deklariert ist und entsprechende Mailadressen holen
+        If SPEDBUCH IsNot Nothing Then
             Dim IMPEXP = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(IMEX,'')", "Aviso", "AvisoId='" & SPEDBUCH.AvisoID & "'", "AVISO")
             Select Case IMPEXP
                 Case "IMPORT"
@@ -233,6 +234,8 @@ Public Class frmFaktEmail
                         If EMAILTMPBCC <> "" Then dgvEmailBCC.Rows.Add(EMAILTMPBCC)
                     End If
             End Select
+        End If
+
 
         'wenn leere Mailadressen, dann Standardadresse holen
         If EMAILTMP = "" And EMAILTMPCC = "" And EMAILTMPBCC = "" Then

SDL/kunden/frmKundenblatt.Designer.vb

@@ -2527,7 +2527,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '