Sendung aus IMportAssistent anlegen fix

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -1611,7 +1611,16 @@ Public Class frmSendungAnhangImport
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
-        Dim f As New frmAddSendnung(AvisoId)
+
+        If cboSendungen.SelectedItem.value Is Nothing Then Exit Sub
+
+        Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen.SelectedItem.value)
+
+        If SND.FilialenNr < 1 Then MsgBox("In bestehender Sendung wurde keine Filiale ausgewählt!") : Exit Sub
+
+        Dim f = New frmAddSendnung(AvisoId, SND.FilialenNr)
+
+
         If f.ShowDialog(Me) = DialogResult.OK Then
             initSendungen()
             cboSendungen.changeItem(f.SendungsId)