From 1bc88630bf506965ac813549fb7baef6500b997a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 29 Dec 2025 15:12:35 +0100 Subject: [PATCH 1/3] fix searchbox --- .../Benutzerdefinierte Steuerelemente/KdSearchBox.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 7fd636df..27da0980 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -712,7 +712,7 @@ Public Class KdSearchBox 'End If If Not _displayWoelflKd Then SQLstrEnd &= " AND AdressenNr NOT LIKE '15%'" - setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr & SQLstrEnd & " order by Ordnungsbegriff ", "FMZOLL"), topAnz, IIf(srch.Count > 4, SQL.getValueTxtBySql(SQLstrCount & SQLstrEnd, "FMZOLL"), "")) + setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr & SQLstrEnd & " order by Ordnungsbegriff ", "FMZOLL"), topAnz, IIf(srch.Count > 2, SQL.getValueTxtBySql(SQLstrCount & SQLstrEnd, "FMZOLL"), "")) End With @@ -832,7 +832,7 @@ Public Class KdSearchBox If aktiveKunden Then - If topKunden < CInt(anzahlKunden) And CInt(anzahlKunden) < 65 Then + If IsNumeric(anzahlKunden) AndAlso topKunden < CInt(anzahlKunden) AndAlso CInt(anzahlKunden) < 100 Then usrcntl.btnAlleKunden.Visible = True Else usrcntl.btnAlleKunden.Visible = False From ac7f295580b97265cb8f9a096bda5e7513affe9f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 29 Dec 2025 15:41:01 +0100 Subject: [PATCH 2/3] kdSearchbox --- .../KdSearchBox.vb | 54 +++++++++---------- .../usrcntlKdSearch.vb | 4 +- 2 files changed, 29 insertions(+), 29 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 27da0980..efff3bda 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -160,7 +160,7 @@ Public Class KdSearchBox End Try End Sub - Private Sub seeAllKunden(sender As Object, e As MouseEventArgs) Handles usrcntl.DGV_AlleKunden + Private Sub seeAllKunden(sender As Object, e As EventArgs) Handles usrcntl.DGV_AlleKunden If Not searchActive Then Exit Sub @@ -219,9 +219,7 @@ Public Class KdSearchBox 'THREADING AKTIV Me.ThreadInitAKTIV(GlobalAnzahlKunden) - ' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV) - ' ThreadInitAKTIV.IsBackground = True - ' ThreadInitAKTIV.Start() + End With End If @@ -264,32 +262,32 @@ Public Class KdSearchBox End If End If - If _hideIfListEmpty Then + 'If _hideIfListEmpty Then - If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then - setObjectVisible(usrcntl, False) - Else - setObjectVisible(usrcntl, True) - End If - If False Then + ' If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + ' setObjectVisible(usrcntl, False) + ' Else + ' setObjectVisible(usrcntl, True) + ' End If + ' If False Then - 'THREADING ThreadWaitAndSee - Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() - Threading.Thread.Sleep(200) - If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then - setObjectVisible(usrcntl, False) - Else - setObjectVisible(usrcntl, True) - End If - End Sub) - ThreadWaitAndSee.IsBackground = True - ThreadWaitAndSee.Start() - End If - Else - usrcntl.Visible = True - usrcntl.Show() - usrcntl.BringToFront() - End If + ' 'THREADING ThreadWaitAndSee + ' Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() + ' Threading.Thread.Sleep(200) + ' If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + ' setObjectVisible(usrcntl, False) + ' Else + ' setObjectVisible(usrcntl, True) + ' End If + ' End Sub) + ' ThreadWaitAndSee.IsBackground = True + ' ThreadWaitAndSee.Start() + ' End If + 'Else + usrcntl.Visible = True + usrcntl.Show() + usrcntl.BringToFront() + 'End If Eingabe_verarbeitet = True last_search = Now diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb index a8e23579..4b3a1e67 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb @@ -50,7 +50,9 @@ Public Class usrcntlKdSearch End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click + Private Sub btnAlleKunden_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click + RaiseEvent DGV_AlleKunden(sender, e) End Sub + End Class From 19199bb9ed6c34cf5c3bbd0aa64f0e737d8dba71 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 29 Dec 2025 15:49:57 +0100 Subject: [PATCH 3/3] fix --- .../KdSearchBox.vb | 48 +++++++++---------- 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index efff3bda..158380df 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -262,32 +262,32 @@ Public Class KdSearchBox End If End If - 'If _hideIfListEmpty Then + If _hideIfListEmpty Then - ' If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then - ' setObjectVisible(usrcntl, False) - ' Else - ' setObjectVisible(usrcntl, True) - ' End If - ' If False Then + If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + setObjectVisible(usrcntl, False) + Else + setObjectVisible(usrcntl, True) + End If + If False Then - ' 'THREADING ThreadWaitAndSee - ' Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() - ' Threading.Thread.Sleep(200) - ' If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then - ' setObjectVisible(usrcntl, False) - ' Else - ' setObjectVisible(usrcntl, True) - ' End If - ' End Sub) - ' ThreadWaitAndSee.IsBackground = True - ' ThreadWaitAndSee.Start() - ' End If - 'Else - usrcntl.Visible = True - usrcntl.Show() - usrcntl.BringToFront() - 'End If + 'THREADING ThreadWaitAndSee + Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() + Threading.Thread.Sleep(200) + If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + setObjectVisible(usrcntl, False) + Else + setObjectVisible(usrcntl, True) + End If + End Sub) + ThreadWaitAndSee.IsBackground = True + ThreadWaitAndSee.Start() + End If + Else + usrcntl.Visible = True + usrcntl.Show() + usrcntl.BringToFront() + End If Eingabe_verarbeitet = True last_search = Now