From c9d0ff470dc4337791a200429f71ceba98379293 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 12 Apr 2023 17:30:07 +0200
Subject: [PATCH] Meldung, wenn Datensatz bereits einen Anhang besitzt

---
 VERAGAddIn/frmAvisoFormularAnfügen.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/VERAGAddIn/frmAvisoFormularAnfügen.vb b/VERAGAddIn/frmAvisoFormularAnfügen.vb
index f8ff9df..c741b6b 100644
--- a/VERAGAddIn/frmAvisoFormularAnfügen.vb
+++ b/VERAGAddIn/frmAvisoFormularAnfügen.vb
@@ -206,7 +206,12 @@ Public Class frmAvisoFormularAnfuegen
                     For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraege.SelectedRows
                         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
+                                setAvisoIdForVertrage()
+                            End If
                         End If
+
                     Next
                     Me.DialogResult = DialogResult.OK
                     Close()
@@ -232,6 +237,10 @@ Public Class frmAvisoFormularAnfuegen
                         If row.Cells("gg_datenarchivId").Value Is DBNull.Value Then
                             'Or CInt(row.Cells("gg_datenarchivId").Value) < 0
                             setAvisoIdForGestellungen()
+                        Else
+                            If vbYes = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel) Then
+                                setAvisoIdForVertrage()
+                            End If
                         End If
 
                     Next