WL

Aviso/usrcntlAktDetails.vb

@@ -1359,6 +1359,15 @@ Public Class usrcntlAktDetails
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                     init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
+
+
+                Case "118"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.VermerkCodeId = 119
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
+
             End Select
 
         End If
@@ -1570,6 +1579,11 @@ Public Class usrcntlAktDetails
                                 optionCell.Value = "Kostenbestätigung erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen."
                             End If
+                        Case 118
+                            If Not existCodeInGridVermerke(r, gridvermerke, 119, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "T1/T2 Draft OK erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1/T2 Draft OK ' einzutragen."
+                            End If
                     End Select
                 End If