Vermerke, Abf.Land

Aviso/frmAddAktenvermerkShort.vb

@@ -114,7 +114,18 @@ Public Class frmAddAktenvermerkShort
                 cntxt.Items.Add(it)
 
                 AddHandler it.Click, Sub()
-                                         AvisoStatusFunctions.ummeldenAVISO(myAviso, it.Tag.ToString)
+                                         If it.Tag.ToString = "???" Then
+                                             myAviso.Grenzstelle = "???"
+                                             AvisoStatusFunctions.ummeldenAVISO(myAviso, it.Tag.ToString)
+                                             cGlobal.Aktive_ID = AvisoID
+                                             Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                                             Dim f As New frmEintragAviso
+                                             f.ShowDialog(frmGrayOut)
+                                             frmGrayOut.Close()
+                                             myAviso = AvisoDAL.LesenAviso(AvisoID, "")
+                                         Else
+                                             AvisoStatusFunctions.ummeldenAVISO(myAviso, it.Tag.ToString)
+                                         End If
                                          Me.Close()
                                      End Sub