diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 4bb7d9e..6e0937e 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -11,10 +11,14 @@ Imports Hardcodet.Wpf.TaskbarNotification
 Imports com.esendex.sdk.messaging
 Imports Newtonsoft.Json
 Imports System.Reflection
+Imports System.Runtime.InteropServices
 
 
 'Imports UID
 Public Class frmHauptfenster
+
+
+
     Public aktiv = False
     Private AvisoDAL As New cAvisoDAL
     Private VermerkeDAL As New cVermerkeDAL
diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb
index 725b5bb..913847a 100644
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1160,6 +1160,12 @@ Public Class usrcntlAktDetails
                     '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                     'Vermerke_aktualisieren()
                     init = True '   Vermerke_anzeigen(e.RowIndex)
+                Case "96"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.VermerkCodeId = 97
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
 
             End Select
             loaded = False
@@ -1339,6 +1345,12 @@ Public Class usrcntlAktDetails
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
                             End If
 
+                        Case 96
+                            If Not existCodeInGridVermerke(97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "T1 Bestätigung erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1 Bestätigung erhalten' einzutragen."
+                            End If
+
                         Case 80
                             If Not existCodeInGridVermerke(81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "ATB-Nr. erhalten"