USTV, Kundebearbeiten

SDL/USTV/usrCntlUSTV.vb

@@ -17,7 +17,7 @@ Public Class usrCntlUSTV
     Public kdNr As Integer = -1
     Dim loaded As Boolean = False
 
-    Sub init(Optional kdNr = -1)
+    Sub init(Optional kdNr As Integer = -1)
         pnlFilter.AutoScroll = False
         btnKundendatenaktualisieren.Enabled = False
         '  MsgBox(kdNr)

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1959,6 +1959,8 @@ Public Class usrcntlKundeBearbeitenFull
 
             .DataSource.Columns("bnk_KundenNr").DefaultValue = KUNDE.KundenNr
 
+            .SelectionMode = DataGridViewSelectionMode.CellSelect
+
             .Columns(0).Visible = False
             .Columns(5).Visible = False
             If archivierteDSAnzeigen Then