Logik für AddIn Vollmachten eingebaut.

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -9,14 +9,15 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmAvisoFormularAnfuegen
 
     Public KdNr As Integer = -1
+    Public vollmachtId As Integer = -1
     Dim vollmachtartId As Integer = -1
-    Dim vollmachtId As Integer = -1
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
     Public SendungsId = -1
     Public Bezeichnung = ""
-    Public PDF_MAIL As Boolean = False
+    Public PDF_MAIL = ""
     Public ATT As List(Of String)
+    Public hasAnhaenge As Boolean = False
 
 
     Sub New()
@@ -36,15 +37,12 @@ Public Class frmAvisoFormularAnfuegen
     Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
         KdSearchBox.initKdBox(Me)
-
-        If PDF_MAIL Then
+        initAttachment()
+        If hasAnhaenge Then
             pbAnhaenge.Visible = True
-        Else
-            pbAnhaenge.Visible = False
         End If
 
 
-
     End Sub
 
 
@@ -97,20 +95,46 @@ Public Class frmAvisoFormularAnfuegen
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
 
-        If Not PDF_MAIL Then
-            'Sicherheitsabfrage: Mail besitzt keinen Anhang, soll VM gespeichert werden?
+        If Not hasAnhaenge Then
+
+            If Not vbYes = MsgBox("Die Email besitzt keinen Anhang! Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then Exit Sub
+
         End If
-
-
         UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
+        vollmachtId = UsrCntlKundenZollVollmachten1.vmId
 
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
-        Dim path = DS.uploadDataToDATENSERVER("")
-
+        'MsgBox("Dokument wurde gespeichert!")
+        'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
+        'Dim path = DS.uploadDataToDATENSERVER("")
         Close()
+
+
+
     End Sub
 
     Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
         Close()
     End Sub
+
+    Sub initAttachment()
+        dgvAnhaenge.Rows.Clear()
+        If ATT.Count = 0 Then
+            hasAnhaenge = False
+            PDF_MAIL = "ONLYMAIL_DATENSERVER"
+        Else
+            hasAnhaenge = True
+            PDF_MAIL = "PDF_DATENSERVER"
+            For Each a In ATT
+                Dim display = a
+                If a.Contains("\") Then
+                    Dim sp = a.Split("\")
+                    display = sp(sp.Count - 1)
+                End If
+                dgvAnhaenge.Rows.Add({display})
+            Next
+        End If
+        dgvAnhaenge.ClearSelection()
+    End Sub
+
+
 End Class