PDF Druck Lizenz; Vermerke

Aviso/usrcntlAktDetails.vb

@@ -1552,6 +1552,8 @@ Public Class usrcntlAktDetails
         If row.Cells("Datum").Value >= "09.09.2024" Then
             If row.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
                 Return False
+            ElseIf row.Cells("VermerkIDAufgehoben").Value > 0 Then
+                Return True
             End If
         Else
             For Each r As DataGridViewRow In gridVermerke.Rows
@@ -3682,6 +3684,15 @@ Public Class usrcntlAktDetails
             AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Überweisungsbeleg erhalten.", 79,, gridVermerke.SelectedRows(0).Cells("VorauskasseId").Value)
         End If
 
+
+        'sendAktiv = False
+        'initDgvSendungen()
+        'sendAktiv = True
+        'dgvSendungen.ClearSelection()
+        'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
+        '    dgvSendungen.Rows(tmpIndex).Selected = True
+        'End If
+        loaded = True
         Vermerke_anzeigen(index)
 
     End Sub