From bde9f336ba61084b398d2ab21fdeeeff5da887c0 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 19 Feb 2026 14:44:27 +0100
Subject: [PATCH] addin bugfix

---
 VERAGAddIn/frmAvisoFormularAnfügen.vb | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/VERAGAddIn/frmAvisoFormularAnfügen.vb b/VERAGAddIn/frmAvisoFormularAnfügen.vb
index 4e3c406..9456f47 100644
--- a/VERAGAddIn/frmAvisoFormularAnfügen.vb
+++ b/VERAGAddIn/frmAvisoFormularAnfügen.vb
@@ -172,6 +172,8 @@ Public Class frmAvisoFormularAnfuegen
 
                 If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then
                     MsgBox("Bitte einen Vertrag markieren")
+                    DialogResult = DialogResult.None
+                    Exit Sub
                 End If
 
                 UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
@@ -179,13 +181,18 @@ Public Class frmAvisoFormularAnfuegen
                 UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
 
             Case "btnGestellungsgarantien"
+
+                If UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows.Count < 1 Then
+                    MsgBox("Bitte eine Gestellung markieren")
+                    DialogResult = DialogResult.None
+                    Exit Sub
+                End If
+
                 UsrCntlGestellungsgarantien1.dgvGestGarantieNew.GetOrder()
                 UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
                 UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SetOrder()
 
-                If UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows.Count < 1 Then
-                    MsgBox("Bitte eine Gestellung markieren")
-                End If
+
         End Select
 
 
@@ -307,12 +314,12 @@ Public Class frmAvisoFormularAnfuegen
 
                     For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows
 
-                        If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
+                        If row.Cells("gg_datenarchivId").Value Is DBNull.Value Or row.Cells("gg_datenarchivId").Value Is Nothing Then
                             setAvisoIdForGestellungen()
                         Else
                             Dim response = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
                             If response = vbYes Then
-                                setAvisoIdForVertrage()
+                                setAvisoIdForGestellungen()
                                 enableOverwritting = True
                             ElseIf response = vbCancel Then
                                 DialogResult = DialogResult.None