AddInn erweitert (Hibzufügeb von Verträge und Gestellungsgarantien).

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -19,6 +19,8 @@ Public Class frmAvisoFormularAnfuegen
     Public SendungsId = -1
     Public Bezeichnung = ""
     Public PDF_MAIL = ""
+    Public enableOverwritting As Boolean = False
+    Public ATTTemp As List(Of String)
     Public ATT As List(Of String)
     Public hasAnhaenge As Boolean = False
     Public button As RibbonButton
@@ -27,6 +29,7 @@ Public Class frmAvisoFormularAnfuegen
     Dim UsrCntlGestellungsgarantien1 As usrcntlGestellungsgarantien
     Dim frmDefaultSize As Size = New Size(535, 750)
     Dim dgvAnhaengeSize As Size = New Size(495, 30)
+    Dim avisoIdSet As Boolean = False
 
 
 
@@ -72,7 +75,6 @@ Public Class frmAvisoFormularAnfuegen
                 UsrCntlGestellungsgarantien1 = New usrcntlGestellungsgarantien()
                 AddHandler UsrCntlGestellungsgarantien1.clickOK, AddressOf btnOK_Click
                 Me.Text = "Gestellungsgarantien einfügen"
-                'UsrCntlGestellungsgarantien1.AutoSize = False
                 Me.pnlDetails.Controls.Add(UsrCntlGestellungsgarantien1)
 
 
@@ -101,7 +103,7 @@ Public Class frmAvisoFormularAnfuegen
             KdNr = KdSearchBox.KdNr_value
             Dim AD = KdSearchBox.KdData_ADRESSEN
             Dim KD = KdSearchBox.KdData_KUNDE
-
+            init()
         End If
 
     End Sub
@@ -123,7 +125,7 @@ Public Class frmAvisoFormularAnfuegen
                     UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
 
             End Select
-
+            Show()
         End If
     End Sub
 
@@ -156,30 +158,54 @@ Public Class frmAvisoFormularAnfuegen
         End If
     End Sub
 
-    Dim test As usrcntlGestellungsgarantien.clickOKEventHandler()
-
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
 
+        If avisoIdSet And Not button.Name = "btnVollmachten" Then
+            DialogResult = DialogResult.OK
+            Exit Sub
+        End If
+
+        Select Case button.Name
+
+            Case "btnVertraege"
+                UsrCntlVertraege1.initDGVVertraege(KdNr)
+                If UsrCntlVertraege1.dgvVertraege.SelectedRows.Count < 1 Then
+                    MsgBox("Bitte einen Vertrag markieren")
+                End If
+
+            Case "btnGestellungsgarantien"
+                UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
+                If UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows.Count < 1 Then
+                    MsgBox("Bitte eine Gestellung markieren")
+                End If
+        End Select
 
 
         If Not hasAnhaenge Then
 
-            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch als Anhang gespeichert werden?", vbYesNoCancel) Then
+            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then
                 Close()
                 DialogResult = DialogResult.None
                 Exit Sub
             End If
         End If
 
+        If ATT IsNot Nothing Then
+            If ATT.Count > 1 Then
+                ATT = ATTTemp
+                If dgvAnhaenge.SelectedCells.Count = 0 Then
+                    MsgBox("Bitte Anhang markieren!")
+                    DialogResult = DialogResult.None
+                    Exit Sub
+                Else
+                    RemoveNotUsedAttachmentOnList(ATT, dgvAnhaenge.SelectedCells.Item(0).RowIndex)
 
-        Dim i = 0
-        If dgvAnhaenge.SelectedCells.Count > 0 Then i = dgvAnhaenge.SelectedCells.Item(0).RowIndex
-        If i > 0 Then
-
-            AddAttachmentOnLastIndex(ATT, i)
-
+                End If
+            End If
         End If
 
+
+
         If Not checkMandatoryFields() Then
             DialogResult = DialogResult.None
             Exit Sub
@@ -199,7 +225,6 @@ Public Class frmAvisoFormularAnfuegen
                 If sender.Text = "Hinzufügen" Then
 
                     setAvisoIdForVertrage()
-                    Me.DialogResult = DialogResult.OK
 
                 ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
 
@@ -207,8 +232,15 @@ Public Class frmAvisoFormularAnfuegen
                         If row.Cells("kv_datenarchivId").Value IsNot DBNull.Value Then
                             setAvisoIdForVertrage()
                         Else
-                            If vbYes = MsgBox("Der markierte Vertrag besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel) Then
+                            Dim response = MsgBox("Der markierte Vertrag besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
+                            If response = vbYes Then
                                 setAvisoIdForVertrage()
+                                enableOverwritting = True
+                            ElseIf response = vbCancel Then
+                                DialogResult = DialogResult.None
+                                Exit Sub
+                            Else
+                                Close()
                             End If
                         End If
 
@@ -234,12 +266,18 @@ Public Class frmAvisoFormularAnfuegen
 
                     For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows
 
-                        If row.Cells("gg_datenarchivId").Value Is DBNull.Value Then
-                            'Or CInt(row.Cells("gg_datenarchivId").Value) < 0
+                        If row.Cells("gg_datenarchivId").Value IsNot DBNull.Value Then
                             setAvisoIdForGestellungen()
                         Else
-                            If vbYes = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel) Then
+                            Dim response = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
+                            If response = vbYes Then
                                 setAvisoIdForVertrage()
+                                enableOverwritting = True
+                            ElseIf response = vbCancel Then
+                                DialogResult = DialogResult.None
+                                Exit Sub
+                            Else
+                                Close()
                             End If
                         End If
 
@@ -273,17 +311,17 @@ Public Class frmAvisoFormularAnfuegen
         ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
             AvisoId = UsrCntlVertraege1.dgvVertraege.SelectedRows(0).Cells("kv_id").Value
         End If
+        If AvisoId > 0 Then
+            avisoIdSet = True
+        End If
 
     End Sub
 
-    Private Sub AddAttachmentOnLastIndex(ByRef a As List(Of String), tmpIndex As Integer)
+    Private Sub RemoveNotUsedAttachmentOnList(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)
+            Dim selectedItem As Object = a.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
@@ -312,14 +350,15 @@ Public Class frmAvisoFormularAnfuegen
 
 
             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
+                Dim display = a
+                If a.Contains("\") Then
+                    Dim sp = a.Split("\")
+                    display = sp(sp.Count - 1)
+                End If
+                dgvAnhaenge.Rows.Add({display})
+            Next
+            ATTTemp = ATT
+        End If
 
         Dim addHeightfrm = 180
         Dim addHeightdgv = 50