kdSearchbox

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -8,23 +8,18 @@ Public Class KdSearchBox
     Inherits System.Windows.Forms.TextBox
     Implements INotifyPropertyChanged
 
-    ' Dim sql As New SDL.SQL
-    ' Dim KUNDENSQL As New SDL.kundenSQL
     Dim form As Form = Me.FindForm
-    'Public KdData As SDL.cKundenFMZOLL
+
     Public KdData_KUNDE As cKunde = Nothing
     Public KdData_ADRESSEN As cAdressen = Nothing
     Public KdData_KUNDE_ERW As cKundenErweitert = Nothing
-
     Public Property searchActive As Boolean = True
     Public Property _AllowSetValue As Boolean = False
     Public Property _displayFullName As Boolean = False ' nur wenn _loadKdData
     Public Property _display_Name1 As Boolean = False ' nur wenn _loadKdData
-
     Public Property _ValueKdAndName As Boolean = True
     Public Property _searchName1 As Boolean = True
     Public Property _loadKdData As Boolean = False
-
     Public Property _hideIfListEmpty As Boolean = True
     Public Property _displayWoelflKd As Boolean = False
     Public Property _displayAVISO_Email As Boolean = False
@@ -80,7 +75,11 @@ Public Class KdSearchBox
         KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space))
     End Sub
 
-    Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
+    Public Sub RESARCH(Kundenlimit As Integer)
+        KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space), Kundenlimit)
+    End Sub
+
+    Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs, Optional topKunden As Integer = 10) Handles Me.KeyUp
         Try
             'Console.WriteLine(String.Format("TEEST 01"))
             If Not searchActive Then Exit Sub
@@ -153,7 +152,7 @@ Public Class KdSearchBox
             Eingabe_verarbeitet = False
             last_eingabe = Now
 
-            doKeyDown(Now)
+            doKeyDown(Now, topKunden)
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_02")
@@ -169,9 +168,12 @@ Public Class KdSearchBox
         End If
 
         Try
-            Eingabe_verarbeitet = False
-            last_eingabe = Now
-            doKeyDown(Now, GlobalAnzahlKunden)
+            'Eingabe_verarbeitet = False
+            'last_eingabe = Now
+            'doKeyDown(Now, GlobalAnzahlKunden)
+            'Eingabe_verarbeitet = True
+
+            RESARCH(GlobalAnzahlKunden)
 
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)