From 929f991191ad960c1a5aec56059e256a06a7522c Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Fri, 7 Jun 2024 14:28:44 +0200
Subject: [PATCH] V

---
 VERAGAddIn/frmAvisoAnfügen.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/VERAGAddIn/frmAvisoAnfügen.vb b/VERAGAddIn/frmAvisoAnfügen.vb
index 755b01e..4ff27dd 100644
--- a/VERAGAddIn/frmAvisoAnfügen.vb
+++ b/VERAGAddIn/frmAvisoAnfügen.vb
@@ -262,11 +262,11 @@ Public Class frmAvisoAnfuegen
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnVermerke.Click
-        If Me.AvisoId >= 0 Then
+        If dgvAnhaenge.SelectedRows.Count > 0 Then
             If Me.SendungsId >= 0 Then
 
                 Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-                Dim sv As New AVISO.frmAddSendungsvermerkShort(AvisoId, Me.SendungsId) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+                Dim sv As New AVISO.frmAddSendungsvermerkShort(dgvSendungen.SelectedRows(0).Cells("tblSnd_AvisoID").Value, Me.SendungsId) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
                 sv.Location = Me.PointToClient(Cursor.Position)
                 sv.ShowDialog(frmGrayOut)
                 frmGrayOut.Close()