BugFix Vermerke

Aviso/rCntrlVermerke.vb

@@ -99,6 +99,7 @@ Public Class rCntrlVermerke
             gridVermerke.Rows(rowindex).Selected = True
         End If
 
+        painted = False
         ' timer.Enabled = True
         ' initDGVSendungenRows()
     End Sub
@@ -109,17 +110,19 @@ Public Class rCntrlVermerke
         If (tblSnd_SendungID > 0) Then
             tmpIndex = tblSnd_SendungID
         End If
-        usrcntlAktDetails.gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
+        Dim init As Boolean = False
 
-        Vermerke_anzeigen2(tmpIndex, e.RowIndex)
+        usrcntlAktDetails.gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex, init)
+
+        If init Then Vermerke_anzeigen2(tmpIndex, e.RowIndex)
     End Sub
     Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
         If painted Then Exit Sub
-        painted = True
+
         'If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
         '  If dgvSendungen.RowCount = 0 Then Exit Sub
         usrcntlAktDetails.gridVermerke_Paint(gridVermerke)
-        painted = False
+        painted = True
     End Sub