edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

kdSearchbox

Browse Source
This commit is contained in:
d.breimaier
2025-12-30 13:46:47 +01:00
parent 3c451963b6
commit 8cb999b893
1 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -8,23 +8,18 @@ Public Class KdSearchBox
Inherits System.Windows.Forms.TextBox Inherits System.Windows.Forms.TextBox
Implements INotifyPropertyChanged Implements INotifyPropertyChanged
' Dim sql As New SDL.SQL
' Dim KUNDENSQL As New SDL.kundenSQL
Dim form As Form = Me.FindForm Dim form As Form = Me.FindForm
'Public KdData As SDL.cKundenFMZOLL
Public KdData_KUNDE As cKunde = Nothing Public KdData_KUNDE As cKunde = Nothing
Public KdData_ADRESSEN As cAdressen = Nothing Public KdData_ADRESSEN As cAdressen = Nothing
Public KdData_KUNDE_ERW As cKundenErweitert = Nothing Public KdData_KUNDE_ERW As cKundenErweitert = Nothing
Public Property searchActive As Boolean = True Public Property searchActive As Boolean = True
Public Property _AllowSetValue As Boolean = False Public Property _AllowSetValue As Boolean = False
Public Property _displayFullName As Boolean = False ' nur wenn _loadKdData Public Property _displayFullName As Boolean = False ' nur wenn _loadKdData
Public Property _display_Name1 As Boolean = False ' nur wenn _loadKdData Public Property _display_Name1 As Boolean = False ' nur wenn _loadKdData
Public Property _ValueKdAndName As Boolean = True Public Property _ValueKdAndName As Boolean = True
Public Property _searchName1 As Boolean = True Public Property _searchName1 As Boolean = True
Public Property _loadKdData As Boolean = False Public Property _loadKdData As Boolean = False
Public Property _hideIfListEmpty As Boolean = True Public Property _hideIfListEmpty As Boolean = True
Public Property _displayWoelflKd As Boolean = False Public Property _displayWoelflKd As Boolean = False
Public Property _displayAVISO_Email As Boolean = False Public Property _displayAVISO_Email As Boolean = False
@@ -80,7 +75,11 @@ Public Class KdSearchBox
KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space)) KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space))
End Sub 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 Try
'Console.WriteLine(String.Format("TEEST 01")) 'Console.WriteLine(String.Format("TEEST 01"))
If Not searchActive Then Exit Sub If Not searchActive Then Exit Sub
@@ -153,7 +152,7 @@ Public Class KdSearchBox
Eingabe_verarbeitet = False Eingabe_verarbeitet = False
last_eingabe = Now last_eingabe = Now
doKeyDown(Now) doKeyDown(Now, topKunden)
Catch ex As Exception 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") 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 End If
Try Try
Eingabe_verarbeitet = False 'Eingabe_verarbeitet = False
last_eingabe = Now 'last_eingabe = Now
doKeyDown(Now, GlobalAnzahlKunden) 'doKeyDown(Now, GlobalAnzahlKunden)
'Eingabe_verarbeitet = True
RESARCH(GlobalAnzahlKunden)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)