Bei mehreren Anhängen in VM kann nun derjenige, die "direkt" verknüpft werden soll, markiert werden.

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -1,4 +1,5 @@
-Imports System.Data
+Imports System.Collections
+Imports System.Data
 Imports System.Drawing
 Imports System.Windows.Forms
 Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
@@ -30,11 +31,13 @@ Public Class frmAvisoFormularAnfuegen
         InitializeComponent()
         Me.Bezeichnung = Bezeichnung
 
+
     End Sub
 
 
     Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+
         KdSearchBox.initKdBox(Me)
         initAttachment()
         If hasAnhaenge Then pbAnhaenge.Image = My.Resources.pdf
@@ -61,7 +64,7 @@ Public Class frmAvisoFormularAnfuegen
     End Sub
 
     Sub initVollmachtarten(kdNr As Integer)
-        cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
+        cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", True)
     End Sub
 
 
@@ -82,16 +85,21 @@ Public Class frmAvisoFormularAnfuegen
         End If
     End Sub
 
-    Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged
-
-        vollmachtartId = cbVMTypen._value
-        initUsrCntrlKundenvollmachten(vollmachtartId)
-
+    Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedValueChanged
+        If cbVMTypen._value <> "" Then
+            vollmachtartId = cbVMTypen._value
+            initUsrCntrlKundenvollmachten(vollmachtartId)
+        End If
     End Sub
 
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
 
+        If Not checkMandatoryFields() Then
+            DialogResult = DialogResult.None
+            Exit Sub
+        End If
+
         If Not hasAnhaenge Then
 
             If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then
@@ -100,6 +108,16 @@ Public Class frmAvisoFormularAnfuegen
                 Exit Sub
             End If
         End If
+
+
+        Dim i = dgvAnhaenge.SelectedCells.Item(0).RowIndex
+        If i > 0 Then
+
+            AddAttachmentOnLastIndex(ATT, i)
+
+        End If
+
+
         UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
         vollmachtId = UsrCntlKundenZollVollmachten1.vmId
 
@@ -107,6 +125,19 @@ Public Class frmAvisoFormularAnfuegen
 
     End Sub
 
+
+    Private Sub AddAttachmentOnLastIndex(ByRef a As List(Of String), tmpIndex As Integer)
+        If (a IsNot Nothing) AndAlso (a.Count > 1) Then
+            Dim list As New List(Of String)
+            list = a
+            Dim selectedItem As Object = list.Item(tmpIndex)
+            list.Add(selectedItem)
+            list.RemoveAt(tmpIndex) 'immer die letzte PDF-DatenarchivID wird als PDF-Verknüpfung angezeigt!!!!!
+
+            a = list
+        End If
+    End Sub
+
     Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
         Close()
     End Sub
@@ -119,6 +150,7 @@ Public Class frmAvisoFormularAnfuegen
         Else
             hasAnhaenge = True
             PDF_MAIL = "PDF_DATENSERVER"
+
             For Each a In ATT
                 Dim display = a
                 If a.Contains("\") Then
@@ -128,10 +160,53 @@ Public Class frmAvisoFormularAnfuegen
                 dgvAnhaenge.Rows.Add({display})
             Next
         End If
+
+        If dgvAnhaenge.Rows.Count >= 2 Then
+
+            dgvAnhaenge.Visible = True
+            lblMultiAttachements.Visible = True
+            Me.Size = New Size(537, 720)
+            dgvAnhaenge.Size = New Size(514, 86)
+        Else
+            dgvAnhaenge.Visible = False
+            lblMultiAttachements.Visible = False
+            dgvAnhaenge.Size = New Size(514, 36)
+            Me.Size = New Size(537, 670)
+        End If
+
         dgvAnhaenge.ClearSelection()
     End Sub
 
-    Private Sub pbMail_Click(sender As Object, e As EventArgs)
+    Private Function checkMandatoryFields() As Boolean
 
+
+
+        Dim valid = False
+
+        If KdSearchBox.KdNr_value = -1 Then
+            lblWarning.Text = "Kunde auswählen!"
+            Return valid
+        End If
+
+        If cbVMTypen._value = "" Then
+            lblWarning.Text = "Vollmachttyp auswählen"
+            Return valid
+        End If
+
+        If UsrCntlKundenZollVollmachten1.txtGueltigVon.Text = "" Then
+            lblWarning.Text = "Gültig von-Datum hinterlegen!"
+            Return valid
+        End If
+
+
+        lblWarning.Text = ""
+        valid = True
+        Return valid
+
+    End Function
+
+    Private Sub frmAvisoFormularAnfuegen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        KdSearchBox.Focus()
+        Label1.Visible = cAllgemein.TESTSYSTEM
     End Sub
 End Class